Hola Buenas Tardes, quisiera parametrizar un xbrowse, pasandole por parametros los campos de una tabla, como asi,
las descripciones de los mismos, como lo hacia con en twbrowse de cicarelli, habia un parametro omo el bline, que me permitia
pasar codeblock con los campos de la base y un aheader, con los nombres de los campos. desde ya muchas gracias
FiveTech Support Forums
FiveWin / Harbour / xBase community
Hola Carlos,
podes crear arrays y mandarle los datos, ej:
Espero te sirva y entiendas la idea, de todos modos tambien luego de la definicion podes modifcar cada columna a tu gusto,
si buscas aca en el foro xbrowse() encontraras infinidad de ejemplos, incluso en los ej. de fwh.
Te mando un abrazo.
Saludos.
podes crear arrays y mandarle los datos, ej:
local aCol, aHead, aSize, aJust, aPic
if tucondicion1
aCol:= { "campo1", "campo2", "campo3", ... }
aSize:= { 50, 220, 65, ... }
aHead := { "Codigo", "Nombre", "Domicilio", .. }
aJust := { AL_RIGHT, AL_LEFT, ,.... }
aPic := { "@Z 9999",, ,, }
elseif tucondicion2
aCol:= { "campo10", "campo20" }
aSize:= { 50, 220}
aHead := { "Codigo", "Nombre"}
aJust := { AL_RIGHT, }
aPic := { "@Z 9999", }
elseif tucondicion3
aCol:= { "campo1", "campo3", "campo2", "campo4", ... }
aSize:= { 50, 220, 220, 65, ... }
aHead := { "Codigo", "Domicilio", "Nombre", .. }
aJust := { AL_RIGHT, AL_LEFT, ,.... }
aPic := { "@Z 9999",, ,, }
else
aCol:= { "campo1" }
aSize:= { 220 }
aHead := { "Nombre" }
endif
@ 0, 0 XBROWSE oBrw ;
DATASOURCE oRs ;
COLUMNS aCol ;
HEADERS aHead ;
COLSIZES aSize ;
PICTURE aPic ;
JUSTRIFY aJust ;
LINES CELL AUTOSORTEspero te sirva y entiendas la idea, de todos modos tambien luego de la definicion podes modifcar cada columna a tu gusto,
si buscas aca en el foro xbrowse() encontraras infinidad de ejemplos, incluso en los ej. de fwh.
Te mando un abrazo.
Saludos.
Creo que es lo que necesitas
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=40084&p=239224&hilit=ReArrangeCols&sid=49f637090cf88bfb39496fc0e84c0eec&sid=08f73508aadc229344ddbafbf5794356#p239224
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=40084&p=239224&hilit=ReArrangeCols&sid=49f637090cf88bfb39496fc0e84c0eec&sid=08f73508aadc229344ddbafbf5794356#p239224
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Muchas Gracias Leandro!!!!!!!
Muchas Gracias Ariel