Gracias Estela y Ricardo, creo que lo tengo , solo queda probarlo, así que muchas gracias por la mano que me tiraron.!!!!!
Por otro lado, es posible que al querer ver un XML con caracteres especiales en la descripción de los artículos, como % áéíóú no los acepto y se caiga el XML.? Norberto Alvarez Socio # 1892 De: GUFA@mug.org.ar [mailto:g...@mug.org.ar] En nombre de Ricardo Aidelman Enviado el: viernes, 16 de julio de 2010 10:55 a.m. Para: GUFA List Member Asunto: [GUFA] Re: [GUFA] Facturación Electrónica Exportación Norberto: Si te sirve, acá te mando un prg con el cual logré generar un xml con dos comprobantes, el cual lo subí al simulador de la AFIP y me devolvió los CAE correspondientes ricardo aidelman From: GUFA@mug.org.ar [mailto:g...@mug.org.ar] On Behalf Of Norberto Mario Alvarez Sent: Viernes, 16 de Julio de 2010 09:38 a.m. To: GUFA List Member Subject: [GUFA] RE: [GUFA] Re: [GUFA] Facturacion Electrónica Exportación Gracias Estela, hoy voy a poder seguir con todo esto, y es probable que me surja alguna pregunta. Desde ya muchas gracias por tu atención y paciencia!!!! Norberto Alvarez Socio # 1892 De: GUFA@mug.org.ar [mailto:g...@mug.org.ar] En nombre de Estela Lázaro Enviado el: miércoles, 14 de julio de 2010 09:11 p.m. Para: GUFA List Member Asunto: [GUFA] Re: [GUFA] Facturacion Electrónica Exportación Hola Norberto, te falta un gran tramo, esto es para el gran xml, y una parte de lo que saco con strtran para luego "ponerle" los pequeños xml de detalles, cmbtes asociados y demás yerbas. Te faltan los xml de los subgrupos. Fijate lo que hago: Cómo hago para que en lugar de <VFPData> diga <comprobantes> Así: cXml = Strtran( cXml, "<VFPData>", "<comprobantes>" ) cXml = Strtran( cXml, "</VFPData>", "</comprobantes>" ) cXml = Strtran( cXml, ' standalone="yes"',"") cXml = Strtran( cXml, "Windows-1252","UTF-8") cXml = Strtran( cXml, "psvcntot","comprobante") cXml = Strtran( cXml, "</formaspago>", "" ) &&saco esto porque no hacen falta pues luego reemplazo por los xml de subgrupo cXml = Strtran( cXml, "</permisosdestinos>", "" ) cXml = Strtran( cXml, "</cmpasociados>", "" ) cXml = Strtran( cXml, "</detalles>", "" ) Cómo hago un cursortoxml con grupos? Por ejemplo: <formaspago> <formapago> <codigo>num(2)</codigo> <descripcion>texto(50)</descripcion> </formapago> </formaspago> recorro el cursor y armo cursorcitos para cada grupo y a su vez los mando a xml y hago el strtran en el grande. Algo así: sele psvcntot Go Top Do While !Eof() Create Cursor formapago (codigo c(2),descripcion c(50)) Create Cursor permisodestino (permisoemb c(16),destino c(3)) &&99999AAAA999999A Create Cursor cmpasociado (tipoasoc c(2),ptovtaasoc c(4),nroasoc c(8)) Create Cursor detalle (cod c(50),Desc m,unimed c(2),cant N(10,2),preciounit N(13,2),importe N(13,2)) gNumero=psvcntot.formaspago && en los memo fui guardando el valor del campo clave de búsqueda ***lleno el cursor de formapago con los n registros y luego Cursortoxml("formapago", "cXML1") &&hago el pequeño cXml1 = Strtran( cXml1, "VFPData", "formaspago" ) && le cambio el nombre de grupo cXml = Strtran( cXml, '<formaspago>'+gNumero,cXml1) &&cambio '<formaspago>12345678' por el xml chiquito *** igual con los otros cursorcitos de permisodestino, cmpasociado y detalle Select psvcntot Skip Enddo cXml = Strtran( cXml, '<?xml version = "1.0" encoding="Windows-1252" standalone="yes"?>',"") Strtofile( cXml, strSave ) Últimamente la agregué la opción de exportar sólo los campos con valores para que no queden los /> Espero te ayude Saludos Estela Lázaro D&SIP Desarrollo y Servicios Informáticos Profesionales <http://www.dsip.com.ar/> www.dsip.com.ar _____ De: Norberto Mario Alvarez <n...@nmasystems.com.ar> Para: GUFA List Member <GUFA@mug.org.ar> Enviado: miércoles, 14 de julio, 2010 20:47:45 Asunto: [GUFA] Facturacion Electrónica Exportación Hola Estela, estoy usando el código que pusistes en el foro y va todo bien hasta que me pasa lo siguiente: Cursortoxml("psvcntot", "cXML") *----------------------------------------------* cXml = Strtran( cXml, "<VFPData>", "<comprobantes>" ) cXml = Strtran( cXml, "</VFPData>", "</comprobantes>" ) cXml = Strtran( cXml, ' standalone="yes"',"") cXml = Strtran( cXml, "Windows-1252","UTF-8") cXml = Strtran( cXml, "psvcntot","comprobante") cXml = Strtran( cXml, "</formaspago>", "" ) cXml = Strtran( cXml, "</permisosdestinos>", "" ) cXml = Strtran( cXml, "</cmpasociados>", "" ) cXml = Strtran( cXml, "</detalles>", "" ) =Strtofile( cXml, "cXml.xml" ) Cuando convierto la variable cXml a cXml.xml me tira el siguiente error: Cuando quiero ver el XML generado me tira un error No se puede mostrar la página XML No se puede ver la entrada XML con la hoja de estilo XSL. Corrija el error y haga clic en el botón Actualizar, o inténtelo de nuevo más tarde. Algo me está faltando Por otro lado como hago para ingresar los distintos artículo ya que los tengo en un cursor en el mismo XML? Desde ya te agradezco tu atención y disculpá por preguntarte tanto. Norberto Alvarez Socio # 1892
