The code below works except that when you try to go back to search mode or to close tab, the "The current record has been changed and has not been committed to the database. Are you sure you want to close this record?" warning pops up. If you click yes twice, the record is retained but without a "unique" number that the record was given when you entered add data mode, and before performing the import. If you manually select Save Record it works just fine and retains the unique number.

Can you help me save this record with programming?

Thanks for the help.

var vRun as Int
var vSpec as String
var vFile as String

	vSpec = "ImportRefRecord"
	vFile = "C:\Sesame2\Docs\ExportRef.txt"
	vRun = @LoadImportSpec(vSpec)
	If vRun = 1
	{
		If FileExists(vFile)
		{
			RunImportSpec(vFile)
		}
		Else
		{
			@Msg("Could not find the import file " + vFile)
		}
	}
	Else
	{
		@Msg("Could not find the Import spec named " + vSpec)
	}

Formcommit("Ledger") //Save subform
Formcommit("Reference") //Save parent
 

Hi Ray,

No change.

Let me build a Test case here and see what I can find out for you.

-Ray

It looks like your Unique Number is being assigned after the import, which thinking about it makes sense now. This means that the imported record has already been saved by your import routine and then changed by the On Form Entry routine. To fix this you can place this code in global

Stat gsSave as Int

gsSave = 0 

Add this code to the bottom of your OnFormEntry Event

If gsSave = 1 Then
{
	FormCommit("")
	gsSave = 0
} 

and this code to your import button right after the RunImportSpec(vFile) line

gsSave = 1 

-Ray

Hi Ray,

So, in theory should this code work to perform all the tasks of exporting and then importing all at one time?

I can't get it to work, or, am I asking for too much here?

var vNav as Int
var vExp as Int
var vSpec as String
var vFile as String
var vRun as Int

	vExp = @LoadExportSpec("ExportRefRecord")
	If vExp = 1
	{
		RunExportSpec("Docs\ExportRef.txt",",","",0,1,0,1,0,1,0,0)
	}

vNav = @SelectTreeItem("Search Update Menu!Navigation!Switch to Add Data Mode (Ctrl-F6)")

@exit

	vSpec = "ImportRefRecord"
	vFile = "C:\Sesame2\Docs\ExportRef.txt"
	vRun = @LoadImportSpec(vSpec)
	If vRun = 1
	{
		If FileExists(vFile)
		{
			RunImportSpec(vFile)
			gsSave = 1

		}
		Else
		{
			@Msg("Could not find the import file " + vFile)
		}
	}
	Else
	{
		@Msg("Could not find the Import spec named " + vSpec)
	}

Formcommit("Ledger") //Save subform
Formcommit("") //Save parent  

What ever you do, don't lose the "top of your head"! I need it!

Works great, thank you very much, again!