home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / ORDERFOR.PER < prev    next >
Encoding:
Text File  |  1989-12-08  |  2.3 KB  |  59 lines
  1. DATABASE stores
  2.  
  3. SCREEN
  4. {
  5.  ------------------------------------------------------------------------------
  6.                               ORDER FORM
  7.  ------------------------------------------------------------------------------
  8.  Customer Number:[f000       ]  Contact Name:[f001           ][f002           ]
  9.     Company Name:[f003                ]
  10.          Address:[f004                ][f005                ]
  11.             City:[f006           ] State:[a0] Zip Code:[f007 ]
  12.        Telephone:[f008              ]
  13.  ------------------------------------------------------------------------------
  14.  Order No:[f009       ]    Order Date:[f010      ]    PO Number:[f011      ]
  15.         Shipping Instructions:[f012                                    ]
  16.  ------------------------------------------------------------------------------
  17.  Item No.  Stock No.  Code    Description    Quantity    Price       Total
  18.  [f013  ]  [f014  ]  [a1 ] [f015           ] [f016  ] [f017     ] [f018       ]
  19.  [f013  ]  [f014  ]  [a1 ] [f015           ] [f016  ] [f017     ] [f018       ]
  20.  [f013  ]  [f014  ]  [a1 ] [f015           ] [f016  ] [f017     ] [f018       ]
  21.  [f013  ]  [f014  ]  [a1 ] [f015           ] [f016  ] [f017     ] [f018       ]
  22.                  Running Total including Tax and Shipping Charges:[f019       ]
  23.  ==============================================================================
  24. }
  25.  
  26. TABLES
  27. customer orders items stock
  28.  
  29. ATTRIBUTES
  30. f000 = customer.customer_num; 
  31. f001 = customer.fname;
  32. f002 = customer.lname;
  33. f003 = customer.company;
  34. f004 = customer.address1;
  35. f005 = customer.address2;
  36. f006 = customer.city;
  37. a0 = customer.state, UPSHIFT;
  38. f007 = customer.zipcode;
  39. f008 = customer.phone, PICTURE = "###-###-#### XXXXX";
  40.  
  41. f009 = orders.order_num;
  42. f010 = orders.order_date, DEFAULT = TODAY;
  43. f011 = orders.po_num;
  44. f012 = orders.ship_instruct;
  45.  
  46. f013 = items.item_num, NOENTRY;
  47. f014 = items.stock_num;
  48. a1 = items.manu_code, UPSHIFT;
  49. f015 = stock.description, NOENTRY;
  50. f016 = items.quantity;
  51. f017 = stock.unit_price, NOENTRY;
  52. f018 = items.total_price, NOENTRY;
  53. f019 = formonly.t_price TYPE MONEY;
  54.  
  55. INSTRUCTIONS
  56. SCREEN RECORD s_items[4](items.item_num, items.stock_num, items.manu_code,
  57.         stock.description, items.quantity, stock.unit_price, items.total_price)
  58.  
  59.