Facturacion Electronica PERU

[[oscarac]]

Estimados....
nuevamente yo molestando

este tema de la facturación electrónica me parece que ya esta globalizado, en muchos países se esta utilizando y "creo" que la metodología y proceso es bastante similar

el tema es que la SUNAT PERU (administración tributaria) permite la recepción de facturas via un webservice
lo primero que hay que hacer es generar los archivos XML, para esto tienen una "plantilla" (el menos es lo que he entendido), estas son las guias para el armado de los XML:

http://orientacion.sunat.gob.pe/inde...-contribuyente

en este enlace también podrán encontrar los esquemas para cada tipo de documento

http://orientacion.sunat.gob.pe/inde...lectronicos-bv

he bajado los esquemas, y via XML Data Binding he creado las unidades correspondientes en Delphi

la pregunta del millón (y espero que si llegamos a un buen resultado le sirva a todos los demás que tienen el mismo problema que yo)

como genero el XML ???

pseudocódigo :

Código Delphi [-]
Select Documento, Fecha, Cliente, Importes, artículos, cantidades from Facturas  -- Tengo la información de mi documento

... aquí imagino que debo declarar alguna unidad para crear el XML

Código Delphi [-]
while not facturas.eof Do
Begin
...
...
aquí imagino voy pasando "el cuerpo" del xml

End

libero el XML

... firmo

... certificado digital
.. envio

.. respuesta

mis conocimientos de Delphi en este tema no son tan avanzados como para poder entenderlo, pero si alguien me da una guía, creo poder resolver este tema


ya posteriormente los molestare para el envio via webservice y la analizar la respuesta

[dec]

Hola a todos,

Lo de que preparases las correspondientes clases a partir de ciertos XML me confunde un poco, puesto que, si hablamos de crear un documento XML, propiamente, podriámos hablar de crearlo "a mano" (al fin y al cabo se trata de un archivo de texto), utilizar la clase TXMLDocument de Delphi, o, utilizar alguna solución como OmniXML, un conjunto de clases y funciones que pueden ayudarnos. Pero, como digo, tal vez me esté perdiendo algo, y, quieras generar un documento XML partiendo de las clases que has creado a partir de los XML de referencia o algo así...

[[oscarac]]

exacto
hay una estructura ya definida para los XML, que estan en la pagina web que coloque

entonces necesirot una mano para poder entender el proceso

[manelb]

Saludos a todos…

Hola oscarac, intentaré explicar nuestra experiencia sobre el tema por si te puede orientar…

Cuando en nuestro ERP desarrollamos la generación de facturas en formato xml, optamos por la generación “a pelo”, en formato texto, tal y como comenta el compañero dec.
Y así lo tenemos en la actualidad.

De todas formas, más tarde, investigamos sobre de qué forma los ficheros xsd que definen la estructura del xml podían utilizarse para simplificar el proceso y descubrimos el XML Data Binding.
Utilizando esta herramienta conseguimos generar una interface que permite generar y guardar de una forma más encapsulada la factura en formato xml.

En nuestro caso, la unidad que contiene la interface creada por el XML Data Binding a partir del xsd , contiene más de 6 mil líneas y esta es una muestra del código generado

Código Delphi [-]
{****************************************************************************************}
{                                                                                        }
{                                    XML Data Binding                                    }
{                                                                                        }
{         Generated on: 25/02/2017 16:38:47                                              }
{       Generated from: G:\DropBoxMBel\Dropbox\Facturacio Electronica\Facturaev3_2.xsd   }
{   Settings stored in: G:\DropBoxMBel\Dropbox\Facturacio Electronica\Facturaev3_2.xdb   }
{                                                                                        }
{****************************************************************************************}

unit Facturaev3_2;

interface

uses xmldom, XMLDoc, XMLIntf;

type

{ Forward Decls }

  IXMLFacturae = interface;
  IXMLFileHeaderType = interface;
  IXMLThirdPartyType = interface;
  IXMLTaxIdentificationType = interface;
  IXMLLegalEntityType = interface;
.
.
.
.
.
{ IXMLFacturae }

  IXMLFacturae = interface(IXMLNode)
    ['{4180325F-7A60-46DE-9C54-055114275527}']
    { Property Accessors }
    function Get_FileHeader: IXMLFileHeaderType;
    function Get_Parties: IXMLPartiesType;
    function Get_Invoices: IXMLInvoicesType;
    function Get_Extensions: IXMLExtensionsType;
    function Get_Signature: IXMLSignatureType_ds;
    { Methods & Properties }
    property FileHeader: IXMLFileHeaderType read Get_FileHeader;
    property Parties: IXMLPartiesType read Get_Parties;
    property Invoices: IXMLInvoicesType read Get_Invoices;
    property Extensions: IXMLExtensionsType read Get_Extensions;
    property Signature: IXMLSignatureType_ds read Get_Signature;
  end;
