procedure TForm_Uitbetalen.BT_Rapport_PrintClick(Sender: TObject);
var d1, d2, d3, t1, t2, i: integer;
d,t,a : string;
begin
TQ_Uitbetalen.DataBase := Form_Information.Connect_RefereeDB;
i := 10;
TQ_Uitbetalen.SQL.Text := 'UPDATE tbl_Wedstrijden SET Wed_Datum = :Wed_Datum, Wed_Tijd = :Wed_Tijd WHERE Wed_ID = :Wed_ID';
while i <> 601 do begin
case i of
11, 13, 58, 59, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 79,
83, 134, 139, 141, 145, 152, 164, 177, 185, 204, 242, 255, 259, 262, 272,
274, 275, 304, 327, 353, 355, 365, 366, 367, 368, 369,
370, 371, 372, 421, 422, 423, 426, 428, 439, 443, 444, 445, 446, 447, 448, 449,
455, 466, 470, 471, 519, 537, 538, 553, 571, 579, 581, 593, 595,
599 : begin // exceptions
// ShowMessage (IntToStr(i));
i := i;
end
else
begin
d := MLookup('Wed_Datum','tbl_Wedstrijden','Wed_ID='+ IntToStr(i));
t := MLookup('Wed_Tijd','tbl_Wedstrijden','Wed_ID='+ IntToStr(i));
d1 := StrToInt (Copy(d, 1, 2)); // maand
d2 := StrToInt (Copy(d, 4, 2)); // dag
d3 := StrToInt ('20' + Copy(d, 7, 2)); // jaar
t1 := StrToInt (Copy(t, 1, 2)); // uren
t2 := StrToInt (Copy(t, 4, 2)); // minuten 12:15:00 PM
// AM en PM berekenen.
a := Copy(t, 10,2);
if a = 'AM' then
begin
if t1 = 12 then t1 := 0;
end
else begin
if t1 <> 12 then t1 := t1 + 12;
end; // if
TQ_Uitbetalen.Params.BeginUpdate;
TQ_Uitbetalen.ParamByName('Wed_Datum').AsDateTime := EncodeDate(d3, d1, d2);
TQ_Uitbetalen.ParamByName('Wed_Tijd').AsTime := EncodeTime(t1, t2, 00, 000);
TQ_Uitbetalen.ParamByName('Wed_ID').AsInteger := i; //give a real value from database
TQ_Uitbetalen.Params.EndUpdate;
TQ_Uitbetalen.ExecSQL;
TQ_Uitbetalen.ApplyUpdates;
end;
end; // case
i := i + 1;
end; // while
Form_Information.Trans_RefereeDB.Commit;
end;