Purchase Auto Narration Party Bank Details

Hi & Good Day Experts,

I was looking for Supplier Bank Details in Auto Narration during Purchase Voucher Entry, just wanted your advise if the same is possible or not, so that I can put more efforts, as at present I tried in several ways but not succeeded. Thanks...

 

Dear Amitji,
Thanks for the motivation, I thank you for making me successfully doing bank details in purchase :

Code :

[#Field: VCH Narration]
Case:TitleCaseExact

Option : My PJV VCH Narration : $$InCreateMode AND $$IsPurchase:##SVVoucherType

[!Field: My PJV VCH Narration]

Set as : "Being Purchase / Service booked against Inv. No. : " + $

$FullList:LedgerEntries:$BillPJV + " Bank : " + $BBankName:Ledger:$LedgerNAme + " A/c

No. : " + $BBankAccount:Ledger:$LedgerNAme

Set Always : Yes
[System: Formula]
BillPJV : $$FullList:BillAllocations:$Name

[#Object:Ledger]
BBankName:$PaymentDetails.BankName
BBankAccount:$PaymentDetails.AccountNumber

 

;;This utility help you for when you create voucher entry;;
;;for faster entry auto narration create;;
;;short cut for auto narration alt+c in auto narration field;;
;;devolaped by======== skill bill youtube=============;;
;;========== 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 $$IsSysNameEqualFChallan:##PFMonthlyChallanType

;;======== accounting manu ===============;;
[#Menu: Accounts Info.]
Add: Item : after @locCostCentres: Narration :alter :CMP NarrationReport
[#Part: CMP AccFeat Left]
Add: Line: CMP EnablePortDestTable
[Line: CMP EnablePortDestTable]

Field: Medium Prompt, CMPEnableNarrationTable
Local: Field: Medium Prompt: Info: "Enable Predefined Narration ? "
Space Top: 1
[Field: CMPEnableNarrationTable]
Use: Logical Field
Storage: Enableprenarration
Set as: If $$IsEmpty:$$Value then "No" else $$Value


[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"
--------------------------------------------
HOW TO ADD CHEQUE DETAIL IN PURCHASE , SALES & CONTRA VOUCHER PLZ ADD SEND CODE

TO shivatally2014@gmail.com