[#Form: Comprehensive Invoice] Option: Global Invoice : @@IsSales ;;AND ##InvVarC1 [#Form: Simple Printed Invoice] Option: Global Invoice : @@IsSales ;;AND ##InvVarC1 [!Form : Global Invoice] Delete : Parts Delete : Bottom Parts Delete : PageBreak ;;Height: 6.3 inch Width: 8 inch ;;Space Top: 0.75 inch ;;Space Bottom: 0.25 inch Space Left : 0.1 inch Space Right : o Add : Parts : Global Invoice Top Part Add : Parts : INV Title Add : Parts : GLobal Middle Part Add : Parts : Global Middle1 Part Add : Parts : Global Invoice Body Part Add : Bottom Parts : Global Invoice Bottom Part Add : Pagebreak : CLPGBrk,OPGBrk ;;===========================TOP PART==================================== [Part: Global Invoice Top Part] Lines : GI Cmp Name,Global CMPAddress1 Repeat : Global CMPAddress1 : CompanyAddress [Line: GI Cmp Name] Fields : Simple Field Local: Field: Simple Field : Set As : @@CmpMailName Local: Field: Simple Field : Align : Center Local: Field: Simple Field : FullWidth : Yes Local: Field: Simple Field : WideSpaced: Yes ;;Local: Field: Simple Field : Style : Cmp Style [Part:inv title] Line: inv title [Line: inv title] Field: inv title [Field: inv title] Use: name field Set as: ##ReportTitle Align: Center Full Width:Yes;invoice ;$VCHPrintTitle:VoucherType:##SVVoucherType Style: MyStyle [Style: MyStyle] Font: Verdana Bold: Yes Height: 15 [Line: Global CMPAddress1] Fields : Global CMPAddress1 [Field: Global CMPAddress1] Use : Name Field Set as : $Address Indent : 10 FullWidth: Yes Align : Centre ;;============================================================================== [Part: GLobal Middle Part] Left Parts: PWP Part1 Left Part Right Parts: PWP Part1 Right Part [Part: PWP Part1 Left Part] Line: Global PartyName, Global Buyer [Line: Global PartyName] Field : Global PartyName [Field: Global PartyName] Use: Name Field Set as : "Party:" +$LedgerName Full Width:Yes Align: Left [Line: Global Buyer] Field: Global Buyer [Field: Global Buyer] Use: Name Field Set as: "Buyer:" + $BASICBUYERNAME ;;Space Left: 5 Full Width:Yes [PartWP Part1 Right Part ] Line: Global Date, Global VCHNo, Global User [Line: Global VCHNo] Field : Global VCHNo [Field: Global VCHNo] Use : Short Name Field Set as : "Voucher No:" +$VoucherNumber Align: Right Full Width:Yes ;;Space Right: 4 [Line: Global Date ] Field : Global Date [Field: Global Date] Use: Short Date Field Set as: $Date Align:Right Full Width:Yes ;;Space Right: 11 [Line: Global User] Field : Global User [Field: Global User] Use: Name Field Set as:"User Id:" +$$CmpUserName Align: Right Full Width:Yes ;;====================================================================== [Part: Global Middle1 Part] Line: Global ColumnTitles ;;Space Bottom: 0 inch [Line: Global Column Titles] Use : IE Details Local: Field: Default : Lines : 1 Local: Field: Default : Type : String Local: Field: Default : Style : Normal Bold Local: Field: IE SrNo : Set as : "Sr" Local: Field: IE SiName : Set as : "Name" Local: Field: IE Qty : Set as : "Qty" Local: Field: IE Per : Set as : "Per" Local: Field: IE Rate : Set as : "Rate" Local: Field: IE Amount : Set as : "Amount" Local: Field: IE VatAmt : Set as : "VAT Amt " Local: Field: IE TotalAmt : Set as : "Total Amt" Border : Column Titles [Part: Global Invoice Body Part] Parts : IE Details, LE Details Vertical : Yes Scroll : Vertical Common Border: Yes [Part: IE Details] Lines : IE Details Repeat : IE Details : Inventory Entries Total : IE Qty, IE Amount [Line: IE Details] Fields : IE SrNo, IE SiName, IE Qty, IE Per, IE Rate, IE Amount, IE VatAmt, IE TotalAmt ;;Right Fields: IE Qty, IE Per, IE Rate, IE Amount ;;Explode : Item Desc : $$NumItems:UserDescription > 0 ;;===========================> new feature [Part: Item Desc] Lines : Item Desc Repeat : Item Desc : UserDescription [Line: Item Desc] Fields : Item Desc Space Bottom: 0 [Field: Item Desc] Use : Name Field ;;Width: 3 Inch Width : 55 ;;Indent : 8 Set as : $UserDescription Style : Normal Italic [Field: IE SrNo] Use : Number Field Set As : $$Line Format : "NoZero" Style : Normal ;;Width: 0.5 Inch Width : 10 ;;Page Border: Thin Left [Field: IE SIName] Use : Name Field Set as : $StockItemName Width: 60 Border : Thin Left ;;Width : 30% ;; Page /* Width: @NAWidth Page NAWidth : If $$InDMPMode then 20% Else + If $$InDraftMode then 30% Else 24% */ [Field: IE VatAmt] Use : Name Field Set as : "" ;;$BatchTaxIncRate/((100 + $FSRateOfVAT:StockItem:$StockItemName)/100) ;; Border : Thin Left Width : 20 ;;Page Style : Small Italic [Field: IE TotalAmt] Use : Name Field Set as : "" ;;$Amount ;; Border : Thin left Right Width : 30 ;;Page Align : Centre Style : Small [Field: IE Qty] Use : Number Field Set as : $BilledQty Border : Thin Left Format : "NoZero" Width : 25 ;;Page /* Width: @QTWidth Page QTWidth : If $$InDMPMode then 10% Else + If $$InDraftMode then 10% Else 6% */ Align : Right [Field: IE Rate] Use : Rate Price Field Set as : $Rate Border : Thin Left Width : 20 ;;Page /* Width: @RAWidth Page RAWidth : If $$InDMPMode then 10% Else + If $$InDraftMode then 10% Else 6% */ Format : "NoZero" Align : Right [Field: IE Per] Use : Rate Units Field Set as : $Rate Border : Thin Left Width : 15 ;; ;;Page /* Width: @PEWidth Page PEWidth : If $$InDMPMode then 5% Else + If $$InDraftMode then 7% Else 6% */ Align : Centre [Field: IE Amount] Use : Amount Field Set as : $Amount Border : Thin Left Right Align : Right Format : "NoZero" Width : 38 ;;Page /* Width: @AMWidth Page AMWidth : If $$InDMPMode then 5% Else + If $$InDraftMode then 17% Else 12% */ [Part: LE Details] Lines : LE Details Repeat : LE Details : Ledger Entries Scroll : Vertical [Line: LE Details] Use : IE Details Local: Field: IE SrNo : Set as : "" Local: Field: IE SiName : Set as : $LedgerName Local: Field: IE Qty : Set as : "" Local: Field: IE Rate : Set as : $$String:$RateOfInvoiceTax + "%" Local: Field: IE Amount : Set as : $Amount Local: Field: IE SiName : Align : Right Local: Field: IE Qty : Format : "NoZero" Local: Field: IE Rate : Inactive : $RateOfInvoiceTax = 0 Local: Field: IE Rate : Type : String Remove if : $LedgerName = $PartyLedgerName [Part: Global Invoice Bottom Part] Lines : Global Total Line, Global AmtInWords, Global ForCmp, Global AuthSign, Global Declaration, Global Last [Line: Global Total Line] Use : IE Details Local: Field: Default : Style : Normal Bold Local: Field: IE SrNo : Set as : "" Local: Field: IE SiName : Set as : "Totals" Local: Field: IE Qty : Set as : $$Total:IEQty Local: Field: IE Rate : Set as : "" Local: Field: IE Discount : Set as : $$Total:IEDiscount Local: Field: IE Amount : Set as : $$Total:IEAmount Border : Totals [Line: Global AmtInWords] Field : Global AmtInWords ;;Local: Field: Short Prompt : Set as : "Amt: " [Field: Global AmtInWords] Use : Name Field Set as :"Amount Chargeable (in Words):" +$$InWords:$Amount + " Only" FullWidth : Yes Align: Left Style : Small ;;=======================================DECLARATION=========================== [Line: Global ForCmp] Right Fields: Global ForCmp [Field: Global ForCmp] Use : Name Field Set as : "For " + @@CMPMailNAme Align : Right Full Width:Yes [Line: Global AuthSign] Right Fields: Global AuthSign Space Top : 2 [Field: Global AuthSign] Use : Name Field Set as : "Authorised Signatory" Full Width:Yes Align : Right [Line: Global Declaration] Field : Global Declaration [Field: Global Declaration] Set as:"Declaration:" +$VCHPrintDecl:VoucherType:##SVVoucherType Full Width:Yes Align: Left [Line: Global Last] Field: Global Last [Field: Global Last] Set as: "This is Computer Generated Invoice" Align: Center Full Width:Yes ;;========================================================================================= [Part: CLPGBrk] Line: CLPGBrkln [Line: CLPGBrkln] Right Field: CLPG Brkfld [Field: CLPG Brkfld] Use: Name Field Set as: "Continued........." [Part: OPGBrk] Use: Global Invoice Top Part, INV Title, Global Middle1 Part ;;Top Space: 0 ;;=================================rate control================================== [*Part: POS InvInfo] Line : POS InvColTitleOne,POS InvDetails, POS SubTotal Repeat : POS InvDetails : Inventory Entries Scrolled : Vertical Total : POS InvQty, POS InvAmount [*Line: POS InvColTitleOne] Fields : POS SLNoTitle, POS DescTitle Right Fields: POS ExpDateTitle,POS BatchTitle,POS QtyTitle, POS RateTitle, POS InvAmountTitle Border : Thin Bottom ;: NOT ##SAWithBatches [*Line: POS InvDetails] Fields : POS SLNo, POS InvDesc Right Fields: POS ExpDate,POS Batch,POS InvQty, POS InvRate, POS InvAmount, POS InvFreeItem ; Explode : POS BatchDetails : @@HasBatchWise AND NOT $$IsEmpty:$StockItemName AND ##SAWithBatches Explode : POS InvDiscount : NOT $$IsEmpty:$Discount AND NOT $$IsEmpty:$StockItemName Explode : POS InvMRP : NOT $$IsEmpty:$MRPRate AND NOT $$IsEmpty:$StockItemName AND ##SAWithMRPMarginal Explode : POS InvFreeSample : $ActualQty > $BilledQty AND NOT $$IsEmpty:$StockItemName Explode : POS DescExplosion : NOT $$IsEmpty:$StockItemName AND @@InvWithAddl AND NOT $$IsEmpty:$BasicUserDescription AND ##SATraderAddlDesc NextPage : NOT $$DoExplosionsFit OR + (($$LineNumber = $$LastLineNumber) AND $$IsLastOfSet) ;;782982729
Following changes in ur code, 1. a. IE VatAmt Field convert Amount field b.Set as : write amount * $$Filtervalue:$RateOfInvoiceTax:Ledgerentries:1:urformula for vat % 2. a.IE TotalAmt Field convert Amount field b.IE Amount + IE VatAmt
; [#Part: EXPSMP AccDetails] ; Add : Lines : At End : EXPSMP AccRounOffDetails [#Line: EXPSMP AccDetails] Empty : $$IsEmpty:$Amount AND $RemoveZeroEntries OR @@TaxLedgerHasService OR @@IsVATCSTLed OR @@IsVATSurLed Or ($LedgerName = $PartyLedgerName) [Line : EXPSMP AccRounOffDetails] Use : EXPSMP AccDetails Delete : Explode Delete : Empty Delete : Option Local : Field : EXPINV AccDesc : Set as : "Rounded Off" Local : Field : EXPINV AccAmount : Set as : $Amount-($$CollAmtTotal:InventoryEntries:$Amount) ; [#Part: EXPINV AccInfo] ; Add : Lines : At End : EXPINV AccRounOffDetails [#Line: EXPINV AccDetails] Empty : $$IsEmpty:$Amount AND $RemoveZeroEntries OR @@IsVATCSTLed OR @@IsVATSurLed Or ($LedgerName = $PartyLedgerName) [Line : EXPINV AccRounOffDetails] Use : EXPINV AccDetails Delete : Explode Delete : Empty Delete : Option Local : Field : EXPINV AccDesc : Set as : "Rounded Off" Local : Field : EXPINV AccAmount : Set as : $Amount-($$CollAmtTotal:InventoryEntries:$Amount) [#Line: EXPINV Column1] Add : Right Field : Before : EXPINV AmountTitle : SAPP TOTAmt, SAPP VATAmt Local : Field : SAPP TOTAmt : Info : "Amount" ; change the name Local : Field : SAPP VATAmt : Info : "VAT Amt" [#Line: EXPINV Column2] Add : Right Field : Before : EXPINV AmountTitle : SAPP TOTAmt, SAPP VATAmt Local : Field : SAPP TOTAmt : Info : "" Local : Field : SAPP VATAmt : Info : "" [#Part: EXPINV Details] Total : SAPP VATAmt, SAPP TOTAmt [#Part: EXPINV InvInfo] Total : SAPP VATAmt, SAPP TOTAmt [#Part: EXPINV AccInfo] Total : SAPP VATAmt, SAPP TOTAmt [#Line: EXPINV InvDetails] Add : Right Field :Before: EXPINV Amount : SAPP TOTAmt, SAPP VATAmt Local : Field : EXPINV Amount : Set as: #SAPPTOTAmt + #SAPPVATAmt ;; Local : Field : SAPP TOTAmt : Set As: $AdditionalDetails.Amount ;[Report: MyReport];;;;;;;;;;;;;;;;;;;;;;;;;;;;new line [Field: SAPP TOTAmt] Use : Amount Field Style : Normal Bold Set as : $Amount Border : Thin Left [Field: SAPP VATAmt] Use : Amount Field ;Number Field Style : Normal Bold Set as : ($$Number:$Amount*$$Number@SAPVATPer)/100 ;;;;;; Border : Thin Left [#Line: EXPINV InvSubTotal] Add : Right Fields: Before : EXPINV ValueSubTotal : SAPP TOTAmt, SAPP VATAmt Local : Field : EXPINV ValueSubTotal : Set as : "" Local : Field : SAPP VATAmt : Set as : "" Local : Field : SAPP TOTAmt : Set as : "" [#Line: EXPINV AccDetails] Add : Right Field : Before : EXPINV AccAmount : SAPP TOTAmt, SAPP VATAmt Local : Field : SAPP VATAmt : Set as : "" Local : Field : SAPP TOTAmt : Set as : "" [#Line: EXPINV Totals] Add : Right Field : Before : EXPINV Total : SAPP TOTAmt,SAPP VATAmt Local : Field : SAPP VATAmt : Set as : $$Total:SAPPVATAmt Local : Field : SAPP TOTAmt : Set as : $$Total:SAPPTOTAmt [System: Formula] SAPPVatFilter : @@IsVATCSTLedTube ;$LedgerName Contains "VAT" ;$TaxType:Ledger:$LedgerEntries[1].LedgerName = "VAT" SAPPCSTFilter : @@IsVATSurLedTube ;$LedgerName Contains "CST";$TaxType:Ledger:$LedgerEntries[1].LedgerName= "CST" SAPPVATCSTFilter : @@SAPPVatFilter OR @@SAPPCSTFilter IsVATCSTLed : $LedgerName Contains "Vat" or $LedgerName Contains "CST" ;@@InvoiceVATLedger OR @@InvoiceCSTLedger IsVATSurLed : $LedgerName Contains "Surcharge" SAPVATPer : $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATCSTLed ;IF $$IsEmpty:$$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATCSTLed Then $$Number:0 Else $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATCSTLed SAPVATSurPer : $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATSurLed ;IF $$IsEmpty:$$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATSurLed Then $$Number:0 Else $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATSurLed ;@@InvoiceVATLedger And
; [#Part: EXPSMP AccDetails] ; Add : Lines : At End : EXPSMP AccRounOffDetails [#Line: EXPSMP AccDetails] Empty : $$IsEmpty:$Amount AND $RemoveZeroEntries OR @@TaxLedgerHasService OR @@IsVATCSTLed OR @@IsVATSurLed Or ($LedgerName = $PartyLedgerName) [Line : EXPSMP AccRounOffDetails] Use : EXPSMP AccDetails Delete : Explode Delete : Empty Delete : Option Local : Field : EXPINV AccDesc : Set as : "Rounded Off" Local : Field : EXPINV AccAmount : Set as : $Amount-($$CollAmtTotal:InventoryEntries:$Amount) ; [#Part: EXPINV AccInfo] ; Add : Lines : At End : EXPINV AccRounOffDetails [#Line: EXPINV AccDetails] Empty : $$IsEmpty:$Amount AND $RemoveZeroEntries OR @@IsVATCSTLed OR @@IsVATSurLed Or ($LedgerName = $PartyLedgerName) [Line : EXPINV AccRounOffDetails] Use : EXPINV AccDetails Delete : Explode Delete : Empty Delete : Option Local : Field : EXPINV AccDesc : Set as : "Rounded Off" Local : Field : EXPINV AccAmount : Set as : $Amount-($$CollAmtTotal:InventoryEntries:$Amount) [#Line: EXPINV Column1] Add : Right Field : Before : EXPINV AmountTitle : SAPP TOTAmt, SAPP VATAmt Local : Field : SAPP TOTAmt : Info : "Amount" ; change the name Local : Field : SAPP VATAmt : Info : "VAT Amt" [#Line: EXPINV Column2] Add : Right Field : Before : EXPINV AmountTitle : SAPP TOTAmt, SAPP VATAmt Local : Field : SAPP TOTAmt : Info : "" Local : Field : SAPP VATAmt : Info : "" [#Part: EXPINV Details] Total : SAPP VATAmt, SAPP TOTAmt [#Part: EXPINV InvInfo] Total : SAPP VATAmt, SAPP TOTAmt [#Part: EXPINV AccInfo] Total : SAPP VATAmt, SAPP TOTAmt [#Line: EXPINV InvDetails] Add : Right Field :Before: EXPINV Amount : SAPP TOTAmt, SAPP VATAmt Local : Field : EXPINV Amount : Set as: #SAPPTOTAmt + #SAPPVATAmt ;; Local : Field : SAPP TOTAmt : Set As: $AdditionalDetails.Amount ;[Report: MyReport];;;;;;;;;;;;;;;;;;;;;;;;;;;;new line [Field: SAPP TOTAmt] Use : Amount Field Style : Normal Bold Set as : $Amount Border : Thin Left [Field: SAPP VATAmt] Use : Amount Field ;Number Field Style : Normal Bold Set as : ($$Number:$Amount*$$Number@SAPVATPer)/100 ;;;;;; Border : Thin Left [#Line: EXPINV InvSubTotal] Add : Right Fields: Before : EXPINV ValueSubTotal : SAPP TOTAmt, SAPP VATAmt Local : Field : EXPINV ValueSubTotal : Set as : "" Local : Field : SAPP VATAmt : Set as : "" Local : Field : SAPP TOTAmt : Set as : "" [#Line: EXPINV AccDetails] Add : Right Field : Before : EXPINV AccAmount : SAPP TOTAmt, SAPP VATAmt Local : Field : SAPP VATAmt : Set as : "" Local : Field : SAPP TOTAmt : Set as : "" [#Line: EXPINV Totals] Add : Right Field : Before : EXPINV Total : SAPP TOTAmt,SAPP VATAmt Local : Field : SAPP VATAmt : Set as : $$Total:SAPPVATAmt Local : Field : SAPP TOTAmt : Set as : $$Total:SAPPTOTAmt [System: Formula] SAPPVatFilter : @@IsVATCSTLedTube ;$LedgerName Contains "VAT" ;$TaxType:Ledger:$LedgerEntries[1].LedgerName = "VAT" SAPPCSTFilter : @@IsVATSurLedTube ;$LedgerName Contains "CST";$TaxType:Ledger:$LedgerEntries[1].LedgerName= "CST" SAPPVATCSTFilter : @@SAPPVatFilter OR @@SAPPCSTFilter IsVATCSTLed : $LedgerName Contains "Vat" or $LedgerName Contains "CST" ;@@InvoiceVATLedger OR @@InvoiceCSTLedger IsVATSurLed : $LedgerName Contains "Surcharge" SAPVATPer : $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATCSTLed ;IF $$IsEmpty:$$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATCSTLed Then $$Number:0 Else $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATCSTLed SAPVATSurPer : $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATSurLed ;IF $$IsEmpty:$$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATSurLed Then $$Number:0 Else $$FilterValue:$BasicRateofInvoiceTax:LedgerEntries:1:IsVATSurLed ;@@InvoiceVATLedger And
its not working properly, bro please rectify it, and bro change your proforma of coding, because its change totally print proforma.We want your uploaded (jpg file) format. ADMIN PLZ HELP!!!!!!!!
help me to print these two added columns in sales invoice ;; Sri Ganeshji : Sri Balaji : Sri Pitreshwarji : Sri Durgaji : Sri Venkateshwara /* Objective(s) - - This code demonstrates the alteration of sales Voucher - Additional columns have been added in Sales Invoice Last modification - - Altered on 09-11-2009 */ [#Line: EI ColumnOne] ;; Invoice Column Headings1 without class Option : Global EI ColumnOne : @@IsSales ;; "Global" prefix is added for better readability of the code [!Line: Global EI ColumnOne] Add : Right Fields : At Beginning : Global VCH Marks, Global VCH NumPack ;;Need to mention Right Fields, since just Field means Left Field ;;and we need “NumPack†Column to the right of the screen at beginning Local : Field : Default : Align : Center Local : Field : Global VCH Marks : Info : "Marks" Local : Field : Global VCH NumPack : Info : "No. of Packages" [#Line: EI ColumnTwo] ;; Invoice Column Headings1 without class Option : Global EI ColumnTwo : @@IsSales [!Line: Global EI ColumnTwo] Add : Right Fields : At Beginning : Global VCH Marks, Global VCH NumPack Local : Field : Default : Align : Center Local : Field : Global VCH Marks : Info : "" Local : Field : Global VCH NumPack : Info : "" [#Line: EI InvDetails] Option : Global EI InvDetails : @@IsSales [!Line: Global EI InvDetails] Delete : Lines : EI Marks, EI NumPackages [#Line: CI InvDetails] Option : Global CI InvDetails : @@IsSales [!Line: Global CI InvDetails] Delete : Lines : CI MarksPackages [#Line: EI InvInfo] ;; Invoice Inventory Entries without Class Option : Global EI InvInfo : @@IsSales [#Line: CI InvInfo] ;; Invoice Inventory Entries with Class Option : Global EI InvInfo : @@IsSales [!Line: Global EI InvInfo] Add : Right Fields : At Beginning : Global VCH Marks, Global VCH NumPack Local : Field : Global VCH Marks : Storage : BasicPackageMarks Local : Field : Global VCH NumPack : Storage : BasicNumPackages [Field: Global VCH Marks] Use : Short Name Field Width : 8 Align : Right Border : Thin Left Right Invisible : NOT ##VrVarC1 Skip on : $$IsEnd:$StockItemName ;; Inactive : $$IsEnd:$StockItemName [Field: Global VCH NumPack] Use : Short Name Field Width : 12 Align : Right Border : Thin Left Right Invisible : NOT ##VrVarC1 Skip on : $$IsEnd:$StockItemName ;; Inactive : $$IsEnd:$StockItemName [#Form: Export Invoice] Option : Global Export Invoice NP : @@IsSales [!Form : Global Export Invoice NP] Local : Line : VCH NarrPrompt: Add : Right Fields : At Beginning : Global Total Marks, Global Total NumPack [Field: Global Total Marks] Use : Global VCH Marks Border : Totals Set as : $$String@NumPackMarksTotal Set always : Yes Skip : Yes [Field: Global Total NumPack] Use : Global VCH NumPack Border : Totals Set as : $$String@NumNumPackTotal Skip : Yes Set always : Yes [System: Formula] NumNumPack : $$Number:$BasicNumPackages NumNumPackTotal : $$CollNumTotal:InventoryEntries@NumNumPack NumPackMarks : $$Number:$BasicPackageMarks NumPackMarksTotal : $$CollNumTotal:InventoryEntries@NumPackMarks ;; End-of-File