FiveTech Software tech support forums

... function MenuPrin() local i := 0 local TablaMnu := {} local cAccion // aca armo el menu de este usuario if Nivel==1 .OR. Nivel==2 OPCMENU->(DbEval({|| aadd(TablaMnu,{Orden,Tipo,Opcion,Mensaje,Accion,Imagen}) }; ,{|| !deleted() }; ,{|| !eof() })) elseif PERFILFW->(DbSetOrder(1),dbseek(cript(Usuari))) ...

... ,; wfmovpro->(OrdScope(0,nNroTick)),; wfmovpro->(OrdScope(1,nNroTick)),; wfmovpro->(Dbgotop()),; aCredito:={} ,; wfmovpro->(Dbeval({|| AADD( aCredito,{ '',wfmovpro->codint,wfmovpro->producto,; if(empty(wfmovpro->cant),wfmovpro->unidades,wfmovpro->cant),; wfmovpro->preuni,; ...

... personel curiossity ? I would like to know if oPermessi:Exec( { || DELETE FOR ALLTRIM(oPermessi:Usuario)==ALLTRIM(oUtenti:Clave) } ) acts like a dbeval and processes all scopes records... Static Function UtBorra(oUtenti,oPermessi,oGrid2,oGrid3,oBtnCambia)   local cClave:= oUtenti:Clave  ...

Hola no lo he probado pero quizas resulte con dbeval()

Code: Select all  Expand view

      b->( dbEval( {|| iif( Subs(b->Tip_Pag,1,2)="VI".or.Subs(b->Tip_Pag,1,2)="CH", Reg:=Reg + 1, ) },, {||b->!Eof()}))
 

Thanks for sending me in the correct direction !!

In every lookup function (afther selection)
I will add records to the array with a dbeval(....aadd()..)

Also a question about array but now dbeval function Test   local aGroepen:={}   use mailbulk NEW VIA "DBFCDX"   mailbulk->(dbsetorder("email"))   mailbulk->(dbgotop())   DBEVAL( ...

... list of fileds. Eg:"FIRST,CITY,AGE" Default all fields. 2 to 6. bFor,bWhile,nNext,nRec,lRest: (Optional) Same functionality as in DBEVAL() 7. cFileName (Optional) If nil, data is exported to Excel and displayed. Returns the active sheet (oSheet). The user can do further work on ...

... respectively. The return value of the code block must be specified with the RETURN statement. Info See also: {|| }, AEval(), AScan(), ASort(), DbEval(), Eval(), HEval(), LOCAL Category: Indirect execution , Operators , Special operators , xHarbour extensions LIB: xhb.lib DLL: xhbdll.dll Example ...

... bAction, [bFor], [bWhile], [nNext], [nRecNo], [lRest] ) --> Self Sintaxis extendida. Todos los parámetros tienen la misma funcionalidad de DBEVAL (), bAction se evalúa con Self como parámetro. Después de la ejecución, el puntero al registro se restaura. - Nuevo método FieldDefault( ncFld, ...

... - Eval( bAction, [bFor], [bWhile], [nNext], [nRecNo], [lRest] ) --> Self Extended syntax. All parameters have the same functionality of DBEVAL() bAction is evaluated with Self as paramter. After execution record pointer is restored. - New method FieldDefault( ncFld, uDefaultValue ): ...

Mr. Rao, I added the 4 array unique-tests to the tDatabase-samples http://www.pflegeplus.com/IMAGES/Network16.jpg This doesn't exist Is there a replacement for it :?: Case-2 and 3 : oCust: OrdSkipUnique()  // You have a normal index on LAST ( not unique )oCust:OrdSetFocus( "...

Thanks you for the options.

Some new technique's for me...

... field STATE from customer.dbf Case-1: If you already have a Unique Index on STATE. aVals := {}SET ORDER TO TAG STATEUNQDBGOTOP()DBEVAL( { || AAdd( aVals, FIELD->STATE } )  Case-2: You have a normal index on STATE ( not unique )    OrdSetFocus( "STATE" ...

James, Asume the folowing I will Xbrowse all Customers and many colums end have the getbars on top of Xbrowse. I can put "Senford" in the col city, hit the filter button and I will have all customers from Senford. No let say that I don't know the possible city's. Therefore I want to make a...

There is a "UNIQUE" clause for indexes: INDEX … UNIQUE That might help. However, It seems to me that you have already established the set of unique values, or are you going to let users enter new values too? Perhaps you need a separate database for these. I think we need more information.