Jump to content

dev botao

ACBRUTIL NÃO LÊ TAG


Go to solution Solved by Vander Ramos,
  • Este tópico foi criado há 1258 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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 comment
Share on other sites

  • 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 comment
Share on other sites

  • Consultores

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

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"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 comment
Share on other sites

  • Este tópico foi criado há 1258 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.