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.

AddColumn, con lTotal TRUENA

Foro de Xailer profesional en español
Responder
Hugo Navarro
Mensajes: 159
Registrado: Mié Jul 23, 2008 2:53 am

AddColumn, con lTotal TRUENA

Mensaje por Hugo Navarro »

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
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9252
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

AddColumn, con lTotal TRUENA

Mensaje por ignacio »

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
>
>
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Rene Flores
Mensajes: 620
Registrado: Jue Mar 23, 2006 2:39 am

AddColumn, con lTotal TRUENA

Mensaje por Rene Flores »

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
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9252
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

AddColumn, con lTotal TRUENA

Mensaje por ignacio »

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 Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Hugo Navarro
Mensajes: 159
Registrado: Mié Jul 23, 2008 2:53 am

AddColumn, con lTotal TRUENA

Mensaje por Hugo Navarro »

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
>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9252
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

AddColumn, con lTotal TRUENA

Mensaje por ignacio »

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 Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Hugo Navarro
Mensajes: 159
Registrado: Mié Jul 23, 2008 2:53 am

AddColumn, con lTotal TRUENA

Mensaje por Hugo Navarro »

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
>>>
>>>
>>
>>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9252
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

AddColumn, con lTotal TRUENA

Mensaje por ignacio »

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
>>>>
>>>>
>>>
>>>
>>
>
>
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Hugo Navarro
Mensajes: 159
Registrado: Mié Jul 23, 2008 2:53 am

AddColumn, con lTotal TRUENA

Mensaje por Hugo Navarro »

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

Volver a “Spanish”