home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / S / TRISOFT2.LBR / PO.EZ / PO.EX
Text File  |  2000-06-30  |  5KB  |  108 lines
  1.                                                                                get PO.DO update
  2. ..           <<<<<     P U R C H A S E   O R D E R   F O R M     >>>>>
  3. ..
  4. ..
  5. ..                                    ............
  6. ..      AFTER updating record, type:  |   DO     |  to  PRINT  Purchase Orders
  7. ..                                    |..........|
  8. ..
  9. ..
  10. ..                                    ............
  11. ..                                    |   SET    |  to calculate changes
  12. ..                                    |..........|
  13. ..                                    ............
  14. ..                                    |  UPDATE  |  to continue UPDATE
  15. ..                                    |..........|
  16. ..                                    ............
  17. ..                                    |  MODELS  |  to return to MODELS Menu
  18. ..                                    |..........|
  19. ..
  20. ..
  21. ..
  22. <Form>
  23.                    * *   P U R C H A S E   O R D E R   F O R M   * *
  24.  
  25.      Buyer:   {LASTNAME}
  26.    Company:   {COMPANY                                                        }
  27.       City:   {CITY                                                           }
  28.             ...............                            ....................
  29.  PO NUMBER: | {PONUMBER}  |                   SHIPVIA: | {SHIPVIA}        |
  30.    PO DATE: | {#POMONTH}/{#PODAY}/{#POYEAR}    |                  REQUIRED: | {#RMONTH}/{#RDAY}/{#RYEAR}         |
  31.      TERMS: | {TERMS}     |                    F.O.B.: | {FOB            }|
  32.             |.............|                            |..................|
  33.    QTY    ITEM      DESCRIPTION                    UNIT COST     EXTENDED COST
  34. ...............................................................................
  35. |{Q1>}    {ITEM1<}  {DESCRIPTION1<         }   ${UNITCOST1>}     ${EXTENDED1>}|
  36. |{Q2>}    {ITEM2<}  {DESCRIPTION2<         }    {UNITCOST2>}      {EXTENDED2>}|
  37. |{Q3>}    {ITEM3<}  {DESCRIPTION3<         }    {UNITCOST3>}      {EXTENDED3>}|
  38. |{Q4>}    {ITEM4<}  {DESCRIPTION4<         }    {UNITCOST4>}      {EXTENDED4>}|
  39. |                                                          TAX          {TAX }|
  40. |                                                          TOTAL ${TOTAL    >}|
  41. |.............................................................................|
  42.  
  43. _______________________________________________________________________________
  44. CTRL-Q     ESC '     ESC &     ESC >     ESC <     ESC up     ESC dn     ESC A
  45.  exit     search     cont.      new     delete      prev       next      first
  46. <End>
  47.  
  48. <Rules>
  49. EXTENDED1 9,999.99 = (Q1 * UNITCOST1)  when  UNITCOST1 > 0
  50. EXTENDED2 9,999.99 = (Q2 * UNITCOST2)  when  UNITCOST2 > 0
  51. EXTENDED3 9,999.99 = (Q3 * UNITCOST3)  when  UNITCOST3 > 0
  52. EXTENDED4 9,999.99 = (Q4 * UNITCOST4)  when  UNITCOST4 > 0
  53. TAX 999.99 =  (EXTENDED1+ EXTENDED2+EXTENDED3+EXTENDED4)* 0.065 when STATE = CA
  54. TOTAL 999,999.99 = (EXTENDED1 + EXTENDED2 + EXTENDED3 + EXTENDED4) + TAX
  55. <End>
  56.  
  57. <Record>
  58. 01 {LASTNAME}
  59. 02 {COMPANY                                                        }
  60. 03 {ADDRESS                                                        }
  61. 04 {CITY                                                           }
  62. 05 {#STATE}, {ZIP}
  63. 06 {PONUMBER#>} {SHIPVIA#<}
  64. 07 {#POMONTH}/{#PODAY}/{#POYEAR}  {#RMONTH}/{#RDAY}/{#RYEAR}
  65. 08 {TERMS} {FOB            }
  66. 09 {Q1>}  {ITEM1<}  {DESCRIPTION1<         } {UNITCOST1>}  {EXTENDED1>}
  67. 10 {Q2>}  {ITEM2<}  {DESCRIPTION2<         } {UNITCOST2>}  {EXTENDED2>}
  68. 11 {Q3>}  {ITEM3<}  {DESCRIPTION3<         } {UNITCOST3>}  {EXTENDED3>}
  69. 12 {Q4>}  {ITEM4<}  {DESCRIPTION4<         } {UNITCOST4>}  {EXTENDED4>}
  70. 13 {TAX }
  71. 14 {TOTAL    >}
  72. <End>
  73. 01 Flintstone
  74. 02 Precambrian Construction
  75. 03 14 Granite Block
  76. 04 BedRock
  77. 05 CA, 94306
  78. 06       0075 UPS
  79. 07 10/14/85  10/14/85
  80. 08 Net 30  BedRock
  81. 09  1000  1212      Ink Pens                         1.07      1,070.00
  82. 10     5  4322      Dinosaur Food                   39.99        199.95
  83. 11    10  3230      Canvass Paper                  129.95      1,299.50
  84. 12
  85. 13 167.01
  86. 14     2,736.46
  87. 01 Jetson
  88. 02 Spacesly Sprockets
  89. 03 12345 Milkey Way
  90. 04 Astroville
  91. 05 NY, 23200
  92. 06 0076       UPS
  93. 07 10/14/85  10/14/85
  94. 08 Net 30  BedRock
  95. 09    25  1212      Ink Pens                         1.07         26.75
  96. 10     5  3230      Canvass Paper                  129.95        649.75
  97. 11
  98. 12
  99. 13
  100. 14       676.50
  101. ÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷ze Chars (12 pitch) | `e  |   σ  |   SCREEN  BUT
  102. 211   27 30   128   |SUPERSCRIPT                 | `S  |  ╙   |   NOT IN YOUR
  103. 243   27 28   128   |subSCRIPT                   | `s  |   ≤  |   PRINTOUT.
  104. 205   27 77   128   |Microfont                   | `M  |  ═   |
  105. 201   27 66   128   |Italics                     | `I  |   ╔  |   HIGH  BIT
  106. 208   27 17   128   |Proportional Spacing        | `P  |  ╨   |   CHARACTER
  107. 194   27 31   128   |Start BOLD                  | `B  |   ┬  |   is  a  ( ` )
  108. 226   2