
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
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


0