Etusivu Tutki Apua
Kirjaudu sisään
eric
/
Topspeed_JPI
1
0
Fork 0
Tiedostot Ongelmat 0 Pull-pyynnöt 0 Wiki
Branch: master
Branchit Tagit
Topspeed_JPI
/
TS-V3
/
MODBASE
/
INVOICEP.LST

INVOICEP.LST 61 KB
Pysyvä linkki Historia Raaka

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE InvoicePrint;
    4. 

  4.     2  (*
    5. 

  5.     3   *  ModBase
    6. 

  6.     4   *  Release 3.0
    7. 

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

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

  9.     7   *  Green Bay Wi 53308
    10. 

  10.     8   *  All Rights Reserved
    11. 

  11.     9   *  by Ed Ross  
    12. 

  12.    10   *)
    13. 

  13.    11  
    14. 

  14.    12  FROM PMIGlobals IMPORT PMIScreens,Today,TodayStr,
    15. 

  15.    13       TodayDays,Config,NormalTitle;
    16. 

  16.    14  FROM PriceTable IMPORT ClearGrpCnt,AddGrp,GrpTotal,GetPrice,
    17. 

  17.    15       GetPriceTable;
    18. 

  18.    16  FROM DBFSalesrec IMPORT SalesRec,SalesrecDBF,SalesRecIdx,MoveSalesrecToDBF,
    19. 

  19.    17       MoveSalesrecFromDBF,OpenSalesrecDBF,CloseSalesrecDBF;
    20. 

  20.    18  FROM DBIndxes IMPORT FindPositionCh,CurrentRec;
    21. 

  21.    19  FROM ModBase3 IMPORT AppendBlank,ReadDBRec,WriteDBRec;
    22. 

  22.    20  FROM ScrnUtl1 IMPORT FieldNum;
    23. 

  23.    21  FROM DBStuff IMPORT MakeKey;
    24. 

  24.    22  FROM InputManager IMPORT ControlFrame;
    25. 

  25.    23  FROM Customer IMPORT AddressRec,AddCustYTD,GetCustAddr,AddressTypes,
    26. 

  26.    24       AddCustOutStd,SetCustLastInvDate;
    27. 

  27.    25  FROM DateFunctions IMPORT DateToStr;
    28. 

  28.    26  FROM DBFOrder IMPORT OrderRec,InvnbrIdx,OrderDBF,MoveOrderFromDBF;
    29. 

  29.    27  FROM PosUtils IMPORT Equal,Pos;
    30. 

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

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

  32.    30  FROM StrConv IMPORT CardinalToStr,RealToStr,StrToReal;
    33. 

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

  34.    32  FROM Gas IMPORT CheckOutGas,CheckInGas,DeleteGasFromInv;
    35. 

  35.    33  FROM LowLevel IMPORT Fill;
    36. 

  36.    34  FROM DBStuff IMPORT MakeSeqNbr,FindAll,ReadAllRecs,
    37. 

  37. *****       ^ duplicate identifier
    38. 

  38.    35                ConditionType,ChangeDateField,DeleteAllRecs;
    39. 

  39.    36  FROM DBUtils IMPORT ReadCardField,ReadRealField,ReadDateField,
    40. 

  40.    37               ChangeCardField,ChangeRealField,PrintFrame;
    41. 

  41.    38  FROM ScrnTypes IMPORT AFrameName;	
    42. 

  42.    39  FROM NumTypes IMPORT Real8;
    43. 

  43.    40  FROM StringIO IMPORT PrintMessage,ErrorMessage,WriteEol,WriteStr;
    44. 

  44.    41  (* these next two are from stonybrook - the pmi version doesn't work*)
    45. 

  45.    42  FROM Prompts IMPORT Prompt,PromptStr,PromptYN;
    46. 

  46.    43  FROM SYSTEM IMPORT ADR,SIZE,TSIZE,ADDRESS,BYTE;
    47. 

  47.    44  FROM HandleIO IMPORT FileExists,OpenFile,CloseHandle,BlockWrite;
    48. 

  48.    45  FROM GenLists IMPORT GenList, NewList,ListLength,GetElmt,ElmtNow,GetElmtAdr,
    49. 

  49.    46       JoinLists,ListDelete,ListInsert,DisposeList,ShellSortList;
    50. 

  50.    47  FROM DBFInvoice IMPORT InvoiceDBF, OpenInvoiceDBF,InvoiceIdx,
    51. 

  51.    48       CloseInvoiceDBF,InvoiceRec,FindInvoiceByInvoice,CustidIdx,
    52. 

  52.    49       FindInvoiceByCustid,NextInvoice,PrevInvoice,InvoiceDBF,
    53. 

  53. *****                                                   ^ duplicate identifier
    54. 

  54.    50       FirstInvoice,LastInvoice,MoveInvoiceToDBF,MoveInvoiceFromDBF;
    55. 

  55.    51  FROM Invoice IMPORT InvoiceItem,FInvoice,Credit,GasOut,GasIn,
    56. 

  56.    52        InvoiceHeadDF,OrderItemDF,CurrentInvoice,CurrInvOldAmt,OrderItemLst,
    57. 

  57.    53        SummaryDF,CurrentItem,HeaderChanged,Recompute,Special,ReadHeader;
    58. 

  58.    54  
    59. 

  59.    55  
    60. 

  60.    56  (***********************************************************************
    61. 

  61.    57   invoices are stored with the invoice number indexed and the
    62. 

  62.    58     customer number indexed.
    63. 

  63.    59  
    64. 

  64.    60     The customer number is indexed  as
    65. 

  65.    61       Customer Number + Status
    66. 

  66.    62         Where status =
    67. 

  67.    63           'O'  - Open - not yet printed so can be edited
    68. 

  68.    64  	 'P'  - Posted (printed ) - can not be editied but can be viewes
    69. 

  69.    65  	 'C'  - Invoice is closed  i.e. paid off
    70. 

  70.    66  	
    71. 

  71.    67        Item Status = 'R' - Items still recorded	
    72. 

  72.    68                      'D' - Items deleted
    73. 

  73.    69  		
    74. 

  74.    70  ********************************************************************)  		
    75. 

  75.    71  
    76. 

  76.    72  
    77. 

  77.    73  
    78. 

  78.    74  
    79. 

  79.    75  PROCEDURE PostSales(InvNbr : ARRAY OF CHAR);
    80. 

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

  81.    76  (* go through the invoice and add items to inventory sales history*)
    82. 

  82.    77  VAR
    83. 

  83.    78    J : CARDINAL;
    84. 

  84.    79    Key : ARRAY[0..15] OF CHAR;
    85. 

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

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

  87.    80    Found : BOOLEAN;
    88. 

  88.    81    Sales : SalesRec;
    89. 

  89.    82    Size,Code : CARDINAL;
    90. 

  90.    83    TheList : GenList;
    91. 

  91.    84    Item    : OrderRec;
    92. 

  92.    85    RecNbr  : LONGINT;
    93. 

  93.    86  BEGIN
    94. 

  94.    87    RETURN;  (* * * * * * * * * * *TEMP FIX * * * * * * * * * * *)
    95. 

  95.    88    NewList(TheList);
    96. 

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

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

  98.    89    CrunchBlanks(InvNbr);
    99. 

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

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

  101.    90    FindAll(InvnbrIdx,InvNbr,EQ,TheList);  (* get items ordered *)
    102. 

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

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

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

  105. *****                             ^ undeclared identifier
    106. 

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

  107.    91  
    108. 

  108.    92    OpenSalesrecDBF(TRUE);
    109. 

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

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

  111.    93    FOR J := 1 TO ListLength(TheList) DO
    112. 

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

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

  114.    94      GetElmt(TheList,J,RecNbr,Code);
    115. 

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

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

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

  118.    95      ReadDBRec(OrderDBF,RecNbr);
    119. 

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

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

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

  122.    96      MoveOrderFromDBF(Item);
    123. 

  123. *****      ^ not supported yet
    124. 

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

  125.    97      IF NOT Special(Item.ITEMNBR)
    126. 

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

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

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

  129.    98        THEN
    130. 

  130.    99          Assign( Item.ITEMNBR,Key );
    131. 

  131. *****          ^ not supported yet
    132. 

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

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

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

  135.   100          FindPositionCh(SalesRecIdx,Key,Found);
    136. 

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

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

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

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

  140.   101  	IF Found
    141. 

  141.   102  	  THEN
    142. 

  142.   103  	    ReadDBRec(SalesrecDBF,CurrentRec(SalesRecIdx));
    143. 

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

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

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

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

  147.   104  	    MoveSalesrecFromDBF(Sales);	
    148. 

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

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

  150.   105  	    Sales.Sold[Today.mo] := Sales.Sold[Today.mo] +
    151. 

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

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

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

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

  155. *****  	                            ^ not supported yet
    156. 

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

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

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

  159.   106  	                             Item.QNTSOLD;
    160. 

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

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

  162.   107  	    MoveSalesrecToDBF(Sales);
    163. 

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

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

  165.   108  	  ELSE
    166. 

  166.   109  	    AppendBlank(SalesrecDBF);
    167. 

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

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

  169.   110  	    Fill(ADR(Sales),SIZE(Sales),0);
    170. 

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

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

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

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

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

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

  176.   111  	    Sales.Sold[Today.mo] := Item.QNTSOLD;	
    177. 

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

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

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

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

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

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

  183.   112  	    Assign(   Item.ITEMNBR,Sales.ITEMNBR );
    184. 

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

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

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

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

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

  189.   113  	    MoveSalesrecToDBF(Sales);
    190. 

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

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

  192.   114  	  END;
    193. 

  193.   115  	WriteDBRec(SalesrecDBF);
    194. 

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

  195. *****  	           ^ not supported yet
    196. 

  196.   116       END; (* end if not special order *)	
    197. 

  197.   117     END; (* end of loop *)
    198. 

  198.   118     DisposeList(TheList);
    199. 

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

  200. *****                 ^ not supported yet
    201. 

  201.   119     CloseSalesrecDBF();
    202. 

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

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

  204.   120  END PostSales;
    205. 

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

  206.   121  
    207. 

  207.   122  
    208. 

  208.   123  PROCEDURE PrintInvoice(PkgSlipOnly : BOOLEAN);
    209. 

  209.   124  CONST
    210. 

  210.   125    Blank = '                              ';
    211. 

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

  212.   126    LinesPerPage = 32;
    213. 

  213.   127  VAR
    214. 

  214.   128    Str : ARRAY[0..100] OF CHAR;
    215. 

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

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

  217.   129    CurrentPage : CARDINAL;
    218. 

  218.   130    CurrentLine : CARDINAL;
    219. 

  219.   131    TotalPages  : CARDINAL;
    220. 

  220.   132    NextFrame : AFrameName;
    221. 

  221.   133    BufCnt : CARDINAL;
    222. 

  222.   134    FF     : BYTE;
    223. 

  223.   135    Prt : CARDINAL;
    224. 

  224.   136    R   : Real8;
    225. 

  225.   137    J   : CARDINAL;
    226. 

  226.   138    EM : ErrorMessage;
    227. 

  227.   139    Size,Code : CARDINAL;
    228. 

  228.   140    ShipTo,BillTo : AddressRec;
    229. 

  229.   141    TmpTotal : Real8;
    230. 

  230.   142  
    231. 

  231.   143  PROCEDURE NbrOfPages() : CARDINAL;
    232. 

  232.   144  (* calculate the number of pages for the invoice *)
    233. 

  233.   145  VAR J : CARDINAL;
    234. 

  234.   146      Lines : CARDINAL;
    235. 

  235.   147      Size,Code : CARDINAL;
    236. 

  236.   148      Tmp : ARRAY[0..80] OF CHAR;
    237. 

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

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

  239.   149      PgNbr : CARDINAL;
    240. 

  240.   150  PROCEDURE CountNoteLines();
    241. 

  241.   151  BEGIN
    242. 

  242.   152  
    243. 

  243.   153        CrunchBlanks(CurrentInvoice.NOTE1);
    244. 

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

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

  246. *****                                    ^ not supported yet
    247. 

  247.   154        IF Length(CurrentInvoice.NOTE1) > 1
    248. 

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

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

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

  251.   155          THEN INC(Lines);
    252. 

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

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

  254.   156  	END;
    255. 

  255.   157        CrunchBlanks(CurrentInvoice.NOTE2);
    256. 

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

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

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

  259.   158        IF Length(CurrentInvoice.NOTE2) > 1
    260. 

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

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

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

  263.   159          THEN INC(Lines);
    264. 

  264. *****               ^ undeclared identifier
    265. 

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

  266.   160  	END;
    267. 

  267.   161        CrunchBlanks(CurrentInvoice.NOTE3);
    268. 

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

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

  270. *****                                    ^ not supported yet
    271. 

  271.   162        IF Length(CurrentInvoice.NOTE3) > 1
    272. 

  272. *****           ^ not supported yet
    273. 

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

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

  275.   163          THEN INC(Lines);
    276. 

  276. *****               ^ undeclared identifier
    277. 

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

  278.   164  	END;
    279. 

  279.   165  END CountNoteLines;
    280. 

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

  281.   166  BEGIN
    282. 

  282.   167    Lines := 1; (**)
    283. 

  283.   168     PgNbr := 1;
    284. 

  284.   169    IF (CurrentInvoice.NOTESFOR = 'B')
    285. 

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

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

  287.   170       THEN CountNoteLines();
    288. 

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

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

  290.   171    ELSIF ((CurrentInvoice.NOTESFOR='P') AND PkgSlipOnly)
    291. 

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

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

  293.   172       THEN CountNoteLines();
    294. 

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

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

  296.   173    ELSIF ((CurrentInvoice.NOTESFOR='I') AND NOT PkgSlipOnly)
    297. 

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

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

  299.   174       THEN CountNoteLines();
    300. 

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

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

  302.   175    END;
    303. 

  303.   176  
    304. 

  304.   177    FOR J := 1 TO ListLength(OrderItemLst) DO
    305. 

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

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

  307.   178      INC(Lines);
    308. 

  308. *****      ^ undeclared identifier
    309. 

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

  310.   179      IF Lines > LinesPerPage
    311. 

  311.   180        THEN
    312. 

  312.   181          INC (PgNbr);
    313. 

  313. *****          ^ undeclared identifier
    314. 

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

  315.   182  	Lines := 1;
    316. 

  316.   183        END;	
    317. 

  317.   184      GetElmtAdr(OrderItemLst,J,CurrentItem,Size,Code);
    318. 

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

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

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

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

  322.   185      CrunchBlanks(CurrentItem^.ItemOrderRec.NOTES1);
    323. 

  323. *****      ^ not supported yet
    324. 

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

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

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

  327.   186      CrunchBlanks(CurrentItem^.ItemOrderRec.NOTES2);
    328. 

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

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

  330. *****                                ^ not supported yet
    331. 

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

  332.   187      CrunchBlanks(CurrentItem^.ItemOrderRec.NOTES3);
    333. 

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

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

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

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

  337.   188      IF Length(CurrentItem^.ItemOrderRec.NOTES1 ) > 1
    338. 

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

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

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

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

  342.   189        THEN
    343. 

  343.   190          INC(Lines);
    344. 

  344. *****          ^ undeclared identifier
    345. 

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

  346.   191        END;	
    347. 

  347.   192      IF Length(CurrentItem^.ItemOrderRec.NOTES2) > 1
    348. 

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

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

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

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

  352.   193       THEN
    353. 

  353.   194        INC(Lines);
    354. 

  354. *****        ^ undeclared identifier
    355. 

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

  356.   195       END;
    357. 

  357.   196      IF Length(CurrentItem^.ItemOrderRec.NOTES3) > 1
    358. 

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

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

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

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

  362.   197        THEN
    363. 

  363.   198          INC(Lines);
    364. 

  364. *****          ^ undeclared identifier
    365. 

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

  366.   199        END;
    367. 

  367.   200    END;	 (* end for j *)
    368. 

  368.   201  (*  Lines := Lines + 5; (* net, tax, discount, total *)*)
    369. 

  369.   202    RETURN PgNbr;
    370. 

  370.   203  END NbrOfPages;
    371. 

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

  372.   204  
    373. 

  373.   205  PROCEDURE PrintLine(Item : OrderRec; PksOnly : BOOLEAN);
    374. 

  374.   206  
    375. 

  375.   207  VAR
    376. 

  376.   208    Line : ARRAY[0..120] OF CHAR;
    377. 

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

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

  379.   209  
    380. 

  380.   210  BEGIN
    381. 

  381.   211    INC(CurrentLine);      (* increment line counter *)
    382. 

  382. *****    ^ undeclared identifier
    383. 

  383. *****                   ^ not supported yet
    384. 

  384.   212    Fill(ADR(Line),102,' ');
    385. 

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

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

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

  388. *****                          ^ not supported yet
    389. 

  389.   213    RealToStr(Item.QNTSOLD,2,8,Str);
    390. 

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

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

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

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

  394.   214    RightJustify(Str,8);
    395. 

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

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

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

  398.   215  (*  CrunchBlanks(Str); *)
    399. 

  399.   216    OverWrite(Str,Line,0);
    400. 

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

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

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

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

  404.   217    OverWrite(Item.UNITS,Line,8);
    405. 

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

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

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

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

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

  410.   218    OverWrite(Item.ITEMNBR,Line,14);
    411. 

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

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

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

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

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

  416.   219    OverWrite(Item.DESC,Line,23);
    417. 

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

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

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

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

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

  422.   220    IF NOT PksOnly
    423. 

  423.   221      THEN
    424. 

  424.   222        RealToStr(Item.UNITPRC,2,6,Str);
    425. 

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

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

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

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

  429.   223        RightJustify(Str,6);
    430. 

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

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

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

  433.   224        OverWrite(Str,Line,78);
    434. 

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

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

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

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

  438.   225        RealToStr(Item.TOTAL,2,6,Str);
    439. 

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

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

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

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

  443.   226        RightJustify(Str,7);
    444. 

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

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

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

  447.   227        OverWrite(Str,Line,88);
    448. 

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

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

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

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

  452.   228        Line[96] := 0C;
    453. 

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

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

  455.   229      ELSE
    456. 

  456.   230        Line[79] := 0C;
    457. 

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

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

  459.   231      END;
    460. 

  460.   232    WriteEol(Prt,Line);
    461. 

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

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

  463.   233    CrunchBlanks(Item.NOTES1);
    464. 

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

  465. *****                 ^ not supported yet
    466. 

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

  467.   234    CrunchBlanks(Item.NOTES2);
    468. 

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

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

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

  471.   235    CrunchBlanks(Item.NOTES3);
    472. 

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

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

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

  475.   236    IF Item.NOTES1[0] > 0C  (* notes exist *)
    476. 

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

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

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

  479.   237       THEN
    480. 

  480.   238         WriteStr(Prt,Blank);
    481. 

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

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

  483.   239         WriteEol(Prt,Item.NOTES1);
    484. 

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

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

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

  487.   240         INC(CurrentLine);
    488. 

  488. *****         ^ undeclared identifier
    489. 

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

  490.   241       IF Item.NOTES2[0] > 0C
    491. 

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

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

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

  494.   242         THEN
    495. 

  495.   243          WriteStr(Prt,Blank);
    496. 

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

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

  498.   244          WriteEol(Prt,Item.NOTES2);
    499. 

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

  500. *****                       ^ not supported yet
    501. 

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

  502.   245  	INC(CurrentLine);
    503. 

  503. *****  	^ undeclared identifier
    504. 

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

  505.   246          IF Item.NOTES3[0] > 0C
    506. 

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

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

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

  509.   247  	  THEN
    510. 

  510.   248  	   WriteStr(Prt,Blank);
    511. 

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

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

  513.   249             WriteEol(Prt,Item.NOTES3);	
    514. 

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

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

  516. *****                               ^ not supported yet
    517. 

  517.   250  	   INC(CurrentLine);
    518. 

  518. *****  	   ^ undeclared identifier
    519. 

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

  520.   251  	 END;
    521. 

  521.   252         END;
    522. 

  522.   253      END;   	
    523. 

  523.   254  END PrintLine;
    524. 

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

  525.   255  
    526. 

  526.   256  PROCEDURE PrintPkgSlpHeader();
    527. 

  527.   257  VAR J : CARDINAL;
    528. 

  528.   258     Str2 : ARRAY[0..10] OF CHAR;
    529. 

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

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

  531.   259  BEGIN
    532. 

  532.   260    Assign( Config.CompanyName,Str );
    533. 

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

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

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

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

  537.   261    Center(Str,80);
    538. 

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

  539. *****           ^ not supported yet
    540. 

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

  541.   262    OverWrite(TodayStr,Str,64);
    542. 

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

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

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

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

  546.   263    WriteEol(Prt,Str);
    547. 

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

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

  549.   264    Fill(ADR(Str),SIZE(Str),' ');
    550. 

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

  551. *****         ^ not supported yet
    552. 

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

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

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

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

  556.   265  
    557. 

  557.   266    Assign( Config.CompanyAddr1,Str );
    558. 

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

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

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

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

  562.   267    Center(Str,80);
    563. 

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

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

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

  566.   268    CardinalToStr(CurrentPage,2,Str2);
    567. 

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

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

  569.   269    INC(CurrentPage);
    570. 

  570. *****    ^ undeclared identifier
    571. 

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

  572.   270    OverWrite('Page ',Str,60);
    573. 

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

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

  575. *****                      ^ not supported yet
    576. 

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

  577.   271    OverWrite(Str2,Str,65);
    578. 

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

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

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

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

  582.   272    OverWrite('OF ',Str,67);
    583. 

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

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

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

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

  587.   273    CardinalToStr(TotalPages,2,Str2);
    588. 

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

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

  590.   274    OverWrite(Str2,Str,70);
    591. 

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

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

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

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

  595.   275    WriteEol(Prt,Str);
    596. 

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

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

  598.   276  
    599. 

  599.   277    Fill(ADR(Str),SIZE(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. *****                               ^ not supported yet
    606. 

  606.   278  
    607. 

  607.   279    Assign( Config.CompanyAddr2,Str );
    608. 

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

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

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

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

  612.   280    Center(Str,80);
    613. 

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

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

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

  616.   281    OverWrite(CurrentInvoice.CUSTID,Str,64);
    617. 

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

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

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

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

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

  622.   282    WriteEol(Prt,Str);
    623. 

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

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

  625.   283  
    626. 

  626.   284    Assign( Config.Phone,Str );
    627. 

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

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

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

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

  631.   285    Center(Str,80);
    632. 

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

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

  634. *****                 ^ not supported yet
    635. 

  635.   286    WriteEol(Prt,Str);
    636. 

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

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

  638.   287    Assign( TodayStr,Str );
    639. 

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

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

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

  642.   288    Center(Str,80);
    643. 

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

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

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

  646.   289    WriteEol(Prt,Str);
    647. 

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

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

  649.   290    WriteEol(Prt,'');
    650. 

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

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

  652.   291    WriteEol(Prt,'');
    653. 

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

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

  655.   292    WriteEol(Prt,'');
    656. 

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

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

  658.   293    Fill(ADR(Str),SIZE(Str),' ');
    659. 

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

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

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

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

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

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

  665.   294    Str[79] := 0C;
    666. 

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

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

  668.   295    OverWrite('SHIP TO: ',Str,10);
    669. 

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

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

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

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

  673.   296    FOR J := 0 TO 3 DO
    674. 

  674.   297      OverWrite(ShipTo.Line[J],Str,20);
    675. 

  675. *****      ^ not supported yet
    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.   298      WriteEol(Prt,Str);
    682. 

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

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

  684.   299      Fill(ADR(Str),SIZE(Str),' ');
    685. 

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

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

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

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

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

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

  691.   300      Str[79] := 0C;
    692. 

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

  693. *****            ^ not supported yet
    694. 

  694.   301    END;
    695. 

  695.   302    WriteEol(Prt,'');
    696. 

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

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

  698.   303    WriteEol(Prt,'');
    699. 

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

  700. *****                   ^ not supported yet
    701. 

  701.   304    WriteEol(Prt,'');
    702. 

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

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

  704.   305  
    705. 

  705.   306    WriteStr(Prt,'Ship VIA: ');
    706. 

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

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

  708.   307    WriteStr(Prt,CurrentInvoice.SHIPVIA);
    709. 

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

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

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

  712.   308    WriteStr(Prt,'  FF = ');
    713. 

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

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

  715.   309    WriteStr(Prt,CurrentInvoice.FREEFRGHT);
    716. 

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

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

  718. *****                                ^ not supported yet
    719. 

  719.   310    WriteStr(Prt,'Terms: ');
    720. 

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

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

  722.   311    WriteStr(Prt,CurrentInvoice.TERMS);
    723. 

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

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

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

  726.   312    WriteEol(Prt,'');
    727. 

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

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

  729.   313    WriteStr(Prt,'Invoice Number: ');
    730. 

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

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

  732.   314    WriteStr(Prt,CurrentInvoice.INVOICE);
    733. 

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

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

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

  736.   315    WriteEol(Prt,'');
    737. 

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

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

  739.   316    WriteEol(Prt,'');
    740. 

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

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

  742.   317  
    743. 

  743.   318  END PrintPkgSlpHeader;
    744. 

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

  745.   319  
    746. 

  746.   320  PROCEDURE PrintHeader();
    747. 

  747.   321  CONST
    748. 

  748.   322    err = 'ASCII ERROR';
    749. 

  749. *****          ^ not supported yet
    750. 

  750.   323  VAR
    751. 

  751.   324       Tmp : ARRAY[0..10] OF CHAR;
    752. 

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

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

  754.   325       B : BOOLEAN;
    755. 

  755.   326       J  : CARDINAL;
    756. 

  756.   327       TLines : CARDINAL;
    757. 

  757.   328       Str2,
    758. 

  758.   329       CPI12,
    759. 

  759.   330       CPIPana : ARRAY[0..10] OF CHAR;
    760. 

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

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

  762.   331       Str : ARRAY[0..120] OF CHAR;
    763. 

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

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

  765.   332  BEGIN
    766. 

  766.   333    Concat(CHR(27),':',CPI12);
    767. 

  767. *****    ^ not supported yet
    768. 

  768. *****           ^ undeclared identifier
    769. 

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

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

  771.   334    Concat(CHR(27),CHR(15),CPIPana);
    772. 

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

  773. *****           ^ undeclared identifier
    774. 

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

  775. *****                   ^ undeclared identifier
    776. 

  776. *****                         ^ not supported yet
    777. 

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

  778.   335     Str := err;
    779. 

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

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

  781.   336   WriteStr(Prt,CPI12);
    782. 

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

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

  784.   337   CurrentLine := 1;
    785. 

  785.   338   IF PkgSlipOnly
    786. 

  786.   339     THEN
    787. 

  787.   340       WriteStr(Prt,CPIPana);
    788. 

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

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

  790.   341       PrintPkgSlpHeader();
    791. 

  791. *****       ^ not supported yet
    792. 

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

  793.   342       RETURN;
    794. 

  794.   343     END;
    795. 

  795.   344   Fill(ADR(Str),SIZE(Str),' ');
    796. 

  796. *****   ^ not supported yet
    797. 

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

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

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

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

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

  802.   345   Str[95] := 0C;
    803. 

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

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

  805.   346   WriteEol(Prt,'');
    806. 

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

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

  808.   347   DateToStr(CurrentInvoice.INVDATE,Str2,B);
    809. 

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

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

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

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

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

  814.   348   OverWrite(Str2,Str,75);
    815. 

  815. *****   ^ not supported yet
    816. 

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

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

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

  819.   349   WriteEol(Prt,Str);
    820. 

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

  821. *****                ^ not supported yet
    822. 

  822.   350   Fill(ADR(Str),SIZE(Str),' ');
    823. 

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

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

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

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

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

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

  829.   351   CardinalToStr(CurrentPage,2,Str2);
    830. 

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

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

  832.   352   OverWrite(Str2,Str,76);
    833. 

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

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

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

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

  837.   353   INC(CurrentPage);
    838. 

  838. *****   ^ undeclared identifier
    839. 

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

  840.   354   OverWrite('OF ',Str,79);
    841. 

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

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

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

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

  845.   355   TLines := TotalPages;
    846. 

  846.   356   CardinalToStr(TLines,2,Str2);
    847. 

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

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

  849.   357  (* CardinalToStr(TotalPages,2,Str[70..73]);*)
    850. 

  850.   358   OverWrite(Str2,Str,82);
    851. 

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

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

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

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

  855.   359   Str[96] := 0C;
    856. 

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

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

  858.   360   WriteEol(Prt,Str);
    859. 

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

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

  861.   361   Fill(ADR(Str),SIZE(Str),' ');
    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.   362   Str[96] := 0C;
    869. 

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

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

  871.   363   OverWrite(CurrentInvoice.CUSTID,Str,76);
    872. 

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

  873. *****             ^ not supported yet
    874. 

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

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

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

  877.   364   WriteEol(Prt,Str);
    878. 

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

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

  880.   365  
    881. 

  881.   366   WriteEol(Prt,'');
    882. 

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

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

  884.   367   WriteEol(Prt,'');
    885. 

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

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

  887.   368   WriteEol(Prt,'');
    888. 

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

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

  890.   369   WriteEol(Prt,'');
    891. 

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

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

  893.   370   WriteEol(Prt,'');
    894. 

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

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

  896.   371   FOR J := 0 TO 3 DO
    897. 

  897.   372     Fill(ADR(Str),SIZE(Str),' ');
    898. 

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

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

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

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

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

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

  904.   373     OverWrite(BillTo.Line[J],Str,15);
    905. 

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

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

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

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

  909. *****                              ^ not supported yet
    910. 

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

  911.   374     OverWrite(ShipTo.Line[J],Str,66);
    912. 

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

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

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

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

  916. *****                              ^ not supported yet
    917. 

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

  918.   375     Str[94] := 0C;
    919. 

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

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

  921.   376     WriteEol(Prt,Str);
    922. 

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

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

  924.   377   END;
    925. 

  925.   378  
    926. 

  926.   379   FOR J := 1 TO 5 DO
    927. 

  927.   380     WriteEol(Prt,'');
    928. 

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

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

  930.   381   END;
    931. 

  931.   382   Fill(ADR(Str),SIZE(Str),' ');
    932. 

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

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

  934. *****            ^ not supported yet
    935. 

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

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

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

  938.   383   Str[95] := 0C;
    939. 

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

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

  941.   384   DateToStr(CurrentInvoice.INVDATE,Str2,B);
    942. 

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

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

  944. *****                            ^ not supported yet
    945. 

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

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

  947.   385   OverWrite(Str2,Str,0);
    948. 

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

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

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

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

  952.   386   OverWrite(CurrentInvoice.CUSTPO,Str,10);
    953. 

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

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

  955. *****                            ^ not supported yet
    956. 

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

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

  958.   387   OverWrite(Str2,Str,23);
    959. 

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

  960. *****             ^ not supported yet
    961. 

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

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

  963.   388   OverWrite(CurrentInvoice.SALESMAN,Str,33);
    964. 

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

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

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

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

  968. *****                                           ^ not supported yet
    969. 

  969.   389   OverWrite(CurrentInvoice.TERMS,Str,42);
    970. 

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

  971. *****             ^ not supported yet
    972. 

  972. *****                            ^ not supported yet
    973. 

  973. *****                                  ^ not supported yet
    974. 

  974. *****                                        ^ not supported yet
    975. 

  975.   390   OverWrite(CurrentInvoice.SHIPVIA,Str,63);
    976. 

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

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

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

  979. *****                                    ^ not supported yet
    980. 

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

  981.   391   OverWrite(CurrentInvoice.INVOICE,Str,88);
    982. 

  982. *****   ^ not supported yet
    983. 

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

  984. *****                            ^ not supported yet
    985. 

  985. *****                                    ^ not supported yet
    986. 

  986. *****                                          ^ not supported yet
    987. 

  987.   392   WriteEol(Prt,Str);
    988. 

  988. *****   ^ not supported yet
    989. 

  989. *****                ^ not supported yet
    990. 

  990.   393   FOR J := 1 TO 4 DO
    991. 

  991.   394     WriteEol(Prt,'');
    992. 

  992. *****     ^ not supported yet
    993. 

  993. *****                    ^ not supported yet
    994. 

  994.   395   END;
    995. 

  995.   396  
    996. 

  996.   397  END PrintHeader;
    997. 

  997. *****      ^ not supported yet
    998. 

  998.   398  
    999. 

  999.   399  
    1000. 

  1000.   400  
    1001. 

  1001.   401  PROCEDURE WriteHeaderNotes();
    1002. 

  1002.   402  VAR
    1003. 

  1003.   403   TmpStr : ARRAY[0..30] OF CHAR;
    1004. 

  1004. *****                     ^ not supported yet
    1005. 

  1005. *****                            ^ not supported yet
    1006. 

  1006.   404  
    1007. 

  1007.   405  BEGIN
    1008. 

  1008.   406        IF Length(CurrentInvoice.NOTE1) > 1
    1009. 

  1009. *****           ^ not supported yet
    1010. 

  1010. *****                  ^ not supported yet
    1011. 

  1011. *****                                 ^ not supported yet
    1012. 

  1012.   407          THEN
    1013. 

  1013.   408            WriteStr(Prt,Blank);
    1014. 

  1014. *****            ^ not supported yet
    1015. 

  1015. *****                         ^ not supported yet
    1016. 

  1016.   409            WriteEol(Prt,CurrentInvoice.NOTE1);
    1017. 

  1017. *****            ^ not supported yet
    1018. 

  1018. *****                         ^ not supported yet
    1019. 

  1019. *****                                        ^ not supported yet
    1020. 

  1020.   410  	  INC(CurrentLine);
    1021. 

  1021. *****  	  ^ undeclared identifier
    1022. 

  1022. *****  	                 ^ not supported yet
    1023. 

  1023.   411  	END;
    1024. 

  1024.   412        IF Length(CurrentInvoice.NOTE2) > 1
    1025. 

  1025. *****           ^ not supported yet
    1026. 

  1026. *****                  ^ not supported yet
    1027. 

  1027. *****                                 ^ not supported yet
    1028. 

  1028.   413          THEN
    1029. 

  1029.   414            WriteStr(Prt,Blank);
    1030. 

  1030. *****            ^ not supported yet
    1031. 

  1031. *****                         ^ not supported yet
    1032. 

  1032.   415            WriteEol(Prt,CurrentInvoice.NOTE2);
    1033. 

  1033. *****            ^ not supported yet
    1034. 

  1034. *****                         ^ not supported yet
    1035. 

  1035. *****                                        ^ not supported yet
    1036. 

  1036.   416  	  INC(CurrentLine);
    1037. 

  1037. *****  	  ^ undeclared identifier
    1038. 

  1038. *****  	                 ^ not supported yet
    1039. 

  1039.   417  	END;	
    1040. 

  1040.   418          IF Length(CurrentInvoice.NOTE3) > 1
    1041. 

  1041. *****             ^ not supported yet
    1042. 

  1042. *****                    ^ not supported yet
    1043. 

  1043. *****                                   ^ not supported yet
    1044. 

  1044.   419          THEN
    1045. 

  1045.   420            WriteStr(Prt,Blank);
    1046. 

  1046. *****            ^ not supported yet
    1047. 

  1047. *****                         ^ not supported yet
    1048. 

  1048.   421            WriteEol(Prt,CurrentInvoice.NOTE3);
    1049. 

  1049. *****            ^ not supported yet
    1050. 

  1050. *****                         ^ not supported yet
    1051. 

  1051. *****                                        ^ not supported yet
    1052. 

  1052.   422  	  INC(CurrentLine);
    1053. 

  1053. *****  	  ^ undeclared identifier
    1054. 

  1054. *****  	                 ^ not supported yet
    1055. 

  1055.   423  	END;	
    1056. 

  1056.   424  END WriteHeaderNotes;
    1057. 

  1057. *****      ^ not supported yet
    1058. 

  1058.   425  
    1059. 

  1059.   426  VAR
    1060. 

  1060.   427    TmpStr : ARRAY[0..10] OF CHAR;
    1061. 

  1061. *****                      ^ not supported yet
    1062. 

  1062. *****                             ^ not supported yet
    1063. 

  1063.   428  
    1064. 

  1064.   429  
    1065. 

  1065.   430  BEGIN (* print invoice *)
    1066. 

  1066.   431    TotalPages :=NbrOfPages();
    1067. 

  1067. *****                 ^ not supported yet
    1068. 

  1068. *****                            ^ not supported yet
    1069. 

  1069.   432    IF CurrentInvoice.INVPRNT # 'O'
    1070. 

  1070. *****       ^ not supported yet
    1071. 

  1071. *****                      ^ not supported yet
    1072. 

  1072.   433      THEN
    1073. 

  1073.   434        IF NOT PromptYN('WARNING Invoice already posted - Continue (y/n)?',InvoiceHeadDF)
    1074. 

  1074. *****               ^ not supported yet
    1075. 

  1075. *****                        ^ not supported yet
    1076. 

  1076. *****                                                                           ^ not supported yet
    1077. 

  1077.   435          THEN
    1078. 

  1078.   436            RETURN
    1079. 

  1079.   437  	ELSE
    1080. 

  1080.   438  	 IF CurrentInvoice.HELIUM = 'Y'
    1081. 

  1081. *****  	    ^ not supported yet
    1082. 

  1082. *****  	                   ^ not supported yet
    1083. 

  1083.   439            THEN
    1084. 

  1084.   440  	    DeleteGasFromInv(CurrentInvoice.INVOICE);
    1085. 

  1085. *****  	    ^ not supported yet
    1086. 

  1086. *****  	                     ^ not supported yet
    1087. 

  1087. *****  	                                    ^ not supported yet
    1088. 

  1088.   441  	  END;
    1089. 

  1089.   442  	 R := - CurrInvOldAmt;
    1090. 

  1090. *****  	 ^ not supported yet
    1091. 

  1091. *****  	        ^ not supported yet
    1092. 

  1092.   443  	 AddCustYTD(R);  (* subtract the value from invoice prior to  *)
    1093. 

  1093. *****  	 ^ not supported yet
    1094. 

  1094. *****  	            ^ not supported yet
    1095. 

  1095.   444         END;	
    1096. 

  1096.   445      END;	
    1097. 

  1097.   446    GetCustAddr(BillTo,Billing);
    1098. 

  1098. *****    ^ not supported yet
    1099. 

  1099. *****                ^ not supported yet
    1100. 

  1100. *****                       ^ undeclared identifier
    1101. 

  1101.   447    GetCustAddr(ShipTo, Shipping);
    1102. 

  1102. *****    ^ not supported yet
    1103. 

  1103. *****                ^ not supported yet
    1104. 

  1104. *****                        ^ undeclared identifier
    1105. 

  1105.   448    IF PkgSlipOnly
    1106. 

  1106.   449       THEN  EM := OpenFile(Prt,Config.PksSlipPrt)  (* which printer *)
    1107. 

  1107. *****             ^ not supported yet
    1108. 

  1108. *****                   ^ not supported yet
    1109. 

  1109. *****                                ^ not supported yet
    1110. 

  1110. *****                                       ^ not supported yet
    1111. 

  1111.   450       ELSE
    1112. 

  1112.   451  
    1113. 

  1113.   452         EM := OpenFile(Prt,Config.InvoicePrt);
    1114. 

  1114. *****         ^ not supported yet
    1115. 

  1115. *****               ^ not supported yet
    1116. 

  1116. *****                            ^ not supported yet
    1117. 

  1117. *****                                   ^ not supported yet
    1118. 

  1118.   453         CurrentInvoice.INVPRNT := 'P';  (* printed/posted *)
    1119. 

  1119. *****         ^ not supported yet
    1120. 

  1120. *****                        ^ not supported yet
    1121. 

  1121.   454         CurrentInvoice.AMTOUT := CurrentInvoice.TOTALAMT;
    1122. 

  1122. *****         ^ not supported yet
    1123. 

  1123. *****                        ^ not supported yet
    1124. 

  1124. *****                                  ^ not supported yet
    1125. 

  1125. *****                                                 ^ not supported yet
    1126. 

  1126.   455         HeaderChanged := TRUE;
    1127. 

  1127. *****         ^ not supported yet
    1128. 

  1128.   456         IF CurrentInvoice.AMTOUT = 0.0
    1129. 

  1129. *****            ^ not supported yet
    1130. 

  1130. *****                           ^ not supported yet
    1131. 

  1131.   457           THEN IF PromptYN('Zero Invoice Amount - close invoice ',InvoiceHeadDF)
    1132. 

  1132. *****                   ^ not supported yet
    1133. 

  1133. *****                            ^ not supported yet
    1134. 

  1134. *****                                                                   ^ not supported yet
    1135. 

  1135.   458  	   THEN CurrentInvoice.INVPRNT := 'C';
    1136. 

  1136. *****  	        ^ not supported yet
    1137. 

  1137. *****  	                       ^ not supported yet
    1138. 

  1138.   459  	   END;
    1139. 

  1139.   460  	 END;
    1140. 

  1140.   461         AddCustOutStd(CurrentInvoice.AMTOUT);	
    1141. 

  1141. *****         ^ not supported yet
    1142. 

  1142. *****                       ^ not supported yet
    1143. 

  1143. *****                                      ^ not supported yet
    1144. 

  1144.   462         SetCustLastInvDate(CurrentInvoice.INVDATE);
    1145. 

  1145. *****         ^ not supported yet
    1146. 

  1146. *****                            ^ not supported yet
    1147. 

  1147. *****                                           ^ not supported yet
    1148. 

  1148.   463  
    1149. 

  1149.   464         (*CurrentInvoice.INVDATE := Today;    invoice date = date printed *)
    1150. 

  1150.   465         AddCustYTD(CurrentInvoice.INVNET);  (* update YTD Amount *)
    1151. 

  1151. *****         ^ not supported yet
    1152. 

  1152. *****                    ^ not supported yet
    1153. 

  1153. *****                                   ^ not supported yet
    1154. 

  1154.   466         CurrInvOldAmt := CurrentInvoice.INVNET;
    1155. 

  1155. *****         ^ not supported yet
    1156. 

  1156. *****                          ^ not supported yet
    1157. 

  1157. *****                                         ^ not supported yet
    1158. 

  1158.   467         IF (CurrentInvoice.SHIPPING = 0.0 ) AND (CurrentInvoice.FREEFRGHT # 'Y')
    1159. 

  1159. *****             ^ not supported yet
    1160. 

  1160. *****                            ^ not supported yet
    1161. 

  1161. *****                                                  ^ not supported yet
    1162. 

  1162. *****                                                                 ^ not supported yet
    1163. 

  1163.   468           THEN
    1164. 

  1164.   469             R := - CurrentInvoice.AMTOUT;
    1165. 

  1165. *****             ^ not supported yet
    1166. 

  1166. *****                    ^ not supported yet
    1167. 

  1167. *****                                   ^ not supported yet
    1168. 

  1168.   470  	   AddCustOutStd(R);
    1169. 

  1169. *****  	   ^ not supported yet
    1170. 

  1170. *****  	                 ^ not supported yet
    1171. 

  1171.   471  	   ControlFrame(InvoiceHeadDF,FieldNum(InvoiceHeadDF,'Shipping'),'',FALSE,NextFrame);
    1172. 

  1172. *****  	   ^ not supported yet
    1173. 

  1173. *****  	                ^ not supported yet
    1174. 

  1174. *****  	                              ^ not supported yet
    1175. 

  1175. *****  	                                       ^ not supported yet
    1176. 

  1176. *****  	                                                     ^ not supported yet
    1177. 

  1177. *****  	                                                                          ^ not supported yet
    1178. 

  1178.   472  	   ReadHeader();
    1179. 

  1179. *****  	   ^ not supported yet
    1180. 

  1180. *****  	              ^ not supported yet
    1181. 

  1181.   473  	   Recompute();  (* get shipping charge *)
    1182. 

  1182. *****  	   ^ not supported yet
    1183. 

  1183. *****  	             ^ not supported yet
    1184. 

  1184.   474             CurrentInvoice.AMTOUT := CurrentInvoice.TOTALAMT;	   	
    1185. 

  1185. *****             ^ not supported yet
    1186. 

  1186. *****                            ^ not supported yet
    1187. 

  1187. *****                                      ^ not supported yet
    1188. 

  1188. *****                                                     ^ not supported yet
    1189. 

  1189.   475  
    1190. 

  1190.   476  
    1191. 

  1191.   477  	 END;
    1192. 

  1192.   478        AddCustOutStd(CurrentInvoice.AMTOUT);	
    1193. 

  1193. *****        ^ not supported yet
    1194. 

  1194. *****                      ^ not supported yet
    1195. 

  1195. *****                                     ^ not supported yet
    1196. 

  1196.   479    END;
    1197. 

  1197.   480    CurrentPage := 1;
    1198. 

  1198.   481    CurrentLine := 1;
    1199. 

  1199.   482    PrintHeader();
    1200. 

  1200. *****    ^ not supported yet
    1201. 

  1201. *****                ^ not supported yet
    1202. 

  1202.   483    IF (CurrentInvoice.NOTESFOR = 'B')
    1203. 

  1203. *****        ^ not supported yet
    1204. 

  1204. *****                       ^ not supported yet
    1205. 

  1205.   484      THEN WriteHeaderNotes();
    1206. 

  1206. *****           ^ not supported yet
    1207. 

  1207. *****                            ^ not supported yet
    1208. 

  1208.   485    ELSIF ((CurrentInvoice.NOTESFOR = 'P') AND PkgSlipOnly)
    1209. 

  1209. *****            ^ not supported yet
    1210. 

  1210. *****                           ^ not supported yet
    1211. 

  1211.   486      THEN WriteHeaderNotes();
    1212. 

  1212. *****           ^ not supported yet
    1213. 

  1213. *****                            ^ not supported yet
    1214. 

  1214.   487    ELSIF  ((CurrentInvoice.NOTESFOR = 'I') AND NOT PkgSlipOnly)
    1215. 

  1215. *****             ^ not supported yet
    1216. 

  1216. *****                            ^ not supported yet
    1217. 

  1217.   488      THEN WriteHeaderNotes();
    1218. 

  1218. *****           ^ not supported yet
    1219. 

  1219. *****                            ^ not supported yet
    1220. 

  1220.   489    END;
    1221. 

  1221.   490  
    1222. 

  1222.   491    FOR J := 1 TO ListLength(OrderItemLst) DO
    1223. 

  1223. *****                  ^ not supported yet
    1224. 

  1224. *****                             ^ not supported yet
    1225. 

  1225.   492      IF((CurrentLine  MOD  LinesPerPage) = 0)
    1226. 

  1226.   493        THEN
    1227. 

  1227.   494           FF := 0C;
    1228. 

  1228. *****           ^ not supported yet
    1229. 

  1229.   495           EM := BlockWrite(Prt,ADR(FF),1);
    1230. 

  1230. *****           ^ not supported yet
    1231. 

  1231. *****                 ^ not supported yet
    1232. 

  1232. *****                                ^ not supported yet
    1233. 

  1233. *****                                    ^ not supported yet
    1234. 

  1234. *****                                         ^ not supported yet
    1235. 

  1235.   496           PrintHeader()
    1236. 

  1236. *****           ^ not supported yet
    1237. 

  1237. *****                       ^ not supported yet
    1238. 

  1238.   497        END;
    1239. 

  1239.   498       GetElmtAdr(OrderItemLst,J,CurrentItem,Size,Code);  (* get the item*)
    1240. 

  1240. *****       ^ not supported yet
    1241. 

  1241. *****                  ^ not supported yet
    1242. 

  1242. *****                                 ^ not supported yet
    1243. 

  1243. *****                                                      ^ not supported yet
    1244. 

  1244.   499       PrintLine(CurrentItem^.ItemOrderRec,PkgSlipOnly);
    1245. 

  1245. *****       ^ not supported yet
    1246. 

  1246. *****                 ^ not supported yet
    1247. 

  1247. *****                              ^ not supported yet
    1248. 

  1248. *****                                                      ^ not supported yet
    1249. 

  1249.   500       IF NOT PkgSlipOnly
    1250. 

  1250.   501         THEN
    1251. 

  1251.   502           IF Pos(GasOut,CurrentItem^.ItemOrderRec.ITEMNBR) = 0
    1252. 

  1252. *****              ^ not supported yet
    1253. 

  1253. *****                  ^ not supported yet
    1254. 

  1254. *****                         ^ not supported yet
    1255. 

  1255. *****                                      ^ not supported yet
    1256. 

  1256. *****                                                   ^ not supported yet
    1257. 

  1257.   503  	   THEN
    1258. 

  1258.   504  	     CurrentInvoice.HELIUM := 'Y';
    1259. 

  1259. *****  	     ^ not supported yet
    1260. 

  1260. *****  	                    ^ not supported yet
    1261. 

  1261.   505  	     CheckOutGas(CurrentInvoice.CUSTID,CurrentInvoice.INVOICE,
    1262. 

  1262. *****  	     ^ not supported yet
    1263. 

  1263. *****  	                 ^ not supported yet
    1264. 

  1264. *****  	                                ^ not supported yet
    1265. 

  1265. *****  	                                       ^ not supported yet
    1266. 

  1266. *****  	                                                      ^ not supported yet
    1267. 

  1267.   506  	                 CurrentItem^.ItemOrderRec.ITEMNBR,
    1268. 

  1268. *****  	                 ^ not supported yet
    1269. 

  1269. *****  	                              ^ not supported yet
    1270. 

  1270. *****  	                                           ^ not supported yet
    1271. 

  1271.   507  	                 TRUNC(CurrentItem^.ItemOrderRec.QNTSOLD),
    1272. 

  1272. *****  	                 ^ undeclared identifier
    1273. 

  1273. *****  	                       ^ not supported yet
    1274. 

  1274. *****  	                                    ^ not supported yet
    1275. 

  1275. *****  	                                                 ^ not supported yet
    1276. 

  1276.   508  			 CurrentInvoice.INVDATE);
    1277. 

  1277. *****  			 ^ not supported yet
    1278. 

  1278. *****  			                ^ not supported yet
    1279. 

  1279.   509  	   ELSIF Pos(GasIn,CurrentItem^.ItemOrderRec.ITEMNBR) = 0
    1280. 

  1280. *****  	         ^ not supported yet
    1281. 

  1281. *****  	             ^ not supported yet
    1282. 

  1282. *****  	                   ^ not supported yet
    1283. 

  1283. *****  	                                ^ not supported yet
    1284. 

  1284. *****  	                                             ^ not supported yet
    1285. 

  1285.   510  	     THEN
    1286. 

  1286.   511  	       CurrentInvoice.HELIUM := 'Y';	
    1287. 

  1287. *****  	       ^ not supported yet
    1288. 

  1288. *****  	                      ^ not supported yet
    1289. 

  1289.   512  	       CheckInGas(CurrentInvoice.CUSTID,CurrentInvoice.INVOICE,
    1290. 

  1290. *****  	       ^ not supported yet
    1291. 

  1291. *****  	                  ^ not supported yet
    1292. 

  1292. *****  	                                 ^ not supported yet
    1293. 

  1293. *****  	                                        ^ not supported yet
    1294. 

  1294. *****  	                                                       ^ not supported yet
    1295. 

  1295.   513  	                  CurrentItem^.ItemOrderRec.ITEMNBR,
    1296. 

  1296. *****  	                  ^ not supported yet
    1297. 

  1297. *****  	                               ^ not supported yet
    1298. 

  1298. *****  	                                            ^ not supported yet
    1299. 

  1299.   514  	                  TRUNC(CurrentItem^.ItemOrderRec.QNTSOLD),
    1300. 

  1300. *****  	                  ^ undeclared identifier
    1301. 

  1301. *****  	                        ^ not supported yet
    1302. 

  1302. *****  	                                     ^ not supported yet
    1303. 

  1303. *****  	                                                  ^ not supported yet
    1304. 

  1304.   515  			  CurrentInvoice.INVDATE);
    1305. 

  1305. *****  			  ^ not supported yet
    1306. 

  1306. *****  			                 ^ not supported yet
    1307. 

  1307.   516   	     END;		  		
    1308. 

  1308.   517          END;
    1309. 

  1309.   518     END;
    1310. 

  1310.   519     IF NOT PkgSlipOnly
    1311. 

  1311.   520       THEN
    1312. 

  1312.   521         WriteEol(Prt,'');
    1313. 

  1313. *****         ^ not supported yet
    1314. 

  1314. *****                        ^ not supported yet
    1315. 

  1315.   522  
    1316. 

  1316.   523         Fill(ADR(Str),SIZE(Str)-2,' ');
    1317. 

  1317. *****         ^ not supported yet
    1318. 

  1318. *****              ^ not supported yet
    1319. 

  1319. *****                  ^ not supported yet
    1320. 

  1320. *****                       ^ not supported yet
    1321. 

  1321. *****                            ^ not supported yet
    1322. 

  1322. *****                                      ^ not supported yet
    1323. 

  1323.   524  
    1324. 

  1324.   525         OverWrite('========',Str,88);
    1325. 

  1325. *****         ^ not supported yet
    1326. 

  1326. *****                   ^ not supported yet
    1327. 

  1327. *****                              ^ not supported yet
    1328. 

  1328. *****                                    ^ not supported yet
    1329. 

  1329.   526         WriteEol(Prt,Str);
    1330. 

  1330. *****         ^ not supported yet
    1331. 

  1331. *****                      ^ not supported yet
    1332. 

  1332.   527         Fill(ADR(Str),SIZE(Str)-2,' ');
    1333. 

  1333. *****         ^ not supported yet
    1334. 

  1334. *****              ^ not supported yet
    1335. 

  1335. *****                  ^ not supported yet
    1336. 

  1336. *****                       ^ not supported yet
    1337. 

  1337. *****                            ^ not supported yet
    1338. 

  1338. *****                                      ^ not supported yet
    1339. 

  1339.   528         OverWrite('Net',Str,40);
    1340. 

  1340. *****         ^ not supported yet
    1341. 

  1341. *****                   ^ not supported yet
    1342. 

  1342. *****                         ^ not supported yet
    1343. 

  1343. *****                               ^ not supported yet
    1344. 

  1344.   529         TmpTotal := CurrentInvoice.INVNET / (1.0 - (CurrentInvoice.INVDSCNT/100.0));
    1345. 

  1345. *****         ^ not supported yet
    1346. 

  1346. *****                     ^ not supported yet
    1347. 

  1347. *****                                    ^ not supported yet
    1348. 

  1348. *****                                                     ^ not supported yet
    1349. 

  1349. *****                                                                    ^ not supported yet
    1350. 

  1350.   530  
    1351. 

  1351.   531         RealToStr(TmpTotal,2,8,TmpStr);
    1352. 

  1352. *****         ^ not supported yet
    1353. 

  1353. *****                   ^ not supported yet
    1354. 

  1354. *****                                ^ not supported yet
    1355. 

  1355.   532         OverWrite(Str,TmpStr,87);
    1356. 

  1356. *****         ^ not supported yet
    1357. 

  1357. *****                   ^ not supported yet
    1358. 

  1358. *****                       ^ not supported yet
    1359. 

  1359. *****                                ^ not supported yet
    1360. 

  1360.   533         WriteEol(Prt,Str);
    1361. 

  1361. *****         ^ not supported yet
    1362. 

  1362. *****                      ^ not supported yet
    1363. 

  1363.   534  
    1364. 

  1364.   535         IF CurrentInvoice.INVDSCNT > 0.0
    1365. 

  1365. *****            ^ not supported yet
    1366. 

  1366. *****                           ^ not supported yet
    1367. 

  1367.   536           THEN
    1368. 

  1368.   537             Fill(ADR(Str),SIZE(Str)-2,' ');
    1369. 

  1369. *****             ^ not supported yet
    1370. 

  1370. *****                  ^ not supported yet
    1371. 

  1371. *****                      ^ not supported yet
    1372. 

  1372. *****                           ^ not supported yet
    1373. 

  1373. *****                                ^ not supported yet
    1374. 

  1374. *****                                          ^ not supported yet
    1375. 

  1375.   538             OverWrite('Discount @',Str,40);
    1376. 

  1376. *****             ^ not supported yet
    1377. 

  1377. *****                       ^ not supported yet
    1378. 

  1378. *****                                    ^ not supported yet
    1379. 

  1379. *****                                          ^ not supported yet
    1380. 

  1380.   539             RealToStr(CurrentInvoice.INVDSCNT ,1,4,TmpStr);
    1381. 

  1381. *****             ^ not supported yet
    1382. 

  1382. *****                       ^ not supported yet
    1383. 

  1383. *****                                      ^ not supported yet
    1384. 

  1384. *****                                                    ^ not supported yet
    1385. 

  1385.   540             OverWrite(Str,TmpStr,51);
    1386. 

  1386. *****             ^ not supported yet
    1387. 

  1387. *****                       ^ not supported yet
    1388. 

  1388. *****                           ^ not supported yet
    1389. 

  1389. *****                                    ^ not supported yet
    1390. 

  1390.   541             OverWrite('%',Str,56);
    1391. 

  1391. *****             ^ not supported yet
    1392. 

  1392. *****                           ^ not supported yet
    1393. 

  1393. *****                                 ^ not supported yet
    1394. 

  1394.   542  	   IF Str[55] = 0C
    1395. 

  1395. *****  	      ^ not supported yet
    1396. 

  1396. *****  	            ^ not supported yet
    1397. 

  1397.   543  	     THEN
    1398. 

  1398.   544  	       Str[55] := ' ';
    1399. 

  1399. *****  	       ^ not supported yet
    1400. 

  1400. *****  	             ^ not supported yet
    1401. 

  1401.   545  	     END;
    1402. 

  1402.   546  	   RealToStr((-1.0 * TmpTotal * CurrentInvoice.INVDSCNT/100.0 ),
    1403. 

  1403. *****  	   ^ not supported yet
    1404. 

  1404. *****  	                     ^ not supported yet
    1405. 

  1405. *****  	                                ^ not supported yet
    1406. 

  1406. *****  	                                               ^ not supported yet
    1407. 

  1407.   547  	             2,8,TmpStr);
    1408. 

  1408. *****  	                 ^ not supported yet
    1409. 

  1409.   548             OverWrite(TmpStr,Str,87);	
    1410. 

  1410. *****             ^ not supported yet
    1411. 

  1411. *****                       ^ not supported yet
    1412. 

  1412. *****                              ^ not supported yet
    1413. 

  1413. *****                                    ^ not supported yet
    1414. 

  1414.   549  	   WriteEol(Prt,Str);
    1415. 

  1415. *****  	   ^ not supported yet
    1416. 

  1416. *****  	                ^ not supported yet
    1417. 

  1417.   550  	 END;
    1418. 

  1418.   551  	
    1419. 

  1419.   552        IF (CurrentInvoice. TAXABLE = 'Y')
    1420. 

  1420. *****            ^ not supported yet
    1421. 

  1421. *****                            ^ not supported yet
    1422. 

  1422.   553          THEN
    1423. 

  1423.   554             Fill(ADR(Str),SIZE(Str)-2,' ');
    1424. 

  1424. *****             ^ not supported yet
    1425. 

  1425. *****                  ^ not supported yet
    1426. 

  1426. *****                      ^ not supported yet
    1427. 

  1427. *****                           ^ not supported yet
    1428. 

  1428. *****                                ^ not supported yet
    1429. 

  1429. *****                                          ^ not supported yet
    1430. 

  1430.   555             OverWrite('Tax ',Str,40);
    1431. 

  1431. *****             ^ not supported yet
    1432. 

  1432. *****                       ^ not supported yet
    1433. 

  1433. *****                              ^ not supported yet
    1434. 

  1434. *****                                    ^ not supported yet
    1435. 

  1435.   556  	   RealToStr(CurrentInvoice.INVTAX,2,8,TmpStr);
    1436. 

  1436. *****  	   ^ not supported yet
    1437. 

  1437. *****  	             ^ not supported yet
    1438. 

  1438. *****  	                            ^ not supported yet
    1439. 

  1439. *****  	                                       ^ not supported yet
    1440. 

  1440.   557  	   OverWrite(TmpStr,Str,87);
    1441. 

  1441. *****  	   ^ not supported yet
    1442. 

  1442. *****  	             ^ not supported yet
    1443. 

  1443. *****  	                    ^ not supported yet
    1444. 

  1444. *****  	                          ^ not supported yet
    1445. 

  1445.   558  	   WriteEol(Prt,Str);
    1446. 

  1446. *****  	   ^ not supported yet
    1447. 

  1447. *****  	                ^ not supported yet
    1448. 

  1448.   559  	
    1449. 

  1449.   560  	END;
    1450. 

  1450.   561  
    1451. 

  1451.   562         IF CurrentInvoice.SHIPPING > 0.0
    1452. 

  1452. *****            ^ not supported yet
    1453. 

  1453. *****                           ^ not supported yet
    1454. 

  1454.   563           THEN
    1455. 

  1455.   564  	   Fill(ADR(Str),SIZE(Str)-2,' ');
    1456. 

  1456. *****  	   ^ not supported yet
    1457. 

  1457. *****  	        ^ not supported yet
    1458. 

  1458. *****  	            ^ not supported yet
    1459. 

  1459. *****  	                 ^ not supported yet
    1460. 

  1460. *****  	                      ^ not supported yet
    1461. 

  1461. *****  	                                ^ not supported yet
    1462. 

  1462.   565  	   OverWrite('Shipping/Handling',Str,40);
    1463. 

  1463. *****  	   ^ not supported yet
    1464. 

  1464. *****  	             ^ not supported yet
    1465. 

  1465. *****  	                                 ^ not supported yet
    1466. 

  1466. *****  	                                       ^ not supported yet
    1467. 

  1467.   566  	   RealToStr(CurrentInvoice.SHIPPING,2,8,TmpStr);
    1468. 

  1468. *****  	   ^ not supported yet
    1469. 

  1469. *****  	             ^ not supported yet
    1470. 

  1470. *****  	                            ^ not supported yet
    1471. 

  1471. *****  	                                         ^ not supported yet
    1472. 

  1472.   567  	   OverWrite(TmpStr,Str,87);
    1473. 

  1473. *****  	   ^ not supported yet
    1474. 

  1474. *****  	             ^ not supported yet
    1475. 

  1475. *****  	                    ^ not supported yet
    1476. 

  1476. *****  	                          ^ not supported yet
    1477. 

  1477.   568  	   WriteEol(Prt,Str);
    1478. 

  1478. *****  	   ^ not supported yet
    1479. 

  1479. *****  	                ^ not supported yet
    1480. 

  1480.   569  	 END;
    1481. 

  1481.   570         WriteEol(Prt,'');
    1482. 

  1482. *****         ^ not supported yet
    1483. 

  1483. *****                        ^ not supported yet
    1484. 

  1484.   571         Fill(ADR(Str),SIZE(Str)-2,' ');
    1485. 

  1485. *****         ^ not supported yet
    1486. 

  1486. *****              ^ not supported yet
    1487. 

  1487. *****                  ^ not supported yet
    1488. 

  1488. *****                       ^ not supported yet
    1489. 

  1489. *****                            ^ not supported yet
    1490. 

  1490. *****                                      ^ not supported yet
    1491. 

  1491.   572         OverWrite('TOTAL DUE',Str,40);
    1492. 

  1492. *****         ^ not supported yet
    1493. 

  1493. *****                   ^ not supported yet
    1494. 

  1494. *****                               ^ not supported yet
    1495. 

  1495. *****                                     ^ not supported yet
    1496. 

  1496.   573         RealToStr(CurrentInvoice.TOTALAMT,2,8,TmpStr);
    1497. 

  1497. *****         ^ not supported yet
    1498. 

  1498. *****                   ^ not supported yet
    1499. 

  1499. *****                                  ^ not supported yet
    1500. 

  1500. *****                                               ^ not supported yet
    1501. 

  1501.   574         OverWrite(TmpStr,Str,87);
    1502. 

  1502. *****         ^ not supported yet
    1503. 

  1503. *****                   ^ not supported yet
    1504. 

  1504. *****                          ^ not supported yet
    1505. 

  1505. *****                                ^ not supported yet
    1506. 

  1506.   575         WriteEol(Prt,Str);	
    1507. 

  1507. *****         ^ not supported yet
    1508. 

  1508. *****                      ^ not supported yet
    1509. 

  1509.   576       END;
    1510. 

  1510.   577       WriteStr(Prt,12C);  (* final form feed *)
    1511. 

  1511. *****       ^ not supported yet
    1512. 

  1512. *****                       ^ not supported yet
    1513. 

  1513.   578     EM := CloseHandle(Prt);
    1514. 

  1514. *****     ^ not supported yet
    1515. 

  1515. *****           ^ not supported yet
    1516. 

  1516. *****                          ^ not supported yet
    1517. 

  1517.   579  
    1518. 

  1518.   580  (* if freight = 0.0 and invoice charge freight = y Then prompt for frieght*)
    1519. 

  1519.   581  
    1520. 

  1520.   582  END PrintInvoice;
    1521. 

  1521. *****      ^ not supported yet
    1522. 

  1522.   583  
    1523. 

  1523.   584  
    1524. 

  1524.   585  
    1525. 

  1525.   586  END InvoicePrint.
    1526. 

  1526. *****      ^ not supported yet
    1527. 

  1527. 

  1528.   938 errors
    1529. 

  1529. 

  1530.