Auto Narration for Payment

nice

 

superb... can we pick narration from purchase to payment

 

Dear all
I want all transaction as dr and cr as day book, Plz correct the following code.
[#Menu:GATEWAY OF TALLY]
Add:Item:Customized Voucher:Menu:VOUCHER COLLECTION

[Menu:VOUCHER COLLECTION]
Title:"Vouchers"
Indent:Voucher Print
Item:BLANK
Item:Journal Vouchersisplay:JOURNAL


[report:JOURNAL]
Use : DSP Template
Variable : SVToDate
Set : SVToDate : ##SVCurrentDate
Form:journal
[Form:journal]
Parts : DSp Company Name ,DSP CompanyAddress
Use : DSP Template
Height : 100% Screen
Width : 100% Screen
BackGround : Lily White
Space Top : If $$InPrintMode Then 0.5 Else 0 inches
Space Bottom:0.5 INCHES
Button : PrintButton, ExportButton,F2 ChangePeriod
Parts : STITLE,TOPHEADING, VOUCHERDETAILS
[Border:b1]
Bottom:Thin
Top:Thin
Left:Thin
Right:Thin

[PART:STITLE]
Space Top:0.5 INCH
Line:STITLELINE,SDATELINE

[Line:STITLELINE]
Field:STITLFLD
[Field:STITLFLD]
Use:NAME FIELD
Set as:"JOURNAL VOUCHER"
Align:Center
Full Width:Yes
Style:LARGE BOLD
[Line:SDATELINE]
Space Top:1% PAGE
Field:SDATE,SMITI
Right Field:V.NO
Local:Field:sdate:Set as:"DATE:"+$$String:##SVCurrentDate
Local:Field:SMITI:Info:"MITI"+@@STRDATELINE1
Local: Field: V.No: info: "VOUCHER NO"

[Field:SDATE]
UseATE FIELD
Set as:$DATE
Width : 45% Screen
Align : Left
Style : Normal
[Field:SMITI]
Align:Center
Width:15

[Field:V.NO]
Use:number field
set as:$Vouchernumber
Width:15
Align:Right


[part:topheading]
Line:topheading

[Line:TOPHEADING]
Border:COLUMN TITLES
UseARTYNAME
FieldARTICULAR,LF,DEBIT,CREDIT
Local:FieldARTICULAR:Set as:"Description"
Local:FieldARTICULAR:Line:""
Local:Field:LF:Set as:"L.f"
Local:FieldEBIT:Set as:"Debit [Rs.]"
Local:Field:Credit:Set as:"Credit [Rs.]"
Local : Field : Default : Type : String
Local : Field : Default : Style : Normal Bold
Local : Field : Default : Align : Center
[Part:VOUCHERDETAILS]
Space Top: 0.5
Line : PartyDetailsAll
Repeatartydetailsall:MultiCmpDB VchCollection
Common Border : Yes
Float : Yes
Border : Thin Box
Bottom Line:ClTotal
Total EBIT,CREDIT
Scroll:Both
[LINEartyDetailsAll]
LinesARTYNAME,PARTY2
[LineARTYNAME]
FieldARTICULAR,LF,DEBIT,CREDIT
Option : Alter on Enter

[FieldARTICULAR]
Use : Name Field
Set as : $name
Width :50
Style : Normal
Border : Thin Left
Alter:voucher
[Field:LF]
Use : Name Field
Set as : ""
Width : 10
Style : Normal
Border : Thin Left
[FieldEBIT]
Use : Amount Field
Set as : IF $$IsDr:$AMOUNT THEN $$AsDrAmt:$AMOUNT ELSE ""
Width : 20
Style : Normal
Border : Thin Left
[Field:CREDIT]
Use : Amount Field
Set as :IF $$IsDr:$AMOUNT THEN $$AsCrAmt:$AMOUNT ELSE $$AsDrAmt:$AMOUNT
Width : 20
Style : Normal
Border : Thin Left
[LineARTY2]
FieldARTICULAR
Local:FieldARTICULAR:Set as:$ALLPARTYLEDGERNAME
Border:THIN BOTTOM

[Line:cltotal]
Use:topheading
Local:Field:SN:Set as:""
Local:Fieldarticular:Set as:"Grand Total"
Local:Field:LF:Set as:""
Local:Field:debit:Set as:$$Total:debit
Local:Field:credit:Set as:$$Total:credit
[Collection: MultiCmpDB VchCollection]
Type : ledger
Belongs To:$$CurrentCompany

 

i want to repeat against reference ? how can i do that ? plzz guide me

 

Thanks For this Source

 

Reply urgently pls..........

Dear All,

I have an Auto Narration for all Vouchers which Auto selected the desired fields in narration, but some errors r their in this tdl file please help me to correct them

1. error is that the after loading this tdl file it is not working in creating mode.
2. can we change the f1 to f12 key other keys?
3. can we add more fields in narration parts eg. bills details.
4. use of ;; Action : Set : VCH Narration : $$Value + " Bank : " + $BNAME + " Chq No : " + $CHNO + " Dtd. " + $$String:$CHDATE:ShortDate ; etc

;; Features
;; 1) Define your own narrations
;; 1) You can define 11 different narrations for each voucher type using F2 to F12 keys
;; 2) You can define 9 flexible values which are already entered in the voucher in the narration.


