GRACIAS TODOS POR LAS RESPUESTAS.

AL FINAL NO ME QUEDO AOTRA QUE ARMAR A MANO UNOS CURSORES, UNOS CUANTOS AT()
Y SALIO CON FRITAS.

 

 

Gracias.

 

Walter Cómito

 Analista de Sistemas

 MP 0397 C.P.C.I.P.C.

 

›   <mailto:[email protected]> [email protected]

          <mailto:[email protected]> [email protected]

 

'   +54 351 494.4667

           153.292.707

 

þ  <http://www.softram.com.ar/> www.softram.com.ar

 

Q  Si 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  <mailto:[email protected]>
walter.comito@ <http://gmail.com/> gmail.com y tenga la amabilidad 
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a
ninguna persona.

Muchas Gracias.

 

De: [email protected] [mailto:[email protected]] En nombre de Gustavo Señoriño
Enviado el: miércoles, 26 de agosto de 2015 9:35
Para: GUFA List Member
Asunto: [GUFA] LEER XML

 

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 cada campo
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]

         [email protected]

 

'   +54 351 494.4667

           153.292.707

 

þ www.softram.com.ar

 

Q  Si 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  <mailto:[email protected]>
walter.comito@ <http://gmail.com/> gmail.com y tenga la amabilidad 
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a
ninguna persona.

Muchas Gracias. 

 

 


  _____  


 <https://www.avast.com/antivirus> Avast logo

El software de antivirus Avast ha analizado este correo electrónico en busca
de virus. 
www.avast.com <https://www.avast.com/antivirus>  

 

 

  _____  


 <https://www.avast.com/antivirus> Avast logo

El software de antivirus Avast ha analizado este correo electrónico en busca
de virus. 
www.avast.com <https://www.avast.com/antivirus>  

 

 

Responder a