[gelöst] Reporthilfe Hafen

5. Februar 2011 21:48

Hallo,

ich habe ein kleines Problem mit einem Report.

In einem Auftrag gibt es das Feld Einladehafen (Tabelle Hafen) in dem RODAM steht; als RODAM steht die Beschreibung Rotterdam (steht alles in der Tabelle Hafen)
Nun möchte ich in dem Report nicht RODAM stehen haben sondern Rotterdam. Doch das kriege ich irgendwie nicht hin.
Habe folgendes in der Entwurfsansucht (DOK1.pdf)

In dem C/al Code von Sales Header habe ich folgendes im OnAfterGetRecord eingebaut:

Code:
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;


Doch sobald ich in dem Feld Einladehafen etwas eingetragen habe wird nichts angezeigt, wenn das Feld leer bleibt funktioniert alles einwandfrei.

Den Code habe ich auch bereits im C/al Code von Entry/Exit Point" hinterlegt, doch hat leider nicht gebracht. :-(


Ich weiss zur zeit nicht was ich da falsch mache..

Kann mir jemand helfen?
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Zuletzt geändert von sthuening am 6. Februar 2011 17:57, insgesamt 1-mal geändert.

Re: Reporthilfe Hafen

5. Februar 2011 23:31

Der Hafen-Datensatz muss auch aufgerufen werden, das fehlt komplett.
Code:
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;

Re: Reporthilfe Hafen

6. Februar 2011 17:56

Hallo Kowa,

vielen dank für deine Antwort.

Hat wie folgt funktioniert.
Code:
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";


Hab ich leider in der Schulung nicht gelernt. :-(