Check-in [4ce807ef35]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Dat2ICS: report all breaks shorter than 5 hours.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4ce807ef35973cbf77f837b280db70566e3503f8
User & Date: tinus 2015-05-18 10:55:23
Context
2015-06-01
15:52
DAT2ICS: curtail all activities that carry on past the start of another activity. Leaf check-in: a382835d86 user: tinus tags: trunk
2015-05-18
10:55
Dat2ICS: report all breaks shorter than 5 hours. check-in: 4ce807ef35 user: tinus tags: trunk
2014-10-30
17:49
Updated ProjectIt to XE7. Moved popup menu and action list to data module. check-in: 32244c3e69 user: tinus tags: trunk
Changes

Changes to DAT2ICS/src/ProjectIt_dat2ics.dpr.

135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
...
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
    Rows := DB.GetCursor('  SELECT p.name'
                      + '   ,      strftime("%Y%m%dT%H%M%S", a.start, "utc") || "Z" AS start'
                      + '   ,      strftime("%Y%m%dT%H%M%S", a.start, "+" || a.duration || " seconds", "utc") || "Z" AS finish'
                      + '   ,      a.current'
                      + '     FROM Activities a'
                      + '          INNER JOIN Projects p ON a.project_id = p.id'
                      + '    WHERE a.duration >= (60 * 5)'
                      + '      AND p.name != "Pauze"'
                      + ' ORDER BY a.start DESC'
                      + ' ,        a.duration DESC'
                      + ' ,        p.id DESC'
                      + ' ,        a.id DESC;');
    try
      Result := 0;
      if not Rows.EOF then begin
................................................................................
    Rows := DB.GetCursor('  SELECT p.name'
                      + '   ,      strftime("%Y-%m-%dT%H:%M:%S", a.start, "utc") || "Z" AS start'
                      + '   ,      strftime("%Y-%m-%dT%H:%M:%S", a.start, "+" || a.duration || " seconds", "utc") || "Z" AS finish'
                      + '   ,      a.current'
                      + '     FROM Activities a'
                      + '          INNER JOIN Projects p ON a.project_id = p.id'
                      + '    WHERE a.duration >= (60 * 5)'
                      + '      AND p.name != "Pauze"'
                      + ' ORDER BY a.start DESC'
                      + ' ,        a.duration DESC'
                      + ' ,        p.id DESC'
                      + ' ,        a.id DESC;');
    try
      Result := 0;
      if not Rows.EOF then begin







|







 







|







135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
...
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
    Rows := DB.GetCursor('  SELECT p.name'
                      + '   ,      strftime("%Y%m%dT%H%M%S", a.start, "utc") || "Z" AS start'
                      + '   ,      strftime("%Y%m%dT%H%M%S", a.start, "+" || a.duration || " seconds", "utc") || "Z" AS finish'
                      + '   ,      a.current'
                      + '     FROM Activities a'
                      + '          INNER JOIN Projects p ON a.project_id = p.id'
                      + '    WHERE a.duration >= (60 * 5)'
                      + '      AND ((p.name != "Pauze") OR (a.duration < (60 * 60 * 5)))'
                      + ' ORDER BY a.start DESC'
                      + ' ,        a.duration DESC'
                      + ' ,        p.id DESC'
                      + ' ,        a.id DESC;');
    try
      Result := 0;
      if not Rows.EOF then begin
................................................................................
    Rows := DB.GetCursor('  SELECT p.name'
                      + '   ,      strftime("%Y-%m-%dT%H:%M:%S", a.start, "utc") || "Z" AS start'
                      + '   ,      strftime("%Y-%m-%dT%H:%M:%S", a.start, "+" || a.duration || " seconds", "utc") || "Z" AS finish'
                      + '   ,      a.current'
                      + '     FROM Activities a'
                      + '          INNER JOIN Projects p ON a.project_id = p.id'
                      + '    WHERE a.duration >= (60 * 5)'
                      + '      AND AND ((p.name != "Pauze") OR (a.duration < (60 * 60 * 5)))'
                      + ' ORDER BY a.start DESC'
                      + ' ,        a.duration DESC'
                      + ' ,        p.id DESC'
                      + ' ,        a.id DESC;');
    try
      Result := 0;
      if not Rows.EOF then begin

Changes to DAT2ICS/src/ProjectIt_dat2ics.dproj.

1
2
3
4
5
6
7
8
9
10
11
..
36
37
38
39
40
41
42

43
44
45
46
47
48
49
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
        <ProjectGuid>{784C4AD6-0E92-4A2B-B201-5AA2F2B66E78}</ProjectGuid>
        <ProjectVersion>15.2</ProjectVersion>
        <FrameworkType>None</FrameworkType>
        <MainSource>ProjectIt_dat2ics.dpr</MainSource>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Debug</Config>
        <Platform Condition="'$(Platform)'==''">Win32</Platform>
        <TargetedPlatforms>1</TargetedPlatforms>
        <AppType>Console</AppType>
................................................................................
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
        <Cfg_2>true</Cfg_2>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base)'!=''">

        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
        <VerInfo_Locale>1043</VerInfo_Locale>
        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
        <DCC_UnitSearchPath>.\;Lib\;Lib\SQLite\;Lib\NativeXML;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
        <DCC_UsePackage>bindcompfmx;fmx;rtl;dbrtl;IndySystem;DbxClientDriver;bindcomp;inetdb;DBXInterBaseDriver;xmlrtl;DbxCommonDriver;IndyProtocols;DBXMySQLDriver;dbxcds;soaprtl;bindengine;CustomIPTransport;dsnap;IndyCore;fmxase;inet;fmxobj;inetdbxpress;fmxdae;dbexpress;IPIndyImpl;$(DCC_UsePackage)</DCC_UsePackage>
        <DCC_DcuOutput>..\Out\DCU\$(Platform)\$(Config)</DCC_DcuOutput>



|







 







>







1
2
3
4
5
6
7
8
9
10
11
..
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
        <ProjectGuid>{784C4AD6-0E92-4A2B-B201-5AA2F2B66E78}</ProjectGuid>
        <ProjectVersion>16.0</ProjectVersion>
        <FrameworkType>None</FrameworkType>
        <MainSource>ProjectIt_dat2ics.dpr</MainSource>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Debug</Config>
        <Platform Condition="'$(Platform)'==''">Win32</Platform>
        <TargetedPlatforms>1</TargetedPlatforms>
        <AppType>Console</AppType>
................................................................................
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
        <Cfg_2>true</Cfg_2>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base)'!=''">
        <SanitizedProjectName>ProjectIt_dat2ics</SanitizedProjectName>
        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
        <VerInfo_Locale>1043</VerInfo_Locale>
        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
        <DCC_UnitSearchPath>.\;Lib\;Lib\SQLite\;Lib\NativeXML;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
        <DCC_UsePackage>bindcompfmx;fmx;rtl;dbrtl;IndySystem;DbxClientDriver;bindcomp;inetdb;DBXInterBaseDriver;xmlrtl;DbxCommonDriver;IndyProtocols;DBXMySQLDriver;dbxcds;soaprtl;bindengine;CustomIPTransport;dsnap;IndyCore;fmxase;inet;fmxobj;inetdbxpress;fmxdae;dbexpress;IPIndyImpl;$(DCC_UsePackage)</DCC_UsePackage>
        <DCC_DcuOutput>..\Out\DCU\$(Platform)\$(Config)</DCC_DcuOutput>