Paulo Augusto

Alguem que grava o xml de retorno de um evento..ta cosneguindo carrega-lo e imprimir ?

boa tarde Juliomar ja conferi no exemplo do snv e por incrivel que pareca foi comentado os codigos que funcionava, restando apenas esse retorno ACBrNFe.WebServices.EnvEvento.RetWS onde usa a rotina para ler, converter para UTF8. acim a esta todo o codigo que usei, para enviar o evento, pegar o retorno gravar no banco, e em seguida ler o xml do banco para entao fazer a impressao, e os xmls tbem ja estao anexados logo mais acima, creio que ambos os xmls estao ok, ja comparei ele com o xml antigo ja fiz a impressao, e esta igual, nao sei mais o que fazer.... mas vou postar aki novamente a rotina para envio do evento DmNF.NFe.EventoNFe.Evento.Clear; DmNF.NFe.EventoNFe.idLote := Dm.qryEventosenvio_lote.AsInteger ; with DmNF.NFe.EventoNFe.Evento.Add do begin infEvento.chNFe := Dm.qryEventoswebservice_chave.AsString; infEvento.CNPJ := ParametrosSistema.Empresa.CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := Dm.qryEventoscce_seq.AsInteger; infEvento.detEvento.xCorrecao := Dm.qryEventosenvio_texto.AsString; end; DmNF.NFe.EnviarEvento(Dm.qryEventosenvio_lote.AsInteger); Gravando retorno no Banco StartTrasanction(Dm.UConnection); try Dm.qryEventos.Edit; Dm.qryEventosretorno_cstat.AsInteger := DmNF.NFe.WebServices.EnvEvento.cStat; Dm.qryEventosretorno_xmotivo.AsString := DmNF.NFe.WebServices.EnvEvento.xMotivo; Dm.qryEventosretorno_xprot.AsString := DmNF.NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; Dm.qryEventosretorno_dhrecibo.AsDateTime := DmNF.NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; Dm.qryEventosretorno_xml.AsString := DmNF.NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML; if trim(Dm.qryEventosretorno_xml.AsString) = '' then Dm.qryEventosretorno_xml.AsString := DmNF.NFe.WebServices.EnvEvento.RetWS; Dm.qryEventossituacao.AsInteger := iffthen(MatchStr(IntToStr(DmNF.NFe.WebServices.EnvEvento.cStat),['135','136']),1,2); Dm.qryEventos.Post; CommitTransaction(Dm.UConnection); if MatchStr(IntToStr(DmNF.NFe.WebServices.EnvEvento.cStat),['101','128','135','136']) then DmNF.NFe.ImprimirEvento; except on e: exception do begin RollbackTransaction(Dm.UConnection); MensagemErro('Falha ao gravar o retorno da Carta de Correção' + sLineBreak + 'Erro: ' + e.Message); end; end; Na tela de Notas Fiscais, secao Eventos, ler o xml e imprimir if (qryEventosretorno_cstat.AsInteger in [101, 135, 128]) then begin DmNf.NFe.NotasFiscais.Clear; DmNf.NFe.EventoNFe.Evento.Clear; DmNf.ConfiguraNFe(qryNFeGridide_mod.AsInteger); try DmNf.NFe.NotasFiscais.LoadFromString(qryNFeGridwebservice_xml_ret.AsString); DmNf.NFe.EventoNFe.LerXMLFromString(qryEventosretorno_xml.AsString); <<<======ERRROOOOO!!!! DmNf.NFe.ImprimirEvento; except on e: exception do begin MensagemErro('Falha ao tentar imprimir o danfe desse evento' + sLineBreak + 'Erro: ' + e.Message); end; end; end; Ao debugar o metodo LerXmlString(); //unit pcnEnvEventoNFe: Linha 376 RetEventoNFe.Leitor.Arquivo := AXML; <<=== aqui mostra o conteudo do xml - perfeito Result := RetEventoNFe.LerXml; // unit pcnRetEnvEventoNFe linha 188 - function TRetEventoNFe.LerXml: Boolean; Leitor.rAtributo('Id'); <<<=== A partir daqui o xml misteriosamente esapareceu e o metodo nao consegue mais ler nenhuma TAG.

