Datos factura electronica

[seccion_31]

(gracias)

Tengo un prototipo que ya construye un UBL bien armado, para una factura de alta. Validado por dos webs online.

Lo que voy a intentar es ofrecer la carga de datos extra que se necesitan desde las facturas verifactu hasta el UBL se solicite de dos formas: amigable y Raw. en el amigable sera muy sencillo y en el raw (yo lo llamo asi) tendras a tu disposicion los nodos completos del UBL. Esos datos son datos que faltan son de cliente, emisor, los datos de cada linea, etc....

Me falta:

Firmar el UBL en el prototipo
Diseñar el formato amigable y los eventos entre la DLL y el componente
Transportar el codigo del prototipo a la DLL
Incluir los distintos de tipos de facturas

Saludos !

[seccion_31]

Como tengo con facturaE, uso records para generar el XML: (ejemplo)

  TTaxCategory = record
    cbc_ID                    : TFacturaUBLString;
    cbc_Percent               : TFacturaUBLString;
    cbc_BaseUnitMeasure       : TFacturaUBLString;
    cbc_PerUnitAmount         : TFacturaUBLString;
    cbc_TaxExemptionReasonCode: TFacturaUBLString;
    cbc_TaxExemptionReason    : TFacturaUBLString;
    cbc_TierRange             : TFacturaUBLString;
    cbc_TierRatePercent       : TFacturaUBLString;

    cac_TaxScheme             : TTaxScheme;
  end;

  TTaxSubtotal = record
    cbc_TaxableAmount_currencyID   : TFacturaUBLString;
    cbc_TaxAmount_currencyID       : TFacturaUBLString;

    cbc_BaseUnitMeasure : TFacturaUBLString;
    cbc_PerUnitAmount   : TFacturaUBLString;
    cbc_TierRange       : TFacturaUBLString;
    cbc_TierRatePercent : TFacturaUBLString;
    cac_TaxCategory     : TTaxCategory;

    _rttiForceNoTocar :array of Byte;      // para que el rtti genere estructura
  end;

  TTaxTotal = record
    cbc_TaxAmount_currencyID : TFacturaUBLString;
    cbc_RoundingAmount       : TFacturaUBLString;
    cbc_TaxEvidenceIndicator : TFacturaUBLString;
    cbc_TaxIncludedIndicator : TFacturaUBLString;

    cac_TaxSubtotal         : array [0..MAXSUBTOTALS] of TTaxSubtotal;

    _rttiForceNoTocar :array of Byte;      // para que el rtti genere estructura
  end;

  TAllowanceCharge = record
    cbc_ChargeIndicator       : TFacturaUBLString; // 'true' para cargo, 'false' para descuento
    cbc_AllowanceChargeReason : TFacturaUBLString; // nota del descuento
    cbc_Amount_currencyID     : TFacturaUBLString; // total del descuento o cargo

     _rttiForceNoTocar :array of Byte;      // para que el rtti genere estructura
  end;

  TItem =record
      cbc_Description           : TFacturaUBLString;
      cbc_PackQuantity          : TFacturaUBLString;
      cbc_PackSizeNumeric       : TFacturaUBLString;
      cbc_CatalogueIndicator    : TFacturaUBLString;
      cbc_Name                  : TFacturaUBLString;
      cbc_HazardousRiskIndicator: TFacturaUBLString;
      cbc_AdditionalInformation : TFacturaUBLString;
      cbc_KeyWord               : TFacturaUBLString;
      cbc_BrandName             : TFacturaUBLString;
      cbc_ModelName             : TFacturaUBLString;
  end;

Con la version 2 de la funcion recordToXML que usa el rtti de Delphi.