Hola Walter!!
Para factura electrónica uso la librería de Sergio Camusso y anda bien.
Para otros XML que no se hayan generado con VFP, los desarmo a manopla
usando FOPEN(), FGETS() y STRTRAN(). Algo así:
n=FOPEN(cArchivo)
DO WHILE !FEOF(n)
cLinea=FGETS(n)
TuFuncionQueSeparaElCampo(cLinea) && Un gran CASE con cadacampo
ENDDO
FCLOSE(n)
Espero te sirva...
Abz
El 25/08/2015 a las 17:19, Walter Comito escribió:
Ayer consulte sobre este tema.
Alguien me puede dar una mano
Gracias.
*Walter Cómito*
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
**
*De:*[email protected] [mailto:[email protected]] *En nombre de *Walter Comito
*Enviado el:* lunes, 24 de agosto de 2015 18:04
*Para:* GUFA List Member
*Asunto:* [GUFA] LEER XML
Amigos como están, tengo un problema para pàsar este xml a un cursor
en vfp.
Use el famoso xmlto cursor pero no funciona.
Este xml es lo que me devuelve la afip cuando consulto un comprobante
ya autorizado.
Si alguien me puede dar una mano se lo agradecería.
<?xml version="1.0" encoding="utf-8"?><soap:Envelope
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/";
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";
xmlns:xsd="http://www.w3.org/2001/XMLSchema";>
<soap:Body>
<FECompConsultarResponse xmlns="http://ar.gov.afip.dif.FEV1/";>
<FECompConsultarResult>
<ResultGet>
<Concepto>3</Concepto>
<DocTipo>86</DocTipo>
<DocNro>30702637895</DocNro>
<CbteDesde>1</CbteDesde>
<CbteHasta>1</CbteHasta>
<CbteFch>20150319</CbteFch>
<ImpTotal>1.21</ImpTotal>
<ImpTotConc>0</ImpTotConc>
<ImpNeto>1</ImpNeto>
<ImpOpEx>0</ImpOpEx>
<ImpTrib>0</ImpTrib>
<ImpIVA>0.21</ImpIVA>
<FchServDesde>20150319</FchServDesde>
<FchServHasta>20150319</FchServHasta>
<FchVtoPago>20150319</FchVtoPago>
<MonId>PES</MonId>
<MonCotiz>1</MonCotiz>
<Iva>
<AlicIva>
<Id>5</Id>
<BaseImp>1</BaseImp>
<Importe>0.21</Importe>
</AlicIva>
</Iva>
<Resultado>A</Resultado>
<CodAutorizacion>65122100099740</CodAutorizacion>
<EmisionTipo>CAE</EmisionTipo>
<FchVto>20150329</FchVto>
<FchProceso>20150319164020</FchProceso>
<PtoVta>3</PtoVta>
<CbteTipo>6</CbteTipo>
</ResultGet>
</FECompConsultarResult>
</FECompConsultarResponse>
</soap:Body>
</soap:Envelope>
Gracias.
*Walter Cómito*
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
*›****[email protected] <mailto:[email protected]>*
***[email protected] <mailto:[email protected]>*
*'****+54 351 494.4667*
* 153.292.707*
**
*þ****www.softram.com.ar <http://www.softram.com.ar/>*
QSi no es necesario, no imprima este correo.
Todos somos responsables por el cuidado del medio ambiente.
*NOTA DE CONFIDENCIALIDAD*
Este mensaje (y sus anexos) es confidencial y puede contener
información de propiedad
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este
mensaje por error,
por favor comuníquelo inmediatamente a _walter.comito
<mailto:[email protected]>[email protected] <http://gmail.com/>_ y
tenga la amabilidad
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a
ninguna persona.
Muchas Gracias.
------------------------------------------------------------------------
Avast logo <https://www.avast.com/antivirus>
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
www.avast.com <https://www.avast.com/antivirus>
------------------------------------------------------------------------
Avast logo <https://www.avast.com/antivirus>
El software de antivirus Avast ha analizado este correo electrónico en
busca de virus.
www.avast.com <https://www.avast.com/antivirus>