acabei de atualizar o ACBr e o erro continua, segue a minha saga...

então, na msg acima listo todas as propriedades que estão retornando em branco , por isso que mudei de propriedade ate encontrar uma q retorne o xml, porem..nao consigo ler o xml, ou seja acho q temos dois erros na rotina, 1ª - a propriedade DmNF.NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML, vem vazia 2ª - o xml q retorna na propriedade DmNF.NFe.WebServices.EnvEvento.RetWS; o componente nao consegue ler.

DmNF.NFe.EventoNFe.Evento.Clear; DmNF.NFe.EventoNFe.idLote := Dm.qryEventosenvio_lote.AsInteger ; with DmNF.NFe.EventoNFe.Evento.Add do begin infEvento.chNFe := Dm.qryEventoswebservice_chave.AsString; infEvento.CNPJ := ParametrosSistema.Empresa.CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := Dm.qryEventoscce_seq.AsInteger; infEvento.detEvento.xCorrecao := Dm.qryEventosenvio_texto.AsString; end; DmNF.NFe.EnviarEvento(Dm.qryEventosenvio_lote.AsInteger); Tentei todos esses retornos e quase todos retorna vazio. Dm.qryEventosretorno_xml.AsString := DmNF.NFe.EventoNFe.Evento.Items[0].RetInfEvento.XML; <Vazio> Dm.qryEventosretorno_xml.AsString := DmNF.NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML; <Vazio> Dm.qryEventosretorno_xml.AsString := DmNF.NFe.WebServices.EnvEvento.EventoRetorno.XML; <Vazio> Dm.qryEventosretorno_xml.AsString := DmNF.NFe.WebServices.EnvEvento.RetWS; <xml retornado> mesmo gravando esse, ultimo retorno, quando vou imprimir a carta de correcao, conforme rotina mais acima, lendo o xml gravado na tabela retorna o erro na linha que le o xml if (qryEventosretorno_cstat.AsInteger in [101, 135, 128]) then begin DmNf.NFe.NotasFiscais.Clear; DmNf.NFe.EventoNFe.Evento.Clear; DmNf.ConfiguraNFe(qryNFeGridide_mod.AsInteger); try DmNf.NFe.NotasFiscais.LoadFromString(qryNFeGridwebservice_xml_ret.AsString); DmNf.NFe.EventoNFe.LerXMLFromString(qryEventosretorno_xml.AsString); DmNf.NFe.ImprimirEvento; except on e: exception do begin MensagemErro('Falha ao tentar imprimir o danfe desse evento' + sLineBreak + 'Erro: ' + e.Message); end; end; end;

Eu nao entendi, sempre usei o xml de retorno do evento, esse: voce esta sugerindo que eu use o xml de envio ?

Essa rotina estava funcionando normalmente ate a penúltima atualização que fiz. clear só na nota, mas acabei de colocar um clear no evento, e o erro persiste. quando gero o evento, e apos o retorno peco pra imprimir, funciona. o problema esta quando, quero reimprimi esse evento, e carrego os dados..para impressa if (qryEventosretorno_cstat.AsInteger in [101, 135, 128]) then begin DmNf.NFe.NotasFiscais.Clear; DmNf.NFe.EventoNFe.Evento.Clear; DmNf.ConfiguraNFe(qryNFeGridide_mod.AsInteger); try DmNf.NFe.NotasFiscais.LoadFromString(qryNFeGridwebservice_xml_ret.AsString); DmNf.NFe.EventoNFe.LerXMLFromString(qryEventosretorno_xml.AsString); DmNf.NFe.ImprimirEvento; except on e: exception do begin MensagemErro('Falha ao tentar imprimir o danfe desse evento' + sLineBreak + 'Erro: ' + e.Message); end; end; end;

