Facturacion Electronica PERU

[[oscarac]]

o al menos explicame por favor como identifico

Raíz, Nodo, Atributo, DATO y asi sucesivamente

[manelb]

Pues supongo que alguien habrá que pueda contestarte con más criterio que yo, o por lo menos constatar que mis argumentos son correctos, pero intentaré razonarte mi código.

El caso es que si te fijas como están declaradas las dos variables del ejemplo:

Código Delphi [-]
AccountID: IXMLAdditionalAccountIDType_cbc;
PartyName: IXMLPartyNameType_cac;

y te fijas en el tipo de la propiedad que queremos asignar:

Código Delphi [-]
property AdditionalAccountID: IXMLAdditionalAccountIDType_cbcList read Get_AdditionalAccountID;
property PartyName: IXMLPartyNameType_cacList read Get_PartyName;

pues te das cuenta que son propiedades tipo lista:

Código Delphi [-]
IXMLAdditionalAccountIDType_cbcList = interface(IXMLNodeCollection)
IXMLPartyNameType_cacList = interface(IXMLNodeCollection)

Por lo tanto, tenemos que crear una instancia de la clase que se espera en esa lista para poder asignarla a la propiedad.

En cuanto a lo de identificar Raíz, Nodo, Atributo…, etc., con este sistema, a mi entender, no lo necesitas.
Tu trabajas con la estructura del xml como si se tratara de cualquier otra clase, y te olvidas de los nombres de cada nodo, ya que la interface creada te permite trabajar con los nombres como propiedades.

Imagina la de errores sintácticos que se pueden cometer creando un xml complejo a pelo…
o incluso creando los nodos a mano, tipo AddChild('cacigitalSignatureAttachment'),
i lo que puede costar después depurar y encontrar un fallo de este tipo.

Supongo que, como todo, es cuestión de gustos, pero creo que las ventajas de hacerlo así son considerables.


Par cualquier cosa que necesites, pongo mis modestos conocimientos a tu disposición

Saludos

[[oscarac]]

hola buenos dias

yo estoy aprendiendo Delphi de manera autodidacta y hay temas que aun son desconocidos para mi
sobre todo esta parte de utilizar librerias externas y/o creacion lectura de XML

agradezco la paciencia

pero crees que podrias generarme un ejemplo?


de otro lado estuve "generando" un xml con el xsd, lo que no estoy entendiendo bien es que en los archivos XML de ejemplo (adjunto)
existen "claves" que cuando se generan con xl XSD no aparecen

[TEXT] <cbc:PriceAmount currencyID="PEN">38.00</cbc:PriceAmount>[/TEXT]
O TAMBIEN

<cbc:PriceTypeCode listName="SUNAT:Indicador de Tipo de Precio"
listAgencyName="PE:SUNAT"
listURI="urne:gob:sunat:cpe:see:gem:catalogos:catalogo16">01</cbc:PriceTypeCode>

creo que con un ejemplo lo entenderia mejor

gracias

[manelb]

Buenos días a todos…

Hola Oscarrac, perdona el retraso en contestar….

No comprendo a que te refieres cuando dices que

en los archivos XML de ejemplo (adjunto)
existen "claves" que cuando se generan con xl XSD no aparecen

El fixhero xml resultante contendrá todas y cada una de las líneas que tú le añadas.
Es verdad que estas líneas que me muestras de ejemplo, las cuales hacen referencia a precios, además del propio valor de la etiqueta tienen atributos.
Para asignarlos, deberás conocer los diferentes valores que pueden tomar, y la forma de asignarlos a cada etiqueta.
No recuerdo yo ahora que el formato Facturae en España tenga etiquetas con atributos, pero buscando un poco he encontrado que probablemente se pueda hacer de la siguiente e forma.
He ampliado un poco el ejemplo anterior que puse para insertar un nodo con algunas etiquetas de una línea de factura

Código Delphi [-]
var
  factura: IXMLInvoiceType;
  AccountID: IXMLAdditionalAccountIDType_cbc;
  PartyName: IXMLPartyNameType_cac;
  unaLinea: IXMLInvoiceLineType_cac;
begin
  factura:= GetInvoice(XMLDocument1);
  factura.IssueDate.NodeValue:='2011-06-28';
  factura.AccountingSupplierParty.CustomerAssignedAccountID.NodeValue:= '20100113612';

  AccountID:= factura.AccountingSupplierParty.AdditionalAccountID.Add;
  AccountID.nodevalue:='6';

  PartyName:= factura.AccountingSupplierParty.Party.PartyName.Add;
  PartyName.Name.NodeValue:='K&G Laboratorios';

  //******

  unaLinea:= factura.InvoiceLine.Add;
  unalinea.id.NodeValue:=1;

  unaLinea.InvoicedQuantity.SetAttributeNS('unitCode','', 'BX');
  unaLinea.InvoicedQuantity.SetAttributeNS('unitCodeListID','', 'UN/ECE rec 20');
  unaLinea.InvoicedQuantity.SetAttributeNS('unitCodeListAgencyName','', 'United Nations Economic Commission forEurope');
  unaLinea.InvoicedQuantity.NodeValue:=2000;

  unaLinea.LineExtensionAmount.SetAttributeNS('currencyID','','PEN');
  unaLinea.LineExtensionAmount.NodeValue:= '43840.00';


  //*****

  memoxml.lines.Text:= XMLDocument1.XML.Text;

end;

Espero te sirva...

Saludos

[[oscarac]]

estoy avanzando con esto

pero se me han presentado algunos problemas

como generar los nodos internos

por ejemplo los que estan dentro de

SIGNATURE

<cac:Signature>
    <cbc:ID>IDSignCF</cbc:ID>
    <cac:SignatoyParty>    <---------
      <cac:PartyIdentification>  <---------
        <cbd:ID>RUC del Emisor</cbd:ID> <-------
      </cac:PartyIdentification>
      <cac:PartyName>
        <cbd:Name>Nombre del Emisor</cbd:Name>
      </cac:PartyName>
    </cac:SignatoyParty>
    <cac:DigitalSignatureAttachment>
      <cac:ExternalReference>
        <cbc:URI>#SignatureCF</cbc:URI>
      </cac:ExternalReference>
    </cac:DigitalSignatureAttachment>
  </cac:Signature>

alguien tiene una idea

OJO estoy usando el archivo importado por el XML Data Binding UBLPEInvoice10

[manelb]

La factura electrónica española también tiene un formato similar, con una rama específica que contiene la firma.
De todas formas, al construir el xml, nosotros no nos preocupamos de construir esta rama.
Dejamos el xml sin ella.

El proceso de firma lo realizamos a través de un programa externo que facilita la administración, y es este proceso de firma el que añade al fichero xml toda la información referente a la firma con los nodos necesarios.
Este programa lo ejecutamos en modo línea de comando, de forma que para el usuario es totalmente transparente.

De todas formas, creo que hay compañeros por aquí, que sí firman directamente el fichero des de Delphi.
Tal vez ellos puedan aportarte algo más de información si necesitas firmar des de Delphi.

Saludos