Hola Ignacio.
msgbox( valtype( { fd("FIELD->DM"+ strzero(i,2)) } ) )
me regresa A
Este es codigo completo;
i := 0
FOR n := 12 to 4 step -1
i ++
WITH OBJECT oReport:AddColumn()
:aTitle := { fts(aMonedas,n-3) }
msgbox( valtype( { fd("FIELD->DM"+ strzero(i,2)) } ) )
:aData := { fd("FIELD->DM"+ strzero(i,2)) }
:aPicture := {"999"}
:nAlignment := taRIGHT
*:lTotal := .T. //Truena
:nCharSize := 3
:nDataFont := 3
END WITH
NEXT
static function fts( aTitle, n )
return ( {|| str(aTitle[n,2],3) } )
function Fd( c )
return ( {|| &c } )
Saludos y Gracias...
Hugo Navarro
"Ignacio Ortiz de Zúñiga" <
NoNameToAvoidSpam@xailer.com> escribió en el
mensaje news:[email=4a92ebce@svctag-j7w3v3j....]4a92ebce@svctag-j7w3v3j....[/email]
> Hugo,
>
> Comprobar valtype de { fd(aData,r,n-4) }
>
> Saludos
>
> --
> Ignacio Ortiz de Zúñiga
>
http://www.xailer.com
> http:/xailer.info
>
> "Hugo Navarro" <
jhugono@hotmail.com> escribió en el mensaje de
> noticias:[email=4a92c389@svctag-j7w3v3j....]4a92c389@svctag-j7w3v3j....[/email]
>> Hola Ignacio.
>> De Antemano Gracias.
>>
>> Estoy utilizando Picture, este es el ejemplo;
>>
>> FOR n := 13 to 5 step -1
>> WITH OBJECT oReport:AddColumn()
>> :aTitle := { ft(aMonedas,n-4) }
>> :aData := { fd(aData,r,n-4) }
>> :aPicture := {"999"}
>> :nAlignment := taRIGHT
>> *:lTotal := .T. //Truena
>> :nCharSize := 3
>> :nDataFont := 3
>> END WITH
>> NEXT
>>
>> Saludos y Gracias
>> Hugo Navarro
>>
>>
>>
>>
>> "Ignacio Ortiz de Zúñiga" <
NoNameToAvoidSpam@xailer.com> escribió en el
>> mensaje news:[email=4a925286@svctag-j7w3v3j....]4a925286@svctag-j7w3v3j....[/email]
>>> Hugo,
>>>
>>> Por lo que pude ver está utilizando tranform() para dar formato a las
>>> columnas, pero eso convierte los números en cadenas y por lo tanto no
>>> son sumables. Utilice la cláusula PICTURE para conseguir el mismo
>>> efecto.
>>>
>>> Saludos,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>>
http://www.xailer.com
>>> http:/xailer.info
>>>
>>> "Hugo Navarro" <
jhugono@hotmail.com> escribió en el mensaje de
>>> noticias:4a901d8c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> Hola Ignacio y Rene
>>>>
>>>> De antemano Gracias
>>>>
>>>> Les mando el error, te comento que todas las columnas son numericas y
>>>> como uso el FOR EACH no entiendo bien la sintaxis nunca lo he usado.
>>>> Con el for si me funciona bien el Reporte y me da bien las columnas y
>>>> sus contenidos esto lo he manejado desde FW.
>>>>
>>>>
>>>> TRPTCOLUMN:PRINTDATA(1557)
>>>> Error BASE/1081 Argument error: +
>>>> Argumentos: ( [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: N Valor: 2)
>>>>
>>>>
>>>> ***************************** Registro de errores
>>>> *****************************
>>>>
>>>> Exe: C:xProyectosIMAnomIMANOM.exe
>>>> Version: 1.0.0.0
>>>> User name: Hugo
>>>> Computer name: HUGONO
>>>> Fecha: 22/08/2009
>>>> Hora: 11:25:59
>>>> Memoria libre: 281436
>>>> Area actual: 2
>>>>
>>>> ------------------------- Información del
>>>> compilador --------------------------
>>>>
>>>> Versión Xailer: Xailer 2.0.0 Version 2.0 beta
>>>> Compilador: xHarbour build 1.2.0 Intl. (SimpLex) (Rev. 623221)
>>>> PCode Version: 9
>>>> Compilador C/C++: Borland C++ 5.5.1 (32 bit)
>>>> Plataforma: Windows XP Professional 5.01.2600 Service Pack 3
>>>>
>>>> ----------------------- Información detallada del
>>>> error -----------------------
>>>>
>>>> Subsistema: BASE
>>>> Código de error: 1081
>>>> Estado: .F.
>>>> Descripción: Argument error
>>>> Operación: +
>>>> Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: N Valor: 2
>>>> Fichero:
>>>> Código error SO: 0
>>>>
>>>> Pila de llamadas:
>>>> TRPTCOLUMN:PRINTDATA (1557)
>>>> TREPORT:RUN (152)
>>>> TDESMON:BTNACEPTAR (204)
>>>> TBUTTON:ONCLICK (0)
>>>> TBUTTON:CLICK (99)
>>>> (b)XCONTROL:XCONTROL (145)
>>>> TBUTTON:COMMAND (0)
>>>> TSCROLLINGWINCONTROL:WMCOMMAND (254)
>>>> TDESMON:WMCOMMAND (899)
>>>> TDESMON:SHOWMODAL (0)
>>>> TMENU1:DESEFE (84)
>>>> TMENUITEM:ONCLICK (0)
>>>> TMENU:DOACTION (235)
>>>> TMENU:DOACTION (240)
>>>> TMENU:DOACTION (240)
>>>> TMENU1:WMCOMMAND (892)
>>>> RUNFORM (0)
>>>> TAPPLICATION:RUN (209)
>>>> MAIN (17)
>>>>
>>>> ------------------ Información detallada de áreas de
>>>> trabajo ------------------
>>>>
>>>> Area: 1
>>>> Alias: NOMPAR
>>>> Registro: 1
>>>> Filtro:
>>>> Relación:
>>>> Orden del índice: 0
>>>> Clave activa: 0
>>>>
>>>> Area: 2
>>>> Alias: NOMDEP
>>>> Registro: 1
>>>> Filtro:
>>>> Relación:
>>>> Orden del índice: 1
>>>> Clave activa: 1
>>>>
>>>> Area: 3
>>>> Alias: NOMPUE
>>>> Registro: 1
>>>> Filtro:
>>>> Relación:
>>>> Orden del índice: 1
>>>> Clave activa: 1
>>>>
>>>> Area: 4
>>>> Alias: NOMEMP
>>>> Registro: 22
>>>> Filtro:
>>>> Relación:
>>>> Orden del índice: 2
>>>> Clave activa: 2
>>>>
>>>> Area: 5
>>>> Alias: NOMASI
>>>> Registro: 44
>>>> Filtro:
>>>> Relación:
>>>> Orden del índice: 1
>>>> Clave activa: 1
>>>>
>>>> Area: 6
>>>> Alias: NOMPER
>>>> Registro: 28
>>>> Filtro:
>>>> Relación:
>>>> Orden del índice: 0
>>>> Clave activa: 0
>>>>
>>>> ------------------------------------------------------------ --------
>>>> Saludos y Gracias
>>>> Hugo Navarro
>>>>
>>>> Dios Les bendice
>>>>
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <
NoNameToAvoidSpam@xailer.com> escribió en el
>>>> mensaje news:[email=4a8fbe72@svctag-j7w3v3j....]4a8fbe72@svctag-j7w3v3j....[/email]
>>>>> Hugo,
>>>>>
>>>>> Si es el problema que comenta Rene, en principio, si utilizas la
>>>>> construcción FOR-EACH en vez de FOR-NEXT debería funcionarte.
>>>>>
>>>>> Un saludo,
>>>>>
>>>>> --
>>>>> Ignacio Ortiz de Zúñiga
>>>>>
http://www.xailer.com
>>>>> http:/xailer.info
>>>>>
>>>>> "Rene Flores" <"rflores[nospam]"@ciber-tec.com> escribió en el mensaje
>>>>> de noticias:4a8f19f2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>>>> Hugo:
>>>>>>
>>>>>>>
>>>>>>> FOR n := len(aMonedas) to 1 step -1
>>>>>>> WITH OBJECT oReport:AddColumn()
>>>>>>> MSGBOX( aMonedas[n,2] )
>>>>>>> :aTitle := { ft(aMonedas,n) }
>>>>>>> :aData := { fd( aData[r,5][n] ) }
>>>>>>> :aPicture := {"999"}
>>>>>>> *:lTotal := .T. // Truena el Reporte
>>>>>>> :nCharSize := 3
>>>>>>> :nDataFont := 3
>>>>>>> END WITH
>>>>>>> NEXT
>>>>>>
>>>>>> Tienes un problem de "LATE BINDERY" (evaluación tardía).
>>>>>>
>>>>>> No puedes crear columnas usando un ciclo FOR porque TODAS LAS
>>>>>> COLUMNAS QUEDAN CARGADAS CON EL ULTIMO VALOR DE TU CICLO, o sea "N".
>>>>>>
>>>>>> Lo mas probable es que el error se cause porque uno de los tipos de
>>>>>> campo de la columna no puede ser totalizado.
>>>>>>
>>>>>> Saludos
>>>>>>
>>>>>> Rene Flores
>>>>>>
http://www.ciber-tec.com
>>>>>
>>>>>
>>>>
>>>>
>>>
>>
>>
>