HI SIR HOW TO LOAD TALLY TDL FILE INTERNALLY OR IN A HIDDEN MODE.... AS IT WILL NOT SHOW THE PATH, WHERE IT IS LOADED WHEN WE PRESS KEY ALT + CTRL + T ON GATE WAY OF TALLY
[#Button: LocalTDLConfig] ; deactivate f4 manage local tdl for non owners Inactive:not $$isowner [#Field: PNFNm] invisible:yes
for load tdls at company load use this [System: UDF] mydbgrade : Aggregate: 21256 vgrade1 : String : 21257 ;: Yes Atype : String : 28 sugcredlmt : Amount : 21235 LEDGRADE : string : 21236 Gradeactive : Logical : 21001 skipvchno : Logical : 21002 activeled1 : Logical: 21003 deacconfig : Logical: 21004 halfpginv : Logical: 21005 showledcon : Logical: 21006 posmarg:Logical:21007 deltermandbank:Logical:21008 deactdlbtn:Logical:21009 ledcontdis:Logical:21010 poseditd:Logical:21011 autogodown:Logical:21012 st1 : String : 21000 VCS_HALFPAGEPRINT : Logical : 1500 [System:Events] cmpstart21 : Load Company : TRUE : Call : loadtdl2 [#Form : CMP Select Action Form] On : Form Accept : True:Call : loadtdl2 [Function:loadtdl2] Variable: datpath1:String 01:Set:datpath1:"\\192.169.0.2\shared folder\TALLY TDLS\final" 01a : If: $Gradeactive:Company:##SVCurrentCompany equal "yes" 01b : Load TDL:##datpath1+"\performancereport.TXT" 01c : Else 01d : Unload TDL:##datpath1+"\performancereport.TXT" 01e:End If 02a : If: $skipvchno:Company:##SVCurrentCompany equal "yes" 02b : Load TDL:$$String:##datpath1+"\skipvchno.TXT" 02c : Else 02d : Unload TDL:$$String:##datpath1+"\skipvchno.TXT" 02e:End If 03a : If: $activeled1:Company:##SVCurrentCompany equal "yes" 04b : Load TDL:$$String:##datpath1+"\activeled.TXT" 04c : Else 04d : Unload TDL:$$String:##datpath1+"\activeled.TXT" 04e:End If 05a : If: $deacconfig:Company:##SVCurrentCompany equal "yes" 05b : Load TDL:$$String:##datpath1+"\deacconfigbtn.TXT" 05c : Else 05d : Unload TDL:$$String:##datpath1+"\deacconfigbtn.TXT" 05e:End If 06a : If: $showledcon:Company:##SVCurrentCompany equal "yes" 06b : Load TDL:$$String:##datpath1+"\showledcontact.TXT" 06c : Else 06d : Unload TDL:$$String:##datpath1+"\showledcontact.TXT" 06e:End If 07a : If: $halfpginv:Company:##SVCurrentCompany equal "yes" 07b : Load TDL:$$String:##datpath1+"\halfpg.TXT" 07c : Else 07d : Unload TDL:$$String:##datpath1+"\halfpg.TXT" 07e:End If 08a : If: $deltermandbank:Company:##SVCurrentCompany equal "yes" 08b : Load TDL:$$String:##datpath1+"\termandbankindelnote.TXT" 08c : Else 08d : Unload TDL:$$String:##datpath1+"\termandbankindelnote.TXT" 08e:End If 09a : If: $posmarg:Company:##SVCurrentCompany equal "yes" 09b : Load TDL:$$String:##datpath1+"\posmargin.TXT" 09c : Else 09d : Unload TDL:$$String:##datpath1+"\posmargin.TXT" 09e:End If 10a : If: $deactdlbtn:Company:##SVCurrentCompany equal "yes" 10b : Load TDL:$$String:##datpath1+"\deaclocaltdlbtn.TXT" 10c : Else 10d : Unload TDL:$$String:##datpath1+"\deaclocaltdlbtn.TXT" 10e:End If 11a : If: $ledcontdis:Company:##SVCurrentCompany equal "yes" 11b : Load TDL:$$String:##datpath1+"\showdispart.TXT" 11c : Else 11d : Unload TDL:$$String:##datpath1+"\showdispart.TXT" 11e:End If 12a : If: $poseditd:Company:##SVCurrentCompany equal "yes" 12b : Load TDL:$$String:##datpath1+"\posvcheditd.TXT" 12c : Else 12d : Unload TDL:$$String:##datpath1+"\posvcheditd.TXT" 12e:End If 13a : If: $autogodown:Company:##SVCurrentCompany equal "yes" 13b : Load TDL:$$String:##datpath1+"\autogodown.TXT" 13c : Else 13d : Unload TDL:$$String:##datpath1+"\autogodown.TXT" 13e:End If [#Part: CMP TallyShopFeatures Left] Line : re1,re2,re3,re4,re5,re6,re7,re8 [Line: re1] Field : Long Prompt, Logical Field,f1a,f1b Local : Field : Long Prompt : Set as : "Enable Performance report: " Local : Field : Logical Field: Set as :"NO" Local : Field : Logical Field : Storage : Gradeactive Local : Field : f1a : Set as : "Tdl Button : " Local : Field : f1a :Use:long prompt Local : Field : f1b: Use:logical field Local : Field : f1b: Set as :"NO" Local : Field : f1b : Storage : deactdlbtn [Field:f1a] Use:long prompt [Field:f1b] Use:logical field [Line: re2] Field : Long Prompt, Logical Field,f1a,f1b Local : Field : Long Prompt : Set as : "Skip Vch number : " Local : Field : Logical Field: Set as :"NO" Local : Field : Logical Field : Storage : skipvchno Local : Field : f1a : Set as : "Show Led Dis Contact:" Local : Field : f1a :Use:long prompt Local : Field : f1b: Use:logical field Local : Field : f1b: Set as :"NO" Local : Field : f1b : Storage : ledcontdis [Line: re3] Field : Long Prompt, Logical Field,f1a,f1b Local : Field : Long Prompt : Set as : "Active/Inactive Function : " Local : Field : Logical Field: Set as :"NO" Local : Field : Logical Field : Storage : activeled1;poseditd Local : Field : f1a : Set as : "POS Vch Edit:" Local : Field : f1a :Use:long prompt Local : Field : f1b: Use:logical field Local : Field : f1b: Set as :"NO" Local : Field : f1b : Storage : poseditd [Line: re4] Field : Long Prompt, Logical Field,f1a,f1b Local : Field : Long Prompt : Set as : "Deactive Config Btn : " Local : Field : Logical Field: Set as :"NO" Local : Field : Logical Field : Storage : deacconfig Local : Field : f1a : Set as : "Auto Godown Select:" Local : Field : f1a :Use:long prompt Local : Field : f1b: Use:logical field Local : Field : f1b: Set as :"NO" Local : Field : f1b : Storage : autogodown [Line: re5] Field : Long Prompt, Logical Field Local : Field : Long Prompt : Set as : "Enable halfpg inv" Local : Field : Logical Field: Set as :"NO" Local : Field : Logical Field : Storage : halfpginv [Line: re6] Field : Long Prompt, Logical Field Local : Field : Long Prompt : Set as : "Enable Led Contact : " Local : Field : Logical Field: Set as :"NO" Local : Field : Logical Field : Storage : showledcon [Line: re7] Field : Long Prompt, Logical Field Local : Field : Long Prompt : Set as : "Terms and Bank in DelNote : " Local : Field : Logical Field: Set as :"NO" Local : Field : Logical Field : Storage : deltermandbank [Line: re8] Field : Long Prompt, Logical Field Local : Field : Long Prompt : Set as : "Active Margin: " Local : Field : Logical Field: Set as :"NO" Local : Field : Logical Field : Storage : posmarg
Sir/Madam please help me with the command to print this GSTIN in invoice.. I need Print command... [#Part: LED Contact] Add: Line: After: LED Contact: GSTIN [Line: GSTIN] Field: Short Prompt,GSTIN Local: Field: Short Prompt: Set as: "GSTIN: " [Field: GSTIN] Use: Name Field Storage : gstinx set always: Yes Width: 2 Inch Max: 1000 [system : udf] gstinx:string : 500 ;Display in voucher .............................. [#Part: VCHTitle2Left] Add:Line:After:VCH Ref:GSTIN. [Line: GSTIN.] Add: Field: GSTIN. Invisible: Not (@@Ispurchase Or @@IsSales) [Field: GSTIN.] Fields : Simple Prompt, Name Field Local : Field : Simple Prompt: Set as : "GSTIN.: " Local : Field : name Field : Set as : $gstinx:Ledger:$LedgerName Local : Field : Default : Skip : Yes Width : @@100%
i am not getting what you want , i mean tally prints gstin in sales and purchase , you can enable it using supplementary details and print the same why making new code?
I am using an old version of Tally and i have manually added the GSTIN option in ledger master creation, same i want to print on invoice in buyer section.
thanks sir its working and useful for the encrypted tdls i like to hide the list of tdls when some press ALT + CTRL+ T as most of the tdls are in txt forms in the list its easy to see the path thanks for the reply
I FOUND THIS CODE SOMEWHERE ON NET IT SHOWS THE TODAY'S TOTAL SALES AND TODAY'S TOTAL PURCHASE BUT THE VALUE IS WITHOUT GST CAN SOMEONE SUGGENT ME THE WITH GST CODE Code: [#Line: EI PartyLimit] Add : Field : After : EI CurrentBalance : TotSales [Field : TotSales] Invisible : NOT ##CurBalanceFlag or NOT @@IsSales Field : Simple Prompt, Amount Field Local : Field : Simple Prompt : Info : $$LocaleString:"Today'sTotal Sale:" Local : Field : Simple Prompt : Width : 14 Local : Field : Amount Field : Set as : @@TrsTotSales Local : Field : Amount Field : Format : "Symbol,DrCr" Local : Field : Amount Field : Set always : Yes Local : Field : Amount Field : Color : Blue [System : Formula] TrsTotSales : $$FromValue:$Date:$$ToValue:$Date:$CreditTotals:Group:$$GroupSales ;;TrsTotSales : $$ToValue:$Date:$CreditTotals:Group:$$GroupSales ;;..........www.Learnwells.com.........;; [#Line: EI PartyLimit] Add : Field : After : EI CurrentBalance : TotPurch [Field : TotPurch] Invisible : NOT ##CurBalanceFlag or NOT @@IsPurchase Field : Simple Prompt, Amount Field Local : Field : Simple Prompt : Info : $$LocaleString:"Today's Total Purchase:" Local : Field : Simple Prompt : Width : 14 Local : Field : Amount Field : Set as : @@TrsTotPurch Local : Field : Amount Field : Format : "Symbol,DrCr" Local : Field : Amount Field : Set always : Yes Local : Field : Amount Field : Color : Blue ;;..........www.Learnwells.com.........;; [System : Formula] TrsTotPurch : $$FromValue:$Date:$$ToValue:$Date:$DebitTotals:Group:$$GroupPurchase ;;TrsTotPurch : $$ToValue:$Date:$DebitTotals:Group:$$GroupPurchase
[#Part : EXPINV SaleSalesTax] Add : Lines : AT END : BUYERGSTN Line : BUYERGSTN [Line : BUYERGSTN] Field : Short Prompt ,Name Field Local : Field : Short Prompt: Set As : "Party GST No:" Local : Field : Name Field : Set As : $GSTNX:Ledger:$PartyLedgerName Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Style : Normal
Try This Code: [#Part: LED Contact] Add: Line: After: LED Contact: GSTIN [Line: GSTIN] Field: Short Prompt,GSTIN Local: Field: Short Prompt: Set as: "GSTIN: " [Field: GSTIN] Use: Name Field Storage : gstinx set always: Yes Width: 2 Inch Max: 1000 [system : udf] gstinx:string : 500 ;Display in voucher .............................. [#Part: VCHTitle2Left] Add:Line:After:VCH Ref:GSTIN. [Line: GSTIN.] Add: Field: GSTIN. Invisible: Not (@@Ispurchase Or @@IsSales) [Field: GSTIN.] Fields : Simple Prompt, Name Field Local : Field : Simple Prompt: Set as : "GSTIN.: " Local : Field : name Field : Set as : $gstinx:Ledger:$LedgerName Local : Field : Default : Skip : Yes Width : @@100% /* ;Display in printing .............................. [#Part : EXPINV SaleSalesTax] Add : Lines : AT END : BUYERGSTN Line : BUYERGSTN [Line : BUYERGSTN] Field : Short Prompt ,Name Field Local : Field : Short Prompt: Set As : "Party GST No:" Local : Field : Name Field : Set As : $gstinx:Ledger:$PartyLedgerName Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Style : Normal */ ;Display in printing in consignee address .............................. [#Part: EXPINV Consignee] Add : Lines : AT END : BUYERGSTN1 Line : BUYERGSTN1 [Line : BUYERGSTN1] Field : Short Prompt ,Name Field Local : Field : Short Prompt: Set As : "Party GST No:" Local : Field : Name Field : Set As : $gstinx:Ledger:$PartyLedgerName Local : Field : Name Field : Full width : Yes Local : Field : Name Field : Style : Normal
Sir This is a nice Tdl but in the code mydbgrade : Aggregate: 21256 vgrade1 : String : 21257 ;: Yes Atype : String : 28 sugcredlmt : Amount : 21235 LEDGRADE : string : 21236 st1 : String : 21000 VCS_HALFPAGEPRINT : Logical : 1500 are these lines important
Sir, Tally erp9 path hide TDL is excellent but it is not working in Tally Prime please upgrade to Prime.