Datos factura electronica

[bmfranky]

Hola, en la linea de articulo, va el tipo de articulo, no se si es lo del código que ponías, lo que define si es un litro, caja, kit, etc...,
Ademas en UBL 2.1, el numero de orden también es obligatorio.
Encontré aquí, información en castellano, el formato general es el mismo, para hacernos la idea de como sera la que usaremos aquí.

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