[GELÖST] IF THEN ELSE Problem :-)

Hallo Leute,

ich glaube ich blicks nicht mehr, ich habe ein Feld "erledigt" wenn das auf "Ja" gesetzt wird möchte ich zuerst prüfen ob in dem Feld "Teile" ein Wert steht und auch ob in dem Feld "Lagernummer" was steht. Wenn dort jeweils nichts steht soll er gar nix machen.

Wenn aber ein Wert ungleich 0 drin steht in einem von den beiden Feldern oder in beiden (die Feld also befüllt sindd) möchte ist das er meine einfüge-funktion ausführt.

Irgendwie macht er aber gar nix???

Code:

IF erledigt = TRUE THEN BEGIN
  IF Teile <> 0 THEN
    IF Lagernummer <> 0 THEN


  lager.Zaehler := 0;
  lager.INIT;
  lager."No." := "No.";
  lager.KUNUMMER := KUNUMMER;
  lager.Artikelnummer := Artikelnummer;
  lager.ArtBezeichnung := ArtBezeichnung;
  lager.Farbe := Farbe;
  lager.Werkstoff := Werkstoff;
  lager.Lagernummer := Lagernummer;
  lager.Lagerort := Lagerort;
  lager.Typ := Typ;
  lager.Ausgang := Teile;
  lager.INSERT(TRUE);
END ELSE
MESSAGE('NICHTS AUSGEFÜHRT');
END;

Zuletzt geändert von tesarolle am 19. Februar 2007 13:24, insgesamt 1-mal geändert.

Code:

IF erledigt AND
   ((Teile <> 0) OR (Lagernummer <> 0))  // Doppelte Klammerung beachten
THEN BEGIN
  lager.Zaehler := 0;
  lager.INIT;
  lager."No." := "No.";
  lager.KUNUMMER := KUNUMMER;
  lager.Artikelnummer := Artikelnummer;
  lager.ArtBezeichnung := ArtBezeichnung;
  lager.Farbe := Farbe;
  lager.Werkstoff := Werkstoff;
  lager.Lagernummer := Lagernummer;
  lager.Lagerort := Lagerort;
  lager.Typ := Typ;
  lager.Ausgang := Teile;
  lager.INSERT(TRUE);
END ELSE
  MESSAGE('NICHTS AUSGEFÜHRT');

VIELEN DANK KLASSE!