31. Januar 2018 12:13
31. Januar 2018 12:38
31. Januar 2018 12:55
IF "Bill to Code" <> '' THEN BEGIN
RechAnAdr.GET("Bill-to Customer No.","Bill to Code");
"Bill-to Name" := RechAnAdr.Name;
"Bill-to Name 2" := RechAnAdr."Name 2";
"Bill-to Address" := RechAnAdr.Address;
"Bill-to Address 2" := RechAnAdr."Address 2";
"Bill-to City" := RechAnAdr.City;
"Bill-to Post Code" := RechAnAdr."Post Code";
"Bill-to County" := RechAnAdr.County;
"Bill-to Country Code" := RechAnAdr."Country Code";
"Bill-to Contact" := RechAnAdr.Contact;
END ELSE BEGIN
GetCust("Bill-to Customer No.");
"Bill-to Name" := Cust.Name;
"Bill-to Name 2" := Cust."Name 2";
"Bill-to Address" := Cust.Address;
"Bill-to Address 2" := Cust."Address 2";
"Bill-to City" := Cust.City;
"Bill-to Post Code" := Cust."Post Code";
"Bill-to County" := Cust.County;
"Bill-to Country Code" := Cust."Country Code";
"Bill-to Contact" := Cust.Contact;
END;