>oDE = newobject("LOCIDataEnv", "source\LOCIAnalysisData") >oDE.OpenTables() > >* ------------------------------------------------------------------------ >* Fill ACalcVarCursor. >* ------------------------------------------------------------------------ >oDE.ACalcVarCA.NoData = .f. >oDE.ACalcVarCA.CursorFill() > >* ------------------------------------------------------------------------ >* Get rid of existing records. >* ------------------------------------------------------------------------ >select ACalcVarCursor >delete all >? "TableUpdate after DELETE ALL on ACalcVarCursor returned " + transform(tableupdate(.t.)) >oDE.ACalcVarCA.CursorRefresh() > >* ------------------------------------------------------------------------ >* Append from ACALC_VA and save to SQL Server table. >* ------------------------------------------------------------------------ >select ACalcVarCursor >append from data\acalc_va >replace all projectid with 0 >? "TableUpdate after APPEND FROM ACALC_VA returned " + transform(tableupdate(.t.)) >oDE.ACalcVarCA.CursorRefresh() > >* ------------------------------------------------------------------------ >* Fill AnalysisCursor. >* ------------------------------------------------------------------------ >oDE.AnalysisCA.NoData = .f. >oDE.AnalysisCA.CursorFill() > >* ------------------------------------------------------------------------ >* Get rid of existing records. >* ------------------------------------------------------------------------ >select AnalysisCursor >delete all >? "TableUpdate after DELETE ALL on AnalysisCursor returned " + transform(tableupdate(.t.)) >oDE.AnalysisCA.CursorRefresh() > >* ------------------------------------------------------------------------ >* Append from ANALYSIS and save to SQL Server table. >* ------------------------------------------------------------------------ >select AnalysisCursor >append from data\analysis >replace all projectid with 0,; > linenumber with -recno() >? "TableUpdate after APPEND FROM ANALYSIS returned " + transform(tableupdate(.t.)) >oDE.AnalysisCA.CursorRefresh() > >* ------------------------------------------------------------------------ >* Fill CalcVarCursor. >* ------------------------------------------------------------------------ >oDE.CalcVarCA.NoData = .f. >oDE.CalcVarCA.CursorFill() > >* ------------------------------------------------------------------------ >* Get rid of existing records. >* ------------------------------------------------------------------------ >select CalcVarCursor >delete all >? "TableUpdate after DELETE ALL on CalcVarCursor returned " + transform(tableupdate(.t.)) >oDE.CalcVarCA.CursorRefresh() >>