delphiutilsalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdistributeddpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → / @ 80

  → / @ 81

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 80 → Rev 81

/trunk/Zeiterfassung/Zeiterfassung.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream

/trunk/Zeiterfassung/ZeiterfassungMain.dfm
122,6 → 122,7
BeforePost = ADOTable1BeforePost
AfterPost = ADOTable1AfterPost
AfterDelete = ADOTable1AfterDelete
BeforeScroll = ADOTable1BeforeScroll
OnNewRecord = ADOTable1NewRecord
TableName = 'TAGE'
Left = 312

/trunk/Zeiterfassung/ZeiterfassungMain.pas
70,6 → 70,7
DisplayText: Boolean);
procedure ADOTable1ZUHAUSEGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
procedure ADOTable1BeforeScroll(DataSet: TDataSet);
private
function GueltigeZeile: boolean;
protected
308,6 → 309,11
ReorgDataSet;
end;
procedure TForm1.ADOTable1BeforeScroll(DataSet: TDataSet);
begin
if (DataSet.State = dsInsert) and (not ADOTable1TAG.IsNull) then Dataset.Post;
end;
procedure TForm1.ADOTable1BERSTUNDENGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
376,6 → 382,7
test.Open;
if test.RecordCount = 0 then
begin
ADOTable1TAG.AsDateTime := Date;
ADOTable1KOMMEN.AsString := TimeToStr(Time);
ADOTable1FREIER_TAG.AsBoolean := (DayOfWeek(Date) = 1{Sunday}) or