Halaman utama Jelajahi Bantuan
Masuk
eric
/
Topspeed_JPI
1
0
Fork 0
Berkas Masalah 0 Permintaan Tarik 0 Wiki
Cabang: master
Ranting Tag
Topspeed_JPI
/
TS-V3
/
MODBASE
/
GAS.LST

GAS.LST 37 KB
Permalink Riwayat Mentahan

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE Gas;
    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  
    15. 

  15.    13  
    16. 

  16.    14  FROM ModBase3 IMPORT AppendBlank,ReadDBRec, WriteDBRec,Record;
    17. 

  17.    15  FROM NumTypes IMPORT Real8,REALToReal8;
    18. 

  18.    16  FROM DBFGas IMPORT GasRec,MoveGasFromDBF,MoveGasToDBF;
    19. 

  19.    17  FROM LowLevel IMPORT Fill;
    20. 

  20.    18  FROM StrEdit IMPORT Append,OverWrite,AssignStr;
    21. 

  21.    19  FROM StrConv IMPORT CardinalToStr;
    22. 

  22.    20  FROM M2Strings IMPORT CompareStr,Assign;
    23. 

  23.    21  FROM ScrnUtl2 IMPORT CloseDisplayFrame;
    24. 

  24.    22  FROM ScrnUtl1 IMPORT GetFieldRec,PutFieldRec,FieldNum,FieldListTotal;
    25. 

  25.    23  FROM ScrnTypes IMPORT DisplayFrame,InitDisplayFrame,AFrameName,
    26. 

  26.    24        DispCode,ContinueInput,CancelInput,SubmitInput,InputFieldRecord;
    27. 

  27.    25  FROM FramePainter IMPORT ShowDisplayFrame,RedrawField;
    28. 

  28.    26  FROM Prompts IMPORT PromptYN,Prompt,PromptNum;
    29. 

  29.    27  FROM ControlUtils IMPORT Control,AddStrField,AddMenuItem;
    30. 

  30.    28  FROM PMIGlobals IMPORT Today,TodayP30,TodayP30Str,Config,
    31. 

  31.    29       OpenReportDevice,CloseReportDevice,NormalTitle;
    32. 

  32.    30  FROM SYSTEM IMPORT ADR,SIZE;
    33. 

  33.    31  FROM PosUtils IMPORT Equal;
    34. 

  34.    32  FROM GenLists IMPORT ListLength,GenList,DisposeList,GetElmtAdr,
    35. 

  35.    33       SortList,GetElmt,NilList;
    36. 

  36.    34  FROM DateFunctions IMPORT Date,DaysSince1900,DateToStr;
    37. 

  37.    35  FROM DBStuff IMPORT ConditionType,MakeKey,FindAll,ReadAllRecs,DeleteAllRecs;
    38. 

  38.    36  FROM DBUtils IMPORT PrintFrame;
    39. 

  39.    37  FROM Customer IMPORT GetCurrCustName;
    40. 

  40.    38  FROM DBFGas IMPORT GasRec,GasDBF,GasIdx,OpenGasDBF,CloseGasDBF,
    41. 

  41. *****       ^ duplicate identifier
    42. 

  42. *****                     ^ duplicate identifier
    43. 

  43.    39              GasOutIdx,GasInIdx;
    44. 

  44.    40  FROM SYSTEM IMPORT SIZE,ADDRESS;
    45. 

  45. *****       ^ duplicate identifier
    46. 

  46. *****                     ^ duplicate identifier
    47. 

  47.    41  FROM VWindows IMPORT CurrentWindow;
    48. 

  48.    42  
    49. 

  49.    43  FROM Storage IMPORT ALLOCATE;
    50. 

  50.    44  
    51. 

  51.    45  TYPE
    52. 

  52.    46      FGasRec = RECORD
    53. 

  53.    47        Gas: GasRec;
    54. 

  54.    48        LI : LONGINT;
    55. 

  55.    49      END;
    56. 

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

  57.    50  
    58. 

  58.    51  PROCEDURE SortByDate (P1 : ADDRESS; C1 :CARDINAL; P2 : ADDRESS; C2 : CARDINAL): INTEGER;
    59. 

  59.    52  VAR
    60. 

  60.    53   Gas1, Gas2 : POINTER TO FGasRec;
    61. 

  61. *****                           ^ not supported yet
    62. 

  62.    54  BEGIN
    63. 

  63.    55    Gas1 := P1;    (* sort by invoice by item types *)
    64. 

  64. *****    ^ not supported yet
    65. 

  65. *****            ^ not supported yet
    66. 

  66.    56    Gas2 := P2;
    67. 

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

  68. *****            ^ not supported yet
    69. 

  69.    57    IF Equal(Gas1^.Gas.INVNBR,Gas2^.Gas.INVNBR)
    70. 

  70. *****       ^ not supported yet
    71. 

  71. *****             ^ not supported yet
    72. 

  72. *****                   ^ not supported yet
    73. 

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

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

  75. *****                                    ^ not supported yet
    76. 

  76. *****                                        ^ not supported yet
    77. 

  77.    58      THEN
    78. 

  78.    59        RETURN  CompareStr(Gas1^.Gas.ITEMNBR,Gas2^.Gas.ITEMNBR)
    79. 

  79. *****                ^ not supported yet
    80. 

  80. *****                           ^ not supported yet
    81. 

  81. *****                                 ^ not supported yet
    82. 

  82. *****                                     ^ not supported yet
    83. 

  83. *****                                             ^ not supported yet
    84. 

  84. *****                                                   ^ not supported yet
    85. 

  85. *****                                                       ^ not supported yet
    86. 

  86.    60      ELSE
    87. 

  87.    61        RETURN CompareStr(Gas1^.Gas.INVNBR,Gas2^.Gas.INVNBR); (* inv numbers sort by date*)
    88. 

  88. *****               ^ not supported yet
    89. 

  89. *****                          ^ not supported yet
    90. 

  90. *****                                ^ not supported yet
    91. 

  91. *****                                    ^ not supported yet
    92. 

  92. *****                                           ^ not supported yet
    93. 

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

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

  95.    62    END;
    96. 

  96.    63  END SortByDate;
    97. 

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

  98.    64  
    99. 

  99.    65  
    100. 

  100.    66  PROCEDURE ReadARec(VAR AddressOfRec : ADDRESS;
    101. 

  101.    67                     VAR SizeOfRec: CARDINAL);
    102. 

  102.    68  		
    103. 

  103.    69  VAR
    104. 

  104.    70    P : POINTER TO FGasRec;
    105. 

  105. *****                   ^ not supported yet
    106. 

  106.    71  BEGIN
    107. 

  107.    72    SizeOfRec := SIZE(FGasRec);
    108. 

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

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

  110.    73    ALLOCATE(P,SizeOfRec);
    111. 

  111. *****    ^ not supported yet
    112. 

  112. *****             ^ not supported yet
    113. 

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

  114.    74    MoveGasFromDBF(P^.Gas);
    115. 

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

  116. *****                   ^ not supported yet
    117. 

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

  118.    75    P^.LI := Record(GasDBF);
    119. 

  119. *****    ^ not supported yet
    120. 

  120. *****       ^ not supported yet
    121. 

  121. *****             ^ not supported yet
    122. 

  122. *****                    ^ not supported yet
    123. 

  123.    76    AddressOfRec := P;
    124. 

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

  125. *****                    ^ not supported yet
    126. 

  126.    77  END ReadARec;
    127. 

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

  128.    78  
    129. 

  129.    79  
    130. 

  130.    80  
    131. 

  131.    81  PROCEDURE DeleteGasFromInv(InvNbr : ARRAY OF CHAR);
    132. 

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

  133.    82  VAR
    134. 

  134.    83    TheList : GenList;
    135. 

  135.    84    J : CARDINAL;
    136. 

  136.    85    LI : LONGINT;
    137. 

  137.    86    Gas : GasRec;
    138. 

  138.    87    Code : CARDINAL;
    139. 

  139.    88  BEGIN
    140. 

  140.    89   OpenGasDBF(TRUE);
    141. 

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

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

  143.    90   MakeKey(InvNbr);
    144. 

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

  145. *****           ^ not supported yet
    146. 

  146.    91   NilList(TheList);
    147. 

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

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

  149.    92   FindAll(GasOutIdx,InvNbr,EQ,TheList);
    150. 

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

  151. *****           ^ not supported yet
    152. 

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

  153. *****                            ^ undeclared identifier
    154. 

  154. *****                               ^ not supported yet
    155. 

  155.    93   DeleteAllRecs(GasDBF,TheList);    (* delete all recs from check out*)
    156. 

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

  157. *****                 ^ not supported yet
    158. 

  158. *****                        ^ not supported yet
    159. 

  159.    94   FindAll(GasInIdx,InvNbr,EQ,TheList); (* find any check in recs *)
    160. 

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

  161. *****           ^ not supported yet
    162. 

  162. *****                    ^ not supported yet
    163. 

  163. *****                           ^ undeclared identifier
    164. 

  164. *****                              ^ not supported yet
    165. 

  165.    95   IF ListLength(TheList) > 0
    166. 

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

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

  168.    96     THEN
    169. 

  169.    97       FOR J := 1 TO ListLength(TheList) DO
    170. 

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

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

  172.    98          GetElmt(TheList,J,LI,Code);
    173. 

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

  174. *****                  ^ not supported yet
    175. 

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

  176.    99  	ReadDBRec(GasDBF,LI);
    177. 

  177. *****  	^ not supported yet
    178. 

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

  179. *****  	                   ^ not supported yet
    180. 

  180.   100  	MoveGasFromDBF(Gas);
    181. 

  181. *****  	^ not supported yet
    182. 

  182. *****  	               ^ not supported yet
    183. 

  183.   101  	Gas.STATUS := 'O';  (* make outstanding*)
    184. 

  184. *****  	^ not supported yet
    185. 

  185. *****  	    ^ not supported yet
    186. 

  186.   102  	Gas.ININVNBR := '';
    187. 

  187. *****  	^ not supported yet
    188. 

  188. *****  	    ^ not supported yet
    189. 

  189.   103  	MoveGasToDBF(Gas);
    190. 

  190. *****  	^ not supported yet
    191. 

  191. *****  	             ^ not supported yet
    192. 

  192.   104  	WriteDBRec(GasDBF);
    193. 

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

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

  195.   105      END;
    196. 

  196.   106    END;
    197. 

  197.   107    DisposeList(TheList);  		
    198. 

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

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

  200.   108    CloseGasDBF();
    201. 

  201. *****    ^ not supported yet
    202. 

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

  203.   109  END DeleteGasFromInv;
    204. 

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

  205.   110  
    206. 

  206.   111  
    207. 

  207.   112  
    208. 

  208.   113  
    209. 

  209.   114  PROCEDURE CheckOutGas(CustID,OutInvoiceNbr,InvtryItem : ARRAY OF CHAR;
    210. 

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

  211.   115                        Quant : CARDINAL;InvDate: Date);
    212. 

  212.   116  VAR
    213. 

  213.   117    Rec : GasRec;
    214. 

  214.   118    J : CARDINAL;
    215. 

  215.   119  BEGIN
    216. 

  216.   120    OpenGasDBF(TRUE);
    217. 

  217. *****    ^ not supported yet
    218. 

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

  219.   121    Fill(ADR(Rec),SIZE(Rec),0);  		
    220. 

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

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

  222. *****             ^ not supported yet
    223. 

  223. *****                  ^ not supported yet
    224. 

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

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

  226.   122    WITH Rec DO
    227. 

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

  228.   123      Assign( CustID,CIN );
    229. 

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

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

  231. *****                     ^ undeclared identifier
    232. 

  232.   124      Assign( OutInvoiceNbr,INVNBR );
    233. 

  233. *****      ^ not supported yet
    234. 

  234. *****              ^ not supported yet
    235. 

  235. *****                            ^ undeclared identifier
    236. 

  236.   125      Assign( InvtryItem,ITEMNBR);
    237. 

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

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

  239. *****                         ^ undeclared identifier
    240. 

  240.   126      DATEOUT := InvDate;
    241. 

  241. *****      ^ undeclared identifier
    242. 

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

  243.   127      DUEDATE := TodayP30;
    244. 

  244. *****      ^ undeclared identifier
    245. 

  245. *****                 ^ not supported yet
    246. 

  246.   128      STATUS := 'O';
    247. 

  247. *****      ^ undeclared identifier
    248. 

  248.   129    END;
    249. 

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

  250.   130  
    251. 

  251.   131   FOR J := 1 TO Quant DO
    252. 

  252. *****       ^ undeclared identifier
    253. 

  253. *****                 ^ undeclared identifier
    254. 

  254.   132     AppendBlank(GasDBF);
    255. 

  255. *****     ^ not supported yet
    256. 

  256. *****                 ^ not supported yet
    257. 

  257.   133     MoveGasToDBF(Rec);
    258. 

  258. *****     ^ not supported yet
    259. 

  259. *****                  ^ undeclared identifier
    260. 

  260.   134     WriteDBRec(GasDBF);
    261. 

  261. *****     ^ not supported yet
    262. 

  262. *****                ^ not supported yet
    263. 

  263.   135   END;
    264. 

  264.   136   CloseGasDBF();
    265. 

  265. *****   ^ not supported yet
    266. 

  266. *****               ^ not supported yet
    267. 

  267.   137  END CheckOutGas;
    268. 

  268. *****      ^ not supported yet
    269. 

  269.   138  
    270. 

  270.   139  PROCEDURE GetGasByCust(CustID,InvtryItem : ARRAY OF CHAR;Status : CHAR;
    271. 

  271. *****                                                      ^ not supported yet
    272. 

  272.   140                      VAR TheList : GenList);
    273. 

  273.   141  VAR
    274. 

  274.   142    Str : ARRAY[0..30] OF CHAR;	
    275. 

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

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

  277.   143    J : CARDINAL;	
    278. 

  278.   144  BEGIN		
    279. 

  279.   145    Assign(CustID,Str );    (* form the partial key *)
    280. 

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

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

  282. *****                  ^ not supported yet
    283. 

  283.   146    Append(Str,Status);
    284. 

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

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

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

  287.   147    Append(Str,InvtryItem);
    288. 

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

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

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

  291.   148    MakeKey(Str);   (* upcase remove blanks *)
    292. 

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

  293. *****            ^ not supported yet
    294. 

  294.   149    NilList(TheList);
    295. 

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

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

  297.   150    FindAll(GasIdx,Str,BeginsWith,TheList);
    298. 

  298. *****    ^ not supported yet
    299. 

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

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

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

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

  303.   151    ReadAllRecs(GasDBF,ReadARec,TheList);
    304. 

  304. *****    ^ not supported yet
    305. 

  305. *****                ^ not supported yet
    306. 

  306. *****                       ^ not supported yet
    307. 

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

  308.   152    SortList(TheList,SortByDate);	
    309. 

  309. *****    ^ not supported yet
    310. 

  310. *****             ^ not supported yet
    311. 

  311. *****                     ^ not supported yet
    312. 

  312.   153  END GetGasByCust;  	
    313. 

  313. *****      ^ not supported yet
    314. 

  314.   154  
    315. 

  315.   155  		
    316. 

  316.   156  PROCEDURE CheckInGas(CustID,InInvoiceNbr,InvtryItem: ARRAY OF CHAR;
    317. 

  317. *****                                                                ^ not supported yet
    318. 

  318.   157                       Quant : CARDINAL; InvDate : Date);
    319. 

  319.   158  VAR
    320. 

  320.   159    OutList : GenList;
    321. 

  321.   160    J : CARDINAL;
    322. 

  322.   161    Size, Code : CARDINAL;
    323. 

  323.   162    LL : CARDINAL;
    324. 

  324.   163    Str : ARRAY[0..30] OF CHAR;
    325. 

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

  326. *****                          ^ not supported yet
    327. 

  327.   164    Str2 : ARRAY[0..5] OF CHAR;
    328. 

  328. *****                    ^ not supported yet
    329. 

  329. *****                          ^ not supported yet
    330. 

  330.   165    Rec : POINTER TO FGasRec;
    331. 

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

  332.   166    D1,D2 : CARDINAL;
    333. 

  333.   167  BEGIN
    334. 

  334.   168    OpenGasDBF(TRUE);
    335. 

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

  336. *****                   ^ not supported yet
    337. 

  337.   169    InvtryItem[1] := '0';  (* find by the size checkout *)
    338. 

  338. *****    ^ not supported yet
    339. 

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

  340.   170    GetGasByCust(CustID,InvtryItem,'O',OutList);
    341. 

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

  342. *****                 ^ not supported yet
    343. 

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

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

  345.   171  
    346. 

  346.   172    LL := ListLength(OutList);
    347. 

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

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

  349.   173    IF Quant <= LL     (* can handle this - more tanks out than turned in*)
    350. 

  350.   174      THEN
    351. 

  351.   175        FOR J := 1 TO Quant DO
    352. 

  352.   176          GetElmtAdr(OutList,J,Rec,Size,Code);
    353. 

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

  354. *****                     ^ not supported yet
    355. 

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

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

  357.   177  	Rec^.Gas.DATEIN := InvDate;
    358. 

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

  359. *****  	     ^ not supported yet
    360. 

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

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

  362.   178  	Assign( InInvoiceNbr,Rec^.Gas.ININVNBR );
    363. 

  363. *****  	^ not supported yet
    364. 

  364. *****  	        ^ not supported yet
    365. 

  365. *****  	                     ^ not supported yet
    366. 

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

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

  368.   179  	Rec^.Gas.STATUS := 'I';   (* change status *)
    369. 

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

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

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

  372.   180  	D2 := DaysSince1900(Rec^.Gas.DUEDATE);	
    373. 

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

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

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

  376. *****  	                             ^ not supported yet
    377. 

  377.   181  	D1 := DaysSince1900(Rec^.Gas.DATEIN);
    378. 

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

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

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

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

  382.   182  	IF D1 > D2
    383. 

  383.   183  	  THEN
    384. 

  384.   184  	    Rec^.Gas.DAYSLATE := D1 - D2;
    385. 

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

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

  387. *****  	             ^ not supported yet
    388. 

  388.   185  	  END;
    389. 

  389.   186  	ReadDBRec(GasDBF,Rec^.LI);  (* position the database *)
    390. 

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

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

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

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

  394.   187          MoveGasToDBF(Rec^.Gas);      (* update the record *)
    395. 

  395. *****          ^ not supported yet
    396. 

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

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

  398.   188          WriteDBRec(GasDBF);
    399. 

  399. *****          ^ not supported yet
    400. 

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

  401.   189         END;  (* end of for *)
    402. 

  402.   190        ELSE       (* here were in trouble - the cust wants to return more*)
    403. 

  403.   191                   (* tanks than what I have recored as outstanding *)			  			
    404. 

  404.   192          D1 := Quant - LL;   (* number to be checked in without being checkou*)		
    405. 

  405.   193          CardinalToStr(D1,4,Str2);
    406. 

  406. *****          ^ not supported yet
    407. 

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

  408.   194  	Str := ' WARNING - ';
    409. 

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

  410. *****  	       ^ not supported yet
    411. 

  411.   195  	Append(Str,Str2);
    412. 

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

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

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

  415.   196  	Append(Str,' More tanks checked out than on record');
    416. 

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

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

  418. *****  	           ^ not supported yet
    419. 

  419.   197  	Prompt(Str);	
    420. 

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

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

  422.   198          CheckOutGas(CustID,'??????',InvtryItem,D1,InvDate);  (* check out with out an in*)
    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.   199  	      (* make a recursive call to check in - this time it should work*)
    429. 

  429.   200          CheckInGas(CustID,InInvoiceNbr,InvtryItem,Quant,InvDate);
    430. 

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

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

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

  433. *****                                         ^ not supported yet
    434. 

  434. *****                                                          ^ not supported yet
    435. 

  435.   201        END; 		
    436. 

  436.   202  
    437. 

  437.   203     CloseGasDBF();
    438. 

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

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

  440.   204  END CheckInGas;
    441. 

  441. *****      ^ not supported yet
    442. 

  442.   205  		
    443. 

  443.   206  
    444. 

  444.   207  
    445. 

  445.   208  
    446. 

  446.   209  PROCEDURE GasAmountDue(CustID, InvtryItem : ARRAY OF CHAR;Quant : CARDINAL;
    447. 

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

  448.   210                          InvDate   : Date;
    449. 

  449.   211                      VAR AmountDue : Real8;
    450. 

  450.   212  		    VAR Notes     : ARRAY OF CHAR);  (* filled in if late*)
    451. 

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

  452.   213  VAR Str : ARRAY[0..40] OF CHAR;
    453. 

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

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

  455.   214      Str2 : ARRAY[0..5] OF CHAR;
    456. 

  456. *****                      ^ not supported yet
    457. 

  457. *****                            ^ not supported yet
    458. 

  458.   215      DaysLate : CARDINAL;
    459. 

  459.   216      List : GenList;
    460. 

  460.   217      Rec : POINTER TO FGasRec;
    461. 

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

  462.   218      J, Size,Code : CARDINAL;
    463. 

  463.   219      D1, D2 : CARDINAL;
    464. 

  464.   220      DL : Real8;
    465. 

  465.   221  BEGIN
    466. 

  466.   222    OpenGasDBF(TRUE);
    467. 

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

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

  469.   223    InvtryItem[1] := '0';  (* make it look like a check out *)
    470. 

  470. *****    ^ not supported yet
    471. 

  471. *****                ^ not supported yet
    472. 

  472.   224    GetGasByCust(CustID,InvtryItem,'O',List);
    473. 

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

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

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

  476. *****                                       ^ not supported yet
    477. 

  477.   225    DaysLate := 0;
    478. 

  478.   226    D1 := DaysSince1900(InvDate);
    479. 

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

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

  481.   227    IF Quant > ListLength(List)
    482. 

  482. *****               ^ not supported yet
    483. 

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

  484.   228      THEN Quant := ListLength(List);
    485. 

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

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

  487.   229      END;
    488. 

  488.   230    FOR J := 1 TO Quant DO
    489. 

  489.   231      GetElmtAdr(List,J,Rec,Size,Code);
    490. 

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

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

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

  493. *****                                     ^ not supported yet
    494. 

  494.   232      D2 := DaysSince1900(Rec^.Gas.DUEDATE);	
    495. 

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

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

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

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

  499.   233      IF D1 > D2  (* late *)
    500. 

  500.   234  
    501. 

  501.   235        THEN
    502. 

  502.   236  	 Str := 'Tank late by ';
    503. 

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

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

  505.   237  	 CardinalToStr(D1-D2,5,Str2);
    506. 

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

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

  508.   238  	 Append(Str,Str2);
    509. 

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

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

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

  512.   239  	 Append(Str,' Days - Charge for ');
    513. 

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

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

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

  516.   240  	 DaysLate := DaysLate + PromptNum(Str,D1 - D2);
    517. 

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

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

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

  520.   241        END;
    521. 

  521.   242     END;  (* end for J := quant *)
    522. 

  522.   243  
    523. 

  523.   244      DL := REALToReal8(FLOAT(DaysLate));
    524. 

  524. *****      ^ not supported yet
    525. 

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

  526. *****                        ^ undeclared identifier
    527. 

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

  528.   245      AmountDue := DL * Config.OvertimeCharge;
    529. 

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

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

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

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

  533.   246      IF DaysLate > 0
    534. 

  534.   247        THEN
    535. 

  535.   248          AssignStr( 'Late charge for ',Notes);
    536. 

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

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

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

  539.   249  	CardinalToStr(DaysLate,3,Str);
    540. 

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

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

  542.   250  	Append(Str,Notes);
    543. 

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

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

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

  546.   251  	Append(Notes,' tank days ');
    547. 

  547. *****  	^ not supported yet
    548. 

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

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

  550.   252       END;	
    551. 

  551.   253      DisposeList(List);
    552. 

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

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

  554.   254      CloseGasDBF();
    555. 

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

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

  557.   255  END GasAmountDue;
    558. 

  558. *****      ^ not supported yet
    559. 

  559.   256  		
    560. 

  560.   257  		
    561. 

  561.   258  		
    562. 

  562.   259  		
    563. 

  563.   260  PROCEDURE ListOutstanding(CustID : ARRAY OF CHAR);
    564. 

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

  565.   261  CONST
    566. 

  566.   262   Title =
    567. 

  567.   263  '  Tank Size  Invoice Out   Invoice Date     Due Date ';
    568. 

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

  569.   264  (*
    570. 

  570.   265  0123456789012345678901234567890123456789012345678901234567890*)
    571. 

  571.   266  
    572. 

  572.   267  VAR
    573. 

  573.   268    DF : DisplayFrame;
    574. 

  574.   269    Handle : CARDINAL;
    575. 

  575.   270    Line : ARRAY[0..80] OF CHAR;
    576. 

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

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

  578.   271    Str  : ARRAY [0..20] OF CHAR;
    579. 

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

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

  581.   272    Rec : POINTER TO FGasRec;
    582. 

  582. *****                     ^ not supported yet
    583. 

  583.   273    B : BOOLEAN;
    584. 

  584.   274    J : CARDINAL;
    585. 

  585.   275    Code,Size : CARDINAL;
    586. 

  586.   276    FieldRec :  InputFieldRecord;
    587. 

  587.   277    List : GenList;
    588. 

  588.   278    Title1 : ARRAY[0..80] OF CHAR;
    589. 

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

  590. *****                             ^ not supported yet
    591. 

  591.   279  
    592. 

  592.   280  BEGIN
    593. 

  593.   281  
    594. 

  594.   282    OpenGasDBF(TRUE);
    595. 

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

  596. *****                   ^ not supported yet
    597. 

  597.   283    GetGasByCust(CustID,'','O',List);  (* get all items *)
    598. 

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

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

  600. *****                               ^ not supported yet
    601. 

  601.   284    CloseGasDBF();
    602. 

  602. *****    ^ not supported yet
    603. 

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

  604.   285  
    605. 

  605.   286    InitDisplayFrame(DF,CurrentWindow);
    606. 

  606. *****    ^ not supported yet
    607. 

  607. *****                     ^ not supported yet
    608. 

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

  609.   287    AddStrField(DF,2,2,Title,75);
    610. 

  610. *****    ^ not supported yet
    611. 

  611. *****                ^ not supported yet
    612. 

  612. *****                       ^ not supported yet
    613. 

  613. *****                               ^ not supported yet
    614. 

  614.   288    GetFieldRec(DF,1,FieldRec);
    615. 

  615. *****    ^ not supported yet
    616. 

  616. *****                ^ not supported yet
    617. 

  617. *****                     ^ not supported yet
    618. 

  618.   289    FieldRec.typ := DispCode;   (* headline = display code *)
    619. 

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

  620. *****             ^ not supported yet
    621. 

  621. *****                    ^ not supported yet
    622. 

  622.   290    PutFieldRec(FieldRec,DF,1);
    623. 

  623. *****    ^ not supported yet
    624. 

  624. *****                ^ not supported yet
    625. 

  625. *****                         ^ not supported yet
    626. 

  626. *****                             ^ not supported yet
    627. 

  627.   291    DF^.headline := 2;
    628. 

  628. *****    ^ not supported yet
    629. 

  629. *****        ^ not supported yet
    630. 

  630.   292    IF ListLength(List) > 0   (* some tanks are outstanding *)
    631. 

  631. *****       ^ not supported yet
    632. 

  632. *****                  ^ not supported yet
    633. 

  633.   293      THEN
    634. 

  634.   294        FOR J := 1 TO ListLength(List) DO
    635. 

  635. *****                      ^ not supported yet
    636. 

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

  637.   295          GetElmtAdr(List,J,Rec,Size,Code);
    638. 

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

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

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

  641. *****                                         ^ not supported yet
    642. 

  642.   296  	Fill(ADR(Line),SIZE(Line),' ');
    643. 

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

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

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

  646. *****  	               ^ not supported yet
    647. 

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

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

  649.   297  	OverWrite(Rec^.Gas.ITEMNBR,Line,1);
    650. 

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

  651. *****  	          ^ not supported yet
    652. 

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

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

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

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

  656.   298  	OverWrite(Rec^.Gas.INVNBR,Line,14);
    657. 

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

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

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

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

  661. *****  	                          ^ not supported yet
    662. 

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

  663.   299  	DateToStr(Rec^.Gas.DATEOUT,Str,B);
    664. 

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

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

  666. *****  	               ^ not supported yet
    667. 

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

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

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

  670.   300  	OverWrite(Str,Line,29);
    671. 

  671. *****  	^ not supported yet
    672. 

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

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

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

  675.   301  	DateToStr(Rec^.Gas.DUEDATE,Str,B);
    676. 

  676. *****  	^ not supported yet
    677. 

  677. *****  	          ^ not supported yet
    678. 

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

  679. *****  	                   ^ not supported yet
    680. 

  680. *****  	                           ^ not supported yet
    681. 

  681. *****  	                                ^ not supported yet
    682. 

  682.   302  	OverWrite(Str,Line,47);
    683. 

  683. *****  	^ not supported yet
    684. 

  684. *****  	          ^ not supported yet
    685. 

  685. *****  	              ^ not supported yet
    686. 

  686. *****  	                     ^ not supported yet
    687. 

  687.   303  	AddMenuItem(DF,2,J+2,Line,78,0,' ');
    688. 

  688. *****  	^ not supported yet
    689. 

  689. *****  	            ^ not supported yet
    690. 

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

  691. *****  	                                  ^ not supported yet
    692. 

  692.   304        END;
    693. 

  693.   305        ShowDisplayFrame(DF,1,13,80,24);
    694. 

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

  695. *****                         ^ not supported yet
    696. 

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

  697.   306        Control(DF);
    698. 

  698. *****        ^ not supported yet
    699. 

  699. *****                ^ not supported yet
    700. 

  700.   307        IF PromptYN('Do you wish to print Y/N?',DF)
    701. 

  701. *****           ^ not supported yet
    702. 

  702. *****                    ^ not supported yet
    703. 

  703. *****                                                ^ not supported yet
    704. 

  704.   308          THEN
    705. 

  705.   309  	  GetCurrCustName(Title1);
    706. 

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

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

  708.   310  	  Append(Title1,'  - Gas Outstanding');
    709. 

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

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

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

  712.   311  	  Handle := OpenReportDevice();
    713. 

  713. *****  	            ^ not supported yet
    714. 

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

  715.   312  	  NormalTitle(Title1);
    716. 

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

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

  718.   313  
    719. 

  719.   314  	  PrintFrame(DF,Handle);
    720. 

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

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

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

  723.   315  	  CloseReportDevice(Handle);	
    724. 

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

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

  726.   316  	END;
    727. 

  727.   317  
    728. 

  728.   318      END;   (* end of if > 0 *)	
    729. 

  729.   319      CloseDisplayFrame(DF);	
    730. 

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

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

  732.   320      DisposeList(List);
    733. 

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

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

  735.   321  
    736. 

  736.   322  END ListOutstanding;
    737. 

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

  738.   323  
    739. 

  739.   324  PROCEDURE ListHistory(CustID : ARRAY OF CHAR; DF1 : DisplayFrame);	
    740. 

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

  741.   325  CONST
    742. 

  742.   326   Title =
    743. 

  743.   327  '  Size  InvoiceOut  DateOut  DueDate  InvoiceIn  DateIn  DaysLate  Charge ';
    744. 

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

  745.   328  (*
    746. 

  746.   329  0123456789012345678901234567890123456789012345678901234567890*)
    747. 

  747.   330  
    748. 

  748.   331  VAR
    749. 

  749.   332    DF : DisplayFrame;
    750. 

  750.   333    Line : ARRAY[0..80] OF CHAR;
    751. 

  751. *****                    ^ not supported yet
    752. 

  752. *****                           ^ not supported yet
    753. 

  753.   334    Str  : ARRAY [0..20] OF CHAR;
    754. 

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

  755. *****                            ^ not supported yet
    756. 

  756.   335    Rec : POINTER TO FGasRec;
    757. 

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

  758.   336    B : BOOLEAN;
    759. 

  759.   337    J : CARDINAL;
    760. 

  760.   338    Code,Size : CARDINAL;
    761. 

  761.   339    FieldRec :  InputFieldRecord;
    762. 

  762.   340    List : GenList;
    763. 

  763.   341    Title1 : ARRAY[0..80] OF CHAR;
    764. 

  764. *****                      ^ not supported yet
    765. 

  765. *****                             ^ not supported yet
    766. 

  766.   342    Handle : CARDINAL;
    767. 

  767.   343  
    768. 

  768.   344  BEGIN
    769. 

  769.   345    IF NOT PromptYN('Warning Display gas history could take several minutes',DF1)
    770. 

  770. *****           ^ not supported yet
    771. 

  771. *****                    ^ not supported yet
    772. 

  772. *****                                                                             ^ not supported yet
    773. 

  773.   346      THEN
    774. 

  774.   347        RETURN
    775. 

  775.   348      END;
    776. 

  776.   349    OpenGasDBF(TRUE);
    777. 

  777. *****    ^ not supported yet
    778. 

  778. *****                   ^ not supported yet
    779. 

  779.   350    GetGasByCust(CustID,'','I',List);  (* get all items *)
    780. 

  780. *****    ^ not supported yet
    781. 

  781. *****                 ^ not supported yet
    782. 

  782. *****                               ^ not supported yet
    783. 

  783.   351    CloseGasDBF();
    784. 

  784. *****    ^ not supported yet
    785. 

  785. *****                ^ not supported yet
    786. 

  786.   352  
    787. 

  787.   353    InitDisplayFrame(DF,CurrentWindow);
    788. 

  788. *****    ^ not supported yet
    789. 

  789. *****                     ^ not supported yet
    790. 

  790. *****                        ^ not supported yet
    791. 

  791.   354    AddStrField(DF,2,2,Title,75);
    792. 

  792. *****    ^ not supported yet
    793. 

  793. *****                ^ not supported yet
    794. 

  794. *****                       ^ not supported yet
    795. 

  795. *****                               ^ not supported yet
    796. 

  796.   355    GetFieldRec(DF,1,FieldRec);
    797. 

  797. *****    ^ not supported yet
    798. 

  798. *****                ^ not supported yet
    799. 

  799. *****                     ^ not supported yet
    800. 

  800.   356    FieldRec.typ := DispCode;   (* headline = display code *)
    801. 

  801. *****    ^ not supported yet
    802. 

  802. *****             ^ not supported yet
    803. 

  803. *****                    ^ not supported yet
    804. 

  804.   357    PutFieldRec(FieldRec,DF,1);
    805. 

  805. *****    ^ not supported yet
    806. 

  806. *****                ^ not supported yet
    807. 

  807. *****                         ^ not supported yet
    808. 

  808. *****                             ^ not supported yet
    809. 

  809.   358    DF^.headline := 2;
    810. 

  810. *****    ^ not supported yet
    811. 

  811. *****        ^ not supported yet
    812. 

  812.   359    IF ListLength(List) > 0   (* some tanks are outstanding *)
    813. 

  813. *****       ^ not supported yet
    814. 

  814. *****                  ^ not supported yet
    815. 

  815.   360      THEN
    816. 

  816.   361        FOR J := 1 TO ListLength(List) DO
    817. 

  817. *****                      ^ not supported yet
    818. 

  818. *****                                 ^ not supported yet
    819. 

  819.   362  (***************************************************************************
    820. 

  820.   363    Size  InvoiceOut  DateOut  DueDate  InvoiceIn  DateIn  DaysLate  Charge ';
    821. 

  821.   364  0123456789012345678901234567890123456789012345678901234567890123456781234567*)
    822. 

  822.   365  
    823. 

  823.   366          GetElmtAdr(List,J,Rec,Size,Code);
    824. 

  824. *****          ^ not supported yet
    825. 

  825. *****                     ^ not supported yet
    826. 

  826. *****                            ^ not supported yet
    827. 

  827. *****                                         ^ not supported yet
    828. 

  828.   367  	Fill(ADR(Line),SIZE(Line),' ');
    829. 

  829. *****  	^ not supported yet
    830. 

  830. *****  	     ^ not supported yet
    831. 

  831. *****  	         ^ not supported yet
    832. 

  832. *****  	               ^ not supported yet
    833. 

  833. *****  	                    ^ not supported yet
    834. 

  834. *****  	                             ^ not supported yet
    835. 

  835.   368  	OverWrite(Rec^.Gas.ITEMNBR,Line,1);
    836. 

  836. *****  	^ not supported yet
    837. 

  837. *****  	          ^ not supported yet
    838. 

  838. *****  	               ^ not supported yet
    839. 

  839. *****  	                   ^ not supported yet
    840. 

  840. *****  	                           ^ not supported yet
    841. 

  841. *****  	                                 ^ not supported yet
    842. 

  842.   369  	OverWrite(Rec^.Gas.INVNBR,Line,8);
    843. 

  843. *****  	^ not supported yet
    844. 

  844. *****  	          ^ not supported yet
    845. 

  845. *****  	               ^ not supported yet
    846. 

  846. *****  	                   ^ not supported yet
    847. 

  847. *****  	                          ^ not supported yet
    848. 

  848. *****  	                                ^ not supported yet
    849. 

  849.   370  	DateToStr(Rec^.Gas.DATEOUT,Str,B);
    850. 

  850. *****  	^ not supported yet
    851. 

  851. *****  	          ^ not supported yet
    852. 

  852. *****  	               ^ not supported yet
    853. 

  853. *****  	                   ^ not supported yet
    854. 

  854. *****  	                           ^ not supported yet
    855. 

  855. *****  	                                ^ not supported yet
    856. 

  856.   371  	OverWrite(Str,Line,20);
    857. 

  857. *****  	^ not supported yet
    858. 

  858. *****  	          ^ not supported yet
    859. 

  859. *****  	              ^ not supported yet
    860. 

  860. *****  	                     ^ not supported yet
    861. 

  861.   372  	DateToStr(Rec^.Gas.DUEDATE,Str,B);
    862. 

  862. *****  	^ not supported yet
    863. 

  863. *****  	          ^ not supported yet
    864. 

  864. *****  	               ^ not supported yet
    865. 

  865. *****  	                   ^ not supported yet
    866. 

  866. *****  	                           ^ not supported yet
    867. 

  867. *****  	                                ^ not supported yet
    868. 

  868.   373  	OverWrite(Str,Line,29);
    869. 

  869. *****  	^ not supported yet
    870. 

  870. *****  	          ^ not supported yet
    871. 

  871. *****  	              ^ not supported yet
    872. 

  872. *****  	                     ^ not supported yet
    873. 

  873.   374  	OverWrite(Rec^.Gas.ININVNBR,Line,38);
    874. 

  874. *****  	^ not supported yet
    875. 

  875. *****  	          ^ not supported yet
    876. 

  876. *****  	               ^ not supported yet
    877. 

  877. *****  	                   ^ not supported yet
    878. 

  878. *****  	                            ^ not supported yet
    879. 

  879. *****  	                                   ^ not supported yet
    880. 

  880.   375  	DateToStr(Rec^.Gas.DATEIN,Str,B);
    881. 

  881. *****  	^ not supported yet
    882. 

  882. *****  	          ^ not supported yet
    883. 

  883. *****  	               ^ not supported yet
    884. 

  884. *****  	                   ^ not supported yet
    885. 

  885. *****  	                          ^ not supported yet
    886. 

  886. *****  	                               ^ not supported yet
    887. 

  887.   376  	OverWrite(Str,Line,49);
    888. 

  888. *****  	^ not supported yet
    889. 

  889. *****  	          ^ not supported yet
    890. 

  890. *****  	              ^ not supported yet
    891. 

  891. *****  	                     ^ not supported yet
    892. 

  892.   377  	CardinalToStr(Rec^.Gas.DAYSLATE,4,Str);
    893. 

  893. *****  	^ not supported yet
    894. 

  894. *****  	              ^ not supported yet
    895. 

  895. *****  	                   ^ not supported yet
    896. 

  896. *****  	                       ^ not supported yet
    897. 

  897. *****  	                                  ^ not supported yet
    898. 

  898.   378  	OverWrite(Str,Line,60);
    899. 

  899. *****  	^ not supported yet
    900. 

  900. *****  	          ^ not supported yet
    901. 

  901. *****  	              ^ not supported yet
    902. 

  902. *****  	                     ^ not supported yet
    903. 

  903.   379  	AddMenuItem(DF,2,J+2,Line,78,0,' ');
    904. 

  904. *****  	^ not supported yet
    905. 

  905. *****  	            ^ not supported yet
    906. 

  906. *****  	                     ^ not supported yet
    907. 

  907. *****  	                                  ^ not supported yet
    908. 

  908.   380        END;
    909. 

  909.   381        ShowDisplayFrame(DF,1,13,80,24);
    910. 

  910. *****        ^ not supported yet
    911. 

  911. *****                         ^ not supported yet
    912. 

  912. *****                                      ^ not supported yet
    913. 

  913.   382        Control(DF);
    914. 

  914. *****        ^ not supported yet
    915. 

  915. *****                ^ not supported yet
    916. 

  916.   383        IF PromptYN('Do you wish to print Y/N?',DF)
    917. 

  917. *****           ^ not supported yet
    918. 

  918. *****                    ^ not supported yet
    919. 

  919. *****                                                ^ not supported yet
    920. 

  920.   384          THEN
    921. 

  921.   385  	  GetCurrCustName(Title1);
    922. 

  922. *****  	  ^ not supported yet
    923. 

  923. *****  	                  ^ not supported yet
    924. 

  924.   386  	  Append(Title1,'  - Gas History');
    925. 

  925. *****  	  ^ not supported yet
    926. 

  926. *****  	         ^ not supported yet
    927. 

  927. *****  	                ^ not supported yet
    928. 

  928.   387  	  NormalTitle(Title1);
    929. 

  929. *****  	  ^ not supported yet
    930. 

  930. *****  	              ^ not supported yet
    931. 

  931.   388  	  Handle := OpenReportDevice();
    932. 

  932. *****  	            ^ not supported yet
    933. 

  933. *****  	                             ^ not supported yet
    934. 

  934.   389  	  PrintFrame(DF,Handle);
    935. 

  935. *****  	  ^ not supported yet
    936. 

  936. *****  	             ^ not supported yet
    937. 

  937. *****  	                      ^ not supported yet
    938. 

  938.   390  	  CloseReportDevice(Handle);
    939. 

  939. *****  	  ^ not supported yet
    940. 

  940. *****  	                          ^ not supported yet
    941. 

  941.   391  	END;
    942. 

  942.   392  
    943. 

  943.   393      END;   (* end of if > 0 *)	
    944. 

  944.   394      CloseDisplayFrame(DF);	
    945. 

  945. *****      ^ not supported yet
    946. 

  946. *****                        ^ not supported yet
    947. 

  947.   395      DisposeList(List);
    948. 

  948. *****      ^ not supported yet
    949. 

  949. *****                  ^ not supported yet
    950. 

  950.   396  	    		
    951. 

  951.   397  END ListHistory;
    952. 

  952. *****      ^ not supported yet
    953. 

  953.   398  END Gas.
    954. 

  954. *****      ^ not supported yet
    955. 

  955. 

  956.   554 errors
    957. 

  957. 

  958.