Quick Entry : Payment , Receipt , Contra ,Journal

HI SIR PLZ SEND THIS TDL TO shivatally2014@gmail.com

 

Dear Sir,

Please send me on raju@tallyjharkhand.com

 

can you send the tdl to
trichytally@gmail.com

 

Very Nice and very innovative. Please mail me sir 'kamalrsandco@gmail.com'

 

Hi Chandresh sir, Very Good Work! I would like to use this code. Can you please share the code at trimurtiksk2010@gmail.com

 

please send this source code file to my email id arumughamaca@gmail.com

 

please send this source code file to my email id saravanangstp@gmail.com

 

please send this source code file to my email id kamalrsandco@gmail.com

 

PLS MAIL THIS TDL

kartikeypatel@hotmail.com

 

i m learner for reference Please send source code to this mail
sanskruti.gld@gmail.com

 

pls send me on:- tallytirupati@yahoo.com

 

As per your quick entry addon possible to make discount also

Ex: the value of my sales.........Rs.20500
but party give only......Rs.20000 (receipt)

remaining balance...Rs.500....automatically discount journal entry pass against party ledger.

 

Logicaly set Yes Or No Journal Entry Pass

 

very use full one

can you please share the code Nershad.k@gmail.com

 

Please send me code
abhishekamr@gmail.com

 

