Son archivos de PERU.
Señores alguno ya trabajo con recibos por honorarios electrónicos…
Me enviaron un XML y quieren visualizarlo en Word(o sea que se vea bonito), es posible esto ¿?
Junto con el correo viene el archivo XML y en el cuerpo del correo viene esto :
|
CIR DEL RECIBO POR HONORARIOS ELECTRONICOS E001 – 1 |
|
RUC y nombre del emisor: |
Sssssssss |
|
Fecha : |
Sdsafafafsffa |
|
Número de operación: |
Sdfdsfdsfdsfrdsf |
|
Tipo y número de documento del usuario del servicio: |
Sdfdsfdsfdfdsfdsfd |
|
Nombre o Razón Social del usuario del servicio: |
Sdfdfdfdfdsfdfd |
|
Descripción o tipo de servicio prestado: |
Sdfdsfdsfdfdfds |
|
Observación: |
Sdfdsdsfdfdfdfdsf |
|
Inciso: |
Sdfdfdsfdsfds |
|
Monto neto expresado en letras : |
Sdfsdfdsfdfdfdfd |
|
Monto total de honorarios: |
Sdfdsdfds |
|
Retención (10%) IR: |
Adssdsadsdsd |
|
Total neto recibido: |
Adasdsadsadsadsads |
Abri los archivos en Word y Excel…. Me pide un archivo xsl…????
Gracias por su ayuda….
MK
XMLTOCURSOR(XMLSource eExpression | cXMLFile [, cCursorName [, nFlags ]])
Cuando nFlags se establece como 8192 y si cCursorName contiene datos, Visual FoxPro agrega a la tabla o cursor existente los datos que se están importando desde el archivo XML. La tabla o cursor debe estar abierto o en uso. Si cCursorName es una cadena vacía (""), Visual FoxPro importa XML en la tabla o cursor que esté abierto en el área de trabajo actual.
Saludos;
Ing. Russvell Jesus Soto Gamarra
Blog: http://developervfp.blogspot.mx/
Canal YouTube: http://www.youtube.com/rycjesusrj
Framework Multi-conexion v6.0 trabaja cualquier base de datos
(SQLServer, MySQL, Firebird, MariaDB, PostgreSQL, Oracle y etc.)
ahi tienes otra forma de leer los archivos.
xmldoc=CREATEOBJECT('MSXML2.DOMdocument')xmldoc.LOAD("Test.xml")oRootNode = xdoc.documentElementcRootTagName = oRootNode.tagNameolNodes = xdoc.selectNodes("//factura")?olNodesFOR i = 0 TO olNodes.LENGTH - 1 FOR j = 0 TO olNodes.ITEM(i).ATTRIBUTES.LENGTH - 1 AtrName = olNodes.ITEM(i).ATTRIBUTES.ITEM(j).nodeName AtrValues = olNodes.ITEM(i).ATTRIBUTES.ITEM(j).TEXT ?AtrValues ENDFOR ENDFOR