Subversion Repositories delphiutils

Compare Revisions

Regard whitespace Rev 80 → Rev 79

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