Pesquisar na Comunidade
Showing results for tags 'protocolo de envio'.
Encontrado 1 registro
-
Olá! Estou utilizando o ExemploeSocial que acompanha o ACBr como base para enviar os eventos para o eSocial e queria saber como eu poderia pegar o campo nrRecibo, da Tag recibo do arquivo de retorno, e gravar na minha tabela. Já tentei de várias formas, mas não estou tendo sucesso. Alguém poderia me ajudar? Desde já, obrigado. (...) <?xml version="1.0" encoding="UTF-8"?> <eSocial xmlns="http://www.esocial.gov.br/schema/lote/eventos/envio/retornoProcessamento/v1_3_0" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> <retornoProcessamentoLoteEventos> <retornoEventos> <evento Id="ID1230691980000002018100312591100003"> <retornoEvento> <eSocial xmlns="http://www.esocial.gov.br/schema/evt/retornoEvento/v1_2_0"> <retornoEvento Id="ID1230691980000002018100312591100003"> <recepcao> <tpAmb>1</tpAmb> <dhRecepcao>2018-10-03T13:01:49.53</dhRecepcao> <versaoAppRecepcao>0.1.0-A0349</versaoAppRecepcao> <protocoloEnvioLote>1.1.201810.0000000000184437735</protocoloEnvioLote> </recepcao> <recibo> <nrRecibo>1.1.0000000002076970009</nrRecibo> (...) Estou tentando adaptar um exemplo que encontrei na web, mas estou "muito perdido": procedure TFrmLerGravarTagXML.BtnnrRecibo(Sender: TObject); var vXMLDoc: TXMLDocument; Node_retornoProcessamentoLoteEventos, Node_retornoEventos, Node_eSocial, Node_retornoEvento, Node_recibo : IXMLNode; begin vXMLDoc := TXMLDocument.Create(self); vXMLDoc.LoadFromFile('c:\LiDelphiXE\LerGravarTagXML\eSocial-sit.xml'); //Le Arquivo Recibo XML'); Memo1.lines.Add( VXMLDoc.XML.Text +#13+#13 ); repeat Node_retornoProcessamentoLoteEventos := vXMLDoc.DocumentElement.ChildNodes.FindNode('retornoProcessamentoLoteEventos'); Node_retornoEventos := Node_retornoProcessamentoLoteEventos; Node_retornoEventos.ChildNodes.FindNode('retornoEventos'); Node_eSocial := Node_retornoEventos; Node_eSocial.ChildNodes.FindNode('eSocial'); Node_retornoEvento := Node_eSocial; Node_retornoEvento.ChildNodes.FindNode('recibo'); Node_recibo := Node_retornoEvento; if recibo <> '' then Memo2.Lines.Add( recibo ); until Node_recibo = nil;; end; eSocial-sit-parte.xml
- 8 replies
-
- acbresocial
- protocolo de envio
- (e 1 mais)