Subversion Repositories delphiutils

Compare Revisions

Ignore whitespace Rev 79 → Rev 80

/trunk/Zeiterfassung/Zeiterfassung.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk/Zeiterfassung/ZeiterfassungMain.pas
87,6 → 87,7
 
// TODO: Trennstriche zwischen Wochen oder zwischen Urlauben
// IDEE: Wochenend-Multiplikator
// IDEE: Manche Tage nicht mitrechnen
 
uses
DateUtils, StrUtils, IniFiles;
333,7 → 334,10
end
else
begin
ADOTable1GEHEN.AsString := Text;
if Pos(':', Text) = 0 then
ADOTable1GEHEN.AsString := Text + ':00'
else
ADOTable1GEHEN.AsString := Text;
end;
end;
 
351,7 → 355,10
end
else
begin
ADOTable1KOMMEN.AsString := Text;
if Pos(':', Text) = 0 then
ADOTable1KOMMEN.AsString := Text + ':00'
else
ADOTable1KOMMEN.AsString := Text;
end;
end;
 
395,7 → 402,10
end
else
begin
ADOTable1PAUSE_ENDE.AsString := Text;
if Pos(':', Text) = 0 then
ADOTable1PAUSE_ENDE.AsString := Text + ':00'
else
ADOTable1PAUSE_ENDE.AsString := Text;
end;
end;
 
414,7 → 424,10
end
else
begin
ADOTable1PAUSE_START.AsString := Text;
if Pos(':', Text) = 0 then
ADOTable1PAUSE_START.AsString := Text + ':00'
else
ADOTable1PAUSE_START.AsString := Text;
end;
end;
 
433,7 → 446,10
end
else
begin
ADOTable1SONSTIGER_ABZUG.AsString := Text;
if Pos(':', Text) = 0 then
ADOTable1SONSTIGER_ABZUG.AsString := Text + ':00'
else
ADOTable1SONSTIGER_ABZUG.AsString := Text;
end;
end;
 
504,7 → 520,10
end
else
begin
ADOTable1ZUHAUSE.AsString := Text;
if Pos(':', Text) = 0 then
ADOTable1ZUHAUSE.AsString := Text + ':00'
else
ADOTable1ZUHAUSE.AsString := Text;
end;
end;