FiveTech Support Forums

LOCAL dDate := CTOD(), bForCond := EVAL({|| nQty := IIF(dDate == DATE(), Qty, FindInvQty (InvNo, Qty, @dDate)), .T.})}
.
.
.
dDate := ... // Date entered by user.
REPORT FORM repname FOR EVAL(bForCond)

// On the report (FRM) there are two columns out of 7:
// Column 4: nQty
// Column 5: nQty * Cost

          COLUMN TITLE 'On Hand'       DATA nQty           PICTURE "999999.99"         SIZE 9
         COLUMN TITLE 'Reorden Point' DATA Reorder        PICTURE "999999.99"         SIZE 9 
         COLUMN TITLE 'Unit Cost'     DATA Cost           PICTURE "999999.99"         SIZE 9 
         COLUMN TITLE 'Total Cost'    DATA ROUND(nQty * Cost,2) ;
                                                          PICTURE "999999.99" TOTAL   SIZE 12
         oRep:bFor   := {|| nQty := IIF(dDate == DATE(), Qty, FindInvQty (InvNo, Qty, @dDate)))}