home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / demdat.zip / PREVINVS.SBD < prev    next >
Text File  |  1990-06-01  |  3KB  |  37 lines
  1. Stock_Key      ;TXT VAL REQ IXD ;27                    ;0  ;0  ;>
  2. LOOKUP (Stock_Key.PREVINVS,Stock_Key.STOCKS) ELSE REQUEST "Stock key not found - Please select another Stock","",20,,Stock_Key.PREVINVS,60,Stock_Key.STOCKS,Company Name.STOCKS
  3. Customer_Ref   ;TXT VAL REQ     ;8                     ;1  ;0  ;>
  4. LOOKUP (Customer_Ref.PREVINVS,Customer_Ref.CLIENTS) ELSE REQUEST "Customer ref not found - Please select another customer","",20,,Customer_Ref.PREVINVS,60,Customer_Ref.CLIENTS,Client.CLIENTS,Location.CLIENTS
  5. Transaction ref;NUM CON RDO     ;000000.               ;2  ;0  ;>
  6. SER ("TRANS")
  7. Trans_Type     ;TXT VAL REQ     ;1                     ;3  ;0  ;>
  8. Trans_Type.PREVINVS = "b" OR Trans_Type.PREVINVS = "s" ELSE REQUEST "Valid types are (b)uy or (s)ell","",4,,Trans_Type.PREVINVS,1
  9. Trans_Desc     ;TXT CLC RDO     ;6                     ;4  ;0  ;>
  10. (Trans_Type.PREVINVS = "b") ? "Bought":"Sold"
  11. Trans_Date     ;DAT CON         ;mmm dd,yy             ;5  ;0  ;>
  12. TODAY 
  13. Settlement_Date;DAT CON         ;mmm dd,yy             ;6  ;0  ;>
  14. Trans_Date.PREVINVS + 7
  15. QTY            ;TXT             ;7                     ;7  ;0  ;
  16. PR             ;TXT             ;10                    ;8  ;0  ;
  17. Currency       ;TXT CLC RDO     ;3                     ;9  ;0  ;>
  18. Currency.PREVINVS = "" ? Currency.STOCKS:Currency.PREVINVS
  19. USD Xrate      ;NUM CLC RDO     ;9999999.0000          ;10 ;0  ;>
  20. USD Xrate.PREVINVS = 0 AND LOOKUP (Currency.PREVINVS,Currency.CURRENCY) ? USD Xrate.CURRENCY:USD Xrate.PREVINVS
  21. USDV           ;TXT             ;10                    ;11 ;0  ;
  22. Com            ;NUM             ;z-999999999.00        ;12 ;0  ;
  23. TV             ;TXT             ;10                    ;13 ;0  ;
  24. Client         ;TXT             ;24                    ;14 ;0  ;
  25. Company        ;TXT             ;30                    ;15 ;0  ;
  26. Street         ;TXT             ;30                    ;16 ;0  ;
  27. Address        ;TXT             ;30                    ;17 ;0  ;
  28. City           ;TXT             ;18                    ;18 ;0  ;
  29. State          ;TXT             ;18                    ;19 ;0  ;
  30. Zip_Code       ;TXT             ;10                    ;20 ;0  ;
  31. Country        ;TXT VAL         ;24                    ;21 ;0  ;>
  32. LOOKUP (Country.PREVINVS,Name.COUNTRY) ELSE REQUEST "Country not found","Select another country",20,,Country.PREVINVS,24,Name.COUNTRY
  33. Company Name   ;TXT             ;36                    ;22 ;0  ;
  34. Stock_Type     ;TXT             ;16                    ;23 ;0  ;
  35. Exchange       ;TXT             ;16                    ;24 ;0  ;
  36.  
  37.