Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

logos

Texto.png

p200

ACBRUTIL NÃO LÊ TAG


Go to solution Solved by Vander Ramos,

Recommended Posts

  • Usuários SAC

Olá PessoALL, ACBRUtil.LerTagXML()  não está buscando o conteudo da TAG  LogDeDados dentro do XML: 

 

XML ORIGINAL (NÃO É UM ARQUIVO)
<SSA_EAI xmlns=""><Principal><TASK><Status>-2</Status><Processo>NFSE                                                        </Processo><LogDeDados>Iniciar o processo NFSE Com ID [BD42809] <br /> Serviço (1000027) não registrado como Item de Estoque, ou sem vínculo com o Código de Serviços Municipais para a cidade da empresa <br /> Item de estoque 1000027 não cadastrado <br /> Operação não realizada identificador de integracao BD42809              <br /> </LogDeDados></TASK></Principal></SSA_EAI>

 

procedure TfrmPrincipal.Button6Click(Sender: TObject);
var
  wProtocolo : String ;
  wXML : TStringlist ;
begin

 //localiza protocolo em pdx_MySql.ssa_retorno_protocolo
pdx_qryGrvSSA.Close ;
pdx_qryGrvSSA.Open('select ssa_protocolo from ssa_retorno_protocolo where ssa_protocolo = :pProtocolo', [edit2.text]);
pdx_qryGrvSSA.FetchAll ;

if pdx_qryGrvSSA.RecordCount > 0 then
 begin
   try

    wProtocolo := pdx_qryGrvSSA.FieldByName('ssa_protocolo').AsString ;

     wTag := 'LogdeDados' ;
     wXML := TStringList.Create ;
     wXMl.LoadFromStream(GetSSA_EAISoap.ConsultTask('fbqwerft',wProtocolo).XMLNode.XML);
     ShowMessage(ACBRUtil.LerTagXML(GetSSA_EAISoap.ConsultTask(wXML.Text, wTag)) ;

   finally

   end;
 end;

end;
 

 

Link to post
Share on other sites
  • Usuários SAC
  • Solution

Olá Daniel

 

 

 Acredito que resolvi por aqui com esta rotina:

 

procedure TfrmPrincipal.Button6Click(Sender: TObject);
var
  wProtocolo : String ;
  wXML : TStringlist ;
begin
 //localiza protocolo em pdx_MySql.ssa_retorno_protocolo
 pdx_qryGrvSSA.Close ;
 pdx_qryGrvSSA.Open('select ssa_protocolo from ssa_retorno_protocolo where ssa_protocolo = :pProtocolo', [edit2.text]);
 pdx_qryGrvSSA.FetchAll ;

 if pdx_qryGrvSSA.RecordCount > 0 then
  begin
    try
    wProtocolo := pdx_qryGrvSSA.FieldByName('ssa_protocolo').AsString ;

     wXML := TStringList.Create ;
     wXML.Text := ReplaceStr(ReplaceStr(GetSSA_EAISoap.ConsultTask('fbq1wl',wProtocolo).XMLNode.XML, '&lt;', '<'), '&gt;', '>');

     wTag := 'LogdeDados' ;

     //Grava MYSql
     pdx_qryGrvSSA.Close ;
     pdx_qryGrvSSA.ExecSQL('update ssa_retorno_protocolo set ssa_logdados = :pLodDados where ssa_protocolo = :pProtocolo',
                           [ACBRUtil.LerTagXML(wXml.Text, wTag), edit2.Text]) ;
    finally
      wXML.Free ;
    end;
end;

end;
 

  • Like 2
Link to post
Share on other sites

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Att.

Victor H. Gonzales - Pandaaa

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
×
×
  • Create New...