Ir para conteúdo
  • Cadastre-se

Vander Ramos

Membros Pro
  • Total de ítens

    29
  • Registro em

  • Última visita

Community Answers

  1. Vander Ramos's post in ACBRUTIL NÃO LÊ TAG was marked as the answer   
    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;
     
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.