[System: Events]
TSPL Smp CmpLoadEvent2 : Load Company : NOT $$IsRemoteCompany : Call : Backup Function
;; Close Company Event
TSPL Smp CmpCloseEvent : Close Company : NOT $$IsRemoteCompany : Call : Backup Function
; TSPL Smp CmpBackUp : Close Company : NOT ($IsAggregate:Company:##SVCurrentCompany) AND NOT $$IsRemoteCompany : Call : Backup Function : CALL : BackupFunction
[Function: Backup Function]
[Function: Backup Company]
10 : SET : BackupDetVar : @@DestPath + ", " + ##SVCurrentPath + ", " + ##SVCurrentCompany + +
", " + @@CoNumber
20 : BACKUP COMPANY : "," : ##BackupDetVar
30 : SET : SVBackupPath : @@DestPath
[System: Formula]
DestPath : ##DestinationPath + "\" + @@DateForm + "\" + @@TimeForm
CoNumber : $$String:($CompanyNumber:Company:##SVCurrentCompany):5
DateForm : $$String:$$MachineDate
TimeForm : @@HrsForm + @@MtsForm
HrsForm : If $$StringPart:$$MachineTime:0:2 CONTAINS ":" +
Then $$StringPart:$$MachineTime:0:1 +
Else $$StringPart:$$MachineTime:0:2
MtsForm : if $$StringPart:$$MachineTime:0:2 CONTAINS ":" +
Then $$StringPart:$$MachineTime:2:2 +
Else $$StringPart:$$MachineTime:3:2
;; Enable configuration options - used in General of F12 Configuration
[#Part: System Common]
Add : Lines : Enable Auto Backup, Auto Backup Path, Auto Backup Path Info, Auto Backup Prompt
[Line: Enable Auto Backup]
Field: Long Prompt, Enable Auto Backup
Local: Field: Long Prompt : Info : $$LocaleString:"Enable Automatic Backup Feature?"
[Field: Enable Auto Backup]
Use : Logical Field
Modifies : EnableAutoBackup
[Line: Auto Backup Path]
Field: Long Prompt, Auto Backup Path
Local: Field: Long Prompt : Info : $$LocaleString:"Destination Path?"
Local: Field: Long Prompt : Inactive: NOT #EnableAutoBackup
Local: Field: Long Prompt : Indent : 2
[Field: Auto Backup Path]
Use : Name Field
Modifies : DestinationPath
Inactive : NOT #EnableAutoBackup
Set As : If $$IsEmpty:##DestinationPath Then "\\mybooklive\public\TallyDataBackup" else ##DestinationPath
[Line: Auto Backup Path Info]
Field: Simple Field
Local: Field: Simple Field : Info : $$LocaleString:"(Subfolders for System Date and Time will be created within)"
Local: Field: Simple Field : Inactive: NOT #EnableAutoBackup
Local: Field: Simple Field : Style : Small Italic
Indent: 1
[Line: Auto Backup Prompt]
Field: Long Prompt, Auto Backup Prompt
Local: Field: Long Prompt : Info : $$LocaleString:"Confirmation from user?"
Local: Field: Long Prompt : Inactive: NOT #EnableAutoBackup
Local: Field: Long Prompt : Indent : 2
[Field: Auto Backup Prompt]
Use : Logical Field
Modifies : AutoBackupPrompt
Inactive : NOT #EnableAutoBackup
Set As : If $$IsEmpty:##AutoBackupPrompt Then Yes else ##AutoBackupPrompt
;; Variable Definition
[Variable: EnableAutoBackup]
Type : Logical
Persistent : Yes
[Variable: DestinationPath]
Type : String
Persistent : Yes
[Variable: AutoBackupPrompt]
Type : Logical
Persistent : Yes
[System: Variable]
EnableAutoBackup: Yes
DestinationPath : "\\mybooklive\public\TallyDataBackup"
AutoBackupPrompt: Yes
;;;END OF FILE
.jpg)
कोई टिप्पणी नहीं:
एक टिप्पणी भेजें