Factura Electronica Paraguay - SIFEN

[lucasvaz25]

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;

[JCz]

Empezado por lucasvaz25

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

[lucasvaz25]

Empezado por JCz

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

Aún no he logrado consumir ningún servicio, pero tengo el certificado. Empezaré por esa parte entonces. Iré informando sobre mi progreso. Agradezco el soporte.

[lucasvaz25]

Buenas tardes, estimados. Me gustaría, en primer lugar, agradecer la ayuda, ya que pude realizar la comunicación con el ws. Algunos datos de la documentación están desactualizados y eso estaba causando la dificultad. Ahora tengo algunas cosas que resolver.
Por ejemplo, el retorno del Sifen al transmitir FE es que el valor del campo dDesTiDE es inválido, Pero el valor informado es el que consta en la documentación: Factura electrónica.
¿Alguien ha pasado por esto?

[JCz]

Empezado por lucasvaz25

Buenas tardes, estimados. Me gustaría, en primer lugar, agradecer la ayuda, ya que pude realizar la comunicación con el ws. Algunos datos de la documentación están desactualizados y eso estaba causando la dificultad. Ahora tengo algunas cosas que resolver.
Por ejemplo, el retorno del Sifen al transmitir FE es que el valor del campo dDesTiDE es inválido, Pero el valor informado es el que consta en la documentación: Factura electrónica.
¿Alguien ha pasado por esto?

Pasa tu xml para mirar como lo envias; tené en cuenta la codificación tambien que debe ser en UTF8 para que te acepte las tildes y ñ.

Saludos.

[lucasvaz25]

Empezado por JCz

Pasa tu xml para mirar como lo envias; tené en cuenta la codificación tambien que debe ser en UTF8 para que te acepte las tildes y ñ.

Saludos.

prueba.rar sigue el xml.

[JCz]

Empezado por lucasvaz25

Archivo Adjunto 4188 sigue el xml.

está dañado el archivo; ten en cuenta lo del cambio de codificación, unos mensajes más arriba comentado.