System Date as Current Date not Working in Prime

This Code works good in Tally ERP but is shows an error in Tally Prime " Could not find the default TDL Defenition of Form : CMP Select Action Form"

Please Help me solve this Issue

Code:

[#Form : CMP Select Action Form]
On : Form Accept : @@IsValidDate : Execute : ActivateCurrentDate
[Report: ActivateCurrentDate]
Use : Modify Variables
Local : Part : Modify Variables : Lines : ActiveSV Current Date
Local : Field: MV Title : Info : $$LocaleString:"System Date or Enter Working Date"
Local : Field: MV Title : Color : Blue
Local : Form : Modify Variables : Space Top : 1
Local : Form : Modify Variables : Space Bottom : 1
Local : Form : Modify Variables : Space Left : 6
Local : Form : Modify Variables : Space Right : 6

[Line : ActiveSVCurrentDate]
Field : Active Current Date
[Field: ActiveCurrentDate]
Fields : ActiveCurDate, SVEffDate
[Field: ActiveCurDate]
Use : Short Date Field
Modifies : SVCurrentDate
Variable : SVCurrentDate
Validate : $$Value >= ##SVFromDate AND $$Value <= ##SVToDate
Set as : $$MachineDate
Width : 10
Align : Center
[System: Formula]
IsValidDate : $$MachineDate >= ##SVFromDate AND $$MachineDate <= ##SVToDate

 

[System: Events]
CmpLoadEvent : Load Company : @@IsValidDate : Execute : ActivateCurrentDate
;;Try This this will work on both Releases

 

ZEBTh

Thank You for your Guidence Sir
I Had solved the Issue

 

sir
can you post the TDL code

 

Instead of [#Form : CMP Select Action Form]
Use : [#Form: Select Company List]

[Variable: Login_Count]
Type : Number

[System: Variable]
Login_Count : 1

[#Form: Select Company List]
On : Form Accept : Yes : Form Accept
On : Form Accept : Yes : Call : Fix_SystemDate

[Function: Fix_SystemDate]
310 : SET : SVCurrentDate : $$MachineDate
320 : IF : (##Login_Count = 1)
330 : Action : Modify Variables : ActivateCurrentDate ;;(same code above)
340 : End If
350 : Increment : Login_Count

 

Try this ...

Code:

[System    : Events]
  
    LoadCmpSelected    : Load Company    : Yes    : Call    : SetMacDate
  
[Function    : SetMacDate]
  
    100    : Set : SVCurrentDATE : $$Date:$$SysInfo:SystemDate

[#Report    : Voucher]
   
    Set        : SVCurrentDate  : If $$InCreateMode Then $$SysInfo:SystemDate Else ##VarVchDate