FoxPro/Visual FoxPro - Trabajando con XML un código que no se ejecuta cuando se envía un parámetro

<<>>
 
Vista:
sin imagen de perfil

Trabajando con XML un código que no se ejecuta cuando se envía un parámetro

Publicado por Javier (4 intervenciones) el 21/05/2024 18:43:55
Tengo el siguiente código, el tema acá es que cuando envío el parámetro cArchivo, en el "lnSuccess = loXml.LoadXmlFile(cArchivo)" me da cero, debería dar 1, y en el "queTipo=ASCAN(nTipoDoc,loXml.Tag)" debería ser mayor que cero, porque lo encontraría en el ARRAY nTipoDoc, pero también me da cero, no entiendo qué es lo que está pasando, porque según mi criterio todo está correcto.

Cuando yo pongo en el código "cArchivo="C:\Users\S1\Documents\Visual FoxPro Projects\XML\11.xml" &&Acá si funciona"

Agradecería mucho si me pueden ayudar!!!

*PARAMETERS cArchivo

cArchivo="C:\Users\S1\Documents\Visual FoxPro Projects\XML\11.xml" &&Acá si funciona

Public loXml
LOCAL lnSuccess
LOCAL loSbState

LOCAL ARRAY nTipoDoc(17,2)
nTipoDoc[1,1]="FacturaElectronica"
nTipoDoc[1,2]="01"
nTipoDoc[2,1]="NotaDebitoElectronica"
nTipoDoc[2,2]="02"
nTipoDoc[3,1]="NotaCreditoElectronica"
nTipoDoc[3,2]="03"
nTipoDoc[4,1]="TiqueteElectronico"
nTipoDoc[4,2]="04"
nTipoDoc[5,1]="Nota de despacho"
nTipoDoc[5,2]="05"
nTipoDoc[6,1]="Contrato"
nTipoDoc[6,2]="06"
nTipoDoc[7,1]="Procedimiento"
nTipoDoc[7,2]="07"
nTipoDoc[8,1]="Comprobante emitido en contingencia"
nTipoDoc[8,2]="08"
nTipoDoc[9,1]="Devolución mercadería"
nTipoDoc[9,2]="09"
nTipoDoc[10,1]="Sustituye factura rechazada por el Ministerio de Hacienda"
nTipoDoc[10,2]="10"
nTipoDoc[11,1]="Sustituye factura rechazada por el Receptor del comprobante"
nTipoDoc[11,2]="11"
nTipoDoc[12,1]="Sustituye Factura de exportación"
nTipoDoc[12,2]="12"
nTipoDoc[13,1]="*Facturación mes vencido"
nTipoDoc[13,2]="13"
nTipoDoc[14,1]="Comprobante aportado por contribuyente del Régimen de Tributación Simplificado"
nTipoDoc[14,2]="14"
nTipoDoc[15,1]="Sustituye una Factura electrónica de Compra"
nTipoDoc[15,2]="15"
nTipoDoc[16,1]="Otros"
nTipoDoc[16,2]="99"
nTipoDoc[17,1]="MensajeHacienda"
nTipoDoc[17,2]="98"
**

loXml = CreateObject('Chilkat_9_5_0.Xml')

lnSuccess = loXml.LoadXmlFile(cArchivo)
Select Paso1
loSbState = CreateObject('Chilkat_9_5_0.StringBuilder')
queTipo=ASCAN(nTipoDoc,loXml.Tag)
IF queTipo>0 .and. loXml.Tag<>"MensajeHacienda"
Quetipo=Quetipo+1
nTipoDocumento=nTipoDoc[queTipo]
Etcétera....
Endif
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Trabajando con XML un código que no se ejecuta cuando se envía un parámetro

Publicado por Javier (4 intervenciones) el 21/05/2024 22:04:07
El "Archivo" viene de un campo de una Tabla, TablaXMLs.Archivo, cuando lo pongo directo tampoco funciona:
xArchivo=ALLTRIM(TablaXMLs.Archivo)
cArchivo=xArchivo
Pero de esta forma si:
cArchivo="C:\Users\S1\Documents\Visual FoxPro Projects\XML\11.xml" &&Acá si funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Trabajando con XML un código que no se ejecuta cuando se envía un parámetro

Publicado por Javier (4 intervenciones) el 21/05/2024 22:09:36
Ya lo resolví por si acaso, gracias por verlo!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar