procedure TServicedetails.B_SpeichernClick(Sender: TObject);
begin
if L_Freigabe.Caption < '22' then
 begin
 if E_Serviceberichtnr.Text = '2000' then
  begin
   Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Serviceberichtnr.';
   Mainframe.Fehlermeldung.L_Zusatz.Caption := 'ergänzen';
   Mainframe.Fehlermeldung.Show;
  end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

 if CB_Zustand.Text = '' then
  begin
   Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Zustand';
   Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste Auswählen';
   Mainframe.Fehlermeldung.Show;
  end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

 if E_Maengel.Text = '' then
  begin
   Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Endeckte Mängel';
   Mainframe.Fehlermeldung.L_Zusatz.Caption := 'eintragen';
   Mainframe.Fehlermeldung.Show;
  end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

 if CB_Taupunkt.Text = '' then
  begin
   Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Taupunktmessung';
   Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
   Mainframe.Fehlermeldung.Show;
  end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if E_L1.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'L1';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder eine 0 eintragen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if E_L2.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'L2';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder eine 0 eintragen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if E_L3.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'L3';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder eine 0 eintragen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if E_N.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'N';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder eine 0 eintragen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if E_PE.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'PE';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder eine 0 eintragen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if CB_Wartungssiegel.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Wartungssiegel';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if E_naechste_Wartung.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'nächste Wartung';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'im Datumsformat TT.MM.JJJJ eintragen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

   if CB_Komponenten.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Komponenten auf Verschleiß...';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if CB_Elektische.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Elektrische Komponenten...';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if CB_Schrauben.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Schraub- und Steckverbindungen...';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if CB_Pneumatische.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Pneumatische Einrichtungen...';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if CB_Ventilgruppen.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Ventilgruppen geprüft ...';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if CB_Dichtungen.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Dichtungen geprüft';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if CB_Filter.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Filter gereinigt ggf. erneuert';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if CB_Schlaeuche.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Schläche überprüft';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if CB_Grundreinigung.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Grundreinigung';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'aus der Liste auswählen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if E_Bemerkungen.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Bemerkungen';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder "keine" eintragen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;

  if E_Reparaturzeit.Text = '' then
   begin
    Mainframe.Fehlermeldung.L_Bezeichner.Caption := 'Reparaturzeit';
    Mainframe.Fehlermeldung.L_Zusatz.Caption := 'oder 0 eintragen';
    Mainframe.Fehlermeldung.Show;
   end
 else;
  Begin
   L_Freigabe.Caption := L_Freigabe.Caption + '1';
  end;
  end
 else;
  begin
 if L_Freigabe.Caption = '' then
  begin
   Tabellen.TAB_Servicebericht.Active := True;
   Tabellen.TAB_Servicebericht.Insert;
   Tabellen.TAB_Servicebericht.FieldByName('Anlagen_ID').Value := Mainframe.Hauptseite.DBT_Anlagen_ID.Caption;
   Tabellen.TAB_Servicebericht.FieldByName('Datum').AsDateTime := DTP_Datum.Date;
   Tabellen.TAB_Servicebericht.FieldByName('Zustand').Value := CB_Zustand.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Maengel').Value := E_Maengel.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Taupunkt').Value := CB_Taupunkt.Text;
   Tabellen.TAB_Servicebericht.FieldByName('L1').Value := E_L1.Text;
   Tabellen.TAB_Servicebericht.FieldByName('L2').Value := E_L2.Text;
   Tabellen.TAB_Servicebericht.FieldByName('L3').Value := E_L3.Text;
   Tabellen.TAB_Servicebericht.FieldByName('N').Value := E_N.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Erde').Value := E_PE.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Wartungssiegel').Value := CB_Wartungssiegel.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Datumnaechste').Value := E_Naechste_Wartung.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Komponenten').Value := CB_Komponenten.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Elektrische').Value := CB_Elektrische.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Verbindungen').Value := CB_Schrauben.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Pneumatische').Value := CB_Pneumatische.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Ventilgruppen').Value := CB_Ventilgruppen.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Dichtungen').Value := CB_Dichtungen.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Filter').Value := CB_Filter.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Schlaeche').Value := CB_Schlaeuche.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Grundreinigung').Value := CB_Grungreinigung.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Wartungs_ID').Value := L_Warungsarbeiten_ID.Caption;
   Tabellen.TAB_Servicebericht.FieldByName('Arbeiten_ID').Value := L_Arbeiten_ID.Caption;
   Tabellen.TAB_Servicebericht.FieldByName('Berichtnummer').Value := E_Serviceberichtnr.Text;
   if Mainframe.Ersatzteile1.L_Verbrauchs_ID1.Caption > '0' then
    begin
     Tabellen.TAB_Servicebericht.FieldByName('Ersatzteil_ID1').Value := Mainframe.Ersatzteile1.L_Verbrauchs_ID1.Caption;
    end;
   if Mainframe.Ersatzteile1.L_Verbrauchs_ID2.Caption > '0' then
    begin
     Tabellen.TAB_Servicebericht.FieldByName('Ersatzteil_ID2').Value := Mainframe.Ersatzteile1.L_Verbrauchs_ID2.Caption;
    end;
   if Mainframe.Ersatzteile1.L_Verbrauchs_ID3.Caption > '0' then
    begin
     Tabellen.TAB_Servicebericht.FieldByName('Ersatzteil_ID3').Value := Mainframe.Ersatzteile1.L_Verbrauchs_ID3.Caption;
    end;
   if Mainframe.Ersatzteile1.L_Verbrauchs_ID4.Caption > '0' then
    begin
     Tabellen.TAB_Servicebericht.FieldByName('Ersatzteil_ID4').Value := Mainframe.Ersatzteile1.L_Verbrauchs_ID4.Caption;
    end;
   if Mainframe.Ersatzteile1.L_Verbrauchs_ID5.Caption > '0' then
    begin
     Tabellen.TAB_Servicebericht.FieldByName('Ersatzteil_ID5').Value := Mainframe.Ersatzteile1.L_Verbrauchs_ID5.Caption;
    end;
   Tabellen.TAB_Servicebericht.FieldByName('Bemerkung').Value := E_Bemerkungen.Text;
   Tabellen.TAB_Servicebericht.FieldByName('Reparaturzeit').Value := E_Reparaturzeit.Text;
   Tabellen.TAB_Servicebericht.Post;
   Mainframe.Ersatzteile1.L_Zaehler.Caption := '';
   Mainframe.Ersatzteile1.L_Verbrauchs_ID1.Caption := '';
   Mainframe.Ersatzteile1.L_Verbrauchs_ID2.Caption := '';
   Mainframe.Ersatzteile1.L_Verbrauchs_ID3.Caption := '';
   Mainframe.Ersatzteile1.L_Verbrauchs_ID4.Caption := '';
   Mainframe.Ersatzteile1.L_Verbrauchs_ID5.Caption := '';
   B_Ersatzteile.Enabled := True;
   CB_Zustand.Text := '';
   E_Maengel.Text := '';
   CB_Taupunkt.Text := '';
   E_L1.Text := '';
   E_L2.Text := '';
   E_L3.Text := '';
   E_N.Text := '';
   E_PE.Text := '';
   CB_Wartungssiegel.Text := '';
   E_Naechste_Wartung.Text := '';
   CB_Komponenten.Text := '';
   CB_Elektrische.Text := '';
   CB_Schrauben.Text := '';
   CB_Pneumatische.Text := '';
   CB_Ventilgruppen.Text := '';
   CB_Dichtungen.Text := '';
   CB_Filter.Text := '';
   CB_Schlaeuche.Text := '';
   CB_Grungreinigung.Text := '';
   L_Warungsarbeiten_ID.Caption := '';
   L_Arbeiten_ID.Caption := '';
   E_Bemerkungen.Text := '';
   E_Reparaturzeit.Text := '';
   E_Serviceberichtnr.Text := '2000';
   B_Drucken.Enabled := True;
  end;
end;