Factura Electronica Paraguay - SIFEN

[marioerp]

Empezado por JCz

Ahora me percaté, debes cambiar esa función por esta

Código Delphi [-]
  function  rEnviDe(const rEnviDe: UnicodeString): UnicodeString; stdcall;

Podrian publicar un ejemplo llamando al servicio de consultar ruc..

Gracias.

[JCz]

Empezado por marioerp

Podrian publicar un ejemplo llamando al servicio de consultar ruc..

Gracias.

Buenas


Paso como lo tengo yo.


Saludos

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

[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