pasar xml de consulta de comprobantes en Afip a un cursor

[marcelo lopez]

Hola : 

Adjunto el xml que estoy tratando de pasar a un cursor .

Quise usar la funcion xmltocursor y lo que me hace es meter todos los datos de los comprobantes en un campo memo .

Intente pasarlo a un string con filetostr( archivo ) y obtener los datos desde 

el string pero se me complica .

alguien me puede dar una mano ? gracias 

[Marco Plaza]

Hola Marcelo. usando la librería nfXml es bastante fácil una vez que tienes la estructura del cursor.

Nota: Observa que no incluí las propiedades complejas ( arrays / objetos ) eso te lo dejo.

 Para exportarlas usa la misma técnica ( anidando un for.. each ) y recuerda añadir el campo 

de relación a cada tabla anidada ( id comprobante , id cliente por ejemplo ).

Saludos.

*---------------------------------------

* descarga nfXmlRead directamente de  https://raw.githubusercontent.com/VFPX/nfXML/master/nfXml/nfXmlRead.prg  

* sitio del proyecto completo: nfXml: https://github.com/VFPX/nfXML

*---------------------------------------

Private All

Close Tables All

TEXT TO  isql NOSHOW textmerge pretext 15

 create cursor test  ( ALIASEMISOR C(20),

CBUDEPAGO C(22),

CBUEMISOR C(22),

CODAUTORIZACION C(14),

CODCTACTE C(5),

CODMONEDA C(3),

CODTIPOCMP C(3),

COTIZACIONMONEDA C(1),

CUITEMISOR C(11),

CUITRECEPTOR C(11),

ESANULACION C(1),

ESPOSTACEPTACION C(1),

FECHAEMISION C(10),

FECHAPUESTADISPO C(10),

FECHAVENACEP C(10),

FECHAVENPAGO C(10),

IMPORTETOTAL C(11),

INFOAGDTPOCLTV C(1),

NROCMP C(2),

PTOVTA C(4),

RAZONSOCIALEMI C(19),

RAZONSOCIALRECEP C(21),

TIPOCODAUTO C(1) )

ENDTEXT

&isql

odata = nfxmlread( "D:\Test\XmlFCEResponse.xml" ) 

For Each ofila In odata.s_envelope.s_body.ns2_consultarcomprobantesresponse.consultarcmpreturn.arraycomprobantes.comprobante

  Insert Into test From Name ofila

Endfor

Browse