home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 160.img / A4V11B-2.ZIP / DEMO.ZIP / DEMO.RL4 < prev    next >
Encoding:
Text File  |  1989-11-17  |  3.4 KB  |  391 lines
  1. A4,8,1,0
  2. ALPHA/four Field Rules
  3. 26
  4. INV_DATA, INVOICE_NO, C, 0, 0
  5. 0,0,0,1,0,0,0,1,0,0
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. INV_DATA, ORDER_DATE, D, 0, 1
  17. 0,0,0,0,0,0,2,0,0,0
  18.  
  19.  
  20.  
  21.  
  22. date()
  23.  
  24.  
  25.  
  26.  
  27.  
  28. INV_DATA, SHIP_VIA, C, 0, 2
  29. 0,0,0,0,0,0,0,0,0,1
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40. 0,1,1,4,1,1
  41.  
  42.  
  43.  
  44. 0
  45. 0
  46. 4,16,0,,,,,,First Class MailFederal ExpressUPS - BlueUPS - Red
  47. INV_DATA, TERMS, C, 0, 3
  48. 0,0,0,0,0,0,0,0,0,1
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59. 0,1,3,6,1,1
  60.  
  61.  
  62.  
  63. 0
  64. 0
  65. 6,9,0,,,,,,30 Days60 Days90 DaysNo ChargePre-PaidC.O.D
  66. INV_DATA, PART1, C, 0, 5
  67. 0,0,0,0,0,0,0,0,0,1
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78. 1,1,1,10,0,0
  79. INV_PARS.DBF
  80. PART_PRT
  81. PART_DES
  82. 3
  83. PART_NO, 4
  84. DESC, 50
  85. UNIT_PRICE, 8
  86. 3
  87. PART_NO, PART1
  88. DESC, DESC1
  89. UNIT_PRICE, PRC1
  90. 0,66,0,INVOICE_NO,INVOICE_NO,INVOICE_NO,INVOICE_NO,INVOICE_NO,
  91. INV_DATA, QTY1, N, 0, 6
  92. 0,0,100,0,2,0,0,0,0,0
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101. qty1 > 50
  102. isblank(part1)
  103. INV_DATA, DESC1, C, 0, 7
  104. 0,0,0,0,0,0,0,0,0,0
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114. qty1<=0.or..not.isblank(DESC1)
  115. INV_DATA, TOTAL1, N, 0, 9
  116. 0,0,0,0,1,0,0,0,0,0
  117.  
  118.  
  119.  
  120. QTY1*PRC1
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127. INV_DATA, PART2, C, 0, 10
  128. 0,0,0,0,0,0,0,0,0,1
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138. isblank(part1)
  139. 1,1,1,10,0,0
  140. INV_PARS.DBF
  141. PART_PRT
  142. PART_DES
  143. 3
  144. PART_NO, 4
  145. DESC, 50
  146. UNIT_PRICE, 8
  147. 3
  148. PART_NO, PART2
  149. DESC, DESC2
  150. UNIT_PRICE, PRC2
  151. 0,66,0,INVOICE_NO,INVOICE_NO,INVOICE_NO,INVOICE_NO,INVOICE_NO,
  152. INV_DATA, QTY2, N, 0, 11
  153. 0,0,100,0,2,0,0,0,0,0
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163. isblank(part2)
  164. INV_DATA, DESC2, C, 0, 12
  165. 0,0,0,0,0,0,0,0,0,0
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175. qty2<=0.or..not.isblank(desc2)
  176. INV_DATA, TOTAL2, N, 0, 14
  177. 0,0,0,0,1,0,0,0,0,0
  178.  
  179.  
  180.  
  181. QTY2*PRC2
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188. INV_DATA, PART3, C, 0, 15
  189. 0,0,0,0,0,0,0,0,0,1
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199. isblank(part2)
  200. 1,1,1,10,0,0
  201. INV_PARS.DBF
  202. PART_PRT
  203. PART_PRT
  204. 3
  205. PART_NO, 4
  206. DESC, 50
  207. UNIT_PRICE, 8
  208. 3
  209. PART_NO, PART3
  210. DESC, DESC3
  211. UNIT_PRICE, PRC3
  212. 0,66,0,INVOICE_NO,INVOICE_NO,INVOICE_NO,INVOICE_NO,INVOICE_NO,
  213. INV_DATA, QTY3, N, 0, 16
  214. 0,0,100,0,2,0,0,0,0,0
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  
  224. isblank(part3)
  225. INV_DATA, DESC3, C, 0, 17
  226. 0,0,0,0,0,0,0,0,0,0
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236. qty3<=0.or..not.isblank(desc3)
  237. INV_DATA, TOTAL3, N, 0, 19
  238. 0,0,0,0,1,0,0,0,0,0
  239.  
  240.  
  241.  
  242. QTY3*PRC3
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249. INV_DATA, PRC2, N, 0, 13
  250. 0,0,0,0,0,0,0,0,0,0
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260. qty2<=0.or.prc2>0
  261. INV_DATA, PRC3, N, 0, 18
  262. 0,0,0,0,0,0,0,0,0,0
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272. qty3<=0.or.prc3>0
  273. INV_DATA, COMPANY_ID, C, 0, 4
  274. 0,0,0,1,0,0,0,0,0,1
  275.  
  276.  
  277.  
  278.  
  279.  
  280. If not on list escape out of record and zoom.
  281.  
  282.  
  283.  
  284.  
  285. 1,1,7,10,1,0
  286. INV_COMP.DBF
  287. CO_CO_ID
  288. CO_COMP
  289. 2
  290. COMPANY_ID, 6
  291. COMPANY, 40
  292. 1
  293. COMPANY_ID, COMPANY_ID
  294. 0,48,0,INVOICE_NO,INVOICE_NO,INVOICE_NO,INVOICE_NO,INVOICE_NO,
  295. INV_DATA, PRC1, N, 0, 8
  296. 0,0,0,0,0,0,0,0,0,0
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306. qty1<=0.or.prc1>0
  307. INV_DATA, SHIP_CO, C, 0, 20
  308. 6,0,0,0,0,0,1,0,0,0
  309.  
  310.  
  311.  
  312.  
  313. Same
  314. Change only if shipping address is different.
  315.  
  316.  
  317.  
  318.  
  319. INV_DATA, SHIP_ADD1, C, 0, 21
  320. 6,0,0,0,0,0,0,0,0,0
  321.  
  322.  
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330. lower(trim(ship_co))="same"
  331. INV_DATA, SHIP_ADD2, C, 0, 22
  332. 6,0,0,0,0,0,0,0,0,0
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342. lower(trim(ship_co))="same"
  343. INV_DATA, SHIP_CITY, C, 0, 23
  344. 6,0,0,0,0,0,0,0,0,0
  345.  
  346.  
  347.  
  348.  
  349.  
  350.  
  351.  
  352.  
  353.  
  354. lower(trim(ship_co))="same"
  355. INV_DATA, SHIP_STATE, C, 0, 24
  356. 1,0,0,0,0,0,0,0,0,0
  357.  
  358.  
  359.  
  360.  
  361.  
  362.  
  363.  
  364.  
  365.  
  366. lower(trim(ship_co))="same"
  367. INV_DATA, SHIP_ZIP, C, 0, 25
  368. 0,0,0,0,0,0,0,0,0,1
  369.  
  370. 99999
  371.  
  372.  
  373.  
  374.  
  375. len(trim(SHIP_ZIP))=5
  376. Zip code must contain 5 characters
  377.  
  378. lower(trim(ship_co))="same"
  379. 1,0,3,10,0,0
  380. ZIPSMALL.DBF
  381. ZIPS_ZIP
  382. ZIPS_CTY
  383. 2
  384. CITY, 25
  385. ZIP, 5
  386. 3
  387. CITY, SHIP_CITY
  388. STATE, SHIP_STATE
  389. ZIP, SHIP_ZIP
  390. 0,32,0,INVOICE_NO,INVOICE_NO,INVOICE_NO,INVOICE_NO,INVOICE_NO,
  391.