ACBRUTIL NÃO LÊ TAG

[Vander Ramos]

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;
 

 

[Daniel Simoes]

Por favor execute wXMl.SaveToFile e anexe o arquivo gerado...

[Vander Ramos]

segue XMLRetorno.xml

[Vander Ramos]

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;
 

[Italo Giurizzato Junior]

Boa tarde Vander,

Esse XML de retorno é de qual webservice?

[Vander Ramos]

WS de um Cliente (ERP). 

 

abs

 

Vander

 

[Victor H. Gonzales - Panda]

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