copy dimension value from a company to another company

gazpacho

Hello,

I want to copy the value of Global Dimension 1 of a contact in company A to a contact in company B. When I assign them with

RecContactCompanyB."Global Dimension 1 Code" := RecContactCompanyA."Global Dimension 1 Code"

it does not work. The field in RecContactCompanyB remains empty. What am I doing wrong ?

Best regards

Josh R.

Miklos_Hollender

Call MODIFY.

gazpacho

Ok, sorry if I was not clear. Of course I call MODIFY after this. But it still remains empty.

Marije_Brummel

Please post more code, looking at what you have provided we cannot help you.

gazpacho

RecContactCompanyB.CHANGECOMPANY(‘Company B’);
IF NOT(RecContactCompanyB.GET(RecContactCompanyA." No.")) THEN
EXIT
ELSE BEGIN
RecContactCompanyB."Global Dimension 1 Code" := RecContactCompanyA."Global Dimension 1 Code";
RecContactcompanyB.MODIFY;
END;

Miklos_Hollender

Maybe RecContactCompanyA.GET is missing.

gazpacho

I checked it; RecContactCompanyA is not empty.

kriki

gazpacho wrote:

RecContactCompanyB.CHANGECOMPANY(‘Company B’);
IF NOT(RecContactCompanyB.GET(RecContactCompanyA." No.")) THEN
EXIT
ELSE BEGIN
RecContactCompanyB."Global Dimension 1 Code" := RecContactCompanyA."Global Dimension 1 Code";
RecContactcompanyB.MODIFY;
END;

Are you sure that "RecContactCompanyB.GET" gets you a record?
If you change the "EXIT" with an "ERROR('No record found');", and you get the error, it means you didn't find a record.

Marije_Brummel

Or remove the IF condition and receive a runtime error