Datos de entrada.
Está versión necesita la URL de timbrado, el token y un XML sellado.
Datos de salida.
Dependientes de la versión de timbrado que se utilice.
- Versión 1
- TFD (Timbre Fiscal Digital)
- Versión 2
- TFD
- CFDI (Con TFD)
- Versión 3
- CFDI (Con TFD)
- Versión 4
- CFDI (Con TFD)
- CadenaOriginalSat
- noCertificadoSat
- noCertificadoCFDI
- UUID
- selloSAT
- selloCFDI
- fechaTimbrado
- QRCode
Uso de Token.
Obtener un Token de acceso utilizando nuestras librerías, o en su defecto usar Token Infinito
Pasos para Timbrar utilizando el SDK de Delphi
- Paso 1:
Crear un nuevo proyecto en Embarcadero
- Paso 2:
Crear una interfaz para facilitar el proceso.
- Paso 3:
Añadir las clases de timbrado a nuestro proyecto.
- Paso 4:
Dentro del código de nuestro proyecto llamar al timbrado de un XML.
123456789101112131415161718192021222324252627procedure TForm1.btnTimbrarV4Click(Sender: TObject);varurl, token, xml: String;StampResponse: TStampResponseV4;begincleanStamp();url := txtURL.Text;token := txtToken.Text;xml := stampXmlIn.Text;StampResponse := Stamp.StampV4(url, token, xml);trytxtCfdi.Text := StampResponse.data.cfdi;txtCadenaOriginalSat.Text := StampResponse.data.cadenaOriginalSAT;txtNoCertificadoSat.Text := StampResponse.data.noCertificadoSAT;txtNoCertificadoCfdi.Text := StampResponse.data.noCertificadoSAT;txtUuid.Text := StampResponse.data.uuid;txtSelloSat.Text := StampResponse.data.selloSAT;txtSelloCfdi.Text := StampResponse.data.noCertificadoSAT;txtFechaTimbrado.Text := DateToStr(StampResponse.data.fechaTimbrado);txtQrCode.Text := StampResponse.data.qrCode;excepttxtMessageStamp.Text := UTF8ToWideString(StampResponse.message);txtMessageDetailStamp.Text := UTF8ToWideString(StampResponse.messageDetail);end;end; - Paso 5:
En este paso, la variable response debe contener la respuesta del servicio de timbrado, ya sea un error o una respuesta exitosa con un CFDI timbrado. Para este ejemplo se envía un XML válido y nos muestra los datos correspondientes de timbrado V4.