home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / TRANS.SBD < prev    next >
Encoding:
Text File  |  1989-09-24  |  2.8 KB  |  51 lines
  1. Stock_Key      ;TXT VAL REQ IXD ;27                    ;0  ;6  ;>
  2. LOOKUP (Stock_Key.TRANS,Stock_Key.STOCKS) ELSE REQUEST "Stock key not found - Please select another Stock","",20,,Stock_Key.TRANS,60,Stock_Key.STOCKS,Company Name.STOCKS
  3. Customer_Ref   ;TXT VAL REQ IXD ;8                     ;0  ;46 ;>
  4. LOOKUP (Customer_Ref.TRANS,Customer_Ref.CLIENTS) ELSE REQUEST "Customer ref not found - Please select another customer","",20,,Customer_Ref.TRANS,60,Customer_Ref.CLIENTS,Client.CLIENTS,Location.CLIENTS
  5. Transaction ref;NUM CON RDO IXD ;000000.               ;1  ;0  ;>
  6. SER ("TRANS")
  7. Trans_Type     ;TXT VAL REQ     ;1                     ;1  ;48 ;>
  8. Trans_Type.TRANS = "b" OR Trans_Type.TRANS = "s" ELSE REQUEST "Valid types are (b)uy or (s)ell","",4,,Trans_Type.TRANS,1
  9. Trans_Date     ;DAT CON         ;mmm dd,yy             ;2  ;5  ;>
  10. TODAY 
  11. Trans_Time     ;TIM             ;hh:mm am              ;2  ;48 ;
  12. Settlement_Date;DAT CON         ;mmm dd,yy             ;3  ;0  ;>
  13. Trans_Date.TRANS + 7
  14. Quantity       ;NUM             ;99999999.             ;5  ;7  ;
  15. Stock_Price    ;NUM CLC RDO     ;9999999.0000          ;7  ;4  ;>
  16. (Trans_Type.TRANS = "s") ? Price Bid.STOCKS:(Trans_Type.TRANS = "b") ? Price Asked.STOCKS:Stock_Price.TRANS
  17. Currency       ;VTX CLC RDO IXD ;3                     ;5  ;50 ;>
  18. LOOKUP (Stock_Key.TRANS,Stock_Key.STOCKS) ? Currency.STOCKS:Currency.TRANS
  19. Currency_Value ;NUM CLC RDO     ;99999999.00           ;7  ;44 ;>
  20. (Trans_Type = "b") ? (Stock_Price.TRANS * Quantity.TRANS) / Factor.CURRENCY:(Stock_Price.TRANS * Quantity.TRANS) / Factor.CURRENCY * - 1
  21. USD Xrate      ;NUM CLC RDO     ;9999999.0000          ;6  ;49 ;>
  22. USD Xrate.CURRENCY
  23. USD Price      ;NUM CLC RDO     ;9999999.00            ;8  ;6  ;>
  24. (Stock_Price.TRANS / Factor.CURRENCY) / USD Xrate.TRANS
  25. USD Value      ;NUM CLC RDO     ;-999999.00            ;8  ;49 ;>
  26. Currency_Value.TRANS / USD Xrate.TRANS
  27. Commission_Rate;NUM CLC RDO     ;99.00                 ;10 ;0  ;>
  28. LOOKUP (Customer_Ref.TRANS,Customer_Ref.CLIENTS) ? Commission_Rate.CLIENTS:Commission_Rate.TRANS
  29. Comm_Value     ;NUM CLC RDO     ;-9999999.00           ;10 ;48 ;>
  30. Commission_Rate.TRANS * ABS (USD Value.TRANS) / 100
  31. IndexCustStock ;VTX CLC RDO IXD ;35                    ;13 ;1  ;>
  32. Customer_Ref.TRANS + Stock_Key.TRANS
  33. IndexStockCust ;VTX CLC RDO IXD ;35                    ;14 ;1  ;>
  34. Stock_Key.TRANS + Customer_Ref.TRANS
  35. Certificate_No ;TXT             ;20                    ;11 ;1  ;
  36. Cert_Sent_yn   ;TXT CON         ;1                     ;11 ;46 ;>
  37. "n"
  38. Invoice_Sent_yn;TXT CON         ;1                     ;12 ;43 ;>
  39. "n"
  40. Trans_Desc     ;VTX CLC RDO     ;6                     ;15 ;5  ;>
  41. (Trans_Type.TRANS = "b") ? "Bought":"Sold"
  42. Total_Due      ;NUM CLC RDO     ;z-9999999.00          ;16 ;6  ;>
  43. USD Value.TRANS + Comm_Value.TRANS
  44.  
  45. Stock_Key
  46. Customer_Ref
  47. Transaction ref
  48. Trans_Date
  49. USD Value
  50. Comm_Value
  51.