首页 发现 帮助
登录
eric
/
Topspeed_JPI
1
0
派生 0
文件 工单管理 0 合并请求 0 Wiki
分支: master
分支列表 标签列表
Topspeed_JPI
/
TS-V3
/
MODBASE
/
PRICETAB.LST

PRICETAB.LST 30 KB
永久链接 文件历史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE PriceTable;
    4. 

  4.     2  (*
    5. 

  5.     3   *  ModBase
    6. 

  6.     4   *  Release 3.0
    7. 

  7.     5   *  (c) Copyright 1986 - 1991 PMI
    8. 

  8.     6   *  P.O. Box 8402
    9. 

  9.     7   *  Green Bay Wi 53308
    10. 

  10.     8   *  All Rights Reserved
    11. 

  11.     9   *  by Ed Ross  
    12. 

  12.    10   *)
    13. 

  13.    11  
    14. 

  14.    12  FROM NumTypes IMPORT Real8;
    15. 

  15.    13  FROM Numbers IMPORT Max;
    16. 

  16.    14  FROM Hash IMPORT HashTable,Define,Dispose,Insert,GetData,KeyFind;
    17. 

  17.    15  FROM StrConv IMPORT RealToStr,CardinalToStr;
    18. 

  18.    16  FROM ScrnUtl1 IMPORT GetFieldImageRec;
    19. 

  19.    17  FROM Tables IMPORT Table,CellValue,GetCell,PutCell,BuildTable,
    20. 

  20.    18       DefineTextCol,DefineIntegerCol,DefineRealCol,DefineTable,ControlTable,
    21. 

  21.    19       DeleteTable,ShowTable,NumberOfRows;
    22. 

  22.    20  FROM GenLists IMPORT GenList,ListLength,GetElmtAdr,BlockToList,
    23. 

  23.    21       GetElmt, ListInsertAdr,NewList,DisposeList,ListInsert,ShellSortList;
    24. 

  24.    22  FROM StringIO IMPORT ErrorMessage,NoError,WriteEol,WriteStr,outp;
    25. 

  25.    23  FROM PosUtils IMPORT Equal,Present,Pos;
    26. 

  26.    24  FROM Prompts IMPORT PromptStr,PromptYN;
    27. 

  27.    25  FROM M2Strings IMPORT Length,CompareStr,Assign;
    28. 

  28.    26  FROM StrEdit IMPORT CAPstr,CrunchBlanks,Append,SetLength,AssignStr,LowerStr,
    29. 

  29.    27       DeleteRightJustified,CAPstr;
    30. 

  30. *****                            ^ duplicate identifier
    31. 

  31.    28  FROM ControlUtils IMPORT AddMenuItem,ChangeField,ReadInput,Control;
    32. 

  32.    29  FROM FramePainter IMPORT ShowDisplayFrame;
    33. 

  33.    30  FROM InputManager IMPORT ControlFrame;
    34. 

  34.    31  FROM ScrnTypes IMPORT InitDisplayFrame,DisplayFrame,AFrameName,ImageElement;
    35. 

  35.    32  FROM ScrnUtl2 IMPORT CloseDisplayFrame;
    36. 

  36.    33  FROM LowLevel IMPORT Fill;
    37. 

  37.    34  FROM SYSTEM IMPORT TSIZE,ADR,ADDRESS;
    38. 

  38.    35  IMPORT VWindows;
    39. 

  39.    36  FROM VStorage IMPORT DosAlloc,DosDealloc;
    40. 

  40.    37  IMPORT InitCompilerMods;
    41. 

  41.    38  FROM HandleIO IMPORT FileExists, OpenFile,CreateFile,CloseHandle,
    42. 

  42.    39       BlockRead,BlockWrite;
    43. 

  43.    40  
    44. 

  44.    41  TYPE
    45. 

  45.    42    PriceTblItem = RECORD
    46. 

  46.    43      Quantity : ARRAY[1..4] OF CARDINAL;
    47. 

  47. *****                          ^ not supported yet
    48. 

  48. *****                                ^ not supported yet
    49. 

  49.    44      Price    : ARRAY[1 ..4] OF Real8;
    50. 

  50. *****                           ^ not supported yet
    51. 

  51. *****                                 ^ not supported yet
    52. 

  52.    45      Desc     : ARRAY[0..30] OF CHAR;
    53. 

  53. *****                          ^ not supported yet
    54. 

  54. *****                                 ^ not supported yet
    55. 

  55.    46    END;
    56. 

  56. *****    ^ not supported yet
    57. 

  57.    47  
    58. 

  58.    48  
    59. 

  59.    49  
    60. 

  60.    50  VAR
    61. 

  61.    51     DF : DisplayFrame;
    62. 

  62.    52     Tab : Table;
    63. 

  63.    53     Initialized : BOOLEAN;
    64. 

  64.    54     SerList : GenList;
    65. 

  65.    55     FileName : ARRAY[0..20] OF CHAR;
    66. 

  66. *****                         ^ not supported yet
    67. 

  67. *****                                ^ not supported yet
    68. 

  68.    56     Card : CARDINAL;
    69. 

  69.    57     EM : ErrorMessage;
    70. 

  70.    58     Code,J : CARDINAL;
    71. 

  71.    59     Bool : BOOLEAN;
    72. 

  72.    60     PriceTbl : POINTER TO ARRAY[0..26] OF PriceTblItem;
    73. 

  73. *****                                    ^ not supported yet
    74. 

  74. *****                                           ^ not supported yet
    75. 

  75.    61  
    76. 

  76.    62      GroupCnt : POINTER TO  ARRAY[1..20] OF CARDINAL;
    77. 

  77. *****                                      ^ not supported yet
    78. 

  78. *****                                             ^ not supported yet
    79. 

  79.    63      NxtGrp : CARDINAL;    (* next assigned index into array *)
    80. 

  80.    64      GrpTab : HashTable;
    81. 

  81.    65  
    82. 

  82.    66  (* pricing is done on a sliding scale depending on the number of items
    83. 

  83.    67     purchased.  The item count is summed on the group level not the
    84. 

  84.    68     SKU level at the inventory level *)
    85. 

  85.    69  
    86. 

  86.    70  
    87. 

  87.    71  
    88. 

  88.    72  PROCEDURE ClearGrpCnt();
    89. 

  89.    73  (* this procedure will clear out the group count table for a
    90. 

  90.    74     recompute *)
    91. 

  91.    75  BEGIN
    92. 

  92.    76      Fill(GroupCnt,SIZE(GroupCnt^),0);
    93. 

  93. *****      ^ not supported yet
    94. 

  94. *****           ^ not supported yet
    95. 

  95. *****                    ^ undeclared identifier
    96. 

  96. *****                         ^ not supported yet
    97. 

  97. *****                                     ^ not supported yet
    98. 

  98.    77  
    99. 

  99.    78  END ClearGrpCnt;
    100. 

  100. *****      ^ not supported yet
    101. 

  101.    79  
    102. 

  102.    80  PROCEDURE GrpTotal(Grp : ARRAY OF CHAR) : CARDINAL;
    103. 

  103. *****                                    ^ not supported yet
    104. 

  104.    81  VAR
    105. 

  105.    82    Index : CARDINAL;
    106. 

  106.    83  BEGIN
    107. 

  107.    84    IF KeyFind(GrpTab,Grp)
    108. 

  108. *****       ^ not supported yet
    109. 

  109. *****               ^ not supported yet
    110. 

  110. *****                      ^ not supported yet
    111. 

  111.    85      THEN
    112. 

  112.    86        GetData(GrpTab,Index);
    113. 

  113. *****        ^ not supported yet
    114. 

  114. *****                ^ not supported yet
    115. 

  115. *****                            ^ not supported yet
    116. 

  116.    87        RETURN GroupCnt^[Index];
    117. 

  117. *****               ^ not supported yet
    118. 

  118. *****                              ^ not supported yet
    119. 

  119.    88      ELSE
    120. 

  120.    89        RETURN 0;
    121. 

  121.    90    END;
    122. 

  122.    91  
    123. 

  123.    92  END GrpTotal;
    124. 

  124. *****      ^ not supported yet
    125. 

  125.    93  
    126. 

  126.    94  PROCEDURE AddGrp(Grp : ARRAY OF CHAR; AddAmt : CARDINAL);
    127. 

  127. *****                                  ^ not supported yet
    128. 

  128.    95  VAR Index : CARDINAL;
    129. 

  129.    96  BEGIN
    130. 

  130.    97  
    131. 

  131.    98    IF KeyFind(GrpTab,Grp)
    132. 

  132. *****       ^ not supported yet
    133. 

  133. *****               ^ not supported yet
    134. 

  134. *****                      ^ not supported yet
    135. 

  135.    99      THEN
    136. 

  136.   100        GetData(GrpTab,Index);
    137. 

  137. *****        ^ not supported yet
    138. 

  138. *****                ^ not supported yet
    139. 

  139. *****                            ^ not supported yet
    140. 

  140.   101        GroupCnt^[Index] := GroupCnt^[Index] + AddAmt;
    141. 

  141. *****        ^ not supported yet
    142. 

  142. *****                       ^ not supported yet
    143. 

  143. *****                            ^ not supported yet
    144. 

  144. *****                                           ^ not supported yet
    145. 

  145.   102      ELSE
    146. 

  146.   103        Insert(GrpTab,Grp,NxtGrp);
    147. 

  147. *****        ^ not supported yet
    148. 

  148. *****               ^ not supported yet
    149. 

  149. *****                      ^ not supported yet
    150. 

  150. *****                                ^ not supported yet
    151. 

  151.   104        GroupCnt^[NxtGrp] := AddAmt;
    152. 

  152. *****        ^ not supported yet
    153. 

  153. *****                        ^ not supported yet
    154. 

  154.   105        INC(NxtGrp);
    155. 

  155. *****        ^ undeclared identifier
    156. 

  156. *****                  ^ not supported yet
    157. 

  157.   106     END;
    158. 

  158.   107  
    159. 

  159.   108  END AddGrp;
    160. 

  160. *****      ^ not supported yet
    161. 

  161.   109  
    162. 

  162.   110  PROCEDURE InitGrp();
    163. 

  163.   111  BEGIN
    164. 

  164.   112    NxtGrp := 1;
    165. 

  165.   113    Define(GrpTab,100,2);
    166. 

  166. *****    ^ not supported yet
    167. 

  167. *****           ^ not supported yet
    168. 

  168. *****                       ^ not supported yet
    169. 

  169.   114    DosAlloc(GroupCnt,SIZE(GroupCnt^));
    170. 

  170. *****    ^ not supported yet
    171. 

  171. *****             ^ not supported yet
    172. 

  172. *****                      ^ undeclared identifier
    173. 

  173. *****                           ^ not supported yet
    174. 

  174.   115    ClearGrpCnt();
    175. 

  175. *****    ^ not supported yet
    176. 

  176. *****                ^ not supported yet
    177. 

  177.   116  END InitGrp;
    178. 

  178. *****      ^ not supported yet
    179. 

  179.   117  
    180. 

  180.   118  (*   Table should look like this
    181. 

  181.   119  1234567890123456789012345678901234567890123456789012345678901234567890123456
    182. 

  182.   120           1         2         3         4         5         6         7
    183. 

  183.   121   Nbr  Min 1  Price 1  Min 2  Price 2  Min 3  Price 3  Min 4  Price 4  Desc
    184. 

  184.   122   xx   xxxxx  xxxx.xx  xxxxx  xxxx.xx  xxxxx  xxxx.xx  xxxxx  xxxx.xx  xxxxxxxxxxxxxxxxxxxxxx
    185. 

  185.   123           *)	
    186. 

  186.   124  
    187. 

  187.   125  
    188. 

  188.   126  PROCEDURE SetupTable();
    189. 

  189.   127  BEGIN
    190. 

  190.   128  
    191. 

  191.   129     DefineTable(Tab,'Price Table');
    192. 

  192. *****     ^ not supported yet
    193. 

  193. *****                 ^ not supported yet
    194. 

  194. *****                     ^ not supported yet
    195. 

  195.   130     DefineTextCol(Tab,3,2,'Nbr',TRUE);
    196. 

  196. *****     ^ not supported yet
    197. 

  197. *****                   ^ not supported yet
    198. 

  198. *****                           ^ not supported yet
    199. 

  199. *****                                     ^ not supported yet
    200. 

  200.   131  
    201. 

  201.   132     DefineIntegerCol(Tab,7,6,'Min 1',0,9999);
    202. 

  202. *****     ^ not supported yet
    203. 

  203. *****                      ^ not supported yet
    204. 

  204. *****                              ^ not supported yet
    205. 

  205. *****                                            ^ not supported yet
    206. 

  206.   133     DefineRealCol(Tab,14,8,'Price 1',0.0,9999.99);
    207. 

  207. *****     ^ not supported yet
    208. 

  208. *****                   ^ not supported yet
    209. 

  209. *****                            ^ not supported yet
    210. 

  210. *****                                                 ^ not supported yet
    211. 

  211.   134  
    212. 

  212.   135     DefineIntegerCol(Tab,23,6,'Min 2',0,99999);
    213. 

  213. *****     ^ not supported yet
    214. 

  214. *****                      ^ not supported yet
    215. 

  215. *****                               ^ not supported yet
    216. 

  216. *****                                              ^ not supported yet
    217. 

  217.   136     DefineRealCol(Tab,30,8,'Price 2',0.0,9999.99);
    218. 

  218. *****     ^ not supported yet
    219. 

  219. *****                   ^ not supported yet
    220. 

  220. *****                            ^ not supported yet
    221. 

  221. *****                                                 ^ not supported yet
    222. 

  222.   137  
    223. 

  223.   138     DefineIntegerCol(Tab,39,6,'Min 3',0,99999);
    224. 

  224. *****     ^ not supported yet
    225. 

  225. *****                      ^ not supported yet
    226. 

  226. *****                               ^ not supported yet
    227. 

  227. *****                                              ^ not supported yet
    228. 

  228.   139     DefineRealCol(Tab,46,8,'Price 3',0.0,9999.99);
    229. 

  229. *****     ^ not supported yet
    230. 

  230. *****                   ^ not supported yet
    231. 

  231. *****                            ^ not supported yet
    232. 

  232. *****                                                 ^ not supported yet
    233. 

  233.   140  
    234. 

  234.   141     DefineIntegerCol(Tab,55,6,'Min 4',0,99999);
    235. 

  235. *****     ^ not supported yet
    236. 

  236. *****                      ^ not supported yet
    237. 

  237. *****                               ^ not supported yet
    238. 

  238. *****                                              ^ not supported yet
    239. 

  239.   142     DefineRealCol(Tab,62,8,'Price 4',0.0,9999.99);
    240. 

  240. *****     ^ not supported yet
    241. 

  241. *****                   ^ not supported yet
    242. 

  242. *****                            ^ not supported yet
    243. 

  243. *****                                                 ^ not supported yet
    244. 

  244.   143  
    245. 

  245.   144  
    246. 

  246.   145     DefineTextCol(Tab,71,20,'Desc',FALSE);
    247. 

  247. *****     ^ not supported yet
    248. 

  248. *****                   ^ not supported yet
    249. 

  249. *****                             ^ not supported yet
    250. 

  250. *****                                         ^ not supported yet
    251. 

  251.   146  
    252. 

  252.   147  END SetupTable;
    253. 

  253. *****      ^ not supported yet
    254. 

  254.   148  
    255. 

  255.   149  
    256. 

  256.   150  
    257. 

  257.   151  
    258. 

  258.   152  
    259. 

  259.   153  
    260. 

  260.   154      			
    261. 

  261.   155  PROCEDURE GetPriceTbl();
    262. 

  262.   156  
    263. 

  263.   157  (* return a list of all products *)
    264. 

  264.   158  VAR
    265. 

  265.   159    H : CARDINAL;
    266. 

  266.   160    EM : ErrorMessage;
    267. 

  267.   161    Size : CARDINAL;
    268. 

  268.   162    J : CARDINAL;
    269. 

  269.   163  BEGIN
    270. 

  270.   164  
    271. 

  271.   165    J := SIZE(PriceTbl^);
    272. 

  272. *****         ^ undeclared identifier
    273. 

  273. *****              ^ not supported yet
    274. 

  274.   166    DosAlloc(PriceTbl,SIZE(PriceTbl^));
    275. 

  275. *****    ^ not supported yet
    276. 

  276. *****             ^ not supported yet
    277. 

  277. *****                      ^ undeclared identifier
    278. 

  278. *****                           ^ not supported yet
    279. 

  279.   167    IF FileExists('Price.tbl')
    280. 

  280. *****       ^ not supported yet
    281. 

  281. *****                  ^ not supported yet
    282. 

  282.   168      THEN
    283. 

  283.   169        EM := OpenFile(H,'Price.Tbl');
    284. 

  284. *****        ^ not supported yet
    285. 

  285. *****              ^ not supported yet
    286. 

  286. *****                         ^ not supported yet
    287. 

  287.   170        EM := BlockRead(H,PriceTbl,SIZE(PriceTbl^));
    288. 

  288. *****        ^ not supported yet
    289. 

  289. *****              ^ not supported yet
    290. 

  290. *****                          ^ not supported yet
    291. 

  291. *****                                   ^ undeclared identifier
    292. 

  292. *****                                        ^ not supported yet
    293. 

  293.   171        EM := CloseHandle(H);
    294. 

  294. *****        ^ not supported yet
    295. 

  295. *****              ^ not supported yet
    296. 

  296. *****                           ^ not supported yet
    297. 

  297.   172      ELSE
    298. 

  298.   173         Fill(PriceTbl,SIZE(PriceTbl^),0);
    299. 

  299. *****         ^ not supported yet
    300. 

  300. *****              ^ not supported yet
    301. 

  301. *****                       ^ undeclared identifier
    302. 

  302. *****                            ^ not supported yet
    303. 

  303. *****                                        ^ not supported yet
    304. 

  304.   174  
    305. 

  305.   175     END;
    306. 

  306.   176  END GetPriceTbl;
    307. 

  307. *****      ^ not supported yet
    308. 

  308.   177  
    309. 

  309.   178  
    310. 

  310.   179  
    311. 

  311.   180  
    312. 

  312.   181  
    313. 

  313.   182  PROCEDURE DefinePriceTbl();
    314. 

  314.   183  VAR
    315. 

  315.   184   H : CARDINAL;
    316. 

  316.   185     EM : CARDINAL;
    317. 

  317.   186    J : CARDINAL;
    318. 

  318.   187    Cell : CellValue;
    319. 

  319.   188    Row  : CARDINAL;
    320. 

  320.   189    Str : ARRAY [0..5] OF CHAR;
    321. 

  321. *****                    ^ not supported yet
    322. 

  322. *****                          ^ not supported yet
    323. 

  323.   190    Nbr : ARRAY[0..4] OF CHAR;
    324. 

  324. *****                   ^ not supported yet
    325. 

  325. *****                         ^ not supported yet
    326. 

  326.   191    Size,Code : CARDINAL;
    327. 

  327.   192  BEGIN
    328. 

  328.   193   IF NOT Initialized
    329. 

  329.   194      THEN
    330. 

  330.   195        InitGrp();
    331. 

  331. *****        ^ not supported yet
    332. 

  332. *****                ^ not supported yet
    333. 

  333.   196        GetPriceTbl();
    334. 

  334. *****        ^ not supported yet
    335. 

  335. *****                    ^ not supported yet
    336. 

  336.   197        Initialized := TRUE;
    337. 

  337.   198      END;
    338. 

  338.   199    WriteEol(outp,'..This may take a few minutes .. standby..');
    339. 

  339. *****    ^ not supported yet
    340. 

  340. *****             ^ not supported yet
    341. 

  341. *****                  ^ not supported yet
    342. 

  342.   200    SetupTable();
    343. 

  343. *****    ^ not supported yet
    344. 

  344. *****               ^ not supported yet
    345. 

  345.   201    BuildTable(Tab,26);  (* increase table size by *)
    346. 

  346. *****    ^ not supported yet
    347. 

  347. *****               ^ not supported yet
    348. 

  348. *****                     ^ not supported yet
    349. 

  349.   202    FOR Row := 1 TO 25 DO
    350. 

  350.   203  
    351. 

  351.   204      CardinalToStr(Row,3,Nbr);
    352. 

  352. *****      ^ not supported yet
    353. 

  353. *****                          ^ not supported yet
    354. 

  354.   205      Assign( Nbr,Cell.Str);
    355. 

  355. *****      ^ not supported yet
    356. 

  356. *****              ^ not supported yet
    357. 

  357. *****                  ^ not supported yet
    358. 

  358. *****                       ^ not supported yet
    359. 

  359.   206      PutCell(Tab,1,Row,Cell);     (* indexed *)
    360. 

  360. *****      ^ not supported yet
    361. 

  361. *****              ^ not supported yet
    362. 

  362. *****                        ^ not supported yet
    363. 

  363.   207  
    364. 

  364.   208  
    365. 

  365.   209      Cell.I := PriceTbl^[Row].Quantity[1];	(* min 1 *)
    366. 

  366. *****      ^ not supported yet
    367. 

  367. *****           ^ not supported yet
    368. 

  368. *****                ^ not supported yet
    369. 

  369. *****                             ^ not supported yet
    370. 

  370. *****                               ^ not supported yet
    371. 

  371. *****                                         ^ not supported yet
    372. 

  372.   210      PutCell(Tab,2,Row,Cell);
    373. 

  373. *****      ^ not supported yet
    374. 

  374. *****              ^ not supported yet
    375. 

  375. *****                        ^ not supported yet
    376. 

  376.   211      Cell.R := PriceTbl^[Row].Price[1];  (* min price *)
    377. 

  377. *****      ^ not supported yet
    378. 

  378. *****           ^ not supported yet
    379. 

  379. *****                ^ not supported yet
    380. 

  380. *****                             ^ not supported yet
    381. 

  381. *****                               ^ not supported yet
    382. 

  382. *****                                      ^ not supported yet
    383. 

  383.   212      PutCell(Tab,3,Row,Cell);
    384. 

  384. *****      ^ not supported yet
    385. 

  385. *****              ^ not supported yet
    386. 

  386. *****                        ^ not supported yet
    387. 

  387.   213  
    388. 

  388.   214      Cell.I := PriceTbl^[Row].Quantity[2];	(* min 2 *)
    389. 

  389. *****      ^ not supported yet
    390. 

  390. *****           ^ not supported yet
    391. 

  391. *****                ^ not supported yet
    392. 

  392. *****                             ^ not supported yet
    393. 

  393. *****                               ^ not supported yet
    394. 

  394. *****                                         ^ not supported yet
    395. 

  395.   215      PutCell(Tab,4,Row,Cell);
    396. 

  396. *****      ^ not supported yet
    397. 

  397. *****              ^ not supported yet
    398. 

  398. *****                        ^ not supported yet
    399. 

  399.   216      Cell.R := PriceTbl^[Row].Price[2];  (* min price *)
    400. 

  400. *****      ^ not supported yet
    401. 

  401. *****           ^ not supported yet
    402. 

  402. *****                ^ not supported yet
    403. 

  403. *****                             ^ not supported yet
    404. 

  404. *****                               ^ not supported yet
    405. 

  405. *****                                      ^ not supported yet
    406. 

  406.   217      PutCell(Tab,5,Row,Cell);
    407. 

  407. *****      ^ not supported yet
    408. 

  408. *****              ^ not supported yet
    409. 

  409. *****                        ^ not supported yet
    410. 

  410.   218  
    411. 

  411.   219      Cell.I := PriceTbl^[Row].Quantity[3];	(* min 3 *)
    412. 

  412. *****      ^ not supported yet
    413. 

  413. *****           ^ not supported yet
    414. 

  414. *****                ^ not supported yet
    415. 

  415. *****                             ^ not supported yet
    416. 

  416. *****                               ^ not supported yet
    417. 

  417. *****                                         ^ not supported yet
    418. 

  418.   220      PutCell(Tab,6,Row,Cell);
    419. 

  419. *****      ^ not supported yet
    420. 

  420. *****              ^ not supported yet
    421. 

  421. *****                        ^ not supported yet
    422. 

  422.   221      Cell.R := PriceTbl^[Row].Price[3];  (* min price *)
    423. 

  423. *****      ^ not supported yet
    424. 

  424. *****           ^ not supported yet
    425. 

  425. *****                ^ not supported yet
    426. 

  426. *****                             ^ not supported yet
    427. 

  427. *****                               ^ not supported yet
    428. 

  428. *****                                      ^ not supported yet
    429. 

  429.   222      PutCell(Tab,7,Row,Cell);
    430. 

  430. *****      ^ not supported yet
    431. 

  431. *****              ^ not supported yet
    432. 

  432. *****                        ^ not supported yet
    433. 

  433.   223  
    434. 

  434.   224      Cell.I := PriceTbl^[Row].Quantity[4];	(* min 3 *)
    435. 

  435. *****      ^ not supported yet
    436. 

  436. *****           ^ not supported yet
    437. 

  437. *****                ^ not supported yet
    438. 

  438. *****                             ^ not supported yet
    439. 

  439. *****                               ^ not supported yet
    440. 

  440. *****                                         ^ not supported yet
    441. 

  441.   225      PutCell(Tab,8,Row,Cell);
    442. 

  442. *****      ^ not supported yet
    443. 

  443. *****              ^ not supported yet
    444. 

  444. *****                        ^ not supported yet
    445. 

  445.   226      Cell.R := PriceTbl^[Row].Price[4];  (* min price *)
    446. 

  446. *****      ^ not supported yet
    447. 

  447. *****           ^ not supported yet
    448. 

  448. *****                ^ not supported yet
    449. 

  449. *****                             ^ not supported yet
    450. 

  450. *****                               ^ not supported yet
    451. 

  451. *****                                      ^ not supported yet
    452. 

  452.   227      PutCell(Tab,9,Row,Cell);
    453. 

  453. *****      ^ not supported yet
    454. 

  454. *****              ^ not supported yet
    455. 

  455. *****                        ^ not supported yet
    456. 

  456.   228  
    457. 

  457.   229  
    458. 

  458.   230      Assign(PriceTbl^[Row].Desc,Cell.Str);
    459. 

  459. *****      ^ not supported yet
    460. 

  460. *****             ^ not supported yet
    461. 

  461. *****                          ^ not supported yet
    462. 

  462. *****                            ^ not supported yet
    463. 

  463. *****                                 ^ not supported yet
    464. 

  464. *****                                      ^ not supported yet
    465. 

  465.   231      PutCell(Tab,10,Row,Cell);
    466. 

  466. *****      ^ not supported yet
    467. 

  467. *****              ^ not supported yet
    468. 

  468. *****                         ^ not supported yet
    469. 

  469.   232  
    470. 

  470.   233  
    471. 

  471.   234    END;
    472. 

  472.   235    ControlTable(Tab,2,5,79,20);
    473. 

  473. *****    ^ not supported yet
    474. 

  474. *****                 ^ not supported yet
    475. 

  475. *****                              ^ not supported yet
    476. 

  476.   236    (* now read the table in and save values *)
    477. 

  477.   237    FOR Row := 1 TO 25 DO
    478. 

  478.   238      GetCell(Tab,2,Row,Cell);
    479. 

  479. *****      ^ not supported yet
    480. 

  480. *****              ^ not supported yet
    481. 

  481. *****                        ^ not supported yet
    482. 

  482.   239      PriceTbl^[Row].Quantity[1] := Cell.I;
    483. 

  483. *****      ^ not supported yet
    484. 

  484. *****                   ^ not supported yet
    485. 

  485. *****                     ^ not supported yet
    486. 

  486. *****                               ^ not supported yet
    487. 

  487. *****                                    ^ not supported yet
    488. 

  488. *****                                         ^ not supported yet
    489. 

  489.   240      GetCell(Tab,3,Row,Cell);
    490. 

  490. *****      ^ not supported yet
    491. 

  491. *****              ^ not supported yet
    492. 

  492. *****                        ^ not supported yet
    493. 

  493.   241      PriceTbl^[Row].Price[1] := Cell.R;
    494. 

  494. *****      ^ not supported yet
    495. 

  495. *****                   ^ not supported yet
    496. 

  496. *****                     ^ not supported yet
    497. 

  497. *****                            ^ not supported yet
    498. 

  498. *****                                 ^ not supported yet
    499. 

  499. *****                                      ^ not supported yet
    500. 

  500.   242  
    501. 

  501.   243      GetCell(Tab,4,Row,Cell);
    502. 

  502. *****      ^ not supported yet
    503. 

  503. *****              ^ not supported yet
    504. 

  504. *****                        ^ not supported yet
    505. 

  505.   244      PriceTbl^[Row].Quantity[2] := Cell.I;
    506. 

  506. *****      ^ not supported yet
    507. 

  507. *****                   ^ not supported yet
    508. 

  508. *****                     ^ not supported yet
    509. 

  509. *****                               ^ not supported yet
    510. 

  510. *****                                    ^ not supported yet
    511. 

  511. *****                                         ^ not supported yet
    512. 

  512.   245      GetCell(Tab,5,Row,Cell);
    513. 

  513. *****      ^ not supported yet
    514. 

  514. *****              ^ not supported yet
    515. 

  515. *****                        ^ not supported yet
    516. 

  516.   246      PriceTbl^[Row].Price[2] := Cell.R;
    517. 

  517. *****      ^ not supported yet
    518. 

  518. *****                   ^ not supported yet
    519. 

  519. *****                     ^ not supported yet
    520. 

  520. *****                            ^ not supported yet
    521. 

  521. *****                                 ^ not supported yet
    522. 

  522. *****                                      ^ not supported yet
    523. 

  523.   247  
    524. 

  524.   248      GetCell(Tab,6,Row,Cell);
    525. 

  525. *****      ^ not supported yet
    526. 

  526. *****              ^ not supported yet
    527. 

  527. *****                        ^ not supported yet
    528. 

  528.   249      PriceTbl^[Row].Quantity[3] := Cell.I;
    529. 

  529. *****      ^ not supported yet
    530. 

  530. *****                   ^ not supported yet
    531. 

  531. *****                     ^ not supported yet
    532. 

  532. *****                               ^ not supported yet
    533. 

  533. *****                                    ^ not supported yet
    534. 

  534. *****                                         ^ not supported yet
    535. 

  535.   250      GetCell(Tab,7,Row,Cell);
    536. 

  536. *****      ^ not supported yet
    537. 

  537. *****              ^ not supported yet
    538. 

  538. *****                        ^ not supported yet
    539. 

  539.   251      PriceTbl^[Row].Price[3] := Cell.R;
    540. 

  540. *****      ^ not supported yet
    541. 

  541. *****                   ^ not supported yet
    542. 

  542. *****                     ^ not supported yet
    543. 

  543. *****                            ^ not supported yet
    544. 

  544. *****                                 ^ not supported yet
    545. 

  545. *****                                      ^ not supported yet
    546. 

  546.   252  
    547. 

  547.   253      GetCell(Tab,8,Row,Cell);
    548. 

  548. *****      ^ not supported yet
    549. 

  549. *****              ^ not supported yet
    550. 

  550. *****                        ^ not supported yet
    551. 

  551.   254      PriceTbl^[Row].Quantity[4] := Cell.I;
    552. 

  552. *****      ^ not supported yet
    553. 

  553. *****                   ^ not supported yet
    554. 

  554. *****                     ^ not supported yet
    555. 

  555. *****                               ^ not supported yet
    556. 

  556. *****                                    ^ not supported yet
    557. 

  557. *****                                         ^ not supported yet
    558. 

  558.   255      GetCell(Tab,9,Row,Cell);
    559. 

  559. *****      ^ not supported yet
    560. 

  560. *****              ^ not supported yet
    561. 

  561. *****                        ^ not supported yet
    562. 

  562.   256      PriceTbl^[Row].Price[4] := Cell.R;
    563. 

  563. *****      ^ not supported yet
    564. 

  564. *****                   ^ not supported yet
    565. 

  565. *****                     ^ not supported yet
    566. 

  566. *****                            ^ not supported yet
    567. 

  567. *****                                 ^ not supported yet
    568. 

  568. *****                                      ^ not supported yet
    569. 

  569.   257  
    570. 

  570.   258  
    571. 

  571.   259      GetCell(Tab,10,Row,Cell);
    572. 

  572. *****      ^ not supported yet
    573. 

  573. *****              ^ not supported yet
    574. 

  574. *****                         ^ not supported yet
    575. 

  575.   260      Assign( Cell.Str,PriceTbl^[Row].Desc);
    576. 

  576. *****      ^ not supported yet
    577. 

  577. *****              ^ not supported yet
    578. 

  578. *****                   ^ not supported yet
    579. 

  579. *****                       ^ not supported yet
    580. 

  580. *****                                    ^ not supported yet
    581. 

  581. *****                                      ^ not supported yet
    582. 

  582.   261    END;
    583. 

  583.   262  (* now save the price table in the file *)
    584. 

  584.   263    DeleteTable(Tab);
    585. 

  585. *****    ^ not supported yet
    586. 

  586. *****                ^ not supported yet
    587. 

  587.   264    IF NOT FileExists('Price.Tbl')
    588. 

  588. *****           ^ not supported yet
    589. 

  589. *****                      ^ not supported yet
    590. 

  590.   265      THEN EM := CreateFile(H,'Price.tbl');
    591. 

  591. *****                 ^ not supported yet
    592. 

  592. *****                              ^ not supported yet
    593. 

  593.   266      ELSE EM := OpenFile(H,'Price.tbl');
    594. 

  594. *****                 ^ not supported yet
    595. 

  595. *****                            ^ not supported yet
    596. 

  596.   267      END;
    597. 

  597.   268    EM := BlockWrite(H,PriceTbl,SIZE(PriceTbl^));
    598. 

  598. *****          ^ not supported yet
    599. 

  599. *****                       ^ not supported yet
    600. 

  600. *****                                ^ undeclared identifier
    601. 

  601. *****                                     ^ not supported yet
    602. 

  602.   269    EM := CloseHandle(H);
    603. 

  603. *****          ^ not supported yet
    604. 

  604. *****                       ^ not supported yet
    605. 

  605.   270  
    606. 

  606.   271  
    607. 

  607.   272  END DefinePriceTbl;
    608. 

  608. *****      ^ not supported yet
    609. 

  609.   273  
    610. 

  610.   274  PROCEDURE GetPrice(Line : CARDINAL; Quantity : CARDINAL;
    611. 

  611.   275             StartAtLvl : CARDINAL) : Real8;
    612. 

  612.   276  VAR
    613. 

  613.   277    ItemCnt : CARDINAL;	
    614. 

  614.   278  BEGIN
    615. 

  615.   279   IF NOT Initialized
    616. 

  616.   280      THEN
    617. 

  617.   281        GetPriceTbl();
    618. 

  618. *****        ^ not supported yet
    619. 

  619. *****                    ^ not supported yet
    620. 

  620.   282        Initialized := TRUE;
    621. 

  621.   283      END;
    622. 

  622.   284    IF ((Line = 0 ) OR (Line > 25))
    623. 

  623.   285      THEN RETURN 0.0
    624. 

  624. *****                  ^ bad RETURN
    625. 

  625.   286      END;
    626. 

  626.   287    IF StartAtLvl < 1
    627. 

  627.   288      THEN
    628. 

  628.   289        StartAtLvl := 1;
    629. 

  629.   290      END;
    630. 

  630.   291    IF StartAtLvl > 4
    631. 

  631.   292      THEN
    632. 

  632.   293        StartAtLvl := 4;
    633. 

  633.   294      END;
    634. 

  634.   295       (* get either the actual count or the count for the quantity specified*)
    635. 

  635.   296    ItemCnt := Max(Quantity,PriceTbl^[Line].Quantity[StartAtLvl]);
    636. 

  636. *****               ^ not supported yet
    637. 

  637. *****                            ^ not supported yet
    638. 

  638. *****                                          ^ not supported yet
    639. 

  639. *****                                            ^ not supported yet
    640. 

  640. *****                                                               ^ not supported yet
    641. 

  641.   297    IF ItemCnt < PriceTbl^[Line].Quantity[2]
    642. 

  642. *****                 ^ not supported yet
    643. 

  643. *****                               ^ not supported yet
    644. 

  644. *****                                 ^ not supported yet
    645. 

  645. *****                                           ^ not supported yet
    646. 

  646.   298      THEN RETURN PriceTbl^[Line].Price[1]
    647. 

  647. *****                  ^ not supported yet
    648. 

  648. *****                                ^ not supported yet
    649. 

  649. *****                                  ^ not supported yet
    650. 

  650. *****                                         ^ not supported yet
    651. 

  651.   299      ELSIF ItemCnt < PriceTbl^[Line].Quantity[3]
    652. 

  652. *****                      ^ not supported yet
    653. 

  653. *****                                    ^ not supported yet
    654. 

  654. *****                                      ^ not supported yet
    655. 

  655. *****                                                ^ not supported yet
    656. 

  656.   300          THEN RETURN PriceTbl^[Line].Price[2]
    657. 

  657. *****                      ^ not supported yet
    658. 

  658. *****                                    ^ not supported yet
    659. 

  659. *****                                      ^ not supported yet
    660. 

  660. *****                                             ^ not supported yet
    661. 

  661.   301      ELSIF ItemCnt < PriceTbl^[Line].Quantity[4]
    662. 

  662. *****                      ^ not supported yet
    663. 

  663. *****                                    ^ not supported yet
    664. 

  664. *****                                      ^ not supported yet
    665. 

  665. *****                                                ^ not supported yet
    666. 

  666.   302          THEN RETURN PriceTbl^[Line].Price[3]
    667. 

  667. *****                      ^ not supported yet
    668. 

  668. *****                                    ^ not supported yet
    669. 

  669. *****                                      ^ not supported yet
    670. 

  670. *****                                             ^ not supported yet
    671. 

  671.   303      ELSE RETURN PriceTbl^[Line].Price[4];
    672. 

  672. *****                  ^ not supported yet
    673. 

  673. *****                                ^ not supported yet
    674. 

  674. *****                                  ^ not supported yet
    675. 

  675. *****                                         ^ not supported yet
    676. 

  676.   304    END;
    677. 

  677.   305  END GetPrice;
    678. 

  678. *****      ^ not supported yet
    679. 

  679.   306  
    680. 

  680.   307  PROCEDURE GetPriceTable(TblNbr : CARDINAL;
    681. 

  681.   308              VAR Q1,Q2,Q3,Q4 : CARDINAL;
    682. 

  682.   309  	    VAR P1,P2,P3,P4 : Real8);
    683. 

  683.   310  	
    684. 

  684.   311  (* return the price table for a line
    685. 

  685.   312     so the invoice routine can display *)	
    686. 

  686.   313  BEGIN
    687. 

  687.   314   IF (TblNbr = 0) OR (TblNbr > 25)
    688. 

  688.   315     THEN
    689. 

  689.   316       P1 := 0.0;
    690. 

  690. *****       ^ not supported yet
    691. 

  691.   317       P2 := 0.0;
    692. 

  692. *****       ^ not supported yet
    693. 

  693.   318       P3 := 0.0;
    694. 

  694. *****       ^ not supported yet
    695. 

  695.   319       P4 := 0.0;
    696. 

  696. *****       ^ not supported yet
    697. 

  697.   320       Q1 := 0;
    698. 

  698.   321       Q2 := 0;
    699. 

  699.   322       Q3 := 0;
    700. 

  700.   323       Q4 := 0;
    701. 

  701.   324       RETURN;
    702. 

  702.   325     END;
    703. 

  703.   326     Q1 := PriceTbl^[TblNbr].Quantity[1];
    704. 

  704. *****           ^ not supported yet
    705. 

  705. *****                           ^ not supported yet
    706. 

  706. *****                             ^ not supported yet
    707. 

  707. *****                                       ^ not supported yet
    708. 

  708.   327     Q2 := PriceTbl^[TblNbr].Quantity[2];
    709. 

  709. *****           ^ not supported yet
    710. 

  710. *****                           ^ not supported yet
    711. 

  711. *****                             ^ not supported yet
    712. 

  712. *****                                       ^ not supported yet
    713. 

  713.   328     Q3 := PriceTbl^[TblNbr].Quantity[3];
    714. 

  714. *****           ^ not supported yet
    715. 

  715. *****                           ^ not supported yet
    716. 

  716. *****                             ^ not supported yet
    717. 

  717. *****                                       ^ not supported yet
    718. 

  718.   329     Q4 := PriceTbl^[TblNbr].Quantity[4];
    719. 

  719. *****           ^ not supported yet
    720. 

  720. *****                           ^ not supported yet
    721. 

  721. *****                             ^ not supported yet
    722. 

  722. *****                                       ^ not supported yet
    723. 

  723.   330     P1 := PriceTbl^[TblNbr].Price[1];
    724. 

  724. *****     ^ not supported yet
    725. 

  725. *****           ^ not supported yet
    726. 

  726. *****                           ^ not supported yet
    727. 

  727. *****                             ^ not supported yet
    728. 

  728. *****                                    ^ not supported yet
    729. 

  729.   331     P2 := PriceTbl^[TblNbr].Price[2];
    730. 

  730. *****     ^ not supported yet
    731. 

  731. *****           ^ not supported yet
    732. 

  732. *****                           ^ not supported yet
    733. 

  733. *****                             ^ not supported yet
    734. 

  734. *****                                    ^ not supported yet
    735. 

  735.   332     P3 := PriceTbl^[TblNbr].Price[3];
    736. 

  736. *****     ^ not supported yet
    737. 

  737. *****           ^ not supported yet
    738. 

  738. *****                           ^ not supported yet
    739. 

  739. *****                             ^ not supported yet
    740. 

  740. *****                                    ^ not supported yet
    741. 

  741.   333     P4 := PriceTbl^[TblNbr].Price[4];
    742. 

  742. *****     ^ not supported yet
    743. 

  743. *****           ^ not supported yet
    744. 

  744. *****                           ^ not supported yet
    745. 

  745. *****                             ^ not supported yet
    746. 

  746. *****                                    ^ not supported yet
    747. 

  747.   334  END GetPriceTable;	
    748. 

  748. *****      ^ not supported yet
    749. 

  749.   335  
    750. 

  750.   336  PROCEDURE InitializePrice();
    751. 

  751.   337  BEGIN
    752. 

  752.   338    GetPriceTbl();
    753. 

  753. *****    ^ not supported yet
    754. 

  754. *****                ^ not supported yet
    755. 

  755.   339    InitGrp();
    756. 

  756. *****    ^ not supported yet
    757. 

  757. *****            ^ not supported yet
    758. 

  758.   340    Initialized := TRUE;
    759. 

  759.   341  END InitializePrice;
    760. 

  760. *****      ^ not supported yet
    761. 

  761.   342  
    762. 

  762.   343  
    763. 

  763.   344  
    764. 

  764.   345  BEGIN
    765. 

  765.   346  
    766. 

  766.   347    Initialized := FALSE;
    767. 

  767.   348  
    768. 

  768.   349  END PriceTable.
    769. 

  769. *****      ^ not supported yet
    770. 

  770. 

  771.   418 errors
    772. 

  772. 

  773.