Ver Mensaje Individual
  #12  
Antiguo 09-07-2024
JCz JCz is offline
Miembro
 
Registrado: oct 2021
Posts: 35
Reputación: 0
JCz Va por buen camino
Cita:
Empezado por lucasvaz25 Ver Mensaje
Código Delphi [-]
FHttpRio.HTTPWebNode.URL        := Url;
 FHttpRio.HTTPWebNode.SOAPAction := ''; // URLSoapAction + Qualificador;
 Acao := TStringList.Create;
  try
    Acao.Text := SOAP;
    Acao.SaveToFile( 'P:\prueba.xml' );
    Stream := TMemoryStream.Create;
    try
      FHttpRio.HTTPWebNode.Execute( Acao.Text, Stream );
      StrStream := TStringStream.Create( '', TEncoding.UTF8 );
      try
        StrStream.LoadFromStream( Stream );
        Resposta := TStringList.Create;
        try
          Resposta.Delimiter := '|';
          Resposta.Text      := StrStream.DataString;
          LTempXMLDoc := LoadXMLData( Resposta.Text );
          Node        := LTempXMLDoc.DocumentElement;
          if Node.ChildNodes.Count = 2 then
            Node := Node.ChildNodes[ 1 ].ChildNodes[ 0 ].ChildNodes[ 0 ]
          else if Node.ChildNodes.Count = 1 then
            Node := Node.ChildNodes[ 0 ].ChildNodes[ 0 ].ChildNodes[ 0 ];
          Result := Node.XML;
        finally
          Resposta.Free;
        end;
      finally
        StrStream.Free;
      end;
    finally
      Stream.Free;
    end;
  finally
    Acao.Free;
  end;

Consulta; Tienes el certificado para la firma del XML y comunicación con el SIFEN?

Llegaste a consumir el webservice de Consulta de RUC? la pregunta va pues es el webservice más básico y si lograste consumir el mismo es que vas por buen camino.

te paso como consumo el webservice de consulta de RUC, te servirá para empezar.

Saludos
Archivos Adjuntos
Tipo de Archivo: zip CONSULTARUC.zip (1,7 KB, 12 visitas)
Responder Con Cita