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.841
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
Unified Diff Ignore Whitespace Patch
Changes to DAT2ICS/src/ProjectIt_dat2ics.dpr.
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
    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
    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
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







|







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 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
<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>



|







1
2
3
4
5
6
7
8
9
10
11
<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>
36
37
38
39
40
41
42

43
44
45
46
47
48
49
    </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>







>







36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
    </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>