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;