In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
AddColumn, con lTotal TRUENA
-
- Mensajes: 159
- Registrado: Mié Jul 23, 2008 2:53 am
AddColumn, con lTotal TRUENA
Hola a Todos
Estoy usando AddCoumn en mis reportes, al poner el valor :lTotal := .T.,
Pues Truena el Reporte.
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
Help.
Saludos y Gracias
Dios los bendice
Estoy usando AddCoumn en mis reportes, al poner el valor :lTotal := .T.,
Pues Truena el Reporte.
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
Help.
Saludos y Gracias
Dios los bendice
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
AddColumn, con lTotal TRUENA
Hugo,
Sería bueno saber como truena. El fichero error.log, en principio, sería
suficiente.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
http:/xailer.info
"Hugo Navarro" <jhugono@hotmail.com> escribió en el mensaje de
noticias:[email=4a8ee3f5@svctag-j7w3v3j....]4a8ee3f5@svctag-j7w3v3j....[/email]
> Hola a Todos
>
> Estoy usando AddCoumn en mis reportes, al poner el valor :lTotal := .T.,
> Pues Truena el Reporte.
>
> 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
>
> Help.
> Saludos y Gracias
>
> Dios los bendice
>
>
Sería bueno saber como truena. El fichero error.log, en principio, sería
suficiente.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
http:/xailer.info
"Hugo Navarro" <jhugono@hotmail.com> escribió en el mensaje de
noticias:[email=4a8ee3f5@svctag-j7w3v3j....]4a8ee3f5@svctag-j7w3v3j....[/email]
> Hola a Todos
>
> Estoy usando AddCoumn en mis reportes, al poner el valor :lTotal := .T.,
> Pues Truena el Reporte.
>
> 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
>
> Help.
> Saludos y Gracias
>
> Dios los bendice
>
>
-
- Mensajes: 620
- Registrado: Jue Mar 23, 2006 2:39 am
AddColumn, con lTotal TRUENA
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
>
> 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
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
AddColumn, con lTotal TRUENA
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
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
-
- Mensajes: 159
- Registrado: Mié Jul 23, 2008 2:53 am
AddColumn, con lTotal TRUENA
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
>
>
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
>
>
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
AddColumn, con lTotal TRUENA
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
>>
>>
>
>
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
>>
>>
>
>
-
- Mensajes: 159
- Registrado: Mié Jul 23, 2008 2:53 am
AddColumn, con lTotal TRUENA
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
>>>
>>>
>>
>>
>
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
>>>
>>>
>>
>>
>
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
AddColumn, con lTotal TRUENA
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
>>>>
>>>>
>>>
>>>
>>
>
>
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
>>>>
>>>>
>>>
>>>
>>
>
>
-
- Mensajes: 159
- Registrado: Mié Jul 23, 2008 2:53 am
AddColumn, con lTotal TRUENA
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
>>>>>
>>>>>
>>>>
>>>>
>>>
>>
>>
>
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
>>>>>
>>>>>
>>>>
>>>>
>>>
>>
>>
>