Ir para conteúdo
  • Cadastre-se

wagner_fix

Membros
  • Total de ítens

    174
  • Registro em

  • Última visita

Posts postados por wagner_fix

  1. Pessoal boa tarde tudo bem?

    Estou atualizando o meu sistema para a versão 3.0 e senti falta de 3 campos nas prioridades ferrov.vag os novos campos informados: pesoBC, pesoR e tpvag não estou encontrando.

    Grato,

    Wagner

  2. 1 hora atrás, Marcelo A. Rodrigues disse:

    Bom dia Wagner.

     

    Pelo o que entendi, você quer recuperar as chaves de acesso dos MDFe que estão pendentes.

    Para retornar essas chaves de acesso você pode fazer algo nesse sentido:

     

    
    		if ACBrMDFe.WebServices.ConsultaMDFeNaoEnc( SomenteNumeros( xCNPJ ) ) then begin
    	
    			if ACBrMDFe.WebServices.ConsMDFeNaoEnc.cStat = 111 then begin
    
    				for nPos := 0 to ACBrMDFe.WebServices.ConsMDFeNaoEnc.InfMDFe.Count - 1 do begin
    
    						ACBrMDFe.WebServices.ConsMDFeNaoEnc.InfMDFe[nPos].chMDFe; //Retorna a chave de acesso
    						ACBrMDFe.WebServices.ConsMDFeNaoEnc.InfMDFe[nPos].nProt;  //Retorna o protocolo
    
    				end;
    
    			end;
    
    		end;

     

    att

    Marcelo Muitoooooooooo obrigadoooooo era isso mesmo que eu estava precisando.

    Abraço

    Wagner

  3. Olá pessoa boa noite tudo bem?

    Tem alguns clientes meus que estão meio perdidos em relação ao MDFE quando está ou não encerrado (apesar de eu ter relatórios dentro do meu sistema usando o banco de dados) eles se perdem um pouco em relação a isso.

    Enfim do que preciso? Vi que dentro do componente é possível eu consultar quais os ctes que ainda não estão encerrados e ele retorna perfeitamente os dados que preciso.

    Porém como já conheço meus clientes eles vão ver um monte de códigos eles vão se perder. Queria ler o XML de retorno da consulta para pegar a chave e pesquisar no meu banco de dados qual o MDFE que não está encerrado.

    Fiz esse comando para consultar.

      vCNPJ := RetiraCarac(cbxEmitente.Text);

      if not(InputQuery('WebServices Consultar não encerrados', 'Informe o CNPJ:', vCNPJ)) then
        exit;

      ACBrMDFe1.WebServices.ConsultaMDFeNaoEnc( vCNPJ );

      MemoResp.Lines.Text :=  UTF8Encode(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.RetWS);
      memoRespWS.Lines.Text :=  UTF8Encode(ACBrMDFe1.WebServices.ConsMDFeNaoEnc.RetornoWS);
      LoadXML(MemoResp, WBResposta);
     

    Ele gerou esses 2 arquivos (Observação cada consulta ele gera 2 novos arquivos com nomes diferentes) mas nesse último caso gerou essa numeração abaixo

    20161215025336-cons.xml
    20161215025334-ped-cons.xml

    Preciso ler o primeiro arquivo (-cons.xml), alguém sabe como pego o nome do arquivo que foi gerado?

    Grato,

    Wagner

  4. Sempre faço isso nos meus clientes e resolve.

    1º - Vá até o Painel de Controle do Microsoft Windows:
       Menu Iniciar -> Painel de Controle

    2º - Escolha a Opção: Opções da Internet;

    3º - Vá até a aba “Avançadas” e, na caixa “Configurações”, vá até as últimas opções (role a barra de rolagem até o final) e:
          a)   Marque a opção: Usar SSL 2.0;
          B)  Desmarque a opção: Usar SSL 3.0;
          c)   Verifique se a opção “Usar TLS 1.0” está marcada. Caso não esteja, marque esta opção;
          d)   Certifique-se de que as opções de TLS 1.1 e 1.2 estejam desmarcadas;
          e)   Aplique as configurações e reinicie a aplicação.

     

    E registro as dll novamente.

    Como disseram acima... as vezes achamos que é o sefaz que está com problema mas não é.

    Abraço e boa sorte.

  5. Pessoal bom dia tudo bem?

    A um bom tempo venho procurando e até hoje não consegui uma solução.

    Depois que atualizei o meu sistema para o trunk2 não consegui mais pegar o vencimento do certificado...

    Estou fazendo esse comando...

        ACBrCTe1.Configuracoes.Certificados.Senha        := Trim(xCertSenha);
        ACBrCTe1.Configuracoes.Certificados.ArquivoPFX   := Trim(xCertCam);
        ACBrCTe1.Configuracoes.Certificados.NumeroSerie  := Trim(xCertSerie);
        xCertVecto                                       := FormatDateTime('dd/mm/yyyy',ACBrCTe1.SSL.CertDataVenc);
     

    Mas está trazendo o vencimento 30/12/1899

    Grato,

    Wagner

  6. Olá pessoal bom dia tudo bem?

    Antigamente usava o componente GBBoleto para enviar meus boletos para os meus clientes, e agora passei a usar o AcbrBoleto+AcbrMail para enviar para os meus clientes.

    Fiz alguns testes funcionou perfeitamente, só que quando o meu destinatário está por exemplo: [email protected];[email protected] ele dá o erro que está em anexo.

    Alguém poderia me ajudar para resolver essa questão?

    Grato,

    Wagner

    erro.png

  7. Pessoal bom dia tudo bem?

    Estou com uma seguinte dúvida, depois de muitas tentativas consegui emitir a NFSE exemplo do botão da ACBR Gerar e Enviar Lote RPS

    Pois bem, enviou sem erro, entrei no site da prefeitura de campinas e o RPS estava lá, mas como fazer esse RPS virar uma NFSE?

    Desculpem a pergunta mas sinceramente não sei como funciona, trabalho com o ACBRCte e quando envio para o Sefaz ele já consta no site.

    Grato,

    Wagner

  8. ítalo primeiramente obrigado pela resposta.

    Eu também acompanhei esse link mas como disse acima a substituição não aceita trocar o tomador.

    O contador disse que quando é feito a NF-e com anulação de valores o ct-e perde a validade.

    Então fizemos outro correto e ficou tudo certo.

    Grato,
    Wagner

    • Curtir 1
  9. Pessoal bom dia tudo bem?

    Estou tendo problema para emitir um cte de substituição de Ct-e.

    O meu cliente emitiu um cte e passou o prazo de cancelamento.

    Ele errou o tomador e o tomador de serviço é contribuinte de ICMS.

    Quando ele colocou o tomador de serviço ele escolheu o remetente mas na verdade era o destinatário e quando eu vou fazer o cte de substituição ele dá o seguinte erro: 28- > Rejeição: O CNPJ/CPF do tomador do CT-e substituto deve ser igual ao informado no CT-e substituído.

    Só que não tem como ser igual, pois ele errou o tomador.

    Alguém tem alguma fica de como resolvo isso?

     

    Grato,
    Wagner

  10. Diego boa tarde tudo bem?

    O meu começou acontecer isso segunda, fiz isso no meu sistema

       ACBrCTe1.Configuracoes.WebServices.AguardarConsultaRet      := 15000;
       ACBrCTe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;
       ACBrCTe1.Configuracoes.WebServices.IntervaloTentativas      := 1000;
       ACBrCTe1.Configuracoes.WebServices.Tentativas               := 5;
     

    E depois fui na opções da internet e mandei Restaurar configurações Avançadas

    Resolveu em todos os meus clientes.

    Abraço,

    Wagner

     

    • Curtir 2
  11. Pessoal boa noite.

    Essa semana eu atualizei meus fontes para o trunk2 e consegui fazer funcionar tudo.

    Como o relatório QuickReport foi descontinuado eu instalei o FortesReport e consegui fazer imprimir tudo: Cte, Cancelamento, CCe, MDFE

    Não consigo fazer imprimir a inutilização, e também usei o exemplo do ACBR também deu o mesmo erro (Imagem em Anexo).

    Alguém poderia me dar uma dica?

    Estou usando o comando: ACBrCTe1.ImprimirInutilizacao;

    Grato,
    Wagner

    erro.jpg

  12. Luiz Cláudio e Juliomar primeiramente muito obrigado pela resposta...

     

    1º Luiz Cláudio conforme disse acima no mesmo computador tenho um sistema de NF-e que funciona normalmente o envio de NF-e mesmo assim fiz todos os testes, desativei o anti vírus e nada continua o problema. A quantidade de envio de e-mails diário é bem baixo dos meus clientes.

    2º Julio tenho certeza que está liberado esse SMTP como relatei na minha primeira mensagem que funciona na NF-e e outras funções de e-mail menos no envio do CT-e.

     

    Não encontro o erro por nada.

  13. Bom dia Ítalo

     

    O interessante que também tenho um sistema de NF-e na mesma máquina e uso as mesmas configurações e vai normalmente.

     

    Tenho outro sistema de envio de boleto automático mas com função achado na web também vai normalmente.

     

    O e-mail que uso é de hospedagem não são esses gratuitos só que infelizmente só no CT-e que da esse erro. 

  14. Olá pessoal boa tarde. 

     

    Tenho um sistema desenvolvido com os componentes da acbr há mais ou menos uns 3 anos, e a parte de envio de e-mail sempre funcionou, semana passada o meu cliente reclamou que não estava funcionando mais e até agora não achei uma solução.

     

    O meu enviaemail sempre funcionou assim

     

            ACBrCTe1.Conhecimentos.Items[0].EnviarEmail(DM.SqlAux5.FieldByName('HOST').AsString,
                                          DM.SqlAux5.FieldByName('PORTA').AsString,
                                          DM.SqlAux5.FieldByName('USU').AsString,
                                          DM.SqlAux5.FieldByName('SENHA').AsString,
                                          DM.SqlAux5.FieldByName('USU').AsString,
                                          Endereco,
                                          'CT-e',
                                          Mensagem,
                                          ConexaoSSL,                  // SSL
                                          EnviaPDF,                    // Enviar em PDF
                                          sCC,                         // sCC
                                          nil,                         // Anexos
                                          PedeConfirmacao,             // Pede Confirmação de Recebimento
                                          AguardarEnvio,               // Aguarda o Envio
                                          txtEmiRazao.Text); // Nome do remetente
     
    E ao tentar enviar o e-mail ele da esse erro que está em anexo.
     
    Obs1: Todas as dll já estão atualizadas.
    Obs2: Estou com o Indy 10
    Obs3: Delphi 2007
     
     Alguém poderia me ajudar?
  15. Olá pessoal bom dia... Já pesquisei no fórum mas não encontrei nada...

     

    Ao inutilizar uma sequencia de ct-e o contador do meu cliente quer receber uma cópia dessa informação... 

     

    O que preciso saber é como eu pego o nome do arquivo completo... A minha implementação está assim...

     

     

    Depois da inutilização....

     

          ACBrCTeDACTeQR.NumCopias      := 1;
          ACBrCTeDACTeQR.MostrarPreview := True;
          ACBrCTe1.InutCTe.LerXML(ACBrCTe1.Configuracoes.Arquivos.GetPathInu+'\'+
                              IntToStr(UF) +
                              CNPJ + txtModelo.Text + txtSerie.Text +
                              txtCTEIni.Text +
                              txtCTEFim.Text +
                              '-ProcInutCTe.xml');
          ACBrCTeDACTeQR.ImprimirINUTILIZACAOPDF;
          ACBrCTeDACTeQR.ImprimirInutilizacao;
     
    Alguém poderia me ajudar?
     
    Grato
  16. ítalo tinha outra pessoa com o mesmo problema mas era no cancelamento e lá você pediu para atualizar os fontes... Fiz o mesmo procedimento, e funcionou perfeitamente... atualizando o tópico como resolvido.

     

    Agradeço pela atenção de sempre...

     

    Grato,

    Wagner

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...