.
.
.
{ Global Functions }

function GetFacturae(Doc: IXMLDocument): IXMLFacturae;
function LoadFacturae(const FileName: string): IXMLFacturae;
function NewFacturae: IXMLFacturae;
.
.
.

Y un ejemplo de su llamada e inicio de construcción del xml

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Factura: IXMLFacturae;
begin
  Factura:= GetFacturae(xml); {xml es un TXMLDocument}
  Factura.FileHeader.SchemaVersion:='3.2';
  Factura.FileHeader.Modality:='I';
  Factura.FileHeader.InvoiceIssuerType:='EM';
.
.
.
end;

Saludos

[[oscarac]]

es exactamente lo que estoy haciendo
tambien investigue y llegue a la conclusion que los xsd son cono "una base"

asi que estoy en pleno analisis para generar el XML

quiza podamos apoyarnos mutuamente...

saludos

[manelb]

Pero que problema tienes exactamente??

[[oscarac]]

Empezado por manelb

Saludos a todos…

Hola oscarac, intentaré explicar nuestra experiencia sobre el tema por si te puede orientar…

Cuando en nuestro ERP desarrollamos la generación de facturas en formato xml, optamos por la generación “a pelo”, en formato texto, tal y como comenta el compañero dec.
Y así lo tenemos en la actualidad.

De todas formas, más tarde, investigamos sobre de qué forma los ficheros xsd que definen la estructura del xml podían utilizarse para simplificar el proceso y descubrimos el XML Data Binding.
Utilizando esta herramienta conseguimos generar una interface que permite generar y guardar de una forma más encapsulada la factura en formato xml.

En nuestro caso, la unidad que contiene la interface creada por el XML Data Binding a partir del xsd , contiene más de 6 mil líneas y esta es una muestra del código generado

Código Delphi [-]
{****************************************************************************************}
{                                                                                        }
{                                    XML Data Binding                                    }
{                                                                                        }
{         Generated on: 25/02/2017 16:38:47                                              }
{       Generated from: G:\DropBoxMBel\Dropbox\Facturacio Electronica\Facturaev3_2.xsd   }
{   Settings stored in: G:\DropBoxMBel\Dropbox\Facturacio Electronica\Facturaev3_2.xdb   }
{                                                                                        }
{****************************************************************************************}

unit Facturaev3_2;

interface

uses xmldom, XMLDoc, XMLIntf;

type

{ Forward Decls }

  IXMLFacturae = interface;
  IXMLFileHeaderType = interface;
  IXMLThirdPartyType = interface;
  IXMLTaxIdentificationType = interface;
  IXMLLegalEntityType = interface;
.
.
.
.
.
{ IXMLFacturae }

  IXMLFacturae = interface(IXMLNode)
    ['{4180325F-7A60-46DE-9C54-055114275527}']
    { Property Accessors }
    function Get_FileHeader: IXMLFileHeaderType;
    function Get_Parties: IXMLPartiesType;
    function Get_Invoices: IXMLInvoicesType;
    function Get_Extensions: IXMLExtensionsType;
    function Get_Signature: IXMLSignatureType_ds;
    { Methods & Properties }
    property FileHeader: IXMLFileHeaderType read Get_FileHeader;
    property Parties: IXMLPartiesType read Get_Parties;
    property Invoices: IXMLInvoicesType read Get_Invoices;
    property Extensions: IXMLExtensionsType read Get_Extensions;
    property Signature: IXMLSignatureType_ds read Get_Signature;
  end;
.
.
.
{ Global Functions }

function GetFacturae(Doc: IXMLDocument): IXMLFacturae;
function LoadFacturae(const FileName: string): IXMLFacturae;
function NewFacturae: IXMLFacturae;
.
.
.

Y un ejemplo de su llamada e inicio de construcción del xml

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Factura: IXMLFacturae;
begin
  Factura:= GetFacturae(xml); {xml es un TXMLDocument}
  Factura.FileHeader.SchemaVersion:='3.2';
  Factura.FileHeader.Modality:='I';
  Factura.FileHeader.InvoiceIssuerType:='EM';
.
.
.
end;

Saludos

estoy retomando este tema de nuevo, voy a probar este metodo, me parece mas simple, si tu lo has probado, genera tambien los subniveles en el armado del XML?

[manelb]

Si, este proceso genera la estructura completa de la factura.

Si lo necesitas, este fin de semana te puedo preparar un pequeño ejemplo con el xsd de la factura electrónica de España y te lo mando...

Saludos