Talha Try this [Collection : Active Batches] Filter : ChkClsBal [System : Formula] Chkclsbal : Not $$IsEmpty:$Closingbalance and not $$isNegative:$Closingbalance
Sir, I have the following invoice printing code. I have same items in different Batches , which to be printed below one by one Practically , Many batches of the same product to be printed in INVOICE , with qty, MRP, Rate, etc. Will you please help me by rewriting the same.. Thanks in Advance ... [#Part: VTYP BehaviourMain] Add : Line : After : VTYP Dec: VTYP DECL2TL,VTYP DECL2 [Line: VTYP DECL2TL] Field : Simple Prompt Local : Field: Simple Prompt : Set As : "Declaration 2" Local : Field: Simple Prompt : Style : Small Bold Local : Field: Simple Prompt : Border : Thin Bottom Local : Field: Simple Prompt : Width : 13 [Line: VTYP DECL2] Field : VTYP DECL2 Space Top : .50 [Field: VTYP DECL2] Line : 4 Full width : Yes Storage : VTYPDECL2 Max : 500 [System: UDF] VTYPDECL2 : String : 23102 ;;;--- [#Part: CMP Tax Info] Add : Line : At End : CMP DLNNoTL [Line: CMP DLNNoTL] Right Field : Medium Prompt Local : Field : Medium Prompt : Set as : "Drug Lic No. :" Option : Small Size Line Space Top : 0.4 [#Part: CMP Tax Value] Add : Line : At End : CMP DLNNoVAL [Line: CMP DLNNoVAL] Field : Name Field Local : Field : Name Field : Storage : CMPDLNNoVAL Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Max : 200 Local : Field : Name Field : Line : 2 Option : Small Size Line Space Top : 0.4 [#Part: LED Other Details] Add : Lines : At End : LED DLNo [Line: LED DLNo] Fields : Medium Prompt, LED DLNo Local : Field : Medium Prompt : Set as : $$LocaleString:"Drug Lic. No :" Invisible : NOT @@IsIndian [Field: LED DLNo] Use : Name Field Storage : LEDDLNo Full width : YEs Line : 2 Max : 200 [#Form: Sales Color] Delete : Print Add : Print : SalesHInv [Report: SalesHInv] Object : Voucher [Form: SalesHInv] Part : SalesHInv,SalesHInv2,SalesHInv21,SalesHInv3,SalesHInvBdyTL,SalesHInvBdy Bottom Part: SalesHInvBTM Space Left : 3 Space Right : 3 Page Break : ClosnPgBrk,OpPgBrk [Part: ClosnPgBrk] Line : ClosnPgBrk [Line: ClosnPgBrk] Field : Simple Field Local : Field : Simple Field : Set As : "Continuee....." [Part: OpPgBrk] Part : SalesHInv,SalesHInv2,SalesHInv3,SalesHInvBdyTL Vertical : Yes [Part: SalesHInv] Line: SalesHInv,SalesHCmpAddress,SalesHInvTL,SalesHInvTxTL Repeat : SalesHCmpAddress : CompanyAddress [Line: SalesHInv] Field : Name Field Local : Field : Name Field: Set As @CMPMailName Local : Field : Name Field: Full Width : Yes Local : Field : Name Field: Align : Center Local : Field : Name Field: Style : sob1 [Style: sob1] ; font:"Cooper Black" font:"Arial" Height : 28 [Line:SalesHCmpAddress] Field : Name Field Local : Field : Name Field: Set As: $Address Local : Field : Name Field: Full width : Yes Local : Field : Name Field: Align : Center Local : Field : Name Field: Style : sob2 [Style: sob2] font:"Courier New" Height : 14 [Line: SalesHInvTL] Space Top : .20 Field : Name Field Local : Field : Name Field: Set As :$VCHPrintTitle:VoucherType:##SVVoucherType Local : Field : Name Field: Align : Center Local : Field : Name Field: Full Width : Yes Local : Field : Name Field: Style : Large Bold [Line: SalesHInvTxTL] Field : Name Field Local : Field : Name Field: Set As :"(The Kerala Value Added Tax Rules 2005)" Local : Field : Name Field: Align : Center Local : Field : Name Field: Full Width : Yes Local : Field : Name Field: Style : Normal [Part: SalesHInv2] Space Top : 1 Part: SalesHInv2C Right Part: SalesHInv2R [Part: SalesHInv2C] Line : SalesHInv2C Width : 50 % Page [Line: SalesHInv2C] Field : Name Field Local : Field : Name Field : Set As : "Cash/Credit" Local : Field : Name Field : Align : Right Local : Field : Name Field : Full Width: Yes Local : Field : Name Field : Style : Large [Part: SalesHInv2R] Line : SalesHInv2RTIN,SalesHInv2RCST Width : 33 % Page [Line: SalesHInv2RTIN] Field : Short Prompt,SalesHInv2RTIN Local : Field : Short Prompt : Set As : "T.I.N :" [Field: SalesHInv2RTIN] Use : Name Field Set As : $VATTINNumber:Company:##SVCurrentCompany [Line: SalesHInv2RCST] Field : Short Prompt,SalesHInv2RCST Local : Field : Short Prompt : Set As : "C.S.T :" [Field: SalesHInv2RCST] Use : Name Field Set As : $InterstateSTNumber:Company:##SVCurrentCompany [Part: SalesHInv21] Line: SalesHCmpDLicno [Line: SalesHCmpDLicno] Space Top : .50 Field : Short Prompt,Name Field Local : Field : Short Prompt : Set As : "Drug Lic No. :" Local : Field : Name Field : Set As : $CMPDLNNoVAL:Company:##SVCurrentCompany Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Style : Normal [System: UDF] CMPDLNNoVAL : String : 21110 LEDDLNo : String : 21111 STKI MFR : String : 21112 [Part: SalesHInv3] Space Top : .50 Border : Thin Top Part : SalesHInv3L Right Part: SalesHInv3R [Part : SalesHInv3L] Line : SalesBuyerName,SalesBuyerAddress,SalesBuyerPh,SalesBuyerTin,SalesBuyerDLIC Repeat : SalesBuyerAddress : BasicBuyerAddress [Line:SalesBuyerName] Field : Short Prompt,Name Field Local : Field : Short Prompt: Set As : "Buyer :" Local : Field : Short Prompt: Width : 7 Local : Field : Name Field : Set As : $BasicBuyerName Local : Field : Name Field : Full width : Yes [Line:SalesBuyerAddress] Field : Short Prompt,Name Field Local : Field : Short Prompt: Width : 7 Local : Field : Short Prompt: Delete : Align : Prompt Local : Field : Name Field : Set As : $BasicBuyerAddress Local : Field : Name Field : Full width : Yes [Line:SalesBuyerPh] Field : Short Prompt ,Name Field Local : Field : Short Prompt: Set As : "Phone :" Local : Field : Short Prompt: Width : 7 Local : Field : Name Field : Set As : $LedgerPhone:Ledger:$PartyLedgerName [Line:SalesBuyerTin] Field : Short Prompt ,Name Field Local : Field : Short Prompt: Set As : "Tin :" Local : Field : Short Prompt: Width : 8 Local : Field : Name Field : Set As : $BasicBuyersSalesTaxNo Local : Field : Name Field : Full width : Yes [Line: SalesBuyerDLIC] Field : Short Prompt ,Name Field Local : Field : Short Prompt: Set As : "Drug Lic No:" Local : Field : Short Prompt: Width : 8 Local : Field : Name Field : Set As : $LEDDLNo:Ledger:$PartyLedgerName Local : Field : Name Field : Line : 0 Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Style : Normal [Part: SalesHInv3R] Line : SalesInvNo,SalesInvDate,SalesInvMOP,SalesInvDEL,SalesInvOrd,+ SalesInvDest,SalesInvDThr [Line: SalesInvNo] Field : Medium Prompt,Name Field Local : Field : Medium Prompt : Set As : "Invoice No. :" Local : Field : Name Field : Style : Large Bold Local : Field : Name Field : Set As : $VoucherNumber Local : Field : Name Field : Style : Large Bold [Line: SalesInvDate] Field : Medium Prompt,Name Field Local : Field : Medium Prompt : Set As : "Invoice Date :" Local : Field : Name Field : Set As : $Date Local : Field : Name Field : Style : Large Bold [Line: SalesInvMOP] Field : Medium Prompt,Name Field Local : Field : Medium Prompt : Set As : "Mode of Payment :" Local : Field : Name Field : Set As : $BasicDueDateOfPymt Local : Field : Name Field : Style : Normal [Line: SalesInvDEL] Field : Medium Prompt,Name Field Local : Field : Medium Prompt : Set As : "DL Note No : " Local : Field : Name Field : Set As : $BasicShipDeliveryNote Local : Field : Name Field : Style : Normal [Line: SalesInvOrd] Field : Medium Prompt,Name Field Local : Field : Medium Prompt : Set As : "Order No : " Local : Field : Name Field : Set As : $BasicPurchaseOrderNo Local : Field : Name Field : Style : Normal [Line: SalesInvDest] Field : Medium Prompt,Name Field Local : Field : Medium Prompt : Set As : "Destination: " Local : Field : Name Field : Set As : $BasicFinalDestination Local : Field : Name Field : Style : Normal [Line: SalesInvDThr] Field : Medium Prompt,Name Field Local : Field : Medium Prompt : Set As : "Despatch Through: " Local : Field : Name Field : Set As : $BasicShippedBy Local : Field : Name Field : Style : Normal ;-SalesHInvBdy [Part: SalesHInvBdyTL] Line : SalesHInvBdyTL1,SalesHInvBdyTL2 Border : Thin Top Bottom Space Bottom: .40 Space Top : .40 [Line: SalesHInvBdyTL1] Field : SalesHInvSl,SalesHInvDesc Right Field : SalesHInvMFR,SalesHInvBTH,SalesHInvExp,SalesHInvQty,SalesHInvRate,SalesHInvMRP,SalesHInvDIS,SalesHInvVAT1, SalesHInvAMT,IndQD Local : Field : SalesHInvSl : Set As : "Sl" Local : Field : SalesHInvDesc : Set As : "Description" Local : Field : SalesHInvMFR : Set As : "MFR" Local : Field : SalesHInvBTH : Set As : "Batch" Local : Field : SalesHInvExp : Set As : "Expiry" Local : Field : SalesHInvQty : Set As : "Quanty" Local : Field : SalesHInvRate : Set As : "Rate" Local : Field : SalesHInvMRP : Set As : "M.R.P" Local : Field : SalesHInvDIS : Set As : "Disc." Local : Field : SalesHInvVAT1 : Set As : "Tax" Local : Field : SalesHInvAMT : Set As : "Amount" Local : Field : IndQD : Set As : "Free" Local : Field : Default : Type : String Local : Field : Default : Align : Center [Line: SalesHInvBdyTL2] Field : SalesHInvSl,SalesHInvDesc Right Field : SalesHInvMFR,SalesHInvBTH,SalesHInvExp,SalesHInvQty,SalesHInvRate,SalesHInvMRP,SalesHInvDIS,SalesHInvVAT1, SalesHInvAMT,IndQD Local : Field : SalesHInvSl : Set As : "No" Local : Field : SalesHInvDesc : Set As : "" Local : Field : SalesHInvMFR : Set As : "" Local : Field : SalesHInvBTH : Set As : "Number" Local : Field : SalesHInvExp : Set As : "Date" Local : Field : SalesHInvQty : Set As : "" Local : Field : SalesHInvRate : Set As : "" Local : Field : SalesHInvMRP : Set As : "" Local : Field : SalesHInvDIS : Set As : "%" Local : Field : SalesHInvVAT1 : Set As : "%" Local : Field : SalesHInvAMT : Set As : "" Local : Field : IndQD : Set As : "Quanty" Local : Field : Default : Type : String Local : Field : Default : Align : Center [Part: SalesHInvBdy] Line : SalesHInvBdy Repeat : SalesHInvBdy : Inventory Entries Scroll : Vertical Common Border : Yes Float : No [Line: SalesHInvBdy] Field : SalesHInvSl,SalesHInvDesc Right Field : SalesHInvMFR,SalesHInvBTH,SalesHInvExp,SalesHInvQty,SalesHInvRate,SalesHInvMRP,SalesHInvDIS,SalesHInvVAT1, SalesHInvAMT,IndQD Space Top : .40 Explode : EI DescExplosion : NOT $$IsEmpty:$StockItemName AND ##ICFGAddlDesc AND NOT $$IsEmpty:$UserDescription local :line: EI DescExplosion :spaceRight:10 [Field: SalesHInvSl] Use : Name Field Set As : $$Line Width : 3 Style : Normal Border : Thin LeftRight [Field: SalesHInvDesc] Use : Name Field Set As : $StockItemName Style : Normal [Field: SalesHInvMFR] Use : Name Field Set As : $Category:Stockitem:$StockITemName Width : 4 Style : Normal Border : Thin Left Align : Center [Field: SalesHInvBTH] Use : Name Field Set As : $$CollectionField:$BatchName:1:BatchAllocations Width : 8 Style : Normal Border : Thin Left Align : Center [Field: SalesHInvExp] Use : Due Date Field Set As : $$CollectionField:$EXPIRYPERIOD:1:BatchAllocations Border : Thin Left Style : Normal Width : 7 Align : Center [Field: SalesHInvQty] Use : Qty Primary Field Set As : $BilledQty Width : 5 Border : Thin Left Style : Normal Align : Centre [Field: SalesHInvRate] Use : Rate Price Field Set As : $Rate Style : Normal Border : Thin Left Align : centre Width : 6 [Field: SalesHInvMRP] Use : Number Field Set As : $RATEOFMRP:Stockitem:$StockitemName Style : Normal Format : "NoZero" Width : 6 Border : Thin Left Align : centre [Field: SalesHInvDIS] Use : Number Field Format : "Percentage" Set As : $Discount Width : 4 Align : Center Style : Normal Border : Thin LeftRight [Field: SalesHInvVAT1] Use : Number Field Set As : $RateOfVat:StockItem:$StockItemName Style : Normal Align : Center Format : "NoZero" Border : Thin LeftRight Width : 5 [Field: SalesHInvAMT] Use : Amount Field Set As : $Amount Style : Normal Width : 8 Align : Right ;;; Center [Field : IndQD] Use : Qty Primary Field Set As : $ActualQty - $BilledQty Width : 4 Border : Thin Left Style : Normal Format : "NoZero" Border : ThinLeftRight Align : Center [Part: SalesHInvBdyBTH] Line : SalesHInvBdyBTH Repeat : SalesHInvBdyBTH : Batch Allocations [Line: SalesHInvBdyBTH] Field : SalesHInvSl,SalesHInvDesc Right Field : SalesHInvMFR,SalesHInvBTH,SalesHInvExp,SalesHInvQty,SalesHInvRate,SalesHInvMRP,SalesHInvDIS,SalesHInvVAT1, SalesHInvAMT,IndQD Local : Field : SalesHInvDesc : Set As: "" Local : Field : SalesHInvMFR : Set As: "" Local : Field : SalesHInvBTH : Set As: "" Local : Field : SalesHInvExp : Set As: "" Local : Field : SalesHInvQty : Set As: "" Local : Field : SalesHInvRate : Set As: "" Local : Field : SalesHInvMRP : Set As: "" Local : Field : SalesHInvDIS : Set As: "" Local : Field : SalesHInvVAT1 : Set As: "" Local : Field : SalesHInvAMT : Set As: "" Local : Field : IndQD : Set As: "" [Part: SalesHInvBTM] Border : Thin Top Space Top : .50 Part : SalesHInvBTML Right Part : SalesHInvBTMR [Part: SalesHInvBTML] Line : SalesHInvBTML1TL,SalesHInvBTML1Wrd,SalesHInvBTMLDeclTL,SalesHInvBTMLDecl,SalesHInvBTMLDecl2 [Line: SalesHInvBTML1TL] Field : Name Field Local : Field : Name Field : Set As : "Amount Chargable (in words)" Local : Field : Name Field : Style : Normal Local : Field : Name Field : Full width : Yes [Line: SalesHInvBTML1Wrd] Field : Name Field Local : Field : Name Field : Set As : $$InWords:$Amount + " Only" Local : Field : Name Field : Full width : Yes [Line: SalesHInvBTMLDeclTL] Space Top : 1 Field : Name Field Local : Field : Name Field : Set As : "Declaration:" Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Style : Normal [Line: SalesHInvBTMLDecl] Space Top : 1 Field : Name Field Local : Field : Name Field : Set As : $VCHPrintDecl:VoucherType:##SVVoucherType Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Line : 0 Local : Field : Name Field : Style : Normal [Line: SalesHInvBTMLDecl2] Space Top : 1 Field : Name Field Local : Field : Name Field : Set As : $VTYPDECL2:VoucherType:##SVVoucherType Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Line : 0 Local : Field : Name Field : Style : Normal [Part: SalesHInvBTMR] Line : SalesHInvBTML1,SalesHInvLedger,SalesHInvToT,SalesHInvFor,SalesHInvForSigh Repeat : SalesHInvLedger : Ledger Entries Width : 40 % Page [Line: SalesHInvBTML1] Right Field : Name Field ,SalesHInvAMT Local : Field : Name Field : Set As : "Total :" Local : Field : Name Field : Style : Normal Local : Field : SalesHInvAMT : Set As : $$CollAmtTotal:InventoryEntries:$Amount Local : Field : SalesHInvAMT : Style : Normal Bold [Line: SalesHInvLedger] Right Field : Name Field,SalesHInvAMT Local : Field : Name Field : Set As : $LedgerName Local : Field : Name Field : Style : Normal Local : Field : SalesHInvAMT : Set As : $Amount Local : Field : SalesHInvAMT : Style : Normal Bold Empty: $LedgerName = $PartyLedgerName [Line: SalesHInvToT] Space Top : 1 Right Field : Name Field,SalesHInvAMT Local : Field : Name Field : Set As : "Invoice Value" Local : Field : Name Field : Style : Large Local : Field : SalesHInvAMT : Set As : $Amount Local : Field : SalesHInvAMT : Style : Large Bold [Line: SalesHInvFor] Space Top : 1 Right Field : Name Field Local : Field : Name Field : Set As : "For " + @@CMPMailName Local : Field : Name Field : Style : Large Bold [Line: SalesHInvForSigh] Space Top : 3 Right Field : Name Field Local : Field : Name Field : Set As : "Authorised Signatory" Local : Field : Name Field : Style : Normal Bold
Now we hv an option in Tally by Default in Sales F-12 Settings Honor Expiry Date for Batches use this option
