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
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--------------
टिप्पणियाँ
एक टिप्पणी भेजें