home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 June / PCD0695.ISO / timewise / trial / timsheet.sb_ / timsheet.sb
Text File  |  1994-12-27  |  2KB  |  29 lines
  1. 5
  2. Enabler        ;TXT VAL     IXD ;30                    ;0  ;0  ;30 ;1  ;30 ;>
  3.     VAL LOOKUP (Enabler.TIMSHEET,UserID.USERS) ELSE REQUEST "Invalid Enabler Name","Please select from the List provided.",20,,Enabler.TIMSHEET,60,UserID.USERS,CompanyName.USERS
  4. ProjectCode    ;TXT         IXD ;8                     ;1  ;0  ;11 ;1  ;8  ;
  5. DateofTS       ;DAT CON     IXD ;0d/mm/yy              ;2  ;0  ;8  ;1  ;8  ;>
  6.     FRM TODAY 
  7. Duration       ;TIM             ;hh:mm                 ;3  ;0  ;8  ;1  ;5  ;
  8. HourlyRate     ;NUM             ;,9999.00              ;4  ;0  ;10 ;1  ;8  ;
  9. WorkCost       ;NUM CLC RDO     ;,999999.00            ;5  ;0  ;10 ;1  ;10 ;>
  10.     FRM ( HRS (Duration.TIMSHEET) * HourlyRate.TIMSHEET) + ( MINS (Duration.TIMSHEET) / 60) * HourlyRate.TIMSHEET
  11. TSSeqNo        ;TXT     RDO IXU ;8                     ;6  ;0  ;8  ;1  ;8  ;
  12. ProjectName    ;TXT VAL RDO IXD ;20                    ;7  ;0  ;20 ;1  ;20 ;>
  13.     VAL LOOKUP (ProjectName.TIMSHEET,ProjectName.PROJECTS) ELSE REQUEST "Please use one of these Project Names","OR Create a new one.",20,,ProjectName.TIMSHEET,72,ProjectName.PROJECTS,ProjectDesc.PROJECTS
  14. enabproj       ;VTX CLC RDO IXD ;50                    ;8  ;0  ;30 ;1  ;50 ;>
  15.     FRM Enabler.TIMSHEET + ProjectName.TIMSHEET
  16. UserSeqno      ;TXT     RDO IXD ;8 U                   ;9  ;0  ;9  ;1  ;8  ;>
  17.     COM Please Eneter Your Company Name
  18. enabdate       ;VTX CLC RDO IXD ;14 U                  ;10 ;0  ;14 ;1  ;14 ;>
  19.     FRM UserSeqno.TIMSHEET + STR$ ( DAYS (DateofTS.TIMSHEET),"999999")
  20.  
  21. Enabler
  22. TSSeqNo
  23. ProjectCode
  24. DateofTS
  25. Duration
  26. HourlyRate
  27. WorkCost
  28. ProjectName
  29.