FiveTech Software tech support forums

... to uptimize... You see a lot of rems ( // ) because of tests Most used and slowing the process down = the button Set filter calling the function Setfilter Maybe you can have a look at bad object/code ? Would be very nice. static function mailbulk()   local oDlg, oFont, oBrw,cfactart := ...

... into the get :aCols[ 1 ]:cBarGetBmp := hBmp // this for show the Bitmap on the get :aCols[ 1 ]:bBarGetAction := { || ( oBrowse:cAlias )->( SetFilter( oBrowse )) } // this for show the bitmap on the get and associated a action now it might work well but I still have a small problem the image ...

I tell you it doesn't work for me. Neither with seek nor setfilter or locate. It does not search the registry. I do it like this oDbf: SetFilter (xfind) if oDbf: EOF () fiarc: = 0 endif I will post some working samples in my next post. I ask you what ...

Gracias G. N. Rao. Te cuento no me funciona. Ni con seek ni setfilter o locate. No busca el registro Lo hago asi oDbf:SetFilter( xfind ) if oDbf:EOF() fiarc := 0 endif Pero usando ADO si funciona, Te pregunto que libreria se requiere para usar este recurso. ...

... oCn:RowSet( cTableNameOrcSqlStatement, [aParams], [lShowError] ) or oQry := oCn:Query( cTableNameOrcSqlStatement, [aParams] , [lShowError] ) oRs:SetFilter( filterexpression_with_dbfsyntax ) oRs:Filter := <newfilter> Si uso SetFilter de esta manera no me funciona. oDbf:SetFilter( variable='1' ...

... FIELD->INVNUM ) = alltrim(nInvoice) return nil > ) oPartRes:gotop() oPartRes:ArrayToDBF( aItems, cItemFlds,nil , .t., .t. ) oPartRes:SetFilter( "" )

... condición del filtro como una cadena de caracteres. Esta función devuelve el bloque de código usado por el filtro. * Database.prg - Nuevo: Método SetFilter( cFilter, aParams ): se ha añadido aParams como segundo parámetro. aParams es una matriz de valores para ser insertada en el lugar marcado ...

... functin DBFILTER() returns the filter condition as string This function returns the codeblock used for filter * database.prg. - New: Method SetFilter( cFilter, aParams ): aParms is added as second parameter. aParams is an array of values to be inserted in the place holders marked with ?. ...

Yes
Yes
For clearing filter, it is easier and better to use oDbf:SetFilter( "" )

... dtoc(dDataIniziale)+"'<= dtoc(CHECK_OUT)"+; " .and. '"+ dtoc(dDataFinale)+"'=> dtoc(CHECK_IN)" oReservation:setFilter(cFilter) oReservation:gotop() xbrowser oReservation the original was SET FILTER TO AllTrim( RE->TYPE ) == AllTrim( cTypeRoom ) .and. RE->NUM ...

Now I changed if Empty( cFilter ) if ! Empty( DBFILTER() ) oDbf:setfilter() * DBCLEARFILTER() oBrw:Refresh() endif else if !( DBFILTER() == cFilter ) * SET FILTER TO &cFilter oDbf:setfilter(cFilter) oDbf:gotop() *GO TOP oBrw:Refresh() endif endif make ...

with oldest mode run ok
now with tdatabase make error on setfilter func
this line

if !( DBFILTER() == cFilter )
SET FILTER TO &cFilter

... oBrw:aCols[2]:uBarGetVal:= Space(60) oBrw:aCols[2]:cBarGetBmp:= "search.bmp" oBrw:aCols[2]:bBarGetAction:= { || ( oBrw:cAlias )->( SetFilter( oBrw ) ) } oBrw:aCols[3]:uBarGetVal:= Space(2) oBrw:aCols[3]:cBarGetBmp:= "search.bmp" oBrw:aCols[3]:bBarGetAction:= { || ( oBrw:cAlias ...

...  Time from start: 0 hours 0 mins 29 secs    Error occurred at: 30-03-2019, 10:26:34   Error description: Error DBCMD/2001  Workarea not in use: DBSETFILTERStack Calls===========   Called from:  => DBSETFILTER( 0 )   Called from: source\ut\ut_codFisc.prg => SETFILTER( 834 )  ...

I resolved with a easy setfilter I had difficulty finding the way how to pass the values contained in the tips Local cFilter := "trim(Tipo) == '" + cTipo +; "' .and. alltrim(str(giorni))== '" + alltrim(str(nGiorni)) ...