home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / jetform / forms / ex_e_11.frm next >
Encoding:
Text File  |  1994-02-25  |  10.9 KB  |  285 lines
  1. ^title Example purchase order form provided with JetForm Filler
  2. ^page 1
  3.                                 SEVA LANDSCAPING
  4.                                 PURCHASE REQUEST                                                [DBPATH                                                                          ]
  5.  
  6.                                                                                                      [TO                                                 ]
  7.                             Vendor Code    Vendor Name                                               [                                                   ]
  8.                          [VENDOR_CODE ]  [VENDNAME                     ]                             [                                                   ]
  9.                                                                                                      [                                                   ]
  10.                                                                                                      [                                                   ]
  11.  
  12.        Date       Req Number               Standard Vendor Terms                                     [CC                                                 ]
  13.                                                                                                      [                                                   ]
  14.    [DATE    ]    [REQ_NUMBER]   [VENDTERM                            ]                               [                                                   ]
  15.                                                                                                      [                                                   ]
  16.                                                                                       [0]            [                                                   ]
  17.        Vendor                                         Bill To
  18.                                                  [JF02                ]                               [SUBJECT                                           ]
  19.   [VENDADDR1                     ]                   Marketing
  20.   [VENDADDR2                     ]               [JF01                ]
  21.   [VENDADDR3                     ]                   Sales
  22.   [VENDADDR4                     ]                   Administration
  23.   [VENDADDR5                     ]                   Other
  24.                                                      Charge Code   [JF06 ]
  25.                                                  [JF03                ]
  26.                                                  [JF05                ]
  27.  
  28.   Part      Qty    Description                 Ord       Unit     Total Price
  29.   No.                                          Unit      Price
  30.  [PARTNO  ][QTY  ][PARTNAME                  ][UNITS][PRICE     ][LINETOTAL  ]
  31.  [PARTNO  ][QTY  ][PARTNAME                  ][UNITS][PRICE     ][LINETOTAL  ]
  32.  [PARTNO  ][QTY  ][PARTNAME                  ][UNITS][PRICE     ][LINETOTAL  ]
  33.  [PARTNO  ][QTY  ][PARTNAME                  ][UNITS][PRICE     ][LINETOTAL  ]
  34.  [PARTNO  ][QTY  ][PARTNAME                  ][UNITS][PRICE     ][LINETOTAL  ]
  35.  [PARTNO  ][QTY  ][PARTNAME                  ][UNITS][PRICE     ][LINETOTAL  ]
  36.  [PARTNO  ][QTY  ][PARTNAME                  ][UNITS][PRICE     ][LINETOTAL  ]
  37.  
  38.          Employee Id [00  ]                          Page Total  [POTOTAL    ]
  39.                                                      Discount %  [DISCOUNT   ]
  40.     Employee's Signature                         Discount Total  [DISCTOTAL  ]
  41.    [SIGNATURE                               ]         State Tax  [SALESTAX   ]
  42.     Manager's Signature          
  43.    [MAN_SIG                                 ]       FINAL TOTAL  [GRANDTOTAL ]
  44.  
  45.   Comments/explanations
  46.  
  47.  [JF07                                                                   ]
  48.  [                                                                       ]
  49.  [                                                                       ]
  50. ^end
  51. ^field DBPATH
  52. ^noecho
  53. ^calculation Rtrim(Substr(GetProfile("OpenDataFile","Paths"), 1, (Len(GetProfile("OpenDataFile","Paths")) -5)))
  54. ^field TO
  55. ^noecho
  56. ^field VENDOR_CODE
  57. ^warning
  58. ^validation SetValue("","VendName", "VendTerm", "VendAddr1", "VendAddr2", "VendAddr3", "VendAddr4", "VendAddr5")  if(DbFetch(Concat(DBPATH,"\","EX_E_11.DBF"),"VENDNO",1)<>"1",return("0"))  SetValue(DbField(1,"VendName"), "VendName")  SetValue(DbField(1,"VendTerm" ), "VendTerm")  SetValue(DbField(1,"VendAddr1"), "VendAddr1")  SetValue(DbField(1,"VendAddr2"), "VendAddr2")  SetValue(DbField(1,"VendAddr3"), "VendAddr3")  SetValue(DbField(1,"VendAddr4"), "VendAddr4")  SetValue(DbField(1,"VendAddr5"), "VendAddr5")
  59. ^message Invalid Vendor Code
  60. To see list of valid vendor names, press F3
  61. ^field VENDNAME
  62. ^field CC
  63. ^noecho
  64. ^field DATE
  65. ^warning
  66. ^calculation today()
  67. ^default
  68. ^field REQ_NUMBER
  69. ^warning
  70. ^justify center
  71. ^field VENDTERM
  72. ^warning
  73. ^justify center
  74. ^field SEND_INDEX 0
  75. ^numeric
  76. ^noecho
  77. ^calculation 1
  78. ^default
  79. ^field SUBJECT
  80. ^noecho
  81. ^field VENDADDR1
  82. ^field JF01
  83. ^radio 38
  84. Check here if billing should be to marketing department
  85. ^field VENDADDR2
  86. ^field JF02
  87. ^radio 38
  88. Check here if billing should be to sales department
  89. ^field VENDADDR3
  90. ^field JF03
  91. ^radio 38
  92. Check here if billing should be to admin department
  93. ^field VENDADDR4
  94. ^field JF05
  95. ^radio 38
  96. Check here if billing should be to some department other than marketing, sales, or admin.
  97. ^field VENDADDR5
  98. ^field JF06
  99. ^calculation If(JF01 = "X", "65000",    If(JF02 = "X", "66000",       If(JF03 = "X", "67000", "99999")))
  100. ^field PARTNO
  101. ^validation SetValue("","PartName","Units","Price")  if (DbFetch(Concat(DBPATH,"\","EX_E_12.DBF"),"PARTNO",2)<>"1", return("0"))  SetValue(DbField(2,"PartName"), "PartName")  SetValue(DbField(2,"Units"),        "Units")  SetValue(DbField(2,"Price"),        "Price")  return("1")
  102. ^message Invalid part number
  103. To see list of valid part numbers, press F3
  104. ^field QTY
  105. ^numeric
  106. ^justify right
  107. ^picture Z,ZZ9
  108. ^field PARTNAME
  109. ^protected
  110. ^field UNITS
  111. ^protected
  112. ^field PRICE
  113. ^protected
  114. ^justify right
  115. ^field LINETOTAL
  116. ^numeric
  117. ^justify right
  118. ^picture $zzz,zzz.zz
  119. ^calculation QTY*PRICE
  120. ^field PARTNO
  121. ^validation SetValue("","PartName","Units","Price")  if (DbFetch(Concat(DBPATH,"\","EX_E_12.DBF"),"PARTNO",2)<>"1", return("0"))  SetValue(DbField(2,"PartName"), "PartName")  SetValue(DbField(2,"Units"),        "Units")  SetValue(DbField(2,"Price"),        "Price")  return("1")
  122. ^message Invalid part number
  123. To see list of valid part numbers, press F3
  124. ^field QTY
  125. ^numeric
  126. ^justify right
  127. ^picture Z,ZZ9
  128. ^field PARTNAME
  129. ^protected
  130. ^field UNITS
  131. ^protected
  132. ^field PRICE
  133. ^protected
  134. ^justify right
  135. ^field LINETOTAL
  136. ^numeric
  137. ^justify right
  138. ^picture $zzz,zzz.zz
  139. ^calculation QTY*PRICE
  140. ^field PARTNO
  141. ^validation SetValue("","PartName","Units","Price")  if (DbFetch(Concat(DBPATH,"\","EX_E_12.DBF"),"PARTNO",2)<>"1", return("0"))  SetValue(DbField(2,"PartName"), "PartName")  SetValue(DbField(2,"Units"),        "Units")  SetValue(DbField(2,"Price"),        "Price")  return("1")
  142. ^message Invalid part number
  143. To see list of valid part numbers, press F3
  144. ^field QTY
  145. ^numeric
  146. ^justify right
  147. ^picture Z,ZZ9
  148. ^field PARTNAME
  149. ^protected
  150. ^field UNITS
  151. ^protected
  152. ^field PRICE
  153. ^protected
  154. ^justify right
  155. ^field LINETOTAL
  156. ^numeric
  157. ^justify right
  158. ^picture $zzz,zzz.zz
  159. ^calculation QTY*PRICE
  160. ^field PARTNO
  161. ^validation SetValue("","PartName","Units","Price")  if (DbFetch(Concat(DBPATH,"\","EX_E_12.DBF"),"PARTNO",2)<>"1", return("0"))  SetValue(DbField(2,"PartName"), "PartName")  SetValue(DbField(2,"Units"),        "Units")  SetValue(DbField(2,"Price"),        "Price")  return("1")
  162. ^message Invalid part number
  163. To see list of valid part numbers, press F3
  164. ^field QTY
  165. ^numeric
  166. ^justify right
  167. ^picture Z,ZZ9
  168. ^field PARTNAME
  169. ^protected
  170. ^field UNITS
  171. ^protected
  172. ^field PRICE
  173. ^protected
  174. ^justify right
  175. ^field LINETOTAL
  176. ^numeric
  177. ^justify right
  178. ^picture $zzz,zzz.zz
  179. ^calculation QTY*PRICE
  180. ^field PARTNO
  181. ^validation SetValue("","PartName","Units","Price")  if (DbFetch(Concat(DBPATH,"\","EX_E_12.DBF"),"PARTNO",2)<>"1", return("0"))  SetValue(DbField(2,"PartName"), "PartName")  SetValue(DbField(2,"Units"),        "Units")  SetValue(DbField(2,"Price"),        "Price")  return("1")
  182. ^message Invalid part number
  183. To see list of valid part numbers, press F3
  184. ^field QTY
  185. ^numeric
  186. ^justify right
  187. ^picture Z,ZZ9
  188. ^field PARTNAME
  189. ^protected
  190. ^field UNITS
  191. ^protected
  192. ^field PRICE
  193. ^protected
  194. ^justify right
  195. ^field LINETOTAL
  196. ^numeric
  197. ^justify right
  198. ^picture $zzz,zzz.zz
  199. ^calculation QTY*PRICE
  200. ^field PARTNO
  201. ^validation SetValue("","PartName","Units","Price")  if (DbFetch(Concat(DBPATH,"\","EX_E_12.DBF"),"PARTNO",2)<>"1", return("0"))  SetValue(DbField(2,"PartName"), "PartName")  SetValue(DbField(2,"Units"),        "Units")  SetValue(DbField(2,"Price"),        "Price")  return("1")
  202. ^message Invalid part number
  203. To see list of valid part numbers, press F3
  204. ^field QTY
  205. ^numeric
  206. ^justify right
  207. ^picture Z,ZZ9
  208. ^field PARTNAME
  209. ^protected
  210. ^field UNITS
  211. ^protected
  212. ^field PRICE
  213. ^protected
  214. ^justify right
  215. ^field LINETOTAL
  216. ^numeric
  217. ^justify right
  218. ^picture $zzz,zzz.zz
  219. ^calculation QTY*PRICE
  220. ^field PARTNO
  221. ^validation SetValue("","PartName","Units","Price")  if (DbFetch(Concat(DBPATH,"\","EX_E_12.DBF"),"PARTNO",2)<>"1", return("0"))  SetValue(DbField(2,"PartName"), "PartName")  SetValue(DbField(2,"Units"),        "Units")  SetValue(DbField(2,"Price"),        "Price")  return("1")
  222. ^message Invalid part number
  223. To see list of valid part numbers, press F3
  224. ^field QTY
  225. ^numeric
  226. ^justify right
  227. ^picture Z,ZZ9
  228. ^field PARTNAME
  229. ^protected
  230. ^field LINETOTAL
  231. ^numeric
  232. ^justify right
  233. ^picture $zzz,zzz.zz
  234. ^calculation QTY*PRICE
  235. ^field UNITS
  236. ^protected
  237. ^field PRICE
  238. ^protected
  239. ^justify right
  240. ^field POTOTAL
  241. ^numeric
  242. ^justify right
  243. ^picture $zzz,zzz.zz
  244. ^calculation Sum(LINETOTAL)
  245. ^field DISCOUNT
  246. ^numeric
  247. ^justify right
  248. ^picture z9.99
  249. ^validation $<50
  250. ^valiOverride
  251. ^message discount must be < 50%
  252. discount percentage must be less than 50%
  253. ^field DISCTOTAL
  254. ^numeric
  255. ^justify right
  256. ^picture $zzz,zzz.zz
  257. ^calculation POTOTAL*DISCOUNT/100
  258. ^field SALESTAX
  259. ^numeric
  260. ^justify right
  261. ^picture $zzz,zzz.zz
  262. ^calculation (POTOTAL-DISCTOTAL)*0.08
  263. ^override
  264. ^field GRANDTOTAL
  265. ^numeric
  266. ^justify right
  267. ^picture $zzz,zzz.zz
  268. ^calculation POTOTAL-DISCTOTAL+SALESTAX
  269. ^field EMPID 00
  270. ^numeric
  271. ^mandatory
  272. ^validation Oneof(Substr($, 1, 1), "1", "2", "3")
  273. ^message Invalid employee ID - Must start with 1, 2 or 3
  274. Enter your 4 digit employee ID which must start with 1, 2, or 3.
  275. ^field SIGNATURE
  276. ^warning
  277. ^signature
  278. ^calculation LockFields(2,"DISCOUNT","PARTNO","PO_NUMBER","QTY","VENDOR_CODE")
  279. Hit the space bar to get to the signature dialog, then enter your signature password. If you have forgotten your password, contact Sys-Admin at 555-1213.
  280. ^field MAN_SIG
  281. ^signature
  282. ^calculation LockFields(2,"SIGNATURE")
  283. Hit the space bar to get the signature dialog, then enter your signature password.
  284. ^field JF07
  285.