Tally Chapter 113 TDL to LOCK opening Balance & Date Period By Rajiv Mishra Computer Class

 Few lines of the code is missing Here..... Watch the Video to copy those lines

------------------------TDL CODE STARTS HERE----------------------

 Few lines of the code is missing Here..... Watch the Video to copy those lines

;[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:mad:@TUtil16_StartDt + " and " + $$String:mad:@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

 

Basha, Dec 3, 2013#4

;;-------------Code Ended Here--------------