Factura Electronica Paraguay - SIFEN

JCz · #1 09-09-2022

Buenas;

Adjunto las clases generadas por el asistente del Delphi para la generación de los XML de la factura electronica.

JCz · #2 11-09-2022

por si sirva a alguien como guia, paso formato de los xml de, cambiando los datos sensibles por XXXXXX
Factura
AutoFactura
Nota de Credito
Nota de debito
Nota de Remision

dec · #3 11-09-2022

Hola a todos,

Muchas gracias, también en nombre de quienes han descargado tus archivos, por tu aportación.

Casimiro Notevi · #4 11-09-2022

JCz · #5 20-09-2022

Adjunto la función que utilizo para generar la url del QR

Código Delphi [-]function TdmSIGCZFE.generarQR(
                              _QRVersion : AnsiString;                      // Version del Manual Técnico = 150
                              _QRId : AnsiString;                             // código CDC string de 44 caracteres 
                              _QRdFeEmiDE : AnsiString;                 // Fecha emision del D.E.
                              _QRdRucRec : AnsiString;                   // RUC del contribuyente
                              _QRdTotGralOpe : AnsiString;             // importe total de la operación
                              _QRdTotIVA : AnsiString;                   // importe del IVA de la operación
                              _QRcItems : AnsiString;                    // cantidad de items facturado
                              _QRDigestValue : AnsiString;            // Digest de la firma
                              _QRIdCSC : AnsiString;                    // id del Codigo CSC facilitado por la SET para la generación de la url (puede haber 2)
                              _QRCSC : AnsiString): AnsiString;    // Código CSC facilitado por la SET para la generación de la url  (puede haber 2)
var
      _cHashQR : AnsiString;
      _QR,_QRCalcHash : AnsiString;
begin

      _QR := 'nVersion='+_QRVersion +'&' +
              'Id='+_QRId+'&' +
              'dFeEmiDE='+ lowercase((String2Hex(_QRdFeEmiDE))) +'&' +   //convertimos la fecha en su valor hexadecimal
              ''+_QRdRucRec +'&' +
              'dTotGralOpe='+_QRdTotGralOpe + '&' +
              'dTotIVA='+ _QRdTotIVA + '&' +
              'cItems='+ _QRcItems + '&' +
              'DigestValue=' + lowercase((String2Hex(_QRDigestValue))) + '&' +  //convertimos el digest de la firma en su valor hexadecimal
              'IdCSC=' + _QRIdCSC;


      _QRCalcHash := _QR + _QRCSC;                              // al valor calculado en paso anterior se adiciona el codigo CSC
      _cHashQR    :=  GetStrHashSHA256(_QRCalcHash);  // el resultado del paso anterior lo Generaramos el Hash

      _QR := _QR + '&cHashQR=' + _cHashQR;

      if idAmbienteActual = 1 then // ambiente de prueba
            _QR := urlQRPrueba + _QR
      else  if idAmbienteActual = 2 then  // ambiente de producción
            _QR := urlQRProduccion + _QR;

      result := StringReplace(_QR,'&','&',[rfReplaceAll, rfIgnoreCase]);  // escapamos el & por '&'
end;

abajo las otras funciones utilizadas

Código Delphi [-]function String2Hex(const Buffer: AnsiString): string;
begin
  SetLength(Result, Length(Buffer) * 2);
  BinToHex(PAnsiChar(Buffer), PChar(Result), Length(Buffer));
end;

Código Delphi [-]function GetStrHashSHA256(Str: String): String;
var
  HashSHA: THashSHA2;
begin
    HashSHA := THashSHA2.Create;
    HashSHA.GetHashString(Str);
    result := HashSHA.GetHashString(Str,SHA256);
end;

JCz · #6 20-09-2022

el resultado de la función se debe agregar al xml en el tag

Código:

<gCamFuFD>
<dCarQR>h_t_t_p_s://ekuatia.set.gov.py/consultas-test/qr?nVersion=150&amp;Id=010XXXXXX001001000006212022091914019076583&amp;dFeEmiDE=323032322d30392d31395431393a33313a3331&amp;dRucRec=XXXXXX&amp;dTotGralOpe=1036424.00&amp;dTotIVA=94220.35&amp;cItems=3&amp;DigestValue=70757447585833595a5a66555263354d2f724658716135504c776c64716f7a46635449384b44323843666f3d&amp;IdCSC=0001&amp;cHashQR=d4691e96002fdc2ed6518055f2ba983a59cd940a24f7ed43a3f82454d5fbc719
</dCarQR>
</gCamFuFD>

JCz · #7 21-10-2022

Para la firma del XML utilizo la librería de Chilkat; paso en adjunto como lo hago.

Saludos!!

JEBOJEDA · #8 13-01-2023

hola buen dia

en el archivo recibe.pas, llama una funciona que el compilador no lo encuentra y no veo una unidad en el USES tampoco,

--- > function rEnviDe(const rEnviDe: rEnviDe): rRetEnviDe; stdcall;

Gracias. y Saludos...

JCz · #9 15-01-2023

Recibe.pas es para consumir el servicio que recibe el xml dela factura electrónica, con que versión de Delphi lo estás probando? Como tratas de consumir el web service?

JCz · #10 15-01-2023

Cita:

Empezado por JEBOJEDA

hola buen dia

en el archivo recibe.pas, llama una funciona que el compilador no lo encuentra y no veo una unidad en el USES tampoco,

--- > function rEnviDe(const rEnviDe: rEnviDe): rRetEnviDe; stdcall;

Gracias. y Saludos...

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

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

hoyosfelix · #11 02-08-2023

Hola.

Gracias por compartir tu código aquí.

Te hago una pregunta:

¿Vos decís que va a ser posible implementar todo esto en Lazarus?

Saludos.

JCz · #12 02-08-2023

Cita:

Empezado por hoyosfelix

Hola.

Gracias por compartir tu código aquí.

Te hago una pregunta:

¿Vos decís que va a ser posible implementar todo esto en Lazarus?

Saludos.

Hola, no veo porque no se podría ya que ambos tienen Pascal como lenguaje base, desconozco si Lazarus tiene el equivalente al componente Httprio que es en gran parte el utilizado para el consumo del webservice del SIFEN.

Saludos y suerte con el proyecto.

Casimiro Notevi · #13 02-08-2023

Seguramente este: https://wiki.lazarus.freepascal.org/...ervice_Toolkit

marioerp · #14 05-08-2023

Cita:

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 · #15 05-08-2023

Cita:

Empezado por marioerp

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

Gracias.

Buenas

Paso como lo tengo yo.

Saludos

marioerp · #16 06-08-2023

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 · #17 08-08-2023

Cita:

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 · #18 08-08-2023

Cita:

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 · #19 09-08-2023

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 · #20 09-08-2023

Cita:

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

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
xml+xsl a pdf(Factura Electronica)	jgutti	Varios	4	21-02-2012 16:08:23
Factura electronica	richy08	Varios	4	17-12-2010 00:40:34
Factura Electrónica	aig	Varios	13	10-12-2010 17:12:44
factura electronica	cmm07	Varios	4	02-04-2009 17:46:03
factura electronica	spia	Varios	2	22-02-2009 21:30:06