Factura Electronica Paraguay - SIFEN

[lucasvaz25]

Estimados, he comenzado el desarrollo del envío del DE al SIFEN, pero tengo dificultades para consumir el WS. Si alguien puede ayudarme, se lo agradezco.Soy nuevo en el foro, si estoy haciendo algo mal, pido disculpas.

[JCz]

Empezado por lucasvaz25

Estimados, he comenzado el desarrollo del envío del DE al SIFEN, pero tengo dificultades para consumir el WS. Si alguien puede ayudarme, se lo agradezco.Soy nuevo en el foro, si estoy haciendo algo mal, pido disculpas.

Hola Lucas
Como lo estás intentando? Tenes algo hecho? Con que versión de Delphi estás trabajando?; son consultas básicas para saber donde estás parado, pues tu consulta es algo genérica.

[lucasvaz25]

Utilizo la versión Delphi 10.4, ya logré armar el XML, también tenía problemas con la firma, pero los pude resolver. Finalmente, al intentar probar el envío, siempre devuelve el error 400.

[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.