I have set up an Auto Import for the backup databases at our 4 locations.  It works fine at this location, but at the other locations. The databases do not close after the import.

A pop-up saying, "The Current Record has been changed and has not been committed to the database.  Are you sure you want to close this record." comes up instead.

The instructions are below for both computers:

Master Application Program

Var vI as Int


    IF FileExists("\\SESAMESERVER\DATA\ANT\ANT1-M.TXT") Or
        FileExists("\\SESAMESERVER\DATA\NG\NG1-M.TXT") Or
        FileExists("\\SESAMESERVER\DATA\SR\SR1-M.TXT") Or
        FileExists("\\SESAMESERVER\DATA\SM\SM1-M.TXT")    Then
    {
//        If @AskUser("There are files to be imported.", "", "Do you wish to import them now") Then
//        {
            ClientLocalValue("CLVImport", 1)
            vI = @SelectTreeItem(@Application + "!Forms!Add Data!CUSTOMER!CUSTOMER")
           @SAVE
           @EXIT
           ExitSesame()

//        }
    }
   

Customer On Form Entry


//In the example above I am using Customers as the database and Form name. Then in your Form's On Form Entry event, you would put code like the following.

Subroutine CheckForFileAndImport(vFilePath as String)

    If FileExists(vFilePath)
    {
        RunImportSpec(vFilePath)
        If @ResultSetTotal() > 0 Then
        {
            FileDelete(vFilePath)
        }
    }

End Subroutine




Var vI as Int
Var vFile as String

If @ClientLocalValue("CLVImport") = 1 Then
{
    vI = @LoadImportSpec("ALL")
    ClientLocalValue("CLVImport", 0)
    If vI = 1 Then
    {
        vFile = "\\SESAMESERVER\Data\Ant\ANT1-M.TXT"
        CheckForFileAndImport(vFile)
        vFile = "\\SESAMESERVER\Data\NG\NG1-M.TXT"
        CheckForFileAndImport(vFile)
        vFile = "\\SESAMESERVER\Data\SM\SM1-M.TXT"
        CheckForFileAndImport(vFile)
     vFile = "\\SESAMESERVER\Data\SR\SR1-M.TXT"
        CheckForFileAndImport(vFile)
    }
}

Instructions below for remote location.


Var vI as Int

    IF FileExists("z:\backup\SM\ANT1.TXT") Or
        FileExists("z:\backup\SM\NG1.TXT") Or
        FileExists("z:\backup\SM\SR1.TXT") Or
        FileExists("C:\Sesame2\DATA\SM1.TXT")    Then
    {
//        If @AskUser("There are files to be imported.", "", "Do you wish to import them now") Then
//        {
            ClientLocalValue("CLVImport", 1)
            vI = @SelectTreeItem(@Application + "!Forms!Add Data!CUSTOMER!CUSTOMER")
           @SAVE
           @EXIT
           ExitSesame()

//        }
    }
   


//In the example above I am using Customers as the database and Form name. Then in your Form's On Form Entry event, you would put code like the following.

Subroutine CheckForFileAndImport(vFilePath as String)

    If FileExists(vFilePath)
    {
        RunImportSpec(vFilePath)
        If @ResultSetTotal() > 0 Then
        {
            FileDelete(vFilePath)
        }
    }

End Subroutine




Var vI as Int
Var vFile as String

If @ClientLocalValue("CLVImport") = 1 Then
{
    vI = @LoadImportSpec("ALL")
    ClientLocalValue("CLVImport", 0)
    If vI = 1 Then
    {
        vFile = "z:\backup\SM\ANT1.TXT"
        CheckForFileAndImport(vFile)
        vFile = "z:\backup\SM\NG1.TXT"
        CheckForFileAndImport(vFile)
        vFile = "C:\Sesame2\DATA\SM1.TXT"
        CheckForFileAndImport(vFile)
     vFile = "z:\backup\SM\SR1.TXT"
        CheckForFileAndImport(vFile)
    }
}

I tried adding another @SAVE, but that did not work.

The only difference is our location has a SERVER and with 7 workstations, while the other locations have 1 computer is both SERVER and Client.

Hopefully, I figure out how to do this.

The first step to import, works off a batch file for all the databases.
The works fine and does so quickly.

The second step was to open each database at a specific time. 20:46  The programming for the command button is copied to  "On Retrieve Spec Open" and will only work within a certain time frame: ie:  20:45 - 21:00

Each database has a different open schedule and time frame to perform the mass update.

The Mass Update does slow things down, so it is better to do it after hours.