Concept Back Date Prevent for trail TCP (Version tally Prime)

BACKDATED






CURRENT SYSTEM DATE







;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Surce code;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[System:Formula]
Backdate:if @@DateofLastRegEntry <= $$MachineDate then No Else Yes
lastentery:Not (@@DateofLastRegEntry <= $$MachineDate)
Customized Report:$$LocaleString:"Customized Report"
[#Menu:Gateway of Tally]
Add:Item:Check Date Satatusisplay:Check Fied
Add:Key item: @@CustomizedReport:Uisplay: Customized Report

[Report:Check Fied]
Form:Check Fied
[Form:Check Fied]
Part:Check Fied

[Part:Check Fied]
Line:Check Fied
Line:Backdate
[Line:Check Fied]
Field:Medium prompt,Check Fied
Local:Field:Medium Prompt:Set as:"Date Of Last Entry"
[Field:Check Fied]
Set as@DateofLastRegEntry

[Line:Backdate]
Field:Medium prompt,Backdate
Local:Field:Medium Prompt:Set as:"It is Back Date"


[Field:Backdate]
use: Logical Field
Set as@Backdate
[System : Events]
CmpLoadEvent : Load Company : Yes:Call:Backdate

[Function:Backdate]
Variable:BackdateCheck:Logical
00:If@lastentery
01:Message Report:SVFieldWarningMsg: "Warning!" :"Check Your System Date is Correct else some Customization will Not Work properly"
02:End If

[Function:BackdateCheck]
Variable:BackdateCheck:Logical
00:If@lastentery
01:Set:BackdateCheck:Yes
02:Else
03:Set:BackdateCheck:No
04:End If

[Report:Customized Report]
Form:Customized Report
[Form:Customized Report]
Part:Customized Report
Height:100% page
Width:100% page
Local:Fieldefault :Inactive: @@lastentery
[Part:Customized Report]
Line:Customized Report
Horizontal Alignment:Center

[Line:Customized Report]
Field:Customized Report
[Field:Customized Report]
Set as:"Customized Report"
Color:Blue
Style:Customized Report

[Style:Customized Report]
Height:30
Font:Arial
Bold:Yes