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 / INVENTRY.TXT < prev    next >
Encoding:
Text File  |  1991-08-07  |  6.0 KB  |  340 lines
  1. FORM INVENTRY 
  2.  
  3. COLOR 7 
  4. EXECUTE_MODE CONCURRENT 
  5. DDE_SERVER 
  6. AUTO_COMMMIT USE_DEFAULT 
  7.  
  8. QUERY INPUT INVENMAIN SELECT *
  9. FROM  INVENTORY 
  10. END_QUERY 
  11.  
  12. BITMAP 52 33 471 367 
  13. FILE C:\WINBASE\SORRENTO\SUPER.PCX 
  14.  
  15. REPEATED 7 533 1859 933 
  16. QUERY_NAME INVENMAIN 
  17. HAS_BORDER 
  18.  
  19. ENTRY 517 23 2181 163 
  20. DATA_TYPE CHARACTER 
  21. QUERY_NAME INVENMAIN 
  22. TYPE EXPRESSION 
  23. EXPRESSION 'INVENTORY TRACKING' 
  24. JUSTIFICATION LEFT 
  25. COLOR 4 
  26. STYLE 5 
  27. FONT 22 Helv 
  28.  
  29. ENTRY 533 215 1489 299 
  30. DATA_TYPE CHARACTER 
  31. QUERY_NAME INVENMAIN 
  32. TYPE EXPRESSION 
  33. EXPRESSION 'Part numbers must begin with:' 
  34. JUSTIFICATION LEFT 
  35. COLOR 1 
  36. STYLE 1 
  37. FONT 17 Helv 
  38.  
  39. ENTRY 1495 218 1853 273 
  40. DATA_TYPE CHARACTER 
  41. QUERY_NAME INVENMAIN 
  42. TYPE EXPRESSION 
  43. EXPRESSION 'S = Software' 
  44. JUSTIFICATION LEFT 
  45. COLOR 1 
  46. FONT 14 Helv 
  47.  
  48. ENTRY 1495 273 1853 332 
  49. DATA_TYPE CHARACTER 
  50. QUERY_NAME INVENMAIN 
  51. TYPE EXPRESSION 
  52. EXPRESSION 'H = Hardware' 
  53. JUSTIFICATION LEFT 
  54. COLOR 1 
  55. FONT 14 Helv 
  56.  
  57. ENTRY 1495 332 1989 387 
  58. DATA_TYPE CHARACTER 
  59. QUERY_NAME INVENMAIN 
  60. TYPE EXPRESSION 
  61. EXPRESSION 'M = Miscellaneous' 
  62. JUSTIFICATION LEFT 
  63. COLOR 1 
  64. FONT 14 Helv 
  65.  
  66. ENTRY 1495 387 1853 442 
  67. DATA_TYPE CHARACTER 
  68. QUERY_NAME INVENMAIN 
  69. TYPE EXPRESSION 
  70. EXPRESSION 'F  = Furniture' 
  71. JUSTIFICATION LEFT 
  72. COLOR 1 
  73. FONT 14 Helv 
  74.  
  75. ENTRY 26 445 299 517 
  76. DATA_TYPE CHARACTER 
  77. QUERY_NAME INVENMAIN 
  78. TYPE EXPRESSION 
  79. EXPRESSION 'Part Number' 
  80. JUSTIFICATION LEFT 
  81. COLOR 1 
  82. FONT 14 Helv 
  83.  
  84. ENTRY 315 445 637 517 
  85. DATA_TYPE CHARACTER 
  86. QUERY_NAME INVENMAIN 
  87. TYPE EXPRESSION 
  88. EXPRESSION 'Manufacturer' 
  89. JUSTIFICATION LEFT 
  90. COLOR 1 
  91. FONT 14 Helv 
  92.  
  93. ENTRY 650 445 1050 517 
  94. DATA_TYPE CHARACTER 
  95. QUERY_NAME INVENMAIN 
  96. TYPE EXPRESSION 
  97. EXPRESSION 'Prod Description' 
  98. JUSTIFICATION LEFT 
  99. COLOR 1 
  100. FONT 14 Helv 
  101.  
  102. ENTRY 1073 445 1248 517 
  103. DATA_TYPE CHARACTER 
  104. QUERY_NAME INVENMAIN 
  105. TYPE EXPRESSION 
  106. EXPRESSION 'Cost' 
  107. JUSTIFICATION LEFT 
  108. COLOR 1 
  109. FONT 14 Helv 
  110.  
  111. ENTRY 1271 445 1511 517 
  112. DATA_TYPE CHARACTER 
  113. QUERY_NAME INVENMAIN 
  114. TYPE EXPRESSION 
  115. EXPRESSION 'Price Each' 
  116. JUSTIFICATION LEFT 
  117. COLOR 1 
  118. FONT 14 Helv 
  119.  
  120. ENTRY 1567 449 1840 517 
  121. DATA_TYPE CHARACTER 
  122. QUERY_NAME INVENMAIN 
  123. TYPE EXPRESSION 
  124. EXPRESSION 'Inventory' 
  125. JUSTIFICATION LEFT 
  126. COLOR 1 
  127. FONT 12 Helv 
  128.  
  129. ENTRY 29 556 296 627 
  130. DATA_TYPE CHARACTER 
  131. QUERY_NAME INVENMAIN 
  132. DATABASE PART_NUM 
  133. TYPE INPUT 
  134. EXPRESSION PART_NUM 
  135. ENTRY_NUM 1 
  136. ENTERABLE TRUE 
  137. JUSTIFICATION LEFT 
  138. COLOR 4 
  139. FONT 10 Helv 
  140. ALLOW 15 
  141.  
  142. ENTRY 322 559 637 631 
  143. DATA_TYPE CHARACTER 
  144. QUERY_NAME INVENMAIN 
  145. DATABASE PROD_NAME 
  146. TYPE INPUT 
  147. EXPRESSION PROD_NAME 
  148. ENTRY_NUM 2 
  149. ENTERABLE TRUE 
  150. JUSTIFICATION LEFT 
  151. COLOR 4 
  152. FONT 10 Helv 
  153. ALLOW 15 
  154.  
  155. ENTRY 653 559 1014 631 
  156. DATA_TYPE CHARACTER 
  157. QUERY_NAME INVENMAIN 
  158. DATABASE PROD_DESC 
  159. TYPE INPUT 
  160. EXPRESSION PROD_DESC 
  161. ENTRY_NUM 3 
  162. ENTERABLE TRUE 
  163. JUSTIFICATION LEFT 
  164. COLOR 4 
  165. FONT 10 Helv 
  166. ALLOW 15 
  167.  
  168. ENTRY 1073 559 1225 631 
  169. DATA_TYPE DECIMAL 
  170. QUERY_NAME INVENMAIN 
  171. DATABASE U_COST 
  172. TYPE INPUT 
  173. EXPRESSION U_COST 
  174. ENTRY_NUM 4 
  175. ENTERABLE TRUE 
  176. JUSTIFICATION RIGHT 
  177. COLOR 4 
  178. FONT 10 Helv 
  179. SCALE 2 
  180. EXPO_START 13 
  181.  
  182. ENTRY 1274 559 1456 631 
  183. DATA_TYPE DECIMAL 
  184. QUERY_NAME INVENMAIN 
  185. DATABASE U_PRICE 
  186. TYPE INPUT 
  187. EXPRESSION U_PRICE 
  188. ENTRY_NUM 5 
  189. ENTERABLE TRUE 
  190. JUSTIFICATION RIGHT 
  191. COLOR 4 
  192. FONT 10 Helv 
  193. SCALE 2 
  194. EXPO_START 13 
  195.  
  196. ENTRY 1570 559 1752 631 
  197. DATA_TYPE SMALL_INTEGER 
  198. QUERY_NAME INVENMAIN 
  199. TYPE EXPRESSION 
  200. EXPRESSION INVENTORY 
  201. CELL_NAME INV 
  202. JUSTIFICATION RIGHT 
  203. COLOR 4 
  204. FONT 10 Helv 
  205. EXPO_START 13 
  206.  
  207. ENTRY 75 962 624 1034 
  208. DATA_TYPE CHARACTER 
  209. QUERY_NAME INVENMAIN 
  210. TYPE EXPRESSION 
  211. EXPRESSION 'Full Description ' 
  212. JUSTIFICATION LEFT 
  213. COLOR 1 
  214. FONT 14 Helv 
  215.  
  216. ENTRY 640 962 1404 1034 
  217. DATA_TYPE CHARACTER 
  218. QUERY_NAME INVENMAIN 
  219. TYPE EXPRESSION 
  220. EXPRESSION concat('Record ',char(recordnum,0),' of ',char(numrecs,0),' Records') 
  221. JUSTIFICATION LEFT 
  222. COLOR 1 
  223. FONT 19 Tms Rmn 
  224.  
  225. ENTRY 1440 962 1973 1021 
  226. DATA_TYPE CHARACTER 
  227. QUERY_NAME INVENMAIN 
  228. TYPE EXPRESSION 
  229. EXPRESSION 'Inventory Control' 
  230. JUSTIFICATION LEFT 
  231. COLOR 1 
  232. FONT 12 Helv 
  233.  
  234. ENTRY 1440 1021 1645 1079 
  235. DATA_TYPE CHARACTER 
  236. QUERY_NAME INVENMAIN 
  237. TYPE EXPRESSION 
  238. EXPRESSION 'ADD' 
  239. JUSTIFICATION LEFT 
  240. COLOR 1 
  241. FONT 12 Helv 
  242.  
  243. ENTRY 1710 1021 2012 1082 
  244. DATA_TYPE CHARACTER 
  245. QUERY_NAME INVENMAIN 
  246. TYPE EXPRESSION 
  247. EXPRESSION 'SUBTRACT' 
  248. JUSTIFICATION LEFT 
  249. COLOR 1 
  250. FONT 12 Helv 
  251.  
  252. ENTRY 75 1066 1407 1141 
  253. DATA_TYPE CHARACTER 
  254. QUERY_NAME INVENMAIN 
  255. DATABASE FULL_DESC 
  256. TYPE INPUT 
  257. EXPRESSION FULL_DESC 
  258. ENTRY_NUM 0 
  259. ENTERABLE TRUE 
  260. JUSTIFICATION LEFT 
  261. COLOR 4 
  262. FONT 12 Helv 
  263. ALLOW 15 
  264.  
  265. ENTRY 1440 1079 1645 1147 
  266. DATA_TYPE SMALL_INTEGER 
  267. QUERY_NAME INVENMAIN 
  268. TYPE INPUT 
  269. EXPRESSION nulli 
  270. CELL_NAME A 
  271. ENTRY_NUM 0 
  272. ENTERABLE TRUE 
  273. JUSTIFICATION RIGHT 
  274. EXPO_START 13 
  275.  
  276. ENTRY 1710 1082 1905 1147 
  277. DATA_TYPE SMALL_INTEGER 
  278. QUERY_NAME INVENMAIN 
  279. TYPE INPUT 
  280. EXPRESSION nulli 
  281. CELL_NAME S 
  282. ENTRY_NUM 0 
  283. ENTERABLE TRUE 
  284. JUSTIFICATION RIGHT 
  285. EXPO_START 13 
  286.  
  287. ENTRY 2230 1134 2678 1206 
  288. DATA_TYPE SMALL_INTEGER 
  289. QUERY_NAME INVENMAIN 
  290. DATABASE INVENTORY 
  291. TYPE EXPRESSION 
  292. EXPRESSION int(:inv+if(isnull(:a),0,(:a))-if(isnull(:s),0,(:s))) 
  293. CELL_NAME INVTOT 
  294. JUSTIFICATION RIGHT 
  295. EXPO_START 13 
  296.  
  297. ENTRY 1437 1164 1937 1225 
  298. DATA_TYPE CHARACTER 
  299. QUERY_NAME INVENMAIN 
  300. TYPE EXPRESSION 
  301. EXPRESSION 'New Inventory total' 
  302. JUSTIFICATION LEFT 
  303. COLOR 1 
  304. FONT 12 Helv 
  305.  
  306. ENTRY 1433 1225 1976 1287 
  307. DATA_TYPE CHARACTER 
  308. QUERY_NAME INVENMAIN 
  309. TYPE EXPRESSION 
  310. EXPRESSION 'Please Save if correct' 
  311. JUSTIFICATION LEFT 
  312. COLOR 1 
  313. FONT 12 Helv 
  314.  
  315. ENTRY 1440 1294 1651 1362 
  316. DATA_TYPE FLOAT 
  317. QUERY_NAME INVENMAIN 
  318. TYPE EXPRESSION 
  319. EXPRESSION if((:inv!=:invtot),:invtot,nulli) 
  320. JUSTIFICATION RIGHT 
  321. EXPO_START 13 
  322.  
  323. BUTTON 13 1248 410 1359 
  324. TYPE SAVE 
  325. TITLE Save Item 
  326.  
  327. BUTTON 429 1248 822 1362 
  328. QUERY_NAME INVENMAIN 
  329. TYPE NEW 
  330. TITLE New Item 
  331.  
  332. BUTTON 845 1248 1242 1362 
  333. QUERY_NAME INVENMAIN 
  334. TYPE DELETE 
  335. TITLE Delete Item 
  336.  
  337. SCROLL_BAR 1882 530 1947 939 
  338. QUERY_NAME INVENMAIN 
  339.  
  340.