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: |
4ce807ef35973cbf77f837b280db7056 |
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
Changes to DAT2ICS/src/ProjectIt_dat2ics.dpr.
︙ | ︙ | |||
135 136 137 138 139 140 141 | 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)' | | | 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 | 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)' | | | 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 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <PropertyGroup> <ProjectGuid>{784C4AD6-0E92-4A2B-B201-5AA2F2B66E78}</ProjectGuid> | | | 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> |
︙ | ︙ |