Cómo Timbrar Factura en Delphi

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.
  
  Delphi/Pascal

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

  procedure TForm1.btnTimbrarV4Click(Sender: TObject); var   url, token, xml: String;   StampResponse: TStampResponseV4; begin   cleanStamp();   url := txtURL.Text;   token := txtToken.Text;   xml := stampXmlIn.Text;     StampResponse := Stamp.StampV4(url, token, xml);   try     txtCfdi.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;     except     txtMessageStamp.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.