Code: ;;========== Narration Part ==================;; [#Field: VCH Narration] Use : Voucher Narration Field Lines : 4 Storage : Narration Set as : If ($$InCreateMode Or $$IsEmpty:$Narration) And ($$IsPayment:##SVVoucherType Or $$IsReceipt:##SVVoucherType) And @@IsBankLedPresent then "Ch. No. : " + $DueDateOfPymt + @CheDate + " " + (if $$IsEndOfList:$BankDetVCHnarration then " " else #BankDetVCHnarration) else (if $$IsEndOfList:$BankDetVCHnarration then " " else #BankDetVCHnarration) CheDate : If Not $$IsEmpty:$Orderdate then " dt. " + $$String:$Orderdate:Shortdate else "" Width : 50% Screen Key : PrevVchNarration, PrevLedNarration Set Always : Yes Notify : ApportionAmtDoesNotMatchExcise : @@IsExciseMfgrOn AND @@StatutoryDtlsSubFormWarning AND (@@TotExciseApportionAmt > (@@ExciseVCHExpenseAmt + 1)) Notify : ApportionAmtDoesNotMatch : @@StatutoryDtlsSubFormWarning AND ((@@TotVatApportionAmt > (@@VATVCHExpenseAmt + 1)) OR (@@TotVatApportionAmt < (@@VATVCHExpenseAmt - 1))) AND ##InvoicingModeFlag AND NOT ##SVAcctsInvoice Notify : MsgSalesVATNotSelected : If (NOT $$IsSysName:##SVClass OR @@IsCompositionVAT) Then No Else (If @@IsIndianVATVch AND NOT @@IsJournal AND @@IsSalesSupportVouchers AND @@NumVATDutyLedgers Then + (If ##InvoicingModeFlag AND NOT ##SVAcctsInvoice Then @@NumAllocGrpVATSalesPurc AND @@NumAllocVATRateGreater Else + (If (##InvoicingModeFlag AND ##SVAcctsInvoice) OR (NOT ##InvoicingModeFlag) Then @@NumLEGrpVATSalesPurc AND @@NumLEVATRateGreater Else No)) Else No) Notify : MsgPurcVATNotSelected : If (NOT $$IsSysName:##SVClass OR @@IsCompositionVAT) Then No Else (If @@IsIndianVATVch AND NOT @@IsJournal AND @@IsPurcSupportVouchers AND @@NumVATDutyLedgers Then + (If ##InvoicingModeFlag AND NOT ##SVAcctsInvoice Then @@NumAllocGrpVATSalesPurc AND @@NumAllocVATRateGreater Else + (If (##InvoicingModeFlag AND ##SVAcctsInvoice) OR (NOT ##InvoicingModeFlag) Then @@NumLEGrpVATSalesPurc AND @@NumLEVATRateGreater Else No)) Else No) Option : PFPay VCH Narration : $$IsSysNameEqual:ESIChallan:##PFMonthlyChallanType OR $$IsSysNameEqual:PFChallan:##PFMonthlyChallanType ;;======== accounting manu ===============;; [#Menu: Gateway of Tally] Add: Item : after :@@locCostCentres: Narration :alter :CMP NarrationReport [Report: CMP NarrationReport] Form: CMP NarrationForm Object:company [Form: CMP NarrationForm] Part: CMP Narration PartTitle, CMP Narration PartDetails [Part: CMP Narration PartTitle] Line: CMP Narration LineTitle Border:thin bottom [Line: CMP Narration LineTitle] Field: Long Prompt Local: Field: Long Prompt: Style: Small Bold Local: Field: Long Prompt: Info: "Enter Your Narration" Local: Field: Long Prompt:Width:100% Screen Local: Field: Long Prompt:Align:Center [Part: CMP Narration PartDetails] Line: narration title,CMP Narration LineDetails Repeat: CMP Narration LineDetails: MydbNarration BreakOn: $$IsEmpty:$PreNarration Width:100% Screen Scroll: Vertical CommonBorder: Yes [Line:narration title] Fields:srno,narration title Border:thin bottom [Field:srno] Use:MultiSNo Title Width:5 [Field:narration title] Set as:" Narration Name" Align:Center [Line: CMP Narration LineDetails] Field: number,CMP Narration NameField [Field:number] Use:Multi SNo Width:5 Alignment:Center [Field: CMP Narration NameField] Use: Short Name Field Storage: PreNarration Border: Thin Left Width:100% Screen Lines:2 Max:150 [Collection: MyNarrationCollection] Type: MydbNarration: Company Childof: ##SVCurrentCompany Format: $PreNarration,50 Title: Narration ;;====================adding at narration part ==================;; [#Part : Vch Narration] Add : Lines : At Beginning :JLChequeNo [Line : JLChequeNo] Fields : Medium Prompt, JLChequeNo, Info Field, JLChequeDt Local : Field : Medium Prompt : Set as : "Cheque No(s):" Local : Field : Medium Prompt : Invisible : (Not $$IsReceipt:##SVVoucherType) And (Not $$IsPayment:##SVVoucherType) Local : Field : Medium Prompt : Inactive : Not @@IsBankLedPresent Local : Field : Info Field : Info : "Dt.: " Local : Field : Info Field : Inactive : Not @@IsBankLedPresent Local : Field : Info Field : Invisible : (Not $$IsReceipt:##SVVoucherType) And (Not $$IsPayment:##SVVoucherType) Local : Field : Default : Style : Small Bold [Field : JLChequeNo] Use : Name Field Set as : $DueDateOfPymt Storage : DueDateOfPymt Invisible : (Not $$IsReceipt:##SVVoucherType) And (Not $$IsPayment:##SVVoucherType) Set Always : Yes Inactive : Not @@IsBankLedPresent [Field : JLChequeDt] Use : Shortdate Field Storage : OrderDate Set as : $Date Invisible : (Not $$IsReceipt:##SVVoucherType) And (Not $$IsPayment:##SVVoucherType) Set Always : Yes Inactive : Not @@IsBankLedPresent Or $$IsEmpty:$DueDateOfPymt [#Line: VCH NarrPrompt] Left Fields : Simple Prompt,BankDetVCHnarration, VCHPartyNett Local : Field : Simple Prompt : Info : $$LocaleString:"Narration." Local : Field : Simple Prompt : Invisible : NOT @@UseCommonNarration [Field: BankDetVCHnarration] Use : Voucher Narration Field Set as : $$Value Storage : BankDetVCHnarration Width : 25% Screen Table : MyNarrationCollection,endoflist ShowTable : Always Key:narration Invisible:($$IsSales:##SVVoucherType)or($$IsSales:##SVVoucherType)or($$IsPurchase:##SVVoucherType) or ($$IsSalesOrder:##SVVoucherType) or($$IsPurcOrder:##SVVoucherType) [Key:narration] Key:ALT + C Action:Alter:CMP NarrationReport [*Field: VchBankAllocChequeNo] Use : Instrument Number Storage : Instrument Number Set as : If $$IsReceipt:##SVVoucherType Or $$IsPayment:##SVVoucherType Then #JLChequeNo else "" [System: UDF] BankDetVCHnarration : String : 1120 Enableprenarration : Logical : 1124 MydbNarration : Aggregate : 2 PreNarration : String : 1122 [System : Formula] AbcFilter : $$IsBelongsTo:$$GroupBank OR $$IsBelongsTo:$$GroupBankOD OR $$IsBelongsto:$$GroupCash IsBankLedger : ($$IsLedofGrp:$LedgerName:$$GroupBank Or $$IsLedofGrp:$LedgerName:$$GroupBankOD) IsBankLedPresent: $$FilterCount:AllLedgerEntries:IsBankLedger > 0 ;;=========== Chq details part ==============================;; [#Line: DSP VchAccTitles] Add : Fields : AFter : DSP VchAcctTitle : JLBankTitle [Field : JLBankTitle] Set as : "Cheque No" Skip : Yes Invisible : Not ##BankCfgVar Inactive : Not ##BankCfgVar [#Line: DSP VchDetail] Add : Right Fields : Before : DSP VchType : JLBank [Field : JLBank] Use : Short Name Field Set as : $DueDateOfPymt Skip : Yes Invisible : Not ##BankCfgVar Inactive : Not ##BankCfgVar Style : Normal Italic Align : Right [#Part: LEDVCHCFG Common] Add : Lines : AT End : BankCfg, BankStartNo, BankEndNo [Line : BankCfg] Fields : Medium prompt, BankCfg Local : Field : Medium Prompt : Info : "Show Cheque No(s). ?" [Field: BankCfg] Use : Logical Field Modifies : BankCfgVar [Line : BankStartNo] Fields : Medium prompt, BankStartNo Local : Field : Medium Prompt : Info : "Starting Cheque No(s). ?" [Field: BankStartNo] Use : Short Name Field Modifies : BankStartNo [Line : BankEndNo] Fields : Medium prompt, BankEndNo Local : Field : Medium Prompt : Info : "Ending Cheque No(s). ?" [Field: BankEndNo] Use : Short Name Field Modifies : BankEndNo [#Collection: Vouchers of Ledger] Filter : JLChqStartEnd Sort : Cheque No (Increasing) : $DueDateOfPymt Sort : Cheque No (Decreasing) : -$DueDateOfPymt [#Collection: Reconciliation Vouchers] Add : Filter : JLChqStartEnd Sort : Cheque No (Increasing) : $DueDateOfPymt Sort : Cheque No (Decreasing) : -$DueDateOfPymt [System : Formula] JLChqStartEnd : (@@JLChqStartEndB >=@@JLChqStartEndA AND @@JLChqStartEndB <=@@JLChqEndA) JLChqStartEndB : $$Number:$DueDateOfPymt JLChqStartEndA : $$Number:##BankStartNo JLChqEndA : $$Number:##BankEndNo [System: Variables] BankCfgVar : No BankStartNo : 0 BankEndNo : 9999999999 [Variable: BankCfgVar] Type : Logical Persistent : Yes [Variable : BankStartNo] Type : Number Persistent : No [Variable : BankEndNo] Type : Number Persistent : No [#Report : Ledger Vouchers] Variable :BankCfgVar, BankStartNo, BankEndNo Set : BankStartNo : 0 Set : BankEndNo : 9999999999 Set : BankCfgVar : No [#Report : Day Book] Variable :BankCfgVar, BankStartNo, BankEndNo Set :BankCfgVar : No Set : BankStartNo : 0 Set : BankEndNo : 9999999999 [#Report: Bank Recon] Variable :BankCfgVar, BankStartNo, BankEndNo Set :BankCfgVar : No Set : BankStartNo : 0 Set : BankEndNo : 9999999999 [#Line: DSP VchDetail] Empty : @@MyConditionC [System : Formula] My Condition C : If ##BankCfgVar then @@MyCondition1C else "" My Condition1C : If (@@JLChqStartEndB >=@@JLChqStartEndA AND @@JLChqStartEndB <=@@JLChqEndA) then "No" else "YES" ;;;; End of Cheque No in Voucher entry and Band reconciliation Statement [#Field: BR BankDate] Use : Short Date Field Storage : BasicBankersDate Skip On : $$IsEmpty:#DSPVchLedAccount Invisible : NOT ##BankRecMode Style : Small Italic Format : Short Date, End:$Date [#Field: BR DateTitle] Use : Short Date Title Field Style : Small Italic Align : Right Invisible : NOT ##BankRecMode Info : "Bank Date"
A Ledger-wise Narration Master TDL exists in this Forum. You can search for it and alter as per your requirements.
