Subversion Repositories delphiutils

Compare Revisions

Regard 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,6 → 334,9
end
else
begin
if Pos(':', Text) = 0 then
ADOTable1GEHEN.AsString := Text + ':00'
else
ADOTable1GEHEN.AsString := Text;
end;
end;
351,6 → 355,9
end
else
begin
if Pos(':', Text) = 0 then
ADOTable1KOMMEN.AsString := Text + ':00'
else
ADOTable1KOMMEN.AsString := Text;
end;
end;
395,6 → 402,9
end
else
begin
if Pos(':', Text) = 0 then
ADOTable1PAUSE_ENDE.AsString := Text + ':00'
else
ADOTable1PAUSE_ENDE.AsString := Text;
end;
end;
414,6 → 424,9
end
else
begin
if Pos(':', Text) = 0 then
ADOTable1PAUSE_START.AsString := Text + ':00'
else
ADOTable1PAUSE_START.AsString := Text;
end;
end;
433,6 → 446,9
end
else
begin
if Pos(':', Text) = 0 then
ADOTable1SONSTIGER_ABZUG.AsString := Text + ':00'
else
ADOTable1SONSTIGER_ABZUG.AsString := Text;
end;
end;
504,6 → 520,9
end
else
begin
if Pos(':', Text) = 0 then
ADOTable1ZUHAUSE.AsString := Text + ':00'
else
ADOTable1ZUHAUSE.AsString := Text;
end;
end;