wagner_fix

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

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

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

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.

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.

Segue novamente em anexo e em texto Erro: SMTP ERROR: Login:??? - Other undefined Status

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?

Italo Perfeito.... Valeu

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

í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

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

Ítalo em primeiro lugar como sempre obrigado pela resposta... Ao conferir o código para te enviar vi que eu estava assinando novamente na hora de enviar o e-mail.. Já arrumei e funcionou... Obrigado e desculpa.. Tem como eu apagar esse tópico?

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

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

Italo muito obrigado funcionou perfeitamente... Você não tem idéia de como irá me ajudar... Grato

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

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

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

Fabiofranzini continuo com o mesmo problema... Juliomar todas as fontes atualizadas... Grato, Wagner

Wislei foi o que o Fabio disse... É que o CT-e está ocupando 2 folhas... Se alguém puder ajudar agradeço...

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

Ítalo era puro erro meu... Eu estava procurando dentro dos TXT de vez olhar no exemplo em delphi... Já consegui... Abraço Wagner

Italo grato pela resposta... Você tem esse exemplo de código? Já procurei em vários lugares e não estou encontrando... As vezes posso estar procurando errado... Grato

Pessoal alguém tem um exemplo de quickreport para impressão para carta de correção para CT-e. Grato, Wagner

Valeu pela dica Ítalo funcionou perfeitamente... Creio que essa é da forma correta... Abraço, Wagner