Subversion Repositories delphiutils

Rev

Rev 79 | Rev 81 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 79 Rev 80
Line 85... Line 85...
85 
 
 85 
 
86 
{$R *.dfm}
 86 
{$R *.dfm}
87 
 
 87 
 
88 
// TODO: Trennstriche zwischen Wochen oder zwischen Urlauben
 88 
// TODO: Trennstriche zwischen Wochen oder zwischen Urlauben
89 
// IDEE: Wochenend-Multiplikator
 89 
// IDEE: Wochenend-Multiplikator
- 
 
 90 
// IDEE: Manche Tage nicht mitrechnen
90 
 
 91 
 
91 
uses
 92 
uses
92 
  DateUtils, StrUtils, IniFiles;
 93 
  DateUtils, StrUtils, IniFiles;
93 
 
 94 
 
94 
{$REGION 'Hilfsfunktionen'}
 95 
{$REGION 'Hilfsfunktionen'}
Line 331... Line 332...
331 
  begin
 332 
  begin
332 
    ADOTable1GEHEN.Clear;
 333 
    ADOTable1GEHEN.Clear;
333 
  end
 334 
  end
334 
  else
 335 
  else
335 
  begin
 336 
  begin
- 
 
 337 
    if Pos(':', Text) = 0 then
- 
 
 338 
      ADOTable1GEHEN.AsString := Text + ':00'
- 
 
 339 
    else
336 
    ADOTable1GEHEN.AsString := Text;
 340 
      ADOTable1GEHEN.AsString := Text;
337 
  end;
 341 
  end;
338 
end;
 342 
end;
339 
 
 343 
 
340 
procedure TForm1.ADOTable1KOMMENGetText(Sender: TField; var Text: string;
 344 
procedure TForm1.ADOTable1KOMMENGetText(Sender: TField; var Text: string;
Line 349... Line 353...
349 
  begin
 353 
  begin
350 
    ADOTable1KOMMEN.Clear;
 354 
    ADOTable1KOMMEN.Clear;
351 
  end
 355 
  end
352 
  else
 356 
  else
353 
  begin
 357 
  begin
- 
 
 358 
    if Pos(':', Text) = 0 then
- 
 
 359 
      ADOTable1KOMMEN.AsString := Text + ':00'
- 
 
 360 
    else
354 
    ADOTable1KOMMEN.AsString := Text;
 361 
      ADOTable1KOMMEN.AsString := Text;
355 
  end;
 362 
  end;
356 
end;
 363 
end;
357 
 
 364 
 
358 
procedure TForm1.ADOTable1NewRecord(DataSet: TDataSet);
 365 
procedure TForm1.ADOTable1NewRecord(DataSet: TDataSet);
Line 393... Line 400...
393 
  begin
 400 
  begin
394 
    ADOTable1PAUSE_ENDE.Clear;
 401 
    ADOTable1PAUSE_ENDE.Clear;
395 
  end
 402 
  end
396 
  else
 403 
  else
397 
  begin
 404 
  begin
- 
 
 405 
    if Pos(':', Text) = 0 then
- 
 
 406 
      ADOTable1PAUSE_ENDE.AsString := Text + ':00'
- 
 
 407 
    else
398 
    ADOTable1PAUSE_ENDE.AsString := Text;
 408 
      ADOTable1PAUSE_ENDE.AsString := Text;
399 
  end;
 409 
  end;
400 
end;
 410 
end;
401 
 
 411 
 
402 
procedure TForm1.ADOTable1PAUSE_STARTGetText(Sender: TField; var Text: string;
 412 
procedure TForm1.ADOTable1PAUSE_STARTGetText(Sender: TField; var Text: string;
Line 412... Line 422...
412 
  begin
 422 
  begin
413 
    ADOTable1PAUSE_START.Clear;
 423 
    ADOTable1PAUSE_START.Clear;
414 
  end
 424 
  end
415 
  else
 425 
  else
416 
  begin
 426 
  begin
- 
 
 427 
    if Pos(':', Text) = 0 then
- 
 
 428 
      ADOTable1PAUSE_START.AsString := Text + ':00'
- 
 
 429 
    else
417 
    ADOTable1PAUSE_START.AsString := Text;
 430 
      ADOTable1PAUSE_START.AsString := Text;
418 
  end;
 431 
  end;
419 
end;
 432 
end;
420 
 
 433 
 
421 
procedure TForm1.ADOTable1SONSTIGER_ABZUGGetText(Sender: TField;
 434 
procedure TForm1.ADOTable1SONSTIGER_ABZUGGetText(Sender: TField;
Line 431... Line 444...
431 
  begin
 444 
  begin
432 
    ADOTable1SONSTIGER_ABZUG.Clear;
 445 
    ADOTable1SONSTIGER_ABZUG.Clear;
433 
  end
 446 
  end
434 
  else
 447 
  else
435 
  begin
 448 
  begin
- 
 
 449 
    if Pos(':', Text) = 0 then
- 
 
 450 
      ADOTable1SONSTIGER_ABZUG.AsString := Text + ':00'
- 
 
 451 
    else
436 
    ADOTable1SONSTIGER_ABZUG.AsString := Text;
 452 
      ADOTable1SONSTIGER_ABZUG.AsString := Text;
437 
  end;
 453 
  end;
438 
end;
 454 
end;
439 
 
 455 
 
440 
procedure TForm1.ADOTable1TAGChange(Sender: TField);
 456 
procedure TForm1.ADOTable1TAGChange(Sender: TField);
Line 502... Line 518...
502 
  begin
 518 
  begin
503 
    ADOTable1ZUHAUSE.Clear;
 519 
    ADOTable1ZUHAUSE.Clear;
504 
  end
 520 
  end
505 
  else
 521 
  else
506 
  begin
 522 
  begin
- 
 
 523 
    if Pos(':', Text) = 0 then
- 
 
 524 
      ADOTable1ZUHAUSE.AsString := Text + ':00'
- 
 
 525 
    else
507 
    ADOTable1ZUHAUSE.AsString := Text;
 526 
      ADOTable1ZUHAUSE.AsString := Text;
508 
  end;
 527 
  end;
509 
end;
 528 
end;
510 
 
 529 
 
511 
procedure TForm1.Button1Click(Sender: TObject);
 530 
procedure TForm1.Button1Click(Sender: TObject);