Tally Chapter 249 TDL for Bulk Payment Entry with Random amount

 

Few Lines are Missing Here.

Pls Watch the full video to get full coding.

[#Menu: Rajiv Mishra]

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 Instalments :"

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]

;; 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

Local Formula : LEDAmount : $$RandomNumber:1:($$Number:##InputAmt)

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:($$Number:##InputAmt/2)

76 : Set : InputAmt : ##InputAmt - ##VoucherAmt

;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 *-1;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: $$MonthEnd:$$NextMonth:##InputDate

;225 : SET : InputAmt : $$Round:##InputAmt+(##InputAmt*2.3%):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