home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0040 - 0049 / ibm0040-0049 / ibm0040.tar / ibm0040 / WINBASE2.ZIP / EXAMPLES.EXE / SORRENTO / ORDERENT.TXT < prev    next >
Encoding:
Text File  |  1991-08-07  |  7.7 KB  |  407 lines
  1. FORM ORDERENT 
  2.  
  3. COLOR 7 
  4. EXECUTE_MODE CONCURRENT 
  5. DDE_SERVER 
  6. AUTO_COMMMIT USE_DEFAULT 
  7.  
  8. QUERY INPUT TRANSMAIN SELECT CUST_ID
  9. FROM  CUSTOMER   
  10. END_QUERY 
  11.  
  12. QUERY INPUT TRANDEP SELECT *
  13. FROM  TRANSACT
  14. where ORDER_NUM=:ONO   
  15. END_QUERY 
  16.  
  17. BITMAP 46 33 380 309 
  18. FILE C:\SOR21\SUPER.PCX 
  19.  
  20. BOX 39 400 991 757 
  21. TITLE CUSTOMER INFORMATION 
  22.  
  23. BOX 1024 400 1957 761 
  24. TITLE SALESMAN INFORMATION 
  25.  
  26. REPEATED 59 985 2067 1206 
  27. QUERY_NAME TRANDEP 
  28. HAS_BORDER 
  29.  
  30. ENTRY 660 10 1898 117 
  31. DATA_TYPE CHARACTER 
  32. QUERY_NAME TRANSMAIN 
  33. TYPE EXPRESSION 
  34. EXPRESSION 'ORDER ENTRY FORM' 
  35. JUSTIFICATION CENTER 
  36. COLOR 1 
  37. STYLE 7 
  38. FONT 32 Tms Rmn 
  39.  
  40. ENTRY 2070 169 2317 234 
  41. DATA_TYPE CHARACTER 
  42. QUERY_NAME TRANDEP 
  43. DATABASE CUST_ID 
  44. TYPE EXPRESSION 
  45. EXPRESSION :cno 
  46. JUSTIFICATION LEFT 
  47. COLOR 7 
  48.  
  49. ENTRY 400 218 1336 289 
  50. DATA_TYPE CHARACTER 
  51. QUERY_NAME TRANSMAIN 
  52. TYPE EXPRESSION 
  53. EXPRESSION IF(ISNULL(:cno),'ENTER COMPANY NUMBER:','COMPANY NUMBER IS:') 
  54. JUSTIFICATION RIGHT 
  55. COLOR 4 
  56. STYLE 1 
  57. FONT 15 Tms Rmn 
  58.  
  59. ENTRY 1362 218 1580 289 
  60. DATA_TYPE CHARACTER 
  61. QUERY_NAME TRANSMAIN 
  62. TYPE INPUT 
  63. EXPRESSION nullc 
  64. CELL_NAME CNO 
  65. ENTRY_NUM 1 
  66. ENTERABLE TRUE 
  67. SEARCHABLE SORRENTO.CUSTOMER CUST_ID 
  68. ZOOM_FORM c:\winbase\sorrento\custzm 
  69. VALIDATION MUST_MATCH SORRENTO.CUSTOMER CUST_ID 
  70. INVALID Customer number must exist! 
  71. JUSTIFICATION LEFT 
  72. ALLOW 15 
  73.  
  74. ENTRY 2070 234 2321 296 
  75. DATA_TYPE CHARACTER 
  76. QUERY_NAME TRANDEP 
  77. DATABASE SP_ID 
  78. TYPE EXPRESSION 
  79. EXPRESSION :eno 
  80. JUSTIFICATION LEFT 
  81. COLOR 7 
  82.  
  83. ENTRY 397 299 1336 371 
  84. DATA_TYPE CHARACTER 
  85. QUERY_NAME TRANSMAIN 
  86. TYPE EXPRESSION 
  87. EXPRESSION IF(ISNULL(:eno),'ENTER EMPLOYEE NUMBER:','EMPLOYEE NUMBER IS:') 
  88. JUSTIFICATION RIGHT 
  89. COLOR 4 
  90. STYLE 1 
  91. FONT 15 Tms Rmn 
  92.  
  93. ENTRY 1368 299 1586 367 
  94. DATA_TYPE CHARACTER 
  95. QUERY_NAME TRANSMAIN 
  96. TYPE INPUT 
  97. EXPRESSION nullc 
  98. CELL_NAME ENO 
  99. ENTRY_NUM 2 
  100. ENTERABLE TRUE 
  101. SEARCHABLE SORRENTO.ADMIN EMPLOYEE_NUM 
  102. ZOOM_FORM adminzm 
  103. VALIDATION MUST_MATCH SORRENTO.ADMIN EMPLOYEE_NUM 
  104. INVALID Employee Must Exist 
  105. JUSTIFICATION LEFT 
  106. ALLOW 15 
  107.  
  108. ENTRY 2126 299 2246 374 
  109. DATA_TYPE CHARACTER 
  110. QUERY_NAME TRANDEP 
  111. DATABASE ORDER_NUM 
  112. TYPE EXPRESSION 
  113. EXPRESSION :ono 
  114. JUSTIFICATION LEFT 
  115. COLOR 7 
  116.  
  117. ENTRY 2126 390 2246 481 
  118. DATA_TYPE INTEGER 
  119. QUERY_NAME TRANSMAIN 
  120. TYPE EXPRESSION 
  121. EXPRESSION numrecs +1 
  122. CELL_NAME ORDSEQ 
  123. JUSTIFICATION RIGHT 
  124. COLOR 7 
  125. EXPO_START 13 
  126.  
  127. ENTRY 1053 439 1440 507 
  128. DATA_TYPE CHARACTER 
  129. QUERY_NAME TRANSMAIN 
  130. TYPE EXPRESSION 
  131. EXPRESSION 'EMPLOYEE NO:' 
  132. JUSTIFICATION LEFT 
  133. STYLE 1 
  134. FONT 8 Helv 
  135.  
  136. ENTRY 1443 439 1732 507 
  137. DATA_TYPE CHARACTER 
  138. QUERY_NAME TRANSMAIN 
  139. TYPE EXPRESSION 
  140. EXPRESSION :eno 
  141. JUSTIFICATION LEFT 
  142.  
  143. ENTRY 85 442 367 510 
  144. DATA_TYPE CHARACTER 
  145. QUERY_NAME TRANSMAIN 
  146. TYPE EXPRESSION 
  147. EXPRESSION 'CUST NO:' 
  148. JUSTIFICATION LEFT 
  149. STYLE 1 
  150. FONT 8 Helv 
  151.  
  152. ENTRY 374 442 562 510 
  153. DATA_TYPE CHARACTER 
  154. QUERY_NAME TRANSMAIN 
  155. TYPE EXPRESSION 
  156. EXPRESSION :cno 
  157. JUSTIFICATION LEFT 
  158.  
  159. ENTRY 1053 510 1921 585 
  160. DATA_TYPE CHARACTER 
  161. QUERY_NAME TRANSMAIN 
  162. TYPE EXPRESSION 
  163. EXPRESSION MATCHROW(':eno','fname',NULLC) 
  164. JUSTIFICATION LEFT 
  165. COLOR 1 
  166. STYLE 1 
  167. FONT 14 Tms Rmn 
  168.  
  169. ENTRY 2122 510 2256 595 
  170. DATA_TYPE CHARACTER 
  171. QUERY_NAME TRANDEP 
  172. DATABASE PROD_ID 
  173. TYPE EXPRESSION 
  174. EXPRESSION :proid 
  175. JUSTIFICATION LEFT 
  176. COLOR 7 
  177.  
  178. ENTRY 85 514 956 588 
  179. DATA_TYPE CHARACTER 
  180. QUERY_NAME TRANSMAIN 
  181. TYPE EXPRESSION 
  182. EXPRESSION MATCHROW(':CNO','company',NULLC) 
  183. JUSTIFICATION LEFT 
  184. COLOR 1 
  185. STYLE 1 
  186. FONT 14 Tms Rmn 
  187.  
  188. ENTRY 1050 585 1918 660 
  189. DATA_TYPE CHARACTER 
  190. QUERY_NAME TRANSMAIN 
  191. TYPE EXPRESSION 
  192. EXPRESSION MATCHROW(':eno','lname',NULLC) 
  193. JUSTIFICATION LEFT 
  194. COLOR 1 
  195. STYLE 1 
  196. FONT 14 Tms Rmn 
  197.  
  198. ENTRY 85 588 956 660 
  199. DATA_TYPE CHARACTER 
  200. QUERY_NAME TRANSMAIN 
  201. TYPE EXPRESSION 
  202. EXPRESSION MATCHROW(':CNO','ADDR1',NULLC) 
  203. JUSTIFICATION LEFT 
  204. COLOR 1 
  205. STYLE 1 
  206. FONT 14 Tms Rmn 
  207.  
  208. ENTRY 2135 618 2259 705 
  209. DATA_TYPE SMALL_INTEGER 
  210. QUERY_NAME TRANDEP 
  211. DATABASE U_PRICE 
  212. TYPE EXPRESSION 
  213. EXPRESSION :up 
  214. JUSTIFICATION RIGHT 
  215. COLOR 7 
  216. EXPO_START 13 
  217.  
  218. ENTRY 85 660 956 735 
  219. DATA_TYPE CHARACTER 
  220. QUERY_NAME TRANSMAIN 
  221. TYPE EXPRESSION 
  222. EXPRESSION IF(ISNULL(:CNO),'',CONCAT(MATCHROW(':CNO','CITY',NULLC),', ',MATCHROW(':CNO','STATE',NULLC),'. ',MATCHROW(':CNO','ZIP',NULLC))) 
  223. JUSTIFICATION LEFT 
  224. COLOR 1 
  225. STYLE 1 
  226. FONT 14 Tms Rmn 
  227.  
  228. ENTRY 2126 728 2262 813 
  229. DATA_TYPE SMALL_INTEGER 
  230. QUERY_NAME TRANDEP 
  231. DATABASE QTY 
  232. TYPE EXPRESSION 
  233. EXPRESSION :qt 
  234. JUSTIFICATION RIGHT 
  235. COLOR 7 
  236. EXPO_START 13 
  237.  
  238. ENTRY 800 787 1216 861 
  239. DATA_TYPE CHARACTER 
  240. QUERY_NAME TRANSMAIN 
  241. TYPE EXPRESSION 
  242. EXPRESSION 'Order Number:' 
  243. JUSTIFICATION LEFT 
  244.  
  245. ENTRY 1222 787 1973 861 
  246. DATA_TYPE CHARACTER 
  247. QUERY_NAME TRANSMAIN 
  248. TYPE EXPRESSION 
  249. EXPRESSION if(isnull(:cno),nullc,concat(:cno,'-',char(sysdate,'mmyy'),char(systime,'hhmm'),'-',if(isnull(:ordseq),char(1,0),char(:ordseq,0)))) 
  250. CELL_NAME ONO 
  251. JUSTIFICATION LEFT 
  252. COLOR 1 
  253.  
  254. ENTRY 65 897 374 969 
  255. DATA_TYPE CHARACTER 
  256. QUERY_NAME TRANSMAIN 
  257. TYPE EXPRESSION 
  258. EXPRESSION 'Product #' 
  259. JUSTIFICATION LEFT 
  260.  
  261. ENTRY 757 897 1014 969 
  262. DATA_TYPE CHARACTER 
  263. QUERY_NAME TRANSMAIN 
  264. TYPE EXPRESSION 
  265. EXPRESSION 'Desc.' 
  266. JUSTIFICATION LEFT 
  267.  
  268. ENTRY 1225 897 1407 969 
  269. DATA_TYPE CHARACTER 
  270. QUERY_NAME TRANSMAIN 
  271. TYPE EXPRESSION 
  272. EXPRESSION 'Price' 
  273. JUSTIFICATION RIGHT 
  274.  
  275. ENTRY 393 900 728 972 
  276. DATA_TYPE CHARACTER 
  277. QUERY_NAME TRANSMAIN 
  278. TYPE EXPRESSION 
  279. EXPRESSION 'Maker' 
  280. JUSTIFICATION LEFT 
  281.  
  282. ENTRY 1482 900 1625 969 
  283. DATA_TYPE CHARACTER 
  284. QUERY_NAME TRANSMAIN 
  285. TYPE EXPRESSION 
  286. EXPRESSION 'Qty' 
  287. JUSTIFICATION LEFT 
  288.  
  289. ENTRY 1703 900 2054 972 
  290. DATA_TYPE CHARACTER 
  291. QUERY_NAME TRANSMAIN 
  292. TYPE EXPRESSION 
  293. EXPRESSION 'Total Price' 
  294. JUSTIFICATION LEFT 
  295.  
  296. ENTRY 85 1001 345 1086 
  297. DATA_TYPE CHARACTER 
  298. QUERY_NAME TRANDEP 
  299. TYPE INPUT 
  300. EXPRESSION prod_id 
  301. CELL_NAME PROID 
  302. ENTRY_NUM 3 
  303. ENTERABLE TRUE 
  304. SEARCHABLE SORRENTO.INVENTORY PART_NUM 
  305. ZOOM_FORM inventry 
  306. VALIDATION MUST_MATCH SORRENTO.INVENTORY PART_NUM 
  307. INVALID Product Number must exist in Inventory! 
  308. JUSTIFICATION LEFT 
  309. ALLOW 15 
  310.  
  311. ENTRY 393 1004 728 1086 
  312. DATA_TYPE CHARACTER 
  313. QUERY_NAME TRANDEP 
  314. TYPE EXPRESSION 
  315. EXPRESSION matchrow(':proid','prod_name','') 
  316. JUSTIFICATION LEFT 
  317. COLOR 1 
  318.  
  319. ENTRY 757 1004 1134 1086 
  320. DATA_TYPE CHARACTER 
  321. QUERY_NAME TRANDEP 
  322. TYPE EXPRESSION 
  323. EXPRESSION matchrow(':proid','prod_desc','') 
  324. JUSTIFICATION LEFT 
  325. COLOR 1 
  326.  
  327. ENTRY 1131 1004 1411 1086 
  328. DATA_TYPE SMALL_INTEGER 
  329. QUERY_NAME TRANDEP 
  330. TYPE EXPRESSION 
  331. EXPRESSION int(matchrow(':proid','u_price',0.00)) 
  332. CELL_NAME UP 
  333. JUSTIFICATION RIGHT 
  334. COLOR 1 
  335. CURRENCY 
  336. EXPO_START 13 
  337.  
  338. ENTRY 1485 1004 1628 1086 
  339. DATA_TYPE SMALL_INTEGER 
  340. QUERY_NAME TRANDEP 
  341. TYPE INPUT 
  342. EXPRESSION qty 
  343. CELL_NAME QT 
  344. ENTRY_NUM 4 
  345. ENTERABLE TRUE 
  346. JUSTIFICATION RIGHT 
  347. EXPO_START 13 
  348.  
  349. ENTRY 1703 1004 2044 1086 
  350. DATA_TYPE DECIMAL 
  351. QUERY_NAME TRANDEP 
  352. TYPE EXPRESSION 
  353. EXPRESSION dec(:up*:qt) 
  354. CELL_NAME TOTAL 
  355. JUSTIFICATION RIGHT 
  356. SCALE 2 
  357. GROUPING 
  358. CURRENCY 
  359. EXPO_START 13 
  360.  
  361. ENTRY 1719 1235 2054 1310 
  362. DATA_TYPE DECIMAL 
  363. QUERY_NAME TRANSMAIN 
  364. TYPE EXPRESSION 
  365. EXPRESSION sum(:total) 
  366. CELL_NAME SUMTOTAL 
  367. JUSTIFICATION RIGHT 
  368. SCALE 2 
  369. GROUPING 
  370. CURRENCY 
  371. EXPO_START 13 
  372.  
  373. BUTTON 1612 127 1966 215 
  374. QUERY_NAME TRANSMAIN 
  375. TYPE NEW 
  376. TITLE New Record 
  377.  
  378. BUTTON 1619 221 1973 367 
  379. TYPE SEARCH 
  380. TITLE Search... 
  381.  
  382. BUTTON 85 770 533 881 
  383. TYPE SEARCH 
  384. TITLE Search... 
  385.  
  386. BUTTON 55 1232 520 1316 
  387. QUERY_NAME TRANDEP 
  388. TYPE NEW 
  389. TITLE New Item 
  390.  
  391. BUTTON 553 1232 900 1316 
  392. TYPE SAVE 
  393. TITLE SAVE 
  394.  
  395. BUTTON 920 1235 1336 1320 
  396. QUERY_NAME TRANDEP 
  397. TYPE DELETE 
  398. TITLE Delete Item 
  399.  
  400. BUTTON 1359 1235 1706 1316 
  401. TYPE UNDO 
  402. TITLE Do Not Save 
  403.  
  404. SCROLL_BAR 2096 982 2178 1342 
  405. QUERY_NAME TRANDEP 
  406.  
  407.