Xbrowse
Posted: Wed Feb 16, 2022 6:21 pmQuisiera parametrizar a traves de parametros los campos de un dbf. Gracias
Carlos,
Puedes explicar lo que necesitas ?
Un ejemplo aunque sea de "pseudo" código ?
FiveTech Software tech support forums
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Xbrowse
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=41414
Page 1 of 1
Posted: Wed Feb 16, 2022 6:21 pmRe: Xbrowse
Posted: Wed Feb 16, 2022 7:16 pmRe: Xbrowse
Posted: Wed Feb 16, 2022 8:38 pmCarlosFossati wrote:Quisiera parametrizar a traves de parametros los campos de un dbf. Gracias
En el ejemplo que pone el compañero Ariel en respuesta a tu anterior post, aparece como aCols, es el array que pasarías en la clausula COLUMNS del xbrowse ( pueden ser nombres de campos, el numero de campo, e incluso alguna expresion como llamadas en codeblock a una function )
viewtopic.php?f=6&t=41397&sid=a84e82740ebbd5ddfd3282a55294f2d1#p248015
Re: Xbrowse
Posted: Sat Feb 19, 2022 1:07 amaCol := {"StrZero(Productos->Codigo,8,0)","Productos->Descrip","StrZero(Productos->Rubro,4,0) + "-" +Traetabla("Rubros","Indi1","Rubros",Productos->Rubro)[2]","Productos->Precio1","Productos->Precio2"}
aHead:= {"Código","Descripción","Rubro","Precio 1","Precio 2"}
aSize:= { 90 * Factory,240 * Factory,240 * Factory,110 * Factory,110 * Factory }
aJust:= { AL_CENTER , AL_LEFT , AL_LEFT, AL_RIGHT , AL_RIGHT }
@ 0, 0 XBROWSE oBr COLUMNS aCol HEADERS aHead COLSIZES aSize JUSTRIFY aJust OF oDlg
aHead:= {"Código","Descripción","Rubro","Precio 1","Precio 2"}
aSize:= { 90 * Factory,240 * Factory,240 * Factory,110 * Factory,110 * Factory }
aJust:= { AL_CENTER , AL_LEFT , AL_LEFT, AL_RIGHT , AL_RIGHT }
@ 0, 0 XBROWSE oBr COLUMNS aCol HEADERS aHead COLSIZES aSize JUSTRIFY aJust OF oDlg
Re: Xbrowse
Posted: Sat Feb 19, 2022 3:04 amEvidentemente, sustituye
por
que fue un error tipográfico del compañero
Mirate el fichero en la carpeta include XBROWSE.CH
JUSTRIFY
por
JUSTIFY
que fue un error tipográfico del compañero
Mirate el fichero en la carpeta include XBROWSE.CH