Hallo,
entweder habe ich einen Denkfehler, oder die gesamte Bedingung taugt nichts:
Delphi-Quellcode:
procedure TRechnung.Button3Click(Sender: TObject);
begin
Table1.Next;
DateTimePicker2.Date:=StrToDateTime(DBText4.Caption);
DateTimePicker3.Date:=StrToDateTime(DBText5.Caption);
DateTimePicker4.Date:=StrToDateTime(DBEdit22.Text);
DateTimePicker5.Date:=StrToDateTime(DBEdit23.Text);
DateTimePicker6.Date:=StrToDateTime(DBEdit24.Text);
Rechnung.Label21.Caption:=FormatDateTime('dd.mm.yyyy',date+StrToInt(Rechnung.DBText6.Caption));
spSkinButton1.Enabled := True;
spSkinButton2.Enabled := True;
if DateTimePicker1.Date <= DateTimePicker3.Date then begin
Table1.Edit;
DBEdit17.Text:='offen';
DBText5.Font.Color:=clYellow;
Button1Click(nil);
end else begin
Table1.Edit;
Button1Click(nil);
end;
if DateTimePicker1.Date >= DateTimePicker3.Date then begin
Table1.Edit;
DBEdit17.Text:='1. Mahnstufe';
DBText5.Font.Color:=clRed;
Button1Click(nil);
end else begin
Table1.Edit;
Button1Click(nil);
end;
if DateTimePicker1.Date >= DateTimePicker4.Date then begin
Table1.Edit;
DBEdit17.Text:='2. Mahnstufe';
DBText5.Font.Color:=clRed;
Button1Click(nil);
end else begin
Table1.Edit;
Button1Click(nil);
end;
if DateTimePicker1.Date >= DateTimePicker5.Date then begin
Table1.Edit;
DBEdit17.Text:='3. Mahnstufe';
DBText5.Font.Color:=clRed;
Button1Click(nil);
end else begin
Table1.Edit;
Button1Click(nil);
end;
if DateTimePicker1.Date >= DateTimePicker6.Date then begin
Table1.Edit;
DBEdit17.Text:='Klage';
DBText5.Font.Color:=clRed;
Button1Click(nil);
end else begin
Table1.Edit;
Button1Click(nil);
end;
if vergleicheStringsN(Label27.Caption, DBEdit21.Text, 50)=True then begin
Table1.Edit;
DBEdit17.Text:='Bezahlt';
DBText5.Font.Color:=clYellow;
Button1Click(nil);
end else begin
Table1.Edit;
Button1Click(nil);
end;
if Table1.EOF then begin
spSkinButton4Click(Self);
spSkinButton17.Enabled:=True;
Timer1.Enabled:=False;
end;
end;
Die vorletzte Bedingung wird nicht geprüft. Was läuft hier schief?