FiveTech Software tech support forums

Antonio, El ejemplo estaba funcionando para esta estructura de datos: Local aTipos:={{"FINE ","SUB-Q ","ULTRA "}} Local aMarcas:={"HYALSENSE"} Ahora lo has cambiado a: Local aTipos:={{"FINE ","SUB-Q ","ULTRA ...

... ) I load the types of the database columns I am going to save the data type in an array aTipos [ n ]:= oGrid:aCols[ n ]:cDataType however, it often happens that a text is displayed in a column but the field in the archive is numeric but ...

... and not show allways string filter result or dialog of creation filter with easy commands oFilter:= TFilter():New(aCampos,aTitulos,aTipos, cDbf,oGrid,lNew,cSection)      oFilter:lShowString := .T.      cFilter :=  oFilter:LoadFilter()      IF ! Empty( cFilter)  ...

... Antonio upload on downlist folder Tfilter class FileManager and two samples It is easy to undestand it . oFilter:= TFilter():New(aCampos,aTitulos,aTipos, cDbf,oGrid,lNew,cSection) oFilter:Dialog() oFilter:Activate() cFilter := oFilter:SetFilter() IF ! Empty( cFilter) SET FILTER TO &cFilter ...

If I have a xbrowse I must populate 3 array Local nLen := Len( oGrid:aCols ) Local aCampos [ nLen ] Local aTitulos[ nLen ] Local aTipos [ nLen ] FOR n = 1 TO nLen aCampos [ n ]:= alltrim( cValToChar( (oGrid:cAlias)->( Fieldname( oGrid:aCols[ n ]:nCreationOrder ) ) )) aTitulos [ n ]:= ...

... to class this arrays : local aCampos :={'FIRST','LAST','STREET','CITY','STATE'} local aTitulos :={'First','Last','Street','City','State'} local aTipos :={'C','C','C','C','C'} Filter(aCampos,aTitulos,aTipos,cInifile,oParent,oBrw,cDbf) It create a string filter to save on Inifile and activate ...

... a la funcion BrwAddColumn( ::hWnd, aHeaders[ n ] ) en la creación del browse podemos pasar otro parametro : BrwAddColumn( ::hWnd, aHeaders[ n ] , atipos[n] ) el string del browse será el nombre de la imagen . Una vez en la funcion BrwaddColumn analizaremos el tipo y si este es del tipo imagen ...

... ARRAY ELEMENT 2 ; SIZE 400 EDITABLE; 3DLOOK TRUE,TRUE,TRUE; ALIGN DT_LEFT MOVE DT_MOVE_NEXT ; Preedit {|uVar| fwhisproperts(obrw2,@uVar,aCidades,aTipos)}; Postedit {|| fwhtestpostedit(obrw2)} ; valid {|uVar| fwhvalcampos(uVar,obrw2,obrw3)}; when fwhtestchav(obrw2)

... ARRAY ELEMENT 2 ; SIZE 400 EDITABLE; 3DLOOK TRUE,TRUE,TRUE; ALIGN DT_LEFT MOVE DT_MOVE_NEXT ; Preedit {|uVar| fwhisproperts(obrw2,@uVar,aCidades,aTipos)}; Postedit {|| obRW2:aColumns[2]:cPicture:="@!",fwhtestpostedit(obrw2)} ; valid {|uVar| fwhvalcampos(uVar,obrw2,obrw3)}; when fwhtestchav(obrw2) ...

Con afields() obtienes los campos del fichero: LOCAL aNombresCampo, aTipos, aAnchuras, aDecimales USE Ventas NEW // aNombresCampo := Ventas->(ARRAY(FCOUNT())) aTipos := Ventas->(ARRAY(FCOUNT())) aAnchuras := Ventas->(ARRAY(FCOUNT())) aDecimales := ...