copy date field from one company to another company

Hi All,
Can anyboy help me about,
I would like copythe date(fromdate & ToDate) field in form 101 to another company

here is my code: when I execute its gave me an error that the record is been changed by another person when he was reading.


code :


IF xRec.FIND('-') THEN BEGIN
REPEAT
txtName := xRec.Name;
dtFrom := xRec."Allow Posting From";
dtTo := xRec."Allow Posting To";

IF CHANGECOMPANY('AAAAA') THEN BEGIN
IF xRec.FIND('=') THEN BEGIN
IF xRec.Name = txtName THEN BEGIN
xRec."Allow Posting From" := dtFrom;
xRec."Allow Posting To" := dtTo;
END;
END
END;

CHANGECOMPANY(COMPANYNAME);
UNTIL xRec.NEXT = 0;
END;