Tally Chapter 252 TDL for Daily Expense BULK Payment with Random Amount
.jpg)
few lines are missing here.
pls watch the full video to get full coding.
[#Menu: Gateway of Tally]
Add : Item : Before : @@Locquit: Auto Bulk Payment : ALTER : Auto Bulk Payment
[Report: Auto Bulk Payment]
;; Interface to accept user Input
Local : Field : Default : Local : Style : Default : Height : 10
;;Local : Field : Default : Local : Style : Default : color : maroon
Use : Simple Auto Bulk Payment
Local : Form : Interest Calc : On: Form Accept : Yes : Call : CreateProvVouchers:#InterestPrincipal:#InterestRate:#InterestNoOfYrs:#InterestResult:#AmountForexField
Local : Form : Interest Calc : Local : Field : Form SubTitle : Info : "Auto Bulk Payment Details"
;Local : Form : Interest Calc : Local : Field : Form SubTitle : color : Maroon
Local : Form : Interest Calc : Height : 50% Page
Local : Form : Interest Calc : Width : 60% Page
Local : Form : Interest Calc : Background : "Light Orange"
Local : Field : Medium Prompt : Width : 25
Local : Part : Interest Calc : Add : Lines : ProvLedAmt;;,ProvLedNarr
Local : Line : Interest Principal: Local : Field : Medium Prompt : Info : "Starting Date :"
Local : Field : Interest Principal: Type : Date
Local : Field : Interest Principal: Case : Title Case
Local : Field : Interest Principal: Width : 30
Local : Field : Interest Principal: Align : Left
Local : Line : Interest Rate : Local : Field : Medium Prompt : Info : "No. of Payments :"
Local : Field : Interest Rate : Type : Number
Local : Field : Interest Rate : Format : "No Zero, No Percentage, No Comma"
Local : Field : Interest Rate : Width : 30
Local : Field : Interest Rate : Align : Left
Local : Line : Interest NoOfYrs : Local : Field : Medium Prompt : Info : "Cash/ Bank Ledger :"
Local : Field : Interest NoOfYrs : Type : String
Local : Field : Interest NoOfYrs : Table : Cash Ledgers Extract
Local : Field : Interest NoOfYrs : Show Table: Always
Local : Field : Interest NoOfYrs : Case : Title Case
Local : Field : Interest NoOfYrs : Width : 30
Local : Field : Interest NoOfYrs : Align : Left
Local : Line : Interest Result : Local : Field : Medium Prompt : Info : "Payee Ledger :"
Local : Line : Interest Result : Local : Field : Default : Inactive : No
Local : Field : Interest Result : Table : Expense Ledgers Extract
Local : Field : Interest Result : Show Table: Always
Local : Field : Interest Result : Set As : "";$$CollectionField:$Name:1:ExpenseLedgersExtract
Local : Field : Interest Result : Case : Title Case
Local : Field : Interest Result : Type : String
Local : Field : Interest Result : Width : 30
Local : Field : Interest Result : Align : Left
Fetch Collection: Cash Ledgers Extract, Expense Ledgers Extract
[Line: ProvLedAmt]
Field : Medium Prompt, Amount Forex Field
Local : Field : Medium Prompt : Info : "Enter Ledger Amount :"
[Line: ProvLedNarr]
Field : Medium Prompt, Name Field
Local : Field : Medium Prompt : Info : "Enter Ledger Narration :"
Local : Field : Name Field : Info : ""
Local : Field : Name Field : Width : 50
;; Report designed to open daybook with newly created entries
;; immediately after the execution of current function call
[Report: Prov Entries in Daybook]
Use : Daybook
Set : VoucherTypeName : "Payment"
Set : SVFromDate : $$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
Set : SVToDate : $$FinYearEnd:##StartDate:$StartingFrom:Company:##SVCurrentCompany
Local : Collection : Default : Add : Filter : Prov Filter
[System: Formula]
Prov Filter : $Amount = ##InputAmt
;; Function to create Provisional Vouchers automatically
;; and display list of vouchers created instantaneously
[Function: Create Prov Vouchers]
;; Definition Block
Parameter : InputDate : Date
Parameter : InputNoofEnt : Number
Parameter : InputCBLed : String
Parameter : InputOthLed : String
Parameter : InputAmt : Amount
Variable : Counter : Number
Variable : VoucherTypeName : String
Variable : FamilyVoucherFlag : Logical
Variable : StartDate : Date
Variable : PostDatedFlag : Logical
Variable : VLEdAMt : Amount
Variable : VoucherAmt : Number
;; Procedural Block
00 : SET : Counter : ##InputNoofEnt
10 : SET : StartDate : ##InputDate ;; Variable introduced to retain original date reqd for filtering in daybook
05 : Set : VLEdAMt : ##InputAmt
20 : WHILE : ##Counter >= 1
30 : SET : SVViewName : $$SysName:AcctgVchView
35 : SET : SV VoucherType : $$VchTypePayment
40 : NEW OBJECT : Voucher
50 : SET VALUE : Date : ##InputDate
60 : SET VALUE : Is Post Dated : if $LastVoucherDate:Company:##SVCurrentCompany < ##InputDate then "Yes" else "No"
70 : SET VALUE : VoucherTypeName : $$VchTypePayment
75 : Set : VoucherAmt : if ##Counter = 1 then ##InputAmt else $$RandomNumber:1:##InputAmt
76 : Set : InputAmt : ##InputAmt
;sdddd:Log:##VoucherAmt
80 : INSERT COLLECTION OBJECT : LedgerEntries
100 : SET VALUE : LedgerName : ##InputOthLed
110 : SET VALUE : Is Deemed Positive: "YES"
120 : SET VALUE : Amount : $$AsAmount:##VoucherAmt ;InputAmt
130 : SET TARGET : ..
140 : INSERT COLLECTION OBJECT : LedgerEntries
150 : SET TARGET : LedgerEntries
160 : SET VALUE : LedgerName : ##InputCBLed
170 : SET VALUE : Is Deemed Positive: "NO"
180 : SET VALUE : Amount : $$AsAmount:##VoucherAmt;InputAmt
190 : SET TARGET : ..
200 : SET VALUE : PersistedView : ##SVViewName
201 : SET VALUE : NARRATION :"Paid By Cash For " +" "+ ##InputOthLed
;202 : SET VALUE : CrDtTm1 :$$CmpUserName
;203 : SET VALUE : CrDtTm2 :$$MachineDate
;204 : SET VALUE : CrDtTm3 :$$MachineTime
210 : CREATE TARGET
220 : SET : InputDate: ##InputDate+1
230 : DECREMENT : Counter
240 : END WHILE
250 : DISPLAY : Prov Entries in Daybook
260 : RETURN
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[Report: Simple Auto Bulk Payment]
Form : Interest Calc
Auto : Yes
[Form: Interest Calc]
Parts : Form SubTitle, Interest Calc
[Part: Interest Calc]
Lines : Interest Principal, Interest Rate, Interest NoOfYrs, Interest Result
;Local : Field : Default : color : Maroon
[Line: Interest Principal]
Fields : Medium Prompt, Interest Principal
[Field: Interest Principal]
Use : Amount Field
[Line: Interest Rate]
Fields : Medium Prompt, Interest Rate
[Field: Interest Rate]
Use : Number Field
Format : "No Zero, Percentage"
Align : Right
Width : @@AmountWidth
[Line: Interest NoOfYrs]
Fields : Medium Prompt, Interest NoOfYrs
[Field: Interest NoOfYrs]
Use : Number Field
Format : "NoZero"
Align : Right
Width : @@AmountWidth
[Line: Interest Result]
Fields : Medium Prompt, Interest Result
Local : Field : Default : Inactive : $$IsEmpty:#InterestPrincipal OR $$IsEmpty:#InterestRate OR $$IsEmpty:#InterestNoOfYrs
SpaceTop: 1
[Field: Interest Result]
Use : Amount Field
Set Always : Yes
टिप्पणियाँ
एक टिप्पणी भेजें