Lesen aus Tabellenspalten

[MCFEED]

JOOO!! Du bist ein Genie, du weisst was ich will

Hier zu mal Quellcode(Speicherung in Tabelle)

Delphi-Quellcode:

procedure TAusgang_SL_F.BB_SpeichernClick(Sender: TObject);
begin

  Tab_Ausgang.Append;
  //Tab_Ausgang.putfield('Termin_ID');
  Tab_Ausgang.putfield('_MA_NR1', E_Nr1.text);
  Tab_Ausgang.putfield('_MA_NR2', E_Nr2.text);
  Tab_Ausgang.putfield('_MA_NR3', E_Nr3.text);
  Tab_Ausgang.putfield('_MA_NR4', E_Nr4.text);
  Tab_Ausgang.putfield('_KZ', 1);
 // XTERMIN->VORGANG_ID->BEMERKUNG = Ausgabe Bemerkung!!!
  Tab_Ausgang.putfield('_Tag_Von', strtodatetime(E_TagVon.text));
  Tab_Ausgang.putfield('_Tag_Bis', strtodatetime(E_TagBis.text));
  Tab_Ausgang.putfield('AngelegtAm', now);
  Tab_Ausgang.putfield('AngelegtVon', global_Benutzer);
  Tab_Ausgang.putfield('BearbeitetAm', now);
  Tab_Ausgang.putfield('BearbeitetVon', Global_Benutzer);
  //        Tab_ausgang.putfield('_BEMERKUNG', E_Bemerkung.text);

  if E_KUNR.text <> ''
  then begin
    Tab_Ausgang.putfield('_ADRESSEN_NR', E_KUNR.text);
    Tab_Ausgang.putfield('_Tab_KZ', 'KU' );
  end
  else begin
    if E_LIENR.text <> ''
    then begin
      Tab_Ausgang.putfield('_ADRESSEN_NR', E_LIENR.text);
      Tab_Ausgang.putfield('_Tab_KZ', 'LI');
    end
    else begin
      if E_INTNR.text <> ''
      then begin
        Tab_Ausgang.putfield('_ADRESSEN_NR', E_INTNR.text);
        Tab_Ausgang.putfield('_Tab_KZ', 'IN');
      end
      else begin
        ShowMessage('Keine Zieladresse ausgewählt');
        exit;
      end;
    end;
  end;
  Tab_Ausgang.post;