Hi, here is the TDL which work in Tally 7.2 & 9 But I wanted to Run in also Tally erp 9 rel 3.7. So Pl help me in this matter. Code: ;;=============== [ !! Om Shree Ganesh !! ]=================================== ;; ;; Small Utility : Period and Opening Balance Locking system ;; Version : 1.00 ;; Compatibility : Tally 7.2 and Tally 9.00 ;; ;; ;; Developed By : PANKAJ JAIN ;; ;; CopyRights : Mahavir Classes, Jalgaon 9823974668 ;;============================================================================ [System: UDF] TUtil16_UDFStartDt : Date : 40 TUtil16_UDFEndDt : Date : 41 TUtil16_BalLock : String : 42 ;[Collection : MyYesNo] ; Title : "Yes/No" ; List : "Yes", "No" ;;=========================================================================== ;;For Defining The date locks ;;=========================================================================== [#Menu: Gateway of Tally] Add : Bottom Button : BtnDtLock [Button: BtnDtLock] Title : "Date Lock" Key : F8 Action : Alter : TNRptDateLockDfn [Report : TNRptDateLockDfn] Family : "Sankalp" Title : "Date Lock Configuration" Form : TNDateLockDfn Object : Company [Form : TNDateLockDfn] Part : TNPrtDateLockDfnTitle, TNPrtDateLockDfn Width : 60% Screen [Part : TNPrtDateLockDfnTitle] Line : TNLnDateLockDfnTitle Border : Thin Bottom [Line : TNLnDateLockDfnTitle] Fields : Name Field Local : Field : Name Field : Full Width : Yes Local : Field : Name Field : Align : Centre Local : Field : Name Field : Skip : Yes Local : Field : Name Field : Set As : "Date Lock Configuration" Space top : 1 Space Bottom : 1 [Part : TNPrtDateLockDfn] Line : TNLnDateLockDfn1, TNLnDateLockDfn2 Border : Thin Bottom [Line : TNLnDateLockDfn1] Fields : Medium Prompt, TNFldOpBalLock Local : Field : Medium Prompt : Info : "Lock Ledgers Opening Balances?" Space top : 1 Space Bottom : 1 [Field : TNFldOpBalLock] ;; Use : Logical Field ;; Set as : $TUtil16_BalLock Use : Short Name Field Width : @@LogicalWidth Max : @@MaxLogicalWidth Style : Normal Bold Table : YesNoTable Show Table : On Error Storage : TUtil16_BalLock [Line : TNLnDateLockDfn2] Fields : Long Prompt, TNFldOpStartDt, Short Prompt, TNFldOpEdnDt Local : Field : Long Prompt : Info : "Allow Entry/Modifications only for the Period From:" Local : Field : Short Prompt : Info : "To:" Local : Field : Long Prompt : Width : 50 Local : Field : Short Prompt : Width : 4 Space Bottom : 1 [Field : TNFldOpStartDt] Use : Short date field Set as : $TUtil16_UDFStartDt Storage : TUtil16_UDFStartDt [Field : TNFldOpEdnDt] Use : Short date field Set as : $TUtil16_UDFEndDt Storage : TUtil16_UDFEndDt ;;====================================================================================================== [System : Formula] TUtil16_StartDt : $TUtil16_UDFStartDt:Company:##SVCurrentCompany TUtil16_EndDt : $TUtil16_UDFEndDt:Company:##SVCurrentCompany TUtil16_Control1 : "Period is closed !"+$$NewLine+"Creation is not allowed." TUtil16_Control2 : "Period is closed !"+$$NewLine+"Alteration is not allowed." TUtil16_Control3 : "Period is closed !"+$$NewLine+"Deletion is not allowed." TUtil16_Control4 : "Date not allowed !"+$$NewLine+"Open period is between" + $$Newline + $$String:@@TUtil16_StartDt + " and " + $$String:@@TUtil16_EndDt TUtil16_DtIsOpen : $Date >= $TUtil16_UDFStartDt:Company:##SVCurrentCompany AND $Date <= $TUtil16_UDFEndDt:Company:##SVCurrentCompany TUtil16_EffDtIsOpen : $EffectiveDate >= $TUtil16_UDFStartDt:Company:##SVCurrentCompany AND $EffectiveDate <= $TUtil16_UDFEndDt:Company:##SVCurrentCompany TUtil16_VchrCreation : $$InCreateMode AND NOT @@TUtil16_DtIsOpen TUtil16_VchrAlter : $$InAlterMode AND (NOT @@TUtil16_DtIsOpen OR NOT @@TUtil16_EffDtIsOpen) OpBalLock : $TUtil16_BalLock:Company:##SVCurrentCompany = "Yes" [#Key : Delete Line Object] Inactive : Not @@TUtil16_DtIsOpen [#Key: Cancel Line Object] Inactive : Not @@TUtil16_DtIsOpen [#Key : Form Delete] Inactive : (NOT $$CanDelete) OR (NOT @@TUtil16_DtIsOpen) [#Key : Form Cancel] Inactive : (NOT $$CanCancel) OR (NOT @@TUtil16_DtIsOpen) [#Form: Voucher] Local : Key : Form Delete : Inactive : NOT @@TUtil16_DtIsOpen Local : Key : Delete Line Object : Inactive : NOT @@TUtil16_DtIsOpen Local : Key : Form Cancel : Inactive : NOT @@TUtil16_DtIsOpen Add : Control : TUtil16_Control1 : NOT ($$Value >= $TUtil16_UDFStartDt:Company:##SVCurrentCompany AND $$Value <= $TUtil16_UDFEndDt:Company:##SVCurrentCompany ) Add : Control : TUtil16_Control2 : @@TUtil16_VchrAlter [#Field: Chg SVDate] Add : Control : TUtil16_Control4 : NOT ($$Value >= $TUtil16_UDFStartDt:Company:##SVCurrentCompany AND $$Value <= $TUtil16_UDFEndDt:Company:##SVCurrentCompany ) ;[#Field: Chg VchDate] ; Add : Control : TUtil16_Control1 : NOT ($$Value >= $TUtil16_UDFStartDt:Company:##SVCurrentCompany AND $$Value <= $TUtil16_UDFEndDt:Company:##SVCurrentCompany ) [#Field: Plain VCH Date] Add : Control : TUtil16_Control4 : NOT ($$Value >= $TUtil16_UDFStartDt:Company:##SVCurrentCompany AND $$Value <= $TUtil16_UDFEndDt:Company:##SVCurrentCompany ) ;;[#Key: PrintButton] ;; Inactive : If $$IsVoucher AND $$InCreateMode Then Yes else No [#Line: DSP VchDetail] Local : Key : Delete Line Object : Inactive : NOT @@TUtil16_DtIsOpen Local : Key : Cancel Line Object : Inactive : NOT @@TUtil16_DtIsOpen [#Line: STKVCH NormalDetail] Local : Key : Delete Line Object : Inactive : NOT @@TUtil16_DtIsOpen Local : Key : Cancel Line Object : Inactive : NOT @@TUtil16_DtIsOpen [#Line: STKVCH InTRACKLead] Local : Key : Delete Line Object : Inactive : NOT @@TUtil16_DtIsOpen Local : Key : Cancel Line Object : Inactive : NOT @@TUtil16_DtIsOpen [#Line: STKVCH OutTRACKLead] Local : Key : Delete Line Object : Inactive : NOT @@TUtil16_DtIsOpen Local : Key : Delete Line Object : Inactive : NOT @@TUtil16_DtIsOpen Local : Key : Cancel Line Object : Inactive : NOT @@TUtil16_DtIsOpen ;;================================================= ;; Lock Opening Balance ;;================================================= [#Field: LED Opening] Skip : @@OpBalLock [#Field: MultiLEDOpening] Skip : @@OpBalLock [#Field: LED OpeningDr] Skip : @@OpBalLock [#Field: MultiLEDOpDrCr] Skip : @@OpBalLock [#Field: LEDALLOC Amt] Skip : @@OpBalLock [#Field: LEDALLOC DrCr] Skip : @@OpBalLock ;;LED Opening, LED OpeningDr
Mr.Pankaj Ji I am using tally 9.214 for my petty shop in Chennai. Can I get usefull TDL for my Tally 9.214 if you have. Thanks in Advance, Rajesh Jain
If you have tdls, share in this forum or use your own way communication to market.( I.e. through your mail or mobile, justdial etc) . PLease do not use this forum.If everybody starts to use this forum for marketing their product ; The purpose of this forum will be lost. It will be full with marketing posts and reply.If you receive an Direct enquiry to your mail; you sell it no problem. But please do not use this site for marketing. please co-operate
this tdl is only effective on the system in which it is installed, as in multiuser when installed in server pc the effect of the tdl is not visible in the client pc or pc in lan using the same server license tally. please advice.
