bb.donnay-software.com

Code: Select all

INDEX ON FIELDGET(ff) TO Mrk_funi UNIQUE

Code: Select all

*- the following translation is for column total summaries
#xtranslate TOTAL(<field>,<cond>) => ;
{ || TOTALFOOTER( { || < field > }, { || < cond > } ) }


/*------------------------------------------------------------------------
 TOTALFOOTER()

 Total the column and return result as a string.

 SYNTAX:  TotalFooter(expB1, expB2, expC1)

    <expB1> -  code block containing column expression to total
    <expB2> -  code block while condition
    <expC1> -  filter expression

 RETURNS:  String value of total
 --------------------------------------------------------------------------*/
FUNCTION TOTALFOOTER( bExpr, bFor )
LOCAL nSaveRec
LOCAL nTotal   := 0

   nSaveRec := RECNO()
   DBGOTOP()
   DBEVAL( { || nTotal := nTotal + EVAL( bExpr ) }, { || EVAL( bFor ) },,,, .T. )
   DBGOTO( nSaveRec )

RETURN LTRIM( STR( nTotal ) )