5. Februar 2011 21:48
IF "Sales Header"."Exit Point" <> '' THEN
GOBOrt := "Entry/Exit Point".Description
ELSE
IF (ShipmentMethod.Code = 'EXW') OR (ShipmentMethod.Code = 'FCA') THEN
GOBOrt := CompanyInfo.City
ELSE
IF (ShipmentMethod.Code = 'CPT') OR (ShipmentMethod.Code = 'CIP') OR
(ShipmentMethod.Code = 'DDU') OR (ShipmentMethod.Code = 'DDP') THEN
GOBOrt := "Sales Header"."Ship-to City"
ELSE
GOBOrt := "Entry/Exit Point".Description;
5. Februar 2011 23:31
IF "Sales Header"."Exit Point" <> '' THEN BEGIN
IF "Entry/Exit Point".GET("Sales Header"."Exit Point") THEN
GOBOrt := "Entry/Exit Point".Description
else
GOBOrt := '';
END;
6. Februar 2011 17:56
IF "Entry/Exit Point".GET("Sales Header"."Exit Point") THEN
GOBOrt := "Entry/Exit Point".Description
else
IF (ShipmentMethod.Code = 'EXW') OR (ShipmentMethod.Code = 'FCA') THEN
GOBOrt := CompanyInfo.City
ELSE
IF (ShipmentMethod.Code = 'CPT') OR (ShipmentMethod.Code = 'CIP') OR
(ShipmentMethod.Code = 'DDU') OR (ShipmentMethod.Code = 'DDP') THEN
GOBOrt := "Sales Header"."Ship-to City";