Home Esplora Aiuto
Accedi
eric
/
Topspeed_JPI
1
0
Forka 0
File Problemi 0 Pull Requests 0 Wiki
Ramo (Branch): master
Rami (Branch) Tag
Topspeed_JPI
/
TS-V3
/
MODBASE
/
INVREPOR.LST

INVREPOR.LST 51 KB
Permalink Cronologia Originale

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE InvReports;
    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 DBFInvoice IMPORT InvoiceRec,MoveInvoiceFromDBF,
    17. 

  17.    15       OpenInvoiceDBF,CloseInvoiceDBF,InvoiceDBF;
    18. 

  18.    16  FROM Invoice IMPORT MakeInvoicePrintLine,FInvoice;
    19. 

  19.    17  FROM PosUtils IMPORT Equal;
    20. 

  20.    18  FROM PMIGlobals IMPORT Today,TodayDays,NormalTitle,PMIScreens,
    21. 

  21.    19       OpenReportDevice,CloseReportDevice;
    22. 

  22.    20  FROM Customer IMPORT GetCustName;
    23. 

  23.    21  FROM DBFCustomer IMPORT OpenCustomerDBF,CloseCustomerDBF;
    24. 

  24.    22  FROM DBUtils IMPORT GetDateRange,PrintFrame;
    25. 

  25.    23  FROM GenLists IMPORT GenList,ListInsert,DisposeList,
    26. 

  26.    24       GetElmt,GetElmtAdr,NewList,ListLength,SortList;
    27. 

  27.    25  FROM DateFunctions IMPORT Comparison,CompareDates,Date,DateToStr,
    28. 

  28.    26       CardToDate,DaysSince1900;
    29. 

  29.    27  FROM StrConv IMPORT RealToStr,CardinalToStr;
    30. 

  30.    28  FROM StrEdit IMPORT CrunchBlanks,DeleteRightJustified,Append,
    31. 

  31.    29       CAPstr,OverWrite,RightJustify,Center,SetLength;
    32. 

  32.    30  FROM ModBase3 IMPORT ReadDBRec,CloseDBF,NumberRecords;
    33. 

  33.    31  FROM M2Strings IMPORT Length,CompareStr,Assign;
    34. 

  34.    32  FROM LowLevel IMPORT Fill;
    35. 

  35.    33  FROM NumTypes IMPORT Real8;
    36. 

  36.    34  IMPORT VWindows;
    37. 

  37.    35  FROM ScrnUtl2 IMPORT CloseDisplayFrame;
    38. 

  38.    36  FROM ScrnUtl1 IMPORT GetFieldRec,PutFieldRec,FieldNum,FieldListTotal;
    39. 

  39.    37  FROM ScrnTypes IMPORT DisplayFrame,InitDisplayFrame,AFrameName,
    40. 

  40.    38        DispCode,ContinueInput,CancelInput,SubmitInput,InputFieldRecord;
    41. 

  41.    39  FROM FramePainter IMPORT ShowDisplayFrame,RedrawField;
    42. 

  42.    40  FROM ControlUtils IMPORT Control,AddStrField,AddMenuItem;
    43. 

  43.    41  FROM Prompts IMPORT Prompt,PromptStr,PromptYN;
    44. 

  44.    42  FROM ScrnTypes IMPORT AFrameName, InitDisplayFrame,DisplayFile;
    45. 

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

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

  47. *****                                    ^ duplicate identifier
    48. 

  48.    43  FROM SYSTEM IMPORT ADDRESS,ADR,SIZE;
    49. 

  49.    44  TYPE
    50. 

  50.    45    InvCust = RECORD
    51. 

  51.    46      Invoice : InvoiceRec;
    52. 

  52.    47      CustName : ARRAY[0..40] OF CHAR;
    53. 

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

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

  55.    48    END;
    56. 

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

  57.    49  
    58. 

  58.    50  
    59. 

  59.    51  VAR
    60. 

  60.    52    IncludeSet : SET OF CHAR;
    61. 

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

  62.    53    StartDate, EndDate : Date;
    63. 

  63.    54  PROCEDURE MakeInvoiceList(VAR InvList : GenList);
    64. 

  64.    55  VAR
    65. 

  65.    56    LI : LONGINT;
    66. 

  66.    57    InvRec : InvCust;
    67. 

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

  68.    58    D : CARDINAL;
    69. 

  69.    59  BEGIN
    70. 

  70.    60    D := DaysSince1900(StartDate);  (* adjust to days so I get =>, <=*)
    71. 

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

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

  73.    61    CardToDate(D,StartDate);
    74. 

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

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

  76.    62    D := DaysSince1900(EndDate);
    77. 

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

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

  79.    63    INC(D);
    80. 

  80. *****    ^ undeclared identifier
    81. 

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

  82.    64    CardToDate(D,EndDate);
    83. 

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

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

  85.    65    NewList(InvList);
    86. 

  86. *****    ^ not supported yet
    87. 

  87. *****            ^ not supported yet
    88. 

  88.    66    OpenInvoiceDBF(FALSE);  (* Dont need the index *)
    89. 

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

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

  91.    67    OpenCustomerDBF(TRUE);
    92. 

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

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

  94.    68    FOR LI := 1 TO NumberRecords(InvoiceDBF) DO
    95. 

  95. *****                   ^ not supported yet
    96. 

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

  97.    69      ReadDBRec(InvoiceDBF,LI);
    98. 

  98. *****      ^ not supported yet
    99. 

  99. *****                ^ not supported yet
    100. 

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

  101.    70      MoveInvoiceFromDBF(InvRec.Invoice);
    102. 

  102. *****      ^ not supported yet
    103. 

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

  104. *****                                ^ not supported yet
    105. 

  105.    71      CrunchBlanks(InvRec.Invoice.INVOICE);
    106. 

  106. *****      ^ not supported yet
    107. 

  107. *****                   ^ not supported yet
    108. 

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

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

  110.    72  
    111. 

  111.    73      IF (InvRec.Invoice.INVPRNT IN IncludeSet) AND
    112. 

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

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

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

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

  116.    74         (CompareDates(InvRec.Invoice.INVDATE,StartDate) = DateGreater)  AND
    117. 

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

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

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

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

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

  122. *****                                                           ^ undeclared identifier
    123. 

  123.    75         (CompareDates(InvRec.Invoice.INVDATE,EndDate) = DateLess)
    124. 

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

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

  126. *****                              ^ not supported yet
    127. 

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

  128. *****                                              ^ not supported yet
    129. 

  129. *****                                                         ^ undeclared identifier
    130. 

  130.    76        THEN
    131. 

  131.    77          GetCustName(InvRec.Invoice.CUSTID,InvRec.CustName);
    132. 

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

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

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

  135. *****                                     ^ not supported yet
    136. 

  136. *****                                            ^ not supported yet
    137. 

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

  138.    78          ListInsert(InvRec,3,InvList,30000);
    139. 

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

  140. *****                     ^ not supported yet
    141. 

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

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

  143.    79        END;
    144. 

  144.    80    END;
    145. 

  145.    81    CloseDBF(InvoiceDBF);
    146. 

  146. *****    ^ not supported yet
    147. 

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

  148.    82    CloseCustomerDBF();   	
    149. 

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

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

  151.    83  END MakeInvoiceList;
    152. 

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

  153.    84  
    154. 

  154.    85  
    155. 

  155.    86  
    156. 

  156.    87  PROCEDURE SortByCustName(Item1 : ADDRESS; Size1 : CARDINAL;
    157. 

  157.    88                         Item2 : ADDRESS; Size2 : CARDINAL): INTEGER;
    158. 

  158.    89  
    159. 

  159.    90  (* sort by name here becase want an alpha sort rather than CIN sort*)
    160. 

  160.    91  
    161. 

  161.    92  VAR
    162. 

  162.    93   P1, P2 : POINTER TO InvCust;
    163. 

  163. *****                       ^ not supported yet
    164. 

  164.    94  BEGIN
    165. 

  165.    95   P1 := Item1;
    166. 

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

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

  168.    96   P2 := Item2;
    169. 

  169. *****   ^ not supported yet
    170. 

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

  171.    97   IF NOT Equal(P1^.CustName,P2^.CustName)
    172. 

  172. *****          ^ not supported yet
    173. 

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

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

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

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

  177.    98    THEN
    178. 

  178.    99       RETURN CompareStr(P1^.CustName,P2^.CustName);
    179. 

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

  180. *****                         ^ not supported yet
    181. 

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

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

  183. *****                                          ^ not supported yet
    184. 

  184.   100    ELSE
    185. 

  185.   101       RETURN CompareStr(P1^.Invoice.INVOICE,P2^.Invoice.INVOICE);
    186. 

  186. *****              ^ not supported yet
    187. 

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

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

  189. *****                                     ^ not supported yet
    190. 

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

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

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

  193.   102   END;
    194. 

  194.   103  
    195. 

  195.   104  END SortByCustName;
    196. 

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

  197.   105  
    198. 

  198.   106  
    199. 

  199.   107  
    200. 

  200.   108  PROCEDURE SortByInvoiceNbr(Item1 : ADDRESS; Size1 : CARDINAL;
    201. 

  201.   109                         Item2 : ADDRESS; Size2 : CARDINAL): INTEGER;
    202. 

  202.   110  
    203. 

  203.   111  (* sort by name here becase want an alpha sort rather than CIN sort*)
    204. 

  204.   112  
    205. 

  205.   113  VAR
    206. 

  206.   114   P1, P2 : POINTER TO InvCust;
    207. 

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

  208.   115  BEGIN
    209. 

  209.   116   P1 := Item1;
    210. 

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

  211. *****         ^ not supported yet
    212. 

  212.   117   P2 := Item2;
    213. 

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

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

  215.   118   RETURN CompareStr(P1^.Invoice.INVOICE,P2^.Invoice.INVOICE);
    216. 

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

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

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

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

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

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

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

  223.   119  END SortByInvoiceNbr;
    224. 

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

  225.   120  
    226. 

  226.   121  
    227. 

  227.   122  PROCEDURE InvHistory();
    228. 

  228.   123  VAR
    229. 

  229.   124    J : CARDINAL;
    230. 

  230.   125    InvTotal : Real8;
    231. 

  231.   126    InvRec : InvCust;
    232. 

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

  233.   127    InvList : GenList;
    234. 

  234.   128    Code : CARDINAL;
    235. 

  235.   129    FieldRec : InputFieldRecord;
    236. 

  236.   130    DF : DisplayFrame;
    237. 

  237.   131    DF2 : DisplayFrame;
    238. 

  238.   132    B : BOOLEAN;
    239. 

  239.   133    Str : ARRAY[0..12] OF CHAR;
    240. 

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

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

  242.   134    Line : ARRAY[0..80] OF CHAR;
    243. 

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

  244. *****                           ^ not supported yet
    245. 

  245.   135    NbrO,NbrP,NbrC : CARDINAL;
    246. 

  246.   136    InvTotP,InvTotO,InvTotC : Real8;
    247. 

  247.   137    InvNetP,InvNetO,InvNetC : Real8;
    248. 

  248.   138    Handle : CARDINAL;
    249. 

  249.   139  
    250. 

  250.   140  PROCEDURE DisplayTotals();
    251. 

  251.   141  
    252. 

  252.   142  BEGIN
    253. 

  253.   143  
    254. 

  254.   144    ShowDisplayFrame(DF,1,1,80,24);
    255. 

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

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

  257. *****                                 ^ not supported yet
    258. 

  258.   145    DF2^.startcol := 5;
    259. 

  259. *****    ^ not supported yet
    260. 

  260. *****         ^ not supported yet
    261. 

  261.   146    DF2^.endcol := 75;
    262. 

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

  263. *****         ^ not supported yet
    264. 

  264.   147    DF2^.startrow := 5;
    265. 

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

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

  267.   148    DF2^.endrow := 20;
    268. 

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

  269. *****         ^ not supported yet
    270. 

  270.   149  
    271. 

  271.   150  
    272. 

  272.   151    AddStrField(DF,2,2,
    273. 

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

  274. *****                ^ not supported yet
    275. 

  275.   152   '          Num      Net       Total',50);
    276. 

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

  277. *****                                          ^ not supported yet
    278. 

  278.   153    Fill(ADR(Line),SIZE(Line),' ');
    279. 

  279. *****    ^ not supported yet
    280. 

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

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

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

  283. *****                        ^ not supported yet
    284. 

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

  285.   154    OverWrite(' Outstanding ',Line,3);
    286. 

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

  287. *****              ^ not supported yet
    288. 

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

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

  290.   155    CardinalToStr(NbrO,3,Str);
    291. 

  291. *****    ^ not supported yet
    292. 

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

  293.   156    OverWrite(Str,Line,13);
    294. 

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

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

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

  297. *****                         ^ not supported yet
    298. 

  298.   157  
    299. 

  299.   158    RealToStr(InvNetO,2,8,Str);
    300. 

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

  301. *****              ^ not supported yet
    302. 

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

  303.   159    OverWrite(Str,Line,22);
    304. 

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

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

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

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

  308.   160    RealToStr(InvTotO,2,8,Str);
    309. 

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

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

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

  312.   161    OverWrite(Str,Line,34);
    313. 

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

  314. *****              ^ not supported yet
    315. 

  315. *****                  ^ not supported yet
    316. 

  316. *****                         ^ not supported yet
    317. 

  317.   162    AddStrField(DF2,2,4,Line,50);
    318. 

  318. *****    ^ not supported yet
    319. 

  319. *****                ^ not supported yet
    320. 

  320. *****                        ^ not supported yet
    321. 

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

  322.   163  
    323. 

  323.   164    Fill(ADR(Line),SIZE(Line),' ');
    324. 

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

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

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

  327. *****                   ^ not supported yet
    328. 

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

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

  330.   165    OverWrite(' Posted ',Line,3);
    331. 

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

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

  333. *****                         ^ not supported yet
    334. 

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

  335.   166    CardinalToStr(NbrP,3,Str);
    336. 

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

  337. *****                         ^ not supported yet
    338. 

  338.   167    OverWrite(Str,Line,13);
    339. 

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

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

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

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

  343.   168  
    344. 

  344.   169    RealToStr(InvNetP,2,8,Str);
    345. 

  345. *****    ^ not supported yet
    346. 

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

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

  348.   170    OverWrite(Str,Line,22);
    349. 

  349. *****    ^ not supported yet
    350. 

  350. *****              ^ not supported yet
    351. 

  351. *****                  ^ not supported yet
    352. 

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

  353.   171    RealToStr(InvTotP,2,8,Str);
    354. 

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

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

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

  357.   172    OverWrite(Str,Line,32);
    358. 

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

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

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

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

  362.   173    AddStrField(DF2,2,5,Line,50);
    363. 

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

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

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

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

  367.   174  
    368. 

  368.   175    Fill(ADR(Line),SIZE(Line),' ');
    369. 

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

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

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

  372. *****                   ^ not supported yet
    373. 

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

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

  375.   176    OverWrite(' Closed ',Line,3);
    376. 

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

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

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

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

  380.   177    CardinalToStr(NbrC,3,Str);
    381. 

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

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

  383.   178    OverWrite(Str,Line,13);
    384. 

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

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

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

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

  388.   179  
    389. 

  389.   180    RealToStr(InvNetC,2,8,Str);
    390. 

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

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

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

  393.   181    OverWrite(Str,Line,22);
    394. 

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

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

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

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

  398.   182    RealToStr(InvTotC,2,8,Str);
    399. 

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

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

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

  402.   183    OverWrite(Str,Line,32);
    403. 

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

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

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

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

  407.   184    AddStrField(DF2,2,6,Line,50);
    408. 

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

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

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

  411. *****                               ^ not supported yet
    412. 

  412.   185  
    413. 

  413.   186    ShowDisplayFrame(DF2,0,0,0,0);
    414. 

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

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

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

  417.   187    Control(DF2);
    418. 

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

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

  420.   188  
    421. 

  421.   189  
    422. 

  422.   190  END DisplayTotals;
    423. 

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

  424.   191  
    425. 

  425.   192  BEGIN
    426. 

  426.   193    GetDateRange(StartDate,EndDate,PMIScreens);
    427. 

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

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

  429. *****                           ^ not supported yet
    430. 

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

  431.   194    IncludeSet := IncludeSet / IncludeSet;  (* clear the set *)
    432. 

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

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

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

  435.   195    INCL(IncludeSet,'P');
    436. 

  436. *****    ^ undeclared identifier
    437. 

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

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

  439.   196    INCL(IncludeSet,'O');
    440. 

  440. *****    ^ undeclared identifier
    441. 

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

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

  443.   197    INCL(IncludeSet,'C');
    444. 

  444. *****    ^ undeclared identifier
    445. 

  445. *****         ^ not supported yet
    446. 

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

  447.   198    MakeInvoiceList(InvList);
    448. 

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

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

  450.   199    NbrO := 0;
    451. 

  451.   200    NbrP := 0;
    452. 

  452.   201    NbrC := 0;
    453. 

  453.   202    InvTotP := 0.0;
    454. 

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

  455.   203    InvTotO := 0.0;
    456. 

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

  457.   204    InvTotC := 0.0;
    458. 

  458. *****    ^ not supported yet
    459. 

  459.   205    InvNetO := 0.0;
    460. 

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

  461.   206    InvNetP := 0.0;
    462. 

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

  463.   207    InvNetC := 0.0;
    464. 

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

  465.   208  
    466. 

  466.   209    InitDisplayFrame(DF,VWindows.CurrentWindow);
    467. 

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

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

  469. *****                        ^ not supported yet
    470. 

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

  471.   210    InitDisplayFrame(DF2,VWindows.CurrentWindow);
    472. 

  472. *****    ^ not supported yet
    473. 

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

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

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

  476.   211    AddStrField(DF,2,2,
    477. 

  477. *****    ^ not supported yet
    478. 

  478. *****                ^ not supported yet
    479. 

  479.   212  'Inv Nbr   Customer Name                    Date   Inv Total  OutStd   Stat',79);
    480. 

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

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

  482.   213    GetFieldRec(DF,1,FieldRec);
    483. 

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

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

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

  486.   214    FieldRec.typ := DispCode;   (* headline = display code *)
    487. 

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

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

  489. *****                    ^ not supported yet
    490. 

  490.   215    PutFieldRec(FieldRec,DF,1);
    491. 

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

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

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

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

  495.   216    DF^.headline := 2;
    496. 

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

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

  498.   217  
    499. 

  499.   218  
    500. 

  500.   219    FOR J := 1 TO ListLength(InvList) DO
    501. 

  501. *****                  ^ not supported yet
    502. 

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

  503.   220      GetElmt(InvList,J,InvRec,Code);
    504. 

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

  505. *****              ^ not supported yet
    506. 

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

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

  508.   221      Fill(ADR(Line),80,' ');
    509. 

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

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

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

  512. *****                           ^ not supported yet
    513. 

  513.   222      Line[77] := 0C;
    514. 

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

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

  516.   223  
    517. 

  517.   224      CASE InvRec.Invoice.INVPRNT OF
    518. 

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

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

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

  521.   225         'O' :INC(NbrO);
    522. 

  522. *****              ^ undeclared identifier
    523. 

  523. *****                      ^ not supported yet
    524. 

  524.   226              InvTotO := InvTotO + InvRec.Invoice.TOTALAMT;
    525. 

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

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

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

  528. *****                                          ^ not supported yet
    529. 

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

  530.   227  	    InvNetO := InvNetO + InvRec.Invoice.INVNET;
    531. 

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

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

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

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

  535. *****  	                                        ^ not supported yet
    536. 

  536.   228        |'P' :INC(NbrP);
    537. 

  537. *****              ^ undeclared identifier
    538. 

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

  539.   229              InvTotP := InvTotP + InvRec.Invoice.TOTALAMT;
    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.   230  	    InvNetP := InvNetP + InvRec.Invoice.INVNET;
    546. 

  546. *****  	    ^ not supported yet
    547. 

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

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

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

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

  551.   231        |'C' :INC(NbrC);
    552. 

  552. *****              ^ undeclared identifier
    553. 

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

  554.   232              InvTotC := InvTotC + InvRec.Invoice.TOTALAMT;
    555. 

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

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

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

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

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

  560.   233  	    InvNetC := InvNetC + InvRec.Invoice.INVNET;
    561. 

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

  562. *****  	               ^ not supported yet
    563. 

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

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

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

  566.   234      END;
    567. 

  567.   235  
    568. 

  568.   236      OverWrite(InvRec.Invoice.INVOICE,Line,1);
    569. 

  569. *****      ^ not supported yet
    570. 

  570. *****                ^ not supported yet
    571. 

  571. *****                       ^ not supported yet
    572. 

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

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

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

  575.   237      SetLength(InvRec.CustName,25);
    576. 

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

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

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

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

  580.   238      OverWrite(InvRec.CustName,Line,11);
    581. 

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

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

  583. *****                       ^ not supported yet
    584. 

  584. *****                                ^ not supported yet
    585. 

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

  586.   239  
    587. 

  587.   240      DateToStr(InvRec.Invoice.INVDATE,Str,B);
    588. 

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

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

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

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

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

  593. *****                                            ^ not supported yet
    594. 

  594.   241      OverWrite(Str,Line,40);
    595. 

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

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

  597. *****                    ^ not supported yet
    598. 

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

  599.   242      RealToStr(InvRec.Invoice.TOTALAMT,2,9,Str);
    600. 

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

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

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

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

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

  605.   243      OverWrite(Str,Line,49);
    606. 

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

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

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

  609. *****                           ^ not supported yet
    610. 

  610.   244  
    611. 

  611.   245      RealToStr(InvRec.Invoice.AMTOUT,2,9,Str);
    612. 

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

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

  614. *****                       ^ not supported yet
    615. 

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

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

  617.   246      OverWrite(Str,Line,58);
    618. 

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

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

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

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

  622.   247      OverWrite(InvRec.Invoice.INVPRNT,Line,75);
    623. 

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

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

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

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

  627. *****                                       ^ not supported yet
    628. 

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

  629.   248      AddMenuItem(DF,2,J+2,Line,78,0,' ');
    630. 

  630. *****      ^ not supported yet
    631. 

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

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

  633. *****                                        ^ not supported yet
    634. 

  634.   249     END;
    635. 

  635.   250    DisposeList(InvList);
    636. 

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

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

  638.   251  (*  DisplayTotals(); *)
    639. 

  639.   252  
    640. 

  640.   253    Control(DF);
    641. 

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

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

  643.   254    DisplayTotals();
    644. 

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

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

  646.   255    IF PromptYN(' Print Report ',DF)
    647. 

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

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

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

  650.   256       THEN
    651. 

  651.   257         Line := 'INVOICE HISTORY';
    652. 

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

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

  654.   258         NormalTitle(Line);
    655. 

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

  656. *****                     ^ not supported yet
    657. 

  657.   259         Handle := OpenReportDevice ();
    658. 

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

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

  660.   260         PrintFrame(DF,Handle);
    661. 

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

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

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

  664.   261         Line := 'Invoice Totals ';
    665. 

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

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

  667.   262         NormalTitle(Line);
    668. 

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

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

  670.   263         PrintFrame(DF2,Handle);
    671. 

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

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

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

  674.   264         CloseReportDevice(Handle);
    675. 

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

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

  677.   265       END;
    678. 

  678.   266    CloseDisplayFrame(DF);
    679. 

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

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

  681.   267    CloseDisplayFrame(DF2);
    682. 

  682. *****    ^ not supported yet
    683. 

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

  684.   268  
    685. 

  685.   269  
    686. 

  686.   270  END InvHistory;
    687. 

  687. *****      ^ not supported yet
    688. 

  688.   271  
    689. 

  689.   272  
    690. 

  690.   273  
    691. 

  691.   274  
    692. 

  692.   275  PROCEDURE InvOutstanding();
    693. 

  693.   276  VAR
    694. 

  694.   277    J : CARDINAL;
    695. 

  695.   278    InvTotal : Real8;
    696. 

  696.   279    InvRec : InvCust;
    697. 

  697. *****             ^ not supported yet
    698. 

  698.   280    InvList : GenList;
    699. 

  699.   281    Code : CARDINAL;
    700. 

  700.   282    FieldRec : InputFieldRecord;
    701. 

  701.   283    DF : DisplayFrame;
    702. 

  702.   284    B : BOOLEAN;
    703. 

  703.   285    Str : ARRAY[0..12] OF CHAR;
    704. 

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

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

  706.   286    Line : ARRAY[0..80] OF CHAR;
    707. 

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

  708. *****                           ^ not supported yet
    709. 

  709.   287    LastCust : ARRAY[0..40] OF CHAR;
    710. 

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

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

  712.   288    CustTotal: Real8;
    713. 

  713.   289    TotalOut : Real8;
    714. 

  714.   290    LineCnt : CARDINAL;
    715. 

  715.   291    Handle : CARDINAL;
    716. 

  716.   292  
    717. 

  717.   293  PROCEDURE MakeLine();
    718. 

  718.   294  BEGIN
    719. 

  719.   295      OverWrite(InvRec.Invoice.INVOICE,Line,30);
    720. 

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

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

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

  723. *****                               ^ not supported yet
    724. 

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

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

  726.   296      DateToStr(InvRec.Invoice.INVDATE,Str,B);
    727. 

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

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

  729. *****                       ^ not supported yet
    730. 

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

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

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

  733.   297      OverWrite(Str,Line,40);
    734. 

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

  735. *****                ^ not supported yet
    736. 

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

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

  738.   298      RealToStr(InvRec.Invoice.TOTALAMT,2,9,Str);
    739. 

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

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

  741. *****                       ^ not supported yet
    742. 

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

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

  744.   299      OverWrite(Str,Line,49);
    745. 

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

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

  747. *****                    ^ not supported yet
    748. 

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

  749.   300      RealToStr(InvRec.Invoice.AMTOUT,2,9,Str);
    750. 

  750. *****      ^ not supported yet
    751. 

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

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

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

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

  755.   301      OverWrite(Str,Line,58);
    756. 

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

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

  758. *****                    ^ not supported yet
    759. 

  759. *****                           ^ not supported yet
    760. 

  760.   302      OverWrite(InvRec.Invoice.INVPRNT,Line,75);
    761. 

  761. *****      ^ not supported yet
    762. 

  762. *****                ^ not supported yet
    763. 

  763. *****                       ^ not supported yet
    764. 

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

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

  766. *****                                              ^ not supported yet
    767. 

  767.   303  END MakeLine;
    768. 

  768. *****      ^ not supported yet
    769. 

  769.   304  
    770. 

  770.   305  BEGIN
    771. 

  771.   306    GetDateRange(StartDate,EndDate,PMIScreens);
    772. 

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

  773. *****                 ^ not supported yet
    774. 

  774. *****                           ^ not supported yet
    775. 

  775. *****                                   ^ not supported yet
    776. 

  776.   307    IncludeSet := IncludeSet / IncludeSet;  (* clear the set *)
    777. 

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

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

  779. *****                               ^ not supported yet
    780. 

  780.   308    INCL(IncludeSet,'P');
    781. 

  781. *****    ^ undeclared identifier
    782. 

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

  783. *****                       ^ not supported yet
    784. 

  784.   309    MakeInvoiceList(InvList);
    785. 

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

  786. *****                    ^ not supported yet
    787. 

  787.   310    SortList(InvList,SortByCustName);
    788. 

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

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

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

  791.   311    InitDisplayFrame(DF,VWindows.CurrentWindow);
    792. 

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

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

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

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

  796.   312    AddStrField(DF,2,2,
    797. 

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

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

  799.   313  '    Customer Name               Invoice    Date   Inv Total  OutStd   Stat',79);
    800. 

  800. *****  ^ not supported yet
    801. 

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

  802.   314    GetFieldRec(DF,1,FieldRec);
    803. 

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

  804. *****                ^ not supported yet
    805. 

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

  806.   315    FieldRec.typ := DispCode;   (* headline = display code *)
    807. 

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

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

  809. *****                    ^ not supported yet
    810. 

  810.   316    PutFieldRec(FieldRec,DF,1);
    811. 

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

  812. *****                ^ not supported yet
    813. 

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

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

  815.   317    DF^.headline := 2;
    816. 

  816. *****    ^ not supported yet
    817. 

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

  818.   318  
    819. 

  819.   319    LastCust := '';
    820. 

  820. *****    ^ not supported yet
    821. 

  821. *****                ^ incompatible assignment
    822. 

  822.   320    CustTotal := 0.0;
    823. 

  823. *****    ^ not supported yet
    824. 

  824.   321    TotalOut := 0.0;
    825. 

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

  826.   322    LineCnt := 2;
    827. 

  827.   323    FOR J := 1 TO ListLength(InvList) DO
    828. 

  828. *****                  ^ not supported yet
    829. 

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

  830.   324      INC(LineCnt);
    831. 

  831. *****      ^ undeclared identifier
    832. 

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

  833.   325      GetElmt(InvList,J,InvRec,Code);
    834. 

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

  835. *****              ^ not supported yet
    836. 

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

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

  838.   326      SetLength(InvRec.CustName,25);
    839. 

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

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

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

  842. *****                                  ^ not supported yet
    843. 

  843.   327      Fill(ADR(Line),80,' ');
    844. 

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

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

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

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

  848.   328      Line[78] := 0C;
    849. 

  849. *****      ^ not supported yet
    850. 

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

  851.   329      IF LastCust[0] = 0C    (* first time *)
    852. 

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

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

  854.   330        THEN
    855. 

  855.   331          Assign( InvRec.CustName,LastCust );
    856. 

  856. *****          ^ not supported yet
    857. 

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

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

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

  860.   332          OverWrite(InvRec.CustName,Line,1);	
    861. 

  861. *****          ^ not supported yet
    862. 

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

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

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

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

  866.   333        END;
    867. 

  867.   334      TotalOut := TotalOut + InvRec.Invoice.AMTOUT;
    868. 

  868. *****      ^ not supported yet
    869. 

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

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

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

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

  873.   335      IF Equal(LastCust,InvRec.CustName)
    874. 

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

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

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

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

  878.   336        THEN
    879. 

  879.   337          CustTotal := CustTotal + InvRec.Invoice.AMTOUT;
    880. 

  880. *****          ^ not supported yet
    881. 

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

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

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

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

  885.   338    	MakeLine();
    886. 

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

  887. *****    	         ^ not supported yet
    888. 

  888.   339  	AddMenuItem(DF,2,LineCnt,Line,78,0,' ');
    889. 

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

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

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

  892. *****  	                                      ^ not supported yet
    893. 

  893.   340       ELSE
    894. 

  894.   341          OverWrite('===========',Line,58);
    895. 

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

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

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

  898. *****                                         ^ not supported yet
    899. 

  899.   342  	AddMenuItem(DF,2,LineCnt,Line,78,0,' ');
    900. 

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

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

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

  903. *****  	                                      ^ not supported yet
    904. 

  904.   343  	Fill(ADR(Line),80,' ');
    905. 

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

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

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

  908. *****  	                     ^ not supported yet
    909. 

  909.   344      	Line[78] := 0C;    	
    910. 

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

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

  912.   345  	RealToStr(CustTotal,2,9,Str);
    913. 

  913. *****  	^ not supported yet
    914. 

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

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

  916.   346  	OverWrite(Str,Line,58);
    917. 

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

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

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

  920. *****  	                     ^ not supported yet
    921. 

  921.   347  	AddMenuItem(DF,2,LineCnt+1,Line,78,0,' ');
    922. 

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

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

  924. *****  	                           ^ not supported yet
    925. 

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

  926.   348  	Fill(ADR(Line),80,' ');
    927. 

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

  928. *****  	     ^ not supported yet
    929. 

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

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

  931.   349      	Line[78] := 0C;
    932. 

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

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

  934.   350  	AddMenuItem(DF,2,LineCnt+2,Line,78,0,' '); (* add blank line *)
    935. 

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

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

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

  938. *****  	                                        ^ not supported yet
    939. 

  939.   351  	Assign(  InvRec.CustName,LastCust);
    940. 

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

  941. *****  	         ^ not supported yet
    942. 

  942. *****  	                ^ not supported yet
    943. 

  943. *****  	                         ^ not supported yet
    944. 

  944.   352          SetLength(InvRec.CustName,25);
    945. 

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

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

  947. *****                           ^ not supported yet
    948. 

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

  949.   353          OverWrite(InvRec.CustName,Line,1);	
    950. 

  950. *****          ^ not supported yet
    951. 

  951. *****                    ^ not supported yet
    952. 

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

  953. *****                                    ^ not supported yet
    954. 

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

  955.   354  	CustTotal := InvRec.Invoice.AMTOUT;
    956. 

  956. *****  	^ not supported yet
    957. 

  957. *****  	             ^ not supported yet
    958. 

  958. *****  	                    ^ not supported yet
    959. 

  959. *****  	                            ^ not supported yet
    960. 

  960.   355  	MakeLine();
    961. 

  961. *****  	^ not supported yet
    962. 

  962. *****  	         ^ not supported yet
    963. 

  963.   356  	AddMenuItem(DF,2,LineCnt+3,Line,78,0,' ');
    964. 

  964. *****  	^ not supported yet
    965. 

  965. *****  	            ^ not supported yet
    966. 

  966. *****  	                           ^ not supported yet
    967. 

  967. *****  	                                        ^ not supported yet
    968. 

  968.   357  	INC(LineCnt,3);
    969. 

  969. *****  	^ undeclared identifier
    970. 

  970. *****  	             ^ not supported yet
    971. 

  971.   358        END;	
    972. 

  972.   359  		
    973. 

  973.   360     END;
    974. 

  974.   361     Fill(ADR(Line),80,' ');
    975. 

  975. *****     ^ not supported yet
    976. 

  976. *****          ^ not supported yet
    977. 

  977. *****              ^ not supported yet
    978. 

  978. *****                          ^ not supported yet
    979. 

  979.   362     Line[78] := 0C;    	
    980. 

  980. *****     ^ not supported yet
    981. 

  981. *****            ^ not supported yet
    982. 

  982.   363     OverWrite('===========',Line,58);
    983. 

  983. *****     ^ not supported yet
    984. 

  984. *****               ^ not supported yet
    985. 

  985. *****                             ^ not supported yet
    986. 

  986. *****                                    ^ not supported yet
    987. 

  987.   364     AddMenuItem(DF,2,LineCnt+1,Line,78,0,' ');
    988. 

  988. *****     ^ not supported yet
    989. 

  989. *****                 ^ not supported yet
    990. 

  990. *****                                ^ not supported yet
    991. 

  991. *****                                             ^ not supported yet
    992. 

  992.   365     Fill(ADR(Line),80,' ');
    993. 

  993. *****     ^ not supported yet
    994. 

  994. *****          ^ not supported yet
    995. 

  995. *****              ^ not supported yet
    996. 

  996. *****                          ^ not supported yet
    997. 

  997.   366     Line[78] := 0C;    	
    998. 

  998. *****     ^ not supported yet
    999. 

  999. *****            ^ not supported yet
    1000. 

  1000.   367     RealToStr(CustTotal,2,9,Str);
    1001. 

  1001. *****     ^ not supported yet
    1002. 

  1002. *****               ^ not supported yet
    1003. 

  1003. *****                             ^ not supported yet
    1004. 

  1004.   368     OverWrite(Str,Line,58);
    1005. 

  1005. *****     ^ not supported yet
    1006. 

  1006. *****               ^ not supported yet
    1007. 

  1007. *****                   ^ not supported yet
    1008. 

  1008. *****                          ^ not supported yet
    1009. 

  1009.   369     AddMenuItem(DF,2,LineCnt+2,Line,78,0,' ');
    1010. 

  1010. *****     ^ not supported yet
    1011. 

  1011. *****                 ^ not supported yet
    1012. 

  1012. *****                                ^ not supported yet
    1013. 

  1013. *****                                             ^ not supported yet
    1014. 

  1014.   370  
    1015. 

  1015.   371  
    1016. 

  1016.   372     OverWrite('===========',Line,58);
    1017. 

  1017. *****     ^ not supported yet
    1018. 

  1018. *****               ^ not supported yet
    1019. 

  1019. *****                             ^ not supported yet
    1020. 

  1020. *****                                    ^ not supported yet
    1021. 

  1021.   373     AddMenuItem(DF,2,LineCnt+3,Line,78,0,' ');
    1022. 

  1022. *****     ^ not supported yet
    1023. 

  1023. *****                 ^ not supported yet
    1024. 

  1024. *****                                ^ not supported yet
    1025. 

  1025. *****                                             ^ not supported yet
    1026. 

  1026.   374     Fill(ADR(Line),80,' ');
    1027. 

  1027. *****     ^ not supported yet
    1028. 

  1028. *****          ^ not supported yet
    1029. 

  1029. *****              ^ not supported yet
    1030. 

  1030. *****                          ^ not supported yet
    1031. 

  1031.   375     Line[78] := 0C;    	
    1032. 

  1032. *****     ^ not supported yet
    1033. 

  1033. *****            ^ not supported yet
    1034. 

  1034.   376     OverWrite('  Total outstanding ',Line,2);
    1035. 

  1035. *****     ^ not supported yet
    1036. 

  1036. *****               ^ not supported yet
    1037. 

  1037. *****                                      ^ not supported yet
    1038. 

  1038. *****                                            ^ not supported yet
    1039. 

  1039.   377     RealToStr(TotalOut,2,9,Str);
    1040. 

  1040. *****     ^ not supported yet
    1041. 

  1041. *****               ^ not supported yet
    1042. 

  1042. *****                            ^ not supported yet
    1043. 

  1043.   378     OverWrite(Str,Line,58);
    1044. 

  1044. *****     ^ not supported yet
    1045. 

  1045. *****               ^ not supported yet
    1046. 

  1046. *****                   ^ not supported yet
    1047. 

  1047. *****                          ^ not supported yet
    1048. 

  1048.   379     AddMenuItem(DF,2,LineCnt+4,Line,78,0,' ');
    1049. 

  1049. *****     ^ not supported yet
    1050. 

  1050. *****                 ^ not supported yet
    1051. 

  1051. *****                                ^ not supported yet
    1052. 

  1052. *****                                             ^ not supported yet
    1053. 

  1053.   380  
    1054. 

  1054.   381  
    1055. 

  1055.   382  
    1056. 

  1056.   383     DisposeList(InvList);
    1057. 

  1057. *****     ^ not supported yet
    1058. 

  1058. *****                 ^ not supported yet
    1059. 

  1059.   384     ShowDisplayFrame(DF,1,1,80,24);
    1060. 

  1060. *****     ^ not supported yet
    1061. 

  1061. *****                      ^ not supported yet
    1062. 

  1062. *****                                  ^ not supported yet
    1063. 

  1063.   385     Control(DF);
    1064. 

  1064. *****     ^ not supported yet
    1065. 

  1065. *****             ^ not supported yet
    1066. 

  1066.   386     IF PromptYN(' Print Report ',DF)
    1067. 

  1067. *****        ^ not supported yet
    1068. 

  1068. *****                 ^ not supported yet
    1069. 

  1069. *****                                  ^ not supported yet
    1070. 

  1070.   387       THEN
    1071. 

  1071.   388         Line := 'INVOICE HISTORY';
    1072. 

  1072. *****         ^ not supported yet
    1073. 

  1073. *****                 ^ not supported yet
    1074. 

  1074.   389         NormalTitle(Line);
    1075. 

  1075. *****         ^ not supported yet
    1076. 

  1076. *****                     ^ not supported yet
    1077. 

  1077.   390         Handle := OpenReportDevice();
    1078. 

  1078. *****                   ^ not supported yet
    1079. 

  1079. *****                                    ^ not supported yet
    1080. 

  1080.   391         PrintFrame(DF,Handle);
    1081. 

  1081. *****         ^ not supported yet
    1082. 

  1082. *****                    ^ not supported yet
    1083. 

  1083. *****                             ^ not supported yet
    1084. 

  1084.   392         CloseReportDevice(Handle);
    1085. 

  1085. *****         ^ not supported yet
    1086. 

  1086. *****                                 ^ not supported yet
    1087. 

  1087.   393       END;
    1088. 

  1088.   394     CloseDisplayFrame(DF);
    1089. 

  1089. *****     ^ not supported yet
    1090. 

  1090. *****                       ^ not supported yet
    1091. 

  1091.   395  
    1092. 

  1092.   396  
    1093. 

  1093.   397  END InvOutstanding;
    1094. 

  1094. *****      ^ not supported yet
    1095. 

  1095.   398  
    1096. 

  1096.   399  
    1097. 

  1097.   400  
    1098. 

  1098.   401  
    1099. 

  1099.   402  PROCEDURE InvOutByDate();
    1100. 

  1100.   403  
    1101. 

  1101.   404  VAR
    1102. 

  1102.   405    J : CARDINAL;
    1103. 

  1103.   406    InvTotal : Real8;
    1104. 

  1104.   407    InvRec : InvCust;
    1105. 

  1105. *****             ^ not supported yet
    1106. 

  1106.   408    InvList : GenList;
    1107. 

  1107.   409    Code : CARDINAL;
    1108. 

  1108.   410    FieldRec : InputFieldRecord;
    1109. 

  1109.   411    DF : DisplayFrame;
    1110. 

  1110.   412    B : BOOLEAN;
    1111. 

  1111.   413    Str : ARRAY[0..12] OF CHAR;
    1112. 

  1112. *****                   ^ not supported yet
    1113. 

  1113. *****                          ^ not supported yet
    1114. 

  1114.   414    Line : ARRAY[0..80] OF CHAR;
    1115. 

  1115. *****                    ^ not supported yet
    1116. 

  1116. *****                           ^ not supported yet
    1117. 

  1117.   415    Days : CARDINAL;
    1118. 

  1118.   416    Handle : CARDINAL;
    1119. 

  1119.   417  BEGIN
    1120. 

  1120.   418    GetDateRange(StartDate,EndDate,PMIScreens);
    1121. 

  1121. *****    ^ not supported yet
    1122. 

  1122. *****                 ^ not supported yet
    1123. 

  1123. *****                           ^ not supported yet
    1124. 

  1124. *****                                   ^ not supported yet
    1125. 

  1125.   419    IncludeSet := IncludeSet / IncludeSet;  (* clear the set *)
    1126. 

  1126. *****    ^ not supported yet
    1127. 

  1127. *****                  ^ not supported yet
    1128. 

  1128. *****                               ^ not supported yet
    1129. 

  1129.   420    INCL(IncludeSet,'P');
    1130. 

  1130. *****    ^ undeclared identifier
    1131. 

  1131. *****         ^ not supported yet
    1132. 

  1132. *****                       ^ not supported yet
    1133. 

  1133.   421    MakeInvoiceList(InvList);
    1134. 

  1134. *****    ^ not supported yet
    1135. 

  1135. *****                    ^ not supported yet
    1136. 

  1136.   422    SortList(InvList,SortByInvoiceNbr);
    1137. 

  1137. *****    ^ not supported yet
    1138. 

  1138. *****             ^ not supported yet
    1139. 

  1139. *****                     ^ not supported yet
    1140. 

  1140.   423    InitDisplayFrame(DF,VWindows.CurrentWindow);
    1141. 

  1141. *****    ^ not supported yet
    1142. 

  1142. *****                     ^ not supported yet
    1143. 

  1143. *****                        ^ not supported yet
    1144. 

  1144. *****                                 ^ not supported yet
    1145. 

  1145.   424    AddStrField(DF,2,2,
    1146. 

  1146. *****    ^ not supported yet
    1147. 

  1147. *****                ^ not supported yet
    1148. 

  1148.   425  'Inv Nbr   Customer Name                    Date   Inv Total  OutStd   Late',79);
    1149. 

  1149. *****  ^ not supported yet
    1150. 

  1150. *****                                                                                 ^ not supported yet
    1151. 

  1151.   426    GetFieldRec(DF,1,FieldRec);
    1152. 

  1152. *****    ^ not supported yet
    1153. 

  1153. *****                ^ not supported yet
    1154. 

  1154. *****                     ^ not supported yet
    1155. 

  1155.   427    FieldRec.typ := DispCode;   (* headline = display code *)
    1156. 

  1156. *****    ^ not supported yet
    1157. 

  1157. *****             ^ not supported yet
    1158. 

  1158. *****                    ^ not supported yet
    1159. 

  1159.   428    PutFieldRec(FieldRec,DF,1);
    1160. 

  1160. *****    ^ not supported yet
    1161. 

  1161. *****                ^ not supported yet
    1162. 

  1162. *****                         ^ not supported yet
    1163. 

  1163. *****                             ^ not supported yet
    1164. 

  1164.   429    DF^.headline := 2;
    1165. 

  1165. *****    ^ not supported yet
    1166. 

  1166. *****        ^ not supported yet
    1167. 

  1167.   430  
    1168. 

  1168.   431  
    1169. 

  1169.   432    FOR J := 1 TO ListLength(InvList) DO
    1170. 

  1170. *****                  ^ not supported yet
    1171. 

  1171. *****                             ^ not supported yet
    1172. 

  1172.   433      GetElmt(InvList,J,InvRec,Code);
    1173. 

  1173. *****      ^ not supported yet
    1174. 

  1174. *****              ^ not supported yet
    1175. 

  1175. *****                        ^ not supported yet
    1176. 

  1176. *****                                   ^ not supported yet
    1177. 

  1177.   434      Fill(ADR(Line),80,' ');
    1178. 

  1178. *****      ^ not supported yet
    1179. 

  1179. *****           ^ not supported yet
    1180. 

  1180. *****               ^ not supported yet
    1181. 

  1181. *****                           ^ not supported yet
    1182. 

  1182.   435      Line[77] := 0C;
    1183. 

  1183. *****      ^ not supported yet
    1184. 

  1184. *****             ^ not supported yet
    1185. 

  1185.   436      OverWrite(InvRec.Invoice.INVOICE,Line,1);
    1186. 

  1186. *****      ^ not supported yet
    1187. 

  1187. *****                ^ not supported yet
    1188. 

  1188. *****                       ^ not supported yet
    1189. 

  1189. *****                               ^ not supported yet
    1190. 

  1190. *****                                       ^ not supported yet
    1191. 

  1191. *****                                             ^ not supported yet
    1192. 

  1192.   437      SetLength(InvRec.CustName,25);
    1193. 

  1193. *****      ^ not supported yet
    1194. 

  1194. *****                ^ not supported yet
    1195. 

  1195. *****                       ^ not supported yet
    1196. 

  1196. *****                                  ^ not supported yet
    1197. 

  1197.   438      OverWrite(InvRec.CustName,Line,11);
    1198. 

  1198. *****      ^ not supported yet
    1199. 

  1199. *****                ^ not supported yet
    1200. 

  1200. *****                       ^ not supported yet
    1201. 

  1201. *****                                ^ not supported yet
    1202. 

  1202. *****                                       ^ not supported yet
    1203. 

  1203.   439      DateToStr(InvRec.Invoice.INVDATE,Str,B);
    1204. 

  1204. *****      ^ not supported yet
    1205. 

  1205. *****                ^ not supported yet
    1206. 

  1206. *****                       ^ not supported yet
    1207. 

  1207. *****                               ^ not supported yet
    1208. 

  1208. *****                                       ^ not supported yet
    1209. 

  1209. *****                                            ^ not supported yet
    1210. 

  1210.   440      OverWrite(Str,Line,40);
    1211. 

  1211. *****      ^ not supported yet
    1212. 

  1212. *****                ^ not supported yet
    1213. 

  1213. *****                    ^ not supported yet
    1214. 

  1214. *****                           ^ not supported yet
    1215. 

  1215.   441      RealToStr(InvRec.Invoice.TOTALAMT,2,9,Str);
    1216. 

  1216. *****      ^ not supported yet
    1217. 

  1217. *****                ^ not supported yet
    1218. 

  1218. *****                       ^ not supported yet
    1219. 

  1219. *****                               ^ not supported yet
    1220. 

  1220. *****                                            ^ not supported yet
    1221. 

  1221.   442      OverWrite(Str,Line,49);
    1222. 

  1222. *****      ^ not supported yet
    1223. 

  1223. *****                ^ not supported yet
    1224. 

  1224. *****                    ^ not supported yet
    1225. 

  1225. *****                           ^ not supported yet
    1226. 

  1226.   443  
    1227. 

  1227.   444      RealToStr(InvRec.Invoice.AMTOUT,2,9,Str);
    1228. 

  1228. *****      ^ not supported yet
    1229. 

  1229. *****                ^ not supported yet
    1230. 

  1230. *****                       ^ not supported yet
    1231. 

  1231. *****                               ^ not supported yet
    1232. 

  1232. *****                                          ^ not supported yet
    1233. 

  1233.   445      OverWrite(Str,Line,58);
    1234. 

  1234. *****      ^ not supported yet
    1235. 

  1235. *****                ^ not supported yet
    1236. 

  1236. *****                    ^ not supported yet
    1237. 

  1237. *****                           ^ not supported yet
    1238. 

  1238.   446  
    1239. 

  1239.   447  
    1240. 

  1240.   448      CardinalToStr(TodayDays -DaysSince1900(InvRec.Invoice.INVDATE),3,Str);
    1241. 

  1241. *****      ^ not supported yet
    1242. 

  1242. *****                    ^ not supported yet
    1243. 

  1243. *****                               ^ not supported yet
    1244. 

  1244. *****                                             ^ not supported yet
    1245. 

  1245. *****                                                    ^ not supported yet
    1246. 

  1246. *****                                                            ^ not supported yet
    1247. 

  1247. *****                                                                       ^ not supported yet
    1248. 

  1248.   449      OverWrite(Str,Line,72);
    1249. 

  1249. *****      ^ not supported yet
    1250. 

  1250. *****                ^ not supported yet
    1251. 

  1251. *****                    ^ not supported yet
    1252. 

  1252. *****                           ^ not supported yet
    1253. 

  1253.   450      AddMenuItem(DF,2,J+2,Line,78,0,' ');
    1254. 

  1254. *****      ^ not supported yet
    1255. 

  1255. *****                  ^ not supported yet
    1256. 

  1256. *****                           ^ not supported yet
    1257. 

  1257. *****                                        ^ not supported yet
    1258. 

  1258.   451     END;
    1259. 

  1259.   452    DisposeList(InvList);
    1260. 

  1260. *****    ^ not supported yet
    1261. 

  1261. *****                ^ not supported yet
    1262. 

  1262.   453    ShowDisplayFrame(DF,1,1,80,24);
    1263. 

  1263. *****    ^ not supported yet
    1264. 

  1264. *****                     ^ not supported yet
    1265. 

  1265. *****                                 ^ not supported yet
    1266. 

  1266.   454    Control(DF);
    1267. 

  1267. *****    ^ not supported yet
    1268. 

  1268. *****            ^ not supported yet
    1269. 

  1269.   455    IF PromptYN(' Print Report ',DF)
    1270. 

  1270. *****       ^ not supported yet
    1271. 

  1271. *****                ^ not supported yet
    1272. 

  1272. *****                                 ^ not supported yet
    1273. 

  1273.   456       THEN
    1274. 

  1274.   457         Line := 'INVOICE HISTORY';
    1275. 

  1275. *****         ^ not supported yet
    1276. 

  1276. *****                 ^ not supported yet
    1277. 

  1277.   458         NormalTitle(Line);
    1278. 

  1278. *****         ^ not supported yet
    1279. 

  1279. *****                     ^ not supported yet
    1280. 

  1280.   459         Handle := OpenReportDevice();
    1281. 

  1281. *****                   ^ not supported yet
    1282. 

  1282. *****                                    ^ not supported yet
    1283. 

  1283.   460         PrintFrame(DF,Handle);
    1284. 

  1284. *****         ^ not supported yet
    1285. 

  1285. *****                    ^ not supported yet
    1286. 

  1286. *****                             ^ not supported yet
    1287. 

  1287.   461         CloseReportDevice(Handle);
    1288. 

  1288. *****         ^ not supported yet
    1289. 

  1289. *****                                 ^ not supported yet
    1290. 

  1290.   462       END;
    1291. 

  1291.   463    CloseDisplayFrame(DF);
    1292. 

  1292. *****    ^ not supported yet
    1293. 

  1293. *****                      ^ not supported yet
    1294. 

  1294.   464  END InvOutByDate;
    1295. 

  1295. *****      ^ not supported yet
    1296. 

  1296.   465  
    1297. 

  1297.   466  
    1298. 

  1298.   467  
    1299. 

  1299.   468  END InvReports.
    1300. 

  1300. *****      ^ not supported yet
    1301. 

  1301. 

  1302.   830 errors
    1303. 

  1303. 

  1304.