Factura Electronica Paraguay - SIFEN

[JCz]

Empezado por marioerp

Gracias JCZ, estoy tratando de consumir con delphi 10.2, al parecer el HTTPRIO en esta version no tiene la propiedad HTTPWebNode.SecureProtocols.

Podrias pasarme tu contacto (email o whatsapp) para ver si podemos conversar un poco mas?

Buenas, para procesar no es necesario configurar en tiempo de ejecución el TLS, yo lo hago porque uno de los (PSC) Code100 emite mal el certificado, según manual 150 debe ser TLS2 pero CODE100 emite mal y hay que forzar el envío en TLS1.

Si tienes el Certificado de otro PSC puede obviar esa sección. Yo uso D11, no tengo como probar en D10.

Saludos

[marioerp]

Empezado por JCz

Buenas, para procesar no es necesario configurar en tiempo de ejecución el TLS, yo lo hago porque uno de los (PSC) Code100 emite mal el certificado, según manual 150 debe ser TLS2 pero CODE100 emite mal y hay que forzar el envío en TLS1.

Si tienes el Certificado de otro PSC puede obviar esa sección. Yo uso D11, no tengo como probar en D10.

Saludos

Del mismo emisor es mi certificado, code 100.

[marioerp]

Buenas.

Adjunto proyecto de consultar ruc de la set... Tengo problemas para anhadirle el certificado, si pueden corregir donde estoy errando seria de gran ayuda.

[JCz]

Empezado por marioerp

Buenas.

Adjunto proyecto de consultar ruc de la set... Tengo problemas para anhadirle el certificado, si pueden corregir donde estoy errando seria de gran ayuda.

Buenas

1- El certificado debe estar instalado en la PC

2- No haz incluido el procedure findclientcertificate

Código Delphi [-]
procedure TdmRIO.findClientCertificate(
  const Sender: TObject; const ARequest: TURLRequest;
  const ACertificateList: TCertificateList; var AnIndex: Integer);
var
    i : integer;
begin
      for I := 0 to ACertificateList.Count-1 do begin
          if SameText(ACertificateList[i].SerialNum,'74926b31c944fe9648575fa99162761a') then begin
            AnIndex := I;
            break;
          end;
      end;
end;

3- "Descomenta" esta parte

Código Delphi [-]
 HTTPRIOConsultaRUC.HTTPWebNode.ClientCertificate.SerialNum := '74926b31c944fe9648575fa99162761a';
 HTTPRIOConsultaRUC.HTTPWebNode.OnNeedClientCertificate := findClientCertificate;
 HTTPRIOConsultaRUC.OnBeforeExecute := BeforeExecute;
 HTTPRIOConsultaRUC.OnAfterExecute  := AfterExecute;

4- Utiliza el protocolo TLS1.1

Código Delphi [-]
HTTPRIOConsultaRUC.HTTPWebNode.SecureProtocols := [THTTPSecureProtocol.TLS11];

Saludos

[marioerp]

Ejecutando hasta la linea
ssRequest.WriteString(SobreSoap('rEnviConsRUC', RUC, Random(1000)));

Me da este error.

Project ConsultarRuc.exe raised exception class ESOAPHTTPException with message 'Error (400) - 'https://sifen.set.gov.py/de/ws/consultas/consulta-ruc.wsdl?wsdl''.

valores:
defWSDL = '';

defURL := 'https://sifen.set.gov.py/de/ws/consultas/consulta-ruc.wsdl?wsdl';
...
Estos valores no sera el problema, esta bien?

[JCz]

Empezado por marioerp

Ejecutando hasta la linea
ssRequest.WriteString(SobreSoap('rEnviConsRUC', RUC, Random(1000)));

Me da este error.

Project ConsultarRuc.exe raised exception class ESOAPHTTPException with message 'Error (400) - 'https://sifen.set.gov.py/de/ws/consultas/consulta-ruc.wsdl?wsdl''.

valores:
defWSDL = '';

defURL := 'https://sifen.set.gov.py/de/ws/consultas/consulta-ruc.wsdl?wsdl';
...
Estos valores no sera el problema, esta bien?

Buenas
defURL de ser https://sifen.set.gov.py/de/ws/consu...sulta-ruc.wsdl quita el ?wsdl al final.

Saludos.

[marioerp]

Es correcta, la direccion era el problema, osea el ultimo problema, ya trae los datos, aprovechando vas variables ya se puede mostrar.

JCz, si puedes, podrias escribirme a mi correo yousyus13@gmail.com o pasame el tuyo, quisiera adraderte mejor.

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

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;

[encorepy]

Buenas por si les interese les dejo una API que pueden integrar con sus sistema para generar, firmar y enviar el XML al sifen:
factpy