EStou tendo problemas com a impressão da carta de correção em meus clientes, acabei de fazer a atualizacao do componente, e mesmo usando o ACBrNFe_Demo, para dar carga no XML da nota, qndo carrego o XML retornado da correcao, aparece o seguinte erro: --------------------------- Debugger Exception Notification --------------------------- Project ACBrNFe_demo.exe raised exception class EventoException with message 'Campo cOrgao não informado'. --------------------------- Break Continue Help --------------------------- debugando cheguei na função TEventoNFe.LerXMLFromString(const AXML: String); no metodo: Result := RetEventoNFe.LerXml; o mesmo nao consegue ler nenhuma TAG do xml lido. alguem esta conseguindo imprimir a carta de correção : temp.xml 52180403748920000180550010000000011000000016-nfe.xml

tive erro com o retorno do XML, ai vi que no novo ACBrNFe_Demo, a rotina de retorn usa somente a propriedade .retWS, gravei ela no banco para que pudesse imprimir ou enviar por email, porem o erro agora é na funcao TEventoNFe.LerXMLFromString(const AXML: String); no metodo: Result := RetEventoNFe.LerXml; o mesmo nao consegue ler nenhuma TAG do xml lido.

Valeu amigo, consegui resolver aki..muto obrigado pela dica!!

Fabio borges, poderia me mostrar qual a linha e como fez a alteração que vc mencionou. Obrigado!

oi boa noite, vou fazer o teste aki

entao, notei isso, porem esse xml é de um fornecedor, e meu cliente baixou e foi importar, e veio meio bugado. mas..teria como fazer o ajuste ...ou teria q recomendar o fornecedor q o xml gerado por ele, estaria com falha...o q vc sugere?

Estou com problema no retorno, ao carregar o XML, esta trazendo os acentos no formato HTML, e ai esta bugado o complemento, no xml esta certo, o erro esta ao ler a informacao. segue o xml e a imgem de como esta trazendo 52171100552646001234550010000055991009995106.xml

Ressuscitando esse post, o componente ACBrConsultaCNPJ1, quase todas as informações pertinentes, porem, nao traz a IE. teria como trazer a IE do cnpj consultado

vou baixar e testar novamente. obrigado!

Pois é Juiomar, vi praticamente todos os post referentes ao assunto e testei as mais variadas combinações, eu e o meu cliente temos a mesma balança, testei la não deu certo, então peguei o cabo dele e vim testar com a minha, e por enquanto nao tive nenhum sucesso. na segunda vou ligar no suporte da toledo pra ver se tem algo mais, prq ja to quase desistindo dessa balança.

Problema para ler o peso de uma balança Toledo Prix Light. Acabei de Baixar o demo acima, e atualizei os fonts (ACBr), Delphi Seatle Windows 7 ajustei a porta e o demo com as seguintes configurações: BoundRate = 4800;Bata Bits = 8;Stop Bits = 1;Parity e HandShake = none; A leitura do peso continua -9.000, alg sugestao....

consultando a nota..e ao consultar vc pega o cStat

vou tentar aki...vlw

Não estou conseguindo validar o xml da nfce, alguma dica nao consegui identifcar o problema teste_ncfe.xml

Oi Luliomar, sim marquei a opção de mostrarPreview, e qndo manda imprimir (visualizar) abre normal, mas ai qndo clica no botao imprimir, mesmo erro

Após visualizar o boleto, quando clico na opção imprimir aparece o seguinte erro: List index out of bounds(-1) Objeto: EditPageNo Obs: acabei de atualizar os componentes, (Trunk2) Delphi XE6

Descobri aki, provedor de goiania usa tabela propria de cidades, implementei aki e emitiu....

Estou tendo problema ao enviar nota para o provedor de goiania, estou testando ainda, e ao enviar recebo a seguinte mensagem, seguida de outra mensagem try xMotivo := ''; NFSe.Gerar(qryNFSeide_nrps.AsInteger, iLote, False); except on e: exception do begin xMotivo := e.Message; end end; 2-ger-nfse.xml