Dynamics Community Forum Thread Details

New records transfer issue from one table to another

Hi,

Any one can help ?

using Navision 2016 CU 24 application .

designed two table with ID 50130 and ID 50131

Navision database is SQL 2014 std SP2(service pack 2)

create link server in Navison in SQL 2014 with another SQL 2008 R2

and used the ADO connection to import data from SQL 2008 table to Navision table by using code unit ( running through JOB que entries)

lADOConnection.Open;

lVarConnection := lADOConnection;
lADOCommand := lADOCommand.OdbcCommand();
lADOCommand.CommandTimeout(0);

Table ID 50130 upadated regularly without any issue.

in next step trying to copy data from Navision table ID 50130 to 50131 , using another code unit (running through JOB que entries)

OnRun()

Frecordinsert(); ///Function created to insert data from Table 50130 to 50131

LOCAL Frecordinsert()
CLEAR(CMS_EXP_TRA); //// CMS_EXP_TRA is a record of table ID 50130
RecCMSEXPTRA.RESET; /// RecCMSEXPTRA is a record of table ID 50130
IF RecCMSEXPTRA.FINDFIRST THEN REPEAT
//CMS_EXP_TRA.RESET;
CMS_EXP_TRA.SETRANGE(CMS_EXP_TRA.EntryNo,RecCMSEXPTRA.EntryNo);
IF CMS_EXP_TRA.FINDFIRST THEN BEGIN
CMS_EXP_TRA.GenJour:= TRUE;
CMS_EXP_TRA.MODIFY;

END;
UNTIL RecCMSEXPTRA.NEXT=0;

////////////////////////////////////////////

GCMS_EXP_TRA1.RESET; //// GCMS_EXP_TRA1 is a record of table ID 50130

IF GCMS_EXP_TRA1.FIND('-') THEN
REPEAT
GCMS_EXP_INT_TRA.INIT; /////GCMS_EXP_INT_TRA is a record of table ID 50131
GCMS_EXP_INT_TRA.VALIDATE(EntryNo,GCMS_EXP_TRA1.EntryNo);
GCMS_EXP_INT_TRA.VALIDATE(DocumentNo,GCMS_EXP_TRA1.DocumentNo);
GCMS_EXP_INT_TRA.JournalTempName:='GENERAL';
GCMS_EXP_INT_TRA.JournalBatchName:='INTERFACE';
GCMS_EXP_INT_TRA.SourceCode:='CASHRECJNL';
GCMS_EXP_INT_TRA.VALIDATE(LineNo,GCMS_EXP_TRA1.LineNo);
GCMS_EXP_INT_TRA.VALIDATE(AccountNo,GCMS_EXP_TRA1.AccountNo);
GCMS_EXP_INT_TRA.VALIDATE(PostingDate,GCMS_EXP_TRA1.PostingDate);
GCMS_EXP_INT_TRA.VALIDATE(DocumentType,GCMS_EXP_TRA1.DocumentType);
GCMS_EXP_INT_TRA.VALIDATE(BalAccountNo,GCMS_EXP_TRA1.BalAccountNo);
GCMS_EXP_INT_TRA.VALIDATE(ExternalDOC,GCMS_EXP_TRA1.ExternalDOC);
GCMS_EXP_INT_TRA.VALIDATE(Amount,GCMS_EXP_TRA1.Amount);
GCMS_EXP_INT_TRA.VALIDATE(SBUCode,GCMS_EXP_TRA1.SBUCode);
GCMS_EXP_INT_TRA.VALIDATE(CenterCode,GCMS_EXP_TRA1.CenterCode);
GCMS_EXP_INT_TRA.VALIDATE(EMPLOYEECODE,GCMS_EXP_TRA1.EMPLOYEECODE);
GCMS_EXP_INT_TRA.VALIDATE(LocationCode,GCMS_EXP_TRA1.LocationCode);
GCMS_EXP_INT_TRA.VALIDATE(StateCode,GCMS_EXP_TRA1.StateCode);
GCMS_EXP_INT_TRA.GenJour:=FALSE;
GCMS_EXP_INT_TRA.GenLed:=FALSE;
IF GCMS_EXP_INT_TRA.INSERT THEN;
UNTIL GCMS_EXP_TRA1.NEXT=0;