Página 2 de 2
Re: SOPORTE CON CODIGO EN CLARION PARA CFDlib ACTUALIZADA
Publicado: Mié Nov 16, 2011 9:26 am
por lpulido
que tal mira no me explique bien
tu libreria funciona correctamente lo que sucede esque el sistema esta hecho para que se autogenere el ini y posteriormente genera el xml es por eso que da esos numeros aduanales porque en la prueba con el sistema ese numero aduanal es uno de 3 pedimentos del articulo mira el codigo esta asi.
te lo adjunto porque esta largo.
Re: SOPORTE CON CODIGO EN CLARION PARA CFDlib ACTUALIZADA
Publicado: Mié Nov 16, 2011 10:43 am
por Dado
Siento comentarte que no tengo ni idea de Clarion, no puedo ayudarte por ese lado.
Re: SOPORTE CON CODIGO EN CLARION PARA CFDlib ACTUALIZADA
Publicado: Mié Nov 16, 2011 11:01 am
por lpulido
ok gracias por tu apoyo en verdad me ha servido de mucho
oye asi como para entender me puedes ayudar
tu como recorrerias los valores de una tabla
mira APMPED es una tablas y veo que si recorre solo siento que el problema esta en lo de AduanaNumero ya ves que no se puede repetir variable. intento hacer como un for pero en clarion no se puede. por eso intente poner [n] pero no recorre bueno marca error al querer generar el xml. siento que es por que necesita ser como me lo mencionaste
AduanaNumero=348759
AduanaFecha=2011-01-08
Aduana=Aeropuerto Internal. de México
AduanaNumero1=1348759
AduanaFecha1=1111-11-11
Aduana1=Aeropuerto Internal. de México1
algo asi como para que recorra porque mira.
si entra a la tabla y veo que si recorre porque lo que muestra en el xml es el ultimo valor relacionado en la tabla con el folio del articulo que en este caso este folio tiene 3 pedimentos diferentes
solo tengo que lograr que en esta parte de codigo recorra n veces el folio se encuentre en la tabla no es necesario asi el codigo. nomas que me des una idea.
gracias por tu ayuda
APMPED:FolioEntrada=Fad:FolioEntrada
Set(APMPED:KeyFolioEntrada,APMPED:KeyFolioEntrada)
loop
next(APMPED)
if errorcode() then break.
PUTINI('Concepto1','AduanaNumero[n]',APMPED:Pedimento,'.\Factura.ini')
PUTINI('Concepto1','AduanaFecha[n]',format(APMPED:FechaEntrada,@D10-),'.\Factura.ini')
PUTINI('Concepto1','Aduana[n]','AEROPUERTO INTERNACIONAL MIGUEL HIDALGO','.\Factura.ini')
end
end