1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Auto backup on scheduled time

Discussion in 'Tally Developer' started by Kinjal, Dec 17, 2014.

    
  1. Kinjal

    Kinjal New Member


    hello experts,
    i hv query regarding backup at specified time given by user. how to code that??
     

    Attached Files:

    Kinjal, Dec 17, 2014
    #1


  2. sivam

    sivam Active Member


    Dear Expert,
    You can use System events to backup a particular time
     
    sivam, Dec 19, 2014
    #2


  3. tally.manish

    tally.manish Member


    Dear Experts and Admin


    Please give solution for this issue
     
    tally.manish, Feb 26, 2015
    #3


  4. dipu369

    dipu369 Member


    This is very beautiful program but something is not working but no one is coming forward including admin programmer to recetify it
     
    dipu369, Jan 29, 2018
    #4


  5. murtuza shakir

    murtuza shakir Member


    DEAR KINDLY CHECK THIS CODE

    IT WORKS FINE
    WHEN USER LOG IN IT WILL ASK FOR BACKUP

    [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]
    Variable : Backup Det Var: String
    00 : IF : ##EnableAutoBackup
    10 : IF : ##AutoBackupPrompt
    20 : QUERYBOX : "Backup Company ?" : Yes:No
    30 : IF : $$LastResult
    40 : CALL : Backup Company
    50 : ENDIF
    60 : ELSE :
    70 : CALL : Backup Company
    80 : ENDIF
    90 : ENDIF
    [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
     
    murtuza shakir, Feb 1, 2018
    #5


  6. murtuza shakir

    murtuza shakir Member


    DEAR KINDLY CHECK THIS CODE

    IT WORKS FINE
    WHEN USER LOG IN IT WILL ASK FOR BACKUP

    [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]
    Variable : Backup Det Var: String
    00 : IF : ##EnableAutoBackup
    10 : IF : ##AutoBackupPrompt
    20 : QUERYBOX : "Backup Company ?" : Yes:No
    30 : IF : $$LastResult
    40 : CALL : Backup Company
    50 : ENDIF
    60 : ELSE :
    70 : CALL : Backup Company
    80 : ENDIF
    90 : ENDIF
    [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
     
    murtuza shakir, Feb 1, 2018
    #6


  7. murtuza shakir

    murtuza shakir Member


    DEAR KINDLY CHECK THIS CODE

    IT WORKS FINE
    WHEN USER LOG IN IT WILL ASK FOR BACKUP

    [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]
    Variable : Backup Det Var: String
    00 : IF : ##EnableAutoBackup
    10 : IF : ##AutoBackupPrompt
    20 : QUERYBOX : "Backup Company ?" : Yes:No
    30 : IF : $$LastResult
    40 : CALL : Backup Company
    50 : ENDIF
    60 : ELSE :
    70 : CALL : Backup Company
    80 : ENDIF
    90 : ENDIF
    [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
     
    murtuza shakir, Feb 1, 2018
    #7


  8. Deepesh Rajpuria

    Deepesh Rajpuria New Member


    :(
     
    Deepesh Rajpuria, Apr 25, 2021
    #8


  9. Deepesh Rajpuria

    Deepesh Rajpuria New Member


    Please help me,its not working, I changed :( to :(, still not working. I am getting the message as screen shot saved. Please help me.
     

    Attached Files:

    Deepesh Rajpuria, Apr 25, 2021
    #9


Share This Page