[#Menu: Gateway of Tally]
Add : Bottom Button : BtnNarr

[Button: BtnNarr]
Title : "Narrations"
Key : F9
Action : Alter : TNRptNarrList

[Report : TNRptNarrList]
Title : "Define Narrration Shortcut keys"
Form : TNFrmNarrList
Object : Company

[Form : TNFrmNarrList]
Part : TNPrtNarrList
Bottom Part : TNPrtNarrHelp
Width : 100% Screen
No Confirmation : Yes
; Buttons : mKeyInsertVar



[Part : TNPrtNarrList]
Line : TNLnNarrListTitle, TNLnNarrList
Repeat : TNLnNarrList : TUDFNarrEntryInfo
BreakOn : $TUDFNarrEntryID<=0
Scroll : Vertical
Common Border : Yes

[Line : TNLnNarrListTitle]
Fields : TNFldNarrIdT, TNFldNarrVchrTypeT, TNFldNarrKeyT, TNFldNarrDescrT
Local : Field : Default : Skip : Yes
Local : Field : Default : Align : Centre
;; Local : Field : Default : Border : Thin Left
Border : Column Titles

[Line : TNLnNarrList]
Fields : TNFldNarrId, TNFldNarrVchrType, TNFldNarrUniquechk, TNFldNarrKey, TNFldNarrDescr
Local : Field : Default : Border : Thin Left

[Part : TNPrtNarrHelp]
Line : TNLnNarrHelp1, TNLnNarrHelp2, TNLnNarrHelp3
Fixed : Yes
Border : Thin Top
Background : @@SV_RELEASEDGREEN_S


[Line : TNLnNarrHelp1]
Field : Name Field
Local : Field : Name Field : Width : 120
Local : Field : Name Field : Delete : Case
Local : Field : Name Field : Set As : "You can also enter flexible values in your narrations using << and >>. e.g. : 'This is my narration for <<VoucherNumber>>' will give you the narration as 'This is Narration for 2.' "
Local : Field : Name Field : Style : Small
Local : Field : Name Field : Line : 0
Local : Field : Name Field : Skip : Yes
Local : Field : Name Field : Max : 500


[Line : TNLnNarrHelp2]
Use : TNLnNarrHelp1
Local : Field : Name Field : Set As : "Following are the allowed values "
Local : Field : Name Field : Line : 1

[Line : TNLnNarrHelp3]
Use : TNLnNarrHelp1
Local : Field : Name Field : Set As : "(1) For voucher number : <<VoucherNumber>> (2) voucher date : <<VoucherDate>> +
(3) voucher Type : <<VoucherType>> (4) voucher reference : <<VoucherRef>> (5) Party Name : <<PartyName>> +
(6) Price Level : <<PriceLevel>> (7) Voucher Amount : <<TotalAmount>> (8) Today's date : <<Today>> (9) Current logged in User : <<CurrentUser>>"


[Field : TNFldNarrIdT]
Use : Name Field
Info : "ID"
Width : 5

[Field : TNFldNarrId]
Use : Number Field
Storage : TUDFNarrEntryID
Width : 5
Unique : Yes

[Field : TNFldNarrVchrTypeT]
Use : Short Name Field
Info : "Voucher Type"
Width : 10

[Field : TNFldNarrVchrType]
Use : Short Name Field
Storage : TUDFNarrEntryVchrType
Table : Voucher Type
Show Table : Always
Width : 10
Inactive : $TUDFNarrEntryID <= 0

[Field : TNFldNarrKeyT]
Use : Short Name Field
Info : "Key"
Width : 5

[Field : TNFldNarrKey]
Use : Short Name Field
Storage : TUDFNarrEntryKey
Table : TNClnKeys
Show Table : AlWays
Width : 5
Inactive : $TUDFNarrEntryID <= 0

[Field : TNFldNarrUniquechk]
Use : Short Name Field
Set As : #TNFldNarrVchrType + #TNFldNarrKey
Storage : TUDFNarrEntryUnique
Set Always : Yes
Unique : Yes
Width : 15
Invisible : Yes
Inactive : $TUDFNarrEntryID <= 0

[Field : TNFldNarrDescrT]
Use : Name Field
Info : "Narration"
Width : 25

[Field : TNFldNarrDescr]
Use : Name Field
Delete : Case
Width : @@NarrWidth
Max : @@MaxNarrWidth
Align : Justified
Line : 3
Storage : TUDFNarrEntryDescr
Width : 50
Inactive : $TUDFNarrEntryID <= 0
Set Always : Yes

;For Auto Entering of Narration

[#Field : VCH Narration]
;; Add : Key : mKeyNarr1
Add : Option : mFldKey_ClearAll : Yes
Add : Option : mFldKey_F2 : $$FuncCheckShortCut:##SVVoucherType:"F2"
Add : Option : mFldKey_F3 : $$FuncCheckShortCut:##SVVoucherType:"F3"
Add : Option : mFldKey_F4 : $$FuncCheckShortCut:##SVVoucherType:"F4"
Add : Option : mFldKey_F5 : $$FuncCheckShortCut:##SVVoucherType:"F5"
Add : Option : mFldKey_F6 : $$FuncCheckShortCut:##SVVoucherType:"F6"
Add : Option : mFldKey_F7 : $$FuncCheckShortCut:##SVVoucherType:"F7"
Add : Option : mFldKey_F8 : $$FuncCheckShortCut:##SVVoucherType:"F8"
Add : Option : mFldKey_F9 : $$FuncCheckShortCut:##SVVoucherType:"F9"
Add : Option : mFldKey_F10 : $$FuncCheckShortCut:##SVVoucherType:"F10"
Add : Option : mFldKey_F11 : $$FuncCheckShortCut:##SVVoucherType:"F11"
Add : Option : mFldKey_F12 : $$FuncCheckShortCut:##SVVoucherType:"F12"

[!Field : mFldKey_ClearAll]
Delete : Key : mKeyNarr_F2
Delete : Key : mKeyNarr_F3
Delete : Key : mKeyNarr_F4
Delete : Key : mKeyNarr_F5
Delete : Key : mKeyNarr_F6
Delete : Key : mKeyNarr_F7
Delete : Key : mKeyNarr_F8
Delete : Key : mKeyNarr_F9
Delete : Key : mKeyNarr_F10

Delete : Key : mKeyNarr_F11
Delete : Key : mKeyNarr_F12


[!Field : mFldKey_F2]
Add : Key : mKeyNarr_F2

[!Field : mFldKey_F3]
Add : Key : mKeyNarr_F3

[!Field : mFldKey_F4]
Add : Key : mKeyNarr_F4

[!Field : mFldKey_F5]
Add : Key : mKeyNarr_F5

[!Field : mFldKey_F6]
Add : Key : mKeyNarr_F6

[!Field : mFldKey_F7]
Add : Key : mKeyNarr_F7

[!Field : mFldKey_F8]
Add : Key : mKeyNarr_F8

[!Field : mFldKey_F9]
Add : Key : mKeyNarr_F9

[!Field : mFldKey_F10]
Add : Key : mKeyNarr_F10

[!Field : mFldKey_F11]
Add : Key : mKeyNarr_F11

[!Field : mFldKey_F12]
Add : Key : mKeyNarr_F12


[Key: mKeyNarr_F2]
Key : F2
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F2"

[Key: mKeyNarr_F3]
Key : F3
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F3"

[Key: mKeyNarr_F4]
Key : F4
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F4"

[Key: mKeyNarr_F5]
Key : F5
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F5"

[Key: mKeyNarr_F6]
Key : F6
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F6"

[Key: mKeyNarr_F7]
Key : F7
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F7"

[Key: mKeyNarr_F8]
Key : F8
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F8"

[Key: mKeyNarr_F9]
Key : F9
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F9"

[Key: mKeyNarr_F10]
Key : F10
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F10"

[Key: mKeyNarr_F11]
Key : F11
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F11"

[Key: mKeyNarr_F12]
Key : F12
Action : Set : VCH Narration : $$FuncGetNarration:##SVVoucherType:"F12"

[Key: mKeyNarr_AltB]
Key : Alt+B
Action : Set : VCH Narration : " Entered through TDL !!"
;; Action : Set : VCH Narration : $$Value + " Bank : " + $BNAME + " Chq No : " + $CHNO + " Dtd. " + $$String:$CHDATE:ShortDate
;; Switch


[Collection : TNActionsForExisting1]
Title : "Actions"
List : "Modify","View","Delete","None"

[Collection : TNActionsForBlank1]
Title : "Actions"
List : "Add","Exit"

[Collection : TNClnKeys]
Title : "Keys"
List : "F2","F3","F4","F5","F6","F7","F8","F9","F10","F11","F12"

[Collection : TNClnVchrType]
Title : "Voucher Type"
Type : Voucher Type

[Collection : TNClnNarrEntryInfo]
Title : "List of Narrations"
Type : TUDFNarrEntryInfo:Company
Childof : ##SVCurrentCompany
;; Format : $TNTFldIdT : 10

[System: UDF]
TUDFNarrEntryInfo : Aggregate : 450 : Yes
TUDFNarrEntryID : Number : 451
TUDFNarrEntryVchrType : String : 452
TUDFNarrEntryKey : String : 453
TUDFNarrEntryUnique : String : 454
TUDFNarrEntryDescr : String : 455
;;==================================================================================
[Function : FuncCheckShortCut]
Parameter : strVchrType : String
Parameter : strKeyNm : String

Variable : FuncRtnVal : Logical : No
Variable : mstrCombo : String
Variable : mLstCount : Number

10 : SET : mstrCombo : ##strVchrType+##strKeyNm
20 : SET : mLstCount : $$FilterCount:TNClnNarrEntryInfo:checkIncoll
30 : IF : ##mLstCount > 0
40 : SET : FuncRtnVal : Yes
50 : ENDIF
60 : RETURN : ##FuncRtnVal

[System : Formula]
checkIncoll : $TUDFNarrEntryUnique=##mstrCombo


[Function : FuncGetNarration]
Parameter : strVchrType : String
Parameter : strKeyNm : String

Variable : TempVar : String
Variable : FuncRtnVal : String
Variable : mstrCombo : String

10 : SET : mstrCombo : ##strVchrType+##strKeyNm
20 : WALK COLLECTION : TNClnNarrEntryInfo
30 : IF : $$ExactMatch:$TUDFNarrEntryUnique:##mstrCombo
40 : SET : TempVar : $TUDFNarrEntryDescr
41 : SET : TempVar : $$ReplaceStr:##TempVar:"<<VoucherNumber>>":$VoucherNumber
42 : SET : TempVar : $$ReplaceStr:##TempVar:"<<VoucherDate>>":$$String:$Date
43 : SET : TempVar : $$ReplaceStr:##TempVar:"<<VoucherType>>":##SVVoucherType
44 : SET : TempVar : $$ReplaceStr:##TempVar:"<<VoucherRef>>":$Reference
45 : SET : TempVar : $$ReplaceStr:##TempVar:"<<PartyName>>":$PartyLedgerName
46 : SET : TempVar : $$ReplaceStr:##TempVar:"<<Narration>>":$Narration
47 : SET : TempVar : $$ReplaceStr:##TempVar:"<<PriceLevel>>":$PriceLevel
48 : SET : TempVar : $$ReplaceStr:##TempVar:"<<TotalAmount>>":$$String:$Amount
49 : SET : TempVar : $$ReplaceStr:##TempVar:"<<EnteredBy>>":$EnteredBy
50 : SET : TempVar : $$ReplaceStr:##TempVar:"<<Alteredby>>":$Alteredby
; 51 : SET : TempVar : $$ReplaceStr:##TempVar:"<<AlteredOn>>":$$String:$AlteredOn
52 : SET : TempVar : $$ReplaceStr:##TempVar:"<<Today>>":$$String:$$MachineDate
53 : SET : TempVar : $$ReplaceStr:##TempVar:"<<CurrentUser>>":$$CmpUserName

140 : SET : FuncRtnVal : ##TempVar
150 : ENDIF
160 : END WALK
170 : RETURN : ##FuncRtnVal


[Function : ReplaceStr]
Parameter : StrExpression : String
Parameter : StrFindStr : String
Parameter : StrReplaceStr : String : ""

Returns : String
Variable : Counter : Number
Variable : ExpLen : Number
Variable : TmpVar : String
Variable : FindStrLen : Number
Variable : RtnVal : String

10 : SET : Counter : 0
20 : SET : ExpLen : $$StringLength:##StrExpression
30 : SET : RtnVal : ""
31 : SET : FindStrLen : $$StringLength:##StrFindStr
40 : IF : NOT $$IsEmpty:##StrExpression
50 : WHILE : ##Counter <= ##ExpLen - 1
60 : SET : TmpVar : $$StringPart:##StrExpression:##Counter:##FindStrLen
70 : IF : $$Exactmatch:##TmpVar:##StrFindStr
80 : SET : RtnVal : ##RtnVal + ##StrReplaceStr
90 : SET : Counter : ##Counter + ##FindStrLen
100 : ELSE
110 : SET : RtnVal : ##RtnVal + $$StringPart:##StrExpression:##Counter:1
120 : SET : Counter : ##Counter + 1
130 : END IF
140 : END WHILE
150 : END IF
160 : RETURN : ##RtnVal

 

Good...
Keep it up..
I used this in DOS based Accounting Software like Angel, TFat, Factpro... etc

 

Hello Sir
anybody is there who can help me for TDL code.
My requirement is Display Sales Ledger Narration Details in Bill Receivable and Bills Payable Report
i have made so many request but i couldn't get any help from this site
Please Help Me