Skip to content

T
TwilioMsgs
Commit 8fba3662 by Elias Sarraf
Options

cleaned project - got it to compile

parent aea23046
Showing with 76 additions and 1341 deletions
.gitignore
TwilioMsgs/dev/__history/ __history/
TwilioMsgs/dev/__recovery/ __recovery/
TwilioMsgs/dev/Win32/ Win32/
TwilioMsgs/dev/Win64x/
*.ilc *.ilc
*.ild *.ild
*.ilf *.ilf
*.ils
*.skincfg *.skincfg
*.tds *.tds
*.exe *.exe
*.map
*.local
dev/Project1.cbproj → TwilioMsgs.cbproj
...@@ -4,12 +4,12 @@ ...@@ -4,12 +4,12 @@
<ProjectVersion>20.2</ProjectVersion> <ProjectVersion>20.2</ProjectVersion>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<AppType>Application</AppType> <AppType>Application</AppType>
<MainSource>Project1.cpp</MainSource> <MainSource>TwilioMsgs.cpp</MainSource>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform> <Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1048577</TargetedPlatforms> <TargetedPlatforms>1048577</TargetedPlatforms>
<ProjectName Condition="'$(ProjectName)'==''">Project1</ProjectName> <ProjectName Condition="'$(ProjectName)'==''">TwilioMsgs</ProjectName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base> <Base>true</Base>
...@@ -81,7 +81,9 @@ ...@@ -81,7 +81,9 @@
<Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon> <Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
<UWP_CppLogo44>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_44.png</UWP_CppLogo44> <UWP_CppLogo44>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_44.png</UWP_CppLogo44>
<UWP_CppLogo150>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_150.png</UWP_CppLogo150> <UWP_CppLogo150>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_150.png</UWP_CppLogo150>
<SanitizedProjectName>Project1</SanitizedProjectName> <SanitizedProjectName>TwilioMsgs</SanitizedProjectName>
<IncludePath>dev\;..\;$(IncludePath)</IncludePath>
<ILINK_LibraryPath>dev\;..\;$(ILINK_LibraryPath)</ILINK_LibraryPath>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<PackageImports>AcroPDF;addict4_d28;addict4db_d28;adortl;AdvChartDEDXE14;AdvChartDXE14;appanalytics;bcbie;bcbsmp;bindcomp;bindcompdbx;bindcompfmx;bindcompvcl;bindcompvclsmp;bindcompvclwinx;bindengine;CamRemoteD11;CEF4Delphi;CloudService;crcontrols280;CustomIPTransport;dac280;dacfmx280;dacvcl280;dbexpress;dbrtl;dbxcds;DbxClientDriver;DbxCommonDriver;DBXInterBaseDriver;DBXMySQLDriver;DBXSqliteDriver;dsnap;dsnapcon;dsnapxml;EMComponents;fcstudiowin;FireDAC;FireDACADSDriver;FireDACCommon;FireDACCommonDriver;FireDACCommonODBC;FireDACIBDriver;FireDACMSAccDriver;FireDACMySQLDriver;FireDACPgDriver;FireDACSqliteDriver;FlexCel_Core;FlexCel_Pdf;FlexCel_Render;FlexCel_Report;FlexCel_XlsAdapter;fmx;FMX_FlexCel_Components;FMX_FlexCel_Core;fmxase;fmxdae;fmxFireDAC;fmxobj;FMXTMSFNCCorePkgDXE14;FMXTMSFNCDashboardPackPkgDXE14;FMXTMSFNCMapsPkgDXE14;FMXTMSFNCUIPackPkgDXE14;frx28;frxDB28;frxe28;gtACEExpD28;gtAdvGridExpD28;gtDocEngD28;gtFRExpD28;gtHtmVwExpD28;gtPDFkitD11ProP;gtQRExpD28;gtRaveExpD28;gtRBExpD28;gtRichVwExpD28;gtScaleRichVwExpD28;gtXPressExpD28;IndyCore;IndyIPClient;IndyIPCommon;IndyIPServer;IndyProtocols;IndySystem;inet;inetdb;inetdbxpress;ipstudiowin;ipstudiowinclient;ipstudiowinwordxp;PKIECtrl28;PKIEDB28;QRWRunDXE11_w64;RESTBackendComponents;RESTComponents;rtl;SigPlus;SKIA_FlexCel_Core;soapmidas;soaprtl;soapserver;TatukGIS_DK11_RX11;TatukGIS_DK11_RX11_FMX;TatukGIS_DK11_RX11_VCL;tethering;TMSCloudPkgDEDXE14;TMSCloudPkgDXE14;TMSVCLUIPackPkgDXE14;TMSVCLUIPackPkgExDXE14;TMSVCLUIPackPkgWizDXE14;TMSVCLUIPackPkgXlsDXE14;unidac280;unidacfmx280;unidacvcl280;vcl;VCL_FlexCel_Components;VCL_FlexCel_Core;vclactnband;vclCryptoPressStreamD28;vcldb;vcldsnap;vcledge;vclFireDAC;vclie;vclimg;VCLRESTComponents;VclSmp;vclSQLMemTabled28;VCLTMSFNCCorePkgDXE14;VCLTMSFNCDashboardPackPkgDXE14;VCLTMSFNCMapsPkgDXE14;VCLTMSFNCUIPackPkgDXE14;vcltouch;vclwinx;vclx;VirtualTreesR;vquery280;WPViewPDF_DT;WPViewPDF_RT;xmlrtl;$(PackageImports)</PackageImports> <PackageImports>AcroPDF;addict4_d28;addict4db_d28;adortl;AdvChartDEDXE14;AdvChartDXE14;appanalytics;bcbie;bcbsmp;bindcomp;bindcompdbx;bindcompfmx;bindcompvcl;bindcompvclsmp;bindcompvclwinx;bindengine;CamRemoteD11;CEF4Delphi;CloudService;crcontrols280;CustomIPTransport;dac280;dacfmx280;dacvcl280;dbexpress;dbrtl;dbxcds;DbxClientDriver;DbxCommonDriver;DBXInterBaseDriver;DBXMySQLDriver;DBXSqliteDriver;dsnap;dsnapcon;dsnapxml;EMComponents;fcstudiowin;FireDAC;FireDACADSDriver;FireDACCommon;FireDACCommonDriver;FireDACCommonODBC;FireDACIBDriver;FireDACMSAccDriver;FireDACMySQLDriver;FireDACPgDriver;FireDACSqliteDriver;FlexCel_Core;FlexCel_Pdf;FlexCel_Render;FlexCel_Report;FlexCel_XlsAdapter;fmx;FMX_FlexCel_Components;FMX_FlexCel_Core;fmxase;fmxdae;fmxFireDAC;fmxobj;FMXTMSFNCCorePkgDXE14;FMXTMSFNCDashboardPackPkgDXE14;FMXTMSFNCMapsPkgDXE14;FMXTMSFNCUIPackPkgDXE14;frx28;frxDB28;frxe28;gtACEExpD28;gtAdvGridExpD28;gtDocEngD28;gtFRExpD28;gtHtmVwExpD28;gtPDFkitD11ProP;gtQRExpD28;gtRaveExpD28;gtRBExpD28;gtRichVwExpD28;gtScaleRichVwExpD28;gtXPressExpD28;IndyCore;IndyIPClient;IndyIPCommon;IndyIPServer;IndyProtocols;IndySystem;inet;inetdb;inetdbxpress;ipstudiowin;ipstudiowinclient;ipstudiowinwordxp;PKIECtrl28;PKIEDB28;QRWRunDXE11_w64;RESTBackendComponents;RESTComponents;rtl;SigPlus;SKIA_FlexCel_Core;soapmidas;soaprtl;soapserver;TatukGIS_DK11_RX11;TatukGIS_DK11_RX11_FMX;TatukGIS_DK11_RX11_VCL;tethering;TMSCloudPkgDEDXE14;TMSCloudPkgDXE14;TMSVCLUIPackPkgDXE14;TMSVCLUIPackPkgExDXE14;TMSVCLUIPackPkgWizDXE14;TMSVCLUIPackPkgXlsDXE14;unidac280;unidacfmx280;unidacvcl280;vcl;VCL_FlexCel_Components;VCL_FlexCel_Core;vclactnband;vclCryptoPressStreamD28;vcldb;vcldsnap;vcledge;vclFireDAC;vclie;vclimg;VCLRESTComponents;VclSmp;vclSQLMemTabled28;VCLTMSFNCCorePkgDXE14;VCLTMSFNCDashboardPackPkgDXE14;VCLTMSFNCMapsPkgDXE14;VCLTMSFNCUIPackPkgDXE14;vcltouch;vclwinx;vclx;VirtualTreesR;vquery280;WPViewPDF_DT;WPViewPDF_RT;xmlrtl;$(PackageImports)</PackageImports>
...@@ -92,12 +94,12 @@ ...@@ -92,12 +94,12 @@
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale> <VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File> <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<BCC_PCHName_Clang>Project1PCH1.h</BCC_PCHName_Clang> <BCC_PCHName_Clang>TwilioMsgsPCH2.h</BCC_PCHName_Clang>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''"> <PropertyGroup Condition="'$(Base_Win64)'!=''">
<PackageImports>adortl;AdvChartDXE14;appanalytics;bcbie;bcbsmp;bindcomp;bindcompdbx;bindcompfmx;bindcompvcl;bindcompvclsmp;bindcompvclwinx;bindengine;CamRemoteD11;CloudService;CustomIPTransport;dbexpress;dbrtl;dbxcds;DbxClientDriver;DbxCommonDriver;DBXInterBaseDriver;DBXMySQLDriver;DBXSqliteDriver;dsnap;dsnapcon;dsnapxml;fcstudiowin;FireDAC;FireDACADSDriver;FireDACCommon;FireDACCommonDriver;FireDACCommonODBC;FireDACIBDriver;FireDACMSAccDriver;FireDACMySQLDriver;FireDACPgDriver;FireDACSqliteDriver;FlexCel_Core;FlexCel_Pdf;FlexCel_Render;FlexCel_Report;FlexCel_XlsAdapter;fmx;FMX_FlexCel_Components;FMX_FlexCel_Core;fmxase;fmxdae;fmxFireDAC;fmxobj;FMXTMSFNCCorePkgDXE14;FMXTMSFNCMapsPkgDXE14;FMXTMSFNCUIPackPkgDXE14;IndyCore;IndyIPClient;IndyIPCommon;IndyIPServer;IndyProtocols;IndySystem;inet;inetdb;inetdbxpress;ipstudiowin;ipstudiowinclient;PKIECtrl28;PKIEDB28;QRWRunDXE11_w64;RESTBackendComponents;RESTComponents;rtl;soapmidas;soaprtl;soapserver;tethering;TMSVCLUIPackPkgDXE14;TMSVCLUIPackPkgExDXE14;TMSVCLUIPackPkgXlsDXE14;vcl;VCL_FlexCel_Components;VCL_FlexCel_Core;vclactnband;vcldb;vcldsnap;vcledge;vclFireDAC;vclie;vclimg;VCLRESTComponents;VclSmp;VCLTMSFNCCorePkgDXE14;VCLTMSFNCDashboardPackPkgDXE14;VCLTMSFNCMapsPkgDXE14;VCLTMSFNCUIPackPkgDXE14;vcltouch;vclwinx;vclx;VirtualTreesR;WPViewPDF_RT;xmlrtl;$(PackageImports)</PackageImports> <PackageImports>adortl;AdvChartDXE14;appanalytics;bcbie;bcbsmp;bindcomp;bindcompdbx;bindcompfmx;bindcompvcl;bindcompvclsmp;bindcompvclwinx;bindengine;CamRemoteD11;CloudService;CustomIPTransport;dbexpress;dbrtl;dbxcds;DbxClientDriver;DbxCommonDriver;DBXInterBaseDriver;DBXMySQLDriver;DBXSqliteDriver;dsnap;dsnapcon;dsnapxml;fcstudiowin;FireDAC;FireDACADSDriver;FireDACCommon;FireDACCommonDriver;FireDACCommonODBC;FireDACIBDriver;FireDACMSAccDriver;FireDACMySQLDriver;FireDACPgDriver;FireDACSqliteDriver;FlexCel_Core;FlexCel_Pdf;FlexCel_Render;FlexCel_Report;FlexCel_XlsAdapter;fmx;FMX_FlexCel_Components;FMX_FlexCel_Core;fmxase;fmxdae;fmxFireDAC;fmxobj;FMXTMSFNCCorePkgDXE14;FMXTMSFNCMapsPkgDXE14;FMXTMSFNCUIPackPkgDXE14;IndyCore;IndyIPClient;IndyIPCommon;IndyIPServer;IndyProtocols;IndySystem;inet;inetdb;inetdbxpress;ipstudiowin;ipstudiowinclient;PKIECtrl28;PKIEDB28;QRWRunDXE11_w64;RESTBackendComponents;RESTComponents;rtl;soapmidas;soaprtl;soapserver;tethering;TMSVCLUIPackPkgDXE14;TMSVCLUIPackPkgExDXE14;TMSVCLUIPackPkgXlsDXE14;vcl;VCL_FlexCel_Components;VCL_FlexCel_Core;vclactnband;vcldb;vcldsnap;vcledge;vclFireDAC;vclie;vclimg;VCLRESTComponents;VclSmp;VCLTMSFNCCorePkgDXE14;VCLTMSFNCDashboardPackPkgDXE14;VCLTMSFNCMapsPkgDXE14;VCLTMSFNCUIPackPkgDXE14;vcltouch;vclwinx;vclx;VirtualTreesR;WPViewPDF_RT;xmlrtl;$(PackageImports)</PackageImports>
<IncludePath>$(BDSINCLUDE)\windows\vcl;$(IncludePath)</IncludePath> <IncludePath>$(BDSINCLUDE)\windows\vcl;$(IncludePath)</IncludePath>
<BCC_PCHName_Clang>Project1PCH1.h</BCC_PCHName_Clang> <BCC_PCHName_Clang>TwilioMsgsPCH2.h</BCC_PCHName_Clang>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64x)'!=''"> <PropertyGroup Condition="'$(Base_Win64x)'!=''">
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
...@@ -107,7 +109,7 @@ ...@@ -107,7 +109,7 @@
<VerInfo_Locale>1033</VerInfo_Locale> <VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File> <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<BCC_EnableBatchCompilation>true</BCC_EnableBatchCompilation> <BCC_EnableBatchCompilation>true</BCC_EnableBatchCompilation>
<BCC_PCHName_Clang>Project1PCH1.h</BCC_PCHName_Clang> <BCC_PCHName_Clang>TwilioMsgsPCH2.h</BCC_PCHName_Clang>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''"> <PropertyGroup Condition="'$(Cfg_1)'!=''">
<BCC_OptimizeForSpeed>false</BCC_OptimizeForSpeed> <BCC_OptimizeForSpeed>false</BCC_OptimizeForSpeed>
...@@ -157,27 +159,20 @@ ...@@ -157,27 +159,20 @@
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode> <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<CppCompile Include="fDocEntryFind.cpp"> <CppCompile Include="fMain.cpp">
<Form>frmDocEntryFind</Form> <Form>frmMain</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DependentOn>fDocEntryFind.h</DependentOn> <DependentOn>fMain.h</DependentOn>
<BuildOrder>3</BuildOrder> <BuildOrder>2</BuildOrder>
</CppCompile> </CppCompile>
<CppCompile Include="Project1.cpp"> <CppCompile Include="TwilioMsgs.cpp">
<BuildOrder>0</BuildOrder> <BuildOrder>0</BuildOrder>
</CppCompile> </CppCompile>
<PCHCompile Include="Project1PCH1.h"> <PCHCompile Include="TwilioMsgsPCH2.h">
<BuildOrder>1</BuildOrder> <BuildOrder>1</BuildOrder>
<PCH>true</PCH> <PCH>true</PCH>
</PCHCompile> </PCHCompile>
<CppCompile Include="Unit1.cpp"> <FormResources Include="fMain.dfm"/>
<Form>Form1</Form>
<FormType>dfm</FormType>
<DependentOn>Unit1.h</DependentOn>
<BuildOrder>2</BuildOrder>
</CppCompile>
<FormResources Include="Unit1.dfm"/>
<FormResources Include="fDocEntryFind.dfm"/>
<BuildConfiguration Include="Base"> <BuildConfiguration Include="Base">
<Key>Base</Key> <Key>Base</Key>
</BuildConfiguration> </BuildConfiguration>
...@@ -202,7 +197,7 @@ ...@@ -202,7 +197,7 @@
<ProjectProperties Name="IndexFiles">False</ProjectProperties> <ProjectProperties Name="IndexFiles">False</ProjectProperties>
</ProjectProperties> </ProjectProperties>
<Source> <Source>
<Source Name="MainSource">Project1.cpp</Source> <Source Name="MainSource">TwilioMsgs.cpp</Source>
</Source> </Source>
<Excluded_Packages> <Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\bcboffice2k290.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages> <Excluded_Packages Name="$(BDSBIN)\bcboffice2k290.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
...@@ -268,20 +263,20 @@ ...@@ -268,20 +263,20 @@
<Overwrite>true</Overwrite> <Overwrite>true</Overwrite>
</Platform> </Platform>
</DeployFile> </DeployFile>
<DeployFile LocalName=".\Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput"/> <DeployFile LocalName=".\TwilioMsgs.exe" Configuration="Debug" Class="ProjectOutput">
<DeployFile LocalName=".\Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32"> <Platform Name="Win32">
<RemoteName>Project1.exe</RemoteName> <RemoteName>TwilioMsgs.exe</RemoteName>
<Overwrite>true</Overwrite> <Overwrite>true</Overwrite>
</Platform> </Platform>
</DeployFile> </DeployFile>
<DeployFile LocalName=".\Win32\Debug\Project1.tds" Configuration="Debug" Class="DebugSymbols"/> <DeployFile LocalName=".\TwilioMsgs.tds" Configuration="Debug" Class="DebugSymbols">
<DeployFile LocalName=".\Win32\Debug\Project1.tds" Configuration="Debug" Class="DebugSymbols">
<Platform Name="Win32"> <Platform Name="Win32">
<RemoteName>Project1.tds</RemoteName> <RemoteName>TwilioMsgs.tds</RemoteName>
<Overwrite>true</Overwrite> <Overwrite>true</Overwrite>
</Platform> </Platform>
</DeployFile> </DeployFile>
<DeployFile LocalName=".\Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput"/>
<DeployFile LocalName=".\Win32\Debug\Project1.tds" Configuration="Debug" Class="DebugSymbols"/>
<DeployClass Name="AdditionalDebugSymbols"> <DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator"> <Platform Name="iOSSimulator">
<Operation>1</Operation> <Operation>1</Operation>
......
dev/Project1.cpp → TwilioMsgs.cpp
...@@ -4,8 +4,7 @@ ...@@ -4,8 +4,7 @@
#pragma hdrstop #pragma hdrstop
#include <tchar.h> #include <tchar.h>
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1); USEFORM("fMain.cpp", frmMain);
USEFORM("fDocEntryFind.cpp", frmDocEntryFind);
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{ {
...@@ -13,7 +12,7 @@ int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) ...@@ -13,7 +12,7 @@ int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{ {
Application->Initialize(); Application->Initialize();
Application->MainFormOnTaskBar = true; Application->MainFormOnTaskBar = true;
Application->CreateForm(__classid(TForm1), &Form1); Application->CreateForm(__classid(TfrmMain), &frmMain);
Application->Run(); Application->Run();
} }
catch (Exception &exception) catch (Exception &exception)
......
dev/Project1.cbproj.local deleted 100644 → 0
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>2023/10/31 23:31:08.000.427,=C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.cpp</Transaction>
<Transaction>2023/10/31 23:31:08.000.411,=C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Project1PCH1.h</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Project1.cbproj=C:\Projects2\Twilio\TwilioPhoneApp\Project1.cbproj</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.h=C:\Projects2\Twilio\TwilioPhoneApp\Unit1.h</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Projects2\Twilio\TwilioPhoneApp\Unit1.dfm</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.cpp=C:\Projects2\Twilio\TwilioPhoneApp\Unit1.cpp</Transaction>
<Transaction>2023/10/31 23:32:16.000.609,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Project1PCH1.h=C:\Projects2\Twilio\TwilioPhoneApp\Project1PCH1.h</Transaction>
<Transaction>2023/11/07 21:20:30.000.406,=C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp\JSONDictionaryPkg.lib</Transaction>
<Transaction>2023/11/08 22:57:12.000.558,=C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp\DictionaryPackage.lib</Transaction>
<Transaction>2025/02/11 12:37:55.000.601,=C:\Projects2\Twilio\TwilioMsgs.vcl\dev\fDocEntryFind.cpp</Transaction>
</Transactions>
</BorlandProject>
dev/Project1.map deleted 100644 → 0
Start Length Name Class
0001:00401000 000DEB888H _TEXT CODE
0002:011ED000 00003BE10H _DATA DATA
0003:01228E10 00002B484H _BSS BSS
0004:00000000 000000104H _TLS TLS
dev/fDocEntryFind.cpp deleted 100644 → 0
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "fDocEntryFind.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvDateTimePicker"
#pragma link "AdvEdit"
#pragma link "AdvGlowButton"
#pragma link "AdvGrid"
#pragma link "AdvPanel"
#pragma link "AdvSmoothPanel"
#pragma link "AdvToolBar"
#pragma link "BaseGrid"
#pragma link "DBAdvGrid"
#pragma link "AdvDBDateTimePicker"
#pragma link "DBAccess"
#pragma link "MemDS"
#pragma link "Uni"
#pragma link "AdvEdBtn"
#pragma link "PlannerDatePicker"
#pragma link "AdvPageControl"
#pragma link "AdvOfficeButtons"
#pragma link "AdvObj"
#pragma link "AdvUtil"
#pragma link "vcl.Wwdbcomb"
#pragma link "vcl.Wwdbedit"
#pragma link "vcl.Wwdotdot"
#pragma link "vcl.wwdbdatetimepicker"
#pragma resource "*.dfm"
TfrmDocEntryFind *frmDocEntryFind;
//---------------------------------------------------------------------------
__fastcall TfrmDocEntryFind::TfrmDocEntryFind(TComponent* Owner)
: TForm(Owner)
{
TDateTime dtDate = Date();
unsigned short year, month, day;
dtDate.DecodeDate(&year, &month, &day);
for( int i = 0; i < 12; i++ )
dbcbYear->Items->Add( year - i );
dbcbYear->ItemIndex = 0;
}
//---------------------------------------------------------------------------
void TfrmDocEntryFind::FindDocuments()
{
String whereStr;
whereStr = "";
if( !dtpDocDate->Text.IsEmpty() && !dtpDocDate2->Text.IsEmpty() )
whereStr = "d.doc_date between '" + dtpDocDate->Text + "' and '" + dtpDocDate2->Text + "' and ";
else if( !dtpDocDate->Text.IsEmpty() )
whereStr = "d.doc_date = '" + dtpDocDate->Text + "' and ";
}
//---------------------------------------------------------------------------
void __fastcall TfrmDocEntryFind::dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select)
{
SetDocumentDates();
}
//---------------------------------------------------------------------------
void __fastcall TfrmDocEntryFind::dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select)
{
SetDocumentDates();
}
//---------------------------------------------------------------------------
void TfrmDocEntryFind::SetDocumentDates()
{
int year = 0;
int month = 0;
TDateTime startDate;
TDateTime endDate;
if( !dbcbYear->Value.IsEmpty() )
year = StrToInt( dbcbYear->Value );
if( !dbcbMonth->Value.IsEmpty() )
month = StrToInt( dbcbMonth->Value );
if( month > 0 && year > 0 ){
startDate = StartOfAMonth( year, month );
endDate = EndOfAMonth( year, month );
dtpDocDate->Date = startDate;
dtpDocDate2->Date = endDate;
}
else if (year > 0){
startDate = StartOfAMonth( year, 1 );
endDate = EndOfAMonth( year, 12 );
dtpDocDate->Date = startDate;
dtpDocDate2->Date = endDate;
}
}
//---------------------------------------------------------------------------
dev/fDocEntryFind.dfm deleted 100644 → 0
object frmDocEntryFind: TfrmDocEntryFind
Left = 0
Top = 0
Caption = 'Doc Entry Find'
ClientHeight = 641
ClientWidth = 900
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Position = poMainFormCenter
TextHeight = 13
object pnlMain: TAdvPanel
Left = 0
Top = 41
Width = 900
Height = 201
Align = alTop
Color = 16445929
Font.Charset = DEFAULT_CHARSET
Font.Color = 7485192
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
UseDockManager = True
Version = '2.7.0.1'
BorderColor = 16765615
Caption.Color = 16773091
Caption.ColorTo = 16765615
Caption.Font.Charset = DEFAULT_CHARSET
Caption.Font.Color = clBlack
Caption.Font.Height = -11
Caption.Font.Name = 'Tahoma'
Caption.Font.Style = []
Caption.GradientDirection = gdVertical
Caption.Indent = 2
Caption.ShadeLight = 255
CollapsColor = clHighlight
CollapsDelay = 0
ColorTo = 15587527
ColorMirror = 15587527
ColorMirrorTo = 16773863
DoubleBuffered = True
ShadowColor = clBlack
ShadowOffset = 0
StatusBar.BorderColor = 16765615
StatusBar.BorderStyle = bsSingle
StatusBar.Font.Charset = DEFAULT_CHARSET
StatusBar.Font.Color = 7485192
StatusBar.Font.Height = -11
StatusBar.Font.Name = 'Tahoma'
StatusBar.Font.Style = []
StatusBar.Color = 16245715
StatusBar.ColorTo = 16109747
StatusBar.GradientDirection = gdVertical
Text = ''
FullHeight = 0
object Label1: TLabel
Left = 23
Top = 11
Width = 74
Height = 13
Alignment = taRightJustify
Caption = 'Document Date'
end
object Label2: TLabel
Left = 233
Top = 11
Width = 4
Height = 13
Caption = '-'
end
object dtpDocDate: TwwDBDateTimePicker
Left = 99
Top = 7
Width = 124
Height = 21
CalendarAttributes.DefaultFont = False
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'Tahoma'
CalendarAttributes.Font.Style = []
Epoch = 1950
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ShowButton = True
TabOrder = 0
end
object dtpDocDate2: TwwDBDateTimePicker
Left = 247
Top = 7
Width = 124
Height = 21
CalendarAttributes.DefaultFont = False
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'Tahoma'
CalendarAttributes.Font.Style = []
Epoch = 1950
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ShowButton = True
TabOrder = 1
end
object dbcbMonth: TwwDBComboBox
Left = 387
Top = 7
Width = 120
Height = 21
ShowButton = True
Style = csDropDown
MapList = True
AllowClearKey = False
DropDownCount = 12
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ItemHeight = 0
Items.Strings = (
'January'#9'01'
'February'#9'02'
'March'#9'03'
'April'#9'04'
'May'#9'05'
'June'#9'06'
'July'#9'07'
'August'#9'08'
'September'#9'09'
'October'#9'10'
'November'#9'11'
'December'#9'12')
ParentFont = False
Sorted = False
TabOrder = 2
UnboundDataType = wwDefault
OnCloseUp = dbcbMonthCloseUp
end
object dbcbYear: TwwDBComboBox
Left = 513
Top = 7
Width = 84
Height = 21
ShowButton = True
Style = csDropDown
MapList = False
AllowClearKey = False
DropDownCount = 8
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ItemHeight = 0
ItemIndex = 0
ParentFont = False
Sorted = False
TabOrder = 3
UnboundDataType = wwDefault
OnCloseUp = dbcbYearCloseUp
end
end
object AdvPanel1: TAdvPanel
Left = 0
Top = 0
Width = 900
Height = 41
Align = alTop
Color = 16445929
Font.Charset = DEFAULT_CHARSET
Font.Color = 7485192
Font.Height = -7
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
UseDockManager = True
Version = '2.7.0.1'
BorderColor = 16765615
Caption.Color = 16773091
Caption.ColorTo = 16765615
Caption.Font.Charset = DEFAULT_CHARSET
Caption.Font.Color = clBlack
Caption.Font.Height = -7
Caption.Font.Name = 'Tahoma'
Caption.Font.Style = []
Caption.GradientDirection = gdVertical
Caption.Indent = 2
Caption.ShadeLight = 255
CollapsColor = clNone
CollapsDelay = 0
ColorTo = 15587527
ColorMirror = 15587527
ColorMirrorTo = 16773863
DoubleBuffered = True
ShadowColor = clBlack
ShadowOffset = 0
StatusBar.BorderColor = 16765615
StatusBar.BorderStyle = bsSingle
StatusBar.Font.Charset = DEFAULT_CHARSET
StatusBar.Font.Color = 7485192
StatusBar.Font.Height = -7
StatusBar.Font.Name = 'Tahoma'
StatusBar.Font.Style = []
StatusBar.Color = 16245715
StatusBar.ColorTo = 16109747
StatusBar.GradientDirection = gdVertical
Text = ''
FullHeight = 48
object btnOk: TAdvGlowButton
AlignWithMargins = True
Left = 747
Top = 3
Width = 72
Height = 35
Align = alRight
Caption = 'Ok'
Font.Charset = DEFAULT_CHARSET
Font.Color = 7485192
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ImageIndex = 7
FocusType = ftHot
MarginVert = 6
NotesFont.Charset = DEFAULT_CHARSET
NotesFont.Color = clWindowText
NotesFont.Height = -12
NotesFont.Name = 'Tahoma'
NotesFont.Style = []
ParentFont = False
Rounded = True
Spacing = 6
TabOrder = 0
Appearance.BorderColor = 14727579
Appearance.BorderColorHot = 10079963
Appearance.BorderColorCheckedHot = 11565130
Appearance.BorderColorDown = 4548219
Appearance.BorderColorChecked = 4548219
Appearance.BorderColorDisabled = 13948116
Appearance.Color = 15653832
Appearance.ColorTo = 16178633
Appearance.ColorChecked = 11918331
Appearance.ColorCheckedTo = 7915518
Appearance.ColorDisabled = 15921906
Appearance.ColorDisabledTo = 15921906
Appearance.ColorDown = 7778289
Appearance.ColorDownTo = 4296947
Appearance.ColorHot = 15465983
Appearance.ColorHotTo = 11332863
Appearance.ColorMirror = 15586496
Appearance.ColorMirrorTo = 16245200
Appearance.ColorMirrorHot = 5888767
Appearance.ColorMirrorHotTo = 10807807
Appearance.ColorMirrorDown = 946929
Appearance.ColorMirrorDownTo = 5021693
Appearance.ColorMirrorChecked = 10480637
Appearance.ColorMirrorCheckedTo = 5682430
Appearance.ColorMirrorDisabled = 11974326
Appearance.ColorMirrorDisabledTo = 15921906
Appearance.GradientHot = ggVertical
Appearance.GradientMirrorHot = ggVertical
Appearance.GradientDown = ggVertical
Appearance.GradientMirrorDown = ggVertical
Appearance.GradientChecked = ggVertical
Appearance.TextColorChecked = 3750459
Appearance.TextColorDown = 2303013
Appearance.TextColorHot = 2303013
Appearance.TextColorDisabled = 13948116
Enabled = False
end
object btnCancel: TAdvGlowButton
AlignWithMargins = True
Left = 825
Top = 3
Width = 72
Height = 35
Align = alRight
Caption = 'Cancel'
Font.Charset = DEFAULT_CHARSET
Font.Color = 7485192
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ImageIndex = 1
FocusType = ftHot
MarginVert = 6
NotesFont.Charset = DEFAULT_CHARSET
NotesFont.Color = clWindowText
NotesFont.Height = -12
NotesFont.Name = 'Tahoma'
NotesFont.Style = []
ParentFont = False
Rounded = True
Spacing = 6
TabOrder = 1
Appearance.BorderColor = 14727579
Appearance.BorderColorHot = 10079963
Appearance.BorderColorCheckedHot = 11565130
Appearance.BorderColorDown = 4548219
Appearance.BorderColorChecked = 4548219
Appearance.BorderColorDisabled = 13948116
Appearance.Color = 15653832
Appearance.ColorTo = 16178633
Appearance.ColorChecked = 11918331
Appearance.ColorCheckedTo = 7915518
Appearance.ColorDisabled = 15921906
Appearance.ColorDisabledTo = 15921906
Appearance.ColorDown = 7778289
Appearance.ColorDownTo = 4296947
Appearance.ColorHot = 15465983
Appearance.ColorHotTo = 11332863
Appearance.ColorMirror = 15586496
Appearance.ColorMirrorTo = 16245200
Appearance.ColorMirrorHot = 5888767
Appearance.ColorMirrorHotTo = 10807807
Appearance.ColorMirrorDown = 946929
Appearance.ColorMirrorDownTo = 5021693
Appearance.ColorMirrorChecked = 10480637
Appearance.ColorMirrorCheckedTo = 5682430
Appearance.ColorMirrorDisabled = 11974326
Appearance.ColorMirrorDisabledTo = 15921906
Appearance.GradientHot = ggVertical
Appearance.GradientMirrorHot = ggVertical
Appearance.GradientDown = ggVertical
Appearance.GradientMirrorDown = ggVertical
Appearance.GradientChecked = ggVertical
Appearance.TextColorChecked = 3750459
Appearance.TextColorDown = 2303013
Appearance.TextColorHot = 2303013
Appearance.TextColorDisabled = 13948116
end
object txtRecCount: TAdvEdit
Left = 369
Top = 13
Width = 90
Height = 16
TabStop = False
EmptyTextStyle = []
FlatLineColor = 11250603
FocusColor = clWindow
FocusFontColor = 3881787
LabelCaption = 'Records Count'
LabelPosition = lpLeftCenter
LabelTransparent = True
LabelFont.Charset = DEFAULT_CHARSET
LabelFont.Color = clWindowText
LabelFont.Height = -11
LabelFont.Name = 'Tahoma'
LabelFont.Style = []
Lookup.Font.Charset = DEFAULT_CHARSET
Lookup.Font.Color = 7485192
Lookup.Font.Height = -11
Lookup.Font.Name = 'Tahoma'
Lookup.Font.Style = []
Lookup.Separator = ';'
Color = clWindow
TabOrder = 2
Text = ''
Visible = True
Version = '4.0.6.0'
end
object AdvGlowButton1: TAdvGlowButton
Left = 154
Top = 4
Width = 72
Height = 31
Caption = 'Find'
Font.Charset = DEFAULT_CHARSET
Font.Color = 7485192
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ImageIndex = 5
FocusType = ftHot
MarginVert = 6
NotesFont.Charset = DEFAULT_CHARSET
NotesFont.Color = clWindowText
NotesFont.Height = -12
NotesFont.Name = 'Tahoma'
NotesFont.Style = []
ParentFont = False
Rounded = True
Spacing = 6
TabOrder = 3
Appearance.BorderColor = 14727579
Appearance.BorderColorHot = 10079963
Appearance.BorderColorCheckedHot = 11565130
Appearance.BorderColorDown = 4548219
Appearance.BorderColorChecked = 4548219
Appearance.BorderColorDisabled = 13948116
Appearance.Color = 15653832
Appearance.ColorTo = 16178633
Appearance.ColorChecked = 11918331
Appearance.ColorCheckedTo = 7915518
Appearance.ColorDisabled = 15921906
Appearance.ColorDisabledTo = 15921906
Appearance.ColorDown = 7778289
Appearance.ColorDownTo = 4296947
Appearance.ColorHot = 15465983
Appearance.ColorHotTo = 11332863
Appearance.ColorMirror = 15586496
Appearance.ColorMirrorTo = 16245200
Appearance.ColorMirrorHot = 5888767
Appearance.ColorMirrorHotTo = 10807807
Appearance.ColorMirrorDown = 946929
Appearance.ColorMirrorDownTo = 5021693
Appearance.ColorMirrorChecked = 10480637
Appearance.ColorMirrorCheckedTo = 5682430
Appearance.ColorMirrorDisabled = 11974326
Appearance.ColorMirrorDisabledTo = 15921906
Appearance.GradientHot = ggVertical
Appearance.GradientMirrorHot = ggVertical
Appearance.GradientDown = ggVertical
Appearance.GradientMirrorDown = ggVertical
Appearance.GradientChecked = ggVertical
Appearance.TextColorChecked = 3750459
Appearance.TextColorDown = 2303013
Appearance.TextColorHot = 2303013
Appearance.TextColorDisabled = 13948116
end
end
object dbgrdDocData: TDBAdvGrid
Left = 0
Top = 242
Width = 900
Height = 399
Align = alClient
ColCount = 10
DrawingStyle = gdsClassic
RowCount = 2
FixedRows = 1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goRowSelect]
ParentFont = False
TabOrder = 2
ActiveCellFont.Charset = DEFAULT_CHARSET
ActiveCellFont.Color = clWindowText
ActiveCellFont.Height = -11
ActiveCellFont.Name = 'Tahoma'
ActiveCellFont.Style = [fsBold]
ActiveCellColor = 9758459
ActiveCellColorTo = 1414638
ControlLook.FixedGradientFrom = 16572875
ControlLook.FixedGradientTo = 14722429
ControlLook.FixedGradientHoverFrom = clGray
ControlLook.FixedGradientHoverTo = clWhite
ControlLook.FixedGradientDownFrom = clGray
ControlLook.FixedGradientDownTo = clSilver
ControlLook.DropDownHeader.Font.Charset = DEFAULT_CHARSET
ControlLook.DropDownHeader.Font.Color = clWindowText
ControlLook.DropDownHeader.Font.Height = -11
ControlLook.DropDownHeader.Font.Name = 'Tahoma'
ControlLook.DropDownHeader.Font.Style = []
ControlLook.DropDownHeader.Visible = True
ControlLook.DropDownHeader.Buttons = <>
ControlLook.DropDownFooter.Font.Charset = DEFAULT_CHARSET
ControlLook.DropDownFooter.Font.Color = clWindowText
ControlLook.DropDownFooter.Font.Height = -11
ControlLook.DropDownFooter.Font.Name = 'Tahoma'
ControlLook.DropDownFooter.Font.Style = []
ControlLook.DropDownFooter.Visible = True
ControlLook.DropDownFooter.Buttons = <>
ControlLook.ToggleSwitch.BackgroundBorderWidth = 1.000000000000000000
ControlLook.ToggleSwitch.ButtonBorderWidth = 1.000000000000000000
ControlLook.ToggleSwitch.CaptionFont.Charset = DEFAULT_CHARSET
ControlLook.ToggleSwitch.CaptionFont.Color = clWindowText
ControlLook.ToggleSwitch.CaptionFont.Height = -12
ControlLook.ToggleSwitch.CaptionFont.Name = 'Segoe UI'
ControlLook.ToggleSwitch.CaptionFont.Style = []
ControlLook.ToggleSwitch.Shadow = False
Filter = <>
FilterDropDown.Font.Charset = DEFAULT_CHARSET
FilterDropDown.Font.Color = clWindowText
FilterDropDown.Font.Height = -11
FilterDropDown.Font.Name = 'Tahoma'
FilterDropDown.Font.Style = []
FilterDropDown.TextChecked = 'Checked'
FilterDropDown.TextUnChecked = 'Unchecked'
FilterDropDownClear = '(All)'
FilterEdit.TypeNames.Strings = (
'Starts with'
'Ends with'
'Contains'
'Not contains'
'Equal'
'Not equal'
'Clear')
FixedColWidth = 20
FixedRowHeight = 22
FixedFont.Charset = DEFAULT_CHARSET
FixedFont.Color = clBlack
FixedFont.Height = -11
FixedFont.Name = 'Tahoma'
FixedFont.Style = [fsBold]
FloatFormat = '%.2f'
HoverButtons.Buttons = <>
HTMLSettings.ImageFolder = 'images'
HTMLSettings.ImageBaseName = 'img'
PrintSettings.DateFormat = 'dd/mm/yyyy'
PrintSettings.Font.Charset = DEFAULT_CHARSET
PrintSettings.Font.Color = clWindowText
PrintSettings.Font.Height = -11
PrintSettings.Font.Name = 'Tahoma'
PrintSettings.Font.Style = []
PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
PrintSettings.FixedFont.Color = clWindowText
PrintSettings.FixedFont.Height = -11
PrintSettings.FixedFont.Name = 'Tahoma'
PrintSettings.FixedFont.Style = []
PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
PrintSettings.HeaderFont.Color = clWindowText
PrintSettings.HeaderFont.Height = -11
PrintSettings.HeaderFont.Name = 'Tahoma'
PrintSettings.HeaderFont.Style = []
PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
PrintSettings.FooterFont.Color = clWindowText
PrintSettings.FooterFont.Height = -11
PrintSettings.FooterFont.Name = 'Tahoma'
PrintSettings.FooterFont.Style = []
PrintSettings.PageNumSep = '/'
ScrollWidth = 26
SearchFooter.Color = 16572875
SearchFooter.ColorTo = clNone
SearchFooter.FindNextCaption = 'Find &next'
SearchFooter.FindPrevCaption = 'Find &previous'
SearchFooter.Font.Charset = DEFAULT_CHARSET
SearchFooter.Font.Color = clWindowText
SearchFooter.Font.Height = -11
SearchFooter.Font.Name = 'Tahoma'
SearchFooter.Font.Style = []
SearchFooter.HighLightCaption = 'Highlight'
SearchFooter.HintClose = 'Close'
SearchFooter.HintFindNext = 'Find next occurence'
SearchFooter.HintFindPrev = 'Find previous occurence'
SearchFooter.HintHighlight = 'Highlight occurences'
SearchFooter.MatchCaseCaption = 'Match case'
SearchFooter.ResultFormat = '(%d of %d)'
SelectionColor = 9758459
SelectionColorTo = 1414638
SortSettings.Column = 1
SortSettings.Show = True
UIStyle = tsOffice2003Blue
Version = '2.8.3.3'
AutoCreateColumns = True
AutoRemoveColumns = True
Columns = <
item
Borders = []
BorderPen.Color = clSilver
ButtonHeight = 18
CheckFalse = 'N'
CheckTrue = 'Y'
Color = clWindow
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
PrintFont.Charset = DEFAULT_CHARSET
PrintFont.Color = clWindowText
PrintFont.Height = -11
PrintFont.Name = 'Tahoma'
PrintFont.Style = []
Width = 20
end
item
Borders = []
BorderPen.Color = clSilver
ButtonHeight = 18
CheckFalse = 'N'
CheckTrue = 'Y'
Color = clWindow
FieldName = 'DOC_DATE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Header = 'Doc Date'
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
PrintFont.Charset = DEFAULT_CHARSET
PrintFont.Color = clWindowText
PrintFont.Height = -11
PrintFont.Name = 'Tahoma'
PrintFont.Style = []
Width = 66
end
item
Borders = []
BorderPen.Color = clSilver
ButtonHeight = 18
CheckFalse = 'N'
CheckTrue = 'Y'
Color = clWindow
FieldName = 'DDocType'
Font.Charset = DEFAULT_CHARSET
Font.Color = 7485192
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Header = 'Doc Type'
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = 7485192
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
PrintFont.Charset = DEFAULT_CHARSET
PrintFont.Color = 7485192
PrintFont.Height = -11
PrintFont.Name = 'Tahoma'
PrintFont.Style = []
Width = 67
end
item
Borders = []
BorderPen.Color = clSilver
ButtonHeight = 18
CheckFalse = 'N'
CheckTrue = 'Y'
Color = clWhite
FieldName = 'REF_NUM'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Header = 'Ref Num'
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
PrintFont.Charset = DEFAULT_CHARSET
PrintFont.Color = clWindowText
PrintFont.Height = -11
PrintFont.Name = 'Tahoma'
PrintFont.Style = []
Width = 64
end
item
Borders = []
BorderPen.Color = clSilver
ButtonHeight = 18
CheckFalse = 'N'
CheckTrue = 'Y'
Color = clWindow
FieldName = 'DAccount'
Font.Charset = DEFAULT_CHARSET
Font.Color = 7485192
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Header = 'Account'
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = 7485192
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
PrintFont.Charset = DEFAULT_CHARSET
PrintFont.Color = 7485192
PrintFont.Height = -11
PrintFont.Name = 'Tahoma'
PrintFont.Style = []
Width = 120
end
item
Borders = []
BorderPen.Color = clSilver
ButtonHeight = 18
CheckFalse = 'N'
CheckTrue = 'Y'
Color = clWindow
FieldName = 'AMOUNT'
Font.Charset = DEFAULT_CHARSET
Font.Color = 7485192
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Header = 'Amount'
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = 7485192
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
PrintFont.Charset = DEFAULT_CHARSET
PrintFont.Color = 7485192
PrintFont.Height = -11
PrintFont.Name = 'Tahoma'
PrintFont.Style = []
end
item
Borders = []
BorderPen.Color = clSilver
ButtonHeight = 18
CheckFalse = 'N'
CheckTrue = 'Y'
Color = clWindow
FieldName = 'DAccountFrom'
Font.Charset = DEFAULT_CHARSET
Font.Color = 7485192
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Header = 'Account From'
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = 7485192
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
PrintFont.Charset = DEFAULT_CHARSET
PrintFont.Color = 7485192
PrintFont.Height = -11
PrintFont.Name = 'Tahoma'
PrintFont.Style = []
Width = 120
end
item
Borders = []
BorderPen.Color = clSilver
ButtonHeight = 18
CheckFalse = 'N'
CheckTrue = 'Y'
Color = clWindow
FieldName = 'DUE_DATE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Header = 'Due Date'
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = clBlack
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
PrintFont.Charset = DEFAULT_CHARSET
PrintFont.Color = clBlack
PrintFont.Height = -11
PrintFont.Name = 'Tahoma'
PrintFont.Style = []
Width = 59
end
item
Borders = []
BorderPen.Color = clSilver
ButtonHeight = 18
CheckFalse = 'N'
CheckTrue = 'Y'
Color = clWindow
FieldName = 'DUE_AMOUNT'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Header = 'Due Amount'
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = clBlack
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
PrintFont.Charset = DEFAULT_CHARSET
PrintFont.Color = clBlack
PrintFont.Height = -11
PrintFont.Name = 'Tahoma'
PrintFont.Style = []
Width = 71
end
item
Borders = []
BorderPen.Color = clSilver
ButtonHeight = 18
CheckFalse = 'N'
CheckTrue = 'Y'
Color = clWindow
FieldName = 'DOC_DESC'
Font.Charset = DEFAULT_CHARSET
Font.Color = 7485192
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Header = 'Description'
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = 7485192
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
PrintFont.Charset = DEFAULT_CHARSET
PrintFont.Color = 7485192
PrintFont.Height = -11
PrintFont.Name = 'Tahoma'
PrintFont.Style = []
Width = 238
end>
DataSource = dsDocFind
PageMode = False
InvalidPicture.Data = {
055449636F6E0000010001002020200000000000A81000001600000028000000
2000000040000000010020000000000000100000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000003000000290000005C0000008B000000AF000000C1
000000CA000000CB000000C9000000C1000000AF0000008A0000005E0000002C
0000000400000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000220000007100001CBE000047F401015DFF01016CFF000074FF
000075FF00006CFF01015EFF010145FF000020FF000001F3000000DE000000AE
0000006B00000026000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000005401013DC5010175FF010186FF010189FF000085FF000082FF000081FF
000080FF000080FF000080FF000083FF000082FF01016EFF01013FFF000007FB
000000E0000000A10000004D0000000700000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000300003A8B
010178FF010191FF00008AFF000085FF000085FF000085FF000085FF000086FF
000086FF000084FF000081FF000080FF00007FFF000081FF000085FF010172FF
000030FF000000F5000000C3000000610000000A000000000000000000000000
000000000000000000000000000000000000000000000001010159A5010193FF
01018EFF000089FF000089FF00008CFF00008CFF00008FFF000090FF000090FF
000090FF00008FFF00008BFF00008AFF000086FF000082FF00007EFF000081FF
010182FF00004FFF000000FC000000CB0000005F000000080000000000000000
0000000000000000000000000000000000000000010167AA02029EFF01018EFF
00008CFF00008FFF000092FF000095FF000098FF000099FF000098FF00009BFF
00009AFF000098FF000097FF000094FF00008FFF00008BFF000087FF000082FF
00007FFF010188FF00005BFF000000FC000000C4000000530000000000000000
00000000000000000000000000000000010169850202A4FF010191FF000090FF
000095FF000093FF000096FF00009DFF0000A2FF0000A2FF0000A2FF0000A3FF
0000A2FF0000A1FF00009FFF00009BFF000097FF00008DFF00008BFF00008AFF
000084FF00007FFF01018BFF000054FF000000F6000000AC0000003000000000
000000000000000000000000000168400202A6FF020294FF000094FF00009AFF
000098FF4949BFFF5353C4FF00009DFF0000A7FF0000A9FF0101AAFF0101AAFF
0101A9FF0101A8FF0000A5FF0000A2FF00009AFF5F5FC5FF3A3AB3FF00008AFF
00008BFF000086FF010183FF01018BFF000037FF000000E50000007900000009
0000000000000000000000000202A2D803039EFF00009AFF0000A0FF0000A1FF
2929ABFFFFFFFAFFFFFFFFFF4A4AC8FF0000A5FF0000AFFF0000AFFF0101AEFF
0101B0FF0000AFFF0000ACFF0000A5FF4848B6FFFFFFFFFFFFFFFFFF2424AEFF
00008FFF000090FF000089FF01018BFF010180FF00000CFF000000BB00000038
00000000000000000101655C0303B2FF02029EFF0000A4FF0000AAFF2F2FA9FF
CCCCC0FFFFFFF4FFFFFFFFFFFFFFFFFF4141CAFF0000ACFF0000B3FF0000B3FF
0000B3FF0000B2FF0000ADFF4343B5FFEDEDD9FFFFFFFFFFFFFFFFFFFFFFFFFF
3232AFFF000095FF000092FF01018BFF020293FF010155FF000000E50000006F
00000000000000000303A6D70303A2FF0202A5FF0000ACFF0000B2FF78788DFF
CBCBA5FFFFFFFCFFFFFFFFFFFFFFFFFFFFFFFFFF4F4FCEFF0000AEFF0000B5FF
0000B6FF0000B2FF4B4BBDFFF2F2D9FFFFFFF8FFFFFFFFFFFFFFFFFFF8F8D4FF
8282AEFF0000A2FF00009DFF010194FF020291FF02028CFF000110FD0000009F
000000180000C5200404A3FF0404A7FF0202ADFF0101B3FF0000BCFF0000B0FF
606073FFC4C4A9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4040CFFF0000B1FF
0000B3FF4E4EC8FFF6F6DFFFFFFFF6FFFFFFFFFFFFFFFFFFE7E7CBFF737393FF
0000A9FF0000ABFF0000A4FF01019BFF020292FF02029BFF010139FF000000C2
000000370201BE6D0505A7FF0404AEFF0303B6FF0303BBFF0101C1FF0000CDFF
0000B9FF56566EFFC0C0A5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3B3BCFFF
5050D7FFFFFFFAFFFFFFF5FFFFFFFFFFFFFFFFFFE0E0C8FF6D6D8FFF0000B2FF
0000B8FF0000B1FF0101ABFF0101A3FF01019AFF02029EFF02026FFF000000DC
0000004D0405BAA10707ADFF0606B5FF0404BBFF0505C2FF0505C8FF0303CBFF
0000D2FF0000BAFF616177FFC6C6ABFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE9E9CDFF747495FF0000B7FF0000C2FF
0101BDFF0202B8FF0202B2FF0101AAFF02029FFF03039EFF020289FF000004E6
000000550606B9CB0808B5FF0606BBFF0606C4FF0606C9FF0606CDFF0606D0FF
0202CFFF0000D4FF0000BDFF6E6E86FFDADABDFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFF5F5DAFF8181A4FF0000BCFF0000C5FF0000C4FF
0303C1FF0303BEFF0202B8FF0202B0FF0202A6FF0303A1FF03039FFF00000CEC
000000590909BBE80909BAFF0808C2FF0808CAFF0808D0FF0909D4FF0707D4FF
0303D2FF0000D0FF0000D4FF0000C2FF8A8AAEFFF7F7EAFFFFFFFFFFFEFEFEFF
FEFEFEFFFFFFFFFFFFFFF9FF9393C8FF0000C3FF0000C8FF0000C6FF0101C6FF
0404C6FF0505C5FF0303BEFF0202B6FF0202ACFF0303A3FF0606AEFF010113ED
0000005A0A0ABFF80C0CC2FF0B0BC9FF0B0BD0FF0B0BD8FF0D0DDCFF0808D9FF
0303D5FF0000D2FF0000D2FF0000D4FF4648C5FFF9F9E6FFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFF6FF3A3ACEFF0000C6FF0000CBFF0000C9FF0303CAFF
0505CAFF0505CAFF0505C4FF0404BEFF0404B2FF0505A9FF0505B9FF010115EB
000000570B0BC6EA1010C9FF0E0ED0FF0E0EDAFF0F0FE1FF0F0FE2FF0B0BE0FF
0303DAFF0000D6FF0000D4FF4242CBFFE9E9D5FFFFFFFBFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFEFFFFFFF9FF4949DEFF0000C6FF0000CCFF0101CDFF
0606CFFF0707CFFF0606C9FF0505C3FF0505B7FF0606ADFF0707B8FF010113E2
0000004F0C0CCDCE1313CFFF1212D7FF1313E1FF1313E9FF1313ECFF0C0CE7FF
0000E0FF0000DCFF3F3FCDFFEAEAD2FFFFFFF6FFFFFFFFFFFFFFFFFFFFFFF5FF
FFFFF3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4343DCFF0000CAFF0000D2FF
0606D4FF0A0AD3FF0808CEFF0808C6FF0707BBFF0808B4FF0606B3FF01010ED4
000000410909D7A41515D4FF1717E0FF1818E9FF1A1AF2FF1A1AF5FF0E0EF3FF
0000EBFF4848D2FFECECD0FFFFFFF5FFFFFFFFFFFFFFFFFFEEEED6FF8585BBFF
8787ADFFDDDDC5FFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFF4E4EE2FF0000D2FF
0505DBFF0C0CD9FF0B0BD3FF0A0ACAFF0A0ABEFF0B0BBCFF0606A5FF000004B1
000000200608DE751919D6FF1C1CE6FF1E1EF2FF2121FCFF1E1EFFFF0606FFFF
4D4DE0FFE6E6CBFFFFFFF4FFFFFFFFFFFFFFFFFFEAEACAFF7B7BA3FF0000D9FF
0000D4FF737389FFCBCBABFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4F4FEEFF
0000E4FF0B0BE1FF0D0DDAFF0C0CCEFF0C0CC2FF0F0FC7FF060690FF00000085
000000050000E6221717DCFF2222E9FF2626F9FF2727FFFF2424FFFF5E5ED6FF
DFDFC0FFFFFFF5FFFFFFFFFFFFFFFFFFDFDFC2FF72729BFF0000DDFF0000E8FF
0000E9FF0000D1FF605F7AFFC2C2A4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFF
5656DFFF0606E8FF1010E0FF1111D4FF0F0FC7FF0E0ECEFF020253E200000047
00000000000000001010E3D92424ECFF2D2DFFFF3131FFFF2F2FFFFF7C7C9FFF
D8D8B2FFFFFFFFFFFFFFFFFFE1E1C0FF696996FF0000E0FF0000E9FF0000E6FF
0000E4FF0000ECFF0000D4FF595971FFBEBE9DFFFFFFFFFFFFFFFDFFD6D6A6FF
7272BFFF1010F6FF1616E4FF1515D6FF1313CFFF0D0DC5FF000021A200000012
00000000000000000607E85C2121EDFF3030FFFF3C3CFFFF3E3EFFFF3B3BF8FF
71719AFFD8D8BDFFD9D9BAFF6C6C99FF0000F1FF0000F6FF0000E9FF0000E6FF
0000E7FF0000E8FF0000F5FF0000DEFF565674FFBBBB98FFC1C19BFF5F5FA8FF
1717FFFF1919FAFF1C1CE7FF1919D9FF1515DBFF05058CF20000004300000000
0000000000000000000000001313EED32E2EFDFF4040FFFF4B4BFFFF4F4FFFFF
4C4CFBFF696981FF6B6B80FF2525FBFF1212FFFF0D0DFFFF0707FAFF0404F3FF
0505F2FF0606F5FF0A0AFCFF0C0CFFFF1A1AF4FF606067FF5B5B8FFF2323FFFF
2626FFFF2727FBFF2222E9FF1D1DE0FF1010D2FF000025880000000800000000
0000000000000000000000000202F1352020F8FF3B3BFFFF4D4DFFFF5C5CFFFF
6666FFFF6464FCFF5F5FF7FF5555FFFF4343FFFF3131FFFF2121FFFF1919FFFF
1818FFFF1C1CFFFF2525FFFF3131FFFF3737FFFF3D3DF6FF3939FEFF3535FFFF
3333FFFF2C2CFAFF2525EAFF1A1AE8FF030380C1000000170000000000000000
000000000000000000000000000000000909F3712B2BFEFF4646FFFF5D5DFFFF
6E6EFFFF7B7BFFFF8080FFFF8181FFFF7575FFFF6767FFFF5555FFFF4949FFFF
4646FFFF4848FFFF4E4EFFFF5454FFFF5757FFFF5050FFFF4949FFFF4040FFFF
3838FFFF2D2DF6FF2020F6FF0808B6DF00000423000000000000000000000000
00000000000000000000000000000000000000000D0EF6902F2FFFFF4D4DFFFF
6666FFFF7C7CFFFF8B8BFFFF9494FFFF9696FFFF9191FFFF8A8AFFFF7E7EFFFF
7878FFFF7373FFFF7171FFFF6C6CFFFF6464FFFF5B5BFFFF5050FFFF4343FFFF
3636FFFF2626FFFF0D0ECCE30000072800000000000000000000000000000000
0000000000000000000000000000000000000000000000000A0AF8782B2BFDFF
4E4EFFFF6868FFFF7F7FFFFF9292FFFFA0A0FFFFA5A5FFFFA7A7FFFFA2A2FFFF
9999FFFF8E8EFFFF8282FFFF7575FFFF6868FFFF5959FFFF4B4BFFFF3A3AFFFF
2727FFFF0B0BCEC600000A150000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000001F841
2121FCDD4545FFFF6262FFFF7979FFFF8C8CFFFF9B9BFFFFA4A4FFFFA3A3FFFF
9B9BFFFF8E8EFFFF7E7EFFFF6C6CFFFF5D5DFFFF4B4BFFFF3838FFFF1F1FEFFF
0405B77D00000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000708F96B2827FDE24646FEFF6464FFFF7474FFFF8080FFFF8484FFFF
7E7EFFFF7373FFFF6363FFFF5353FFFF3F3FFEFF2323FAF40C0CE69800007B1C
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000A0AF9321415F9802727F9B03C3CFBD84949FFF1
4848FFF53939FCDE2727F9BB1516F88B0608F9480708E4070000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000FF8000FFFF00007FFE00001FF800000FF0000007F0000007E0000003
C0000001C0000001800000018000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000180000001
80000003C0000003C0000007E000000FF000001FF800003FFC0000FFFF0001FF
FFC007FF}
ShowUnicode = False
ColWidths = (
20
66
67
64
120
50
120
59
71
238)
RowHeights = (
22
22)
end
object uqDocFind: TUniQuery
SQL.Strings = (
'select * from doc_data')
Left = 1017
Top = 190
object uqDocFindDOC_ID: TIntegerField
FieldName = 'DOC_ID'
Required = True
end
object uqDocFindDOC_DATE: TDateField
FieldName = 'DOC_DATE'
end
object uqDocFindAMOUNT: TFloatField
FieldName = 'AMOUNT'
DisplayFormat = '0.00'
end
object uqDocFindDOC_DESC: TStringField
FieldName = 'DOC_DESC'
Size = 256
end
object uqDocFindACCOUNT_FROM: TIntegerField
FieldName = 'ACCOUNT_FROM'
end
object uqDocFindACCOUNT: TIntegerField
FieldName = 'ACCOUNT'
end
object uqDocFindREF_NUM: TStringField
FieldName = 'REF_NUM'
Size = 10
end
object uqDocFindDOC_TYPE: TIntegerField
FieldName = 'DOC_TYPE'
end
object uqDocFindDDocType: TStringField
FieldKind = fkLookup
FieldName = 'DDocType'
LookupKeyFields = 'TYPE_ID'
LookupResultField = 'TYPE_NAME'
KeyFields = 'DOC_TYPE'
Lookup = True
end
object uqDocFindDAccount: TStringField
FieldKind = fkLookup
FieldName = 'DAccount'
LookupKeyFields = 'ACCOUNT_ID'
LookupResultField = 'ACCOUNT_NAME'
KeyFields = 'ACCOUNT'
Size = 100
Lookup = True
end
object uqDocFindDAccountFrom: TStringField
DisplayLabel = 'Account From'
FieldKind = fkLookup
FieldName = 'DAccountFrom'
LookupKeyFields = 'ACCOUNT_ID'
LookupResultField = 'ACCOUNT_NAME'
KeyFields = 'ACCOUNT_FROM'
Size = 60
Lookup = True
end
object uqDocFindDUE_AMOUNT: TFloatField
FieldName = 'DUE_AMOUNT'
end
object uqDocFindDUE_DATE: TDateField
FieldName = 'DUE_DATE'
end
end
object dsDocFind: TDataSource
AutoEdit = False
DataSet = uqDocFind
Left = 1019
Top = 291
end
object uqMisc: TUniQuery
Left = 1163
Top = 192
end
end
dev/fDocEntryFind.h deleted 100644 → 0
//---------------------------------------------------------------------------
#ifndef fDocEntryFindH
#define fDocEntryFindH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "AdvDateTimePicker.hpp"
#include "AdvEdit.hpp"
#include "AdvGlowButton.hpp"
#include "AdvGrid.hpp"
#include "AdvPanel.hpp"
#include "AdvSmoothPanel.hpp"
#include "AdvToolBar.hpp"
#include "BaseGrid.hpp"
#include "DBAdvGrid.hpp"
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include <Grids.hpp>
#include "AdvDBDateTimePicker.hpp"
#include "DBAccess.hpp"
#include "MemDS.hpp"
#include "Uni.hpp"
#include <DB.hpp>
#include "AdvEdBtn.hpp"
#include "PlannerDatePicker.hpp"
#include "AdvPageControl.hpp"
#include "AdvOfficeButtons.hpp"
#include "AdvObj.hpp"
#include "vcl.wwdblook.hpp"
#include <Vcl.Dialogs.hpp>
#include "AdvUtil.hpp"
#include "vcl.Wwdbcomb.hpp"
#include "vcl.Wwdbedit.hpp"
#include "vcl.Wwdotdot.hpp"
#include <Vcl.Mask.hpp>
#include "vcl.wwdbdatetimepicker.hpp"
//---------------------------------------------------------------------------
class TfrmDocEntryFind : public TForm
{
__published: // IDE-managed Components
TAdvPanel *pnlMain;
TUniQuery *uqDocFind;
TDataSource *dsDocFind;
TIntegerField *uqDocFindDOC_ID;
TDateField *uqDocFindDOC_DATE;
TFloatField *uqDocFindAMOUNT;
TStringField *uqDocFindDAccountFrom;
TStringField *uqDocFindDOC_DESC;
TIntegerField *uqDocFindACCOUNT_FROM;
TIntegerField *uqDocFindACCOUNT;
TStringField *uqDocFindDAccount;
TStringField *uqDocFindDDocType;
TIntegerField *uqDocFindDOC_TYPE;
TStringField *uqDocFindREF_NUM;
TFloatField *uqDocFindDUE_AMOUNT;
TDateField *uqDocFindDUE_DATE;
TAdvPanel *AdvPanel1;
TAdvGlowButton *btnOk;
TAdvGlowButton *btnCancel;
TAdvEdit *txtRecCount;
TAdvGlowButton *AdvGlowButton1;
TLabel *Label1;
TwwDBDateTimePicker *dtpDocDate;
TLabel *Label2;
TwwDBDateTimePicker *dtpDocDate2;
TwwDBComboBox *dbcbMonth;
TwwDBComboBox *dbcbYear;
TUniQuery *uqMisc;
TDBAdvGrid *dbgrdDocData;
void __fastcall dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select);
private: // User declarations
public: // User declarations
String sqlStr;
__fastcall TfrmDocEntryFind(TComponent* Owner);
void SetDocumentDates();
void FindDocuments();
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmDocEntryFind *frmDocEntryFind;
//---------------------------------------------------------------------------
#endif
dev/Unit1.cpp → fMain.cpp
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
#include <vcl.h> #include <vcl.h>
#pragma hdrstop #pragma hdrstop
#include "Unit1.h" #include "fMain.h"
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
#pragma package(smart_init) #pragma package(smart_init)
#pragma link "AdvGrid" #pragma link "AdvGrid"
...@@ -26,9 +26,9 @@ ...@@ -26,9 +26,9 @@
#pragma link "UniProvider" #pragma link "UniProvider"
#pragma resource "*.dfm" #pragma resource "*.dfm"
TForm1 *Form1; TfrmMain *frmMain;
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) __fastcall TfrmMain::TfrmMain(TComponent* Owner)
: TForm(Owner) : TForm(Owner)
{ {
pagesLoaded = 0; pagesLoaded = 0;
...@@ -49,15 +49,14 @@ __fastcall TForm1::TForm1(TComponent* Owner) ...@@ -49,15 +49,14 @@ __fastcall TForm1::TForm1(TComponent* Owner)
}; };
for(int i = 0; i < 12; i++) for(int i = 0; i < 12; i++)
dbcbMonth->Items->Add(sMonths[i]); dbcbMonth->Items->Add(sMonths[i]);
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::btnExitClick(TObject *Sender) void __fastcall TfrmMain::btnExitClick(TObject *Sender)
{ {
Close(); Close();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::btnMessagesClick(TObject *Sender) void __fastcall TfrmMain::btnMessagesClick(TObject *Sender)
{ {
String res = BuildMessageRequestURL(); String res = BuildMessageRequestURL();
TJSONValue* jValue; TJSONValue* jValue;
...@@ -155,7 +154,7 @@ void __fastcall TForm1::btnMessagesClick(TObject *Sender) ...@@ -155,7 +154,7 @@ void __fastcall TForm1::btnMessagesClick(TObject *Sender)
delete pRESTResponse; delete pRESTResponse;
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void TForm1::SaveMessagesToDB(TJSONArray* jaMessages) void TfrmMain::SaveMessagesToDB(TJSONArray* jaMessages)
{ {
if (!jaMessages || jaMessages->Count == 0) if (!jaMessages || jaMessages->Count == 0)
return; return;
...@@ -212,7 +211,7 @@ void TForm1::SaveMessagesToDB(TJSONArray* jaMessages) ...@@ -212,7 +211,7 @@ void TForm1::SaveMessagesToDB(TJSONArray* jaMessages)
} }
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr) TDateTime TfrmMain::ParseTwilioDateTime(String dateStr)
{ {
// Twilio format: "Wed, 12 Feb 2025 18:21:17 +0000" // Twilio format: "Wed, 12 Feb 2025 18:21:17 +0000"
std::map<UnicodeString, int> monthMap; std::map<UnicodeString, int> monthMap;
...@@ -221,9 +220,7 @@ TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr) ...@@ -221,9 +220,7 @@ TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr)
monthMap["Jul"] = 7; monthMap["Aug"] = 8; monthMap["Sep"] = 9; monthMap["Jul"] = 7; monthMap["Aug"] = 8; monthMap["Sep"] = 9;
monthMap["Oct"] = 10; monthMap["Nov"] = 11; monthMap["Dec"] = 12; monthMap["Oct"] = 10; monthMap["Nov"] = 11; monthMap["Dec"] = 12;
UnicodeString cleanedDateStr = dateStr.SubString(6, dateStr.Length() - 5); String cleanedDateStr = dateStr.SubString(6, 20);
cleanedDateStr = cleanedDateStr.SubString(1, cleanedDateStr.Length() - 6);
TStringList *parts = new TStringList(); TStringList *parts = new TStringList();
parts->Delimiter = ' '; parts->Delimiter = ' ';
...@@ -263,7 +260,7 @@ TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr) ...@@ -263,7 +260,7 @@ TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr)
return result; return result;
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
String TForm1::BuildMessageRequestURL() String TfrmMain::BuildMessageRequestURL()
{ {
String url = "/2010-04-01/Accounts/" + accountSid + "/Messages.json"; String url = "/2010-04-01/Accounts/" + accountSid + "/Messages.json";
String pageSizeStr = edtPageSize->Text.Trim(); String pageSizeStr = edtPageSize->Text.Trim();
...@@ -304,7 +301,7 @@ String TForm1::BuildMessageRequestURL() ...@@ -304,7 +301,7 @@ String TForm1::BuildMessageRequestURL()
return url; return url;
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void TForm1::GetFieldsFromJsonArray(TJSONArray* jaData) void TfrmMain::GetFieldsFromJsonArray(TJSONArray* jaData)
{ {
String fieldname; String fieldname;
String str; String str;
...@@ -325,7 +322,7 @@ void TForm1::GetFieldsFromJsonArray(TJSONArray* jaData) ...@@ -325,7 +322,7 @@ void TForm1::GetFieldsFromJsonArray(TJSONArray* jaData)
} }
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void TForm1::LoadJsonArray(TJSONArray* jaData, String detail) void TfrmMain::LoadJsonArray(TJSONArray* jaData, String detail)
{ {
TJSONObject* jso; TJSONObject* jso;
grdData->ClearAll(); grdData->ClearAll();
...@@ -361,7 +358,7 @@ void TForm1::LoadJsonArray(TJSONArray* jaData, String detail) ...@@ -361,7 +358,7 @@ void TForm1::LoadJsonArray(TJSONArray* jaData, String detail)
grdData->EndUpdate(); grdData->EndUpdate();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void TForm1::AppendJsonArray(TJSONArray* jaData) void TfrmMain::AppendJsonArray(TJSONArray* jaData)
{ {
if(!jaData || jaData->Count == 0) if(!jaData || jaData->Count == 0)
return; return;
...@@ -383,17 +380,17 @@ void TForm1::AppendJsonArray(TJSONArray* jaData) ...@@ -383,17 +380,17 @@ void TForm1::AppendJsonArray(TJSONArray* jaData)
grdData->EndUpdate(); grdData->EndUpdate();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select) void __fastcall TfrmMain::dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select)
{ {
SetDatePickersFromMonthYear(); SetDatePickersFromMonthYear();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select) void __fastcall TfrmMain::dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select)
{ {
SetDatePickersFromMonthYear(); SetDatePickersFromMonthYear();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void TForm1::SetDatePickersFromMonthYear() void TfrmMain::SetDatePickersFromMonthYear()
{ {
int year = 0; int year = 0;
int month = 0; int month = 0;
...@@ -434,7 +431,7 @@ void TForm1::SetDatePickersFromMonthYear() ...@@ -434,7 +431,7 @@ void TForm1::SetDatePickersFromMonthYear()
} }
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::btnNextPageClick(TObject *Sender) void __fastcall TfrmMain::btnNextPageClick(TObject *Sender)
{ {
// Stop if there's no next page URI // Stop if there's no next page URI
if (txtNextPageUri->Text.Trim().IsEmpty() || txtNextPageUri->Text == "null") if (txtNextPageUri->Text.Trim().IsEmpty() || txtNextPageUri->Text == "null")
...@@ -494,6 +491,13 @@ void __fastcall TForm1::btnNextPageClick(TObject *Sender) ...@@ -494,6 +491,13 @@ void __fastcall TForm1::btnNextPageClick(TObject *Sender)
delete pRESTRequest; delete pRESTRequest;
delete pRESTResponse; delete pRESTResponse;
} }
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Button1Click(TObject *Sender)
{
TDateTime dt;
dt = ParseTwilioDateTime( "Wed, 12 Feb 2025 18:21:17 +0000" );
Memo1->Lines->Add( dt.DateTimeString() );
}
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
dev/Unit1.dfm → fMain.dfm
object Form1: TForm1 object frmMain: TfrmMain
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'Form1' Caption = 'frmMain'
ClientHeight = 722 ClientHeight = 722
ClientWidth = 1184 ClientWidth = 1184
Color = clBtnFace Color = clBtnFace
...@@ -190,6 +190,15 @@ object Form1: TForm1 ...@@ -190,6 +190,15 @@ object Form1: TForm1
Caption = 'Save Messages to Database' Caption = 'Save Messages to Database'
TabOrder = 6 TabOrder = 6
end end
object Button1: TButton
Left = 440
Top = 76
Width = 139
Height = 25
Caption = 'DateTime Conversion'
TabOrder = 7
OnClick = Button1Click
end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
...@@ -1178,8 +1187,6 @@ object Form1: TForm1 ...@@ -1178,8 +1187,6 @@ object Form1: TForm1
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
WordWrap = False WordWrap = False
ExplicitLeft = 0
ExplicitTop = 2
end end
object Panel4: TPanel object Panel4: TPanel
Left = 1 Left = 1
...@@ -1213,8 +1220,6 @@ object Form1: TForm1 ...@@ -1213,8 +1220,6 @@ object Form1: TForm1
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
WordWrap = False WordWrap = False
ExplicitLeft = 4
ExplicitTop = 0
end end
object Memo3: TMemo object Memo3: TMemo
Left = 596 Left = 596
...@@ -1256,8 +1261,8 @@ object Form1: TForm1 ...@@ -1256,8 +1261,8 @@ object Form1: TForm1
OnCloseUp = dbcbYearCloseUp OnCloseUp = dbcbYearCloseUp
end end
object btnNextPage: TButton object btnNextPage: TButton
Left = 784 Left = 780
Top = 43 Top = 39
Width = 83 Width = 83
Height = 25 Height = 25
Caption = 'Next Page' Caption = 'Next Page'
...@@ -1301,7 +1306,6 @@ object Form1: TForm1 ...@@ -1301,7 +1306,6 @@ object Form1: TForm1
Database = 'twilio_db' Database = 'twilio_db'
Username = 'postgres' Username = 'postgres'
Server = '192.168.102.130' Server = '192.168.102.130'
Connected = True
LoginPrompt = False LoginPrompt = False
Left = 562 Left = 562
Top = 169 Top = 169
...@@ -1311,7 +1315,6 @@ object Form1: TForm1 ...@@ -1311,7 +1315,6 @@ object Form1: TForm1
Connection = ucTwilioDB Connection = ucTwilioDB
SQL.Strings = ( SQL.Strings = (
'select * from public.messages') 'select * from public.messages')
Active = True
Left = 676 Left = 676
Top = 169 Top = 169
object uqMessagessid: TMemoField object uqMessagessid: TMemoField
......
dev/Unit1.h → fMain.h
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
#ifndef Unit1H #ifndef fMainH
#define Unit1H #define fMainH
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
#include <System.Classes.hpp> #include <System.Classes.hpp>
#include <Vcl.Controls.hpp> #include <Vcl.Controls.hpp>
...@@ -48,7 +48,7 @@ ...@@ -48,7 +48,7 @@
#include <SysUtils.hpp> #include <SysUtils.hpp>
#include <DateUtils.hpp> #include <DateUtils.hpp>
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
class TForm1 : public TForm class TfrmMain : public TForm
{ {
__published: // IDE-managed Components __published: // IDE-managed Components
TRESTClient *RESTClient1; TRESTClient *RESTClient1;
...@@ -109,29 +109,31 @@ __published: // IDE-managed Components ...@@ -109,29 +109,31 @@ __published: // IDE-managed Components
TMemoField *uqMessagesstatus; TMemoField *uqMessagesstatus;
TMemoField *uqMessagesto_number; TMemoField *uqMessagesto_number;
TMemoField *uqMessagesuri; TMemoField *uqMessagesuri;
TButton *Button1;
void __fastcall btnExitClick(TObject *Sender); void __fastcall btnExitClick(TObject *Sender);
void __fastcall btnMessagesClick(TObject *Sender); void __fastcall btnMessagesClick(TObject *Sender);
void __fastcall dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select); void __fastcall dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select); void __fastcall dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall btnNextPageClick(TObject *Sender); void __fastcall btnNextPageClick(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
private: // User declarations private: // User declarations
String accountSid; String accountSid;
String authHeader; String authHeader;
TStringList *fieldsList; TStringList *fieldsList;
int pagesLoaded; int pagesLoaded;
void TForm1::SaveMessagesToDB(TJSONArray* jaMessages); void SaveMessagesToDB(TJSONArray* jaMessages);
void GetFieldsFromJsonArray(TJSONArray* jaData); void GetFieldsFromJsonArray(TJSONArray* jaData);
void LoadJsonArray(TJSONArray* jaData, String detail); void LoadJsonArray(TJSONArray* jaData, String detail);
void SetDatePickersFromMonthYear(); void SetDatePickersFromMonthYear();
void AppendJsonArray(TJSONArray* jaData); void AppendJsonArray(TJSONArray* jaData);
String TForm1::BuildMessageRequestURL(); String BuildMessageRequestURL();
public: // User declarations public: // User declarations
__fastcall TForm1(TComponent* Owner); __fastcall TfrmMain(TComponent* Owner);
TDateTime ParseTwilioDateTime(const UnicodeString &dateStr); TDateTime ParseTwilioDateTime(String dateStr);
}; };
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1; extern PACKAGE TfrmMain *frmMain;
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
#endif #endif
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment