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
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
Very good effort and nice concept.... Keep it up I was doing field testing of your code and so far I found that the Field TNFldNarrUniquechk does not work in invisible mode. Also it is working in CREATE mode..... I tried and it picks up from the Master during voucher entry in create. One can use combos keys like Ctrl+B, Ctrl+D, Alt+A, Alt+B....except keys like Ctrl+A, Ctrl+H Alt+L etc, which are in use already by Tally.
This will work for Unique Check........... [Field : TNFldNarrUniquechkT] Use : Short Name Field Info : "" Width : 0.1 Background : Black [Field : TNFldNarrUniquechk] Use : Short Name Field Set As : #TNFldNarrVchrType + #TNFldNarrKey Storage : TUDFNarrEntryUnique Set Always : Yes Unique : Yes Width : 0.1 Invisible : No Inactive : $TUDFNarrEntryID <= 0 Background : Black
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
There are some O/s reports available, which you can modify to display narration. You must try a code on your own and if there are problems in coding, experts will help. However if you want ready code, then you must get some freelancer code to make you one ...either free or paid...it is their choice. Basically this forum helps coders and is not a market place for ready codes. Some share some do not, as per their choice.