How to remove Error when i import data by codeunit

Business Central/NAV Developers Forum
1

Hi,

I write a code on coddeunit object to import data into table from csv file .

when i run, that import data to that field but when i again run the same codeunit that gives me an Error i.e

The catoNavIntegration already exist.Identification field and values:Cato medication ID=‘900’.

But i don’t want this error, I want Fields update bu primary field.

So i need codde for this.

Thanks in advance

Avinash

I am using NAV 2013

2

Can you show us the highlevel code.

where you are inserting?

3

Thanks for Reply,

My code is below

CLEAR(File1);

File1.OPEN(‘E:\Avinash wikal\NavImport.csv’);
File1.CREATEINSTREAM(Instream_1);

WHILE NOT (Instream_1.EOS()) DO
BEGIN
RecLength := Instream_1.READTEXT(FileText);
FileText1 := COPYSTR(FileText,1,RecLength);

FPOS := STRPOS(FileText1,’;’);
CatoNavIntegration.“CATO Medication ID” := COPYSTR(FileText1,1,FPOS-1);
FileText1 := DELSTR(FileText1,1,FPOS);

FPOS := STRPOS(FileText1,’;’);
CatoNavIntegration.“NAV Order No.” := COPYSTR(FileText1,1,FPOS-1);
FileText1 := DELSTR(FileText1,1,FPOS);

FPOS := STRPOS(FileText1,’;’);
CatoNavIntegration.“Customer No.” := COPYSTR(FileText1,1,FPOS-1);
FileText1 := DELSTR(FileText1,1,FPOS);

FPOS := STRPOS(FileText1,’;’);
IF STRLEN(COPYSTR(FileText1,1,FPOS-1)) <>0 THEN BEGIN
ImportString := COPYSTR(FileText1,1,FPOS-1);
EVALUATE(Day, COPYSTR(ImportString,9,2));
EVALUATE(Month, COPYSTR(ImportString,6,2));
EVALUATE(Year, COPYSTR(ImportString,1,4));
TimeText:=COPYSTR(ImportString,12,2)+COPYSTR(ImportString,15,2);
EVALUATE(TheTime, TimeText);
DTime := CREATEDATETIME(DMY2DATE(Day, Month, Year), TheTime);
CatoNavIntegration.“Prod Date and Time” := DTime;
END;
FileText1 := DELSTR(FileText1,1,FPOS);

FPOS := STRPOS(FileText1,’;’);
CatoNavIntegration.UID := COPYSTR(FileText1,1,FPOS-1);
FileText1 := DELSTR(FileText1,1,FPOS);

FPOS := STRPOS(FileText1,’;’);
CatoNavIntegration.“Batch No.” := COPYSTR(FileText1,1,FPOS-1);
FileText1 := DELSTR(FileText1,1,FPOS);

FPOS := STRPOS(FileText1,’,’);
IF FPOS<>0 THEN
BEGIN
FileText1:= COPYSTR(FileText1,1,FPOS-1)+’.’+COPYSTR(FileText1,FPOS+1,STRLEN(FileText1));
END;
EVALUATE(Qty,FORMAT(FileText1));
CatoNavIntegration.Quantity := Qty;

CatoNavIntegration.Status := CatoNavIntegration.Status::New;
CatoNavIntegration.INSERT;
END;
File1.CLOSE;

4

Now i want to update data which already exist in the table

Pls Reply me soon because it is very urgent

Thanks

5

Did you try

IF NOT CatoNavIntegration.INSERT THEN

CatoNavIntegration.Modify;

6

yes I did but nothing progress