Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Curso Dominando a NFCe - Fim do SAT em São Paulo? Esteja preparado Curso Responsável Técnico na NFe - Atenda à nova legislação Curso Dominando o ACBrBoleto - Via API ou CNAB Seja um membro do ACBr Pro e agilize seu software Participe do Discord do ACBr Regras e orientações da nossa comunidade

wagner_fix

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    184

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por wagner_fix

    Erro ao Emitir um Cte de Substituição

    em ACBrCTe

    Postado

    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

    Erro Interno: 0 Erro HTTP: 403

    em ACBrCTe

    Postado

    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

    Imprimir Inutilização CTe

    em ACBrCTe

    Postado

    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

    Erro Ao Enviar E-Mail Cte

    em ACBrCTe

    Postado

    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.

    Erro Ao Enviar E-Mail Cte

    em ACBrCTe

    Postado

    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. 

    Erro Ao Enviar E-Mail Cte

    em ACBrCTe

    Postado

    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?

    Pegar Nome Arquivo

    em ACBrCTe

    Postado

    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

    Erro Schema Cce

    em ACBrCTe

    Postado

    í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

    Erro Schema Cce

    em ACBrCTe

    Postado

    Olá pessoal boa noite...

     

    Dia 07/12/2014 eu atualizei meus fontes dos componentes ACBR... Reinstalei no meu Delphi e depois disso não consigo mais enviar CCe ao enviar ele dá o erro: Arquivo de Schema não encontrado.

     

    Lembrando que antes da atualização meus clientes emitiam CCe normalmente...

     

    Já confirmei o caminho do schema estão corretos, já baixei pelo o próprio site do sefaz e nada...

     

    Obs.: Ao emitir o CT-e não está dando o erro só no CCe, 

     

    Alguém tem alguma dica?

     

    Grato,

    Wagner

    Protocolo Cte Some Do Xml Ao Enviar E-Mail

    em ACBrCTe

    Postado

    Olá pessoal bom dia...

     

    Ao enviar o XML para o sefaz funciona perfeitamente... Atualiza o protocolo do XML e tudo..

     

    Mas se meu cliente quando termina de enviar para o sefaz e eu dou a opção para ele enviar o XML e o PDF por e-mail e ele confirma que sim..

     

    Enviar o XML perfeitamente por e-mail...

     

    Mas some aquela parte do protocoloco do XML igual as tag abaixo....

     

    <protCTe versao="2.00"><infProt><tpAmb>2</tpAmb><verAplic>SP-CTe-20-05-2014</verAplic><chCTe>35140667397737000160570010000001311000001315</chCTe><dhRecbto>2014-06-06T16:55:57</dhRecbto><nProt>135140006586314</nProt><digVal>xbFkpJMfL8NZJt4TA1Tj1EpqK/U=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso do CT-e</xMotivo></infProt></protCTe></cteProc>

     

    Alguém sabe o que pode estar ocorrendo?

     

    Abraço,

    Wagner

    Como Ler ("importar") Um Xml De Cte ?

    em ACBrCTe

    Postado

    Beto eu fiz para importar dados da NF-e XML mas a idéia é a mesma é só mudar os nomes do campo...

     

    Obs.: Sempre pego informações diretamente do componente não sendo necessário ler o XML... mas caso queira segue o meu exemplo abaixo...

     

    var
        vXMLDoc: TXMLDocument;
        NodePrim, NodePai, NodePriEmi, NodePaiEmi, NodeCabecalho, NodePrim2,
        NodePai2, NodePai3, Nocab2, NodePrim3, NodePai4, NodePai5, Nocab3,
        NodePrim4, NodePai6, NodePai7, NodePai8, NodePai9, Nocab4 : IXMLNode;
        AuxChave, AuxData, AuxPesoB, AuxVNF : String;
    begin
     vXMLDoc             := TXMLDocument.Create(self);
     AbrirXML.Title      := 'Selecione o XML';
     AbrirXML.DefaultExt := '*.xml';
     AbrirXML.Filter     := 'Arquivos XML (*.xml)|*.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
     if AbrirXML.Execute then begin
       vXMLDoc.LoadFromFile(AbrirXML.FileName); //Le Arquivo Recibo XML');
       vXMLDoc.Active     := True;
       NodePrim           := vXMLDoc.DocumentElement.ChildNodes.FindNode('protNFe');
       NodePai            := NodePrim.ChildNodes.FindNode('infProt');
       NodePriEmi         := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe');
       NodePaiEmi         := NodePriEmi.ChildNodes.FindNode('infNFe');
       NodeCabecalho      := NodePaiEmi.ChildNodes['ide'];
       NodePrim2          := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe');
       NodePai2           := NodePrim2.ChildNodes.FindNode('infNFe');
       NodePai3           := NodePai2.ChildNodes.FindNode('transp');
       Nocab2             := NodePai3.ChildNodes['vol'];
       NodePrim3          := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe');
       NodePai4           := NodePrim3.ChildNodes.FindNode('infNFe');
       NodePai5           := NodePai4.ChildNodes.FindNode('total');
       Nocab3             := NodePai5.ChildNodes['ICMSTot'];
       NodePrim4          := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe');
       NodePai6           := NodePrim4.ChildNodes.FindNode('infNFe');
       NodePai7           := NodePai6.ChildNodes.FindNode('transp');
       Nocab4             := NodePai7.ChildNodes.FindNode('vol');
     
       AuxChave           := NodePai.ChildNodes['chNFe'].text;
       AuxChave           := FormataChave(AuxChave);
       txtChave.Text      := Trim(AuxChave);
       txtChaveExit(Self);
       AuxData            := NodeCabecalho.ChildNodes['dEmi'].text;
       txtEmissao.Text    := Copy(AuxData,9,2)+'/'+Copy(AuxData,6,2)+'/'+Copy(AuxData,1,4);
       AuxPesoB           := Nocab2.ChildNodes['pesoB'].text;
       AuxPesoB           := StringReplace(AuxPesoB, '.', ',', [rfReplaceAll]);
       txtPBruto.Text     := FormatFloat('###,##0.000', StringFloat(AuxPesoB));
       txtPCalc.Text      := Trim(txtPBruto.Text);
       AuxVNF             := Nocab3.ChildNodes['vNF'].text;
       AuxVNF             := StringReplace(AuxVNF, '.', ',', [rfReplaceAll]);
       txtVlNota.Text     := FormatFloat('###,##0.00', StringFloat(AuxVNF));
       txtVolume.Text     := FormatFloat('###,##0.000', StringFloat(Nocab4.ChildNodes['qVol'].text));
       txtVlNota.SetFocus;
     end;
     
    Espero que tenha te ajudado...
    • Curtir 1

    Erro Xml No Envio

    em ACBrCTe

    Postado

    Italo bom dia...

     

    Primeiramente obrigado pela resposta...

     

    Fiz como você me indicou e não funcionou...

     

    Propositalmente peguei um xml já enviado e ok... E tirei a parte que de vez em quando da erro conforme relatei acima...

    <protCTe versao="2.00"><infProt><tpAmb>2</tpAmb><verAplic>SP-CTe-20-05-2014</verAplic><chCTe>35140667397737000160570010000001311000001315</chCTe><dhRecbto>2014-06-06T16:55:57</dhRecbto><nProt>135140006586314</nProt><digVal>xbFkpJMfL8NZJt4TA1Tj1EpqK/U=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso do CT-e</xMotivo></infProt></protCTe></cteProc>

     

    Depois executei o comando que você pediu e não atualizou o XML...

     

    Grato,

    Wagner

    Erro Xml No Envio

    em ACBrCTe

    Postado

    Pessoal bom dia tudo bem?

     

    As vezes muito raro mas acontece na hora de enviar o XML para o sefaz, o programa não dá erro nenhum mas na hora de salvar o XML as informações do envio não salva...

     

    Ai se eu mando visualizar o XML, em baixo fica com aquela mensagem. Cte não enviado para o Sefaz.

     

    Mas se eu consulto pela chave foi enviado para o sefaz...

     

    E tenho que arrumar o xml manualmente...

     

    Alguém sabe onde eu posso estar errando?

     

    Grato,

    Wagner

    Varias Nfe Num Cte

    em ACBrCTe

    Postado

    Segue o exemplo...

     

           with DM.SqlAux5 do begin
             LimpaSQL(DM.SqlAux5);
             SQL.Add('SELECT * FROM CTE05 WHERE CODC=:xCODC');
             Parameters.ParambyName('xCODC').Value := StrToInt(txtCod.Text);
             Open;
             First;
           end;
           j := 0;
           j := DM.SqlAux5.RecordCount;
           if j > 0 then begin
             for i := 1 to j do begin
               with infCTeNorm.infDoc.infNFe.Add do begin
                 chave := Trim(DM.SqlAux5.FieldByName('CHAVE').AsString);
                 PIN   := Trim(DM.SqlAux5.FieldByName('PIN').AsString);
                 dPrev := StrToDate(txtGeraDtPrevista.Text);
               end;
               DM.SqlAux5.Next;
             end;
           end;
     
    Faço assim e dá certo...
     
    Abraço,
    Wagner

    Dacte Saindo Em 2 Folhas

    em ACBrCTe

    Postado

    Olá bom dia...

     

    Depois que eu atualizei os meus fontes para o CTe 2.0 os meus DACTE estão saindo em 2 folhas... E tem alguns clientes meus que imprimi mais de 1000 DACTE mês... E é claro eles estã maluco...

     

    Baixei as atualizações em 06/05/2014

     

    O meu DACTE é em quickreport, o que eu posso fazer para voltar sair em apenas 1 página?

     

    Grato

×
×
  • 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.