project QadFinancials > class BBox1099 > method InitialValues

Description

Add code here to initialize the calculated fields of a 'new' record (= a record that must be created in the application database) in a class temp-table.


Parameters


icTableNameinputcharacterName of the database table of which a record is created in the class temp-table.
oiReturnStatusoutputinteger


Internal usage


unused


program code (program/bbox1099.p)

<ANCESTOR-CODE>
    
case icTableName:
     when "Box1099":U 
      then do:
           tBox1099.Box1099IsActive = true.
           tBox1099.Box1099CalendarYear = YEAR(TODAY).
      end.  
end case.