Tally Chapter 150 TDL for Auto Backup By Rajiv Mishra Computer Class

 


Few lines of the code is missing. Pls watch the video to get full code.

[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
 

टिप्पणियाँ

इस ब्लॉग से लोकप्रिय पोस्ट

Tally Chapter 153 TDL for Custom List of Stock Item By Rajiv Mishra Computer Class

Tally Chapter 105 TDL for Receipt contra Payment BULK Entry by Rajiv Mishra Computer Class

TDL CODE for New Column in Invoice by Rajiv Mishra Computer class