Hello
[#Menu: Gateway of Tally]

Add : Item : "Bulk Payment Entry" : Alter : JennyPayment EntryRpt

[Report : JennyPayment EntryRpt]

Form : JennyPayment EntryFrm
Title : $$LocaleString:"Bulk Payment Entry"
Object : Company


[Form : JennyPayment EntryFrm]

Part : Form SubTitle, JennyPayment DrLedPrt;JennyPayment CrLedPrt, JennyPayment DrLedPrt
Width : 100% Page
Height : 100% Page
Space Left : 0.25
Space Right : 0.25
Horizontal Align: Left

Local : Field : Form SubTitle : Info : "Bulk Payment / Receipt / Contra Entry"

On : Form Accept : yes : Form Accept
On : Form Accept : yes : Call : CphSale BulkAutoEntry
;; Sales Credit Part ;;
;;------------------------------------------------------------------------------------------


; [Part : JennyPayment CrLedPrt]
;
; Line : JennyPayment CrLedLne;,JennyPayment SalesLedName
;
; [Line : JennyPayment CrLedLne]
;
; Field : Medium Prompt, JennyPayment CrLedFld ;,JennyPayment SalesLedName
; Local : Field : Medium Prompt : Info : $$LocaleString:"Credit Ledger"
; Space Bottom : 0.50
;
;
; [Field : JennyPayment CrLedFld]
;
; Type : String
;
; Use : Name Field
; Table : JennyPayment SalesLed
; Storage : LedgerName
; Show Table : Always
; Case : Title Case
; Width : 50
; Align : Left
; Border : Thin Box
;
; [Collection: JennyPayment SalesLed]
;
; Title : "List of Ledgers"
; Type : Ledger
; ;Child of : $$GroupBank
; Belongs to : yes
; Format : $Name,30
; Align : Right
; Full Height : Yes

;;;;;;;;;

;; Sales Debit Part ;;
;;------------------------------------------------------------------------------------------
[Part : JennyPayment DrLedPrt]

Line : JennyPayment DrLedTtleLne, JennyPayment DrLedDetlsLne
Repeat : JennyPayment DrLedDetlsLne : JennyPaymentCollection
;Repeat : JennyPayment CrLedLne : JennyPaymentCollection
Scroll : Vertical
Common Border : Yes
Break On : $$IsEndOfList:$PartyLedgerName


[Line : JennyPayment DrLedTtleLne]

Field :JennyPaymentSerialNoFld1,JennyPaymentDateFld1,JennyPaymentVchtypeFld1,JennyPaymentDebitLedgerFld1,JennyPaymentCreditLedgerFld1,JennyPaymentDrAmountFld1,JennyPaymentSALESLEDNAME1
Right Field : JennyPaymentLednarration1
;Use : JennyPayment DrLedDetlsLne

; Local : Field : Default : Inactive : No
;Local : Field : Default : Delete : Storage
Local : Field : Default : Type : String
Local : Field : Default : Style : Normal Bold
Local : Field : Default : Align : Center
Local : Field : Default :Border : Thin Box

[Field : JennyPaymentSerialNoFld1]; : Info : $$LocaleString:"Sno."
Width :5
Set as : "Sno."
Skip : Yes

[Field : JennyPaymentDateFld1]; : Info : $$LocaleString:"Date"

Width : @@ShortWidth
Set as : "Date"
Skip : Yes
[Field : JennyPaymentVchtypeFld1]; : Info : $$LocaleString:"Voucher Type"

Width : 8

Set as : "Voucher Type"
Skip : Yes

[Field : JennyPaymentDebitLedgerFld1]; : Info : $$LocaleString:"Debit Ledger"

Width : 25
Set as :"Debit Ledger"
; Set as : If #JennyPaymentVchtypeFld = "Payment" then $$LocaleString:"(Dr) Party Ledger" else +
; If #JennyPaymentVchtypeFld = "Receipt" then $$LocaleString:"(Cr) Party Ledger" else +
; If #JennyPaymentVchtypeFld = "Contra" then $$LocaleString:"(Dr) Cash / Bank Name" else "Debit Ledger"
Skip : Yes


[Field : JennyPaymentCreditLedgerFld1]; : Info : $$LocaleString:"Credit Ledger"
Width : 25
Set as :"Credit Ledger" ;JennyPaymentCreditLedgerFld
; Set as : If #JennyPaymentVchtypeFld = "Payment" then $$LocaleString:"(Cr) Bank Name" else +
; If #JennyPaymentVchtypeFld = "Receipt" then $$LocaleString:"(Dr) Bank Name" else +
; If #JennyPaymentVchtypeFld = "Contra" then $$LocaleString:"(Cr) Cash / Bank Name" else "Credit Ledger"
Skip : Yes
[Field : JennyPaymentDrAmountFld1]; : Info : $$LocaleString:"Amount"
Set as : "Amount"
Width : @@ShortWidth
Skip : Yes

[Field : JennyPaymentSALESLEDNAME1]; : Info : $$LocaleString:"Bank Ledger"
Set as :"Bank Ledger"
Width: 5
Invisible: Yes
Skip : Yes


[Field : JennyPaymentLednarration1]; : Info : $$LocaleString:"Narration"
Set as : "Narration"
Full Width : Yes
Skip : Yes


[Line : JennyPayment DrLedDetlsLne]

Field : JennyPayment SerialNoFld, JennyPayment DateFld, JennyPayment VchtypeFld , JennyPayment DebitLedgerFld,JennyPayment CreditLedgerFld, JennyPayment SalesLedName,JennyPayment DrAmountFld
Right Field : JennyPayment Lednarration

Space Top : 0.25

[Field : JennyPayment SerialNoFld]

Use : Short Name Field
;Width : @@SymWidth
Width :5
Set as : $$Line
Skip : Yes


[Field : JennyPayment DateFld]

Type : Date
Use : Short Date Field
Storage : Date
Width : @@ShortWidth
Border : Thin Box
[Field : JennyPayment VchtypeFld ]

Type : String
Table : JennyVchtypeFld, EndOfList
;Set as : ##SVVoucherType
Use : Name Field
Set always : Yes
Storage : JennyPaymentVchtypeFld
;Set always : Yes
Show Table : Always
Case : Title Case
Width : 8
Align : Left
;Inactive : $$IsEndOfList:$JennyPaymentVchFld
Border : Thin Box

[Collection: JennyVchtypeFld]

Title : $$LocaleString:"Voucher Types"
Collection : Contra Vouchers
Collection : Payment Vouchers
Collection : Receipt Vouchers
Fetch : Name, ActualVoucherType
Format : $$Name, 10

; Type : Vouchers : VoucherType
; List Name: "Payment","Receipt","Contra"
; Belongs to : yes
; Format : $Name,30
; Align : Right
; Full Height : Yes


[Field : JennyPayment DebitLedgerFld]

Type : String
Use : Name Field
Table : JennyPayment SundryDebtorsLed, EndOfList
Storage : PartyLedgerName
;;Set as : $Name
Show Table : Always
Case : Title Case
Width : 25
Align : Left
Inactive : $$IsEndOfList:$PartyLedgerName
Border : Thin Box


[Collection: JennyPayment SundryDebtorsLed]

Title : "List of Ledgers"
Type : Ledger
;Child of : $$GroupIndirectExpenses
Belongs to : yes
Format : $Name,30
Align : Right
Full Height : Yes
;Filter : PaymentDebitledgerFld


[Field :JennyPayment CreditLedgerFld]

Type : String

Use : Name Field
Table : JennyPayment SalesLed
Storage : LedgerName
Show Table : Always
Case : Title Case
Width : 25
Align : Left
Border : Thin Box

[Collection: JennyPayment SalesLed]

Title : "List of Ledgers"
Type : Ledger
;Child of : $$GroupBank
Belongs to : yes
Format : $Name,30
Align : Right
Full Height : Yes



[Field : JennyPayment SALESLEDNAME]
Type : String
;Table : JennyPayment SalesLed

Set as: #JennyPaymentCreditLedgerFld
Storage : SalesLedgerName
;Show Table : Always
Width : 5
Skip : Yes
Align : Left
;Inactive : $$IsEndOfList:$PartyLedgerName
Invisible: Yes
[Field : JennyPayment DrAmountFld]

Type : Amount
Use : Amount Field
Storage : Amount
Width : @@ShortWidth
Inactive : $$IsEndOfList:$PartyLedgerName
Border : Thin Box


[Field : JennyPayment Lednarration ]

Type : String
Use : Name Field
Storage : Narration

Full Width : Yes
Inactive : $$IsEndOfList:$PartyLedgerName



[Collection: JennyPaymentCollection]

Title : "Bulk Payment Entry"
Type : JennyPayment BulkEntry : Company
Child Of : ##SVCurrentCompany



[System: UDF]
JennyPayment BulkEntry : Aggregate : 41071
Date : Date : 41072
PartyLedgerName : String : 41073
Amount : Amount : 41074
SalesLedgerName : String : 41075
Narration : String: 41076
JennyPaymentVchtypeFld : String: 41077
[System: UDF]
LedgerName : String : 41068
;; ---------------------------------------
[System: Variable]
[Variable : Counter]
Type: Number
;; Bulk Auto Entry ;;
;;-----------------------------------------------------------------------------------------------------------------------
[Function: CphSale BulkAutoEntry]
;; Procedural Block
Parameter : JennyVTypeName : String : ##SVVoucherType
;Parameter : pVoucherType : String
Variable : SVVoucherType : String

Variable : CphDate : Date
Variable : CphDrLedgerName : String
Variable : CphCrLedgerName : String
Variable : CphAmount : Amount
Variable : CphNarration : String
Variable : CphJennyPaymentVchtype: String

Variable : Counter : Number: 1

;00: Set : SVVoucherType : ##pVoucherType
001 : Start Batch Post : 10
005 : START PROGRESS : ($$NumItems:JennyPaymentCollection) : "Creating Vouchers" : @@CmpMailName : "Creating Sales Vouchers ..."
007 : WALK COLLECTION : JennyPaymentCollection
010 : SET : CphDate : $$Date:$Date
010a : Set : CphJennyPaymentVchtype :""
015 : SET : CphJennyPaymentVchtype :$JennyPaymentVchtypeFld
020 : SET : CphDrLedgerName : $PartyLedgerName
030 : SET : CphCrLedgerName : $SalesLedgerName
040 : SET : CphAmount : $$AsAmount:$Amount
045 : SET : CphNarration : $Narration
050 : SET : SVViewName : $$SysName:AcctgVchView
060 : NEW OBJECT : Voucher
070 : SET VALUE : Date : ##CphDate
080 : SET VALUE : VoucherTypeName :##CphJennyPaymentVchtype; ##SVVoucherType;$$VchTypePayment ; $$VchTypeReceipt;VoucherTypeName
080a : Log: #JennyPaymentVchtypeFld
090 : SET VALUE : Narration : $Narration
;100 : SET VALUE : Narration : "For Invoice No : " + $VoucherNumber + " Auto Receipt "
;;----------------------------------------------------------------------------
;;Debit Entry
110 : INSERT COLLECTION OBJECT : AllLedgerEntries
;115 : SET VALUE : VoucherTypeName : ##CphJennyPaymentVchtype

; 110a o If:#JennyPaymentVchtypeFld = "Payment" :Set Value :Is Deemed Positive : "Yes"
;110b o If:#JennyPaymentVchtypeFld = "Receipt" :Set Value :Is Deemed Positive : "No"
120 : SET VALUE : Ledger Name : ##CphDrLedgerName

140 : SET VALUE : IsDeemedPositive : "Yes"

;140a o If:#JennyPaymentVchtypeFld = "Payment" :Set Value : Amount : ##CphAmount * (-1)
;140b o If:#JennyPaymentVchtypeFld = "Receipt" :Set Value :Amount : ##CphAmount
141 : SET VALUE : Amount : ##CphAmount * (-1)
150 : SET TARGET : ..
150a : LOG : $$String:##CphDrLedgerName

;----------------------------------------------------------------------------
;;Credit Entry
160 : INSERT COLLECTION OBJECT : AllLedgerEntries
;160a : SET TARGET : LedgerEntries

;160a o If:#JennyPaymentVchtypeFld = "Payment" :Set Value :Is Deemed Positive : "Yes"
; 160b o If:#JennyPaymentVchtypeFld = "Receipt" :Set Value :Is Deemed Positive : "No"

; 160a : If: $$JennyPaymentVchtypeFld = ##CphJennyPaymentVchtype
; 160b: Do If:$LedgerName=##CphCrLedgerName:SET VALUE : Is Deemed Positive : "Yes"
; 160c : Else
; 160d: Do If:$LedgerName=##CphCrLedgerName:SET VALUE : Is Deemed Positive : "No"
; 160e : End If
170 : SET VALUE : Ledger Name : ##CphCrLedgerName

;170a o If:#JennyPaymentVchtypeFld = "Payment" :Set Value : Amount : ##CphAmount * (-1)
; 170b o If:#JennyPaymentVchtypeFld = "Receipt" :Set Value :Amount : ##CphAmount
180 : SET VALUE : Amount : ##CphAmount
190 : SET VALUE : IsDeemedPositive : "No"
200 : SET TARGET : ..
210 : SET VALUE : PersistedView : ##SVViewName
220 : CREATE TARGET
230 : INCREMENT : Counter
230a : SHOW PROGRESS : ##Counter
240 : END WALK
260 : END PROGRESS
280 : RETURN
290 : End Batch Post
[Report: JennyPayment Daybook]
Use : Daybook

Set : SVFromDate : $$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
Set : SVToDate : $$FinYearEnd:##StartDate:$StartingFrom:Company:##SVCurrentCompany

 

send code on dammani.shri@gmail.com

 

Dear sir
Pl send me on haresh.inbox89@gmail.com

 

Hi sir,
I want try this on Tally Prime, Can you mail us TDL
Mail Id : jaiswal.pchandra@gmail.com

 

Very Good Work. Can you please share the code on ganeshawale458@gmail.com

 

Where to copy this code....

 

Excellent work. Can you please share the code at blissghazal@gmail.com

 

is this yours?

 

sir please share the tdl shivashankar22.gm@gmail.com