first commit

.gitignore

@@ -0,0 +1,89 @@
+# Uncomment these types if you want even more clean repository. But be careful.
+# It can make harm to an existing project source. Read explanations below.
+#
+# Resource files are binaries containing manifest, project icon and version info.
+# They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files.
+#*.res
+#
+# Type library file (binary). In old Delphi versions it should be stored.
+# Since Delphi 2009 it is produced from .ridl file and can safely be ignored.
+#*.tlb
+#
+# Diagram Portfolio file. Used by the diagram editor up to Delphi 7.
+# Uncomment this if you are not using diagrams or use newer Delphi version.
+#*.ddp
+#
+# Visual LiveBindings file. Added in Delphi XE2.
+# Uncomment this if you are not using LiveBindings Designer.
+#*.vlb
+#
+# Deployment Manager configuration file for your project. Added in Delphi XE2.
+# Uncomment this if it is not mobile development and you do not use remote debug feature.
+#*.deployproj
+#
+# C++ object files produced when C/C++ Output file generation is configured.
+# Uncomment this if you are not using external objects (zlib library for example).
+#*.obj
+#
+
+# Delphi compiler-generated binaries (safe to delete)
+*.exe
+*.dll
+*.bpl
+*.bpi
+*.dcp
+*.so
+*.apk
+*.drc
+*.map
+*.dres
+*.rsm
+*.tds
+*.dcu
+*.lib
+*.a
+*.o
+*.ocx
+
+*.xls
+
+# Delphi autogenerated files (duplicated info)
+*.cfg
+*.hpp
+*Resource.rc
+
+# Delphi local files (user-specific info)
+*.local
+*.identcache
+*.projdata
+*.tvsconfig
+*.dsk
+
+# Delphi history and backups
+__history/
+__recovery/
+*.~*
+
+# Castalia statistics file (since XE7 Castalia is distributed with Delphi)
+*.stat
+
+# Boss dependency manager vendor folder https://github.com/HashLoad/boss
+modules/
+
+#Firebird database
+*.gdb
+*.gbk
+
+Imagens/
+**/ACORDOS
+**/BACKUP_BANCO
+**/BKP_EXE
+**/BOLETOS
+**/Layouts
+**/log
+**/LOGOMARCAS
+**/LOGOS_BOLETOS
+**/Planilhas
+**/RECIBOS
+**/RELATORIOS
+**/REMESSAS

Charge.dpr

@@ -0,0 +1,20 @@
+program Charge;
+
+uses
+  Vcl.Forms,
+  udtmSystem in 'udtmSystem.pas' {dtmSystem: TDataModule},
+  umstCadastro in 'umstCadastro.pas' {mstCadastro},
+  umstMaster in 'umstMaster.pas' {mstMaster},
+  umstLista in 'umstLista.pas' {mstLista},
+  udtmCharge in 'udtmCharge.pas' {dtmCharge: TDataModule},
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.Title := 'Charge';
+  Application.CreateForm(TdtmSystem, dtmSystem);
+  Application.CreateForm(TfrmCharge, frmCharge);
+  Application.Run;
+end.

Charge.dproj

@@ -0,0 +1,540 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{70B4DDD9-C94D-436E-B4E0-44508BFE944C}</ProjectGuid>
+        <ProjectVersion>17.2</ProjectVersion>
+        <FrameworkType>VCL</FrameworkType>
+        <MainSource>Charge.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <TargetedPlatforms>1</TargetedPlatforms>
+        <AppType>Application</AppType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <SanitizedProjectName>Charge</SanitizedProjectName>
+        <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
+        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_E>false</DCC_E>
+        <DCC_N>false</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <DCC_UsePackage>ACBr_Convenio115;FireDACTDataDriver;unidac220;FireDACSqliteDriver;FireDACDSDriver;ZComponent;DBXSqliteDriver;dacvcl220;ACBr_BoletoRL;FireDACPgDriver;ACBr_GNRE;fmx;ACBr_Diversos;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;ACBr_NFeDanfeESCPOS;ACBr_BlocoX;ACBr_synapse;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;DUnitXRuntime;dbxcds;ACBr_Comum;DatasnapConnectorsFreePascal;appanalytics;vcldb;crcontrols220;vcldsnap;ACBr_MDFeDamdfeRL;ACBr_SATExtratoESCPOS;fmxFireDAC;DBXDb2Driver;frce;DBXOracleDriver;CustomIPTransport;ACBr_GNREGuiaRL;ACBr_Serial;vclribbon;ACBr_SPED;dsnap;IndyIPServer;ACBr_MDFe;dacfmx220;fmxase;vcl;IndyCore;ACBr_DFeComum;SimpleRSS;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;ACBr_NFSeDanfseRL;ACBr_Boleto;DataSnapFireDAC;FireDACDBXDriver;ACBr_Sintegra;ACBr_SAT;soapserver;inetdbxpress;ACBr_NFSe;dsnapxml;ACBr_Ponto;FireDACInfxDriver;FireDACDb2Driver;ACBr_LFD;ACBR_DeSTDA;ACBr_PCNComum;adortl;ACBr_TCP;FireDACASADriver;ACBr_SEF2;bindcompfmx;ACBr_PAF;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;ACBr_NFe;Tee;DBXOdbcDriver;ACBr_CTe;ibmonitor;vclFireDAC;xmlrtl;DataSnapNativeClient;svnui;ibxpress;dac220;unidacvcl220;ACBr_NFCeECFVirtual;IndyProtocols;DBXMySQLDriver;ACBr_NFeDanfeRL;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;ACBr_CTeDacteRL;vclie;ACBr_OpenSSL;FireDACADSDriver;vcltouch;ZCore;ACBr_TEFD;emsclient;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;ACBr_SATExtratoRL;DataSnapServerMidas;ACBr_SATECFVirtual;dsnapcon;DBXFirebirdDriver;ACBr_TXTComum;inet;unidacfmx220;fmxobj;PkgWMP;FireDACMySQLDriver;soapmidas;vclx;ZParseSql;ACBr_SPEDImportar;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <DCC_UsePackage>FireDACTDataDriver;FireDACSqliteDriver;FireDACDSDriver;ZComponent;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;appanalytics;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;Tee;DBXOdbcDriver;ibmonitor;vclFireDAC;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;ZCore;emsclient;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;ZParseSql;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <DCC_ExeOutput>..\..\Exe\</DCC_ExeOutput>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=NEXVERSE;FileDescription=;FileVersion=1.0.0.0;InternalName=Charge;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="udtmSystem.pas">
+            <Form>dtmSystem</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="umstCadastro.pas">
+            <Form>mstCadastro</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="umstMaster.pas">
+            <Form>mstMaster</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="umstLista.pas">
+            <Form>mstLista</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="udtmCharge.pas">
+            <Form>dtmCharge</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>Application</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">Charge.dpr</Source>
+                </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k220.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp220.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k220.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp220.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                </Excluded_Packages>
+            </Delphi.Personality>
+            <Deployment Version="1">
+                <DeployFile LocalName="..\..\Exe\Charge.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>Charge.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployClass Required="true" Name="DependencyPackage">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.bpl</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyModule">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.dll;.bpl</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2048">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXInfoPList">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceDebug">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage470">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeX86File">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\x86</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSResource">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXEntitlements">
+                    <Platform Name="OSX32">
+                        <RemoteDir>../</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidGDBServer">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch640">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage960">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch320">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon144">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeMipsFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashImageDef">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DebugSymbols">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyFramework">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage426">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSEntitlements">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>../</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>../</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AdditionalDebugSymbols">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidClassesDexFile">
+                    <Platform Name="Android">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSInfoPList">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1024">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_DefaultAppIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXResource">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceResourceRules">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch768">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="ProjectOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage640">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="File">
+                    <Platform Name="Android">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch640x1136">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStyles">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1536">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectAndroidManifest">
+                    <Platform Name="Android">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+            </Deployment>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
+</Project>

Cobrança.dpr

@@ -0,0 +1,97 @@
+program Cobrança;
+
+uses
+  Vcl.Forms,
+  umstCadastro in 'umstCadastro.pas' {mstCadastro},
+  umstLista in 'umstLista.pas' {mstLista},
+  umstMaster in 'umstMaster.pas' {mstMaster},
+  ucadCampanha in 'ucadCampanha.pas' {cadCampanha},
+  ucadCobrador in 'ucadCobrador.pas' {cadCobrador},
+  ucadContas in 'ucadContas.pas' {cadContas},
+  ucadCredor in 'ucadCredor.pas' {cadCredor},
+  ucadDevedores in 'ucadDevedores.pas' {cadDevedores},
+  ucadEmpresa in 'ucadEmpresa.pas' {cadEmpresa},
+  ucadGrupos in 'ucadGrupos.pas' {cadGrupos},
+  ucadIndices in 'ucadIndices.pas' {cadIndices},
+  ucadModeloRepasse in 'ucadModeloRepasse.pas' {cadModeloRepasse},
+  ucadPoli_Faixa in 'ucadPoli_Faixa.pas' {cadPoli_Faixa},
+  ucadProvidencias in 'ucadProvidencias.pas' {cadProvidencias},
+  ucadTextEmail in 'ucadTextEmail.pas' {cadTextEmail},
+  ucadUsuarios in 'ucadUsuarios.pas' {cadUsuarios},
+  ucadUsuarioseditar in 'ucadUsuarioseditar.pas' {cadUsuarioseditar},
+  uconfFichaHistorico in 'uconfFichaHistorico.pas' {confFichaHistorico},
+  uconfLayouts in 'uconfLayouts.pas' {confLayouts},
+  uconfrelAcordos in 'uconfrelAcordos.pas' {confrelAcordos},
+  uconfrelBordero in 'uconfrelBordero.pas' {confrelBordero},
+  uconfRelGerencia in 'uconfRelGerencia.pas' {confRelGerencia},
+  uconfrelPrestacaoContas in 'uconfrelPrestacaoContas.pas' {confrelPrestacaoContas},
+  uconfrelRecibosEmitidos in 'uconfrelRecibosEmitidos.pas' {confrelRecibosEmitidos},
+  uconfrelRelatorioTCC in 'uconfrelRelatorioTCC.pas' {confrelRelatorioTCC},
+  udelPoli_Faixa in 'udelPoli_Faixa.pas' {delPoli_faixa},
+  udtmSystem in 'udtmSystem.pas' {dtmSystem: TDataModule},
+  uExtenso in 'uExtenso.pas',
+  ufrmAchaRecibo in 'ufrmAchaRecibo.pas' {frmAchaRecibo},
+  ufrmAgenda in 'ufrmAgenda.pas' {frmAgenda},
+  ufrmAgendamento in 'ufrmAgendamento.pas' {frmAgendamento},
+  ufrmAtendimento in 'ufrmAtendimento.pas' {frmAtendimento},
+  ufrmBoleto in 'ufrmBoleto.pas' {frmBoleto},
+  ufrmCampanha in 'ufrmCampanha.pas' {frmCampanha},
+  ufrmCentralBoletos in 'ufrmCentralBoletos.pas' {frmCentralBoletos},
+  ufrmCentralPlanilhamento in 'ufrmCentralPlanilhamento.pas' {frmCentralPlanilhamento},
+  ufrmCheckAdmin in 'ufrmCheckAdmin.pas' {frmCheckAdmin},
+  ufrmCobranca in 'ufrmCobranca.pas' {frmCobranca},
+  ufrmCobrancaCampanha in 'ufrmCobrancaCampanha.pas' {frmCobrancaCampanha},
+  ufrmDadosCheques in 'ufrmDadosCheques.pas' {frmDadosCheques},
+  ufrmDepartamentos in 'ufrmDepartamentos.pas' {frmDepartamentos},
+  ufrmDigito9 in 'ufrmDigito9.pas' {frmDigito9},
+  ufrmEfetuarCobranca in 'ufrmEfetuarCobranca.pas' {frmEfetuarCobranca},
+  ufrmEmpresas in 'ufrmEmpresas.pas' {frmEmpresas},
+  ufrmEscolheAcordo in 'ufrmEscolheAcordo.pas' {frmEscolheAcordo},
+  ufrmEscolheCampanha in 'ufrmEscolheCampanha.pas' {frmEscolheCampanha},
+  ufrmEscolheLayout in 'ufrmEscolheLayout.pas' {frmEscolheLayout},
+  ufrmEscolheProvidencia in 'ufrmEscolheProvidencia.pas' {frmEscolheProv},
+  ufrmFechamento in 'ufrmFechamento.pas' {frmFechamento},
+  ufrmFechamentoAtendimento in 'ufrmFechamentoAtendimento.pas' {frmFechamentoAtendimento},
+  ufrmFechamentoDevedor in 'ufrmFechamentoDevedor.pas' {frmFechamentoDevedor},
+  ufrmFichaTitulos in 'ufrmFichaTitulos.pas' {frmFichaTitulos},
+  ufrmGrupoBoletoEmpresas in 'ufrmGrupoBoletoEmpresas.pas' {frmGrupoBoletoEmpresas},
+  ufrmImpTCC in 'ufrmImpTCC.pas' {frmImpTCC},
+  ufrmLiberaPermissao in 'ufrmLiberaPermissao.pas' {frmLiberaPermissao},
+  ufrmLogActions in 'ufrmLogActions.pas' {frmLogActions},
+  ufrmLogin in 'ufrmLogin.pas' {frmLogin},
+  ufrmMandaMensagem in 'ufrmMandaMensagem.pas' {frmMandaMensagem},
+  ufrmMemoBox in 'ufrmMemoBox.pas' {frmMemoBox},
+  ufrmMovUsuarios in 'ufrmMovUsuarios.pas' {frmMovUsuarios},
+  ufrmPesquisa in 'ufrmPesquisa.pas' {frmPesquisa},
+  ufrmPopUp in 'ufrmPopUp.pas' {frmPopUp},
+  ufrmProgressEC in 'ufrmProgressEC.pas' {frmProgressEC},
+  ufrmRankings in 'ufrmRankings.pas' {frmRanking},
+  ufrmVerIE in 'ufrmVerIE.pas' {frmVerIE},
+  uimpDevedores in 'uimpDevedores.pas' {impDevedores},
+  urelAcordos in 'urelAcordos.pas' {relAcordos},
+  urelBordero in 'urelBordero.pas' {relBordero},
+  urelDados in 'urelDados.pas' {relDados},
+  urelDuplicados in 'urelDuplicados.pas' {relDuplicados},
+  urelFichaDivida in 'urelFichaDivida.pas' {relFichaDivida},
+  urelHistorico in 'urelHistorico.pas' {relHistorico},
+  urelMulti in 'urelMulti.pas' {relMulti},
+  urelPrestacaoAnaSin in 'urelPrestacaoAnaSin.pas' {relPrestacaoAnaSin},
+  urelPrestacaoAnaSin2 in 'urelPrestacaoAnaSin2.pas' {relPrestacaoAnaSin2},
+  urelPrestacaoContas in 'urelPrestacaoContas.pas' {relPrestacaoContas},
+  urelRecibo in 'urelRecibo.pas' {relRecibo},
+  urelRecibosEmitidos in 'urelRecibosEmitidos.pas' {relRecibosEmitidos},
+  urelRelacaoAcordo in 'urelRelacaoAcordo.pas' {relRelacaoAcordo},
+  urelTeste in 'urelTeste.pas' {relTeste},
+  ufrmRemessa in 'ufrmRemessa.pas' {frmRemessa};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.Title := 'Nexverse - Cobrança Multi-Empresas';
+  Application.CreateForm(TdtmSystem, dtmSystem);
+  Application.CreateForm(TfrmCobranca, frmCobranca);
+  Application.CreateForm(TfrmLogin, frmLogin);
+  Application.Run;
+end.

Cobrança.dproj

@@ -0,0 +1,844 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{C7C4870A-231A-4D21-B54C-8C9F1B868556}</ProjectGuid>
+        <ProjectVersion>17.2</ProjectVersion>
+        <FrameworkType>VCL</FrameworkType>
+        <MainSource>Cobrança.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <TargetedPlatforms>1</TargetedPlatforms>
+        <AppType>Application</AppType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <SanitizedProjectName>Cobrança</SanitizedProjectName>
+        <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
+        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_E>false</DCC_E>
+        <DCC_N>false</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <DCC_UsePackage>RosiDBComp_DXE8;ACBr_Convenio115;FireDACTDataDriver;FireDACSqliteDriver;ACBr_LCDPR;FireDACDSDriver;frxTee22;DBXSqliteDriver;ZComponent;ACBr_EDI;FireDACPgDriver;ACBr_GNRE;ACBr_BoletoRL;fmx;ACBr_Diversos;IndySystem;TeeDB;tethering;ACBr_CIOT;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;ACBr_NFeDanfeESCPOS;ACBre_Social;ACBr_BlocoX;package;DataSnapProviderClient;DBXSybaseASEDriver;frxe22;DbxCommonDriver;vclimg;ACBr_NF3e;dbxcds;ACBr_Comum;DatasnapConnectorsFreePascal;appanalytics;ACBr_ONE;ACBr_BPeDabpeESCPOS;vcldb;vcldsnap;ACBr_MDFeDamdfeRL;ACBr_SATExtratoESCPOS;fmxFireDAC;DBXDb2Driver;frce;ACBr_PagFor;DBXOracleDriver;CustomIPTransport;ACBr_GNREGuiaRL;ACBr_Serial;vclribbon;ACBr_SPED;dsnap;IndyIPServer;ACBr_MDFe;fmxase;vcl;IndyCore;ACBr_NFSeDanfseRL;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;CodeSiteExpressPkg;ACBr_Boleto;ACBr_NF3eDANF3eESCPOS;DataSnapFireDAC;FireDACDBXDriver;ACBr_Sintegra;ACBr_SAT;soapserver;inetdbxpress;ACBr_NFSe;dsnapxml;ACBr_Ponto;FireDACInfxDriver;FireDACDb2Driver;ACBr_LFD;ACBR_DeSTDA;adortl;ACBr_TCP;FireDACASADriver;ACBr_SEF2;frx22;bindcompfmx;ACBr_PAF;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;ACBr_MTER;Tee;ACBr_NFe;DBXOdbcDriver;ACBr_CTe;ibmonitor;vclFireDAC;ACBr_ANe;xmlrtl;DataSnapNativeClient;svnui;ibxpress;ACBr_NFCeECFVirtual;ACBr_NFeDanfeRL;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;ACBr_BPe;ACBr_CTeDacteRL;vclie;ACBr_OpenSSL;frxDB22;FireDACADSDriver;vcltouch;ZCore;ACBr_Integrador;ACBr_Reinf;ACBr_TEFD;emsclient;ACBr_SATWS;ACBr_ADRCST;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;ACBr_SATExtratoRL;DataSnapServerMidas;RosiDBSorters_DXE8;ACBr_SATECFVirtual;dsnapcon;DBXFirebirdDriver;inet;fmxobj;ImportExcel;FireDACMySQLDriver;soapmidas;vclx;ZParseSql;ACBr_SPEDImportar;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <DCC_UsePackage>RosiDBComp_DXE8;FireDACTDataDriver;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;ZComponent;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;appanalytics;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;Tee;DBXOdbcDriver;ibmonitor;vclFireDAC;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;ZCore;emsclient;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;DataSnapServerMidas;RosiDBSorters_DXE8;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;ZParseSql;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <Icon_MainIcon>Cobrança_Icon1.ico</Icon_MainIcon>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.1.4.28;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.1.4.26;Comments=</VerInfo_Keys>
+        <VerInfo_MinorVer>1</VerInfo_MinorVer>
+        <VerInfo_Build>28</VerInfo_Build>
+        <VerInfo_Release>4</VerInfo_Release>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="umstCadastro.pas">
+            <Form>mstCadastro</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="umstLista.pas">
+            <Form>mstLista</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="umstMaster.pas">
+            <Form>mstMaster</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadCampanha.pas">
+            <Form>cadCampanha</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadCobrador.pas">
+            <Form>cadCobrador</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadContas.pas">
+            <Form>cadContas</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadCredor.pas">
+            <Form>cadCredor</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadDevedores.pas">
+            <Form>cadDevedores</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadEmpresa.pas">
+            <Form>cadEmpresa</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadGrupos.pas">
+            <Form>cadGrupos</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadIndices.pas">
+            <Form>cadIndices</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadModeloRepasse.pas">
+            <Form>cadModeloRepasse</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadPoli_Faixa.pas">
+            <Form>cadPoli_Faixa</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadProvidencias.pas">
+            <Form>cadProvidencias</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadTextEmail.pas">
+            <Form>cadTextEmail</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadUsuarios.pas">
+            <Form>cadUsuarios</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadUsuarioseditar.pas">
+            <Form>cadUsuarioseditar</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uconfFichaHistorico.pas">
+            <Form>confFichaHistorico</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uconfLayouts.pas">
+            <Form>confLayouts</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uconfrelAcordos.pas">
+            <Form>confrelAcordos</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uconfrelBordero.pas">
+            <Form>confrelBordero</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uconfRelGerencia.pas">
+            <Form>confRelGerencia</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uconfrelPrestacaoContas.pas">
+            <Form>confrelPrestacaoContas</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uconfrelRecibosEmitidos.pas">
+            <Form>confrelRecibosEmitidos</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uconfrelRelatorioTCC.pas">
+            <Form>confrelRelatorioTCC</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="udelPoli_Faixa.pas">
+            <Form>delPoli_faixa</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="udtmSystem.pas">
+            <Form>dtmSystem</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="uExtenso.pas"/>
+        <DCCReference Include="ufrmAchaRecibo.pas">
+            <Form>frmAchaRecibo</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmAgenda.pas">
+            <Form>frmAgenda</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmAgendamento.pas">
+            <Form>frmAgendamento</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmAtendimento.pas">
+            <Form>frmAtendimento</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmBoleto.pas">
+            <Form>frmBoleto</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmCampanha.pas">
+            <Form>frmCampanha</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmCentralBoletos.pas">
+            <Form>frmCentralBoletos</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmCentralPlanilhamento.pas">
+            <Form>frmCentralPlanilhamento</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmCheckAdmin.pas">
+            <Form>frmCheckAdmin</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmCobranca.pas">
+            <Form>frmCobranca</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmCobrancaCampanha.pas">
+            <Form>frmCobrancaCampanha</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmDadosCheques.pas">
+            <Form>frmDadosCheques</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmDepartamentos.pas">
+            <Form>frmDepartamentos</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmDigito9.pas">
+            <Form>frmDigito9</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmEfetuarCobranca.pas">
+            <Form>frmEfetuarCobranca</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmEmpresas.pas">
+            <Form>frmEmpresas</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmEscolheAcordo.pas">
+            <Form>frmEscolheAcordo</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmEscolheCampanha.pas">
+            <Form>frmEscolheCampanha</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmEscolheLayout.pas">
+            <Form>frmEscolheLayout</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmEscolheProvidencia.pas">
+            <Form>frmEscolheProv</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmFechamento.pas">
+            <Form>frmFechamento</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmFechamentoAtendimento.pas">
+            <Form>frmFechamentoAtendimento</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmFechamentoDevedor.pas">
+            <Form>frmFechamentoDevedor</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmFichaTitulos.pas">
+            <Form>frmFichaTitulos</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmGrupoBoletoEmpresas.pas">
+            <Form>frmGrupoBoletoEmpresas</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmImpTCC.pas">
+            <Form>frmImpTCC</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmLiberaPermissao.pas">
+            <Form>frmLiberaPermissao</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmLogActions.pas">
+            <Form>frmLogActions</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmLogin.pas">
+            <Form>frmLogin</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmMandaMensagem.pas">
+            <Form>frmMandaMensagem</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmMemoBox.pas">
+            <Form>frmMemoBox</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmMovUsuarios.pas">
+            <Form>frmMovUsuarios</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmPesquisa.pas">
+            <Form>frmPesquisa</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmPopUp.pas">
+            <Form>frmPopUp</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmProgressEC.pas">
+            <Form>frmProgressEC</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmRankings.pas">
+            <Form>frmRanking</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmVerIE.pas">
+            <Form>frmVerIE</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uimpDevedores.pas">
+            <Form>impDevedores</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelAcordos.pas">
+            <Form>relAcordos</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelBordero.pas">
+            <Form>relBordero</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelDados.pas">
+            <Form>relDados</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelDuplicados.pas">
+            <Form>relDuplicados</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelFichaDivida.pas">
+            <Form>relFichaDivida</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelHistorico.pas">
+            <Form>relHistorico</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelMulti.pas">
+            <Form>relMulti</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelPrestacaoAnaSin.pas">
+            <Form>relPrestacaoAnaSin</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelPrestacaoAnaSin2.pas">
+            <Form>relPrestacaoAnaSin2</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelPrestacaoContas.pas">
+            <Form>relPrestacaoContas</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelRecibo.pas">
+            <Form>relRecibo</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelRecibosEmitidos.pas">
+            <Form>relRecibosEmitidos</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelRelacaoAcordo.pas">
+            <Form>relRelacaoAcordo</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelTeste.pas">
+            <Form>relTeste</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmRemessa.pas">
+            <Form>frmRemessa</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>Application</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">Cobrança.dpr</Source>
+                </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="C:\Fortes Report CE\trunk\Binary\LibD22\frce.bpl">Fortes Report Comunity Edition</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k220.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp220.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k220.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp220.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                </Excluded_Packages>
+            </Delphi.Personality>
+            <Deployment Version="1">
+                <DeployFile LocalName="Win32\Debug\Cobrança.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>Cobrança.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployClass Required="true" Name="DependencyPackage">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.bpl</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyModule">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.dll;.bpl</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2048">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXInfoPList">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceDebug">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage470">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeX86File">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\x86</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSResource">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXEntitlements">
+                    <Platform Name="OSX32">
+                        <RemoteDir>../</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidGDBServer">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch640">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage960">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch320">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon144">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeMipsFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashImageDef">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DebugSymbols">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyFramework">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage426">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSEntitlements">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>../</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>../</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AdditionalDebugSymbols">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidClassesDexFile">
+                    <Platform Name="Android">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSInfoPList">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1024">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_DefaultAppIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXResource">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceResourceRules">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch768">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="ProjectOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage640">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="File">
+                    <Platform Name="Android">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch640x1136">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStyles">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1536">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectAndroidManifest">
+                    <Platform Name="Android">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
+            </Deployment>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
+</Project>

Prog_Cobranca.dpr

@@ -0,0 +1,49 @@
+program Prog_Cobranca;
+
+uses
+  Vcl.Forms,
+  ufrmCobranca in 'ufrmCobranca.pas' {frmCobranca},
+  udtmSystem in 'udtmSystem.pas' {dtmSystem: TDataModule},
+  ufrmLogin in 'ufrmLogin.pas' {frmLogin},
+  umstMaster in 'umstMaster.pas' {mstMaster},
+  umstLista in 'umstLista.pas' {mstLista},
+  umstCadastro in 'umstCadastro.pas' {mstCadastro},
+  ucadBeneficiarios in 'ucadBeneficiarios.pas' {cadBeneficiarios},
+  ufrmPesquisa in 'ufrmPesquisa.pas' {frmPesquisa},
+  ucadPoli_Faixa in 'ucadPoli_Faixa.pas' {cadPoli_Faixa},
+  ucadEmpresa in 'ucadEmpresa.pas' {cadEmpresa},
+  udelPoli_Faixa in 'udelPoli_Faixa.pas' {delPoli_faixa},
+  ucadUsuarios in 'ucadUsuarios.pas' {cadUsuarios},
+  ucadUsuarioseditar in 'ucadUsuarioseditar.pas' {cadUsuarioseditar},
+  ucadDevedores in 'ucadDevedores.pas' {cadDevedores},
+  ufrmMovUsuarios in 'ufrmMovUsuarios.pas' {frmMovUsuarios},
+  ufrmVerIE in 'ufrmVerIE.pas' {frmVerIE},
+  ufrmProgressEC in 'ufrmProgressEC.pas' {frmProgressEC},
+  ucadReferencias in 'ucadReferencias.pas' {cadReferencias},
+  ufrmEfetuarCobranca in 'ufrmEfetuarCobranca.pas' {frmEfetuarCobranca},
+  ucadCampanha in 'ucadCampanha.pas' {cadCampanha},
+  ufrmCampanha in 'ufrmCampanha.pas' {frmCampanha},
+  ufrmMemoBox in 'ufrmMemoBox.pas' {frmMemoBox},
+  ufrmFechamento in 'ufrmFechamento.pas' {frmFechamento},
+  ufrmEscolheCampanha in 'ufrmEscolheCampanha.pas' {frmEscolheCampanha},
+  urelRecibo in 'urelRecibo.pas' {relRecibo},
+  uimpDevedores in 'uimpDevedores.pas' {impDevedores},
+  uconfLayouts in 'uconfLayouts.pas' {confLayouts},
+  ufrmEscolheLayout in 'ufrmEscolheLayout.pas' {frmEscolheLayout},
+  ufrmAgenda in 'ufrmAgenda.pas' {frmAgenda},
+  ufrmAtendimento in 'ufrmAtendimento.pas' {frmAtendimento},
+  ufrmFechamentoAtendimento in 'ufrmFechamentoAtendimento.pas' {frmFechamentoAtendimento},
+  ucadIndices in 'ucadIndices.pas' {cadIndices},
+  uExtenso in 'uExtenso.pas';
+
+{$R *.res}
+
+ begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.Title := 'Charge';
+  Application.CreateForm(TdtmSystem, dtmSystem);
+  Application.CreateForm(TfrmCobranca, frmCobranca);
+  Application.CreateForm(TfrmLogin, frmLogin);
+  Application.Run;
+end.

Prog_Cobranca.dproj

@@ -0,0 +1,648 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{A1A8B4C3-8546-476D-8AE4-B7958896B443}</ProjectGuid>
+        <ProjectVersion>17.2</ProjectVersion>
+        <FrameworkType>VCL</FrameworkType>
+        <MainSource>Prog_Cobranca.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <TargetedPlatforms>1</TargetedPlatforms>
+        <AppType>Application</AppType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <SanitizedProjectName>Prog_Cobranca</SanitizedProjectName>
+        <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
+        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_E>false</DCC_E>
+        <DCC_N>false</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_UsePackage>ACBr_Convenio115;FireDACTDataDriver;FireDACSqliteDriver;FireDACDSDriver;frxTee22;DBXSqliteDriver;ACBr_BoletoRL;ZComponent;FireDACPgDriver;ACBr_GNRE;fmx;ACBr_Diversos;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;ACBr_NFeDanfeESCPOS;ACBr_BlocoX;ACBr_synapse;DataSnapProviderClient;DBXSybaseASEDriver;frxe22;DbxCommonDriver;vclimg;DUnitXRuntime;dbxcds;ACBr_Comum;DatasnapConnectorsFreePascal;appanalytics;vcldb;vcldsnap;ACBr_MDFeDamdfeRL;ACBr_SATExtratoESCPOS;fmxFireDAC;DBXDb2Driver;frce;DBXOracleDriver;CustomIPTransport;ACBr_GNREGuiaRL;ACBr_Serial;vclribbon;ACBr_SPED;dsnap;IndyIPServer;ACBr_MDFe;fmxase;vcl;IndyCore;ACBr_DFeComum;ACBr_NFSeDanfseRL;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;CodeSiteExpressPkg;ACBr_Boleto;DataSnapFireDAC;FireDACDBXDriver;ACBr_Sintegra;ACBr_SAT;soapserver;inetdbxpress;ACBr_NFSe;dsnapxml;ACBr_Ponto;FireDACInfxDriver;FireDACDb2Driver;ACBr_LFD;ACBR_DeSTDA;ACBr_PCNComum;adortl;ACBr_TCP;FireDACASADriver;ACBr_SEF2;frx22;bindcompfmx;ACBr_PAF;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;ACBr_NFe;Tee;DBXOdbcDriver;ACBr_CTe;ibmonitor;vclFireDAC;xmlrtl;DataSnapNativeClient;svnui;ibxpress;ACBr_NFCeECFVirtual;ACBr_NFeDanfeRL;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;ACBr_CTeDacteRL;vclie;ACBr_OpenSSL;frxDB22;FireDACADSDriver;vcltouch;ACBr_TEFD;ZCore;emsclient;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;ACBr_SATExtratoRL;DataSnapServerMidas;ACBr_SATECFVirtual;dsnapcon;DBXFirebirdDriver;ACBr_TXTComum;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;ACBr_SPEDImportar;ZParseSql;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <DCC_UsePackage>FireDACTDataDriver;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;ZComponent;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;appanalytics;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;ZDbc;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;ZPlain;Tee;DBXOdbcDriver;ibmonitor;vclFireDAC;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;soaprtl;bindengine;vclactnband;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;ZCore;emsclient;VclSmp;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;Intraweb;VCLRESTComponents;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;ZParseSql;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=Charge;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=Charge;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <Icon_MainIcon>Prog_Cobranca_Icon.ico</Icon_MainIcon>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="ufrmCobranca.pas">
+            <Form>frmCobranca</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="udtmSystem.pas">
+            <Form>dtmSystem</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="ufrmLogin.pas">
+            <Form>frmLogin</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="umstMaster.pas">
+            <Form>mstMaster</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="umstLista.pas">
+            <Form>mstLista</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="umstCadastro.pas">
+            <Form>mstCadastro</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadBeneficiarios.pas">
+            <Form>cadBeneficiarios</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmPesquisa.pas">
+            <Form>frmPesquisa</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadPoli_Faixa.pas">
+            <Form>cadPoli_Faixa</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadEmpresa.pas">
+            <Form>cadEmpresa</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="udelPoli_Faixa.pas">
+            <Form>delPoli_faixa</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadUsuarios.pas">
+            <Form>cadUsuarios</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadUsuarioseditar.pas">
+            <Form>cadUsuarioseditar</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadDevedores.pas">
+            <Form>cadDevedores</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmMovUsuarios.pas">
+            <Form>frmMovUsuarios</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmVerIE.pas">
+            <Form>frmVerIE</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmProgressEC.pas">
+            <Form>frmProgressEC</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadReferencias.pas">
+            <Form>cadReferencias</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmEfetuarCobranca.pas">
+            <Form>frmEfetuarCobranca</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadCampanha.pas">
+            <Form>cadCampanha</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmCampanha.pas">
+            <Form>frmCampanha</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmMemoBox.pas">
+            <Form>frmMemoBox</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmFechamento.pas">
+            <Form>frmFechamento</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmEscolheCampanha.pas">
+            <Form>frmEscolheCampanha</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="urelRecibo.pas">
+            <Form>relRecibo</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uimpDevedores.pas">
+            <Form>impDevedores</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uconfLayouts.pas">
+            <Form>confLayouts</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmEscolheLayout.pas">
+            <Form>frmEscolheLayout</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmAgenda.pas">
+            <Form>frmAgenda</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmAtendimento.pas">
+            <Form>frmAtendimento</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ufrmFechamentoAtendimento.pas">
+            <Form>frmFechamentoAtendimento</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="ucadIndices.pas">
+            <Form>cadIndices</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="uExtenso.pas"/>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>Application</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">Prog_Cobranca.dpr</Source>
+                </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcboffice2k220.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\bcbofficexp220.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k220.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp220.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                </Excluded_Packages>
+            </Delphi.Personality>
+            <Deployment Version="1">
+                <DeployFile LocalName="Win32\Debug\Prog_Cobranca.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>Prog_Cobranca.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployClass Required="true" Name="DependencyPackage">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.bpl</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyModule">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.dll;.bpl</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2048">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXInfoPList">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceDebug">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage470">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeX86File">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\x86</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSResource">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXEntitlements">
+                    <Platform Name="OSX32">
+                        <RemoteDir>../</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidGDBServer">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch640">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage960">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch320">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon144">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeMipsFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashImageDef">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DebugSymbols">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyFramework">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage426">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSEntitlements">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>../</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>../</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AdditionalDebugSymbols">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidClassesDexFile">
+                    <Platform Name="Android">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSInfoPList">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1024">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_DefaultAppIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXResource">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceResourceRules">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch768">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="ProjectOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage640">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="File">
+                    <Platform Name="Android">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\MacOS</RemoteDir>
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch640x1136">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStyles">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1536">
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectAndroidManifest">
+                    <Platform Name="Android">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
+            </Deployment>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
+</Project>

README.md

@@ -0,0 +1 @@
+Charge

Win32/Debug/Apopup.ini

@@ -0,0 +1,3 @@
+[MENSAGEM]
+Texto=Lorem ipsum dolor sit amet, consectetur adipiscing elit. Integer metus tortor, venenatis in lorem sed, dapibus imperdiet sapien. Phasellus mattis, sapien et eleifend mollis, dui arcu interdum mi, ut pretium urna enim at purus. Maecenas semper elit dolor, id rhoncus quam bibendum quis. Quisque dictum diam ac dui hendrerit rhoncus. Nulla facilisi. Interdum et malesuada fames ac ante ipsum primis in faucibus. Vestibulum interdum ut erat ut molestie. Nunc scelerisque interdum euismod.
+Data-Fim=16/01/2019

Win32/Debug/banco.sql

@@ -0,0 +1,952 @@
+/*******************************************************************************
+ * Selected metadata objects
+ * -------------------------
+ * Extracted at 01/12/2018 09:05:43
+ ******************************************************************************/
+
+/*******************************************************************************
+ * Roles
+ * -----
+ * Extracted at 01/12/2018 09:05:43
+ ******************************************************************************/
+
+/* "PUBLIC" is a system role, no CREATE ROLE statement. */
+/* "RDB$ADMIN" is a system role, no CREATE ROLE statement. */
+/*******************************************************************************
+ * UDFs
+ * ----
+ * Extracted at 01/12/2018 09:05:43
+ ******************************************************************************/
+
+/*******************************************************************************
+ * Domains
+ * -------
+ * Extracted at 01/12/2018 09:05:43
+ ******************************************************************************/
+
+CREATE DOMAIN BL AS 
+ BLOB SUB_TYPE 0 SEGMENT SIZE 80
+;
+CREATE DOMAIN CD_10 AS 
+ VARCHAR(10) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN CD_20 AS 
+ VARCHAR(20) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN CD_PLACA AS 
+ CHAR(8) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN DT AS 
+ TIMESTAMP
+;
+CREATE DOMAIN HR AS 
+ CHAR(5) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN HS AS 
+ CHAR(8) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN HT AS 
+ CHAR(6) CHARACTER SET WIN1252
+ DEFAULT ' 00:00'
+ COLLATE WIN1252;
+CREATE DOMAIN ID AS 
+ INTEGER
+;
+CREATE DOMAIN NI AS 
+ INTEGER
+;
+CREATE DOMAIN NR AS 
+ NUMERIC(15,3)
+;
+CREATE DOMAIN PL AS 
+ NUMERIC(9,6)
+;
+CREATE DOMAIN PR AS 
+ NUMERIC(5,2)
+;
+CREATE DOMAIN TL AS 
+ BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET WIN1252
+;
+CREATE DOMAIN TP_1 AS 
+ CHAR(1) CHARACTER SET WIN1252
+ DEFAULT ' '
+ COLLATE WIN1252;
+CREATE DOMAIN TP_2 AS 
+ CHAR(2) CHARACTER SET WIN1252
+ DEFAULT ' '
+ COLLATE WIN1252;
+CREATE DOMAIN TP_3 AS 
+ CHAR(3) CHARACTER SET WIN1252
+ DEFAULT ' '
+ COLLATE WIN1252;
+CREATE DOMAIN TTIME AS 
+ TIME
+;
+CREATE DOMAIN TX_10 AS 
+ VARCHAR(10) CHARACTER SET WIN1252
+ COLLATE PXW_INTL850;
+CREATE DOMAIN TX_100 AS 
+ VARCHAR(100) CHARACTER SET WIN1252
+ COLLATE PXW_INTL850;
+CREATE DOMAIN TX_20 AS 
+ VARCHAR(20) CHARACTER SET WIN1252
+ COLLATE PXW_INTL850;
+CREATE DOMAIN TX_200 AS 
+ VARCHAR(200) CHARACTER SET WIN1252
+ COLLATE PXW_INTL850;
+CREATE DOMAIN TX_255 AS 
+ VARCHAR(255) CHARACTER SET WIN1252
+ COLLATE PXW_INTL850;
+CREATE DOMAIN TX_40 AS 
+ VARCHAR(40) CHARACTER SET WIN1252
+ COLLATE PXW_INTL850;
+CREATE DOMAIN TX_60 AS 
+ VARCHAR(60) CHARACTER SET WIN1252
+ COLLATE PXW_INTL850;
+CREATE DOMAIN TX_CEP AS 
+ CHAR(9) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN TX_CI AS 
+ VARCHAR(60) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN TX_CNPJ AS 
+ CHAR(18) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN TX_CPF AS 
+ CHAR(14) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN TX_ESTADO AS 
+ CHAR(2) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN TX_IE AS 
+ VARCHAR(15) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN TX_IM AS 
+ VARCHAR(20) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN TX_UNIDADE AS 
+ VARCHAR(6) CHARACTER SET WIN1252
+ COLLATE WIN1252;
+CREATE DOMAIN VL AS 
+ NUMERIC(15,2)
+ DEFAULT 0
+;
+/*******************************************************************************
+ * Tables
+ * ------
+ * Extracted at 01/12/2018 09:05:43
+ ******************************************************************************/
+
+CREATE TABLE CHG_AGENDA 
+(
+  ID_AGENDA                     ID NOT NULL,
+  ID_COBRADOR                   ID NOT NULL,
+  ID_DEVEDOR                    ID NOT NULL,
+  DT_AGENDADA                 DATE,
+  HR_AGENDADA                TTIME ,
+  TP_SITUACAO                 TP_1 
+);
+CREATE TABLE CHG_CAMPANHAS 
+(
+  ID_CAMPANHA                    ID NOT NULL,
+  TX_NOME                     TX_40 ,
+  TP_ATIVA                     TP_1 ,
+  TP_CONCLUIDA                 TP_1 ,
+  TX_DESC                    TX_255 ,
+  DT_CAD                       DATE
+);
+CREATE TABLE CHG_CAMPANHAS_COBRADORES 
+(
+  ID_ITEM                       ID NOT NULL,
+  ID_CAMPANHA                   ID ,
+  ID_COBRADOR                   ID 
+);
+CREATE TABLE CHG_CAMPANHAS_DEVEDORES 
+(
+  ID_ITEM                        ID NOT NULL,
+  ID_CAMPANHA                    ID NOT NULL,
+  ID_DEVEDOR                     ID NOT NULL,
+  TX_DOCUMENTO                TX_20 ,
+  TP_ESTADO                    TP_1 
+);
+CREATE TABLE CHG_COBRANCA_TITULOS 
+(
+  ID_PROTOCOLO                            ID NOT NULL,
+  CD_PROTOCOLO                         CD_20 NOT NULL,
+  QNT_TITULOS                             NI NOT NULL,
+  ID_TITULOS                              TL NOT NULL,
+  ID_DEVEDOR                              ID NOT NULL,
+  VL_ENTRADA                              VL NOT NULL,
+  VL_JUROS                                VL NOT NULL,
+  VL_MULTA                                VL NOT NULL,
+  VL_INDICADOR                            VL NOT NULL,
+  VL_ENCARGOS                             VL NOT NULL,
+  VL_CORRIGIDO                            VL NOT NULL,
+  TP_DESC_QUIT                          TP_1 NOT NULL,
+  PR_QUIT_JUROS                           NR NOT NULL,
+  PR_QUIT_MULTA                           NR NOT NULL,
+  PR_QUIT_INDICADOR                       NR NOT NULL,
+  PR_QUIT_PRINCIPAL                       NR NOT NULL,
+  TP_DESC_PAR                           TP_1 NOT NULL,
+  PR_PARCELAR_JUROS                       NR NOT NULL,
+  PR_PARCELAR_MULTA                       NR NOT NULL,
+  PR_PARCELAR_INDICADOR                   NR NOT NULL,
+  PR_PARCELAR_PRINCIPAL                   NR NOT NULL,
+  NR_PARCELAS                             NI NOT NULL,
+  DT_PROTOCOLO                            DT ,
+  PR_QUIT_COR                             PR ,
+  PR_PARCELAR_COR                         PR 
+);
+CREATE TABLE CHG_CONFIGURACAO 
+(
+  ID_CONFIGURACAO                   ID NOT NULL
+);
+CREATE TABLE CHG_DESPESAS_TITULOS 
+(
+  ID_DESPESA                     ID NOT NULL,
+  ID_TITULO                      ID NOT NULL,
+  TX_DESCRICAO                TX_60 ,
+  VL_DESPESA                     VL ,
+  TP_DESPESA                  TX_10 
+);
+CREATE TABLE CHG_DEVEDORES 
+(
+  ID_DEVEDOR                           ID NOT NULL,
+  TP_CLIENTE                         TP_1 ,
+  TX_PAI                            TX_60 ,
+  TX_NOME                           TX_60 ,
+  TX_MAE                            TX_60 ,
+  DT_CADASTRO                          DT ,
+  DT_NASC                              DT ,
+  CD_CPF                           TX_CPF ,
+  CD_CNPJ                         TX_CNPJ ,
+  TL_MEMO                              TL ,
+  ID_COBRADOR                          ID ,
+  CD_RG                             TX_20 ,
+  CD_DEVEDOR                        CD_20 ,
+  TX_EMAIL                          TX_60 ,
+  ID_ULTIMO_USUARIO                    ID ,
+  DT_HORA_ULTIMA_ATT                   DT 
+);
+CREATE TABLE CHG_EMPRESAS 
+(
+  ID_EMPRESA                                ID NOT NULL,
+  TX_NOME                               TX_100 ,
+  TX_FANTASIA                           TX_100 ,
+  TX_CNPJ                              TX_CNPJ ,
+  TX_IE                                  TX_20 ,
+  TX_ENDERECO                           TX_100 ,
+  TX_COMPLEMENTO                         TX_20 ,
+  ID_CIDADE                                 ID ,
+  TX_BAIRRO                              TX_60 ,
+  ID_ESTADO                                 ID ,
+  TX_CEP                                TX_CEP ,
+  TX_TELEFONE                            TX_40 ,
+  TX_EMAIL                               TX_60 ,
+  TX_WEBSITE                             TX_60 ,
+  NR_NUMERO                                 NI ,
+  TX_IM                                  TX_20 ,
+  TL_OBSERVACOES                            TL ,
+  ID_REPASSE                                ID ,
+  PR_ENTRADA                                PR NOT NULL,
+  PR_MULTA                                  PR NOT NULL,
+  PR_JUROS                                  PR NOT NULL,
+  NR_PARCELAS                          INTEGER,
+  PR_DESC_QUIT_PRIN                         PR NOT NULL,
+  PR_DESC_QUIT_JUROS                        PR NOT NULL,
+  PR_DESC_QUIT_MULTA                        PR NOT NULL,
+  PR_DESC_QUIT_IND_FIN                      PR NOT NULL,
+  PR_DESC_QUIT_COR                          PR ,
+  PR_DESC_FINAN_PRIN                        PR NOT NULL,
+  PR_DESC_FINAN_JUROS                       PR NOT NULL,
+  PR_DESC_FINAN_MULTA                       PR NOT NULL,
+  PR_DESC_FINAN_IND_FIN                     PR NOT NULL,
+  PR_DESC_FINAN_COR                         PR ,
+  PR_INDICADOR_FINANCEIRO                   PR NOT NULL,
+  PR_JUROS_PARCELAR                         PR 
+);
+CREATE TABLE CHG_ENDERECOS 
+(
+  ID_ENDERECO                          ID NOT NULL,
+  ID_DEVEDOR                           ID NOT NULL,
+  TP_ENDERECO                        TP_1 ,
+  TP_ATIVO                           TP_1 ,
+  TX_LOGRADOURO                    TX_100 ,
+  TX_BAIRRO                        TX_100 ,
+  ID_CIDADE                            ID ,
+  ID_ESTADO                            ID ,
+  TX_CEP                           TX_CEP ,
+  TX_COMPLEMENTO                   TX_100 ,
+  NR_NUMERO                            NR ,
+  TP_REFERENCIA                      TP_1 ,
+  ID_HIGIENIZADORA                     ID ,
+  TP_CONFIRMADO                      TP_1 ,
+  ID_ULTIMO_USUARIO                    ID ,
+  DT_HORA_ULTIMA_ATT                   DT 
+);
+CREATE TABLE CHG_FAIXAS 
+(
+  ID_FAIXA                                ID NOT NULL,
+  ID_POLITICA                             ID ,
+  TX_DESCRICAO                         TX_40 ,
+  ATRASO_MIN                         INTEGER,
+  ATRASO_MAX                         INTEGER,
+  PR_JUROS                                PR NOT NULL,
+  PR_MULTA                                PR NOT NULL,
+  PR_DESC_QUIT_PRIN                       PR NOT NULL,
+  PR_DESC_QUIT_JUROS                      PR NOT NULL,
+  PR_DESC_QUIT_MULTA                      PR NOT NULL,
+  PR_DESC_QUIT_IND_FIN                    PR NOT NULL,
+  PR_DESC_QUIT_COR                        PR ,
+  PR_DESC_FINAN_PRIN                      PR NOT NULL,
+  PR_DESC_FINAN_JUROS                     PR NOT NULL,
+  PR_DESC_FINAN_MULTA                     PR NOT NULL,
+  PR_DESC_FINAN_COR                       PR ,
+  PR_DESC_FINAN_IND_FIN                   PR NOT NULL
+);
+CREATE TABLE CHG_FILTRO 
+(
+  ID_FILTRO                        ID NOT NULL,
+  TX_NOME_FILTRO               TX_255 ,
+  TP_CREDOR                      TP_1 ,
+  TX_CREDOR                    TX_255 ,
+  TP_PROVIDENCIA                 TP_1 ,
+  TX_PROVIDENCIA               TX_255 ,
+  CD_PROVIDENCIA                 TP_1 ,
+  TP_VALOR                       TP_1 ,
+  VL_VALORIN                       VL ,
+  VL_VALORFIM                      VL ,
+  TP_AGENDADO                    TP_1 ,
+  TX_AGENDADO                    TP_1 ,
+  TP_NOME                        TP_1 ,
+  TX_NOME                       TX_10 ,
+  TP_ATRASO                      TP_1 ,
+  TX_ATRASOIN                 INTEGER,
+  TX_ATRASOFIM                INTEGER,
+  TP_PESSOA                      TP_1 ,
+  CD_PESSOA                      TP_1 ,
+  TP_TITULO                      TP_1 ,
+  CD_TITULO                      TP_1 ,
+  CD_ORDEM                       TP_1 
+);
+CREATE TABLE CHG_HISTORICO 
+(
+  ID_HISTORICO                         ID NOT NULL,
+  ID_DEVEDOR                           ID ,
+  ID_COBRADOR                          ID ,
+  ID_TITULO                            ID ,
+  ID_PROVIDENCIA                       ID ,
+  DT_CONTATO                           DT ,
+  DT_AGENDAMENTO                       DT ,
+  TP_VAIPAGAR                        TP_1 ,
+  TP_AGENDAMENTO                     TP_1 ,
+  CD_PROTOCOLO                      CD_20 ,
+  TL_MEMO                              TL ,
+  DT_HORAMARCADA                    TTIME ,
+  ID_ULTIMO_USUARIO                    ID ,
+  DT_HORA_ULTIMA_ATT                   DT ,
+  ID_TITULOS                       TX_255 
+);
+CREATE TABLE CHG_INADIMPLENCIAS 
+(
+  ID_INADIMPLENCIA                   ID NOT NULL,
+  TX_NOME                        TX_100 
+);
+CREATE TABLE CHG_INDICADORES_FINANCEIROS 
+(
+  ID_INDICADOR                     ID NOT NULL,
+  ID_CHG_EMPRESA                   ID NOT NULL,
+  PR_INDICADOR                     PR ,
+  VL_INDICADOR                     VL ,
+  TP_INDICADOR                   TP_1 DEFAULT '%',
+  ATRASO_MIN                  INTEGER,
+  ATRASO_MAX                  INTEGER
+);
+CREATE TABLE CHG_POLITICAS 
+(
+  ID_POLITICA                    ID NOT NULL,
+  ID_EMPRESA                     ID ,
+  TX_DESCRICAO                TX_40 ,
+  DT_INICIO                      DT ,
+  DT_FIM                         DT 
+);
+CREATE TABLE CHG_PROVIDENCIAS 
+(
+  ID_PROVIDENCIA                   ID NOT NULL,
+  TX_NOME                       TX_60 ,
+  TX_DESCRICAO                 TX_255 ,
+  TP_PROVIDENCIA                TX_10 
+);
+CREATE TABLE CHG_TELEFONES 
+(
+  ID_TELEFONE                          ID NOT NULL,
+  ID_DEVEDOR                           ID NOT NULL,
+  NR_NUMERO                         TX_20 ,
+  TP_ATIVO                           TP_1 ,
+  TP_TIPOTEL                         TP_1 ,
+  TX_DESC                          TX_100 ,
+  TX_OBS                               TL ,
+  ID_ULTIMO_USUARIO                    ID ,
+  DT_HORA_ULTIMA_ATT                   DT 
+);
+CREATE TABLE CHG_TITULOS 
+(
+  ID_TITULO                            ID NOT NULL,
+  ID_DEVEDOR                           ID NOT NULL,
+  ID_EMPRESA                           ID NOT NULL,
+  TX_PRODUTO                       TX_100 ,
+  VL_TITULO                            VL ,
+  DT_ENTRADA                           DT ,
+  DT_VENCIMENTO                        DT NOT NULL,
+  TP_SITUACAO                        TP_2 ,
+  CD_DEVEDOR                       TX_100 ,
+  TP_CHEQUE                          TP_1 NOT NULL,
+  ID_BANCO                             ID ,
+  TX_NRCHEQUE                       TX_20 ,
+  TP_MOTIVO                          TP_2 ,
+  VL_DESPESA                           VL ,
+  TP_DESPESA                         TP_1 ,
+  VL_MULTA                             VL ,
+  VL_JUROS                             VL ,
+  VL_ENCARGOS                          VL ,
+  VL_CORRIGIDO                         VL ,
+  DT_PAGAMENTO                         DT ,
+  TX_OBS                               TL ,
+  ID_ULTIMO_USUARIO                    ID ,
+  DT_HORA_ULTIMA_ATT                   DT 
+);
+CREATE TABLE SYS_CIDADES 
+(
+  ID_CIDADE                   ID NOT NULL,
+  TX_NOME                  TX_60 ,
+  ID_ESTADO                   ID ,
+  CD_IBGE                  CD_10 
+);
+CREATE TABLE SYS_CONTAS 
+(
+  ID_CONTA                         ID NOT NULL,
+  TX_DESCRICAO                  TX_60 ,
+  CD_AGENCIA                    CD_10 ,
+  CD_AGENCIA_DV                  CHAR(     1)  COLLATE ISO8859_1,
+  CD_CEDENTE                    CD_20 ,
+  CD_CEDENTE_DV                  CHAR(     1)  COLLATE ISO8859_1,
+  CD_CONVENIO                   CD_20 ,
+  CD_CONVENIO_DV                 CHAR(     1)  COLLATE ISO8859_1,
+  CD_CONTA                      CD_10 ,
+  CD_CONTA_DV                    CHAR(     1)  COLLATE ISO8859_1,
+  ID_BANCO                         ID ,
+  TP_SITUACAO                    TP_1 ,
+  CD_MODALIDADE                 CD_10 
+);
+CREATE TABLE SYS_CONTEUDO_RECIBO 
+(
+  ID_CONTEUDO                     ID NOT NULL,
+  TX_NOME                     TX_255 ,
+  DT_VENCIMENTO                   DT ,
+  VL_PRINCIPAL                    VL ,
+  VL_JUROS                        VL ,
+  VL_MULTA                        VL ,
+  VL_ENCARGOS                     VL ,
+  VL_DESCONTOS                    VL ,
+  VL_CORRIGIDO                    VL ,
+  ID_RECIBO                       ID ,
+  VL_DESPESA                      VL ,
+  TX_DEPESA                   TX_255 ,
+  VL_EXTRAS                       VL 
+);
+CREATE TABLE SYS_DUPLICADOS 
+(
+  ID_DUPLICADO                     ID NOT NULL,
+  TX_NOMEDEVEDOR                TX_60 ,
+  CD_CPF                       TX_CPF ,
+  TX_NOMETITULO                TX_100 ,
+  VL_TITULO                        VL ,
+  DT_VENCIMENTO                    DT ,
+  TP_ACAO                        TP_1 ,
+  CD_CNPJ                     TX_CNPJ 
+);
+CREATE TABLE SYS_EMPRESA 
+(
+  ID_EMPRESA                         ID NOT NULL,
+  TX_NOME                        TX_100 ,
+  TX_FANTASIA                     TX_40 ,
+  TX_ENDERECO                    TX_100 ,
+  NR_NUMERO                          NI ,
+  TX_COMPLEMENTO                  TX_20 ,
+  TX_BAIRRO                       TX_60 ,
+  ID_CIDADE                          ID ,
+  TX_CEP                         TX_CEP ,
+  TX_TELEFONE                     TX_40 ,
+  TX_WEBSITE                      TX_60 ,
+  TX_CNPJ                       TX_CNPJ ,
+  TX_IE                           TX_20 ,
+  TX_IM                           TX_20 ,
+  TL_OBSERVACOES                     TL ,
+  TX_LOGOMARCA                   TX_100 ,
+  TX_HONORARIOS                   TX_20 ,
+  PR_DEBITO                          PR ,
+  PR_CREDVISTA                       PR ,
+  PR_CRED3                           PR ,
+  PR_CRED6                           PR ,
+  PR_CRED12                          PR ,
+  IMG_LOGO                           BL ,
+  PR_FINANCIAMENTO                   PR ,
+  TX_TITULO                       TX_60 ,
+  ID_ESTADO                          ID ,
+  TX_EMAILNOME                   TX_100 ,
+  TX_EMAIL                       TX_100 ,
+  TX_SMTP                        TX_100 ,
+  TX_PORTA                        TX_10 ,
+  TX_USUARIO                     TX_100 ,
+  TX_SENHA                       TX_100 
+);
+CREATE TABLE SYS_ESTADOS 
+(
+  ID_ESTADO                   ID NOT NULL,
+  TX_NOME                  TX_40 ,
+  CD_ESTADO            TX_ESTADO ,
+  TX_SIGLA                  TP_2 
+);
+CREATE TABLE SYS_GRUPOS 
+(
+  ID_GRUPO                   ID NOT NULL,
+  TX_NOME                 TX_40 ,
+  TP_SU                    TP_1 
+);
+CREATE TABLE SYS_GRUPOS_PERMISSOES 
+(
+  ID_ITEM                        ID NOT NULL,
+  ID_GRUPO                       ID ,
+  ID_PERMISSAO                   ID ,
+  TP_ACESSO                    TP_1 
+);
+CREATE TABLE SYS_HIGIENIZADORA 
+(
+  ID_HIGIENIZADORA                   ID NOT NULL,
+  TX_NOME                        TX_100 
+);
+CREATE TABLE SYS_INDICES 
+(
+  ID_INDICE                   ID NOT NULL,
+  TX_NOME                  TX_60 ,
+  PR_INDICE                   PR NOT NULL
+);
+CREATE TABLE SYS_LAYOUTS 
+(
+  ID_LAYOUT                      ID NOT NULL,
+  TX_NOME                     TX_40 ,
+  STR_CAMPOS                 TX_255 ,
+  NR_QNTCAMPOS                   NR 
+);
+CREATE TABLE SYS_LOG 
+(
+  ID_LOG                        ID NOT NULL,
+  TX_TABELA                  TX_20 ,
+  ID_REGISTRO                   ID ,
+  TX_ACAO                    TX_60 ,
+  ID_USUARIO                    ID ,
+  DT_LOG                        DT DEFAULT 'NOW'
+);
+CREATE TABLE SYS_LOGINS 
+(
+  ID_LOGIN                     ID NOT NULL,
+  ID_USUARIO                   ID ,
+  DT_LOGIN                   DATE,
+  HR_LOGIN                   TIME,
+  DT_LOGOFF                  DATE,
+  HR_LOGOFF                  TIME
+);
+CREATE TABLE SYS_PERMISSOES 
+(
+  ID_PERMISSAO                   ID NOT NULL,
+  CD_PERMISSAO                CD_20 ,
+  TX_DESCRICAO                TX_40 ,
+  ID_PARENT                      ID ,
+  TP_ACESSO                    TP_1 
+);
+CREATE TABLE SYS_RECIBOS 
+(
+  ID_RECIBO                        ID NOT NULL,
+  NR_RECIBO                     TX_20 NOT NULL,
+  TX_NOME                      TX_255 ,
+  TX_CPF                       TX_CPF ,
+  TX_CNPJ                     TX_CNPJ ,
+  ID_DEVEDOR                       ID ,
+  VL_TOTAL                         VL ,
+  VL_PRINCIPAL                     VL ,
+  VL_JUROS                         VL ,
+  VL_MULTA                         VL ,
+  VL_ENCARGOS                      VL ,
+  VL_DESCONTOS                     VL ,
+  VL_CORRIGIDO                     VL ,
+  TX_CREDOR                    TX_200 ,
+  TX_NOMETITULOS               TX_255 ,
+  TX_VENCIMENTOS               TX_255 ,
+  TP_RECEBIMENTO                 TP_2 ,
+  NR_CHEQUE                     TX_20 ,
+  ID_BANCO                         ID ,
+  TX_PRACA                     TX_200 ,
+  ID_USUARIO                       ID ,
+  DT_IMPRESSAO                     DT ,
+  TX_CAMINHO                   TX_255 
+);
+CREATE TABLE SYS_REPASSES 
+(
+  ID_REPASSE                     ID NOT NULL,
+  PR_PRINCIPAL                   PR ,
+  PR_JUROS                       PR ,
+  PR_MULTA                       PR ,
+  PR_ENCARGOS                    PR ,
+  PR_CORRIGIDO                   PR ,
+  TX_NOME                     TX_40 
+);
+CREATE TABLE SYS_SESSAO 
+(
+  ID_SESSAO                    ID NOT NULL,
+  ID_USUARIO                   ID ,
+  TP_ATIVA                   TP_1 
+);
+CREATE TABLE SYS_TEXTO_EMAIL 
+(
+  ID_TEXTO                       ID NOT NULL,
+  TX_DESCRICAO               TX_255 NOT NULL,
+  TL_TEXTO                       TL NOT NULL
+);
+CREATE TABLE SYS_USUARIOS 
+(
+  ID_USUARIO                        ID NOT NULL,
+  TX_NOME                        TX_60 ,
+  TX_USUARIO                     TX_10 ,
+  TX_SENHA                       TX_40 ,
+  ID_GRUPO                          ID ,
+  TP_ATIVO                        TP_1 ,
+  TP_TROCAPASS                    TP_1 ,
+  TX_EMAILNOME                  TX_100 ,
+  TX_EMAIL                      TX_100 ,
+  TX_SMTP                       TX_100 ,
+  TX_PORTA                       TX_10 ,
+  TX_USUARIOEMAIL               TX_100 ,
+  TX_SENHAEMAIL                 TX_100 
+);
+/*******************************************************************************
+ * Primary Key Constraints
+ * -----------------------
+ * Extracted at 01/12/2018 09:05:43
+ ******************************************************************************/
+
+ALTER TABLE CHG_AGENDA ADD CONSTRAINT PK_CHG_AGENDA PRIMARY KEY
+  (ID_AGENDA);
+
+ALTER TABLE CHG_CAMPANHAS ADD CONSTRAINT PK_CHG_CAMPANHAS PRIMARY KEY
+  (ID_CAMPANHA);
+
+ALTER TABLE CHG_CAMPANHAS_COBRADORES ADD CONSTRAINT PK_CHG_CAMPANHAS_COBRADORES PRIMARY KEY
+  (ID_ITEM);
+
+ALTER TABLE CHG_CAMPANHAS_DEVEDORES ADD CONSTRAINT PK_CHG_CAMPANHAS_DEVEDORES PRIMARY KEY
+  (ID_ITEM);
+
+ALTER TABLE CHG_COBRANCA_TITULOS ADD CONSTRAINT PK_CHG_COBRANCA_TITULOS PRIMARY KEY
+  (ID_PROTOCOLO);
+
+ALTER TABLE CHG_CONFIGURACAO ADD CONSTRAINT PK_CHG_CONFIGURACAO PRIMARY KEY
+  (ID_CONFIGURACAO);
+
+ALTER TABLE CHG_DESPESAS_TITULOS ADD CONSTRAINT PK_CHG_DESPESAS_TITULOS PRIMARY KEY
+  (ID_DESPESA);
+
+ALTER TABLE CHG_DEVEDORES ADD CONSTRAINT PK_CHG_DEVEDORES PRIMARY KEY
+  (ID_DEVEDOR);
+
+ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT PK_CHG_EMPRESAS PRIMARY KEY
+  (ID_EMPRESA);
+
+ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT PK_CHG_ENDERECOS PRIMARY KEY
+  (ID_ENDERECO);
+
+ALTER TABLE CHG_FAIXAS ADD CONSTRAINT PK_CHG_FAIXAS PRIMARY KEY
+  (ID_FAIXA);
+
+ALTER TABLE CHG_FILTRO ADD CONSTRAINT PK_CHG_FILTRO PRIMARY KEY
+  (ID_FILTRO);
+
+ALTER TABLE CHG_HISTORICO ADD CONSTRAINT PK_CHG_HISTORICO PRIMARY KEY
+  (ID_HISTORICO);
+
+ALTER TABLE CHG_INADIMPLENCIAS ADD CONSTRAINT PK_CHG_INADIMPLENCIAS PRIMARY KEY
+  (ID_INADIMPLENCIA);
+
+ALTER TABLE CHG_INDICADORES_FINANCEIROS ADD CONSTRAINT PK_CHG_INDICADORES_FINANCEI PRIMARY KEY
+  (ID_INDICADOR);
+
+ALTER TABLE CHG_POLITICAS ADD CONSTRAINT PK_CHG_POLITICAS PRIMARY KEY
+  (ID_POLITICA);
+
+ALTER TABLE CHG_PROVIDENCIAS ADD CONSTRAINT PK_CHG_PROVIDENCIAS PRIMARY KEY
+  (ID_PROVIDENCIA);
+
+ALTER TABLE CHG_TELEFONES ADD CONSTRAINT PK_CHG_TELEFONES PRIMARY KEY
+  (ID_TELEFONE);
+
+ALTER TABLE CHG_TITULOS ADD CONSTRAINT PK_CHG_TITULOS PRIMARY KEY
+  (ID_TITULO);
+
+ALTER TABLE SYS_CIDADES ADD CONSTRAINT PK_SYS_CIDADES PRIMARY KEY
+  (ID_CIDADE);
+
+ALTER TABLE SYS_CONTAS ADD CONSTRAINT PK_SYS_CONTAS PRIMARY KEY
+  (ID_CONTA);
+
+ALTER TABLE SYS_CONTEUDO_RECIBO ADD CONSTRAINT PK_SYS_CONTEUDO_RECIBO PRIMARY KEY
+  (ID_CONTEUDO);
+
+ALTER TABLE SYS_DUPLICADOS ADD CONSTRAINT PK_SYS_DUPLICADOS PRIMARY KEY
+  (ID_DUPLICADO);
+
+ALTER TABLE SYS_EMPRESA ADD CONSTRAINT PK_SYS_EMPRESA PRIMARY KEY
+  (ID_EMPRESA);
+
+ALTER TABLE SYS_ESTADOS ADD CONSTRAINT PK_SYS_ESTADOS PRIMARY KEY
+  (ID_ESTADO);
+
+ALTER TABLE SYS_GRUPOS ADD CONSTRAINT PK_SYS_GRUPOS PRIMARY KEY
+  (ID_GRUPO);
+
+ALTER TABLE SYS_GRUPOS_PERMISSOES ADD CONSTRAINT PK_SYS_GRUPOS_PERMISSOES PRIMARY KEY
+  (ID_ITEM);
+
+ALTER TABLE SYS_HIGIENIZADORA ADD CONSTRAINT PK_SYS_HIGIENIZADORA PRIMARY KEY
+  (ID_HIGIENIZADORA);
+
+ALTER TABLE SYS_INDICES ADD CONSTRAINT PK_SYS_INDICES PRIMARY KEY
+  (ID_INDICE);
+
+ALTER TABLE SYS_LAYOUTS ADD CONSTRAINT PK_SYS_LAYOUTS PRIMARY KEY
+  (ID_LAYOUT);
+
+ALTER TABLE SYS_LOG ADD CONSTRAINT PK_SYS_LOG PRIMARY KEY
+  (ID_LOG);
+
+ALTER TABLE SYS_LOGINS ADD CONSTRAINT PK_SYS_LOGINS PRIMARY KEY
+  (ID_LOGIN);
+
+ALTER TABLE SYS_PERMISSOES ADD CONSTRAINT PK_SYS_PERMISSOES PRIMARY KEY
+  (ID_PERMISSAO);
+
+ALTER TABLE SYS_RECIBOS ADD CONSTRAINT PK_SYS_RECIBOS PRIMARY KEY
+  (ID_RECIBO);
+
+ALTER TABLE SYS_REPASSES ADD CONSTRAINT PK_SYS_REPASSES PRIMARY KEY
+  (ID_REPASSE);
+
+ALTER TABLE SYS_SESSAO ADD CONSTRAINT PK_SYS_SESSAO PRIMARY KEY
+  (ID_SESSAO);
+
+ALTER TABLE SYS_TEXTO_EMAIL ADD CONSTRAINT PK_SYS_TEXTO_EMAIL PRIMARY KEY
+  (ID_TEXTO);
+
+ALTER TABLE SYS_USUARIOS ADD CONSTRAINT PK_SYS_USUARIOS PRIMARY KEY
+  (ID_USUARIO);
+
+/*******************************************************************************
+ * Foreign Key Constraints
+ * -----------------------
+ * Extracted at 01/12/2018 09:05:43
+ ******************************************************************************/
+
+ALTER TABLE CHG_AGENDA ADD CONSTRAINT FK_CHG_AGENDA_SYS_USUARIOS 
+  FOREIGN KEY (ID_COBRADOR) REFERENCES SYS_USUARIOS
+  (ID_USUARIO) 
+  ON DELETE NO ACTION
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE CHG_CAMPANHAS_COBRADORES ADD CONSTRAINT FK_CHG_CAMPANH_CHG_CAMPANH 
+  FOREIGN KEY (ID_CAMPANHA) REFERENCES CHG_CAMPANHAS
+  (ID_CAMPANHA) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_CAMPANHAS_DEVEDORES ADD CONSTRAINT FK_CHG_CAMPANH_CHG_DEVEDOR 
+  FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES
+  (ID_DEVEDOR) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_CAMPANHAS_DEVEDORES ADD CONSTRAINT FK_CHG_CAMPANH_CHG_DEVEDORES 
+  FOREIGN KEY (ID_CAMPANHA) REFERENCES CHG_CAMPANHAS
+  (ID_CAMPANHA) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_CAMPANHAS_COBRADORES ADD CONSTRAINT FK_CHG_CAMPANH_SYS_USUARIO 
+  FOREIGN KEY (ID_COBRADOR) REFERENCES SYS_USUARIOS
+  (ID_USUARIO) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_COBRANCA_TITULOS ADD CONSTRAINT FK_CHG_COBRANC_CHG_DEVEDOR 
+  FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES
+  (ID_DEVEDOR) 
+  ON DELETE CASCADE
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE CHG_DESPESAS_TITULOS ADD CONSTRAINT FK_CHG_DESPESAS_CHG_TITULOS 
+  FOREIGN KEY (ID_TITULO) REFERENCES CHG_TITULOS
+  (ID_TITULO) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_DEVEDORES ADD CONSTRAINT FK_CHG_DEVEDOR_SYS_USUARIO 
+  FOREIGN KEY (ID_COBRADOR) REFERENCES SYS_USUARIOS
+  (ID_USUARIO) 
+  ON DELETE CASCADE
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT FK_CHG_EMPRESAS_SYS_CIDADES 
+  FOREIGN KEY (ID_CIDADE) REFERENCES SYS_CIDADES
+  (ID_CIDADE) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT FK_CHG_EMPRESAS_SYS_ESTADOS 
+  FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS
+  (ID_ESTADO) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_EMPRESAS ADD CONSTRAINT FK_CHG_EMPRESA_SYS_REPASSE 
+  FOREIGN KEY (ID_REPASSE) REFERENCES SYS_REPASSES
+  (ID_REPASSE) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT FK_CHG_ENDERECO_SYS_CIDADES 
+  FOREIGN KEY (ID_CIDADE) REFERENCES SYS_CIDADES
+  (ID_CIDADE) 
+  ON DELETE NO ACTION
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT FK_CHG_ENDERECO_SYS_ESTADOS 
+  FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS
+  (ID_ESTADO) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_ENDERECOS ADD CONSTRAINT FK_CHG_ENDEREC_CHG_DEVEDOR 
+  FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES
+  (ID_DEVEDOR) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_FAIXAS ADD CONSTRAINT FK_CHG_FAIXAS_CHG_POLITICAS 
+  FOREIGN KEY (ID_POLITICA) REFERENCES CHG_POLITICAS
+  (ID_POLITICA) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_HISTORICO ADD CONSTRAINT FK_CHG_HISTORIC_CHG_TITULOS 
+  FOREIGN KEY (ID_TITULO) REFERENCES CHG_TITULOS
+  (ID_TITULO) 
+  ON DELETE CASCADE
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE CHG_HISTORICO ADD CONSTRAINT FK_CHG_HISTORI_CHG_DEVEDOR 
+  FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES
+  (ID_DEVEDOR) 
+  ON DELETE CASCADE
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE CHG_HISTORICO ADD CONSTRAINT FK_CHG_HISTORI_CHG_PROVIDE 
+  FOREIGN KEY (ID_PROVIDENCIA) REFERENCES CHG_PROVIDENCIAS
+  (ID_PROVIDENCIA) 
+  ON DELETE NO ACTION
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE CHG_INDICADORES_FINANCEIROS ADD CONSTRAINT FK_CHG_INDICAD_CHG_EMPRESA 
+  FOREIGN KEY (ID_CHG_EMPRESA) REFERENCES CHG_EMPRESAS
+  (ID_EMPRESA) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_POLITICAS ADD CONSTRAINT FK_CHG_POLITIC_CHG_EMPRESA 
+  FOREIGN KEY (ID_EMPRESA) REFERENCES CHG_EMPRESAS
+  (ID_EMPRESA) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE CHG_TELEFONES ADD CONSTRAINT FK_CHG_TELEFON_CHG_DEVEDOR 
+  FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES
+  (ID_DEVEDOR) 
+  ON DELETE CASCADE
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE CHG_TITULOS ADD CONSTRAINT FK_CHG_TITULOS_CHG_DEVEDORE 
+  FOREIGN KEY (ID_DEVEDOR) REFERENCES CHG_DEVEDORES
+  (ID_DEVEDOR) 
+  ON DELETE CASCADE
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE CHG_TITULOS ADD CONSTRAINT FK_CHG_TITULOS_CHG_EMPRESAS 
+  FOREIGN KEY (ID_EMPRESA) REFERENCES CHG_EMPRESAS
+  (ID_EMPRESA) 
+  ON DELETE SET NULL
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE SYS_CIDADES ADD CONSTRAINT FK_SYS_CIDADES_SYS_ESTADOS 
+  FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS
+  (ID_ESTADO) 
+  ON DELETE NO ACTION
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE SYS_EMPRESA ADD CONSTRAINT FK_SYS_EMPRESA_SYS_CIDADES 
+  FOREIGN KEY (ID_CIDADE) REFERENCES SYS_CIDADES
+  (ID_CIDADE) 
+  ON DELETE NO ACTION
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE SYS_EMPRESA ADD CONSTRAINT FK_SYS_EMPRESA_SYS_ESTADOS 
+  FOREIGN KEY (ID_ESTADO) REFERENCES SYS_ESTADOS
+  (ID_ESTADO) 
+  ON DELETE CASCADE
+  ON UPDATE CASCADE
+;
+
+ALTER TABLE SYS_GRUPOS_PERMISSOES ADD CONSTRAINT FK_SYS_GRUPOS_PERMISSOES_SY 
+  FOREIGN KEY (ID_GRUPO) REFERENCES SYS_GRUPOS
+  (ID_GRUPO) 
+  ON DELETE NO ACTION
+  ON UPDATE NO ACTION
+;
+
+ALTER TABLE SYS_USUARIOS ADD CONSTRAINT FK_SYS_USUARIOS_SYS_GRUPOS 
+  FOREIGN KEY (ID_GRUPO) REFERENCES SYS_GRUPOS
+  (ID_GRUPO) 
+  ON DELETE NO ACTION
+  ON UPDATE NO ACTION
+;
+

Win32/Debug/estados.sql

@@ -0,0 +1,27 @@
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (12,'AC','Acre',1);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (27,'AL','Alagoas',2);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (13,'AM','Amazonas',3);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (16,'AP','Amapá',4);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (29,'BA','Bahia',5);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (23,'CE','Ceará',6);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (53,'DF','Distrito Federal',7);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (32,'ES','Espírito Santo',8);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (52,'GO','Goiás',9);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (21,'MA','Maranhão',10);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (31,'MG','Minas Gerais',11);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (50,'MS','Mato Grosso do Sul',12);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (51,'MT','Mato Grosso',13);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (15,'PA','Pará',14);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (25,'PB','Paraíba',15);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (26,'PE','Pernambuco',16);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (22,'PI','Piauí',17);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (41,'PR','Paraná',18);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (33,'RJ','Rio de Janeiro',19);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (24,'RN','Rio Grande do Norte',20);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (11,'RO','Rondônia',21);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (14,'RR','Roraima',22);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (43,'RS','Rio Grande do Sul',23);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (42,'SC','Santa Catarina',24);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (28,'SE','Sergipe',25);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (35,'SP','São Paulo',26);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (17,'TO','Tocantis',27);

Win32/Debug/log_recibo71.txt

@@ -0,0 +1,90 @@
+###############
+05/11/2021 11:16:07
+Open na tabela
+Last na tabela
+Nº do último recibo: 007506
+Nº do novo recibo: 007507
+Nº do recibo dentro do recibo: 007507
+Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007507.pdf
+Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2021\NOVEMBRO\05\007507.pdf
+Close na tabela.
+###############
+08/02/2022 15:29:51
+Open na tabela
+Last na tabela
+Nº do último recibo: 007507
+Nº do novo recibo: 007517
+Nº do recibo dentro do recibo: 007517
+Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007517.pdf
+Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\08\007517.pdf
+Close na tabela.
+###############
+08/02/2022 15:53:22
+Open na tabela
+Last na tabela
+Nº do último recibo: 007517
+Nº do novo recibo: 007518
+Nº do recibo dentro do recibo: 007518
+Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007518.pdf
+Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\08\007518.pdf
+Close na tabela.
+###############
+08/02/2022 15:58:50
+Open na tabela
+Last na tabela
+Nº do último recibo: 007518
+Nº do novo recibo: 007519
+Nº do recibo dentro do recibo: 007519
+Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007519.pdf
+Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\08\007519.pdf
+Close na tabela.
+###############
+08/02/2022 16:45:33
+Open na tabela
+Last na tabela
+Nº do último recibo: 007519
+Nº do novo recibo: 007520
+Nº do recibo dentro do recibo: 007520
+Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007520.pdf
+Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\08\007520.pdf
+Close na tabela.
+###############
+09/02/2022 10:58:17
+Open na tabela
+Last na tabela
+Nº do último recibo: 007520
+Nº do novo recibo: 007521
+Nº do recibo dentro do recibo: 007521
+Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007521.pdf
+Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\09\007521.pdf
+Close na tabela.
+###############
+09/02/2022 11:02:36
+Open na tabela
+Last na tabela
+Nº do último recibo: 007521
+Nº do novo recibo: 007522
+Nº do recibo dentro do recibo: 007522
+Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007522.pdf
+Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\FEVEREIRO\09\007522.pdf
+Close na tabela.
+###############
+14/09/2022 11:53:23
+Open na tabela
+Last na tabela
+Nº do último recibo: 007522
+Nº do novo recibo: 007523
+Nº do recibo dentro do recibo: 007523
+Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\007523.pdf
+Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2022\SETEMBRO\14\007523.pdf
+Close na tabela.
+###############
+17/02/2023 14:33:29
+Open na tabela
+Last na tabela
+Nº do último recibo: 011081
+Nº do novo recibo: 011082
+Nº do recibo dentro do recibo: 011082
+Caminho salvo no local: E:\Programa_Cobranca\Win32\Debug\011082.pdf
+Caminho do recibo no servidor: E:\Programa_Cobranca\Win32\Debug\RECIBOS\2023\FEVEREIRO\17\011082.pdf
+Close na tabela.

Win32/Debug/popup.ini

@@ -0,0 +1,5 @@
+[MENSAGEM]
+;Escreva aqui qualquer mensagem que você queira por como pop up ao iniciar o programa.
+Texto=Conserto de um erro com a geração de recíbos. Títulos agora podem ser marcados com "Múltiplas formas de pagamento" para sinalizar que houve uma quebra no padrão de pagamento. Desta forma eles não irão aparecer na prestação de contas e nem na gerência, necessitando uma prestação de contas manual. Essa mudança não é retroativa.
+;Escreva aqui a data para até quando você deseja que a mensagem apareça ao iniciar o programa
+Data-Fim=13/02/2020

Win32/Debug/sintetico.ini

@@ -0,0 +1,59 @@
+[Dados]
+Qtde_Empresas=14
+Periodo=01/04/2020 - 15/04/2020
+[Empresa_1]
+TX_FANTASIA=COL SAO THOMAS DE AQUINO - RECENTE
+CNPJ=
+Valor=45
+[Empresa_2]
+TX_FANTASIA=COLEGIO SÃO TOMÁS DE AQUINO
+CNPJ=01.756.745/0001-48
+Valor=41
+[Empresa_3]
+TX_FANTASIA=COLEGIO SÃO TOMÁS DE AQUINO  PG DIRETO COLEGIO
+CNPJ=01.756.745/0001-49
+Valor=211,49
+[Empresa_4]
+TX_FANTASIA=COLEGIO SÃO TOMÁS DE AQUINO ACORDO
+CNPJ=01.756.745/0001-50
+Valor=153,1452
+[Empresa_5]
+TX_FANTASIA=COLEGIO SÃO TOMÁS DE AQUINO CONFIRM CSTA
+CNPJ=01.756.745/0001-50
+Valor=25,7942
+[Empresa_6]
+TX_FANTASIA=CONDOMINIO EDIFICIO LINCOLN
+CNPJ=
+Valor=24,9
+[Empresa_7]
+TX_FANTASIA=DR JORGE LUIZ GONÇALVES
+CNPJ=42.654.203/0007-34
+Valor=15,304
+[Empresa_8]
+TX_FANTASIA=ESCOLA DE MUSICA DA UNIVERSIDADE CATOLICA DE PETROPOLIS
+CNPJ=
+Valor=38,01
+[Empresa_9]
+TX_FANTASIA=FLÁVIA RIBEIRO MESSORES
+CNPJ=
+Valor=1858,08
+[Empresa_10]
+TX_FANTASIA=J M CALÇADOS E SEGURANÇA
+CNPJ=17.738.952/0001-00
+Valor=17,476
+[Empresa_11]
+TX_FANTASIA=JOCA
+CNPJ=29.144.409/0001-63
+Valor=844,3107
+[Empresa_12]
+TX_FANTASIA=UNIVERSIDADE CATOLICA DE PETROPOLIS
+CNPJ=
+Valor=417,68
+[Empresa_13]
+TX_FANTASIA=UNIVERSIDADE CATOLICA DE PETROPOLIS - POS
+CNPJ=
+Valor=421,05
+[Empresa_14]
+TX_FANTASIA=UNIVERSIDADE CATOLICA DE PETROPOLIS MESTRADO
+CNPJ=
+Valor=809,05

Win32/Debug/sistema.ini

@@ -0,0 +1,17 @@
+[dados]
+dir=localhost:E:\Programa_Cobranca\Win32\Debug\CHARGE.FDB
+; dir=COB-SERVER/3051:C:\Nexverse\Banco de Dados\CHARGE.GDB
+path=E:\Programa_Cobranca\Win32\Debug
+;path=\\COB-SERVER\Nexverse\Banco de Testes
+bkp=E:\Programa_Cobranca\Win32\Debug\BKP_EXE
+[Backup]
+path_db=E:\Programa_Cobranca\Win32\Debug\
+path_bkp=E:\Programa_Cobranca\Win32\Debug\BACKUP_BANCO
+host=localhost
+[DEVELOPER]
+admin=sim
+[cert]
+pub-key=C:\Certificado\nexverse-pub.pem
+priv-key=C:\Certificado\nexverse-private.pem
+cert-key=C:\Certificado\certificado.crt
+cc=80971431

Win32/Debug/version_control.ini

@@ -0,0 +1,2 @@
+[Dados]
+version=1.1.4.28

Win32/urelRecibo.pas

@@ -0,0 +1,225 @@
+unit urelRecibo;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, RLReport, Data.DB,
+  Vcl.ComCtrls, RLRichText, RLFilters, RLPDFFilter, RLPreviewForm, RLPrinters;
+
+type
+  TrelRecibo = class(TmstMaster)
+    dtsReport: TDataSource;
+    dtsDevedor: TDataSource;
+    dtsTitulos: TDataSource;
+    fr_filterpdf: TRLPDFFilter;
+    frRecibo: TRLReport;
+    frb_header: TRLBand;
+    frpnl_logo: TRLPanel;
+    frdbimg_logo: TRLDBImage;
+    frpnl_headertop: TRLPanel;
+    frlbl_headertop: TRLLabel;
+    frpnl_headerbot: TRLPanel;
+    frlbl_headerbot: TRLLabel;
+    frb_header2: TRLBand;
+    frlbl_valortot: TRLLabel;
+    frlbl_vlextenso: TRLLabel;
+    frpnl_nome: TRLPanel;
+    frdblbl_cpf: TRLDBText;
+    frdblbl_nome: TRLDBText;
+    frlbl_recebemos: TRLLabel;
+    frpnl_recibo: TRLPanel;
+    frdblbl_nrrecibo: TRLDBText;
+    frlbl_recibo: TRLLabel;
+    frb_footer: TRLBand;
+    frpnl_organizasum: TRLPanel;
+    fr_time: TRLSystemInfo;
+    fr_date: TRLSystemInfo;
+    frlbl_empresa: TRLLabel;
+    frlbl_usuario: TRLLabel;
+    frdbresult_juros: TRLDBResult;
+    frdbresult_multa: TRLDBResult;
+    frdbresult_principal: TRLDBResult;
+    frdbresult_encargos: TRLDBResult;
+    frdbresult_descontos: TRLDBResult;
+    frdbresult_total: TRLDBResult;
+    frdblbl_usuario: TRLDBText;
+    frlbl_formarecebimento: TRLLabel;
+    frlbl_obscheque: TRLLabel;
+    frpnl_cheque: TRLPanel;
+    frlbl_nrcheque: TRLLabel;
+    frlbl_banco: TRLLabel;
+    frlbl_praca: TRLLabel;
+    frlbl_obs1: TRLLabel;
+    fr_membobs: TRLMemo;
+    frb_detail: TRLBand;
+    frdblbl_produto: TRLDBText;
+    frdblbl_vencimento: TRLDBText;
+    frdblbl_juros: TRLDBText;
+    frdblbl_multa: TRLDBText;
+    frdblbl_principal: TRLDBText;
+    frdblbl_encargos: TRLDBText;
+    frdblbl_descontos: TRLDBText;
+    frdblbl_total: TRLDBText;
+    frpnl_headers: TRLPanel;
+    frlbl_vencimento: TRLLabel;
+    frlbl_principal: TRLLabel;
+    frlbl_encargos: TRLLabel;
+    frlbl_descontos: TRLLabel;
+    frlbl_total: TRLLabel;
+    frlbl_juros: TRLLabel;
+    frlbl_multa: TRLLabel;
+    frlbl_referente: TRLLabel;
+    frsubdbnd1: TRLSubDetail;
+    frsubdbndmeio: TRLSubDetail;
+    frb_detail2v: TRLBand;
+    RLDBText8: TRLDBText;
+    RLDBText9: TRLDBText;
+    RLDBText10: TRLDBText;
+    RLDBText11: TRLDBText;
+    RLDBText12: TRLDBText;
+    RLDBText13: TRLDBText;
+    RLDBText14: TRLDBText;
+    RLDBText15: TRLDBText;
+    RLPanel1: TRLPanel;
+    RLLabel4: TRLLabel;
+    RLLabel11: TRLLabel;
+    RLLabel12: TRLLabel;
+    RLLabel13: TRLLabel;
+    RLLabel14: TRLLabel;
+    RLLabel15: TRLLabel;
+    RLLabel16: TRLLabel;
+    RLLabel17: TRLLabel;
+    frb_footer2v: TRLBand;
+    RLPanel3: TRLPanel;
+    RLSystemInfo1: TRLSystemInfo;
+    RLSystemInfo2: TRLSystemInfo;
+    RLLabel18: TRLLabel;
+    RLLabel19: TRLLabel;
+    RLDBResult7: TRLDBResult;
+    RLDBResult8: TRLDBResult;
+    RLDBResult9: TRLDBResult;
+    RLDBResult10: TRLDBResult;
+    RLDBResult11: TRLDBResult;
+    RLDBResult12: TRLDBResult;
+    RLDBText16: TRLDBText;
+    frlbl_formarecebimento2v: TRLLabel;
+    frlbl_obscheque2v: TRLLabel;
+    frpnl_cheque2v: TRLPanel;
+    frlbl_nrcheque2v: TRLLabel;
+    frlbl_banco2v: TRLLabel;
+    frlbl_praca2v: TRLLabel;
+    RLLabel25: TRLLabel;
+    fr_membobs2v: TRLMemo;
+    frb_header2v: TRLBand;
+    RLPanel5: TRLPanel;
+    RLDBImage2: TRLDBImage;
+    RLPanel6: TRLPanel;
+    frlbl_headertop2v: TRLLabel;
+    RLPanel7: TRLPanel;
+    frlbl_headerbot2v: TRLLabel;
+    frb_header22v: TRLBand;
+    frlbl_valortot2v: TRLLabel;
+    frlbl_vlextenso2v: TRLLabel;
+    RLPanel8: TRLPanel;
+    frdblbl_cpf2v: TRLDBText;
+    frdblbl_nome2v: TRLDBText;
+    RLLabel30: TRLLabel;
+    RLPanel9: TRLPanel;
+    RLDBText19: TRLDBText;
+    RLLabel31: TRLLabel;
+    frsubdbnd2: TRLSubDetail;
+    RLBand5: TRLBand;
+    procedure frReciboBeforePrint(Sender: TObject; var PrintIt: Boolean);
+    procedure frReciboAfterPrint(Sender: TObject);
+    procedure frsubdbnd2BeforePrint(Sender: TObject; var PrintIt: Boolean);
+  private
+    procedure SalvarReciboPDF;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  relRecibo: TrelRecibo;
+
+  meses: array [1 .. 12] of string = (
+    'JANEIRO',
+    'FEVEREIRO',
+    'MARCO',
+    'ABRIL',
+    'MAIO',
+    'JUNHO',
+    'JULHO',
+    'AGOSTO',
+    'SETEMBRO',
+    'OUTUBRO',
+    'NOVEMBRO',
+    'DEZEMBRO'
+  );
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem, ufrmAtendimento;
+
+procedure TrelRecibo.frReciboAfterPrint(Sender: TObject);
+begin
+  frmAtendimento.btn_concluir.Enabled := true;
+  SalvarReciboPDF;
+end;
+
+procedure TrelRecibo.frReciboBeforePrint(Sender: TObject; var PrintIt: Boolean);
+begin
+  //dtsReport.dataset.open;
+  dtsDevedor.dataset.open;
+  dtsTitulos.dataset.open;
+end;
+
+procedure TrelRecibo.frsubdbnd2BeforePrint(Sender: TObject;
+  var PrintIt: Boolean);
+begin
+  //dtsReport.DataSet.Open;
+  //dtsReport.DataSet.RecNo := dtsReport.DataSet.RecordCount;
+  //dtmSystem.tblConteudoRecibo.RecNo := 1;
+end;
+
+procedure TrelRecibo.SalvarReciboPDF;
+var
+  path, file_name: string;
+  Fmt: TFormatSettings;
+  i: Integer;
+begin
+  Fmt := TFormatSettings.Create;
+  for i := 0 to High(meses) do
+  begin
+    Fmt.LongMonthNames[i] := meses[i];
+  end;
+  path := ExtractFilePath(Application.ExeName) + 'RECIBOS';
+  if not DirectoryExists(path) then
+  begin
+    CreateDir(path);
+  end;
+  path := path + '\' + FormatDateTime('YYYY', Date);
+  if not DirectoryExists(path) then
+  begin
+    CreateDir(path);
+  end;
+  path := path + '\' + FormatDateTime('mmmm', Date, Fmt);
+  if not DirectoryExists(path) then
+  begin
+    CreateDir(path);
+  end;
+  path := path + '\' + FormatDateTime('dd', Date);
+  if not DirectoryExists(path) then
+  begin
+    CreateDir(path);
+  end;
+  file_name := path + '\' + dtmSystem.tblReciboNR_RECIBO.AsString + '.pdf';
+  fr_filterpdf.FileName := file_name;
+  frRecibo.SaveToFile(file_name);
+end;
+
+end.

estados.sql

@@ -0,0 +1,27 @@
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (12,'AC','Acre',1);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (27,'AL','Alagoas',2);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (13,'AM','Amazonas',3);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (16,'AP','Amapá',4);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (29,'BA','Bahia',5);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (23,'CE','Ceará',6);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (53,'DF','Distrito Federal',7);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (32,'ES','Espírito Santo',8);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (52,'GO','Goiás',9);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (21,'MA','Maranhão',10);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (31,'MG','Minas Gerais',11);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (50,'MS','Mato Grosso do Sul',12);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (51,'MT','Mato Grosso',13);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (15,'PA','Pará',14);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (25,'PB','Paraíba',15);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (26,'PE','Pernambuco',16);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (22,'PI','Piauí',17);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (41,'PR','Paraná',18);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (33,'RJ','Rio de Janeiro',19);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (24,'RN','Rio Grande do Norte',20);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (11,'RO','Rondônia',21);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (14,'RR','Roraima',22);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (43,'RS','Rio Grande do Sul',23);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (42,'SC','Santa Catarina',24);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (28,'SE','Sergipe',25);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (35,'SP','São Paulo',26);
+INSERT INTO SYS_ESTADOS (CD_ESTADO,TX_SIGLA,TX_NOME,ID_ESTADO) VALUES (17,'TO','Tocantis',27);

sistema.ini

@@ -0,0 +1,7 @@
+[dados]
+dir=E:\Programa_Cobranca\CHARGE.GDB
+;dir=C:\Program Files (x86)\Programa_Cobranca\banco_flavia\CHARGE.GDB
+constructor=C:\Program Files (x86)\Programa_Cobranca\banco.sql
+[atualizacao]
+situacao=S
+caminho=DELPHI_DEV-PC:C:\Controle_Versao

uExtenso.pas

@@ -0,0 +1,318 @@
+unit uExtenso;
+
+interface
+
+function valorPorExtenso(vlr: real): string;
+function Extenso(Valor : Extended; Moeda: Boolean; Tipo : Integer = 0): String;
+
+implementation
+
+uses SysUtils;
+
+function valorPorExtenso(vlr: real): string;
+const
+  unidade: array [1 .. 19] of string = ('um', 'dois', 'três', 'quatro', 'cinco',
+    'seis', 'sete', 'oito', 'nove', 'dez', 'onze', 'doze', 'treze', 'quatorze',
+    'quinze', 'dezesseis', 'dezessete', 'dezoito', 'dezenove');
+  centena: array [1 .. 9] of string = ('cento', 'duzentos', 'trezentos',
+    'quatrocentos', 'quinhentos', 'seiscentos', 'setecentos', 'oitocentos',
+    'novecentos');
+  dezena: array [2 .. 9] of string = ('vinte', 'trinta', 'quarenta',
+    'cinquenta', 'sessenta', 'setenta', 'oitenta', 'noventa');
+  qualificaS: array [0 .. 4] of string = ('', 'mil', 'milhão', 'bilhão',
+    'trilhão');
+  qualificaP: array [0 .. 4] of string = ('', 'mil', 'milhões', 'bilhões',
+    'trilhões');
+var
+  inteiro: Int64;
+  resto: real;
+  vlrS, s, saux, vlrP, centavos: string;
+  n, unid, dez, cent, tam, i: integer;
+  umReal, tem: boolean;
+begin
+  if (vlr = 0) then
+  begin
+    valorPorExtenso := 'zero';
+    exit;
+  end;
+
+  inteiro := trunc(vlr); // parte inteira do valor
+  resto := vlr - inteiro; // parte fracionária do valor
+  vlrS := inttostr(inteiro);
+  if (length(vlrS) > 15) then
+  begin
+    valorPorExtenso := 'Erro: valor superior a 999 trilhões.';
+    exit;
+  end;
+
+  s := '';
+  centavos := inttostr(round(resto * 100));
+
+  // definindo o extenso da parte inteira do valor
+  i := 0;
+  umReal := false;
+  tem := false;
+  while (vlrS <> '0') do
+  begin
+    tam := length(vlrS);
+    // retira do valor a 1a. parte, 2a. parte, por exemplo, para 123456789:
+    // 1a. parte = 789 (centena)
+    // 2a. parte = 456 (mil)
+    // 3a. parte = 123 (milhões)
+    if (tam > 3) then
+    begin
+      vlrP := copy(vlrS, tam - 2, tam);
+      vlrS := copy(vlrS, 1, tam - 3);
+    end
+    else
+    begin // última parte do valor
+      vlrP := vlrS;
+      vlrS := '0';
+    end;
+    if (vlrP <> '000') then
+    begin
+      saux := '';
+      if (vlrP = '100') then
+        saux := 'cem'
+      else
+      begin
+        n := strtoint(vlrP); // para n = 371, tem-se:
+        cent := n div 100; // cent = 3 (centena trezentos)
+        dez := (n mod 100) div 10; // dez  = 7 (dezena setenta)
+        unid := (n mod 100) mod 10; // unid = 1 (unidade um)
+        if (cent <> 0) then
+          saux := centena[cent];
+        if ((dez <> 0) or (unid <> 0)) then
+        begin
+          if ((n mod 100) <= 19) then
+          begin
+            if (length(saux) <> 0) then
+              saux := saux + ' e ' + unidade[n mod 100]
+            else
+              saux := unidade[n mod 100];
+          end
+          else
+          begin
+            if (length(saux) <> 0) then
+              saux := saux + ' e ' + dezena[dez]
+            else
+              saux := dezena[dez];
+            if (unid <> 0) then
+              if (length(saux) <> 0) then
+                saux := saux + ' e ' + unidade[unid]
+              else
+                saux := unidade[unid];
+          end;
+        end;
+      end;
+      if ((vlrP = '1') or (vlrP = '001')) then
+      begin
+        if (i = 0) // 1a. parte do valor (um real)
+        then
+          umReal := true
+        else
+          saux := saux + ' ' + qualificaS[i];
+      end
+      else if (i <> 0) then
+        saux := saux + ' ' + qualificaP[i];
+      if (length(s) <> 0) then
+        s := saux + ', ' + s
+      else
+        s := saux;
+    end;
+    if (((i = 0) or (i = 1)) and (length(s) <> 0)) then
+      tem := true; // tem centena ou mil no valor
+    i := i + 1; // próximo qualificador: 1- mil, 2- milhão, 3- bilhão, ...
+  end;
+
+  if (length(s) <> 0) then
+  begin
+    if (umReal) then
+      s := s + ' real'
+    else if (tem) then
+      s := s + ' reais'
+    else
+      s := s + ' de reais';
+  end;
+  // definindo o extenso dos centavos do valor
+  if (centavos <> '0') // valor com centavos
+  then
+  begin
+    if (length(s) <> 0) // se não é valor somente com centavos
+    then
+      s := s + ' e ';
+    if (centavos = '1') then
+      s := s + 'um centavo'
+    else
+    begin
+      n := strtoint(centavos);
+      if (n <= 19) then
+        s := s + unidade[n]
+      else
+      begin // para n = 37, tem-se:
+        unid := n mod 10; // unid = 37 % 10 = 7 (unidade sete)
+        dez := n div 10; // dez  = 37 / 10 = 3 (dezena trinta)
+        s := s + dezena[dez];
+        if (unid <> 0) then
+          s := s + ' e ' + unidade[unid];
+      end;
+      s := s + ' centavos';
+    end;
+  end;
+  valorPorExtenso := s;
+end;
+
+function Extenso(Valor : Extended; Moeda: Boolean; Tipo : Integer = 0): String;
+var
+  Centavos, Centena, Milhar, Milhao, Bilhao, Texto : string;
+const
+  Unidades: array [1..9] of string = ('um', 'dois', 'três','quatro','cinco',
+  'seis', 'sete', 'oito','nove');
+  Dez     : array [1..9] of string = ('onze', 'doze', 'treze', 'quatorze',
+  'quinze', 'dezesseis', 'dezessete', 'dezoito', 'dezenove');
+  Dezenas : array [1..9] of string = ('dez', 'vinte', 'trinta',
+  'quarenta', 'cinqüenta', 'sessenta', 'setenta', 'oitenta', 'noventa');
+  Centenas: array [1..9] of string = ('cento', 'duzentos', 'trezentos',
+  'quatrocentos', 'quinhentos', 'seiscentos', 'setecentos', 'oitocentos',
+  'novecentos');
+  function ifs( Expressao: Boolean; CasoVerdadeiro, CasoFalso:String): String;
+  begin
+    if Expressao then
+      Result := CasoVerdadeiro
+    else
+      Result :=CasoFalso;
+  end;
+  function MiniExtenso( Valor: ShortString ): string;
+  var
+    Unidade, Dezena, Centena: String;
+  begin
+    if (Valor[2] = '1') and (Valor[3] <> '0') then
+    begin
+      Unidade := Dez[StrToInt(Valor[3])];
+      Dezena := '';
+    end
+    else
+    begin
+     if Valor[2] <> '0' then
+       Dezena := Dezenas[StrToInt(Valor[2])];
+     if Valor[3] <> '0' then
+       unidade := Unidades[StrToInt(Valor[3])];
+    end;
+    if (Valor[1] = '1') and (Unidade = '') and (Dezena = '') then
+      centena := 'cem'
+    else
+      if Valor[1] <> '0' then
+        Centena := Centenas[StrToInt(Valor[1])]
+      else
+        Centena := '';
+
+    Result := Centena + ifs( (Centena <> '') and ((Dezena <> '') or
+    (Unidade <> '')),' e ', '') + Dezena + ifs( (Dezena <> '') and
+    (Unidade <> ''), ' e ','') + Unidade;
+  end;
+begin
+  if Valor = 0 then
+  begin
+    if Moeda then
+      Result := ''
+    else
+      Result := 'zero';
+
+    Exit;
+  end;
+
+  Texto := FormatFloat( '000000000000.00', Valor );
+  Centavos := MiniExtenso( '0' + Copy( Texto, 14, 2 ) );
+  Centena  := MiniExtenso( Copy( Texto, 10, 3 ) );
+  Milhar   := MiniExtenso( Copy( Texto,  7, 3 ) );
+
+  if Milhar <> '' then
+    Milhar := Milhar + ' mil';
+
+  Milhao   := MiniExtenso( Copy( Texto,  4, 3 ) );
+
+  if Milhao <> '' then
+  begin
+    Milhao := Milhao
+    + ifs( Copy( Texto, 4,
+    3 ) = '001', ' milhão', ' milhões');
+  end;
+
+  Bilhao   := MiniExtenso( Copy( Texto,  1, 3 ) );
+
+  if Bilhao <> '' then
+  begin
+    Bilhao := Bilhao + ifs( Copy( Texto, 1, 3 ) = '001', ' bilhão',
+    ' bilhões');
+  end;
+
+  Result := Bilhao + ifs( (Bilhao <> '') and (Milhao + Milhar +
+  Centena <> ''),
+  ifs((Pos(' e ', Bilhao) > 0) or (Pos( ' e ',
+  Milhao + Milhar + Centena ) > 0), ', ', ' e '), '') +
+  Milhao + ifs( (Milhao <> '') and (Milhar + Centena <> ''),
+  ifs((Pos(' e ', Milhao) > 0) or
+  (Pos( ' e ', Milhar + Centena ) > 0 ),', ',    ' e '), '') +
+  Milhar + ifs( (Milhar <> '') and
+  (Centena <> ''), ifs(Pos( ' e ', Centena ) > 0, ', ', ' e '),'') +
+  Centena;
+
+  if Moeda then
+  begin
+    if Tipo=0 then
+    begin
+      if (Bilhao <> '') and (Milhao + Milhar + Centena = '') then
+        Result := Bilhao + ' de reais'
+      else
+      if (Milhao <> '') and (Milhar + Centena = '') then
+        Result := Milhao + ' de reais'
+      else
+        Result := Bilhao + ifs( (Bilhao <> '') and (Milhao + Milhar +
+        Centena <> ''), ifs((Pos(' e ', Bilhao) > 0) or (Pos( ' e ',
+        Milhao +Milhar + Centena ) > 0), ', ', ' e '), '') + Milhao + ifs(
+        (Milhao <> '') and (Milhar + Centena <> ''), ifs((Pos(' e ',
+        Milhao) > 0) or (Pos( ' e ', Milhar + Centena ) > 0 ),', ',
+        ' e '), '') + Milhar + ifs( (Milhar <> '') and (Centena <> ''),
+        ifs(Pos( ' e ', Centena ) > 0, ', ', ' e '),'') +
+        Centena + ifs( Int(Valor) = 1, ' real', ' reais');
+      if Centavos <> '' then
+      begin
+        if Valor > 1 then
+          Result := Result + ' e ' + Centavos + ifs( Copy(
+          Texto, 14, 2 )= '01', ' centavo', ' centavos' )
+        else
+          Result := Centavos + ifs( Copy( Texto, 14, 2 )= '01',
+          ' centavo', ' centavos' );
+      end;
+    end
+    else
+    begin
+      if (Bilhao <> '') and (Milhao + Milhar + Centena = '') then
+        Result := Bilhao + ' de dolares americanos'
+      else
+      if (Milhao <> '') and (Milhar + Centena = '') then
+        Result := Milhao + ' de dolares americanos'
+      else
+        Result := Bilhao + ifs( (Bilhao <> '') and (Milhao + Milhar +
+        Centena <> ''), ifs((Pos(' e ', Bilhao) > 0) or (Pos( ' e ',
+        Milhao + Milhar + Centena ) > 0),', ', ' e '), '') + Milhao +
+        ifs( (Milhao <> '') and (Milhar + Centena <> ''), ifs((Pos(' e ',
+        Milhao) > 0) or (Pos( ' e ', Milhar + Centena ) > 0 ),', ',
+        ' e '), '') + Milhar + ifs( (Milhar <> '') and (Centena <> ''),
+        ifs(Pos( ' e ', Centena ) > 0,', ', ' e '),'') + Centena + ifs(
+        Int(Valor) = 1, ' dolar americano', ' dolares americanos');
+
+      if Centavos <> '' then
+      begin
+        if Valor > 1 then
+          Result := Result + ' e ' + Centavos + ifs( Copy( Texto, 14, 2 )=
+          '01', ' cent', ' cents' )
+        else
+          Result := Centavos + ifs( Copy( Texto, 14, 2 )= '01', ' cent', ' ' +
+          'cents' );
+      end;
+    end;
+  end;
+end;
+
+end.

uHelperFunctions.pas

@@ -0,0 +1,73 @@
+unit uHelperFunctions;
+
+interface
+
+function plaintext(s: string): string;
+
+procedure LogError(FileName, Msg: string);
+
+implementation
+
+uses IOUtils, StrUtils, Math, SysUtils, Forms, IniFiles;
+
+function plaintext(s: string): string;
+var
+  i: integer;
+begin
+
+  for i := 1 to Length(s) do
+  begin
+
+    case s[i] of
+
+      'á', 'à', 'â', 'ä', 'ã':
+        s[i] := 'a';
+      'é', 'è', 'ê', 'ë':
+        s[i] := 'e';
+      'í', 'ì', 'î', 'ï':
+        s[i] := 'i';
+      'ó', 'ò', 'ô', 'ö', 'õ':
+        s[i] := 'o';
+      'ú', 'ù', 'û', 'ü':
+        s[i] := 'u';
+      'ç':
+        s[i] := 'c';
+
+      'Á', 'À', 'Â', 'Ä', 'Ã':
+        s[i] := 'A';
+      'É', 'È', 'Ê', 'Ë':
+        s[i] := 'E';
+      'Í', 'Ì', 'Î', 'Ï':
+        s[i] := 'I';
+      'Ó', 'Ò', 'Ô', 'Ö', 'Õ':
+        s[i] := 'O';
+      'Ú', 'Ù', 'Û', 'Ü':
+        s[i] := 'U';
+      'Ç':
+        s[i] := 'C';
+
+    end;
+
+  end;
+
+  plaintext := s;
+
+end;
+
+procedure LogError(FileName, Msg: string);
+begin
+  try
+    TFile.AppendAllText(TPath.Combine(ExtractFilePath(Application.ExeName),
+      Format('%s%s%s', [FileName, FormatDateTime('YYYY-mm-dd', Date), '.log'])),
+      Format('[ERROR] %s: %s', [FormatDateTime('dd/mm/YYYY hh:mm:ss:zzz', Now),
+      Msg + sLineBreak]), TEncoding.UTF8);
+  except
+    TFile.AppendAllText(TPath.Combine(ExtractFilePath(Application.ExeName),
+      Format('ErroLog%s%s%s', [FileName, FormatDateTime('YYYY-mm-dd', Date),
+      '.log'])), Format('[ERROR] %s: %s',
+      [FormatDateTime('dd/mm/YYYY hh:mm:ss:zzz', Now), Msg + sLineBreak]),
+      TEncoding.UTF8);
+  end;
+end;
+
+end.

ucadCampanha - Copy.pas

@@ -0,0 +1,151 @@
+mb_log.Lines.Clear;
+    mb_log.Lines.Add(DateTimetostr(Now));
+    mb_log.Lines.Add('');
+    mb_log.Lines.Add('Adicionando PontoVendas.');
+    mb_log.Lines.Add('');
+    mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
+      'log_PontoVenda.txt');
+    with dtmSystem do
+    begin
+      zqryPontoVendaZerado.Open;
+      if zqryPontoVendaZerado.RecordCount = 0 then
+      begin
+        zroqryPontoVenda1.Open;
+        zroqryPontoVenda1.First;
+        mb_log.Lines.Add('---------------------Banco #1---------------------');
+        mb_log.Lines.Add('');
+        mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
+          'log_PontoVenda.txt');
+        while not zroqryPontoVenda1.Eof do
+        begin
+          try
+            zqryPontoVendaZerado.Append;
+            for i := 1 to zroqryPontoVenda1.Fields.Count - 1 do
+            begin
+              excptPontoVenda := zroqryPontoVenda1.Fields[i].FieldName;
+              zqryPontoVendaZerado.Fields[i].AsString := zroqryPontoVenda1.Fields
+                [i].AsString;
+              mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda1.RecNo) +
+                ' - Campo: ' + excptPontoVenda);
+              Application.ProcessMessages;
+            end;
+            zroqryUsuario1.Locate('ID_USUARIO',
+              zroqryPontoVenda1ID_USUARIO.AsInteger, []);
+            zqryUsuarioZerado.Locate('TX_NOME',
+              zroqryUsuario1TX_NOME.AsString, []);
+            zqryPontoVendaZeradoID_USUARIO.AsString :=
+              zqryUsuarioZeradoID_USUARIO.AsString;
+            zroqryEstoque1.Locate('ID_ESTOQUE',
+              zroqryPontoVenda1ID_ESTOQUE.AsInteger, []);
+            zqryEstoqueZerado.Locate('TX_DESCRICAO',
+              zroqryEstoque1TX_DESCRICAO.AsString, []);
+            zqryPontoVendaZeradoID_ESTOQUE.AsString :=
+              zqryEstoqueZeradoID_ESTOQUE.AsString;
+            zqryPontoVendaZerado.Post;
+            zroqryPontoVenda1.Next;
+          except
+            mb_log.Lines.Add('Erro na linha ' + inttostr(zroqryPontoVenda1.RecNo) +
+              ' - Campo: ' + excptPontoVenda);
+            zqryPontoVendaZerado.Cancel;
+            zroqryPontoVenda1.Next;
+          end;
+          Application.ProcessMessages;
+        end;
+        mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
+          'log_PontoVenda.txt');
+
+        zroqryPontoVenda2.Open;
+        zroqryPontoVenda2.First;
+        mb_log.Lines.Add('');
+        mb_log.Lines.Add('---------------------Banco #2---------------------');
+        mb_log.Lines.Add('');
+        mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
+          'log_PontoVenda.txt');
+        while not zroqryPontoVenda2.Eof do
+        begin
+          try
+            zqryPontoVendaZerado.Append;
+            for i := 1 to zroqryPontoVenda2.Fields.Count - 1 do
+            begin
+              excptPontoVenda := zroqryPontoVenda2.Fields[i].FieldName;
+              zqryPontoVendaZerado.Fields[i].AsString := zroqryPontoVenda2.Fields
+                [i].AsString;
+              mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda2.RecNo) +
+                ' - Campo: ' + excptPontoVenda);
+            end;
+            excptPontoVenda := 'ID_USUARIO';
+            zroqryUsuario2.Locate('ID_USUARIO',
+              zroqryPontoVenda2ID_USUARIO.AsInteger, []);
+            zqryUsuarioZerado.Locate('TX_NOME',
+              zroqryUsuario2TX_NOME.AsString, []);
+            zqryPontoVendaZeradoID_USUARIO.AsString :=
+              zqryUsuarioZeradoID_USUARIO.AsString;
+            mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda2.RecNo) +
+              ' - Campo: ' + excptPontoVenda);
+            zroqryEstoque2.Locate('ID_ESTOQUE',
+              zroqryPontoVenda2ID_ESTOQUE.AsInteger, []);
+            zqryEstoqueZerado.Locate('TX_DESCRICAO',
+              zroqryEstoque2TX_DESCRICAO.AsString, []);
+            zqryPontoVendaZeradoID_ESTOQUE.AsString :=
+              zqryEstoqueZeradoID_ESTOQUE.AsString;
+            zqryPontoVendaZerado.Post;
+            zroqryPontoVenda2.Next;
+          except
+            mb_log.Lines.Add('Erro na linha ' + inttostr(zroqryPontoVenda2.RecNo) +
+              ' - Campo: ' + excptPontoVenda);
+            zqryPontoVendaZerado.Cancel;
+            zroqryPontoVenda2.Next;
+          end;
+          Application.ProcessMessages;
+        end;
+        mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
+          'log_PontoVenda.txt');
+
+        zroqryPontoVenda3.Open;
+        zroqryPontoVenda3.First;
+        mb_log.Lines.Add('');
+        mb_log.Lines.Add('---------------------Banco #3---------------------');
+        mb_log.Lines.Add('');
+        mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
+          'log_PontoVenda.txt');
+        while not zroqryPontoVenda3.Eof do
+        begin
+          try
+            zqryPontoVendaZerado.Append;
+            for i := 1 to zroqryPontoVenda3.Fields.Count - 1 do
+            begin
+              excptPontoVenda := zroqryPontoVenda3.Fields[i].FieldName;
+              zqryPontoVendaZerado.Fields[i].AsString := zroqryPontoVenda3.Fields
+                [i].AsString;
+              mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda3.RecNo) +
+                ' - Campo: ' + excptPontoVenda);
+            end;
+            excptPontoVenda := 'ID_USUARIO';
+            zroqryUsuario3.Locate('ID_USUARIO',
+              zroqryPontoVenda3ID_USUARIO.AsInteger, []);
+            zqryUsuarioZerado.Locate('TX_NOME',
+              zroqryUsuario3TX_NOME.AsString, []);
+            zqryPontoVendaZeradoID_USUARIO.AsString :=
+              zqryUsuarioZeradoID_USUARIO.AsString;
+            mb_log.Lines.Add('Linha ' + inttostr(zroqryPontoVenda2.RecNo) +
+              ' - Campo: ' + excptPontoVenda);
+            zroqryEstoque3.Locate('ID_ESTOQUE',
+              zroqryPontoVenda3ID_ESTOQUE.AsInteger, []);
+            zqryEstoqueZerado.Locate('TX_DESCRICAO',
+              zroqryEstoque3TX_DESCRICAO.AsString, []);
+            zqryPontoVendaZeradoID_ESTOQUE.AsString :=
+              zqryEstoqueZeradoID_ESTOQUE.AsString;
+            zqryPontoVendaZerado.Post;
+            zroqryPontoVenda3.Next;
+          except
+            mb_log.Lines.Add('Erro na linha ' + inttostr(zroqryPontoVenda3.RecNo) +
+              ' - Campo: ' + excptPontoVenda);
+            zqryPontoVendaZerado.Cancel;
+            zroqryPontoVenda3.Next;
+          end;
+          Application.ProcessMessages;
+        end;
+      end;
+      mb_log.Lines.SaveToFile(ExtractFilePath(Application.ExeName) +
+        'log_PontoVenda.txt');
+    end;

ucadCobrador.dfm

@@ -0,0 +1,24 @@
+inherited cadCobrador: TcadCobrador
+  Caption = 'Cobradores'
+  ExplicitWidth = 708
+  ExplicitHeight = 498
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited GroupBox2: TGroupBox
+    inherited pcClientes: TPageControl
+      inherited tabCadastro: TTabSheet
+        ExplicitLeft = 4
+        ExplicitTop = 24
+        ExplicitWidth = 649
+        ExplicitHeight = 272
+        object Label1: TLabel
+          Left = 3
+          Top = 3
+          Width = 32
+          Height = 13
+          Caption = 'Label1'
+        end
+      end
+    end
+  end
+end

ucadCobrador.pas

@@ -0,0 +1,26 @@
+unit ucadCobrador;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls,
+  Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls;
+
+type
+  TcadCobrador = class(TmstCadastro)
+    Label1: TLabel;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  cadCobrador: TcadCobrador;
+
+implementation
+
+{$R *.dfm}
+
+end.

ucadContas.dfm

@@ -0,0 +1,814 @@
+inherited cadContas: TcadContas
+  Caption = 'Contas'
+  OnCanResize = FormCanResize
+  ExplicitTop = -40
+  ExplicitWidth = 700
+  ExplicitHeight = 491
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited GroupBox2: TGroupBox
+    inherited pcClientes: TPageControl
+      inherited tabCadastro: TTabSheet
+        ExplicitLeft = 4
+        ExplicitTop = 24
+        ExplicitWidth = 649
+        ExplicitHeight = 272
+        object lbl_agencia: TLabel
+          Left = 3
+          Top = 3
+          Width = 42
+          Height = 13
+          Caption = 'Ag'#234'ncia:'
+        end
+        object lbl_adigito: TLabel
+          Left = 83
+          Top = 3
+          Width = 32
+          Height = 13
+          Caption = 'D'#237'gito:'
+        end
+        object lbl_cedente: TLabel
+          Left = 131
+          Top = 3
+          Width = 43
+          Height = 13
+          Caption = 'Cedente:'
+        end
+        object lbl_cdigito: TLabel
+          Left = 263
+          Top = 3
+          Width = 32
+          Height = 13
+          Caption = 'D'#237'gito:'
+        end
+        object lbl_convenio: TLabel
+          Left = 309
+          Top = 3
+          Width = 48
+          Height = 13
+          Caption = 'Conv'#234'nio:'
+        end
+        object lbl_codigito: TLabel
+          Left = 441
+          Top = 3
+          Width = 32
+          Height = 13
+          Caption = 'D'#237'gito:'
+        end
+        object lbl_conta: TLabel
+          Left = 3
+          Top = 49
+          Width = 31
+          Height = 13
+          Caption = 'Conta:'
+        end
+        object lbl_cadigito: TLabel
+          Left = 134
+          Top = 49
+          Width = 32
+          Height = 13
+          Caption = 'D'#237'gito:'
+        end
+        object Label1: TLabel
+          Left = 186
+          Top = 49
+          Width = 58
+          Height = 13
+          Caption = 'Modalidade:'
+        end
+        object dbrbx_situacao: TDBRadioGroup
+          Left = 546
+          Top = 3
+          Width = 100
+          Height = 70
+          Caption = 'Situa'#231#227'o'
+          DataField = 'TP_SITUACAO'
+          DataSource = dtsDB
+          Items.Strings = (
+            'Ativa'
+            'Suspensa')
+          TabOrder = 0
+          Values.Strings = (
+            '1'
+            '0')
+        end
+        object dbedt_agencia: TDBEdit
+          Left = 3
+          Top = 22
+          Width = 66
+          Height = 21
+          DataField = 'CD_AGENCIA'
+          DataSource = dtsDB
+          TabOrder = 1
+        end
+        object dbedt_adigito: TDBEdit
+          Left = 83
+          Top = 22
+          Width = 32
+          Height = 21
+          DataField = 'CD_AGENCIA_DV'
+          DataSource = dtsDB
+          TabOrder = 2
+        end
+        object dbedt_cedente: TDBEdit
+          Left = 131
+          Top = 22
+          Width = 118
+          Height = 21
+          DataField = 'CD_CEDENTE'
+          DataSource = dtsDB
+          TabOrder = 3
+        end
+        object dbedt_cdigito: TDBEdit
+          Left = 263
+          Top = 22
+          Width = 32
+          Height = 21
+          DataField = 'CD_CEDENTE_DV'
+          DataSource = dtsDB
+          TabOrder = 4
+        end
+        object dbedt_convenio: TDBEdit
+          Left = 309
+          Top = 22
+          Width = 118
+          Height = 21
+          DataField = 'CD_CONVENIO'
+          DataSource = dtsDB
+          TabOrder = 5
+        end
+        object dbedt_codigito: TDBEdit
+          Left = 441
+          Top = 22
+          Width = 32
+          Height = 21
+          DataField = 'CD_CONVENIO_DV'
+          DataSource = dtsDB
+          TabOrder = 6
+        end
+        object dbedt_conta: TDBEdit
+          Left = 3
+          Top = 68
+          Width = 118
+          Height = 21
+          DataField = 'CD_CONTA'
+          DataSource = dtsDB
+          TabOrder = 7
+        end
+        object dbedt_cadigito: TDBEdit
+          Left = 134
+          Top = 68
+          Width = 32
+          Height = 21
+          DataField = 'CD_CONTA_DV'
+          DataSource = dtsDB
+          TabOrder = 8
+        end
+        object DBEdit2: TDBEdit
+          Left = 186
+          Top = 68
+          Width = 118
+          Height = 21
+          DataField = 'CD_MODALIDADE'
+          DataSource = dtsDB
+          TabOrder = 9
+        end
+      end
+    end
+    object dbgrd_conta: TDBGrid
+      Left = 19
+      Top = 130
+      Width = 643
+      Height = 174
+      DataSource = dtsDB
+      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
+      ReadOnly = True
+      TabOrder = 1
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -11
+      TitleFont.Name = 'Tahoma'
+      TitleFont.Style = []
+      OnTitleClick = dbgrd_contaTitleClick
+      Columns = <
+        item
+          Expanded = False
+          FieldName = 'ID_CONTA'
+          Title.Caption = 'ID'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TX_DESCRICAO'
+          Title.Caption = 'Descri'#231#227'o'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'CD_AGENCIA'
+          Title.Caption = 'Ag'#234'ncia'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'CD_AGENCIA_DV'
+          Title.Caption = 'D'#237'gito'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'CD_CEDENTE'
+          Title.Caption = 'Cedente'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'CD_CEDENTE_DV'
+          Title.Caption = 'D'#237'gito'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'CD_CONVENIO'
+          Title.Caption = 'Conv'#234'nio'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'CD_CONVENIO_DV'
+          Title.Caption = 'D'#237'gito'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'CD_CONTA'
+          Title.Caption = 'Conta'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'CD_CONTA_DV'
+          Title.Caption = 'D'#237'gito'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TP_SITUACAO'
+          Title.Caption = 'Situa'#231#227'o'
+          Visible = True
+        end>
+    end
+  end
+  inherited grpDescricao: TGroupBox
+    inherited DBEdit1: TDBEdit
+      DataField = 'TX_DESCRICAO'
+    end
+  end
+  inherited navPrincipal: TDBNavigator
+    Width = 670
+    DataSource = dtsDB
+    ExplicitWidth = 670
+  end
+  inherited dtsDB: TDataSource
+    DataSet = dtmSystem.tblContas
+  end
+  object ImageList1: TImageList
+    Left = 632
+    Top = 56
+    Bitmap = {
+      494C01010C001800E40110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000004000000001002000000000000040
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000993300009933000099330000993300009933
+      0000993300009933000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000E80AA000E80
+      AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6
+      FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478
+      7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2
+      FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A600000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A60000000000000000000000000088452400884524008845
+      2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A
+      FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE
+      BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9
+      FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D
+      5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436
+      FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2
+      C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF
+      FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE
+      FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F
+      F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE
+      FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F
+      F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B
+      6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47
+      FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066
+      00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC
+      D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3
+      F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E
+      E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3
+      F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E
+      E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84
+      5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC
+      FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693
+      2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6
+      F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D
+      ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F
+      E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D
+      ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F
+      E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B
+      2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE
+      FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693
+      2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9
+      FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F
+      EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F
+      EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070
+      E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90
+      9000759EAE00729BA50099330000993300009933000099330000993300009933
+      00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1
+      E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB
+      FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A
+      F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A
+      F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070
+      E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E
+      D800147AD0000C72CF001888AF00000000000000000000000000000000000000
+      000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5
+      EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF
+      FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD
+      F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D
+      E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD
+      F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D
+      E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699
+      FC003699FC003394F9002985F3001888AF000000000000000000000000000000
+      00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7
+      F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D
+      BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2
+      FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A
+      E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2
+      FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A
+      E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA
+      FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000
+      000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA
+      F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7
+      CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE
+      FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4
+      EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC
+      FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA
+      D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751
+      77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF
+      FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE
+      DD00986B660000000000000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291
+      CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1
+      E400986B66000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C500000000000000000000000000000000002583B0006DADCB00277D
+      A8000A5882000A588200005684001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5
+      EB00986B66000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      00000000000000000000000000000000000000000000000000003990B9002983
+      AC00116B96000056840000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4
+      8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4
+      8200986B66000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A60000000000000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE
+      FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558
+      D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE
+      FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F
+      F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792
+      F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532
+      D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3
+      F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E
+      E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B
+      FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631
+      DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F
+      D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432
+      DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D
+      ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F
+      E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040
+      FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258
+      E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199
+      EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333
+      E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F
+      EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070
+      E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955
+      FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159
+      EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6
+      F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333
+      E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A
+      F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070
+      E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C
+      FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632
+      EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349
+      EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233
+      EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD
+      F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D
+      E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC
+      FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025
+      ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021
+      EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166
+      F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2
+      FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A
+      E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073
+      F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073
+      F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159
+      F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      000000000000000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      330065333300000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      3300653333000000000000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F07006533330000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2
+      7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961
+      0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9
+      910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD
+      0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9
+      910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD
+      0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2
+      7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F
+      2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B
+      3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65
+      0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3
+      580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF
+      110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3
+      580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF
+      110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B
+      3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98
+      5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D
+      3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67
+      0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0
+      570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1
+      150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0
+      570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1
+      150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D
+      3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98
+      5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C
+      5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67
+      0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1
+      1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1
+      1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C
+      5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98
+      5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2
+      7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66
+      0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7
+      900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2
+      1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7
+      900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2
+      1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2
+      7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98
+      5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9
+      B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63
+      0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1
+      1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1
+      1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9
+      B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991
+      4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE
+      7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE
+      7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F09000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C0000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F090000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F0900000000000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000400000000100010000000000000200000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000
+      C003C00380030000800180010003000080018001000300000000000000030000
+      000000008003000000000000C001000000000000C1FC00000000000080FE0001
+      00000000007F000780018001007F000780018001007F0007C003C00300FF0007
+      E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000
+      000000000000}
+  end
+end

ucadContas.pas

@@ -0,0 +1,117 @@
+unit ucadContas;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB,
+  Datasnap.DBClient, Vcl.ExtCtrls, Vcl.DBCtrls,
+  Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids,
+  System.ImageList, Vcl.ImgList;
+
+type
+  TcadContas = class(TmstCadastro)
+    dbrbx_situacao: TDBRadioGroup;
+    dbedt_agencia: TDBEdit;
+    lbl_agencia: TLabel;
+    dbedt_adigito: TDBEdit;
+    lbl_adigito: TLabel;
+    lbl_cedente: TLabel;
+    dbedt_cedente: TDBEdit;
+    lbl_cdigito: TLabel;
+    dbedt_cdigito: TDBEdit;
+    dbedt_convenio: TDBEdit;
+    lbl_convenio: TLabel;
+    lbl_codigito: TLabel;
+    dbedt_codigito: TDBEdit;
+    lbl_conta: TLabel;
+    dbedt_conta: TDBEdit;
+    dbedt_cadigito: TDBEdit;
+    lbl_cadigito: TLabel;
+    dbgrd_conta: TDBGrid;
+    ImageList1: TImageList;
+    DBEdit2: TDBEdit;
+    Label1: TLabel;
+    procedure FormCreate(Sender: TObject);
+    procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer;
+      var Resize: Boolean);
+    procedure WMMoving(var MSG: TWMMoving); message WM_MOVING;
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure dbgrd_contaTitleClick(Column: TColumn);
+    procedure dtsDBStateChange(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  cadContas: TcadContas;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+procedure TcadContas.dbgrd_contaTitleClick(Column: TColumn);
+begin
+  inherited;
+dtmSystem.OrganizaPorColuna(dbgrd_conta.DataSource.DataSet, Column);
+end;
+
+procedure TcadContas.dtsDBStateChange(Sender: TObject);
+begin
+  inherited;
+    dbgrd_conta.Enabled := not(dtsDB.State in [dsEdit, dsInsert]);
+end;
+
+procedure TcadContas.FormCanResize(Sender: TObject;
+  var NewWidth, NewHeight: Integer; var Resize: Boolean);
+begin
+  inherited;
+  Resize := false;
+end;
+
+procedure TcadContas.FormCreate(Sender: TObject);
+begin
+  inherited;
+  dtmSystem.SetupHackedNavigator(navPrincipal, ImageList1, 's');
+end;
+
+procedure TcadContas.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TcadContas.WMMoving(var MSG: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with MSG.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(MSG.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(MSG.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(MSG.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(MSG.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

ucadEmpresa.pas

@@ -0,0 +1,599 @@
+unit ucadEmpresa;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, Jpeg, Clipbrd, System.UITypes,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls,
+  Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, Vcl.Buttons,
+  System.ImageList, Vcl.ImgList, Vcl.ExtDlgs, rImageZoom, rDBComponents,
+  Vcl.Menus, ACBrBase, ACBrMail, Vcl.Grids, Vcl.DBGrids;
+
+// Tentando "Hackear" o TDBNavigator
+type
+  THackDBNavigator = class(TDBNavigator);
+
+type
+  TcadEmpresa = class(TmstCadastro)
+    lbl_cidade: TLabel;
+    lbl_bairro: TLabel;
+    lbl_tel: TLabel;
+    lbl_email: TLabel;
+    lbl_website: TLabel;
+    lbl_fantasia: TLabel;
+    lbl_cnpj: TLabel;
+    lbl_inscriest: TLabel;
+    lbl_inscrimuni: TLabel;
+    lbl_cep: TLabel;
+    lbl_end: TLabel;
+    lbl_num: TLabel;
+    lbl_compl: TLabel;
+    lbl_uf: TLabel;
+    dblucmbox_cidade: TDBLookupComboBox;
+    dbedt_bairro: TDBEdit;
+    dbedt_tel: TDBEdit;
+    dbedt_email: TDBEdit;
+    dbedt_website: TDBEdit;
+    dbedt_fantasia: TDBEdit;
+    dbedt_cnpj: TDBEdit;
+    dbedt_inscriest: TDBEdit;
+    dbedt_inscrimuni: TDBEdit;
+    dbedt_cep: TDBEdit;
+    dbedt_end: TDBEdit;
+    dbedt_num: TDBEdit;
+    dbedt_compl: TDBEdit;
+    dblucmbox_uf: TDBLookupComboBox;
+    tabLogo: TTabSheet;
+    spdbtn_clearimg: TSpeedButton;
+    spdbtn_loadimg: TSpeedButton;
+    lbl_carregarimg: TLabel;
+    lbl_limparimg: TLabel;
+    ImageList2: TImageList;
+    tabEmail: TTabSheet;
+    btn_testconex: TButton;
+    dtsUF: TDataSource;
+    dtsCidades: TDataSource;
+    tabJuros: TTabSheet;
+    lbl_debito: TLabel;
+    dbedt_debito: TDBEdit;
+    lbl_credvista: TLabel;
+    dbedt_credvista: TDBEdit;
+    lbl_cred3: TLabel;
+    dbedt_cred3: TDBEdit;
+    lbl_cred6: TLabel;
+    dbedt_cred6: TDBEdit;
+    lbl_cred12: TLabel;
+    dbedt_cred12: TDBEdit;
+    rdbimg_logo: TrDBImage;
+    opd_logo: TOpenPictureDialog;
+    lbl_financiamento: TLabel;
+    dbedt_financiamento: TDBEdit;
+    lbl_titulologo: TLabel;
+    dbedt_titulologo: TDBEdit;
+    PopupMenu1: TPopupMenu;
+    Copiar1: TMenuItem;
+    gb_taxacredor: TGroupBox;
+    gb_repassebanco: TGroupBox;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    dbedt_credvistabanco: TDBEdit;
+    dbedt_debitobanco: TDBEdit;
+    dbedt_cred3banco: TDBEdit;
+    dbedt_cred12banco: TDBEdit;
+    dbedt_cred6banco: TDBEdit;
+    ACBrMail: TACBrMail;
+    pnl_email: TPanel;
+    lbl_nomeemail: TLabel;
+    dbedt_nomeemail: TDBEdit;
+    lbl_useremail: TLabel;
+    dbedt_useremail: TDBEdit;
+    lbl_senhaemail: TLabel;
+    dbedt_senhaemail: TDBEdit;
+    Label1: TLabel;
+    DBEdit2: TDBEdit;
+    lbl_smtp: TLabel;
+    dbedt_smtp: TDBEdit;
+    lbl_portasmtp: TLabel;
+    dbedt_portasmtp: TDBEdit;
+    dbcb_tls: TDBCheckBox;
+    dbcb_ssl: TDBCheckBox;
+    Label7: TLabel;
+    DBEdit3: TDBEdit;
+    Label8: TLabel;
+    DBEdit4: TDBEdit;
+    dbgrdCartoes: TDBGrid;
+    dbnavCartoes: TDBNavigator;
+    procedure dtsDBDataChange(Sender: TObject; Field: TField);
+    procedure FormCreate(Sender: TObject);
+    procedure dtsUFDataChange(Sender: TObject; Field: TField);
+    procedure dtsCidadesDataChange(Sender: TObject; Field: TField);
+    procedure dtsDBStateChange(Sender: TObject);
+    procedure spdbtn_loadimgClick(Sender: TObject);
+    procedure spdbtn_clearimgClick(Sender: TObject);
+    procedure Copiar1Click(Sender: TObject);
+    procedure PopupMenu1Popup(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormShow(Sender: TObject);
+    procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn);
+    procedure btn_testconexClick(Sender: TObject);
+  private
+    procedure SetupHackedNavigator(const Navigator: TDBNavigator;
+      const Glyphs: TImageList);
+    function JpgToBmp(path: string): string;
+    function FindSubcontrolAtPos(AControl: TControl;
+      AScreenPos, AClientPos: TPoint): TControl;
+    function FindControlAtPos(AScreenPos: TPoint): TControl;
+    procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
+    { Private declarations }
+  public
+    pos: TPoint;
+    primeiro_cad: boolean;
+    { Public declarations }
+  end;
+
+var
+  cadEmpresa: TcadEmpresa;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+
+// praticamente tudo aqui é igual ao cadastro de beneficiários
+// única coisa que muda é a adição do tratamento da logomarca que
+// segue a mesma lógica dos componentes que usam o banco, mas não
+// são componentes de database
+
+procedure TcadEmpresa.btn_testconexClick(Sender: TObject);
+begin
+  with ACBrMail do
+  begin
+    try
+      Clear;
+      IsHTML := true;
+      Subject := 'Teste de conexão';
+      From := dtmSystem.tblEmpresaTX_EMAIL.AsString;
+      FromName := dtmSystem.tblEmpresaTX_EMAILNOME.AsString;
+      Host := dtmSystem.tblEmpresaTX_SMTP.AsString;
+      Username := dtmSystem.tblEmpresaTX_USUARIO.AsString;
+      Password := dtmSystem.tblEmpresaTX_SENHA.AsString;
+      Port := dtmSystem.tblEmpresaTX_PORTA.AsString;
+      if dtmSystem.tblEmpresaTP_TLS.AsString = 'S' then
+      begin
+        SetTLS := true;
+      end
+      else
+      begin
+        SetTLS := false;
+      end;
+      if dtmSystem.tblEmpresaTP_SSL.AsString = 'S' then
+      begin
+        SetSSL := true;
+      end
+      else
+      begin
+        SetSSL := false;
+      end;
+      DefaultCharset := TMailCharset(0);
+      IDECharset := TMailCharset(0);
+      AddAddress('marcus@nexverse.com.br', 'Teste de conexão');
+      Body.Text := 'Teste de conexão';
+      Screen.Cursor := crHourGlass;
+      Send(false);
+      Application.ProcessMessages;
+      Screen.Cursor := crDefault;
+      Showmessage
+        ('Email teste enviado com sucesso. Configuração de email correta!');
+    except
+      Screen.Cursor := crDefault;
+      Showmessage
+        ('Falha ao enviar email de teste. Configuração de email incorreta!');
+    end;
+  end;
+end;
+
+procedure TcadEmpresa.Copiar1Click(Sender: TObject);
+var
+  Control: TControl;
+begin
+  // usa duas funções que achei na net pra pegar o controle na pos do mouse pra poder copiar o conteúdo dele mesmo desabilitado
+  Control := FindControlAtPos(pos);
+  if Control is TDBEdit then
+  begin
+    Clipboard.AsText := (Control as TDBEdit).Text;
+  end;
+  if Control is TDBLookupComboBox then
+  begin
+    Clipboard.AsText := (Control as TDBLookupComboBox).Text;
+  end;
+  if Control is TrDBDateTimePicker then
+  begin
+    Clipboard.AsText := formatdatetime('dd/mm/yyyy',
+      (Control as TrDBDateTimePicker).Date);
+  end;
+  if Control is TDBMemo then
+  begin
+    (Control as TDBMemo).SelectAll;
+    (Control as TDBMemo).CopyToClipboard;
+  end;
+end;
+
+procedure TcadEmpresa.dtsCidadesDataChange(Sender: TObject; Field: TField);
+begin
+  inherited;
+  if (dtmSystem.tblEmpresaID_CIDADE.AsVariant >= 0) then
+  begin
+    dblucmbox_cidade.KeyValue := dtmSystem.tblEmpresaID_CIDADE.AsVariant;
+  end;
+end;
+
+procedure TcadEmpresa.dtsDBDataChange(Sender: TObject; Field: TField);
+begin
+  inherited;
+  // tabLogo.Enabled := grpDescricao.Enabled;
+end;
+
+procedure TcadEmpresa.dtsDBStateChange(Sender: TObject);
+begin
+  inherited;
+  tabLogo.Enabled := grpDescricao.Enabled;
+  pnl_email.Enabled := grpDescricao.Enabled;
+  tabJuros.Enabled := grpDescricao.Enabled;
+end;
+
+procedure TcadEmpresa.dtsUFDataChange(Sender: TObject; Field: TField);
+begin
+  if (dtmSystem.tblEmpresaID_ESTADO.AsVariant >= 0) then
+  begin
+    dblucmbox_uf.KeyValue := dtmSystem.tblEmpresaID_ESTADO.AsVariant;
+  end;
+  if (dtmSystem.tblEmpresaID_CIDADE.AsVariant >= 0) then
+  begin
+    dblucmbox_cidade.KeyValue := dtmSystem.tblEmpresaID_CIDADE.AsVariant;
+  end;
+end;
+
+function TcadEmpresa.FindControlAtPos(AScreenPos: TPoint): TControl;
+var
+  i: Integer;
+  f, m: TForm;
+  p: TPoint;
+  r: TRect;
+begin
+  Result := nil;
+  for i := Screen.FormCount - 1 downto 0 do
+  begin
+    f := Screen.Forms[i];
+    if f.Visible and (f.Parent = nil) and (f.FormStyle <> fsMDIChild) and
+      TRect.Create(f.Left, f.Top, f.Left + f.Width, f.Top + f.Height)
+      .Contains(AScreenPos) then
+      Result := f;
+  end;
+  Result := FindSubcontrolAtPos(Result, AScreenPos, AScreenPos);
+  if (Result is TForm) and (TForm(Result).ClientHandle <> 0) then
+  begin
+    Winapi.Windows.GetWindowRect(TForm(Result).ClientHandle, r);
+    p := TPoint.Create(AScreenPos.X - r.Left, AScreenPos.Y - r.Top);
+    m := nil;
+    for i := TForm(Result).MDIChildCount - 1 downto 0 do
+    begin
+      f := TForm(Result).MDIChildren[i];
+      if TRect.Create(f.Left, f.Top, f.Left + f.Width, f.Top + f.Height)
+        .Contains(p) then
+        m := f;
+    end;
+    if m <> nil then
+      Result := FindSubcontrolAtPos(m, AScreenPos, p);
+  end;
+end;
+
+function TcadEmpresa.FindSubcontrolAtPos(AControl: TControl;
+  AScreenPos, AClientPos: TPoint): TControl;
+var
+  i: Integer;
+  C: TControl;
+begin
+  Result := nil;
+  C := AControl;
+  if (C = nil) or not C.Visible or not TRect.Create(C.Left, C.Top,
+    C.Left + C.Width, C.Top + C.Height).Contains(AClientPos) then
+    Exit;
+  Result := AControl;
+  if AControl is TWinControl then
+    for i := 0 to TWinControl(AControl).ControlCount - 1 do
+    begin
+      C := FindSubcontrolAtPos(TWinControl(AControl).Controls[i], AScreenPos,
+        AControl.ScreenToClient(AScreenPos));
+      if C <> nil then
+        Result := C;
+    end;
+end;
+
+procedure TcadEmpresa.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  with dtmSystem do
+  begin
+    tblEnderecos.Close;
+    tblCidades.Close;
+    tblEstados.Close;
+    tblEmpresa.Close;
+  end;
+  cadEmpresa := nil;
+end;
+
+procedure TcadEmpresa.FormCreate(Sender: TObject);
+begin
+  inherited;
+  if not(dtsUF.DataSet.Active) then
+  begin
+    dtsUF.DataSet.Open;
+  end;
+  if not(dtsCidades.DataSet.Active) then
+  begin
+    dtsCidades.DataSet.Open;
+  end;
+  SetupHackedNavigator(navPrincipal, ImageList2);
+  SetupHackedNavigator(dbnavCartoes, ImageList2);
+  // navPrincipal.Enabled := dtmSystem.VerificarPermissao('EMPCBR.01');
+  primeiro_cad := false;
+end;
+
+procedure TcadEmpresa.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TcadEmpresa.FormShow(Sender: TObject);
+begin
+  inherited;
+  if not(dtmSystem.tblEmpresa.Active) then
+  begin
+    dtmSystem.tblEmpresa.Open;
+  end;
+  if dtmSystem.tblEmpresa.IsEmpty then
+  begin
+    // navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + [nbInsert];
+    dtsDB.DataSet.Append;
+    primeiro_cad := true;
+  end;
+end;
+
+function TcadEmpresa.JpgToBmp(path: string): string;
+var
+  Bmp: TBitmap;
+  Jpeg: TJPEGImage;
+  novo_path: string;
+begin
+  Result := '';
+  if FileExists(path) then
+  begin
+    novo_path := ChangeFileExt(path, '.bmp');
+    Bmp := TBitmap.Create;
+    Jpeg := TJPEGImage.Create;
+    Jpeg.LoadFromFile(path);
+    Bmp.Assign(Jpeg);
+    Bmp.SaveToFile(novo_path);
+    Result := novo_path;
+    Jpeg.Free;
+    Bmp.Free;
+  end;
+
+end;
+
+procedure TcadEmpresa.navPrincipalBeforeAction(Sender: TObject;
+  Button: TNavigateBtn);
+begin
+  case Button of
+    nbPost:
+      begin
+        if DBEdit1.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira uma Razão Social antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_fantasia.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um Nome Fantasia antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_debito.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um valor para taxa de débito antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_credvista.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um valor para taxa de crédito a vista antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_cred3.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um valor para taxa de crédito em até 3x antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_cred6.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um valor para taxa de crédito em até 6x antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_cred12.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um valor para taxa de crédito em até 12x antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_debitobanco.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um valor para taxa de débito de repasse para banco antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_credvistabanco.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um valor para taxa de crédito a vista de repasse para banco antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_cred3banco.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um valor para taxa de crédito em até 3x de repasse para banco antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_cred6banco.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um valor para taxa de crédito em até 6x de repasse para banco antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        if dbedt_cred12banco.Text = '' then
+        begin
+          MessageDlg
+            ('Por favor insira um valor para taxa de crédito em até 12x de repasse para banco antes de finalizar o cadastro da Empresa.',
+            mtWarning, [mbOK], 0);
+          Abort;
+        end;
+        primeiro_cad := false;
+        // navPrincipal.VisibleButtons := navPrincipal.VisibleButtons - [nbInsert];
+      end;
+    nbCancel:
+      begin
+        if primeiro_cad = true then
+        begin
+          MessageDlg('Por favor termine de cadastrar a Empresa.', mtWarning,
+            [mbOK], 0);
+          Abort;
+        end;
+      end;
+  end;
+  inherited;
+end;
+
+procedure TcadEmpresa.PopupMenu1Popup(Sender: TObject);
+begin
+  pos := Mouse.CursorPos;
+end;
+
+procedure TcadEmpresa.SetupHackedNavigator(const Navigator: TDBNavigator;
+  const Glyphs: TImageList);
+const
+  Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Próximo',
+    'Último', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar',
+    'Atualizar', 'Aplicar Atualizações', 'Cancelar Atualizãções');
+  (* Captions : array[TNavigateBtn] of string =
+    ('First', 'Prior', 'Next', 'Last', 'Insert',
+    'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *)
+var
+  btn: TNavigateBtn;
+begin
+  for btn := Low(TNavigateBtn) to High(TNavigateBtn) do
+    if Navigator = navPrincipal then
+    begin
+      with THackDBNavigator(Navigator).Buttons[btn] do
+      begin
+        // from the Captions const array
+        Caption := Captions[btn];
+
+        // the number of images in the Glyph property
+        NumGlyphs := 1;
+        // Remove the old glyph.
+        Glyph := nil;
+        // Assign the custom one
+        Glyphs.GetBitmap(Integer(btn), Glyph);
+        // gylph above text
+        Layout := blGlyphTop;
+      end;
+    end
+    else
+      with THackDBNavigator(Navigator).Buttons[btn] do
+      begin
+        // from the Captions const array
+        // Caption := Captions[btn];
+
+        // the number of images in the Glyph property
+        NumGlyphs := 1;
+        // Remove the old glyph.
+        Glyph := nil;
+        // Assign the custom one
+        Glyphs.GetBitmap(Integer(btn), Glyph);
+        // gylph above text
+        Layout := blGlyphTop;
+      end;
+end;
+
+procedure TcadEmpresa.spdbtn_clearimgClick(Sender: TObject);
+begin
+  dtsDB.DataSet.FieldByName('IMG_LOGO').Clear;
+end;
+
+procedure TcadEmpresa.spdbtn_loadimgClick(Sender: TObject);
+begin
+  if opd_logo.Execute then
+  begin
+    if (ExtractFileExt(opd_logo.FileName) = '.jpg') or
+      (ExtractFileExt(opd_logo.FileName) = '.jpeg') then
+    begin
+      rdbimg_logo.LoadFromFile(JpgToBmp(opd_logo.FileName));
+    end
+    else
+    begin
+      rdbimg_logo.LoadFromFile(opd_logo.FileName);
+    end;
+  end;
+end;
+
+procedure TcadEmpresa.WMMoving(var Msg: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with Msg.DragRect^ do
+  begin
+    if Left < workArea.Left then
+      OffsetRect(Msg.DragRect^, workArea.Left - Left, 0);
+
+    if Top < workArea.Top then
+      OffsetRect(Msg.DragRect^, 0, workArea.Top - Top);
+
+    if Right > workArea.Right then
+      OffsetRect(Msg.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

ucadGrupos.dfm

@@ -0,0 +1,31 @@
+inherited cadGrupos: TcadGrupos
+  Caption = 'Grupos'
+  ClientHeight = 261
+  ClientWidth = 435
+  ExplicitWidth = 441
+  ExplicitHeight = 289
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited stbStatus: TStatusBar
+    Top = 242
+    Width = 435
+  end
+  object DBGrid1: TDBGrid
+    Left = 8
+    Top = 8
+    Width = 386
+    Height = 153
+    DataSource = dtsGrupos
+    TabOrder = 1
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object dtsGrupos: TDataSource
+    DataSet = dtmSystem.tblGrupos
+    Left = 320
+    Top = 112
+  end
+end

ucadGrupos.pas

@@ -0,0 +1,29 @@
+unit ucadGrupos;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Data.DB,
+  Vcl.Grids, Vcl.DBGrids;
+
+type
+  TcadGrupos = class(TmstMaster)
+    dtsGrupos: TDataSource;
+    DBGrid1: TDBGrid;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  cadGrupos: TcadGrupos;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+end.

ucadIndices.dfm

@@ -0,0 +1,642 @@
+inherited cadIndices: TcadIndices
+  BorderStyle = bsSingle
+  Caption = #205'ndices'
+  ClientHeight = 464
+  ClientWidth = 735
+  ExplicitWidth = 741
+  ExplicitHeight = 492
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited GroupBox2: TGroupBox
+    Left = 151
+    Width = 571
+    ExplicitLeft = 151
+    ExplicitWidth = 571
+    inherited pcClientes: TPageControl
+      Width = 549
+      Font.Name = 'MS Sans Serif'
+      ExplicitWidth = 549
+      inherited tabCadastro: TTabSheet
+        ExplicitLeft = 4
+        ExplicitTop = 24
+        ExplicitWidth = 541
+        ExplicitHeight = 272
+        object dbgrd_indices: TDBGrid
+          Left = 3
+          Top = 3
+          Width = 534
+          Height = 266
+          DataSource = dtsDB
+          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
+          TabOrder = 0
+          TitleFont.Charset = DEFAULT_CHARSET
+          TitleFont.Color = clWindowText
+          TitleFont.Height = -11
+          TitleFont.Name = 'MS Sans Serif'
+          TitleFont.Style = []
+          OnTitleClick = dbgrd_indicesTitleClick
+          Columns = <
+            item
+              Expanded = False
+              FieldName = 'TX_NOME'
+              Title.Caption = 'Nome'
+              Width = 431
+              Visible = True
+            end
+            item
+              Expanded = False
+              FieldName = 'PR_INDICE'
+              Title.Caption = '%'
+              Visible = True
+            end>
+        end
+      end
+    end
+  end
+  inherited stbStatus: TStatusBar
+    Top = 445
+    Width = 735
+    ExplicitTop = 445
+    ExplicitWidth = 735
+  end
+  inherited grpDescricao: TGroupBox
+    Left = 151
+    Width = 571
+    ExplicitLeft = 151
+    ExplicitWidth = 571
+    inherited DBEdit1: TDBEdit
+      Width = 549
+      DataField = 'TX_NOME'
+      ExplicitWidth = 549
+    end
+  end
+  inherited navPrincipal: TDBNavigator
+    Left = 151
+    Width = 570
+    DataSource = dtsDB
+    ExplicitLeft = 151
+    ExplicitWidth = 570
+  end
+  object GroupBox1: TGroupBox [4]
+    Left = 8
+    Top = 8
+    Width = 137
+    Height = 431
+    TabOrder = 4
+    object dblulb_indices: TDBLookupListBox
+      Left = 7
+      Top = 13
+      Width = 121
+      Height = 407
+      KeyField = 'ID_INDICE'
+      ListField = 'TX_NOME'
+      ListSource = dtsDB
+      TabOrder = 0
+      TabStop = False
+    end
+  end
+  inherited dtsDB: TDataSource
+    DataSet = dtmSystem.tblIndices
+    Left = 616
+    Top = 70
+  end
+  object ImageList1: TImageList
+    Left = 677
+    Top = 72
+    Bitmap = {
+      494C01010C001800980110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000004000000001002000000000000040
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000993300009933000099330000993300009933
+      0000993300009933000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000E80AA000E80
+      AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6
+      FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478
+      7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2
+      FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A600000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A60000000000000000000000000088452400884524008845
+      2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A
+      FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE
+      BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9
+      FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D
+      5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436
+      FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2
+      C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF
+      FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE
+      FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F
+      F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE
+      FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F
+      F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B
+      6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47
+      FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066
+      00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC
+      D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3
+      F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E
+      E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3
+      F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E
+      E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84
+      5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC
+      FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693
+      2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6
+      F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D
+      ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F
+      E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D
+      ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F
+      E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B
+      2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE
+      FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693
+      2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9
+      FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F
+      EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F
+      EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070
+      E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90
+      9000759EAE00729BA50099330000993300009933000099330000993300009933
+      00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1
+      E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB
+      FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A
+      F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A
+      F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070
+      E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E
+      D800147AD0000C72CF001888AF00000000000000000000000000000000000000
+      000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5
+      EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF
+      FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD
+      F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D
+      E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD
+      F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D
+      E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699
+      FC003699FC003394F9002985F3001888AF000000000000000000000000000000
+      00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7
+      F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D
+      BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2
+      FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A
+      E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2
+      FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A
+      E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA
+      FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000
+      000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA
+      F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7
+      CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE
+      FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4
+      EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC
+      FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA
+      D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751
+      77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF
+      FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE
+      DD00986B660000000000000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291
+      CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1
+      E400986B66000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C500000000000000000000000000000000002583B0006DADCB00277D
+      A8000A5882000A588200005684001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5
+      EB00986B66000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      00000000000000000000000000000000000000000000000000003990B9002983
+      AC00116B96000056840000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4
+      8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4
+      8200986B66000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A60000000000000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE
+      FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558
+      D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE
+      FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F
+      F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792
+      F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532
+      D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3
+      F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E
+      E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B
+      FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631
+      DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F
+      D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432
+      DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D
+      ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F
+      E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040
+      FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258
+      E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199
+      EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333
+      E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F
+      EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070
+      E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955
+      FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159
+      EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6
+      F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333
+      E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A
+      F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070
+      E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C
+      FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632
+      EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349
+      EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233
+      EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD
+      F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D
+      E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC
+      FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025
+      ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021
+      EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166
+      F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2
+      FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A
+      E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073
+      F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073
+      F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159
+      F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      000000000000000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      330065333300000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      3300653333000000000000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F07006533330000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2
+      7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961
+      0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9
+      910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD
+      0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9
+      910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD
+      0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2
+      7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F
+      2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B
+      3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65
+      0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3
+      580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF
+      110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3
+      580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF
+      110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B
+      3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98
+      5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D
+      3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67
+      0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0
+      570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1
+      150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0
+      570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1
+      150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D
+      3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98
+      5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C
+      5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67
+      0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1
+      1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1
+      1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C
+      5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98
+      5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2
+      7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66
+      0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7
+      900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2
+      1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7
+      900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2
+      1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2
+      7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98
+      5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9
+      B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63
+      0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1
+      1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1
+      1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9
+      B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991
+      4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE
+      7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE
+      7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F09000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C0000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F090000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F0900000000000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000400000000100010000000000000200000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000
+      C003C00380030000800180010003000080018001000300000000000000030000
+      000000008003000000000000C001000000000000C1FC00000000000080FE0001
+      00000000007F000780018001007F000780018001007F0007C003C00300FF0007
+      E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000
+      000000000000}
+  end
+end

ucadIndices.pas

@@ -0,0 +1,143 @@
+unit ucadIndices;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, Vcl.Buttons, System.UITypes,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.Grids,
+  Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls,
+  System.ImageList, Vcl.ImgList, ZAbstractRODataset, ZAbstractDataset, ZDataset;
+
+type
+  THackDBNavigator = class(TDBNavigator);
+
+type
+  TcadIndices = class(TmstCadastro)
+    dbgrd_indices: TDBGrid;
+    ImageList1: TImageList;
+    GroupBox1: TGroupBox;
+    dblulb_indices: TDBLookupListBox;
+    procedure FormCreate(Sender: TObject);
+    procedure dtsDBStateChange(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure dbgrd_indicesTitleClick(Column: TColumn);
+  private
+    procedure SetupHackedNavigator(const Navigator: TDBNavigator;
+      const Glyphs: TImageList; S: string);
+      procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  cadIndices: TcadIndices;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+procedure TcadIndices.dbgrd_indicesTitleClick(Column: TColumn);
+begin
+  inherited;
+  dtmSystem.OrganizaPorColuna(dbgrd_indices.DataSource.DataSet,Column);
+end;
+
+procedure TcadIndices.dtsDBStateChange(Sender: TObject);
+begin
+  inherited;
+  dblulb_indices.Enabled := not (dtsDB.DataSet.State in [dsEdit,dsInsert]);
+end;
+
+procedure TcadIndices.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  cadIndices := nil;
+end;
+
+procedure TcadIndices.FormCreate(Sender: TObject);
+begin
+  inherited;
+  SetupHackedNavigator(navPrincipal, ImageList1, 's');
+end;
+
+procedure TcadIndices.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TcadIndices.SetupHackedNavigator(const Navigator: TDBNavigator;
+  const Glyphs: TImageList; S: string);
+const
+  Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Próximo',
+    'Último', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar',
+    'Atualizar', 'Aplicar Atualizações', 'Cancelar Atualizãções');
+  (* Captions : array[TNavigateBtn] of string =
+    ('First', 'Prior', 'Next', 'Last', 'Insert',
+    'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *)
+  Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Próximo',
+    'Último', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar',
+    'Atualizar', 'Aplicar Atualizações', 'Cancelar Atualizãções');
+var
+  btn: TNavigateBtn;
+begin
+  // função propriamente dita para "hackear" o navigator
+  for btn := Low(TNavigateBtn) to High(TNavigateBtn) do
+    with THackDBNavigator(Navigator).Buttons[btn] do
+    begin
+      // from the Captions const array
+
+      Hint := Hints[btn];
+
+      if S = 's' then
+      begin
+        Caption := Captions[btn];
+      end;
+
+      // the number of images in the Glyph property
+      NumGlyphs := 1;
+      // Remove the old glyph.
+      Glyph := nil;
+      // Assign the custom one
+      Glyphs.GetBitmap(Integer(btn), Glyph);
+      // gylph above text
+      Layout := blGlyphTop;
+
+      Font.Style := Font.Style - [fsbold];
+    end;
+end;
+
+procedure TcadIndices.WMMoving(var Msg: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with Msg.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(Msg.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(Msg.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(Msg.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

ucadModeloRepasse.dfm

@@ -0,0 +1,941 @@
+inherited cadModeloRepasse: TcadModeloRepasse
+  BorderStyle = bsSingle
+  Caption = 'Modelo de Repasse'
+  ClientHeight = 555
+  ClientWidth = 675
+  ExplicitWidth = 681
+  ExplicitHeight = 583
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited GroupBox2: TGroupBox
+    Left = 152
+    Width = 520
+    Height = 409
+    ExplicitLeft = 152
+    ExplicitWidth = 520
+    ExplicitHeight = 409
+    inherited pcClientes: TPageControl
+      Top = 103
+      Width = 504
+      TabStop = False
+      ExplicitTop = 103
+      ExplicitWidth = 504
+      inherited tabCadastro: TTabSheet
+        Caption = '&Cadastro de Fases'
+        Enabled = True
+        ExplicitLeft = 4
+        ExplicitTop = 24
+        ExplicitWidth = 496
+        ExplicitHeight = 272
+        object dbg_repasse: TDBGrid
+          Left = 0
+          Top = 144
+          Width = 488
+          Height = 125
+          TabStop = False
+          DataSource = dtsfases
+          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
+          ReadOnly = True
+          TabOrder = 0
+          TitleFont.Charset = DEFAULT_CHARSET
+          TitleFont.Color = clWindowText
+          TitleFont.Height = -11
+          TitleFont.Name = 'MS Sans Serif'
+          TitleFont.Style = []
+          Columns = <
+            item
+              Expanded = False
+              FieldName = 'PR_PRINCIPAL'
+              Title.Caption = 'Principal'
+              Visible = True
+            end
+            item
+              Expanded = False
+              FieldName = 'PR_JUROS'
+              Title.Caption = 'Juros'
+              Visible = True
+            end
+            item
+              Expanded = False
+              FieldName = 'PR_MULTA'
+              Title.Caption = 'Multa'
+              Visible = True
+            end
+            item
+              Expanded = False
+              FieldName = 'PR_ENCARGOS'
+              Title.Caption = 'Encargos'
+              Visible = True
+            end
+            item
+              Expanded = False
+              FieldName = 'PR_CORRIGIDO'
+              Title.Caption = 'Corrigido'
+              Visible = True
+            end
+            item
+              Expanded = False
+              FieldName = 'MIN_ATRASO'
+              Title.Caption = 'Atraso Min'
+              Visible = True
+            end
+            item
+              Expanded = False
+              FieldName = 'MAX_ATRASO'
+              Title.Caption = 'Atraso Max'
+              Visible = True
+            end>
+        end
+        object gb_porcentagens: TGroupBox
+          Left = 0
+          Top = 55
+          Width = 488
+          Height = 83
+          Caption = 'Porcentagens:'
+          Enabled = False
+          TabOrder = 1
+          object lbl_principal: TLabel
+            Left = 10
+            Top = 27
+            Width = 43
+            Height = 13
+            Caption = 'Principal:'
+          end
+          object lbl_juros: TLabel
+            Left = 70
+            Top = 27
+            Width = 28
+            Height = 13
+            Caption = 'Juros:'
+          end
+          object lbl_multa: TLabel
+            Left = 128
+            Top = 27
+            Width = 29
+            Height = 13
+            Caption = 'Multa:'
+          end
+          object lbl_encargos: TLabel
+            Left = 185
+            Top = 27
+            Width = 48
+            Height = 13
+            Caption = 'Encargos:'
+          end
+          object lbl_corrigido: TLabel
+            Left = 244
+            Top = 27
+            Width = 44
+            Height = 13
+            Caption = 'Corrigido:'
+          end
+          object lbl_atrasomin: TLabel
+            Left = 308
+            Top = 27
+            Width = 53
+            Height = 13
+            Caption = 'Atraso Min:'
+          end
+          object lbl_atrasomax: TLabel
+            Left = 372
+            Top = 27
+            Width = 56
+            Height = 13
+            Caption = 'Atraso Max:'
+          end
+          object dbedt_prprin: TDBEdit
+            Left = 10
+            Top = 46
+            Width = 45
+            Height = 21
+            DataField = 'PR_PRINCIPAL'
+            DataSource = dtsfases
+            TabOrder = 0
+            OnExit = dbedt_prprinExit
+            OnKeyPress = dbedt_prprinKeyPress
+          end
+          object dbedt_prjuros: TDBEdit
+            Left = 70
+            Top = 46
+            Width = 45
+            Height = 21
+            DataField = 'PR_JUROS'
+            DataSource = dtsfases
+            TabOrder = 1
+            OnExit = dbedt_prjurosExit
+            OnKeyPress = dbedt_prjurosKeyPress
+          end
+          object dbedt_prmulta: TDBEdit
+            Left = 128
+            Top = 46
+            Width = 45
+            Height = 21
+            DataField = 'PR_MULTA'
+            DataSource = dtsfases
+            TabOrder = 2
+            OnExit = dbedt_prmultaExit
+            OnKeyPress = dbedt_prmultaKeyPress
+          end
+          object dbedt_enc: TDBEdit
+            Left = 185
+            Top = 46
+            Width = 45
+            Height = 21
+            DataField = 'PR_ENCARGOS'
+            DataSource = dtsfases
+            TabOrder = 3
+            OnExit = dbedt_encExit
+            OnKeyPress = dbedt_encKeyPress
+          end
+          object dbedt_prcorrigido: TDBEdit
+            Left = 244
+            Top = 46
+            Width = 45
+            Height = 21
+            DataField = 'PR_CORRIGIDO'
+            DataSource = dtsfases
+            TabOrder = 4
+            OnExit = dbedt_prcorrigidoExit
+            OnKeyPress = dbedt_prcorrigidoKeyPress
+          end
+          object dbedt_atrasomin: TDBEdit
+            Left = 308
+            Top = 46
+            Width = 45
+            Height = 21
+            DataField = 'MIN_ATRASO'
+            DataSource = dtsfases
+            TabOrder = 5
+            OnExit = dbedt_prcorrigidoExit
+            OnKeyPress = dbedt_prcorrigidoKeyPress
+          end
+          object dbedt_atrasomax: TDBEdit
+            Left = 372
+            Top = 46
+            Width = 45
+            Height = 21
+            DataField = 'MAX_ATRASO'
+            DataSource = dtsfases
+            TabOrder = 6
+            OnExit = dbedt_prcorrigidoExit
+            OnKeyPress = dbedt_prcorrigidoKeyPress
+          end
+        end
+        object navfases: TDBNavigator
+          Left = 3
+          Top = 5
+          Width = 480
+          Height = 44
+          DataSource = dtsfases
+          VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
+          Hints.Strings = (
+            'Primeiro Registro'
+            'Registro Anterior'
+            'Pr'#243'ximo Registro'
+            #218'ltimo Registro'
+            'Criar Registro'
+            'Apagar Registro'
+            'Editar Registro'
+            'Salvar Registro'
+            'Cancelar'
+            'Atualizar'
+            'Apply updates'
+            'Cancel updates')
+          TabOrder = 2
+          BeforeAction = navfasesBeforeAction
+        end
+      end
+    end
+    object GroupBox3: TGroupBox
+      Left = 12
+      Top = 14
+      Width = 501
+      Height = 83
+      Caption = 'Porcentagens:'
+      Enabled = False
+      TabOrder = 1
+      object Label1: TLabel
+        Left = 10
+        Top = 27
+        Width = 43
+        Height = 13
+        Caption = 'Principal:'
+      end
+      object Label2: TLabel
+        Left = 70
+        Top = 27
+        Width = 30
+        Height = 13
+        Caption = 'Juros:'
+      end
+      object Label3: TLabel
+        Left = 128
+        Top = 27
+        Width = 30
+        Height = 13
+        Caption = 'Multa:'
+      end
+      object Label4: TLabel
+        Left = 185
+        Top = 27
+        Width = 48
+        Height = 13
+        Caption = 'Encargos:'
+      end
+      object Label5: TLabel
+        Left = 244
+        Top = 27
+        Width = 47
+        Height = 13
+        Caption = 'Corrigido:'
+      end
+      object DBEdit2: TDBEdit
+        Left = 10
+        Top = 46
+        Width = 45
+        Height = 21
+        DataField = 'PR_PRINCIPAL'
+        DataSource = dtsDB
+        TabOrder = 0
+        OnExit = DBEdit2Exit
+        OnKeyPress = DBEdit2KeyPress
+      end
+      object DBEdit3: TDBEdit
+        Left = 70
+        Top = 46
+        Width = 45
+        Height = 21
+        DataField = 'PR_JUROS'
+        DataSource = dtsDB
+        TabOrder = 1
+        OnExit = DBEdit3Exit
+        OnKeyPress = DBEdit3KeyPress
+      end
+      object DBEdit4: TDBEdit
+        Left = 128
+        Top = 46
+        Width = 45
+        Height = 21
+        DataField = 'PR_MULTA'
+        DataSource = dtsDB
+        TabOrder = 2
+        OnExit = DBEdit4Exit
+        OnKeyPress = DBEdit4KeyPress
+      end
+      object DBEdit5: TDBEdit
+        Left = 185
+        Top = 46
+        Width = 45
+        Height = 21
+        DataField = 'PR_ENCARGOS'
+        DataSource = dtsDB
+        TabOrder = 3
+        OnExit = DBEdit5Exit
+        OnKeyPress = DBEdit5KeyPress
+      end
+      object DBEdit6: TDBEdit
+        Left = 244
+        Top = 46
+        Width = 45
+        Height = 21
+        DataField = 'PR_CORRIGIDO'
+        DataSource = dtsDB
+        TabOrder = 4
+        OnExit = DBEdit6Exit
+        OnKeyPress = DBEdit6KeyPress
+      end
+    end
+  end
+  inherited stbStatus: TStatusBar
+    Top = 536
+    Width = 675
+    ExplicitTop = 536
+    ExplicitWidth = 675
+  end
+  inherited grpDescricao: TGroupBox
+    Left = 152
+    Width = 520
+    ExplicitLeft = 152
+    ExplicitWidth = 520
+    inherited DBEdit1: TDBEdit
+      Width = 492
+      DataField = 'TX_NOME'
+      ExplicitWidth = 492
+    end
+  end
+  inherited navPrincipal: TDBNavigator
+    Left = 154
+    Width = 510
+    DataSource = dtsDB
+    ExplicitLeft = 154
+    ExplicitWidth = 510
+  end
+  object GroupBox1: TGroupBox [4]
+    Left = 8
+    Top = 8
+    Width = 137
+    Height = 522
+    TabOrder = 4
+    object dblulb_indices: TDBLookupListBox
+      Left = 7
+      Top = 13
+      Width = 121
+      Height = 498
+      KeyField = 'ID_REPASSE'
+      ListField = 'TX_NOME'
+      ListSource = dtsDB
+      TabOrder = 0
+      TabStop = False
+    end
+  end
+  inherited dtsDB: TDataSource
+    DataSet = dtmSystem.tblRepasse
+    Left = 480
+    Top = 16
+  end
+  object ImageList1: TImageList
+    Left = 428
+    Top = 16
+    Bitmap = {
+      494C01010C001800900110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000004000000001002000000000000040
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000993300009933000099330000993300009933
+      0000993300009933000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000E80AA000E80
+      AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6
+      FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478
+      7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2
+      FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A600000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A60000000000000000000000000088452400884524008845
+      2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A
+      FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE
+      BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9
+      FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D
+      5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436
+      FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2
+      C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF
+      FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE
+      FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F
+      F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE
+      FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F
+      F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B
+      6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47
+      FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066
+      00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC
+      D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3
+      F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E
+      E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3
+      F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E
+      E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84
+      5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC
+      FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693
+      2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6
+      F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D
+      ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F
+      E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D
+      ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F
+      E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B
+      2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE
+      FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693
+      2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9
+      FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F
+      EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F
+      EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070
+      E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90
+      9000759EAE00729BA50099330000993300009933000099330000993300009933
+      00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1
+      E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB
+      FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A
+      F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A
+      F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070
+      E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E
+      D800147AD0000C72CF001888AF00000000000000000000000000000000000000
+      000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5
+      EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF
+      FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD
+      F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D
+      E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD
+      F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D
+      E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699
+      FC003699FC003394F9002985F3001888AF000000000000000000000000000000
+      00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7
+      F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D
+      BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2
+      FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A
+      E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2
+      FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A
+      E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA
+      FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000
+      000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA
+      F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7
+      CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE
+      FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4
+      EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC
+      FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA
+      D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751
+      77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF
+      FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE
+      DD00986B660000000000000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291
+      CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1
+      E400986B66000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C500000000000000000000000000000000002583B0006DADCB00277D
+      A8000A5882000A588200005684001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5
+      EB00986B66000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      00000000000000000000000000000000000000000000000000003990B9002983
+      AC00116B96000056840000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4
+      8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4
+      8200986B66000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A60000000000000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE
+      FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558
+      D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE
+      FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F
+      F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792
+      F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532
+      D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3
+      F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E
+      E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B
+      FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631
+      DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F
+      D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432
+      DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D
+      ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F
+      E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040
+      FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258
+      E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199
+      EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333
+      E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F
+      EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070
+      E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955
+      FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159
+      EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6
+      F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333
+      E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A
+      F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070
+      E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C
+      FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632
+      EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349
+      EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233
+      EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD
+      F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D
+      E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC
+      FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025
+      ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021
+      EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166
+      F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2
+      FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A
+      E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073
+      F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073
+      F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159
+      F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      000000000000000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      330065333300000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      3300653333000000000000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F07006533330000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2
+      7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961
+      0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9
+      910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD
+      0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9
+      910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD
+      0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2
+      7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F
+      2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B
+      3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65
+      0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3
+      580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF
+      110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3
+      580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF
+      110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B
+      3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98
+      5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D
+      3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67
+      0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0
+      570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1
+      150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0
+      570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1
+      150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D
+      3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98
+      5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C
+      5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67
+      0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1
+      1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1
+      1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C
+      5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98
+      5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2
+      7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66
+      0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7
+      900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2
+      1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7
+      900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2
+      1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2
+      7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98
+      5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9
+      B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63
+      0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1
+      1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1
+      1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9
+      B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991
+      4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE
+      7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE
+      7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F09000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C0000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F090000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F0900000000000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000400000000100010000000000000200000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000
+      C003C00380030000800180010003000080018001000300000000000000030000
+      000000008003000000000000C001000000000000C1FC00000000000080FE0001
+      00000000007F000780018001007F000780018001007F0007C003C00300FF0007
+      E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000
+      000000000000}
+  end
+  object dtsfases: TDataSource
+    DataSet = dtmSystem.tblRepasseFase
+    OnStateChange = dtsfasesStateChange
+    Left = 544
+    Top = 16
+  end
+end

ucadModeloRepasse.pas

@@ -0,0 +1,491 @@
+unit ucadModeloRepasse;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, Vcl.Buttons, System.UITypes,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.Grids,
+  Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls,
+  System.ImageList, Vcl.ImgList;
+
+type
+  THackDBNavigator = class(TDBNavigator);
+
+type
+  TcadModeloRepasse = class(TmstCadastro)
+    dbg_repasse: TDBGrid;
+    gb_porcentagens: TGroupBox;
+    lbl_principal: TLabel;
+    dbedt_prprin: TDBEdit;
+    dbedt_prjuros: TDBEdit;
+    lbl_juros: TLabel;
+    dbedt_prmulta: TDBEdit;
+    lbl_multa: TLabel;
+    dbedt_enc: TDBEdit;
+    lbl_encargos: TLabel;
+    dbedt_prcorrigido: TDBEdit;
+    lbl_corrigido: TLabel;
+    ImageList1: TImageList;
+    GroupBox1: TGroupBox;
+    dblulb_indices: TDBLookupListBox;
+    dtsfases: TDataSource;
+    navfases: TDBNavigator;
+    dbedt_atrasomin: TDBEdit;
+    dbedt_atrasomax: TDBEdit;
+    lbl_atrasomin: TLabel;
+    lbl_atrasomax: TLabel;
+    GroupBox3: TGroupBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    DBEdit2: TDBEdit;
+    DBEdit3: TDBEdit;
+    DBEdit4: TDBEdit;
+    DBEdit5: TDBEdit;
+    DBEdit6: TDBEdit;
+    procedure dbedt_prprinKeyPress(Sender: TObject; var Key: Char);
+    procedure dbedt_prjurosKeyPress(Sender: TObject; var Key: Char);
+    procedure dbedt_prmultaKeyPress(Sender: TObject; var Key: Char);
+    procedure dbedt_encKeyPress(Sender: TObject; var Key: Char);
+    procedure dbedt_prcorrigidoKeyPress(Sender: TObject; var Key: Char);
+    procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn);
+    procedure FormCreate(Sender: TObject);
+    procedure dbedt_prprinExit(Sender: TObject);
+    procedure dbedt_prjurosExit(Sender: TObject);
+    procedure dbedt_prmultaExit(Sender: TObject);
+    procedure dbedt_encExit(Sender: TObject);
+    procedure dbedt_prcorrigidoExit(Sender: TObject);
+    procedure dtsDBStateChange(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure dtsfasesStateChange(Sender: TObject);
+    procedure navfasesBeforeAction(Sender: TObject; Button: TNavigateBtn);
+    procedure DBEdit2Exit(Sender: TObject);
+    procedure DBEdit3Exit(Sender: TObject);
+    procedure DBEdit4Exit(Sender: TObject);
+    procedure DBEdit5Exit(Sender: TObject);
+    procedure DBEdit6Exit(Sender: TObject);
+    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
+    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
+    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
+    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
+    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
+  private
+    procedure SetupHackedNavigator(const Navigator: TDBNavigator;
+      const Glyphs: TImageList; S: string);
+    procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+  // janela a princípio não utilizada até hoje
+var
+  cadModeloRepasse: TcadModeloRepasse;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+procedure TcadModeloRepasse.DBEdit2Exit(Sender: TObject);
+begin
+  inherited;
+  if DBEdit2.Field.Value > 100 then
+  begin
+    DBEdit2.Field.Value := 100;
+  end;
+end;
+
+procedure TcadModeloRepasse.DBEdit2KeyPress(Sender: TObject; var Key: Char);
+begin
+  inherited;
+  if not(Key in [#8, '0' .. '9',
+    System.SysUtils.FormatSettings.DecimalSeparator]) then
+  begin
+    Key := #0;
+  end
+  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
+    (Pos(Key, DBEdit2.Field.Text) > 0) then
+  begin
+    Key := #0;
+  end;
+end;
+
+procedure TcadModeloRepasse.DBEdit3Exit(Sender: TObject);
+begin
+  inherited;
+  if DBEdit3.Field.Value > 100 then
+  begin
+    DBEdit3.Field.Value := 100;
+  end;
+end;
+
+procedure TcadModeloRepasse.DBEdit3KeyPress(Sender: TObject; var Key: Char);
+begin
+  inherited;
+  if not(Key in [#8, '0' .. '9',
+    System.SysUtils.FormatSettings.DecimalSeparator]) then
+  begin
+    Key := #0;
+  end
+  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
+    (Pos(Key, DBEdit3.Field.Text) > 0) then
+  begin
+    Key := #0;
+  end;
+end;
+
+procedure TcadModeloRepasse.DBEdit4Exit(Sender: TObject);
+begin
+  inherited;
+  if DBEdit4.Field.Value > 100 then
+  begin
+    DBEdit4.Field.Value := 100;
+  end;
+end;
+
+procedure TcadModeloRepasse.DBEdit4KeyPress(Sender: TObject; var Key: Char);
+begin
+  inherited;
+  if not(Key in [#8, '0' .. '9',
+    System.SysUtils.FormatSettings.DecimalSeparator]) then
+  begin
+    Key := #0;
+  end
+  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
+    (Pos(Key, DBEdit4.Field.Text) > 0) then
+  begin
+    Key := #0;
+  end;
+end;
+
+procedure TcadModeloRepasse.DBEdit5Exit(Sender: TObject);
+begin
+  inherited;
+  if DBEdit5.Field.Value > 100 then
+  begin
+    DBEdit5.Field.Value := 100;
+  end;
+end;
+
+procedure TcadModeloRepasse.DBEdit5KeyPress(Sender: TObject; var Key: Char);
+begin
+  inherited;
+  if not(Key in [#8, '0' .. '9',
+    System.SysUtils.FormatSettings.DecimalSeparator]) then
+  begin
+    Key := #0;
+  end
+  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
+    (Pos(Key, DBEdit5.Field.Text) > 0) then
+  begin
+    Key := #0;
+  end;
+end;
+
+procedure TcadModeloRepasse.DBEdit6Exit(Sender: TObject);
+begin
+  inherited;
+  if DBEdit6.Field.Value > 100 then
+  begin
+    DBEdit6.Field.Value := 100;
+  end;
+end;
+
+procedure TcadModeloRepasse.DBEdit6KeyPress(Sender: TObject; var Key: Char);
+begin
+  inherited;
+  if not(Key in [#8, '0' .. '9',
+    System.SysUtils.FormatSettings.DecimalSeparator]) then
+  begin
+    Key := #0;
+  end
+  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
+    (Pos(Key, DBEdit6.Field.Text) > 0) then
+  begin
+    Key := #0;
+  end;
+end;
+
+procedure TcadModeloRepasse.dbedt_encExit(Sender: TObject);
+begin
+  if dbedt_enc.Field.Value > 100 then
+  begin
+    dbedt_enc.Field.Value := 100;
+  end;
+end;
+
+procedure TcadModeloRepasse.dbedt_encKeyPress(Sender: TObject; var Key: Char);
+begin
+  if not(Key in [#8, '0' .. '9',
+    System.SysUtils.FormatSettings.DecimalSeparator]) then
+  begin
+    Key := #0;
+  end
+  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
+    (Pos(Key, dbedt_enc.Field.Text) > 0) then
+  begin
+    Key := #0;
+  end;
+end;
+
+procedure TcadModeloRepasse.dbedt_prcorrigidoExit(Sender: TObject);
+begin
+  if dbedt_prcorrigido.Field.Value > 100 then
+  begin
+    dbedt_prcorrigido.Field.Value := 100;
+  end;
+end;
+
+procedure TcadModeloRepasse.dbedt_prcorrigidoKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  // método pra só poder digitar números e "." ou "," no edit
+  if not(Key in [#8, '0' .. '9',
+    System.SysUtils.FormatSettings.DecimalSeparator, '-']) then
+  begin
+    Key := #0;
+  end
+  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
+    (Pos(Key, dbedt_prcorrigido.Field.Text) > 0) then
+  begin
+    Key := #0;
+  end;
+end;
+
+procedure TcadModeloRepasse.dbedt_prjurosExit(Sender: TObject);
+begin
+  if dbedt_prjuros.Field.Value > 100 then
+  begin
+    dbedt_prjuros.Field.Value := 100;
+  end;
+end;
+
+procedure TcadModeloRepasse.dbedt_prjurosKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if not(Key in [#8, '0' .. '9',
+    System.SysUtils.FormatSettings.DecimalSeparator]) then
+  begin
+    Key := #0;
+  end
+  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
+    (Pos(Key, dbedt_prjuros.Field.Text) > 0) then
+  begin
+    Key := #0;
+  end;
+end;
+
+procedure TcadModeloRepasse.dbedt_prmultaExit(Sender: TObject);
+begin
+  if dbedt_prmulta.Field.Value > 100 then
+  begin
+    dbedt_prmulta.Field.Value := 100;
+  end;
+end;
+
+procedure TcadModeloRepasse.dbedt_prmultaKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if not(Key in [#8, '0' .. '9',
+    System.SysUtils.FormatSettings.DecimalSeparator]) then
+  begin
+    Key := #0;
+  end
+  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
+    (Pos(Key, dbedt_prmulta.Field.Text) > 0) then
+  begin
+    Key := #0;
+  end;
+end;
+
+procedure TcadModeloRepasse.dbedt_prprinExit(Sender: TObject);
+begin
+  if dbedt_prprin.Field.Value > 100 then
+  begin
+    dbedt_prprin.Field.Value := 100;
+  end;
+end;
+
+procedure TcadModeloRepasse.dbedt_prprinKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if not(Key in [#8, '0' .. '9',
+    System.SysUtils.FormatSettings.DecimalSeparator]) then
+  begin
+    Key := #0;
+  end
+  else if (Key = System.SysUtils.FormatSettings.DecimalSeparator) and
+    (Pos(Key, dbedt_prprin.Field.Text) > 0) then
+  begin
+    Key := #0;
+  end;
+end;
+
+procedure TcadModeloRepasse.dtsDBStateChange(Sender: TObject);
+begin
+  dblulb_indices.Enabled := not(dtsDB.DataSet.State in [dsEdit, dsInsert]);
+  grpDescricao.Enabled := (dtsDB.DataSet.State in [dsEdit, dsInsert]);
+  // gb_porcentagens.Enabled := grpDescricao.Enabled;
+  // dbg_repasse.ReadOnly := not(dtsDB.DataSet.State in [dsEdit, dsInsert]);
+  // navfases.Enabled := not(dtsDB.DataSet.State in [dsEdit, dsInsert]);
+  pcClientes.Enabled := not(dtsDB.DataSet.State in [dsEdit, dsInsert]);
+  GroupBox3.Enabled := grpDescricao.Enabled;
+end;
+
+procedure TcadModeloRepasse.dtsfasesStateChange(Sender: TObject);
+begin
+  inherited;
+  grpDescricao.Enabled := not(dtsfases.DataSet.State in [dsEdit, dsInsert]);
+  navPrincipal.Enabled := not(dtsfases.DataSet.State in [dsEdit, dsInsert]);
+  gb_porcentagens.Enabled := dtsfases.DataSet.State in [dsEdit, dsInsert];
+  dbg_repasse.ReadOnly := not(dtsfases.DataSet.State in [dsEdit, dsInsert]);
+  dblulb_indices.Enabled := not(dtsfases.DataSet.State in [dsEdit, dsInsert]);
+end;
+
+procedure TcadModeloRepasse.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  inherited;
+  cadModeloRepasse := nil;
+end;
+
+procedure TcadModeloRepasse.FormCreate(Sender: TObject);
+begin
+  inherited;
+  if not dtmSystem.tblRepasse.Active then
+  begin
+    dtmSystem.tblRepasse.Open;
+  end;
+  if not dtmSystem.tblRepasseFase.Active then
+  begin
+    dtmSystem.tblRepasseFase.Open;
+  end;
+  SetupHackedNavigator(navPrincipal, ImageList1, 's');
+  SetupHackedNavigator(navfases, ImageList1, 's');
+end;
+
+procedure TcadModeloRepasse.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TcadModeloRepasse.navfasesBeforeAction(Sender: TObject;
+  Button: TNavigateBtn);
+begin
+  case Button of
+
+    nbPost:
+      begin
+        if dbedt_atrasomin.Text = '' then
+        begin
+          MessageDlg('Por favor preencha um número para o atraso mínimo.',
+            mtWarning, [mbOK], 0);
+          abort;
+        end;
+        if dbedt_atrasomax.Text = '' then
+        begin
+          MessageDlg('Por favor preencha um número para o atraso máximo.',
+            mtWarning, [mbOK], 0);
+          abort;
+        end;
+
+        if strtoint(dbedt_atrasomin.text) > strtoint(dbedt_atrasomax.text) then
+        begin
+          MessageDlg('Há uma inconsistência nos valores do atraso. Por favor reveja-os.',
+            mtWarning, [mbOK], 0);
+          abort;
+        end;
+        // SelectNext(ActiveControl as TWinControl, True, True);
+      end;
+
+    nbCancel:
+      if MessageDlg('Deseja cancelar as modificações?', mtConfirmation,
+        [mbYes, mbNo], 0) = mrNo then
+        abort;
+  end;
+end;
+
+procedure TcadModeloRepasse.navPrincipalBeforeAction(Sender: TObject;
+  Button: TNavigateBtn);
+begin
+  inherited;
+  //
+end;
+
+procedure TcadModeloRepasse.SetupHackedNavigator(const Navigator: TDBNavigator;
+  const Glyphs: TImageList; S: string);
+const
+  Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Próximo',
+    'Último', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar',
+    'Atualizar', 'Aplicar Atualizações', 'Cancelar Atualizãções');
+  (* Captions : array[TNavigateBtn] of string =
+    ('First', 'Prior', 'Next', 'Last', 'Insert',
+    'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *)
+  Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Próximo',
+    'Último', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar',
+    'Atualizar', 'Aplicar Atualizações', 'Cancelar Atualizãções');
+var
+  btn: TNavigateBtn;
+begin
+  // função propriamente dita para "hackear" o navigator
+  for btn := Low(TNavigateBtn) to High(TNavigateBtn) do
+    with THackDBNavigator(Navigator).Buttons[btn] do
+    begin
+      // from the Captions const array
+
+      Hint := Hints[btn];
+
+      if LowerCase(S) = 's' then
+      begin
+        Caption := Captions[btn];
+      end;
+
+      // the number of images in the Glyph property
+      NumGlyphs := 1;
+      // Remove the old glyph.
+      Glyph := nil;
+      // Assign the custom one
+      Glyphs.GetBitmap(Integer(btn), Glyph);
+      // gylph above text
+      Layout := blGlyphTop;
+
+      Font.Style := Font.Style - [fsbold];
+    end;
+end;
+
+procedure TcadModeloRepasse.WMMoving(var Msg: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with Msg.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(Msg.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(Msg.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(Msg.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

ucadPoli_Faixa.dfm

@@ -0,0 +1,109 @@
+inherited cadPoli_Faixa: TcadPoli_Faixa
+  Caption = 'Nova Pol'#237'tica/Faixa'
+  ClientHeight = 267
+  ClientWidth = 291
+  Scaled = False
+  ExplicitWidth = 297
+  ExplicitHeight = 295
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lbl_nomepol: TLabel [0]
+    Left = 24
+    Top = 38
+    Width = 31
+    Height = 13
+    Caption = 'Nome:'
+  end
+  object lbl_nomefaixa: TLabel [1]
+    Left = 24
+    Top = 119
+    Width = 31
+    Height = 13
+    Caption = 'Nome:'
+  end
+  object lbl_faixaatraso: TLabel [2]
+    Left = 24
+    Top = 165
+    Width = 76
+    Height = 13
+    Caption = 'Faixa de Atraso:'
+  end
+  object lbl_ligaatraso: TLabel [3]
+    Left = 141
+    Top = 187
+    Width = 6
+    Height = 13
+    Caption = 'a'
+  end
+  inherited stbStatus: TStatusBar
+    Top = 248
+    Width = 291
+    ExplicitTop = 217
+    ExplicitWidth = 291
+  end
+  object rbtn_politica: TRadioButton
+    Left = 8
+    Top = 8
+    Width = 113
+    Height = 17
+    Caption = 'Pol'#237'tica'
+    TabOrder = 1
+    OnClick = rbtn_politicaClick
+  end
+  object rbtn_faixa: TRadioButton
+    Left = 8
+    Top = 93
+    Width = 113
+    Height = 17
+    Caption = 'Faixa'
+    TabOrder = 2
+    OnClick = rbtn_faixaClick
+  end
+  object edt_pol: TEdit
+    Left = 24
+    Top = 57
+    Width = 241
+    Height = 21
+    TabOrder = 3
+  end
+  object edt_faixa: TEdit
+    Left = 24
+    Top = 138
+    Width = 241
+    Height = 21
+    TabOrder = 4
+  end
+  object btn_ok: TButton
+    Left = 24
+    Top = 217
+    Width = 75
+    Height = 25
+    Caption = 'Ok'
+    ModalResult = 1
+    TabOrder = 5
+    OnClick = btn_okClick
+  end
+  object btn_cancelar: TButton
+    Left = 190
+    Top = 217
+    Width = 75
+    Height = 25
+    Caption = 'Cancelar'
+    ModalResult = 2
+    TabOrder = 6
+  end
+  object edt_faixaini: TEdit
+    Left = 24
+    Top = 184
+    Width = 97
+    Height = 21
+    TabOrder = 7
+  end
+  object edt_faixafim: TEdit
+    Left = 168
+    Top = 184
+    Width = 97
+    Height = 21
+    TabOrder = 8
+  end
+end

ucadPoli_Faixa.pas

@@ -0,0 +1,125 @@
+unit ucadPoli_Faixa;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Vcl.StdCtrls,
+  Vcl.DBCtrls, Data.DB, Vcl.Mask;
+
+type
+  TcadPoli_Faixa = class(TmstMaster)
+    rbtn_politica: TRadioButton;
+    rbtn_faixa: TRadioButton;
+    lbl_nomepol: TLabel;
+    lbl_nomefaixa: TLabel;
+    edt_pol: TEdit;
+    edt_faixa: TEdit;
+    btn_ok: TButton;
+    btn_cancelar: TButton;
+    lbl_faixaatraso: TLabel;
+    lbl_ligaatraso: TLabel;
+    edt_faixaini: TEdit;
+    edt_faixafim: TEdit;
+    procedure rbtn_politicaClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure rbtn_faixaClick(Sender: TObject);
+    procedure btn_okClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+  tipo_add : string;
+    { Public declarations }
+  end;
+
+var
+  cadPoli_Faixa: TcadPoli_Faixa;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+//cadastro de políticas/faixas
+
+procedure TcadPoli_Faixa.btn_okClick(Sender: TObject);
+begin
+  inherited;
+  if rbtn_politica.Checked then
+    begin
+        if edt_pol.Text <> '' then
+        begin
+        //se política foi selecionado adiciona uma nova entrada na tabela de políticas com o id da
+        //empresa em que o usuário estava
+          dtmSystem.dtsPoliticas.DataSet.Append;
+          dtmSystem.tblPoliticasTX_DESCRICAO.AsString := edt_pol.Text;
+        end else
+              begin
+                MessageDlg('Insira um nome para a política.',mtError,[mbOK],0);
+                ModalResult := mrNone;
+              end;
+    end;
+  if rbtn_faixa.Checked then
+    begin
+      if dtmSystem.tblPoliticas.IsEmpty then
+      begin
+        MessageDlg('Não há políticas para inserir esta faixa. Crie uma nova política primeiro.',mtError,[mbOK],0);
+        ModalResult := mrNone;
+        exit;
+      end;
+
+      if edt_faixa.Text <> '' then
+        begin
+        //se faixa foi selecionado adiciona uma nova entrada na tabela de faixas com o id
+        //da política em que o usuário estava
+         dtmSystem.dtsFaixas.DataSet.Append;
+         dtmSystem.tblFaixasTX_DESCRICAO.AsString := edt_faixa.Text;
+         dtmSystem.dtsFaixas.DataSet.Post;
+         //dtmSystem.tblFaixasID_POLITICA.AsString := dtmSystem.tblPoliticasID_POLITICA.AsString;
+        end else
+              begin
+                 MessageDlg('Insira um nome para a faixa.',mtError,[mbOK],0);
+                 ModalResult := mrNone;
+              end;
+    end;
+end;
+
+procedure TcadPoli_Faixa.FormCreate(Sender: TObject);
+begin
+  inherited;
+  //inicializa algumas variáveis usadas
+  rbtn_politica.Checked := false;
+  rbtn_faixa.Checked := false;
+  edt_pol.Enabled := false;
+  edt_faixa.Enabled := false;
+end;
+
+procedure TcadPoli_Faixa.rbtn_faixaClick(Sender: TObject);
+begin
+  inherited;
+  //toggle checked e algumas funcionalidades
+  if rbtn_faixa.Checked then
+    begin
+      edt_pol.Enabled := false;
+      rbtn_politica.Checked := false;
+      edt_faixa.Enabled := true;
+      edt_faixaini.Enabled := true;
+      edt_faixafim.Enabled := true;
+    end;
+end;
+
+procedure TcadPoli_Faixa.rbtn_politicaClick(Sender: TObject);
+begin
+  inherited;
+  //toggle checked e algumas funcionalidades
+  if rbtn_politica.Checked then
+    begin
+      edt_pol.Enabled := true;
+      rbtn_faixa.Checked := false;
+      edt_faixa.Enabled := false;
+      edt_faixaini.Enabled := false;
+      edt_faixafim.Enabled := false;
+    end;
+end;
+end.

ucadProvidencias.dfm

@@ -0,0 +1,676 @@
+inherited cadProvidencias: TcadProvidencias
+  BorderStyle = bsSingle
+  Caption = 'Provid'#234'ncias'
+  ClientHeight = 524
+  ClientWidth = 857
+  Scaled = False
+  ExplicitWidth = 863
+  ExplicitHeight = 552
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited GroupBox2: TGroupBox
+    Left = 8
+    Top = 180
+    Width = 841
+    ExplicitLeft = 8
+    ExplicitTop = 180
+    ExplicitWidth = 841
+    inherited pcClientes: TPageControl
+      Width = 816
+      TabStop = False
+      OnChange = pcClientesChange
+      ExplicitWidth = 816
+      inherited tabCadastro: TTabSheet
+        Caption = '&Provid'#234'ncias'
+        Enabled = True
+        ExplicitLeft = 4
+        ExplicitTop = 24
+        ExplicitWidth = 808
+        ExplicitHeight = 272
+        object dbgrid_providencias: TDBGrid
+          Left = 3
+          Top = 3
+          Width = 802
+          Height = 266
+          TabStop = False
+          DataSource = dtmSystem.dtsProvidencias
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'MS Sans Serif'
+          Font.Style = []
+          ParentFont = False
+          TabOrder = 0
+          TitleFont.Charset = DEFAULT_CHARSET
+          TitleFont.Color = clWindowText
+          TitleFont.Height = -11
+          TitleFont.Name = 'Tahoma'
+          TitleFont.Style = [fsBold]
+          Columns = <
+            item
+              Expanded = False
+              FieldName = 'TX_NOME'
+              Title.Caption = 'Nome'
+              Title.Font.Charset = DEFAULT_CHARSET
+              Title.Font.Color = clWindowText
+              Title.Font.Height = -11
+              Title.Font.Name = 'Tahoma'
+              Title.Font.Style = []
+              Width = 548
+              Visible = True
+            end
+            item
+              Expanded = False
+              FieldName = 'TP_PROVIDENCIA'
+              PickList.Strings = (
+                'Positiva'
+                'Negativa')
+              Title.Caption = 'Tipo'
+              Title.Font.Charset = DEFAULT_CHARSET
+              Title.Font.Color = clWindowText
+              Title.Font.Height = -11
+              Title.Font.Name = 'Tahoma'
+              Title.Font.Style = []
+              Width = 103
+              Visible = True
+            end
+            item
+              Expanded = False
+              FieldName = 'TP_FORCAAGENDA'
+              PickList.Strings = (
+                'Sim'
+                'N'#227'o')
+              Title.Caption = 'For'#231'ar Agendamento'
+              Title.Font.Charset = DEFAULT_CHARSET
+              Title.Font.Color = clWindowText
+              Title.Font.Height = -11
+              Title.Font.Name = 'Tahoma'
+              Title.Font.Style = []
+              Visible = True
+            end>
+        end
+      end
+    end
+  end
+  inherited stbStatus: TStatusBar
+    Top = 505
+    Width = 857
+    ExplicitTop = 505
+    ExplicitWidth = 857
+  end
+  inherited grpDescricao: TGroupBox
+    Left = 8
+    Width = 841
+    Height = 119
+    ExplicitLeft = 8
+    ExplicitWidth = 841
+    ExplicitHeight = 119
+    inherited DBEdit1: TDBEdit
+      Width = 816
+      DataField = 'TX_NOME'
+      ExplicitWidth = 816
+    end
+    object DBMemo1: TDBMemo
+      Left = 12
+      Top = 48
+      Width = 816
+      Height = 65
+      Hint = 'Suporta apenas 255 caracteres.'
+      DataField = 'TX_DESCRICAO'
+      DataSource = dtsDB
+      ParentShowHint = False
+      ShowHint = True
+      TabOrder = 1
+    end
+  end
+  inherited navPrincipal: TDBNavigator
+    Left = 8
+    Width = 840
+    DataSource = dtsDB
+    ExplicitLeft = 8
+    ExplicitWidth = 840
+  end
+  inherited dtsDB: TDataSource
+    DataSet = dtmSystem.tblProvidencias
+    Left = 584
+  end
+  object ImageList1: TImageList
+    Left = 648
+    Top = 8
+    Bitmap = {
+      494C01010C001800140110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000004000000001002000000000000040
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000993300009933000099330000993300009933
+      0000993300009933000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000E80AA000E80
+      AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6
+      FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478
+      7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2
+      FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A600000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A60000000000000000000000000088452400884524008845
+      2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A
+      FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE
+      BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9
+      FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D
+      5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436
+      FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2
+      C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF
+      FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE
+      FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F
+      F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE
+      FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F
+      F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B
+      6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47
+      FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066
+      00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC
+      D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3
+      F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E
+      E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3
+      F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E
+      E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84
+      5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC
+      FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693
+      2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6
+      F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D
+      ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F
+      E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D
+      ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F
+      E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B
+      2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE
+      FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693
+      2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9
+      FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F
+      EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F
+      EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070
+      E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90
+      9000759EAE00729BA50099330000993300009933000099330000993300009933
+      00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1
+      E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB
+      FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A
+      F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A
+      F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070
+      E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E
+      D800147AD0000C72CF001888AF00000000000000000000000000000000000000
+      000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5
+      EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF
+      FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD
+      F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D
+      E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD
+      F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D
+      E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699
+      FC003699FC003394F9002985F3001888AF000000000000000000000000000000
+      00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7
+      F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D
+      BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2
+      FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A
+      E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2
+      FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A
+      E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA
+      FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000
+      000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA
+      F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7
+      CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE
+      FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4
+      EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC
+      FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA
+      D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751
+      77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF
+      FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE
+      DD00986B660000000000000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291
+      CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1
+      E400986B66000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C500000000000000000000000000000000002583B0006DADCB00277D
+      A8000A5882000A588200005684001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5
+      EB00986B66000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      00000000000000000000000000000000000000000000000000003990B9002983
+      AC00116B96000056840000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4
+      8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4
+      8200986B66000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A60000000000000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE
+      FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558
+      D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE
+      FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F
+      F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792
+      F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532
+      D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3
+      F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E
+      E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B
+      FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631
+      DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F
+      D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432
+      DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D
+      ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F
+      E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040
+      FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258
+      E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199
+      EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333
+      E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F
+      EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070
+      E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955
+      FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159
+      EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6
+      F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333
+      E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A
+      F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070
+      E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C
+      FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632
+      EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349
+      EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233
+      EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD
+      F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D
+      E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC
+      FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025
+      ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021
+      EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166
+      F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2
+      FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A
+      E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073
+      F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073
+      F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159
+      F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      000000000000000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      330065333300000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      3300653333000000000000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F07006533330000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2
+      7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961
+      0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9
+      910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD
+      0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9
+      910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD
+      0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2
+      7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F
+      2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B
+      3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65
+      0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3
+      580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF
+      110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3
+      580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF
+      110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B
+      3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98
+      5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D
+      3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67
+      0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0
+      570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1
+      150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0
+      570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1
+      150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D
+      3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98
+      5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C
+      5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67
+      0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1
+      1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1
+      1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C
+      5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98
+      5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2
+      7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66
+      0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7
+      900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2
+      1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7
+      900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2
+      1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2
+      7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98
+      5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9
+      B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63
+      0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1
+      1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1
+      1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9
+      B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991
+      4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE
+      7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE
+      7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F09000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C0000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F090000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F0900000000000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000400000000100010000000000000200000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000
+      C003C00380030000800180010003000080018001000300000000000000030000
+      000000008003000000000000C001000000000000C1FC00000000000080FE0001
+      00000000007F000780018001007F000780018001007F0007C003C00300FF0007
+      E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000
+      000000000000}
+  end
+end

ucadProvidencias.pas

@@ -0,0 +1,167 @@
+unit ucadProvidencias;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.Grids,
+  Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls,
+  Vcl.Buttons,
+  System.ImageList, Vcl.ImgList;
+
+// Tentando "Hackear" o TDBNavigator
+type
+  THackDBNavigator = class(TDBNavigator);
+
+type
+  TcadProvidencias = class(TmstCadastro)
+    ImageList1: TImageList;
+    dbgrid_providencias: TDBGrid;
+    DBMemo1: TDBMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure pcClientesChange(Sender: TObject);
+    procedure dtsDBStateChange(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn);
+  private
+    { Private declarations }
+    procedure SetupHackedNavigator(const Navigator: TDBNavigator;
+      const Glyphs: TImageList);
+    procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
+  public
+  id_prov: integer;
+    { Public declarations }
+  end;
+
+var
+  cadProvidencias: TcadProvidencias;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem, System.UITypes;
+
+procedure TcadProvidencias.dtsDBStateChange(Sender: TObject);
+begin
+  // inherited;
+  // DBLookupListBox1.Enabled := not(dtsDB.State in [dsEdit, dsInsert]);
+  grpDescricao.Enabled := (dtsDB.DataSet.State in [dsEdit, dsInsert]);
+  dbgrid_providencias.ReadOnly :=
+    not(dtsDB.DataSet.State in [dsEdit, dsInsert]);
+
+end;
+
+procedure TcadProvidencias.FormCreate(Sender: TObject);
+begin
+  inherited;
+  dtmSystem.tblProvidencias.Open;
+  dtmSystem.tblInadimplencias.Open;
+  SetupHackedNavigator(navPrincipal, ImageList1);
+  id_prov := -1;
+
+  navPrincipal.Enabled := dtmSystem.VerificarPermissao('CBR.02.05');
+end;
+
+procedure TcadProvidencias.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TcadProvidencias.navPrincipalBeforeAction(Sender: TObject;
+  Button: TNavigateBtn);
+begin
+  case Button of
+    nbPost:
+      begin
+        if dtmSystem.tblProvidenciasTP_FORCAAGENDA.AsString = '' then
+        begin
+          Messagedlg
+            ('Por favor escolha se a providência irá forçar agendamento ou não.',
+            mtWarning, [mbOk], 0);
+          abort;
+        end;
+      end;
+  end;
+  inherited;
+end;
+
+procedure TcadProvidencias.pcClientesChange(Sender: TObject);
+begin
+  inherited;
+  case pcClientes.ActivePageIndex of
+    0:
+      begin
+        dtsDB.DataSet := dtmSystem.tblProvidencias;
+      end;
+    1:
+      begin
+        dtsDB.DataSet := dtmSystem.tblInadimplencias;
+      end;
+  end;
+end;
+
+procedure TcadProvidencias.SetupHackedNavigator(const Navigator: TDBNavigator;
+  const Glyphs: TImageList);
+const
+  Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Próximo',
+    'Último', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar',
+    'Atualizar', 'Aplicar Atualizações', 'Cancelar Atualizãções');
+  (* Captions : array[TNavigateBtn] of string =
+    ('First', 'Prior', 'Next', 'Last', 'Insert',
+    'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *)
+var
+  btn: TNavigateBtn;
+begin
+  // função propriamente dita para "hackear" o navigator
+  for btn := Low(TNavigateBtn) to High(TNavigateBtn) do
+    with THackDBNavigator(Navigator).Buttons[btn] do
+    begin
+      // from the Captions const array
+      Caption := Captions[btn];
+
+      // the number of images in the Glyph property
+      NumGlyphs := 1;
+      // Remove the old glyph.
+      Glyph := nil;
+      // Assign the custom one
+      Glyphs.GetBitmap(Integer(btn), Glyph);
+      // gylph above text
+      Layout := blGlyphTop;
+
+      Font.Style := Font.Style - [fsbold];
+    end;
+
+end;
+
+procedure TcadProvidencias.WMMoving(var Msg: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with Msg.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(Msg.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(Msg.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(Msg.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

ucadTextEmail.dfm

@@ -0,0 +1,697 @@
+inherited cadTextEmail: TcadTextEmail
+  Caption = 'Texto dos Emails'
+  ClientHeight = 557
+  ClientWidth = 850
+  ExplicitTop = -75
+  ExplicitWidth = 856
+  ExplicitHeight = 585
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited stbStatus: TStatusBar
+    Top = 538
+    Width = 850
+    ExplicitTop = 538
+    ExplicitWidth = 850
+  end
+  object navPrincipal: TDBNavigator
+    Left = 242
+    Top = 8
+    Width = 600
+    Height = 57
+    DataSource = dtsTextoEmail
+    Hints.Strings = (
+      'Primeiro Registro'
+      'Registro Anterior'
+      'Pr'#243'ximo Registro'
+      #218'ltimo Registro'
+      'Criar Registro'
+      'Apagar Registro'
+      'Editar Registro'
+      'Salvar Registro'
+      'Cancelar'
+      'Atualizar'
+      'Apply updates'
+      'Cancel updates')
+    ParentShowHint = False
+    ShowHint = False
+    TabOrder = 1
+  end
+  object gb_conf: TGroupBox
+    Left = 242
+    Top = 134
+    Width = 600
+    Height = 75
+    Caption = 'Formata'#231#227'o'
+    Color = clMenu
+    ParentBackground = False
+    ParentColor = False
+    TabOrder = 2
+    object lbl_tamfonte: TLabel
+      Left = 11
+      Top = 24
+      Width = 48
+      Height = 13
+      Caption = 'Tamanho:'
+    end
+    object lbl_atalho: TLabel
+      Left = 87
+      Top = 24
+      Width = 38
+      Height = 13
+      Caption = 'Atalhos:'
+    end
+    object lbl_dev: TLabel
+      Left = 87
+      Top = 44
+      Width = 88
+      Height = 13
+      Caption = 'Nome do devedor:'
+    end
+    object edt_coddev: TEdit
+      Left = 181
+      Top = 41
+      Width = 91
+      Height = 21
+      ReadOnly = True
+      TabOrder = 0
+      Text = '% DEVEDOR %'
+    end
+    object edt_fontememo: TEdit
+      Left = 11
+      Top = 43
+      Width = 37
+      Height = 21
+      Alignment = taRightJustify
+      TabOrder = 1
+      Text = '8'
+      OnExit = edt_fontememoExit
+      OnKeyDown = edt_fontememoKeyDown
+    end
+    object up_fontememo: TUpDown
+      Left = 48
+      Top = 43
+      Width = 16
+      Height = 21
+      Associate = edt_fontememo
+      Min = 8
+      Max = 72
+      Position = 8
+      TabOrder = 2
+      OnClick = up_fontememoClick
+    end
+  end
+  object gb_desc: TGroupBox
+    Left = 242
+    Top = 71
+    Width = 600
+    Height = 57
+    Caption = 'Descri'#231#227'o'
+    TabOrder = 3
+    object db_desc: TDBEdit
+      Left = 11
+      Top = 24
+      Width = 577
+      Height = 21
+      DataField = 'TX_DESCRICAO'
+      DataSource = dtsTextoEmail
+      TabOrder = 0
+    end
+  end
+  object DBGrid1: TDBGrid
+    Left = 8
+    Top = 8
+    Width = 228
+    Height = 524
+    DataSource = dtsTextoEmail
+    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
+    TabOrder = 4
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+    Columns = <
+      item
+        Expanded = False
+        FieldName = 'TX_DESCRICAO'
+        Title.Caption = 'Descri'#231#227'o'
+        Visible = True
+      end>
+  end
+  object dbre_email: TDBMemo
+    Left = 242
+    Top = 215
+    Width = 600
+    Height = 317
+    DataField = 'TL_TEXTO'
+    DataSource = dtsTextoEmail
+    ScrollBars = ssVertical
+    TabOrder = 5
+    WantTabs = True
+  end
+  object dtsTextoEmail: TDataSource
+    DataSet = dtmSystem.tblTextoEmail
+    OnStateChange = dtsTextoEmailStateChange
+    Left = 496
+    Top = 24
+  end
+  object ImageList1: TImageList
+    Left = 568
+    Top = 24
+    Bitmap = {
+      494C01010C001800200310001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000004000000001002000000000000040
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000993300009933000099330000993300009933
+      0000993300009933000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000E80AA000E80
+      AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6
+      FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478
+      7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2
+      FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A600000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A60000000000000000000000000088452400884524008845
+      2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A
+      FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE
+      BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9
+      FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D
+      5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436
+      FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2
+      C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF
+      FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE
+      FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F
+      F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE
+      FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F
+      F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B
+      6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47
+      FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066
+      00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC
+      D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3
+      F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E
+      E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3
+      F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E
+      E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84
+      5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC
+      FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693
+      2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6
+      F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D
+      ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F
+      E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D
+      ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F
+      E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B
+      2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE
+      FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693
+      2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9
+      FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F
+      EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F
+      EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070
+      E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90
+      9000759EAE00729BA50099330000993300009933000099330000993300009933
+      00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1
+      E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB
+      FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A
+      F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A
+      F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070
+      E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E
+      D800147AD0000C72CF001888AF00000000000000000000000000000000000000
+      000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5
+      EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF
+      FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD
+      F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D
+      E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD
+      F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D
+      E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699
+      FC003699FC003394F9002985F3001888AF000000000000000000000000000000
+      00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7
+      F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D
+      BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2
+      FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A
+      E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2
+      FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A
+      E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA
+      FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000
+      000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA
+      F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7
+      CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE
+      FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4
+      EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC
+      FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA
+      D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751
+      77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF
+      FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE
+      DD00986B660000000000000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291
+      CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1
+      E400986B66000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C500000000000000000000000000000000002583B0006DADCB00277D
+      A8000A5882000A588200005684001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5
+      EB00986B66000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      00000000000000000000000000000000000000000000000000003990B9002983
+      AC00116B96000056840000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4
+      8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4
+      8200986B66000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A60000000000000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE
+      FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558
+      D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE
+      FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F
+      F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792
+      F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532
+      D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3
+      F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E
+      E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B
+      FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631
+      DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F
+      D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432
+      DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D
+      ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F
+      E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040
+      FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258
+      E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199
+      EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333
+      E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F
+      EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070
+      E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955
+      FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159
+      EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6
+      F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333
+      E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A
+      F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070
+      E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C
+      FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632
+      EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349
+      EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233
+      EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD
+      F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D
+      E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC
+      FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025
+      ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021
+      EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166
+      F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2
+      FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A
+      E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073
+      F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073
+      F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159
+      F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      000000000000000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      330065333300000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      3300653333000000000000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F07006533330000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2
+      7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961
+      0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9
+      910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD
+      0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9
+      910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD
+      0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2
+      7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F
+      2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B
+      3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65
+      0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3
+      580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF
+      110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3
+      580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF
+      110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B
+      3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98
+      5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D
+      3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67
+      0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0
+      570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1
+      150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0
+      570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1
+      150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D
+      3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98
+      5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C
+      5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67
+      0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1
+      1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1
+      1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C
+      5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98
+      5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2
+      7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66
+      0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7
+      900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2
+      1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7
+      900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2
+      1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2
+      7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98
+      5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9
+      B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63
+      0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1
+      1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1
+      1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9
+      B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991
+      4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE
+      7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE
+      7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F09000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C0000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F090000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F0900000000000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000400000000100010000000000000200000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000
+      C003C00380030000800180010003000080018001000300000000000000030000
+      000000008003000000000000C001000000000000C1FC00000000000080FE0001
+      00000000007F000780018001007F000780018001007F0007C003C00300FF0007
+      E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000
+      000000000000}
+  end
+end

ucadTextEmail.pas

@@ -0,0 +1,95 @@
+unit ucadTextEmail;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, System.UITypes,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ComCtrls,
+  Vcl.ExtCtrls, Vcl.CheckLst, Vcl.DBCtrls, Data.DB, System.ImageList,
+  Vcl.ImgList, Vcl.Mask, Vcl.Grids, Vcl.DBGrids;
+
+type
+  TcadTextEmail = class(TmstMaster)
+    dtsTextoEmail: TDataSource;
+    navPrincipal: TDBNavigator;
+    ImageList1: TImageList;
+    gb_conf: TGroupBox;
+    lbl_tamfonte: TLabel;
+    gb_desc: TGroupBox;
+    db_desc: TDBEdit;
+    DBGrid1: TDBGrid;
+    lbl_atalho: TLabel;
+    lbl_dev: TLabel;
+    edt_coddev: TEdit;
+    dbre_email: TDBMemo;
+    edt_fontememo: TEdit;
+    up_fontememo: TUpDown;
+    procedure FormCreate(Sender: TObject);
+    procedure dtsTextoEmailStateChange(Sender: TObject);
+    procedure edt_fontememoExit(Sender: TObject);
+    procedure edt_fontememoKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure up_fontememoClick(Sender: TObject; Button: TUDBtnType);
+  private
+    // linha_cursor: Integer;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  cadTextEmail: TcadTextEmail;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+// edt_coddev tem um texto que uso como palavra-chave pra substituir no texto do email o nome do devedor
+
+procedure TcadTextEmail.dtsTextoEmailStateChange(Sender: TObject);
+begin
+  dbre_email.ReadOnly := dtsTextoEmail.State in [dsBrowse];
+  gb_conf.Enabled := dtsTextoEmail.State in [dsInsert, dsEdit];
+  db_desc.ReadOnly := dtsTextoEmail.State in [dsBrowse];
+end;
+
+procedure TcadTextEmail.edt_fontememoExit(Sender: TObject);
+begin
+  if strtoint(edt_fontememo.Text) < 8 then
+  begin
+    edt_fontememo.Text := '8';
+    dbre_email.font.size := 8;
+  end;
+  if strtoint(edt_fontememo.Text) > 72 then
+  begin
+    edt_fontememo.Text := '72';
+    dbre_email.font.size := 72;
+  end;
+
+  dbre_email.font.size := strtoint(edt_fontememo.Text);
+end;
+
+procedure TcadTextEmail.edt_fontememoKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = vkReturn then
+  begin
+    dbre_email.SetFocus;
+  end;
+end;
+
+procedure TcadTextEmail.FormCreate(Sender: TObject);
+begin
+  dtmSystem.SetupHackedNavigator(navPrincipal, ImageList1, 's');
+  dtsTextoEmail.DataSet.Open;
+end;
+
+procedure TcadTextEmail.up_fontememoClick(Sender: TObject; Button: TUDBtnType);
+begin
+  dbre_email.font.size := strtoint(edt_fontememo.Text);
+end;
+
+end.

ucadUsuarioseditar.dfm

@@ -0,0 +1,863 @@
+inherited cadUsuarioseditar: TcadUsuarioseditar
+  Left = 585
+  Top = 274
+  Caption = 'cadUsuarioseditar'
+  ClientHeight = 370
+  Scaled = False
+  ExplicitWidth = 320
+  ExplicitHeight = 401
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited GroupBox2: TGroupBox
+    Height = 224
+    ExplicitHeight = 224
+    inherited pcClientes: TPageControl
+      Height = 206
+      ExplicitHeight = 206
+      inherited tabCadastro: TTabSheet
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 178
+        object lbl_login: TLabel
+          Left = 3
+          Top = 4
+          Width = 29
+          Height = 13
+          Caption = 'Login:'
+        end
+        object lbl_senha: TLabel
+          Left = 188
+          Top = 4
+          Width = 87
+          Height = 13
+          Caption = 'Senha de Acesso:'
+        end
+        object lbl_grpacesso: TLabel
+          Left = 491
+          Top = 4
+          Width = 85
+          Height = 13
+          Caption = 'Grupo de Acesso:'
+        end
+        object dbedt_login: TDBEdit
+          Left = 3
+          Top = 23
+          Width = 145
+          Height = 21
+          DataField = 'TX_USUARIO'
+          DataSource = dtsDB
+          TabOrder = 0
+        end
+        object dbedt_senha: TDBEdit
+          Left = 188
+          Top = 23
+          Width = 180
+          Height = 21
+          DataField = 'TX_SENHA'
+          DataSource = dtsDB
+          TabOrder = 1
+        end
+        object DBCheckBox1: TDBCheckBox
+          Left = 3
+          Top = 56
+          Width = 278
+          Height = 17
+          Caption = 'O usu'#225'rio dever'#225' alterar sua senha no pr'#243'ximo acesso'
+          DataField = 'TP_TROCAPASS'
+          DataSource = dtsDB
+          TabOrder = 2
+          ValueChecked = 'S'
+          ValueUnchecked = 'N'
+        end
+        object DBCheckBox5: TDBCheckBox
+          Left = 3
+          Top = 88
+          Width = 121
+          Height = 17
+          Caption = 'Conta bloqueada'
+          DataField = 'TP_ATIVO'
+          DataSource = dtsDB
+          TabOrder = 3
+          ValueChecked = 'N'
+          ValueUnchecked = 'S'
+        end
+        object cb_senha: TCheckBox
+          Left = 374
+          Top = 25
+          Width = 97
+          Height = 17
+          Caption = 'Mostrar senha'
+          TabOrder = 4
+          OnClick = cb_senhaClick
+        end
+        object dblucb_grupo: TDBLookupComboBox
+          Left = 491
+          Top = 23
+          Width = 145
+          Height = 21
+          DataField = 'ID_GRUPO'
+          DataSource = dtmSystem.dtsUsuarios
+          ListField = 'TX_NOME'
+          ListSource = dtmSystem.dtsGrupos
+          TabOrder = 5
+        end
+      end
+      object tabemail: TTabSheet
+        Caption = '&E-mail'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ImageIndex = 1
+        ParentFont = False
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
+        object cb_emailuser: TCheckBox
+          Left = 7
+          Top = 8
+          Width = 118
+          Height = 17
+          Caption = 'Possui e-mail pr'#243'prio'
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'MS Sans Serif'
+          Font.Style = []
+          ParentFont = False
+          TabOrder = 0
+          OnClick = cb_emailuserClick
+        end
+        object grpb_email: TGroupBox
+          Left = 3
+          Top = 31
+          Width = 641
+          Height = 131
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'MS Sans Serif'
+          Font.Style = []
+          ParentFont = False
+          TabOrder = 1
+          object lbl_nomeemail: TLabel
+            Left = 4
+            Top = 4
+            Width = 31
+            Height = 13
+            Caption = 'Nome:'
+          end
+          object lbl_email: TLabel
+            Left = 208
+            Top = 4
+            Width = 28
+            Height = 13
+            Caption = 'Email:'
+          end
+          object lbl_ccemail: TLabel
+            Left = 429
+            Top = 4
+            Width = 86
+            Height = 13
+            Caption = 'Enviar c'#243'pia para:'
+          end
+          object lbl_useremail: TLabel
+            Left = 4
+            Top = 52
+            Width = 39
+            Height = 13
+            Caption = 'Usu'#225'rio:'
+          end
+          object lbl_senhaemail: TLabel
+            Left = 142
+            Top = 52
+            Width = 34
+            Height = 13
+            Caption = 'Senha:'
+          end
+          object lbl_pop3: TLabel
+            Left = 272
+            Top = 52
+            Width = 73
+            Height = 13
+            Caption = 'Servidor POP3:'
+          end
+          object lbl_portapop3: TLabel
+            Left = 396
+            Top = 52
+            Width = 28
+            Height = 13
+            Caption = 'Porta:'
+          end
+          object lbl_portasmtp: TLabel
+            Left = 585
+            Top = 52
+            Width = 28
+            Height = 13
+            Caption = 'Porta:'
+          end
+          object lbl_smtp: TLabel
+            Left = 461
+            Top = 52
+            Width = 75
+            Height = 13
+            Caption = 'Servidor SMTP:'
+          end
+          object dbedt_nomeemail: TDBEdit
+            Left = 4
+            Top = 23
+            Width = 185
+            Height = 21
+            TabOrder = 0
+          end
+          object dbedt_email: TDBEdit
+            Left = 208
+            Top = 23
+            Width = 202
+            Height = 21
+            TabOrder = 1
+          end
+          object dbedt_ccemail: TDBEdit
+            Left = 429
+            Top = 23
+            Width = 202
+            Height = 21
+            TabOrder = 2
+          end
+          object dbedt_useremail: TDBEdit
+            Left = 4
+            Top = 71
+            Width = 118
+            Height = 21
+            TabOrder = 3
+          end
+          object dbedt_senhaemail: TDBEdit
+            Left = 142
+            Top = 71
+            Width = 110
+            Height = 21
+            TabOrder = 4
+          end
+          object dbedt_pop3: TDBEdit
+            Left = 272
+            Top = 71
+            Width = 105
+            Height = 21
+            TabOrder = 5
+          end
+          object dbedt_portapop3: TDBEdit
+            Left = 396
+            Top = 71
+            Width = 46
+            Height = 21
+            TabOrder = 6
+          end
+          object dbedt_portasmtp: TDBEdit
+            Left = 585
+            Top = 71
+            Width = 46
+            Height = 21
+            TabOrder = 7
+          end
+          object dbedt_smtp: TDBEdit
+            Left = 461
+            Top = 71
+            Width = 105
+            Height = 21
+            TabOrder = 8
+          end
+          object dbc_conxsegura: TDBCheckBox
+            Left = 4
+            Top = 100
+            Width = 221
+            Height = 17
+            Caption = 'Utilizar conex'#227'o segura (SSL/TSL)'
+            TabOrder = 9
+          end
+          object btn_testconex: TButton
+            Left = 396
+            Top = 96
+            Width = 88
+            Height = 25
+            Caption = 'Testar Conex'#227'o'
+            TabOrder = 10
+          end
+          object Button2: TButton
+            Left = 536
+            Top = 96
+            Width = 95
+            Height = 25
+            Caption = 'Configurar GMAIL'
+            TabOrder = 11
+          end
+        end
+      end
+    end
+  end
+  inherited stbStatus: TStatusBar
+    Top = 351
+    ExplicitTop = 351
+  end
+  inherited grpDescricao: TGroupBox
+    inherited Nome: TLabel
+      Width = 79
+      Caption = 'Nome Completo:'
+      ExplicitWidth = 79
+    end
+    inherited DBEdit1: TDBEdit
+      DataField = 'TX_NOME'
+    end
+  end
+  inherited navPrincipal: TDBNavigator
+    Width = 480
+    DataSource = dtsDB
+    VisibleButtons = [nbEdit, nbPost, nbCancel]
+    TabOrder = 2
+    ExplicitWidth = 480
+  end
+  inherited dtsDB: TDataSource
+    DataSet = dtmSystem.tblUsuarios
+  end
+  object ImageList1: TImageList
+    Left = 592
+    Top = 8
+    Bitmap = {
+      494C01010C001800B80010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000004000000001002000000000000040
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000993300009933000099330000993300009933
+      0000993300009933000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000E80AA000E80
+      AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6
+      FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478
+      7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2
+      FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A600000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A60000000000000000000000000088452400884524008845
+      2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A
+      FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE
+      BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9
+      FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D
+      5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436
+      FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2
+      C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF
+      FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE
+      FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F
+      F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE
+      FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F
+      F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B
+      6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47
+      FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066
+      00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC
+      D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3
+      F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E
+      E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3
+      F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E
+      E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84
+      5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC
+      FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693
+      2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6
+      F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D
+      ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F
+      E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D
+      ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F
+      E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B
+      2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE
+      FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693
+      2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9
+      FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F
+      EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F
+      EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070
+      E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90
+      9000759EAE00729BA50099330000993300009933000099330000993300009933
+      00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1
+      E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB
+      FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A
+      F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A
+      F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070
+      E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E
+      D800147AD0000C72CF001888AF00000000000000000000000000000000000000
+      000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5
+      EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF
+      FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD
+      F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D
+      E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD
+      F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D
+      E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699
+      FC003699FC003394F9002985F3001888AF000000000000000000000000000000
+      00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7
+      F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D
+      BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2
+      FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A
+      E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2
+      FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A
+      E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA
+      FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000
+      000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA
+      F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7
+      CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE
+      FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4
+      EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC
+      FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA
+      D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751
+      77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF
+      FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE
+      DD00986B660000000000000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291
+      CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1
+      E400986B66000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C500000000000000000000000000000000002583B0006DADCB00277D
+      A8000A5882000A588200005684001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5
+      EB00986B66000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      00000000000000000000000000000000000000000000000000003990B9002983
+      AC00116B96000056840000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4
+      8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4
+      8200986B66000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A60000000000000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE
+      FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558
+      D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE
+      FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F
+      F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792
+      F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532
+      D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3
+      F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E
+      E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B
+      FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631
+      DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F
+      D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432
+      DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D
+      ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F
+      E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040
+      FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258
+      E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199
+      EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333
+      E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F
+      EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070
+      E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955
+      FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159
+      EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6
+      F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333
+      E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A
+      F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070
+      E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C
+      FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632
+      EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349
+      EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233
+      EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD
+      F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D
+      E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC
+      FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025
+      ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021
+      EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166
+      F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2
+      FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A
+      E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073
+      F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073
+      F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159
+      F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      000000000000000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      330065333300000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      3300653333000000000000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F07006533330000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2
+      7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961
+      0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9
+      910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD
+      0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9
+      910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD
+      0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2
+      7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F
+      2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B
+      3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65
+      0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3
+      580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF
+      110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3
+      580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF
+      110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B
+      3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98
+      5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D
+      3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67
+      0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0
+      570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1
+      150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0
+      570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1
+      150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D
+      3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98
+      5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C
+      5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67
+      0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1
+      1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1
+      1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C
+      5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98
+      5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2
+      7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66
+      0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7
+      900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2
+      1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7
+      900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2
+      1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2
+      7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98
+      5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9
+      B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63
+      0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1
+      1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1
+      1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9
+      B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991
+      4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE
+      7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE
+      7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F09000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C0000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F090000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F0900000000000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000400000000100010000000000000200000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000
+      C003C00380030000800180010003000080018001000300000000000000030000
+      000000008003000000000000C001000000000000C1FC00000000000080FE0001
+      00000000007F000780018001007F000780018001007F0007C003C00300FF0007
+      E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000
+      000000000000}
+  end
+end

ucadUsuarioseditar.pas

@@ -0,0 +1,175 @@
+unit ucadUsuarioseditar;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls,
+  Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, System.ImageList,
+  Vcl.ImgList, Vcl.Buttons, ucadUsuarios;
+
+type
+  THackDBNavigator = class(TDBNavigator);
+
+type
+  TcadUsuarioseditar = class(TmstCadastro)
+    dbedt_login: TDBEdit;
+    lbl_login: TLabel;
+    dbedt_senha: TDBEdit;
+    lbl_senha: TLabel;
+    lbl_grpacesso: TLabel;
+    DBCheckBox1: TDBCheckBox;
+    DBCheckBox5: TDBCheckBox;
+    ImageList1: TImageList;
+    cb_senha: TCheckBox;
+    tabemail: TTabSheet;
+    cb_emailuser: TCheckBox;
+    grpb_email: TGroupBox;
+    lbl_nomeemail: TLabel;
+    lbl_email: TLabel;
+    lbl_ccemail: TLabel;
+    lbl_useremail: TLabel;
+    lbl_senhaemail: TLabel;
+    lbl_pop3: TLabel;
+    lbl_portapop3: TLabel;
+    lbl_portasmtp: TLabel;
+    lbl_smtp: TLabel;
+    dbedt_nomeemail: TDBEdit;
+    dbedt_email: TDBEdit;
+    dbedt_ccemail: TDBEdit;
+    dbedt_useremail: TDBEdit;
+    dbedt_senhaemail: TDBEdit;
+    dbedt_pop3: TDBEdit;
+    dbedt_portapop3: TDBEdit;
+    dbedt_portasmtp: TDBEdit;
+    dbedt_smtp: TDBEdit;
+    dbc_conxsegura: TDBCheckBox;
+    btn_testconex: TButton;
+    Button2: TButton;
+    dblucb_grupo: TDBLookupComboBox;
+    procedure FormCreate(Sender: TObject);
+    procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn);
+    procedure FormShow(Sender: TObject);
+    procedure cb_emailuserClick(Sender: TObject);
+    procedure cb_senhaClick(Sender: TObject);
+    procedure dtsDBStateChange(Sender: TObject);
+  private
+  public
+    // master_srs : TDataSource;
+    { Public declarations }
+  end;
+
+var
+  cadUsuarioseditar: TcadUsuarioseditar;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+procedure TcadUsuarioseditar.cb_emailuserClick(Sender: TObject);
+begin
+  // usuário vai ter email próprio ou não
+  if cb_emailuser.Checked then
+  begin
+    grpb_email.Enabled := true;
+  end;
+  if cb_emailuser.Checked = false then
+  begin
+    grpb_email.Enabled := false;
+  end;
+end;
+
+procedure TcadUsuarioseditar.cb_senhaClick(Sender: TObject);
+begin
+
+  if cb_senha.Checked then
+  begin
+    dbedt_senha.PasswordChar := #0;
+    dtmSystem.mostrar_senha := true;
+  end;
+  if not cb_senha.Checked then
+  begin
+    dbedt_senha.PasswordChar := '*';
+    dtmSystem.mostrar_senha := false;
+  end;
+end;
+
+procedure TcadUsuarioseditar.dtsDBStateChange(Sender: TObject);
+begin
+  inherited;
+  tabemail.Enabled := grpDescricao.Enabled;
+end;
+
+procedure TcadUsuarioseditar.FormCreate(Sender: TObject);
+begin
+  inherited;
+  with dtmSystem do
+  begin
+    tblUsuarios.Open;
+    tblGrupos.Open;
+    tblGruposPermissoes.Open;
+    grpb_email.Enabled := false;
+    SetupHackedNavigator(navPrincipal, ImageList1, 's');
+
+    qryConsulta.SQL.Text := 'Select * from SYS_GRUPOS';
+    qryConsulta.Open;
+
+    while not qryConsulta.Eof do
+    begin
+      //ComboBox1.Items.Add(qryConsulta.FieldByName('tx_nome').AsString);
+      qryConsulta.Next;
+    end;
+
+    qryConsulta.Close;
+
+   // ComboBox1.ItemIndex := tblGruposID_GRUPO.AsInteger - 1;
+  end;
+end;
+
+procedure TcadUsuarioseditar.FormShow(Sender: TObject);
+begin
+
+  // seta se vai poder ver a senha sem máscara ou com
+  if dtmSystem.mostrar_senha then
+  begin
+    cb_senha.Checked := true;
+    dbedt_senha.PasswordChar := #0;
+  end
+  else
+  begin
+    cb_senha.Checked := false;
+    dbedt_senha.PasswordChar := '*';
+  end;
+end;
+
+procedure TcadUsuarioseditar.navPrincipalBeforeAction(Sender: TObject;
+  Button: TNavigateBtn);
+begin
+  inherited;
+  if Button = nbPost then
+  begin
+    if DBEdit1.Text = '' then
+    begin
+      messagedlg('Necessário dar um nome ao usuário', mtWarning, mbOKCancel, 0);
+      dbedt_login.Text := '';
+      dbedt_senha.Text := '';
+      exit;
+    end;
+    dtmSystem.qryConsulta.SQL.Text := 'Select * from SYS_GRUPOS';
+    dtmSystem.qryConsulta.Open;
+//    dtmSystem.qryConsulta.Locate('TX_NOME',
+//      ComboBox1.Items[ComboBox1.ItemIndex], []);
+    dtmSystem.tblUsuariosID_GRUPO.AsString := dtmSystem.qryConsulta.FieldByName
+      ('ID_GRUPO').AsString;
+    dtmSystem.qryConsulta.Close;
+    dtmSystem.tblUsuarios.Post;
+//    dtmSystem.tblGrupos.Locate('TX_NOME',
+//      ComboBox1.Items[ComboBox1.ItemIndex], []);
+    dtmSystem.tblUsuarios.Edit;
+  end;
+
+end;
+end.

uconfFichaHistorico.dfm

@@ -0,0 +1,67 @@
+inherited confFichaHistorico: TconfFichaHistorico
+  Caption = 'Ficha de Hist'#243'rico'
+  ClientHeight = 130
+  ClientWidth = 347
+  ExplicitWidth = 353
+  ExplicitHeight = 158
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited stbStatus: TStatusBar
+    Top = 111
+    Width = 347
+    ExplicitTop = 111
+    ExplicitWidth = 347
+  end
+  object gb_data: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 333
+    Height = 65
+    Caption = 'Intervalo'
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 160
+      Top = 31
+      Width = 6
+      Height = 13
+      Caption = 'a'
+    end
+    object dtp_inicio: TDateTimePicker
+      Left = 10
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 0
+    end
+    object dtp_fim: TDateTimePicker
+      Left = 224
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 1
+    end
+  end
+  object btn_viewreport: TButton
+    Left = 70
+    Top = 80
+    Width = 75
+    Height = 25
+    Caption = 'Visualizar'
+    ModalResult = 1
+    TabOrder = 2
+    OnClick = btn_viewreportClick
+  end
+  object Button1: TButton
+    Left = 198
+    Top = 80
+    Width = 75
+    Height = 25
+    Caption = 'Cancelar'
+    ModalResult = 2
+    TabOrder = 3
+  end
+end

uconfFichaHistorico.pas

@@ -0,0 +1,73 @@
+unit uconfFichaHistorico;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Vcl.StdCtrls;
+
+type
+  TconfFichaHistorico = class(TmstMaster)
+    gb_data: TGroupBox;
+    Label1: TLabel;
+    dtp_inicio: TDateTimePicker;
+    dtp_fim: TDateTimePicker;
+    btn_viewreport: TButton;
+    Button1: TButton;
+    procedure FormCreate(Sender: TObject);
+    procedure btn_viewreportClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    id_devedor: string;
+    { Public declarations }
+  end;
+
+var
+  confFichaHistorico: TconfFichaHistorico;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem, urelHistorico;
+
+procedure TconfFichaHistorico.btn_viewreportClick(Sender: TObject);
+begin
+  inherited;
+  with TrelHistorico.Create(self) do
+  begin
+    if dtmSystem.tblDevedoresTP_CLIENTE.AsString = 'F' then
+    begin
+      frlbl_documento.DataField := 'CD_CPF';
+    end;
+    if dtmSystem.tblDevedoresTP_CLIENTE.AsString = 'J' then
+    begin
+      frlbl_documento.DataField := 'CD_CNPJ';
+    end;
+    zroqryHistorico.SQL.Clear;
+    zroqryHistorico.SQL.Add('select * from chg_historico');
+    zroqryHistorico.SQL.Add(' where id_devedor = ' + id_devedor);
+    zroqryHistorico.SQL.Add('and');
+    zroqryHistorico.SQL.Add('CAST(dt_contato AS DATE) >= ' +
+      QuotedStr(FormatDateTime('mm/dd/yyyy', dtp_inicio.Date)));
+    zroqryHistorico.SQL.Add('and');
+    zroqryHistorico.SQL.Add('CAST(dt_contato AS DATE) <= ' +
+      QuotedStr(FormatDateTime('mm/dd/yyyy', dtp_fim.Date)));
+    zroqryHistorico.SQL.Add('order by dt_contato desc');
+    zroqryHistorico.Open;
+    frlbl_referente.Caption := frlbl_referente.Caption + FormatDateTime('dd/mm/yyyy',
+      dtp_inicio.Date) + ' a ' + FormatDateTime('dd/mm/yyyy', dtp_fim.Date);
+    relHistorico.Preview();
+  end;
+end;
+
+procedure TconfFichaHistorico.FormCreate(Sender: TObject);
+begin
+  inherited;
+  dtp_inicio.Date := Date;
+  dtp_fim.Date := Date;
+end;
+
+end.

uconfRelGerencia.dfm

@@ -0,0 +1,154 @@
+inherited confRelGerencia: TconfRelGerencia
+  Caption = 'Relat'#243'rio de Ger'#234'ncia'
+  ClientHeight = 371
+  ClientWidth = 370
+  ExplicitWidth = 376
+  ExplicitHeight = 400
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lbl_emp: TLabel [0]
+    Left = 86
+    Top = 254
+    Width = 46
+    Height = 13
+    Caption = 'Empresas'
+  end
+  object lbl_tit: TLabel [1]
+    Left = 232
+    Top = 254
+    Width = 31
+    Height = 13
+    Caption = 'Titulos'
+  end
+  object lblProgress: TLabel [2]
+    Left = 0
+    Top = 322
+    Width = 370
+    Height = 13
+    Align = alBottom
+    ExplicitTop = 311
+    ExplicitWidth = 3
+  end
+  inherited stbStatus: TStatusBar
+    Top = 352
+    Width = 370
+    ExplicitTop = 352
+    ExplicitWidth = 370
+  end
+  object gb_data: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 354
+    Height = 65
+    Caption = 'Intervalo'
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 161
+      Top = 31
+      Width = 6
+      Height = 13
+      Caption = 'a'
+    end
+    object dtp_inicio: TDateTimePicker
+      Left = 10
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43466.429167685190000000
+      Time = 43466.429167685190000000
+      TabOrder = 0
+    end
+    object dtp_fim: TDateTimePicker
+      Left = 224
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 1
+    end
+  end
+  object btn_imprimir: TButton
+    Left = 8
+    Top = 249
+    Width = 75
+    Height = 25
+    Caption = 'Imprimir'
+    TabOrder = 2
+    OnClick = btn_imprimirClick
+  end
+  object rg_tipo: TRadioGroup
+    Left = 8
+    Top = 79
+    Width = 354
+    Height = 54
+    Caption = 'Tipo de Pesquisa'
+    Columns = 2
+    Items.Strings = (
+      'Anal'#237'tico'
+      'Sint'#233'tico')
+    TabOrder = 3
+  end
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 139
+    Width = 354
+    Height = 78
+    Caption = 'Departamentos'
+    TabOrder = 4
+    object CheckBox1: TCheckBox
+      Left = 84
+      Top = -1
+      Width = 23
+      Height = 17
+      TabOrder = 0
+      OnClick = CheckBox1Click
+    end
+    object DBLookupComboBox1: TDBLookupComboBox
+      Left = 10
+      Top = 22
+      Width = 335
+      Height = 21
+      DropDownRows = 12
+      DropDownWidth = 500
+      Enabled = False
+      KeyField = 'ID_DEPARTAMENTOS'
+      ListField = 'TX_NOME'
+      ListSource = dtmSystem.dtsDepartamentos
+      TabOrder = 1
+    end
+    object CheckBox2: TCheckBox
+      Left = 10
+      Top = 49
+      Width = 183
+      Height = 17
+      Caption = 'Sint'#233'tico de todos Departamentos'
+      Enabled = False
+      TabOrder = 2
+      OnClick = CheckBox2Click
+    end
+  end
+  object Button1: TButton
+    Left = 8
+    Top = 280
+    Width = 201
+    Height = 25
+    Caption = 'Imprimir lista de m'#250'ltiplos pagamentos'
+    TabOrder = 5
+    OnClick = Button1Click
+  end
+  object pbRel: TProgressBar
+    Left = 0
+    Top = 335
+    Width = 370
+    Height = 17
+    Align = alBottom
+    TabOrder = 6
+  end
+  object ZReadOnlyQuery1: TZReadOnlyQuery
+    Connection = dtmSystem.ZConnection
+    Params = <>
+    Left = 304
+    Top = 96
+  end
+end

uconfRelGerencia.pas

@@ -0,0 +1,995 @@
+unit uconfRelGerencia;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, System.IniFiles, System.UITypes,
+  System.DateUtils,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.ComCtrls,
+  Vcl.ExtCtrls, Vcl.DBCtrls, Data.DB, ZAbstractRODataset, ZDataset;
+
+type
+  TconfRelGerencia = class(TmstMaster)
+    gb_data: TGroupBox;
+    Label1: TLabel;
+    dtp_inicio: TDateTimePicker;
+    dtp_fim: TDateTimePicker;
+    btn_imprimir: TButton;
+    rg_tipo: TRadioGroup;
+    lbl_emp: TLabel;
+    lbl_tit: TLabel;
+    GroupBox1: TGroupBox;
+    CheckBox1: TCheckBox;
+    DBLookupComboBox1: TDBLookupComboBox;
+    ZReadOnlyQuery1: TZReadOnlyQuery;
+    Button1: TButton;
+    CheckBox2: TCheckBox;
+    pbRel: TProgressBar;
+    lblProgress: TLabel;
+    procedure btn_imprimirClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure CheckBox2Click(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+  private
+    sqlEmp: string;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  confRelGerencia: TconfRelGerencia;
+
+implementation
+
+{$R *.dfm}
+
+uses urelPrestacaoAnaSin, udtmSystem, urelPrestacaoAnaSin2, urelMulti;
+
+procedure TconfRelGerencia.btn_imprimirClick(Sender: TObject);
+var
+  soma_p, soma_j, soma_m, soma_e, soma_c, soma_d, soma_r, soma_rp: currency;
+  id_emp, i, qtde_mes, counter: integer;
+  d1, d2, str_dep, sql_emp: string;
+  faltando: boolean;
+  Dh1, M1, Y1: Word;
+  Dh2, M2, Y2: Word;
+  Dh3, M3, Y3: Word;
+  d3, d4, firstDate: TDate;
+  d: integer;
+begin
+
+  if rg_tipo.ItemIndex = -1 then
+  begin
+    rg_tipo.ItemIndex := 0;
+  end;
+  if (rg_tipo.ItemIndex = 0) and (CheckBox2.Checked) then
+  begin
+    Messagedlg
+      ('Você selecionou relátorio analítico e sintético ao mesmo tempo. Isso não pode ser realizado.',
+      mtWarning, [mbok], 0);
+    abort;
+  end;
+
+  Screen.Cursor := crHourGlass;
+
+  with dtmSystem do
+  begin
+
+    lblProgress.Caption := 'Filtrando empresas.';
+    pbRel.Position := 0;
+    pbRel.Max := 1;
+
+    if not tblEmpresaRepasse.Active then
+    begin
+      tblEmpresaRepasse.Open;
+    end;
+
+    DecodeDate(dtp_inicio.Date, Y1, M1, Dh1);
+    d3 := StrToDate('01/' + inttostr(M1) + '/' + inttostr(Y1));
+
+    DecodeDate(dtp_fim.Date, Y2, M2, Dh2);
+    d4 := StrToDate('01/' + inttostr(M2) + '/' + inttostr(Y2));
+
+    qtde_mes := MonthsBetween(d3, d4) + 1;
+    counter := 0;
+    sql_emp := tblCHGEmpresa.SQL.Text;
+    if CheckBox1.Checked then
+    begin
+      if CheckBox2.Checked then
+      begin
+        tblCHGEmpresa.SQL.Text :=
+          'select * from chg_empresas where id_empresa in (select id_empresa from chg_titulos'
+          + ' where cast(dt_pagamento as date) >= cast(' +
+          QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) +
+          ' as date) and' + ' cast(dt_pagamento as date) <= cast(' +
+          QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)) +
+          ' as date)) and id_departamento in (select ID_DEPARTAMENTOS from chg_departamentos)';
+      end
+      else
+      begin
+        tblCHGEmpresa.SQL.Text :=
+          'select * from chg_empresas where id_empresa in (select id_empresa from chg_titulos'
+          + ' where cast(dt_pagamento as date) >= cast(' +
+          QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) +
+          ' as date) and' + ' cast(dt_pagamento as date) <= cast(' +
+          QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)) +
+          ' as date)) and id_departamento = ' +
+          inttostr(DBLookupComboBox1.KeyValue);
+      end;
+    end
+    else
+    begin
+      tblCHGEmpresa.SQL.Text :=
+        'select * from chg_empresas where id_empresa in (select id_empresa from chg_titulos'
+        + ' where cast(dt_pagamento as date) >= cast(' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) +
+        ' as date) and' + ' cast(dt_pagamento as date) <= cast(' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)) + ' as date))';
+    end;
+    tblCHGEmpresa.Open;
+    lblProgress.Caption := 'Empresas Filtradas.';
+    pbRel.Step := 1;
+    Sleep(1000);
+    pbRel.Position := 0;
+    pbRel.Max := tblCHGEmpresa.RecordCount;
+    lblProgress.Caption := 'Verificando repasses.';
+    tblCHGEmpresa.First;
+    while not tblCHGEmpresa.Eof do
+    begin
+      firstDate := StartOfTheMonth(d3);
+      tblEmpresaRepasse.SQL.Clear;
+      tblEmpresaRepasse.SQL.Text :=
+        'SELECT * FROM CHG_EMPRESA_REPASSE WHERE ID_EMPRESA =' +
+        inttostr(id_credor) + ' order by ID_ANO, ID_MES';
+      tblEmpresaRepasse.Open;
+      tblEmpresaRepasse.Filtered := False;
+      tblEmpresaRepasse.Filter := '(ID_ANO >= ' + inttostr(Y1) +
+        ' and ID_ANO <= ' + inttostr(Y2) + ')';
+      tblEmpresaRepasse.Filtered := True;
+
+      for d := 0 to qtde_mes - 1 do
+      begin
+        DecodeDate(firstDate, Y3, M3, Dh3);
+        faltando := tblEmpresaRepasse.Locate('ID_ANO;ID_MES',
+          VarArrayOf([Y3, M3]), []);
+        firstDate := IncMonth(firstDate, 1);
+        if faltando = False then
+        begin
+          Messagedlg('A empresa ' + tblCHGEmpresaTX_NOME.AsString +
+            ' não possui modelos de repasse para todos os mêses dentro do período do pagamento mais antigo e o mais novo.'
+            + ' Por favor crie os modelos de repasses que faltam antes de realizar esta operação (Entre '
+            + meses[M1] + ' de ' + inttostr(Y1) + ' e ' + meses[M2] + ' de ' +
+            inttostr(Y2) + '.', mtWarning, [mbok], 0);
+          tblCHGEmpresa.SQL.Text := sql_emp;
+          tblEmpresaRepasse.Filtered := False;
+          tblCHGEmpresa.Open;
+          pbRel.Max := pbRel.Position - 1;
+          pbRel.StepIt;
+          lblProgress.Caption :=
+            'Há empresas com repasses faltando no período selecionado.';
+          Close;
+          abort;
+        end;
+      end;
+      tblCHGEmpresa.Next;
+      pbRel.StepIt;
+    end;
+  end;
+
+  lblProgress.Caption := 'Repasses Verificados.';
+  pbRel.Position := 0;
+  Sleep(1000);
+
+  str_dep := '';
+  if rg_tipo.ItemIndex = 0 then
+  begin
+    pbRel.Max := 2;
+    relPrestacaoAnaSin := TrelPrestacaoAnaSin.Create(self);
+    with relPrestacaoAnaSin do
+    begin
+      // RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT1',
+      // FormatDateTime('dd/mm/yyyy', dtp_inicio.Date),
+      // [rfReplaceAll, rfIgnoreCase]);
+      // RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT2',
+      // FormatDateTime('dd/mm/yyyy', dtp_fim.Date),
+      // [rfReplaceAll, rfIgnoreCase]);
+      RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT1',
+        FormatDateTime('dd/mm/yyyy', dtp_inicio.Date),
+        [rfReplaceAll, rfIgnoreCase]);
+      RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT2',
+        FormatDateTime('dd/mm/yyyy', dtp_fim.Date),
+        [rfReplaceAll, rfIgnoreCase]);
+      lbl_emp.Caption := 'Pesquisando títulos.';
+      Application.ProcessMessages;
+      if CheckBox1.Checked then
+      begin
+        if CheckBox2.Checked then
+        begin
+          frlbl_dep.Caption := 'Todos departamentos.';
+        end
+        else
+        begin
+          frlbl_dep.Caption := 'Dep.: ' +
+            dtmSystem.tblDepartamentosTX_NOME.AsString;
+        end;
+      end;
+      lblProgress.Caption := 'Preparando Empresas.';
+      with zroqryCredores.SQL do
+      begin
+        Clear;
+        add('select distinct');
+        add('e.*');
+        add('from chg_devedores A');
+        add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)');
+        add('inner join chg_empresas e on (E.id_empresa = B.id_empresa)');
+        add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = '
+          + QuotedStr('B') + ')');
+        add('and');
+        add('CAST(B.dt_pagamento AS DATE) >= ');
+        add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+        add('and');
+        add('CAST(B.dt_pagamento AS DATE) <= ');
+        add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+        if CheckBox1.Checked then
+        begin
+          // if CheckBox2.Checked then
+          // begin
+          // dtmSystem.tblDepartamentos.First;
+          // while not dtmSystem.tblDepartamentos.Eof do
+          // begin
+          // str_dep := str_dep + dtmSystem.tblDepartamentosID_DEPARTAMENTOS.
+          // AsString + ',';
+          // dtmSystem.tblDepartamentos.Next;
+          // end;
+          // setlength(str_dep, length(str_dep) - 1);
+          // add('and e.id_departamento in (' + str_dep + ')');
+          // end
+          // else
+          // begin
+          add('and e.id_departamento = ' +
+            inttostr(DBLookupComboBox1.KeyValue));
+          // end;
+        end;
+        add('and e.id_empresa <> 265');
+        add('order by e.tx_fantasia');
+      end;
+      pbRel.StepIt;
+      zroqryCredores.Open;
+      lbl_emp.Caption := 'Montando lista de títulos.';
+      lblProgress.Caption := 'Preparando Títulos.';
+      Application.ProcessMessages;
+      with zroqryTitulos.SQL do
+      begin
+        Clear;
+        add('select distinct');
+        add('A.tx_nome,');
+        add('A.id_devedor,');
+        add('B.tx_produto,');
+        add('B.dt_vencimento,');
+        add('B.dt_pagamento,');
+        // add('B.vl_titulo,');
+        add('case when B.id_titulo in (select id_parcela from sys_acordos) then (B.vl_corrigido - B.vl_juros - B.vl_multa - B.vl_encargos)');
+        add('when B.id_titulo not in (select id_parcela from sys_acordos) then (B.vl_titulo)');
+        add('end as vl_titulo,');
+        add('B.vl_desc_principal,');
+        add('B.vl_repasse_prin,');
+        add('B.vl_juros,');
+        add('B.vl_desc_juros,');
+        add('B.vl_repasse_juros,');
+        add('B.vl_multa,');
+        add('B.vl_desc_multa,');
+        add('B.vl_repasse_multa,');
+        add('B.vl_encargos,');
+        add('B.vl_indicador,');
+        add('B.vl_desc_indicador,');
+        add('B.vl_repasse_encargos,');
+        add('B.vl_corrigido,');
+        add('B.vl_repasse_corrigido,');
+        add('B.vl_desc_principal,');
+        add('B.id_titulo,');
+        add('B.id_empresa,');
+        add('B.tp_prestacao,');
+        add('AC.id_original,');
+        add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso');
+        add('from chg_titulos B');
+        add('left join chg_devedores A on (A.id_devedor = B.id_devedor)');
+        add('left join sys_acordos AC on (AC.id_original = B.id_titulo)');
+        add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = '
+          + QuotedStr('B') + ')');
+        add('and');
+        add('B.tp_motivo <> ' + QuotedStr('Q'));
+        add('and');
+        add('CAST(B.dt_pagamento AS DATE) >= ');
+        add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+        add('and');
+        add('CAST(B.dt_pagamento AS DATE) <= ');
+        add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+        add('and (AC.id_original is NULL');
+        add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))');
+        if CheckBox1.Checked then
+        begin
+          // if CheckBox2.Checked then
+          // begin
+          // add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento in ('
+          // + str_dep + '))');
+          // end
+          // else
+          // begin
+          add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento = '
+            + inttostr(DBLookupComboBox1.KeyValue) + ')');
+          // end;
+        end;
+        add('order by A.tx_nome');
+      end;
+      zroqryTitulos.Open;
+      frlbl_headertop.Caption :=
+        UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString + ' - CNPJ: ' +
+        dtmSystem.tblEmpresaTX_CNPJ.AsString);
+
+      Screen.Cursor := crDefault;
+      pbRel.StepIt;
+      relPrestacao.PreviewModal;
+      Screen.Cursor := crHourGlass;
+      lblProgress.Caption := 'Verificando Múltiplos Pagamentos.';
+      with ZReadOnlyQuery1.SQL do
+      begin
+        Clear;
+        add('select distinct');
+        add('A.tx_nome,');
+        add('B.tx_produto,');
+        add('B.dt_vencimento,');
+        add('B.dt_pagamento,');
+        // add('B.vl_titulo,');
+        add('case when B.id_titulo in (select id_parcela from sys_acordos) then (B.vl_corrigido - B.vl_juros - B.vl_multa - B.vl_encargos)');
+        add('when B.id_titulo not in (select id_parcela from sys_acordos) then (B.vl_titulo)');
+        add('end as vl_titulo,');
+        add('B.vl_juros,');
+        add('B.vl_multa,');
+        add('B.vl_encargos,');
+        add('B.vl_corrigido,');
+        add('B.vl_desc_principal,');
+        add('B.id_titulo,');
+        add('B.id_empresa,');
+        add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso,');
+        add('AC.id_original');
+        // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso');
+        add('from chg_titulos B');
+        add('left join chg_devedores A on (A.id_devedor = B.id_devedor)');
+        add('left join sys_acordos AC on (AC.id_original = B.id_titulo)');
+        add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = '
+          + QuotedStr('B') + ')');
+        add('and');
+        add('B.tp_motivo = ' + QuotedStr('Q'));
+        add('and');
+        add('CAST(B.dt_pagamento AS DATE) >= ');
+        add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+        add('and');
+        add('CAST(B.dt_pagamento AS DATE) <= ');
+        add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+        add('and (AC.id_original is NULL');
+        add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))');
+        if CheckBox1.Checked then
+        begin
+          // if CheckBox2.Checked then
+          // begin
+          // add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento in ('
+          // + str_dep + '))');
+          // end
+          // else
+          // begin
+          add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento = '
+            + inttostr(DBLookupComboBox1.KeyValue) + ')');
+          // end;
+        end;
+        add('order by A.tx_nome');
+      end;
+      ZReadOnlyQuery1.Open;
+      if not(ZReadOnlyQuery1.IsEmpty) then
+      begin
+        Messagedlg
+          ('Há títulos com múltiplas formas de pagamento neste intervalo de gerência.'
+          + ' Por favor procure suas prestações manuais.', mtInformation,
+          [mbok], 0);
+      end;
+      zroqryCredores.Close;
+      zroqryTitulos.Close;
+      lblProgress.Caption := 'Processo terminado.';
+//      dtmSystem.tblCHGEmpresa.SQL.Text := sql_emp;
+//      dtmSystem.tblCHGEmpresa.Open;
+
+//      abort;
+
+    end;
+  end;
+
+  if rg_tipo.ItemIndex = 1 then
+  begin
+    relPrestacaoAnaSin2 := TrelPrestacaoAnaSin2.Create(self);
+    with relPrestacaoAnaSin2 do
+    begin
+      // RLMemo2.Lines[0] := StringReplace(RLMemo2.Lines[0], 'DT1',
+      // FormatDateTime('dd/mm/yyyy', dtp_inicio.Date),
+      // [rfReplaceAll, rfIgnoreCase]);
+      // RLMemo2.Lines[0] := StringReplace(RLMemo2.Lines[0], 'DT2',
+      // FormatDateTime('dd/mm/yyyy', dtp_fim.Date),
+      // [rfReplaceAll, rfIgnoreCase]);
+      RLMemo2.Lines[0] := StringReplace(RLMemo2.Lines[0], 'DT1',
+        FormatDateTime('dd/mm/yyyy', dtp_inicio.Date),
+        [rfReplaceAll, rfIgnoreCase]);
+      RLMemo2.Lines[0] := StringReplace(RLMemo2.Lines[0], 'DT2',
+        FormatDateTime('dd/mm/yyyy', dtp_fim.Date),
+        [rfReplaceAll, rfIgnoreCase]);
+      cdsSintetico.Close;
+      cdsSintetico.CreateDataSet;
+      Application.ProcessMessages;
+      lbl_emp.Caption := 'Pesquisando títulos.';
+      Application.ProcessMessages;
+      if CheckBox1.Checked then
+      begin
+        frlbl_dep.Caption := 'Dep.: ' +
+          dtmSystem.tblDepartamentosTX_NOME.AsString;
+      end;
+      lblProgress.Caption := 'Preparando Empresas.';
+      with zroqryCredores.SQL do
+      begin
+        Clear;
+        add('select distinct');
+        add('e.*');
+        add('from chg_empresas e');
+        add('where e.id_empresa in (');
+        add('select b.id_empresa from chg_titulos B where');
+        add('(B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' +
+          QuotedStr('B') + ')');
+        add('and');
+        add('CAST(B.dt_pagamento AS DATE) >= ');
+        add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+        add('and');
+        add('CAST(B.dt_pagamento AS DATE) <= ');
+        add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+        add(')');
+        if CheckBox1.Checked then
+        begin
+          if CheckBox2.Checked then
+          begin
+            dtmSystem.tblDepartamentos.First;
+            while not dtmSystem.tblDepartamentos.Eof do
+            begin
+              str_dep := str_dep + dtmSystem.tblDepartamentosID_DEPARTAMENTOS.
+                AsString + ',';
+              dtmSystem.tblDepartamentos.Next;
+            end;
+            setlength(str_dep, length(str_dep) - 1);
+            add('and e.id_departamento in (' + str_dep + ')');
+          end
+          else
+          begin
+            add('and e.id_departamento = ' +
+              inttostr(DBLookupComboBox1.KeyValue));
+          end;
+        end;
+        add('and e.id_empresa <> 265');
+        add('order by e.tx_fantasia');
+
+        // clear;
+        // add('select distinct');
+        // add('e.*');
+        // add('from chg_devedores A');
+        // add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)');
+        // add('inner join chg_empresas e on (E.id_empresa = B.id_empresa)');
+        // add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = '
+        // + QuotedStr('B') + ')');
+        // add('and');
+        // add('CAST(B.dt_pagamento AS DATE) >= ');
+        // add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+        // add('and');
+        // add('CAST(B.dt_pagamento AS DATE) <= ');
+        // add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+        // add('order by e.tx_fantasia');
+      end;
+      zroqryCredores.Open;
+      pbRel.Max := zroqryCredores.RecordCount + 1;
+      pbRel.StepIt;
+      Application.ProcessMessages;
+      lbl_emp.Caption := 'Montando lista de títulos.';
+      lblProgress.Caption := 'Preparando Títulos.';
+      with zroqryTitulos.SQL do
+      begin
+        Clear;
+        add('select distinct');
+        add('B.tx_produto,');
+        add('B.dt_vencimento,');
+        add('B.dt_pagamento,');
+        // add('B.vl_titulo,');
+        add('case when B.id_titulo in (select id_parcela from sys_acordos) then (B.vl_corrigido - B.vl_juros - B.vl_multa - B.vl_encargos)');
+        add('when B.id_titulo not in (select id_parcela from sys_acordos) then (B.vl_titulo)');
+        add('end as vl_titulo,');
+        add('B.vl_desc_principal,');
+        add('B.vl_repasse_prin,');
+        add('B.vl_juros,');
+        add('B.vl_desc_juros,');
+        add('B.vl_repasse_juros,');
+        add('B.vl_multa,');
+        add('B.vl_desc_multa,');
+        add('B.vl_repasse_multa,');
+        add('B.vl_encargos,');
+        add('B.vl_indicador,');
+        add('B.vl_desc_indicador,');
+        add('B.vl_repasse_encargos,');
+        add('B.vl_corrigido,');
+        add('B.vl_repasse_corrigido,');
+        add('B.vl_desc_principal,');
+        add('B.id_titulo,');
+        add('B.id_empresa,');
+        add('B.id_devedor,');
+        add('e.tx_fantasia,');
+        add('e.tx_cnpj,');
+        add('B.tp_prestacao,');
+        add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso,');
+        add('AC.id_original');
+        // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso');
+        add('from chg_titulos B');
+        add('left join chg_empresas E on (B.id_empresa = E.id_empresa)');
+        add('left join sys_acordos AC on (AC.id_original = B.id_titulo)');
+        add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = '
+          + QuotedStr('B') + ')');
+        add('and');
+        add('B.tp_motivo <> ' + QuotedStr('Q'));
+        add('and');
+        add('CAST(B.dt_pagamento AS DATE) >= ');
+        add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+        add('and');
+        add('CAST(B.dt_pagamento AS DATE) <= ');
+        add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+        add('and (AC.id_original is NULL');
+        add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))');
+        if CheckBox1.Checked then
+        begin
+          if CheckBox2.Checked then
+          begin
+            add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento in ('
+              + str_dep + '))');
+          end
+          else
+          begin
+            add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento = '
+              + inttostr(DBLookupComboBox1.KeyValue) + ')');
+          end;
+        end;
+        add('order by B.id_empresa');
+
+        // clear;
+        // add('select');
+        // add('A.tx_nome,');
+        // add('B.tx_produto,');
+        // add('B.dt_vencimento,');
+        // add('B.dt_pagamento,');
+        // add('B.vl_titulo,');
+        // add('B.vl_juros,');
+        // add('B.vl_multa,');
+        // add('B.vl_encargos,');
+        // add('B.vl_corrigido,');
+        // add('B.vl_desc_principal,');
+        // add('B.id_titulo,');
+        // add('B.id_empresa,');
+        // add('e.tx_fantasia,');
+        // add('e.tx_cnpj,');
+        // add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso');
+        // add('from chg_devedores A');
+        // add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)');
+        // add('inner join chg_empresas E on (B.id_empresa = E.id_empresa)');
+        // add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = '
+        // + QuotedStr('B') + ')');
+        // add('and');
+        // add('CAST(B.dt_pagamento AS DATE) >= ');
+        // add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+        // add('and');
+        // add('CAST(B.dt_pagamento AS DATE) <= ');
+        // add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+        // add('and');
+        // add('b.id_titulo not in (select ac.id_original from sys_acordos ac)');
+        // add('order by B.id_empresa');
+        Application.ProcessMessages;
+      end;
+      soma_p := 0;
+      soma_j := 0;
+      soma_m := 0;
+      soma_e := 0;
+      soma_c := 0;
+      soma_d := 0;
+      soma_r := 0;
+      soma_rp := 0;
+      zroqryTitulos.Open;
+      Application.ProcessMessages;
+      lblProgress.Caption := 'Calculando valores.';
+      if CheckBox2.Checked then
+      begin
+        deps := True;
+        dtmSystem.tblDepartamentos.First;
+        while not dtmSystem.tblDepartamentos.Eof do
+        begin
+          Application.ProcessMessages;
+          zroqryCredores.Filtered := False;
+          zroqryCredores.Filter := 'ID_DEPARTAMENTO = ' +
+            dtmSystem.tblDepartamentosID_DEPARTAMENTOS.AsString;
+          zroqryCredores.Filtered := True;
+
+          zroqryCredores.First;
+          while not zroqryCredores.Eof do
+          begin
+            lbl_emp.Caption := 'Progresso: Empresa ' +
+              inttostr(zroqryCredores.RecNo) + ' de ' +
+              inttostr(zroqryCredores.RecordCount);
+            zroqryTitulos.Filtered := False;
+            zroqryTitulos.Filter := 'ID_EMPRESA = ' +
+              zroqryCredoresID_EMPRESA.AsString;
+            zroqryTitulos.Filtered := True;
+            zroqryTitulos.First;
+            while not zroqryTitulos.Eof do
+            begin
+              lbl_tit.Caption := 'Título ' + inttostr(zroqryTitulos.RecNo) +
+                ' de ' + inttostr(zroqryTitulos.RecordCount);
+              soma_p := soma_p + zroqryTitulosVL_TITULO.ascurrency;
+              soma_m := soma_m + zroqryTitulosVL_MULTA.ascurrency;
+              soma_j := soma_j + zroqryTitulosVL_JUROS.ascurrency;
+              soma_e := soma_e + zroqryTitulosVL_ENCARGOS.ascurrency;
+              soma_c := soma_c + zroqryTitulosVL_CORRIGIDO.ascurrency;
+              soma_d := soma_d + zroqryTitulosVL_DESC_PRINCIPAL.ascurrency;
+              soma_r := soma_r + zroqryTitulosVL_RETIDO.ascurrency;
+              soma_rp := soma_rp + zroqryTitulosVL_REPASSE.ascurrency;
+              zroqryTitulos.Next;
+              Application.ProcessMessages;
+            end;
+            zroqryCredores.Next;
+            pbRel.StepIt;
+          end;
+
+          cdsSintetico.Append;
+          cdsSinteticoVL_TITULO.ascurrency := soma_p;
+          cdsSinteticoVL_JUROS.ascurrency := soma_j;
+          cdsSinteticoVL_MULTA.ascurrency := soma_m;
+          cdsSinteticoVL_ENCARGOS.ascurrency := soma_e;
+          cdsSinteticoVL_DESC_PRINCIPAL.ascurrency := soma_d;
+          cdsSinteticoVL_CORRIGIDO.ascurrency := soma_c;
+          cdsSinteticoVL_RETIDO.ascurrency := soma_r;
+          cdsSinteticoVL_REPASSADO.ascurrency := soma_rp;
+          cdsSinteticoID_EMPRESA.AsInteger :=
+            dtmSystem.tblDepartamentosID_DEPARTAMENTOS.AsInteger;
+          cdsSinteticoTX_FANTASIA.AsString :=
+            dtmSystem.tblDepartamentosTX_NOME.AsString;
+          cdsSinteticoTX_CNPJ.AsString := zroqryTitulosTX_CNPJ.AsString;
+          cdsSintetico.Post;
+          soma_p := 0;
+          soma_j := 0;
+          soma_m := 0;
+          soma_e := 0;
+          soma_c := 0;
+          soma_d := 0;
+          soma_r := 0;
+          soma_rp := 0;
+          Application.ProcessMessages;
+
+          dtmSystem.tblDepartamentos.Next;
+        end;
+
+        RLLabel14.Caption := UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString +
+          ' - CNPJ: ' + dtmSystem.tblEmpresaTX_CNPJ.AsString);
+
+        Screen.Cursor := crDefault;
+        lbl_emp.Caption := 'Pronto!';
+        lbl_tit.Caption := '';
+        relPrestacao2.PreviewModal;
+        Screen.Cursor := crHourGlass;
+        lblProgress.Caption := 'Verificando Múltiplos Pagamentos.';
+        with ZReadOnlyQuery1.SQL do
+        begin
+          Clear;
+          add('select distinct');
+          add('B.tx_produto,');
+          add('B.dt_vencimento,');
+          add('B.dt_pagamento,');
+          // add('B.vl_titulo,');
+          add('case when B.id_titulo in (select id_parcela from sys_acordos) then (B.vl_corrigido - B.vl_juros - B.vl_multa - B.vl_encargos)');
+          add('when B.id_titulo not in (select id_parcela from sys_acordos) then (B.vl_titulo)');
+          add('end as vl_titulo,');
+          add('B.vl_juros,');
+          add('B.vl_multa,');
+          add('B.vl_encargos,');
+          add('B.vl_corrigido,');
+          add('B.vl_desc_principal,');
+          add('B.id_titulo,');
+          add('B.id_empresa,');
+          add('e.tx_fantasia,');
+          add('e.tx_cnpj,');
+          add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso,');
+          add('AC.id_original');
+          // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso');
+          add('from chg_titulos B');
+          add('left join chg_empresas E on (B.id_empresa = E.id_empresa)');
+          add('left join sys_acordos AC on (AC.id_original = B.id_titulo)');
+          add('where (B.tp_situacao = ' + QuotedStr('QC') +
+            ' or B.tp_situacao = ' + QuotedStr('B') + ')');
+          add('and');
+          add('B.tp_motivo = ' + QuotedStr('Q'));
+          add('and');
+          add('CAST(B.dt_pagamento AS DATE) >= ');
+          add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+          add('and');
+          add('CAST(B.dt_pagamento AS DATE) <= ');
+          add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+          add('and (AC.id_original is NULL');
+          add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))');
+          if CheckBox1.Checked then
+          begin
+            if CheckBox2.Checked then
+            begin
+              add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento in ('
+                + str_dep + '))');
+            end
+            else
+            begin
+              add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento = '
+                + inttostr(DBLookupComboBox1.KeyValue) + ')');
+            end;
+          end;
+          add('order by B.id_empresa');
+        end;
+        Application.ProcessMessages;
+        ZReadOnlyQuery1.Open;
+        if not(ZReadOnlyQuery1.IsEmpty) then
+        begin
+          Messagedlg
+            ('Há títulos com múltiplas formas de pagamento neste intervalo de gerência.'
+            + ' Por favor procure suas prestações manuais.', mtInformation,
+            [mbok], 0);
+        end;
+        Screen.Cursor := crDefault;
+
+        zroqryCredores.Close;
+        zroqryTitulos.Close;
+      end
+      else
+      begin
+        Application.ProcessMessages;
+        zroqryCredores.First;
+        lblProgress.Caption := 'Calculando Valores.';
+        while not zroqryCredores.Eof do
+        begin
+          lbl_emp.Caption := 'Progresso: Empresa ' +
+            inttostr(zroqryCredores.RecNo) + ' de ' +
+            inttostr(zroqryCredores.RecordCount);
+          zroqryTitulos.Filtered := False;
+          zroqryTitulos.Filter := 'ID_EMPRESA = ' +
+            zroqryCredoresID_EMPRESA.AsString;
+          zroqryTitulos.Filtered := True;
+          zroqryTitulos.First;
+          while not zroqryTitulos.Eof do
+          begin
+            lbl_tit.Caption := 'Título ' + inttostr(zroqryTitulos.RecNo) +
+              ' de ' + inttostr(zroqryTitulos.RecordCount);
+            soma_p := soma_p + zroqryTitulosVL_TITULO.ascurrency;
+            soma_m := soma_m + zroqryTitulosVL_MULTA.ascurrency;
+            soma_j := soma_j + zroqryTitulosVL_JUROS.ascurrency;
+            soma_e := soma_e + zroqryTitulosVL_ENCARGOS.ascurrency;
+            soma_c := soma_c + zroqryTitulosVL_CORRIGIDO.ascurrency;
+            soma_d := soma_d + zroqryTitulosVL_DESC_PRINCIPAL.ascurrency;
+            soma_r := soma_r + zroqryTitulosVL_RETIDO.ascurrency;
+            soma_rp := soma_rp + zroqryTitulosVL_REPASSE.ascurrency;
+            zroqryTitulos.Next;
+            Application.ProcessMessages;
+          end;
+          if zroqryTitulos.Eof then
+          begin
+            cdsSintetico.Append;
+            cdsSinteticoVL_TITULO.ascurrency := soma_p;
+            cdsSinteticoVL_JUROS.ascurrency := soma_j;
+            cdsSinteticoVL_MULTA.ascurrency := soma_m;
+            cdsSinteticoVL_ENCARGOS.ascurrency := soma_e;
+            cdsSinteticoVL_DESC_PRINCIPAL.ascurrency := soma_d;
+            cdsSinteticoVL_CORRIGIDO.ascurrency := soma_c;
+            cdsSinteticoVL_RETIDO.ascurrency := soma_r;
+            cdsSinteticoVL_REPASSADO.ascurrency := soma_rp;
+            cdsSinteticoID_EMPRESA.AsInteger :=
+              zroqryCredoresID_EMPRESA.AsInteger;
+            cdsSinteticoTX_FANTASIA.AsString :=
+              zroqryTitulosTX_FANTASIA.AsString;
+            cdsSinteticoTX_CNPJ.AsString := zroqryTitulosTX_CNPJ.AsString;
+            cdsSintetico.Post;
+            soma_p := 0;
+            soma_j := 0;
+            soma_m := 0;
+            soma_e := 0;
+            soma_c := 0;
+            soma_d := 0;
+            soma_r := 0;
+            soma_rp := 0;
+            Application.ProcessMessages;
+          end;
+          Application.ProcessMessages;
+          pbRel.StepIt;
+          zroqryCredores.Next;
+        end;
+
+        RLLabel14.Caption := UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString +
+          ' - CNPJ: ' + dtmSystem.tblEmpresaTX_CNPJ.AsString);
+
+        Screen.Cursor := crDefault;
+        lbl_emp.Caption := 'Pronto!';
+        lbl_tit.Caption := '';
+        relPrestacao2.PreviewModal;
+        Screen.Cursor := crHourGlass;
+        Application.ProcessMessages;
+        lblProgress.Caption := 'Verificando Múltiplos Pagamentos.';
+        with zroqryTitulos.SQL do
+        begin
+          Clear;
+          add('select distinct');
+          add('B.tx_produto,');
+          add('B.dt_vencimento,');
+          add('B.dt_pagamento,');
+          // add('B.vl_titulo,');
+          add('case when B.id_titulo in (select id_parcela from sys_acordos) then (B.vl_corrigido - B.vl_juros - B.vl_multa - B.vl_encargos)');
+          add('when B.id_titulo not in (select id_parcela from sys_acordos) then (B.vl_titulo)');
+          add('end as vl_titulo,');
+          add('B.vl_desc_principal,');
+          add('B.vl_repasse_prin,');
+          add('B.vl_juros,');
+          add('B.vl_desc_juros,');
+          add('B.vl_repasse_juros,');
+          add('B.vl_multa,');
+          add('B.vl_desc_multa,');
+          add('B.vl_repasse_multa,');
+          add('B.vl_encargos,');
+          add('B.vl_indicador,');
+          add('B.vl_desc_indicador,');
+          add('B.vl_repasse_encargos,');
+          add('B.vl_corrigido,');
+          add('B.vl_repasse_corrigido,');
+          add('B.vl_desc_principal,');
+          add('B.id_titulo,');
+          add('B.id_empresa,');
+          add('e.tx_fantasia,');
+          add('e.tx_cnpj,');
+          add('B.tp_prestacao,');
+          add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso,');
+          add('AC.id_original');
+          // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso');
+          add('from chg_titulos B');
+          add('left join chg_empresas E on (B.id_empresa = E.id_empresa)');
+          add('left join sys_acordos AC on (AC.id_original = B.id_titulo)');
+          add('where (B.tp_situacao = ' + QuotedStr('QC') +
+            ' or B.tp_situacao = ' + QuotedStr('B') + ')');
+          add('and');
+          add('B.tp_motivo = ' + QuotedStr('Q'));
+          add('and');
+          add('CAST(B.dt_pagamento AS DATE) >= ');
+          add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+          add('and');
+          add('CAST(B.dt_pagamento AS DATE) <= ');
+          add(QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+          add('and (AC.id_original is NULL');
+          add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))');
+          if CheckBox1.Checked then
+          begin
+            if CheckBox2.Checked then
+            begin
+              add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento in ('
+                + str_dep + '))');
+            end
+            else
+            begin
+              add('and b.id_empresa in (select chg_empresas.id_empresa from chg_empresas where chg_empresas.id_departamento = '
+                + inttostr(DBLookupComboBox1.KeyValue) + ')');
+            end;
+          end;
+          add('order by B.id_empresa');
+        end;
+        Application.ProcessMessages;
+        zroqryTitulos.Open;
+        if not(zroqryTitulos.IsEmpty) then
+        begin
+          Messagedlg
+            ('Há títulos com múltiplas formas de pagamento neste intervalo de gerência.'
+            + ' Por favor procure suas prestações manuais.', mtInformation,
+            [mbok], 0);
+        end;
+        Screen.Cursor := crDefault;
+
+        zroqryCredores.Close;
+        zroqryTitulos.Close;
+        cdsSintetico.First;
+        // with TIniFile.Create(ExtractFilePath(Application.ExeName) +
+        // 'sintetico.ini') do
+        with TIniFile.Create(dtmSystem.path_executavel + '\sintetico.ini') do
+        begin
+          try
+            i := 1;
+            EraseSection('Dados');
+            while SectionExists('Empresa_' + inttostr(i)) do
+            begin
+              EraseSection('Empresa_' + inttostr(i));
+              Inc(i, 1);
+            end;
+            Writeinteger('Dados', 'Qtde_Empresas', cdsSintetico.RecordCount);
+            WriteString('Dados', 'Periodo', FormatDateTime('dd/mm/yyyy',
+              dtp_inicio.Date) + ' - ' + FormatDateTime('dd/mm/yyyy',
+              dtp_fim.Date));
+            i := 1;
+            while not cdsSintetico.Eof do
+            begin
+              WriteString('Empresa_' + inttostr(i), 'TX_FANTASIA',
+                cdsSinteticoTX_FANTASIA.AsString);
+              WriteString('Empresa_' + inttostr(i), 'CNPJ',
+                cdsSinteticoTX_CNPJ.AsString);
+              WriteString('Empresa_' + inttostr(i), 'Valor',
+                cdsSinteticoVL_RETIDO.AsString);
+              Inc(i, 1);
+              cdsSintetico.Next;
+            end;
+          finally
+            Free
+          end;
+        end;
+      end;
+    end;
+    lblProgress.Caption := 'Processo terminado.';
+  end;
+  dtmSystem.tblCHGEmpresa.SQL.Text := sql_emp;
+  dtmSystem.tblCHGEmpresa.Open;
+  Screen.Cursor := crDefault;
+end;
+
+procedure TconfRelGerencia.Button1Click(Sender: TObject);
+begin
+  inherited;
+  if (ZReadOnlyQuery1.RecordCount = 0) or (ZReadOnlyQuery1.Active = False) then
+  begin
+    abort;
+  end;
+  relMulti := TrelMulti.Create(self);
+  with relMulti do
+  begin
+    dtsRel.DataSet := ZReadOnlyQuery1;
+    rldbtxt1.DataField := 'tx_nome';
+    rldbtxt2.DataField := 'tx_produto';
+    rldbtxt3.DataField := 'vl_titulo';
+    rldbtxt4.DataField := 'dt_vencimento';
+    RLReport1.PreviewModal;
+  end;
+end;
+
+procedure TconfRelGerencia.CheckBox1Click(Sender: TObject);
+begin
+  inherited;
+  DBLookupComboBox1.Enabled := CheckBox1.Checked;
+  CheckBox2.Enabled := CheckBox1.Checked;
+end;
+
+procedure TconfRelGerencia.CheckBox2Click(Sender: TObject);
+begin
+  inherited;
+  DBLookupComboBox1.Enabled := not(CheckBox2.Checked);
+end;
+
+procedure TconfRelGerencia.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  dtmSystem.tblCHGEmpresa.SQL.Text := sqlEmp;
+  dtmSystem.tblCHGEmpresa.Open;
+  dtmSystem.tblEmpresaRepasse.Filtered := False;
+end;
+
+procedure TconfRelGerencia.FormCreate(Sender: TObject);
+begin
+  inherited;
+  dtp_inicio.Date := Date;
+  dtp_fim.Date := Date;
+  lbl_emp.Caption := '';
+  lbl_tit.Caption := '';
+  sqlEmp := dtmSystem.tblCHGEmpresa.SQL.Text;
+end;
+
+end.

uconfrelAcordos.dfm

@@ -0,0 +1,80 @@
+inherited confrelAcordos: TconfrelAcordos
+  Caption = 'Rela'#231#227'o de Acordos por Empresa'
+  ClientHeight = 204
+  ClientWidth = 351
+  ExplicitWidth = 357
+  ExplicitHeight = 232
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited stbStatus: TStatusBar
+    Top = 185
+    Width = 351
+    ExplicitTop = 185
+    ExplicitWidth = 351
+  end
+  object gb_data: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 333
+    Height = 65
+    Caption = 'Intervalo'
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 168
+      Top = 31
+      Width = 6
+      Height = 13
+      Caption = 'a'
+    end
+    object dtp_inicio: TDateTimePicker
+      Left = 10
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 0
+    end
+    object dtp_fim: TDateTimePicker
+      Left = 224
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 1
+    end
+  end
+  object Button1: TButton
+    Left = 268
+    Top = 150
+    Width = 75
+    Height = 25
+    Caption = 'Imprimir'
+    TabOrder = 2
+    OnClick = Button1Click
+  end
+  object gb_beneficiario: TGroupBox
+    Left = 8
+    Top = 79
+    Width = 333
+    Height = 65
+    Caption = 'Credor'
+    TabOrder = 3
+    object dblucb_beneficiario: TDBLookupComboBox
+      Left = 10
+      Top = 26
+      Width = 311
+      Height = 21
+      KeyField = 'ID_EMPRESA'
+      ListField = 'TX_NOME'
+      ListSource = dtsBeneficiarios
+      TabOrder = 0
+    end
+  end
+  object dtsBeneficiarios: TDataSource
+    DataSet = dtmSystem.tblCHGEmpresa
+    Left = 184
+    Top = 56
+  end
+end

uconfrelAcordos.pas

@@ -0,0 +1,185 @@
+unit uconfrelAcordos;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Data.DB,
+  Vcl.DBCtrls, Vcl.StdCtrls;
+
+type
+  TconfrelAcordos = class(TmstMaster)
+    gb_data: TGroupBox;
+    Label1: TLabel;
+    dtp_inicio: TDateTimePicker;
+    dtp_fim: TDateTimePicker;
+    Button1: TButton;
+    gb_beneficiario: TGroupBox;
+    dblucb_beneficiario: TDBLookupComboBox;
+    dtsBeneficiarios: TDataSource;
+    procedure FormCreate(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+  private
+    id_emp: integer;
+    procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
+
+    { Private declarations }
+  public
+    str_titulos: string;
+    { Public declarations }
+  end;
+
+var
+  confrelAcordos: TconfrelAcordos;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem, urelRelacaoAcordo;
+
+procedure TconfrelAcordos.Button1Click(Sender: TObject);
+var
+  str_ids: string;
+begin
+  inherited;
+  Screen.Cursor := crHourGlass;
+  relRelacaoAcordo := TrelRelacaoAcordo.Create(self);
+  with relRelacaoAcordo do
+  begin
+    rel_acordo := true;
+    with zroqryAcordos.SQL do
+    begin
+      Clear;
+      Add('select distinct');
+      //Add('D.tx_nome,');
+      //Add('T.id_titulo,');
+      Add('MAX(T.id_titulo),');
+      //Add('T.tx_produto,');
+      //Add('T.dt_vencimento,');
+      //Add('T.vl_titulo,');
+      //Add('T.qtde_parcelas,');
+      Add('AC.id_acordo');
+      Add('from chg_titulos T');
+      Add('left join sys_acordos AC on (AC.id_original = T.id_titulo)');
+      //Add('left join chg_devedores D on (D.id_devedor = T.id_devedor)');
+      Add('where (T.tp_situacao = ' + QuotedStr('QC') + ' or T.tp_situacao = ' +
+        QuotedStr('B') + ') and');
+      Add('T.id_empresa = ' + inttostr(dblucb_beneficiario.KeyValue) + ' and');
+      Add('((CAST(T.dt_pagamento AS DATE) >= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and');
+      Add('CAST(T.dt_pagamento AS DATE) <= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)) + ' and');
+      Add('T.dt_emissao_recibo is NULL) or');
+      Add('(CAST(T.dt_emissao_recibo AS DATE) >= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and');
+      Add('CAST(T.dt_emissao_recibo AS DATE) <= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)) + ')) and');
+      Add('T.id_titulo in (select id_original from sys_acordos)');
+      Add('group by AC.id_acordo');
+      //Add('order by T.id_titulo');
+      Add('order by AC.id_acordo');
+    end;
+    zroqryAcordos.Open;
+    zroqryAcordos.First;
+    str_ids := '';
+    while not zroqryAcordos.Eof do
+    begin
+      str_ids := str_ids + zroqryAcordos.FieldByName('ID_ACORDO')
+        .AsString + ',';
+      zroqryAcordos.Next;
+    end;
+    setlength(str_ids, length(str_ids) - 1);
+    if length(str_ids) > 0 then
+    begin
+      with zroqry1.SQL do
+      begin
+        Clear;
+        Add('select distinct A.id_acordo, B.tx_nome from sys_acordos A');
+        Add('left join chg_devedores B on (A.id_devedor = B.id_devedor)');
+        Add('where id_acordo in (' + str_ids + ')');
+        Add('order by B.tx_nome');
+      end;
+      with zroqry2.SQL do
+      begin
+        Clear;
+        Add('select distinct A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A');
+        Add('left join chg_titulos B on (A.id_original = B.id_titulo)');
+        Add('where id_acordo in (' + str_ids + ')');
+        Add('group by A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimento, B.vl_titulo');
+      end;
+      with zroqry3.SQL do
+      begin
+        Clear;
+        Add('select distinct A.id_acordo, A.id_parcela, B.tx_produto, B.dt_vencimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A');
+        Add('left join chg_titulos B on (A.id_parcela = B.id_titulo)');
+        Add('where id_acordo in (' + str_ids + ')');
+        Add('group by A.id_acordo, A.id_parcela, B.tx_produto, B.dt_vencimento, B.vl_titulo');
+      end;
+      dtmSystem.tblEmpresa.Locate('ID_EMPRESA', id_emp, []);
+      RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'BENEF',
+        UpperCase(dtmSystem.tblCHGEmpresaTX_NOME.AsString),
+        [rfReplaceAll, rfIgnoreCase]);
+      RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT1',
+        FormatDateTime('dd/mm/yyyy', dtp_inicio.Date),
+        [rfReplaceAll, rfIgnoreCase]);
+      RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT2',
+        FormatDateTime('dd/mm/yyyy', dtp_fim.Date),
+        [rfReplaceAll, rfIgnoreCase]);
+      zroqry1.Open;
+      zroqry2.Open;
+      zroqry3.Open;
+
+      Screen.Cursor := crDefault;
+      frrelRelacaoAcordo.PreviewModal;
+      zroqryAcordos.Close;
+      zroqry1.Close;
+      zroqry2.Close;
+      zroqry3.Close;
+    end
+    else
+    begin
+      Screen.Cursor := crDefault;
+      Showmessage('Não foi encontrado nenhum acordo no período escolhido para o credor selecionado.');
+    end;
+  end;
+end;
+
+procedure TconfrelAcordos.FormCreate(Sender: TObject);
+begin
+  inherited;
+  dtp_inicio.Date := Date;
+  dtp_fim.Date := Date;
+  if not dtmSystem.tblCHGEmpresa.Active then
+  begin
+    dtmSystem.tblCHGEmpresa.Open;
+  end;
+  id_emp := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger;
+  dblucb_beneficiario.KeyValue := 1;
+end;
+
+procedure TconfrelAcordos.WMMoving(var Msg: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with Msg.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(Msg.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(Msg.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(Msg.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

uconfrelBordero.dfm

@@ -0,0 +1,88 @@
+object confrelBordero: TconfrelBordero
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsSingle
+  Caption = 'Relat'#243'rio de Entrada'
+  ClientHeight = 182
+  ClientWidth = 360
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  KeyPreview = True
+  OldCreateOrder = False
+  Position = poDesktopCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnKeyDown = FormKeyDown
+  PixelsPerInch = 96
+  TextHeight = 13
+  object btn_viewreport: TButton
+    Left = 155
+    Top = 149
+    Width = 75
+    Height = 25
+    Caption = 'Visualizar'
+    TabOrder = 0
+    OnClick = btn_viewreportClick
+  end
+  object gb_data: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 344
+    Height = 65
+    Caption = 'Intervalo'
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 113
+      Top = 31
+      Width = 6
+      Height = 13
+      Caption = 'a'
+    end
+    object dtp_inicio: TDateTimePicker
+      Left = 10
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 0
+    end
+    object dtp_fim: TDateTimePicker
+      Left = 125
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 1
+    end
+  end
+  object gb_beneficiario: TGroupBox
+    Left = 8
+    Top = 79
+    Width = 344
+    Height = 65
+    Caption = 'Benefici'#225'rio'
+    TabOrder = 2
+    object dblucb_beneficiario: TDBLookupComboBox
+      Left = 10
+      Top = 26
+      Width = 319
+      Height = 21
+      KeyField = 'ID_EMPRESA'
+      ListField = 'TX_NOME'
+      ListSource = dtsBeneficiario
+      TabOrder = 0
+    end
+  end
+  object dtsBeneficiario: TDataSource
+    DataSet = dtmSystem.tblCHGEmpresa
+    Left = 200
+    Top = 64
+  end
+end

uconfrelBordero.pas

@@ -0,0 +1,131 @@
+unit uconfrelBordero;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.ComCtrls,
+  Data.DB, DateUtils;
+
+type
+  TconfrelBordero = class(TForm)
+    dtsBeneficiario: TDataSource;
+    btn_viewreport: TButton;
+    gb_data: TGroupBox;
+    dtp_inicio: TDateTimePicker;
+    dtp_fim: TDateTimePicker;
+    Label1: TLabel;
+    gb_beneficiario: TGroupBox;
+    dblucb_beneficiario: TDBLookupComboBox;
+    procedure btn_viewreportClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+  private
+    procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  confrelBordero: TconfrelBordero;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem, urelBordero;
+
+// relatório de entrada
+
+procedure TconfrelBordero.btn_viewreportClick(Sender: TObject);
+begin
+  dtmSystem.id_empimport := dblucb_beneficiario.KeyValue;
+  relBordero := TrelBordero.Create(self);
+  with relBordero do
+  begin
+    with zqryRel.sql do
+    begin
+      Clear;
+      Add('select');
+      Add('A.id_devedor,');
+      Add('A.tx_nome as NOME,');
+      Add('case');
+      Add('when A.TP_CLIENTE = ''F'' then A.CD_CPF');
+      Add('when A.TP_CLIENTE = ''J'' then A.CD_CNPJ');
+      Add('end as TX_DOCUMENTO,');
+      //Add('A.cd_cpf as CPF,');
+      Add('A.cd_devedor AS CODIGO,');
+      Add('B.dt_ENTRADA AS DATA_ENTRADA,');
+      Add('B.tx_produto AS PRODUTO,');
+      Add('B.vl_titulo AS VALOR,');
+      Add('B.dt_vencimento as DATA_VENCIMENTO');
+      Add('from chg_devedores A');
+      Add('inner join chg_titulos B');
+      Add('on (A.id_devedor = B.id_devedor)');
+      Add('where (B.id_empresa = ' + inttostr(dblucb_beneficiario.KeyValue)
+        + ') and');
+      Add('(CAST(B.dt_entrada AS DATE) >= ' + QuotedStr(FormatDateTime('mm/dd/YYYY',
+        dtp_inicio.Date)) + ') and');
+      Add('(CAST(B.dt_entrada AS DATE) <= ' + QuotedStr(FormatDateTime('mm/dd/YYYY',
+        dtp_fim.Date)) + ')');
+      Add('order by A.tx_nome');
+    end;
+    zqryRel.Open;
+    frBordero.PreviewModal;
+  end;
+end;
+
+procedure TconfrelBordero.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caFree;
+  confrelBordero := nil;
+end;
+
+procedure TconfrelBordero.FormCreate(Sender: TObject);
+begin
+  dtp_inicio.Date := Date;
+  dtp_fim.Date := Date;
+  if not dtsBeneficiario.DataSet.Active then
+  begin
+    dtsBeneficiario.DataSet.Open;
+  end;
+  dblucb_beneficiario.KeyValue := dtsBeneficiario.DataSet.RecNo;
+end;
+
+procedure TconfrelBordero.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TconfrelBordero.WMMoving(var Msg: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with Msg.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(Msg.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(Msg.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(Msg.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

uconfrelPrestacaoContas.dfm

@@ -0,0 +1,277 @@
+object confrelPrestacaoContas: TconfrelPrestacaoContas
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsSingle
+  Caption = 'Presta'#231#227'o de Contas'
+  ClientHeight = 243
+  ClientWidth = 1229
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  KeyPreview = True
+  OldCreateOrder = False
+  Position = poDesktopCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnKeyDown = FormKeyDown
+  PixelsPerInch = 96
+  TextHeight = 13
+  object gb_data: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 333
+    Height = 65
+    Caption = 'Intervalo'
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 168
+      Top = 31
+      Width = 6
+      Height = 13
+      Caption = 'a'
+    end
+    object dtp_inicio: TDateTimePicker
+      Left = 10
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 0
+    end
+    object dtp_fim: TDateTimePicker
+      Left = 224
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 1
+    end
+  end
+  object gb_beneficiario: TGroupBox
+    Left = 8
+    Top = 139
+    Width = 333
+    Height = 65
+    Caption = 'Credor'
+    TabOrder = 1
+    object dblucb_beneficiario: TDBLookupComboBox
+      Left = 10
+      Top = 26
+      Width = 311
+      Height = 21
+      KeyField = 'ID_EMPRESA'
+      ListField = 'TX_NOME'
+      ListSource = dtsBeneficiarios
+      TabOrder = 0
+    end
+  end
+  object btn_viewreport: TButton
+    Left = 8
+    Top = 211
+    Width = 75
+    Height = 25
+    Caption = 'Visualizar'
+    TabOrder = 2
+    OnClick = btn_viewreportClick
+  end
+  object rg_tipo: TRadioGroup
+    Left = 8
+    Top = 79
+    Width = 333
+    Height = 54
+    Caption = 'Tipo de Pesquisa'
+    Columns = 2
+    Items.Strings = (
+      'Data do C'#225'lculo'
+      'Emiss'#227'o de Recibo')
+    TabOrder = 3
+  end
+  object btn_imprimir: TButton
+    Left = 266
+    Top = 210
+    Width = 75
+    Height = 25
+    Caption = 'Imprimir'
+    Enabled = False
+    TabOrder = 4
+    OnClick = btn_imprimirClick
+  end
+  object pg_tipo: TPageControl
+    Left = 347
+    Top = 7
+    Width = 874
+    Height = 228
+    ActivePage = tbRel
+    TabOrder = 5
+    object tbRel: TTabSheet
+      Caption = 'Lista de Relat'#243'rio'
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object lv_prestacao: TListView
+        Left = 3
+        Top = 3
+        Width = 860
+        Height = 194
+        Checkboxes = True
+        Columns = <
+          item
+            Caption = 'Incluir'
+            MaxWidth = 40
+            MinWidth = 40
+            Width = 40
+          end
+          item
+            Caption = 'Nome'
+            MaxWidth = 400
+            MinWidth = 400
+            Width = 400
+          end
+          item
+            Caption = 'Produto'
+            MaxWidth = 140
+            MinWidth = 140
+            Width = 140
+          end
+          item
+            Caption = 'Vencimento'
+            MaxWidth = 80
+            MinWidth = 80
+            Width = 80
+          end
+          item
+            Caption = 'Pagamento'
+            MaxWidth = 80
+            MinWidth = 80
+            Width = 80
+          end
+          item
+            Caption = 'Nominal'
+            MaxWidth = 100
+            MinWidth = 100
+            Width = 100
+          end>
+        ReadOnly = True
+        RowSelect = True
+        PopupMenu = ppm_marca
+        TabOrder = 0
+        ViewStyle = vsReport
+      end
+    end
+    object tbQuebra: TTabSheet
+      Caption = 'M'#250'ltiplos Pagamentos'
+      ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object lv_multi: TListView
+        Left = 3
+        Top = 3
+        Width = 860
+        Height = 194
+        Columns = <
+          item
+            Caption = 'Nome'
+            MaxWidth = 400
+            MinWidth = 400
+            Width = 400
+          end
+          item
+            Caption = 'Produto'
+            MaxWidth = 140
+            MinWidth = 140
+            Width = 140
+          end
+          item
+            Caption = 'Vencimento'
+            MaxWidth = 80
+            MinWidth = 80
+            Width = 80
+          end
+          item
+            Caption = 'Pagamento'
+            MaxWidth = 80
+            MinWidth = 80
+            Width = 80
+          end
+          item
+            Caption = 'Nominal'
+            MaxWidth = 100
+            MinWidth = 100
+            Width = 100
+          end>
+        ReadOnly = True
+        RowSelect = True
+        PopupMenu = PopupMenu1
+        TabOrder = 0
+        ViewStyle = vsReport
+      end
+    end
+  end
+  object dtsBeneficiarios: TDataSource
+    DataSet = dtmSystem.tblCHGEmpresa
+    OnDataChange = dtsBeneficiariosDataChange
+    Left = 184
+    Top = 56
+  end
+  object ZReadOnlyQuery1: TZReadOnlyQuery
+    Connection = dtmSystem.ZConnection
+    Params = <>
+    Left = 128
+    Top = 120
+  end
+  object dtsFiltro: TDataSource
+    DataSet = qryFiltro
+    Left = 288
+    Top = 112
+  end
+  object qryFiltro: TZQuery
+    Connection = dtmSystem.ZConnection
+    Params = <>
+    Left = 264
+    Top = 171
+  end
+  object ppm_marca: TPopupMenu
+    Left = 296
+    Top = 56
+    object IncluirTodos1: TMenuItem
+      Caption = 'Incluir Todos'
+      OnClick = IncluirTodos1Click
+    end
+    object N1: TMenuItem
+      Caption = '-'
+    end
+    object DesmarcarTodos1: TMenuItem
+      Caption = 'Desmarcar Todos'
+      OnClick = DesmarcarTodos1Click
+    end
+  end
+  object ZReadOnlyQuery2: TZReadOnlyQuery
+    Connection = dtmSystem.ZConnection
+    Params = <>
+    Left = 136
+    Top = 179
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 248
+    Top = 8
+    object ImprimirLista1: TMenuItem
+      Caption = 'Imprimir Lista'
+      OnClick = ImprimirLista1Click
+    end
+  end
+  object zroqryVerificador: TZReadOnlyQuery
+    Connection = dtmSystem.ZConnection
+    Params = <>
+    Left = 232
+    Top = 139
+  end
+end

uconfrelPrestacaoContas.pas

@@ -0,0 +1,701 @@
+unit uconfrelPrestacaoContas;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, System.UITypes,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.ComCtrls,
+  Data.DB, Vcl.ExtCtrls, ZAbstractRODataset, ZDataset, ZAbstractDataset,
+  Vcl.Menus;
+
+type
+  TconfrelPrestacaoContas = class(TForm)
+    dtsBeneficiarios: TDataSource;
+    gb_data: TGroupBox;
+    Label1: TLabel;
+    dtp_inicio: TDateTimePicker;
+    dtp_fim: TDateTimePicker;
+    gb_beneficiario: TGroupBox;
+    dblucb_beneficiario: TDBLookupComboBox;
+    btn_viewreport: TButton;
+    rg_tipo: TRadioGroup;
+    ZReadOnlyQuery1: TZReadOnlyQuery;
+    dtsFiltro: TDataSource;
+    qryFiltro: TZQuery;
+    btn_imprimir: TButton;
+    ppm_marca: TPopupMenu;
+    IncluirTodos1: TMenuItem;
+    N1: TMenuItem;
+    DesmarcarTodos1: TMenuItem;
+    ZReadOnlyQuery2: TZReadOnlyQuery;
+    pg_tipo: TPageControl;
+    tbRel: TTabSheet;
+    lv_prestacao: TListView;
+    tbQuebra: TTabSheet;
+    lv_multi: TListView;
+    PopupMenu1: TPopupMenu;
+    ImprimirLista1: TMenuItem;
+    zroqryVerificador: TZReadOnlyQuery;
+    procedure btn_viewreportClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure btn_imprimirClick(Sender: TObject);
+    procedure IncluirTodos1Click(Sender: TObject);
+    procedure DesmarcarTodos1Click(Sender: TObject);
+    procedure ImprimirLista1Click(Sender: TObject);
+    procedure dtsBeneficiariosDataChange(Sender: TObject; Field: TField);
+  private
+    id_emp: integer;
+    procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
+
+    { Private declarations }
+  public
+    str_titulos: string;
+    { Public declarations }
+  end;
+
+var
+  confrelPrestacaoContas: TconfrelPrestacaoContas;
+
+  meses: array [1 .. 12] of string = (
+    'JANEIRO',
+    'FEVEREIRO',
+    'MARCO',
+    'ABRIL',
+    'MAIO',
+    'JUNHO',
+    'JULHO',
+    'AGOSTO',
+    'SETEMBRO',
+    'OUTUBRO',
+    'NOVEMBRO',
+    'DEZEMBRO'
+  );
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem, urelPrestacaoContas, urelRelacaoAcordo, urelMulti;
+
+// prestação de contas
+
+procedure TconfrelPrestacaoContas.btn_viewreportClick(Sender: TObject);
+begin
+
+  with dtmSystem do
+  begin
+
+//    mes1 := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd',
+//      dtp_inicio.Date), 6, 2)));
+//    mes2 := inttostr(strtoint(copy(FormatDateTime('yyyy-mm-dd',
+//      dtp_fim.Date), 6, 2)));
+//    ano1 := copy(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date), 1, 4);
+//    ano2 := copy(FormatDateTime('yyyy-mm-dd', dtp_fim.Date), 1, 4);
+//
+//    tblEmpresaRepasse.Filtered := False;
+//    tblEmpresaRepasse.Filter := '(((ID_MES >= ' + mes1 + ') or (ID_MES <= ' +
+//      mes2 + ')) and ((ID_ANO >= ' + ano1 + ') or (ID_ANO <= ' + ano2 + ')))';
+//    tblEmpresaRepasse.Filtered := True;
+//
+//    if tblEmpresaRepasse.IsEmpty then
+//    begin
+//      MessageDlg('Por favor monte um modelo de repasse para a empresa ' +
+//        tblCHGEmpresaTX_NOME.AsString +
+//        ' antes de realizar um relatório de Prestação de contas no período escolhido.',
+//        mtWarning, [mbOK], 0);
+//      Close;
+//      Abort;
+//    end;
+
+    if not tblAcordos.Active then
+    begin
+      tblAcordos.Open;
+    end;
+  end;
+  Screen.Cursor := crHourGlass;
+  if rg_tipo.ItemIndex = -1 then
+  begin
+    rg_tipo.ItemIndex := 0;
+  end;
+  lv_prestacao.Clear;
+  with qryFiltro.SQL do
+  begin
+    Clear;
+    Add('select distinct');
+    Add('A.tx_nome,');
+    Add('B.tx_produto,');
+    Add('B.dt_vencimento,');
+    Add('B.dt_pagamento,');
+    Add('B.vl_titulo,');
+    Add('B.vl_juros,');
+    Add('B.vl_multa,');
+    Add('B.vl_encargos,');
+    Add('B.vl_corrigido,');
+    Add('B.vl_desc_principal,');
+    Add('B.id_titulo,');
+    Add('AC.id_original');
+    // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso');
+    Add('from chg_titulos B');
+    Add('left join chg_devedores A on (A.id_devedor = B.id_devedor)');
+    Add('left join sys_acordos AC on (AC.id_original = B.id_titulo)');
+    Add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' +
+      QuotedStr('B') + ') and');
+    Add('B.tp_motivo <> ' + QuotedStr('Q') + ' and');
+    Add('B.id_empresa = ' + inttostr(dblucb_beneficiario.KeyValue) + ' and');
+    if rg_tipo.ItemIndex = 0 then
+    begin
+      Add('CAST(B.dt_pagamento AS DATE) >= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and');
+      Add('CAST(B.dt_pagamento AS DATE) <= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+      Add('and B.dt_emissao_recibo is NULL');
+    end;
+    if rg_tipo.ItemIndex = 1 then
+    begin
+      Add('CAST(B.dt_emissao_recibo AS DATE) >= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and');
+      Add('CAST(B.dt_emissao_recibo AS DATE) <= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+    end;
+    Add('and (AC.id_original is NULL');
+    Add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))');
+    Add('order by A.tx_nome');
+  end;
+
+  qryFiltro.Open;
+
+  if not qryFiltro.IsEmpty then
+  begin
+    qryFiltro.First;
+    while not qryFiltro.Eof do
+    begin
+      // if not dtmSystem.tblAcordos.Locate('ID_ORIGINAL',
+      // qryFiltro.FieldByName('id_titulo').AsString, []) then
+      // begin
+      // with lv_prestacao.Items.Add do
+      // begin
+      // SubItems.Add(qryFiltro.FieldByName('tx_nome').AsString);
+      // SubItems.Add(qryFiltro.FieldByName('tx_produto').AsString);
+      // SubItems.Add(qryFiltro.FieldByName('dt_vencimento').AsString);
+      // SubItems.Add(qryFiltro.FieldByName('dt_pagamento').AsString);
+      // SubItems.Add(qryFiltro.FieldByName('vl_titulo').AsString);
+      // end;
+      // end
+      // else
+      // begin
+      // dtmSystem.tblTitulos.Locate('ID_TITULO',
+      // dtmSystem.tblAcordosID_PARCELA.AsString, []);
+      // if dtmSystem.tblTitulosID_EMPRESA.AsSingle = 220 then
+      // begin
+      // with lv_prestacao.Items.Add do
+      // begin
+      // SubItems.Add(qryFiltro.FieldByName('tx_nome').AsString);
+      // SubItems.Add(qryFiltro.FieldByName('tx_produto').AsString);
+      // SubItems.Add(qryFiltro.FieldByName('dt_vencimento').AsString);
+      // SubItems.Add(qryFiltro.FieldByName('dt_pagamento').AsString);
+      // SubItems.Add(qryFiltro.FieldByName('vl_titulo').AsString);
+      // end;
+      // end;
+      // end;
+
+      with lv_prestacao.Items.Add do
+      begin
+        SubItems.Add(qryFiltro.FieldByName('tx_nome').AsString);
+        SubItems.Add(qryFiltro.FieldByName('tx_produto').AsString);
+        SubItems.Add(qryFiltro.FieldByName('dt_vencimento').AsString);
+        SubItems.Add(qryFiltro.FieldByName('dt_pagamento').AsString);
+        SubItems.Add(qryFiltro.FieldByName('vl_titulo').AsString);
+      end;
+
+      qryFiltro.Next;
+    end;
+    lv_prestacao.Column[0].Alignment := taCenter;
+  end;
+  ZReadOnlyQuery2.SQL.Clear;
+  with ZReadOnlyQuery2.SQL do
+  begin
+    Add('select distinct');
+    Add('A.tx_nome,');
+    Add('B.tx_produto,');
+    Add('B.dt_vencimento,');
+    Add('B.dt_pagamento,');
+    Add('B.vl_titulo,');
+    Add('B.vl_juros,');
+    Add('B.vl_multa,');
+    Add('B.vl_encargos,');
+    Add('B.vl_corrigido,');
+    Add('B.vl_desc_principal,');
+    Add('B.id_titulo,');
+    Add('AC.id_original');
+    // Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso');
+    Add('from chg_titulos B');
+    Add('left join chg_devedores A on (A.id_devedor = B.id_devedor)');
+    Add('left join sys_acordos AC on (AC.id_original = B.id_titulo)');
+    Add('where (B.tp_situacao = ' + QuotedStr('QC') + ' or B.tp_situacao = ' +
+      QuotedStr('B') + ') and');
+    Add('B.tp_motivo = ' + QuotedStr('Q') + ' and');
+    Add('B.id_empresa = ' + inttostr(dblucb_beneficiario.KeyValue) + ' and');
+    if rg_tipo.ItemIndex = 0 then
+    begin
+      Add('CAST(B.dt_pagamento AS DATE) >= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and');
+      Add('CAST(B.dt_pagamento AS DATE) <= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+      Add('and B.dt_emissao_recibo is NULL');
+    end;
+    if rg_tipo.ItemIndex = 1 then
+    begin
+      Add('CAST(B.dt_emissao_recibo AS DATE) >= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)) + ' and');
+      Add('CAST(B.dt_emissao_recibo AS DATE) <= ' +
+        QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+    end;
+    Add('and (AC.id_original is NULL');
+    Add('or AC.id_parcela in (select id_titulo from chg_titulos where id_empresa = 220))');
+    Add('order by A.tx_nome');
+  end;
+  ZReadOnlyQuery2.Open;
+  if ZReadOnlyQuery2.RecordCount > 0 then
+  begin
+    MessageDlg
+      ('Há títulos com múltiplas formas de pagamento neste intervalo de prestação de contas.'
+      + ' Por favor gere uma prestação manual também.', mtInformation,
+      [mbOK], 0);
+  end;
+  lv_multi.Clear;
+  if not ZReadOnlyQuery2.IsEmpty then
+  begin
+    ZReadOnlyQuery2.First;
+    while not ZReadOnlyQuery2.Eof do
+    begin
+      with lv_multi.Items.Add do
+      begin
+        Caption := ZReadOnlyQuery2.FieldByName('tx_nome').AsString;
+        SubItems.Add(ZReadOnlyQuery2.FieldByName('tx_produto').AsString);
+        SubItems.Add(ZReadOnlyQuery2.FieldByName('dt_vencimento').AsString);
+        SubItems.Add(ZReadOnlyQuery2.FieldByName('dt_pagamento').AsString);
+        SubItems.Add(ZReadOnlyQuery2.FieldByName('vl_titulo').AsString);
+      end;
+      ZReadOnlyQuery2.Next;
+    end;
+  end;
+  Screen.Cursor := crDefault;
+  pg_tipo.ActivePageIndex := 0;
+  btn_imprimir.Enabled := true;
+  // Close;
+end;
+
+procedure TconfrelPrestacaoContas.DesmarcarTodos1Click(Sender: TObject);
+var
+  i: integer;
+begin
+  if lv_prestacao.Items.Count > 0 then
+  begin
+    for i := 0 to lv_prestacao.Items.Count - 1 do
+    begin
+      lv_prestacao.Items.Item[i].Checked := False;
+    end;
+  end;
+end;
+
+procedure TconfrelPrestacaoContas.dtsBeneficiariosDataChange(Sender: TObject; Field: TField);
+begin
+  if id_emp <> dtsBeneficiarios.DataSet.FieldByName('ID_EMPRESA').AsInteger then
+  begin
+    id_emp := dtsBeneficiarios.DataSet.FieldByName('ID_EMPRESA').AsInteger;
+    btn_imprimir.Enabled := false;
+    lv_prestacao.Items.Clear;
+    lv_multi.Items.Clear;
+  end;
+end;
+
+procedure TconfrelPrestacaoContas.btn_imprimirClick(Sender: TObject);
+var
+  str_ids: string;
+  i, qtde_mes, counter: integer;
+  Checked: Boolean;
+  id_emp: integer;
+  d1, d2, d3, d4: TDate;
+  Dh1, M1, Y1: Word;
+  Dh2, M2, Y2: Word;
+  faltando: Boolean;
+begin
+  Screen.Cursor := crHourGlass;
+  id_emp := dblucb_beneficiario.KeyValue;
+
+  if rg_tipo.ItemIndex = -1 then
+  begin
+    rg_tipo.ItemIndex := 0;
+  end;
+  str_titulos := '';
+  Checked := False;
+  if lv_prestacao.Items.Count > 0 then
+  begin
+    for i := 0 to lv_prestacao.Items.Count - 1 do
+    begin
+      if lv_prestacao.Items.Item[i].Checked then
+      begin
+        qryFiltro.RecNo := i + 1;
+        str_titulos := str_titulos + qryFiltro.FieldByName('id_titulo')
+          .AsString + ',';
+        Checked := True;
+      end;
+    end;
+  end;
+
+  setlength(str_titulos, length(str_titulos) - 1);
+
+  if Checked then
+  begin
+
+    zroqryVerificador.SQL.Text :=
+      'select dt_pagamento from chg_titulos where id_titulo in(' + str_titulos +
+      ') order by dt_pagamento';
+    zroqryVerificador.Open;
+
+    with dtmSystem do
+    begin
+      tblCHGEmpresa.Locate('ID_EMPRESA', id_emp, []);
+      zroqryVerificador.First;
+
+      d1 := zroqryVerificador.FieldByName('dt_pagamento').AsDateTime;
+      DecodeDate(d1, Y1, M1, Dh1);
+      d3 := StrToDate('01/' + inttostr(M1) + '/' + inttostr(Y1));
+
+      zroqryVerificador.Last;
+      d2 := zroqryVerificador.FieldByName('dt_pagamento').AsDateTime;
+      DecodeDate(d2, Y2, M2, Dh2);
+      d4 := StrToDate('01/' + inttostr(M2) + '/' + inttostr(Y2));
+
+      qtde_mes := MonthsBetween(d3, d4) + 1;
+      counter := 0;
+
+      tblEmpresaRepasse.Filtered := False;
+      tblEmpresaRepasse.Filter := '(ID_ANO >= ' + inttostr(Y1) +
+        ' and ID_ANO <= ' + inttostr(Y2) + ')';
+      tblEmpresaRepasse.Filtered := True;
+
+      faltando := tblEmpresaRepasse.Locate('ID_ANO;ID_MES',
+        VarArrayOf([Y1, M1]), []);
+      if faltando = False then
+      begin
+        MessageDlg('A empresa ' + tblCHGEmpresaTX_NOME.AsString +
+          ' não possui modelos de repasse para todos os mêses dentro do período do pagamento mais antigo e o mais novo.'
+          + ' Por favor crie os modelos de repasses que faltam antes de realizar esta operação (Entre '
+          + meses[M1] + ' de ' + inttostr(Y1) + ' e ' + meses[M2] + ' de ' +
+          inttostr(Y2) + '.', mtWarning, [mbOK], 0);
+        Close;
+        Abort;
+      end
+      else
+      begin
+        while tblEmpresaRepasseID_MES.AsInteger <> M2 do
+        begin
+          if tblEmpresaRepasse.Eof then
+          begin
+            break;
+          end;
+          if tblEmpresaRepasseID_ANO.AsInteger > Y2 then
+          begin
+            break;
+          end;
+          if tblEmpresaRepasseID_ANO.AsInteger = Y2 then
+          begin
+            if tblEmpresaRepasseID_MES.AsInteger > M2 then
+            begin
+              break;
+            end;
+          end;
+          Inc(counter, 1);
+          tblEmpresaRepasse.Next;
+        end;
+        if tblEmpresaRepasseID_MES.AsInteger = M2 then
+        begin
+          Inc(counter, 1);
+        end;
+      end;
+
+      if counter < qtde_mes then
+      begin
+        MessageDlg('A empresa ' + tblCHGEmpresaTX_NOME.AsString +
+          ' não possui modelos de repasse para todos os meses dentro do período do pagamento mais antigo e o mais novo.'
+          + ' Por favor crie os modelos de repasses que faltam antes de realizar esta operação (Entre '
+          + meses[M1] + ' de ' + inttostr(Y1) + ' e ' + meses[M2] + ' de ' +
+          inttostr(Y2) + '.', mtWarning, [mbOK], 0);
+        Close;
+        Abort;
+      end;
+
+    end;
+
+    relPrestacaoContas := TrelPrestacaoContas.Create(self);
+    with relPrestacaoContas.zqryTitulos.SQL do
+    begin
+      Clear;
+      Add('select');
+      Add('A.tx_nome,');
+      Add('A.id_devedor,');
+      Add('B.tx_produto,');
+      Add('B.dt_vencimento,');
+      Add('B.dt_pagamento,');
+      // Add('B.vl_titulo,');
+      Add('case when b.id_titulo in (select id_parcela from sys_acordos) then (b.vl_corrigido - b.vl_juros - b.vl_multa - b.vl_encargos)');
+      Add('when b.id_titulo not in (select id_parcela from sys_acordos) then (b.vl_titulo)');
+      Add('end as vl_titulo,');
+      Add('B.vl_desc_principal,');
+      Add('B.vl_repasse_prin,');
+      Add('B.vl_juros,');
+      Add('B.vl_desc_juros,');
+      Add('B.vl_repasse_juros,');
+      Add('B.vl_multa,');
+      Add('B.vl_desc_multa,');
+      Add('B.vl_repasse_multa,');
+      Add('B.vl_encargos,');
+      Add('B.vl_indicador,');
+      Add('B.vl_desc_indicador,');
+      Add('B.vl_repasse_encargos,');
+      Add('B.vl_corrigido,');
+      Add('B.vl_repasse_corrigido,');
+      Add('B.id_titulo,');
+      Add('B.id_empresa,');
+      Add('B.tp_prestacao,');
+      Add('(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as atraso');
+      Add('from chg_devedores A');
+      Add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)');
+      Add('where (B.id_titulo in (' + str_titulos + '))');
+      Add('order by A.tx_nome');
+    end;
+    with relPrestacaoContas do
+    begin
+      dtmSystem.tblEmpresa.Locate('ID_EMPRESA', id_emp, []);
+      frlbl_headertop.Caption :=
+        UpperCase(dtmSystem.tblEmpresaTX_TITULO.AsString + ' - CNPJ: ' +
+        dtmSystem.tblEmpresaTX_CNPJ.AsString);
+
+      RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'BENEF',
+        UpperCase(dtmSystem.tblCHGEmpresaTX_NOME.AsString),
+        [rfReplaceAll, rfIgnoreCase]);
+      RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT1',
+        FormatDateTime('dd/mm/yyyy', dtp_inicio.Date),
+        [rfReplaceAll, rfIgnoreCase]);
+      RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT2',
+        FormatDateTime('dd/mm/yyyy', dtp_fim.Date),
+        [rfReplaceAll, rfIgnoreCase]);
+      zqryTitulos.Open;
+      frPrestacao.PreviewModal;
+      zqryTitulos.Close;
+    end;
+
+    relRelacaoAcordo := TrelRelacaoAcordo.Create(self);
+    with relRelacaoAcordo do
+    begin
+      rel_acordo := false;
+      with zroqryAcordos.SQL do
+      begin
+        Clear;
+        Add('select distinct');
+        Add('A.tx_nome,');
+        Add('B.tx_produto,');
+        Add('B.dt_vencimento,');
+        Add('B.id_titulo,');
+        Add('B.vl_titulo,');
+        Add('B.qtde_parcelas,');
+        Add('C.id_acordo');
+        Add('from chg_devedores A');
+        Add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)');
+        Add('inner join sys_acordos C on (A.id_devedor = C.id_devedor)');
+        Add('where (B.id_titulo in (' + str_titulos + '))');
+        // Add('and B.id_titulo in');
+        // Add('(select id_parcela from sys_acordos)');
+        Add('and (C.id_parcela in');
+        Add('(' + str_titulos + '))');
+        Add('order by A.tx_nome');
+      end;
+      zroqryAcordos.Open;
+      zroqryAcordos.First;
+      str_ids := '';
+      while not zroqryAcordos.Eof do
+      begin
+        str_ids := str_ids + zroqryAcordos.FieldByName('ID_ACORDO')
+          .AsString + ',';
+        zroqryAcordos.Next;
+      end;
+      setlength(str_ids, length(str_ids) - 1);
+      if length(str_ids) > 0 then
+      begin
+        with zroqry1.SQL do
+        begin
+          Clear;
+          Add('select distinct A.id_acordo, B.tx_nome from sys_acordos A');
+          Add('left join chg_devedores B on (A.id_devedor = B.id_devedor)');
+          Add('where id_acordo in (' + str_ids + ')');
+          Add('order by B.tx_nome');
+        end;
+        with zroqry2.SQL do
+        begin
+          Clear;
+          Add('select distinct A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A');
+          Add('left join chg_titulos B on (A.id_original = B.id_titulo)');
+          Add('where id_acordo in (' + str_ids + ')');
+          Add('group by A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimento, B.vl_titulo');
+        end;
+        with zroqry3.SQL do
+        begin
+          Clear;
+          Add('select distinct A.id_acordo, A.id_parcela, B.tx_produto, B.dt_vencimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A');
+          Add('left join chg_titulos B on (A.id_parcela = B.id_titulo)');
+          Add('where id_acordo in (' + str_ids + ')');
+          Add('group by A.id_acordo, A.id_parcela, B.tx_produto, B.dt_vencimento, B.vl_titulo');
+        end;
+        dtmSystem.tblEmpresa.Locate('ID_EMPRESA', id_emp, []);
+        RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'BENEF',
+          UpperCase(dtmSystem.tblCHGEmpresaTX_NOME.AsString),
+          [rfReplaceAll, rfIgnoreCase]);
+        RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT1',
+          FormatDateTime('dd/mm/yyyy', dtp_inicio.Date),
+          [rfReplaceAll, rfIgnoreCase]);
+        RLMemo1.Lines[0] := StringReplace(RLMemo1.Lines[0], 'DT2',
+          FormatDateTime('dd/mm/yyyy', dtp_fim.Date),
+          [rfReplaceAll, rfIgnoreCase]);
+        zroqry1.Open;
+        zroqry2.Open;
+        zroqry3.Open;
+
+        frrelRelacaoAcordo.PreviewModal;
+        zroqryAcordos.Close;
+        zroqry1.Close;
+        zroqry2.Close;
+        zroqry3.Close;
+      end;
+    end;
+    if rg_tipo.ItemIndex = 0 then
+    begin
+      with ZReadOnlyQuery1.SQL do
+      begin
+        Clear;
+        Add('select');
+        Add('A.tx_nome,');
+        Add('B.tx_produto,');
+        Add('B.dt_vencimento,');
+        Add('B.dt_pagamento,');
+        Add('B.vl_titulo,');
+        Add('B.vl_juros,');
+        Add('B.vl_multa,');
+        Add('B.vl_encargos,');
+        Add('B.vl_corrigido,');
+        Add('B.vl_desc_principal');
+        Add('from chg_devedores A');
+        Add('inner join chg_titulos B on (A.id_devedor = B.id_devedor)');
+        Add('where B.id_titulo in (' + str_titulos + ')');
+        Add('and B.dt_emissao_recibo <> B.dt_pagamento');
+        Add('order by A.tx_nome');
+      end;
+      ZReadOnlyQuery1.Open;
+      if ZReadOnlyQuery1.RecordCount > 0 then
+      begin
+        MessageDlg
+          ('Existem recebimentos nesse período que possuem data de cálculo diferente da data de emissão do recibo.'
+          + ' É recomendando fazer uma prestação de contas utilizando a data da emissão do recibo também.',
+          mtWarning, [mbOK], 0);
+      end;
+    end;
+  end;
+  Screen.Cursor := crDefault;
+  // Close;
+end;
+
+procedure TconfrelPrestacaoContas.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  dtmSystem.tblEmpresaRepasse.Filtered := False;
+  qryFiltro.Close;
+  ZReadOnlyQuery1.Close;
+  Action := caFree;
+  confrelPrestacaoContas := nil;
+end;
+
+procedure TconfrelPrestacaoContas.FormCreate(Sender: TObject);
+begin
+  dtp_inicio.Date := Date;
+  dtp_fim.Date := Date;
+  if not dtmSystem.tblCHGEmpresa.Active then
+  begin
+    dtmSystem.tblCHGEmpresa.Open;
+  end;
+  id_emp := dtmSystem.tblCHGEmpresaID_EMPRESA.AsInteger;
+  if not dtmSystem.tblEmpresaRepasse.Active then
+  begin
+    dtmSystem.tblEmpresaRepasse.Open;
+  end;
+  if not dtmSystem.tblEmpresa.Active then
+  begin
+    dtmSystem.tblEmpresa.Open;
+  end;
+  dblucb_beneficiario.KeyValue := 1;
+  pg_tipo.ActivePageIndex := 0;
+end;
+
+procedure TconfrelPrestacaoContas.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TconfrelPrestacaoContas.ImprimirLista1Click(Sender: TObject);
+begin
+  relMulti := TrelMulti.Create(self);
+  with relMulti do
+  begin
+    dtsRel.DataSet := ZReadOnlyQuery2;
+    rldbtxt1.DataField := 'tx_nome';
+    rldbtxt2.DataField := 'tx_produto';
+    rldbtxt3.DataField := 'vl_titulo';
+    rldbtxt4.DataField := 'dt_vencimento';
+    RLReport1.PreviewModal;
+  end;
+end;
+
+procedure TconfrelPrestacaoContas.IncluirTodos1Click(Sender: TObject);
+var
+  i: integer;
+begin
+  if lv_prestacao.Items.Count > 0 then
+  begin
+    for i := 0 to lv_prestacao.Items.Count - 1 do
+    begin
+      lv_prestacao.Items.Item[i].Checked := True;
+    end;
+  end;
+end;
+
+procedure TconfrelPrestacaoContas.WMMoving(var Msg: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with Msg.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(Msg.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(Msg.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(Msg.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

uconfrelRecibosEmitidos.dfm

@@ -0,0 +1,65 @@
+object confrelRecibosEmitidos: TconfrelRecibosEmitidos
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsSingle
+  Caption = 'Recibos Emitidos'
+  ClientHeight = 129
+  ClientWidth = 249
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  KeyPreview = True
+  OldCreateOrder = False
+  Position = poDesktopCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnKeyDown = FormKeyDown
+  PixelsPerInch = 96
+  TextHeight = 13
+  object gb_data: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 233
+    Height = 65
+    Caption = 'Intervalo'
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 113
+      Top = 31
+      Width = 6
+      Height = 13
+      Caption = 'a'
+    end
+    object dtp_inicio: TDateTimePicker
+      Left = 10
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 0
+    end
+    object dtp_fim: TDateTimePicker
+      Left = 125
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 1
+    end
+  end
+  object btn_viewreport: TButton
+    Left = 85
+    Top = 94
+    Width = 75
+    Height = 25
+    Caption = 'Visualizar'
+    TabOrder = 1
+    OnClick = btn_viewreportClick
+  end
+end

uconfrelRecibosEmitidos.pas

@@ -0,0 +1,121 @@
+unit uconfrelRecibosEmitidos;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, System.StrUtils,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;
+
+type
+  TconfrelRecibosEmitidos = class(TForm)
+    gb_data: TGroupBox;
+    Label1: TLabel;
+    dtp_inicio: TDateTimePicker;
+    dtp_fim: TDateTimePicker;
+    btn_viewreport: TButton;
+    procedure FormCreate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure btn_viewreportClick(Sender: TObject);
+  private
+    procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  confrelRecibosEmitidos: TconfrelRecibosEmitidos;
+
+implementation
+
+{$R *.dfm}
+
+uses urelRecibosEmitidos, udtmSystem;
+
+procedure TconfrelRecibosEmitidos.btn_viewreportClick(Sender: TObject);
+var
+sum : double;
+begin
+  relRecibosEmitidos := TrelRecibosEmitidos.Create(self);
+  if dtp_inicio.Date = dtp_fim.Date then
+  begin
+    relRecibosEmitidos.frlbl_datas.Caption := DateToStr(dtp_inicio.Date);
+  end
+  else
+  begin
+    relRecibosEmitidos.frlbl_datas.Caption := DateToStr(dtp_inicio.Date) + ' a '
+      + DateToStr(dtp_fim.Date);
+  end;
+  if not dtmSystem.tblRecibo.Active then
+  begin
+    dtmSystem.tblRecibo.Open;
+  end;
+  relRecibosEmitidos.qryReport.SQL.Clear;
+  relRecibosEmitidos.qryReport.SQL.Text := 'select sys_recibos.*, case when tx_cpf = '''' then tx_cnpj when tx_cpf <> '''' then tx_cpf end as tx_documento from sys_recibos where (' +
+    QuotedStr(FormatDateTime('mm/dd/yyyy', dtp_inicio.Date)) +
+    ' <= CAST(DT_IMPRESSAO AS DATE)) and (' + QuotedStr(FormatDateTime('mm/dd/yyyy',
+    dtp_fim.Date)) + ' >= CAST(DT_IMPRESSAO AS DATE))'{' and TP_CANCELADO <> ''S'' '}+' order by id_recibo';
+  relRecibosEmitidos.qryReport.Open;
+  relRecibosEmitidos.qryReport.First;
+  sum := 0;
+  while not(relRecibosEmitidos.qryReport.Eof) do
+  begin
+    if relRecibosEmitidos.qryReport.FieldByName('TP_CANCELADO').AsString <> 'S' then
+    begin
+      sum := sum + relRecibosEmitidos.qryReport.FieldByName('vl_corrigido').AsCurrency;
+    end;
+    relRecibosEmitidos.qryReport.Next;
+  end;
+  relRecibosEmitidos.frlbl_total.Caption := 'Total: ' + CurrToStrF(sum, ffCurrency, 2, dtmSystem.CusFmt);
+  relRecibosEmitidos.fr_recibosemitidos.PreviewModal;
+end;
+
+procedure TconfrelRecibosEmitidos.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action := caFree;
+  confrelRecibosEmitidos := nil;
+end;
+
+procedure TconfrelRecibosEmitidos.FormCreate(Sender: TObject);
+begin
+  dtp_inicio.Date := Date;
+  dtp_fim.Date := Date;
+end;
+
+procedure TconfrelRecibosEmitidos.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TconfrelRecibosEmitidos.WMMoving(var Msg: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with Msg.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(Msg.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(Msg.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(Msg.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

uconfrelRelatorioTCC.dfm

@@ -0,0 +1,123 @@
+inherited confrelRelatorioTCC: TconfrelRelatorioTCC
+  Caption = 'Relat'#243'rio TCC'
+  ClientHeight = 203
+  ClientWidth = 352
+  ExplicitWidth = 358
+  ExplicitHeight = 231
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited stbStatus: TStatusBar
+    Top = 184
+    Width = 352
+    ExplicitTop = 184
+    ExplicitWidth = 352
+  end
+  object gb_data: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 333
+    Height = 65
+    Caption = 'Intervalo'
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 168
+      Top = 31
+      Width = 6
+      Height = 13
+      Caption = 'a'
+    end
+    object dtp_inicio: TDateTimePicker
+      Left = 10
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 0
+    end
+    object dtp_fim: TDateTimePicker
+      Left = 224
+      Top = 26
+      Width = 97
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 1
+    end
+  end
+  object gb_beneficiario: TGroupBox
+    Left = 8
+    Top = 79
+    Width = 333
+    Height = 65
+    Caption = 'Benefici'#225'rio'
+    TabOrder = 2
+    object dblucb_beneficiario: TDBLookupComboBox
+      Left = 10
+      Top = 26
+      Width = 311
+      Height = 21
+      KeyField = 'ID_EMPRESA'
+      ListField = 'TX_NOME'
+      ListSource = dtmSystem.dtsCHGEmpresa
+      TabOrder = 0
+    end
+  end
+  object btn_viewreport: TButton
+    Left = 133
+    Top = 150
+    Width = 75
+    Height = 25
+    Caption = 'Visualizar'
+    TabOrder = 3
+    OnClick = btn_viewreportClick
+  end
+  object dtsRelatorio: TDataSource
+    DataSet = roqryRelatorio
+    Left = 124
+  end
+  object roqryRelatorio: TZReadOnlyQuery
+    Connection = dtmSystem.ZConnection
+    SQL.Strings = (
+      'select first 0'
+      'd.tx_nome,'
+      'case when d.tp_cliente = '#39'F'#39' then d.cd_cpf'
+      'when d.tp_cliente = '#39'J'#39' then d.cd_cnpj'
+      'end as tx_documento,'
+      't.tx_produto,'
+      't.dt_vencimento,'
+      't.vl_titulo,'
+      't.dt_pagamento,'
+      't.vl_corrigido'
+      'from chg_titulos t'
+      'left join chg_devedores d on d.id_devedor = t.id_devedor')
+    Params = <>
+    Left = 196
+    object roqryRelatorioTX_NOME: TWideStringField
+      FieldName = 'TX_NOME'
+      Size = 60
+    end
+    object roqryRelatorioTX_DOCUMENTO: TWideStringField
+      FieldName = 'TX_DOCUMENTO'
+      ReadOnly = True
+      Size = 18
+    end
+    object roqryRelatorioTX_PRODUTO: TWideStringField
+      FieldName = 'TX_PRODUTO'
+      Size = 100
+    end
+    object roqryRelatorioDT_VENCIMENTO: TDateTimeField
+      FieldName = 'DT_VENCIMENTO'
+      Required = True
+    end
+    object roqryRelatorioVL_TITULO: TFloatField
+      FieldName = 'VL_TITULO'
+    end
+    object roqryRelatorioDT_PAGAMENTO: TDateTimeField
+      FieldName = 'DT_PAGAMENTO'
+    end
+    object roqryRelatorioVL_CORRIGIDO: TFloatField
+      FieldName = 'VL_CORRIGIDO'
+    end
+  end
+end

uconfrelRelatorioTCC.pas

@@ -0,0 +1,384 @@
+unit uconfrelRelatorioTCC;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, System.win.ComObj,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.StdCtrls, Vcl.DBCtrls,
+  Vcl.ComCtrls, Data.DB, ZAbstractRODataset, ZDataset;
+
+type
+  TconfrelRelatorioTCC = class(TmstMaster)
+    gb_data: TGroupBox;
+    Label1: TLabel;
+    dtp_inicio: TDateTimePicker;
+    dtp_fim: TDateTimePicker;
+    gb_beneficiario: TGroupBox;
+    dblucb_beneficiario: TDBLookupComboBox;
+    btn_viewreport: TButton;
+    dtsRelatorio: TDataSource;
+    roqryRelatorio: TZReadOnlyQuery;
+    roqryRelatorioTX_NOME: TWideStringField;
+    roqryRelatorioTX_DOCUMENTO: TWideStringField;
+    roqryRelatorioTX_PRODUTO: TWideStringField;
+    roqryRelatorioDT_VENCIMENTO: TDateTimeField;
+    roqryRelatorioVL_TITULO: TFloatField;
+    roqryRelatorioDT_PAGAMENTO: TDateTimeField;
+    roqryRelatorioVL_CORRIGIDO: TFloatField;
+    procedure FormCreate(Sender: TObject);
+    procedure btn_viewreportClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure AbreROQuery(tipo: string);
+    procedure GerarXLS(tipo: string);
+    function PixtoCM(pix: Integer): double;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  confrelRelatorioTCC: TconfrelRelatorioTCC;
+
+  meses: array [1 .. 12] of string = (
+    'JANEIRO',
+    'FEVEREIRO',
+    'MARCO',
+    'ABRIL',
+    'MAIO',
+    'JUNHO',
+    'JULHO',
+    'AGOSTO',
+    'SETEMBRO',
+    'OUTUBRO',
+    'NOVEMBRO',
+    'DEZEMBRO'
+  );
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+procedure TconfrelRelatorioTCC.AbreROQuery(tipo: string);
+begin
+  if tipo = 'liq' then
+  begin
+    roqryRelatorio.Close;
+    roqryRelatorio.SQL.Clear;
+    roqryRelatorio.SQL.Add('select');
+    roqryRelatorio.SQL.Add('d.tx_nome,');
+    roqryRelatorio.SQL.Add('case when d.tp_cliente = ' + QuotedStr('F') +
+      ' then d.cd_cpf');
+    roqryRelatorio.SQL.Add('when d.tp_cliente = ' + QuotedStr('J') +
+      ' then d.cd_cnpj');
+    roqryRelatorio.SQL.Add('end as tx_documento,');
+    roqryRelatorio.SQL.Add('t.tx_produto,');
+    roqryRelatorio.SQL.Add('t.dt_vencimento,');
+    roqryRelatorio.SQL.Add('t.vl_titulo,');
+    roqryRelatorio.SQL.Add('t.dt_pagamento,');
+    roqryRelatorio.SQL.Add('t.vl_corrigido');
+    roqryRelatorio.SQL.Add('from chg_titulos t');
+    roqryRelatorio.SQL.Add
+      ('left join chg_devedores d on d.id_devedor = t.id_devedor');
+    roqryRelatorio.SQL.Add('where');
+    roqryRelatorio.SQL.Add('t.id_empresa = ' +
+      inttostr(dblucb_beneficiario.KeyValue));
+    roqryRelatorio.SQL.Add('and');
+    roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) >= ' +
+      QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+    roqryRelatorio.SQL.Add('and');
+    roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) <= ' +
+      QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+    roqryRelatorio.SQL.Add('and');
+    roqryRelatorio.SQL.Add('t.tp_situacao = ' + QuotedStr('QB'));
+    roqryRelatorio.SQL.Add('and');
+    roqryRelatorio.SQL.Add('t.tx_produto not similar to ' + QuotedStr('99_*'));
+    roqryRelatorio.SQL.Add('and');
+    roqryRelatorio.SQL.Add('Upper(t.tx_produto) not similar to ' +
+      QuotedStr('ENTRADA_*'));
+    roqryRelatorio.Open;
+    roqryRelatorio.First;
+  end;
+  if tipo = 'ac' then
+  begin
+    roqryRelatorio.Close;
+    roqryRelatorio.SQL.Clear;
+    roqryRelatorio.SQL.Add('select');
+    roqryRelatorio.SQL.Add('d.tx_nome,');
+    roqryRelatorio.SQL.Add('case when d.tp_cliente = ' + QuotedStr('F') +
+      ' then d.cd_cpf');
+    roqryRelatorio.SQL.Add('when d.tp_cliente = ' + QuotedStr('J') +
+      ' then d.cd_cnpj');
+    roqryRelatorio.SQL.Add('end as tx_documento,');
+    roqryRelatorio.SQL.Add('t.tx_produto,');
+    roqryRelatorio.SQL.Add('t.dt_vencimento,');
+    roqryRelatorio.SQL.Add('t.vl_titulo,');
+    roqryRelatorio.SQL.Add('t.dt_pagamento,');
+    roqryRelatorio.SQL.Add('t.vl_corrigido');
+    roqryRelatorio.SQL.Add('from chg_titulos t');
+    roqryRelatorio.SQL.Add
+      ('left join chg_devedores d on d.id_devedor = t.id_devedor');
+    roqryRelatorio.SQL.Add('where');
+    roqryRelatorio.SQL.Add('t.id_empresa = ' +
+      inttostr(dblucb_beneficiario.KeyValue));
+    roqryRelatorio.SQL.Add('and');
+    roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) >= ' +
+      QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+    roqryRelatorio.SQL.Add('and');
+    roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) <= ' +
+      QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+    roqryRelatorio.SQL.Add('and');
+    roqryRelatorio.SQL.Add('t.tp_situacao = ' + QuotedStr('QB'));
+    // Add('t.tp_situacao = ' + QuotedStr('QC'));
+    roqryRelatorio.SQL.Add('and');
+    roqryRelatorio.SQL.Add('(t.tx_produto similar to ' + QuotedStr('99_*'));
+    roqryRelatorio.SQL.Add('or');
+    roqryRelatorio.SQL.Add('Upper(t.tx_produto) similar to ' +
+      QuotedStr('ENTRADA_*') + ')');
+    roqryRelatorio.Open;
+    roqryRelatorio.First;
+  end;
+
+end;
+
+procedure TconfrelRelatorioTCC.btn_viewreportClick(Sender: TObject);
+begin
+  // relTCC := TrelTCC.Create(self);
+  // with relTCC do
+  // begin
+  // roqryRelatorio.SQL.Clear;
+  // roqryRelatorio.SQL.Add('select');
+  // roqryRelatorio.SQL.Add('d.tx_nome,');
+  // roqryRelatorio.SQL.Add('case when d.tp_cliente = ' + QuotedStr('F') +
+  // ' then d.cd_cpf');
+  // roqryRelatorio.SQL.Add('when d.tp_cliente = ' + QuotedStr('J') +
+  // ' then d.cd_cnpj');
+  // roqryRelatorio.SQL.Add('end as tx_documento,');
+  // roqryRelatorio.SQL.Add('t.tx_produto,');
+  // roqryRelatorio.SQL.Add('t.dt_vencimento,');
+  // roqryRelatorio.SQL.Add('t.vl_titulo,');
+  // roqryRelatorio.SQL.Add('t.dt_pagamento,');
+  // roqryRelatorio.SQL.Add('t.vl_corrigido');
+  // roqryRelatorio.SQL.Add('from chg_titulos t');
+  // roqryRelatorio.SQL.Add
+  // ('left join chg_devedores d on d.id_devedor = t.id_devedor');
+  // roqryRelatorio.SQL.Add('where');
+  // roqryRelatorio.SQL.Add('t.id_empresa = ' +
+  // inttostr(dblucb_beneficiario.KeyValue));
+  // roqryRelatorio.SQL.Add('and');
+  // roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) >= ' +
+  // QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+  // roqryRelatorio.SQL.Add('and');
+  // roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) <= ' +
+  // QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+  // roqryRelatorio.SQL.Add('and');
+  // roqryRelatorio.SQL.Add('t.tp_situacao = ' + QuotedStr('QB'));
+  // roqryRelatorio.SQL.Add('and');
+  // roqryRelatorio.SQL.Add('t.tx_produto not similar to ' + QuotedStr('99_*'));
+  // roqryRelatorio.SQL.Add('and');
+  // roqryRelatorio.SQL.Add('Upper(t.tx_produto) not similar to ' +
+  // QuotedStr('ENTRADA_*'));
+  // // Add('t.tp_situacao = ' + QuotedStr('QC'));
+  // tipo := 'liq';
+  // frrelTCC.PreviewModal;
+  // roqryRelatorio.Close;
+  // roqryRelatorio.SQL.Clear;
+  // roqryRelatorio.SQL.Add('select');
+  // roqryRelatorio.SQL.Add('d.tx_nome,');
+  // roqryRelatorio.SQL.Add('case when d.tp_cliente = ' + QuotedStr('F') +
+  // ' then d.cd_cpf');
+  // roqryRelatorio.SQL.Add('when d.tp_cliente = ' + QuotedStr('J') +
+  // ' then d.cd_cnpj');
+  // roqryRelatorio.SQL.Add('end as tx_documento,');
+  // roqryRelatorio.SQL.Add('t.tx_produto,');
+  // roqryRelatorio.SQL.Add('t.dt_vencimento,');
+  // roqryRelatorio.SQL.Add('t.vl_titulo,');
+  // roqryRelatorio.SQL.Add('t.dt_pagamento,');
+  // roqryRelatorio.SQL.Add('t.vl_corrigido');
+  // roqryRelatorio.SQL.Add('from chg_titulos t');
+  // roqryRelatorio.SQL.Add
+  // ('left join chg_devedores d on d.id_devedor = t.id_devedor');
+  // roqryRelatorio.SQL.Add('where');
+  // roqryRelatorio.SQL.Add('t.id_empresa = ' +
+  // inttostr(dblucb_beneficiario.KeyValue));
+  // roqryRelatorio.SQL.Add('and');
+  // roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) >= ' +
+  // QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_inicio.Date)));
+  // roqryRelatorio.SQL.Add('and');
+  // roqryRelatorio.SQL.Add('cast(t.dt_entrada as date) <= ' +
+  // QuotedStr(FormatDateTime('yyyy-mm-dd', dtp_fim.Date)));
+  // roqryRelatorio.SQL.Add('and');
+  // roqryRelatorio.SQL.Add('t.tp_situacao = ' + QuotedStr('QB'));
+  // // Add('t.tp_situacao = ' + QuotedStr('QC'));
+  // roqryRelatorio.SQL.Add('and');
+  // roqryRelatorio.SQL.Add('(t.tx_produto similar to ' + QuotedStr('99_*'));
+  // roqryRelatorio.SQL.Add('or');
+  // roqryRelatorio.SQL.Add('Upper(t.tx_produto) similar to ' +
+  // QuotedStr('ENTRADA_*') + ')');
+  // tipo := 'ac';
+  // frrelTCC.PreviewModal;
+  // end;
+  AbreROQuery('liq');
+  GerarXLS('liq');
+  AbreROQuery('ac');
+  GerarXLS('ac');
+  Showmessage('Processo terminado!');
+end;
+
+procedure TconfrelRelatorioTCC.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  dtmSystem.tblCHGEmpresa.Filtered := False;
+end;
+
+procedure TconfrelRelatorioTCC.FormCreate(Sender: TObject);
+begin
+  with dtmSystem do
+  begin
+    if not tblCHGEmpresa.Active then
+    begin
+      tblCHGEmpresa.Open;
+    end;
+    tblCHGEmpresa.Filtered := False;
+    tblCHGEmpresa.Filter := 'TX_NOME LIKE ' + QuotedStr('*TECH*');
+    tblCHGEmpresa.Filtered := true;
+  end;
+end;
+
+procedure TconfrelRelatorioTCC.GerarXLS(tipo: string);
+var
+  OpenOffice, OpenDesktop, OOCalc, OOExec, Planilha, LoadParams, Param,
+    FilterParams, Param2: Variant;
+  i, j: Integer;
+  pathFile: string;
+  Fmt: TFormatSettings;
+begin
+  Screen.Cursor := crHourGlass;
+
+  // gera uma planilha conforme o string grid do layout
+  if VarIsEmpty(OpenOffice) then
+  begin
+    OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
+  end;
+  OpenDesktop := OpenOffice.CreateInstance('com.sun.star.frame.Desktop');
+
+  LoadParams := VarArrayCreate([0, 0], varVariant);
+  Param := OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
+  Param.Name := 'Hidden';
+  Param.Value := false;
+  LoadParams[0] := Param;
+
+  OOExec := OpenDesktop.LoadComponentFromURL('private:factory/scalc', '_blank',
+    0, LoadParams);
+  OOCalc := OOExec.Sheets;
+  Planilha := OOCalc.getbyIndex(0);
+  Planilha.getCellByPosition(0, 0).string := 'DOCUMENTO';
+  Planilha.getCellByPosition(0, 0).getText.createTextCursor.CharWeight := 150;
+  Planilha.getCellByPosition(0, 0).getColumns.getbyIndex(0).OptimalWidth := true;
+  Planilha.getCellByPosition(1, 0).string := 'NOME';
+  Planilha.getCellByPosition(1, 0).getText.createTextCursor.CharWeight := 150;
+  Planilha.getCellByPosition(1, 0).getColumns.getbyIndex(0).OptimalWidth := true;
+  Planilha.getCellByPosition(2, 0).string := 'TÍTULO';
+  Planilha.getCellByPosition(2, 0).getText.createTextCursor.CharWeight := 150;
+  Planilha.getCellByPosition(2, 0).getColumns.getbyIndex(0).OptimalWidth := true;
+  Planilha.getCellByPosition(3, 0).string := 'VENCIMENTO';
+  Planilha.getCellByPosition(3, 0).getText.createTextCursor.CharWeight := 150;
+  Planilha.getCellByPosition(3, 0).getColumns.getbyIndex(0).OptimalWidth := true;
+  Planilha.getCellByPosition(4, 0).string := 'VALOR ORIGINAL';
+  Planilha.getCellByPosition(4, 0).getText.createTextCursor.CharWeight := 150;
+  Planilha.getCellByPosition(4, 0).getColumns.getbyIndex(0).OptimalWidth := true;
+  Planilha.getCellByPosition(5, 0).string := 'RECEBIMENTO';
+  Planilha.getCellByPosition(5, 0).getText.createTextCursor.CharWeight := 150;
+  Planilha.getCellByPosition(5, 0).getColumns.getbyIndex(0).OptimalWidth := true;
+  Planilha.getCellByPosition(6, 0).string := 'VALOR RECEBIDO';
+  Planilha.getCellByPosition(6, 0).getText.createTextCursor.CharWeight := 150;
+  Planilha.getCellByPosition(6, 0).getColumns.getbyIndex(0).OptimalWidth := true;
+  j := 1;
+  while not roqryRelatorio.Eof do
+  begin
+    for i := 0 to roqryRelatorio.FieldCount - 1 do
+    begin
+      Planilha.getCellByPosition(i, j).string :=
+        roqryRelatorio.FieldByName(roqryRelatorio.Fields[i].FieldName).AsString;
+        Planilha.getCellByPosition(i, j).getColumns.getbyIndex(0).OptimalWidth := true;
+    end;
+    Inc(j, 1);
+    roqryRelatorio.Next;
+  end;
+
+  FilterParams := VarArrayCreate([0, 1], varVariant);
+
+  Param2 := OpenDesktop.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
+  Param2.Name := 'FilterName';
+  Param2.Value := 'MS Excel 97';
+  FilterParams[0] := Param2;
+  Param2.Name := 'Overwrite';
+  Param2.Value := true;
+  FilterParams[1] := Param2;
+
+  for i := Low(meses) to High(meses) do
+  begin
+    Fmt.LongMonthNames[i] := meses[i];
+  end;
+//  pathFile := ExtractFilePath(Application.ExeName) + 'RELATORIOS';
+  pathFile := dtmSystem.path_executavel + '\RELATORIOS';
+  if not DirectoryExists(pathFile) then
+  begin
+    CreateDir(pathFile);
+  end;
+  pathFile := pathFile + '\PRESTACAO_CONTAS_TCC';
+  if not DirectoryExists(pathFile) then
+  begin
+    CreateDir(pathFile);
+  end;
+  pathFile := pathFile + '\' + FormatDateTime('YYYY', Date);
+  if not DirectoryExists(pathFile) then
+  begin
+    CreateDir(pathFile);
+  end;
+  pathFile := pathFile + '\' + FormatDateTime('mmmm', Date, Fmt);
+  if not DirectoryExists(pathFile) then
+  begin
+    CreateDir(pathFile);
+  end;
+  pathFile := pathFile + '\' + FormatDateTime('dd', Date);
+  if not DirectoryExists(pathFile) then
+  begin
+    CreateDir(pathFile);
+  end;
+  if tipo = 'liq' then
+  begin
+    pathFile := pathFile + '\RELATORIO_PRESTACAO_CONTAS-LIQ-' +
+      FormatDateTime('HH-mm', Time);
+  end;
+  if tipo = 'ac' then
+  begin
+    pathFile := pathFile + '\RELATORIO_PRESTACAO_CONTAS-ACORDOS-' +
+      FormatDateTime('HH-mm', Time);
+  end;
+
+  // pathFile := GetCurrentDir;
+  pathFile := 'file:///' + pathFile;
+  pathFile := StringReplace(pathFile, '\', '/', [rfReplaceAll]);
+
+  try
+    OOExec.StoreAsURL(pathFile + '.xls', FilterParams);
+//    OOExec.Close(False);
+  finally
+//    OpenOffice := Unassigned;
+  end;
+  Screen.Cursor := crDefault;
+end;
+
+function TconfrelRelatorioTCC.PixtoCM(pix: Integer): double;
+var
+  ppcm: double;
+begin
+  ppcm := Screen.PixelsPerInch / 3000;
+  result := pix / ppcm;
+end;
+
+end.

udelPoli_Faixa.dfm

@@ -0,0 +1,104 @@
+inherited delPoli_faixa: TdelPoli_faixa
+  Caption = 'Apagar Pol'#237'tica/Faixa'
+  ClientHeight = 275
+  ClientWidth = 285
+  Scaled = False
+  ExplicitWidth = 291
+  ExplicitHeight = 303
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lbl_nomepol: TLabel [0]
+    Left = 24
+    Top = 34
+    Width = 31
+    Height = 13
+    Caption = 'Nome:'
+  end
+  object lbl_nomefaixa: TLabel [1]
+    Left = 24
+    Top = 161
+    Width = 31
+    Height = 13
+    Caption = 'Nome:'
+  end
+  object Label1: TLabel [2]
+    Left = 24
+    Top = 116
+    Width = 31
+    Height = 13
+    Caption = 'Nome:'
+  end
+  inherited stbStatus: TStatusBar
+    Top = 256
+    Width = 285
+    ExplicitTop = 256
+    ExplicitWidth = 285
+  end
+  object rbtn_politica: TRadioButton
+    Left = 8
+    Top = 8
+    Width = 113
+    Height = 17
+    Caption = 'Pol'#237'tica'
+    TabOrder = 1
+    OnClick = rbtn_politicaClick
+  end
+  object rbtn_faixa: TRadioButton
+    Left = 8
+    Top = 93
+    Width = 113
+    Height = 17
+    Caption = 'Faixa'
+    TabOrder = 2
+    OnClick = rbtn_faixaClick
+  end
+  object btn_ok: TButton
+    Left = 32
+    Top = 219
+    Width = 75
+    Height = 25
+    Caption = 'Ok'
+    ModalResult = 1
+    TabOrder = 3
+    OnClick = btn_okClick
+  end
+  object btn_cancelar: TButton
+    Left = 180
+    Top = 219
+    Width = 75
+    Height = 25
+    Caption = 'Cancelar'
+    ModalResult = 2
+    TabOrder = 4
+  end
+  object dbl_pol: TDBLookupComboBox
+    Left = 24
+    Top = 53
+    Width = 241
+    Height = 21
+    KeyField = 'ID_POLITICA'
+    ListField = 'TX_DESCRICAO'
+    ListSource = dtmSystem.dtsPoliticas
+    TabOrder = 5
+  end
+  object dbl_polfaixa: TDBLookupComboBox
+    Left = 24
+    Top = 135
+    Width = 241
+    Height = 21
+    KeyField = 'ID_POLITICA'
+    ListField = 'TX_DESCRICAO'
+    ListSource = dtmSystem.dtsPoliticas
+    TabOrder = 6
+  end
+  object dbl_faixa: TDBLookupComboBox
+    Left = 24
+    Top = 180
+    Width = 241
+    Height = 21
+    KeyField = 'ID_FAIXA'
+    ListField = 'TX_DESCRICAO'
+    ListSource = dtmSystem.dtsFaixas
+    TabOrder = 7
+  end
+end

udelPoli_Faixa.pas

@@ -0,0 +1,92 @@
+unit udelPoli_Faixa;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Vcl.ComCtrls, Data.DB,
+  Vcl.StdCtrls, Vcl.DBCtrls;
+
+type
+  TdelPoli_faixa = class(TmstMaster)
+    lbl_nomepol: TLabel;
+    lbl_nomefaixa: TLabel;
+    rbtn_politica: TRadioButton;
+    rbtn_faixa: TRadioButton;
+    btn_ok: TButton;
+    btn_cancelar: TButton;
+    Label1: TLabel;
+    dbl_pol: TDBLookupComboBox;
+    dbl_polfaixa: TDBLookupComboBox;
+    dbl_faixa: TDBLookupComboBox;
+    procedure rbtn_politicaClick(Sender: TObject);
+    procedure rbtn_faixaClick(Sender: TObject);
+    procedure btn_okClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  delPoli_faixa: TdelPoli_faixa;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+//funcionalidade parecida com o cadastro de políticas e faixas, mas ao invés de
+//cadastrar você está apagando políticas ou faixas
+
+procedure TdelPoli_faixa.btn_okClick(Sender: TObject);
+begin
+  inherited;
+  if rbtn_politica.Checked then
+    begin
+       dtmSystem.dtsPoliticas.DataSet.Delete;
+    end;
+  if rbtn_faixa.Checked then
+    begin
+       dtmSystem.dtsFaixas.DataSet.Delete;
+    end;
+end;
+
+procedure TdelPoli_faixa.FormCreate(Sender: TObject);
+begin
+  inherited;
+  dbl_pol.KeyValue := dtmSystem.tblPoliticasID_POLITICA.AsInteger;
+  dbl_polfaixa.KeyValue := dtmSystem.tblPoliticasID_POLITICA.AsInteger;
+  dbl_faixa.KeyValue := dtmSystem.tblFaixasID_FAIXA.AsInteger;
+  dbl_pol.Enabled := false;
+  dbl_polfaixa.Enabled := false;
+  dbl_polfaixa.Enabled := false;
+end;
+
+procedure TdelPoli_faixa.rbtn_faixaClick(Sender: TObject);
+begin
+  inherited;
+  if rbtn_faixa.Checked then
+    begin
+      dbl_pol.Enabled := false;
+      dbl_polfaixa.Enabled := true;
+      dbl_faixa.Enabled := true;
+      rbtn_politica.Checked := false;
+    end;
+end;
+
+procedure TdelPoli_faixa.rbtn_politicaClick(Sender: TObject);
+begin
+  inherited;
+  if rbtn_politica.Checked then
+  begin
+    dbl_pol.Enabled := true;
+    dbl_polfaixa.Enabled := false;
+    dbl_faixa.Enabled := false;
+    rbtn_faixa.Checked := false;
+  end;
+end;
+
+end.

ufrmAchaRecibo.dfm

@@ -0,0 +1,179 @@
+inherited frmAchaRecibo: TfrmAchaRecibo
+  Caption = 'Recibos'
+  ClientHeight = 302
+  ClientWidth = 911
+  Position = poDesktopCenter
+  OnCanResize = FormCanResize
+  ExplicitWidth = 917
+  ExplicitHeight = 331
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited stbStatus: TStatusBar
+    Top = 283
+    Width = 911
+    ExplicitTop = 283
+    ExplicitWidth = 911
+  end
+  object gb_pesquisar: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 273
+    Height = 265
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 1
+    object lbl_pesquisar: TLabel
+      Left = 10
+      Top = 10
+      Width = 31
+      Height = 13
+      Caption = 'Nome:'
+    end
+    object edt_campop: TEdit
+      Left = 10
+      Top = 29
+      Width = 255
+      Height = 21
+      MaxLength = 255
+      TabOrder = 0
+    end
+    object btn_pesquisar: TButton
+      Left = 190
+      Top = 56
+      Width = 75
+      Height = 25
+      Caption = 'Pesquisar'
+      TabOrder = 1
+      OnClick = btn_pesquisarClick
+    end
+    object dbgrd_pesquisar: TDBGrid
+      Left = 10
+      Top = 87
+      Width = 255
+      Height = 170
+      DataSource = dtsPesquisa
+      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
+      ReadOnly = True
+      TabOrder = 2
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -11
+      TitleFont.Name = 'MS Sans Serif'
+      TitleFont.Style = []
+      OnDblClick = dbgrd_pesquisarDblClick
+    end
+    object cbx_tiponome: TComboBox
+      Left = 10
+      Top = 58
+      Width = 151
+      Height = 21
+      Style = csDropDownList
+      ItemIndex = 0
+      TabOrder = 3
+      Text = 'Devedor'
+      Items.Strings = (
+        'Devedor'
+        'Pai do Devedor'
+        'M'#227'e do Devedor'
+        'CPF/CNPJ'
+        'C'#243'digo do Devedor'
+        'Telefone')
+    end
+  end
+  object gb_recibo: TGroupBox
+    Left = 287
+    Top = 8
+    Width = 618
+    Height = 265
+    TabOrder = 2
+    object dbgrd_recibo: TDBGrid
+      Left = 16
+      Top = 16
+      Width = 585
+      Height = 241
+      DataSource = dtsRecibos
+      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
+      PopupMenu = PopupMenu1
+      ReadOnly = True
+      TabOrder = 0
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -11
+      TitleFont.Name = 'MS Sans Serif'
+      TitleFont.Style = []
+      OnDrawColumnCell = dbgrd_reciboDrawColumnCell
+      OnDblClick = dbgrd_reciboDblClick
+      Columns = <
+        item
+          Expanded = False
+          FieldName = 'NR_RECIBO'
+          Title.Caption = 'N'#250'mero'
+          Width = 71
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TX_NOME'
+          Title.Caption = 'Nome do recibo'
+          Width = 150
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'VL_CORRIGIDO'
+          Title.Caption = 'Valor'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TX_CAIXA'
+          Title.Caption = 'Caixa'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'DT_IMPRESSAO'
+          Title.Caption = 'Data da Impress'#227'o'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TX_CAMINHO'
+          Title.Caption = 'Caminho'
+          Visible = True
+        end>
+    end
+  end
+  object qryPesquisa: TZQuery
+    Connection = dtmSystem.ZConnection
+    Params = <>
+    Left = 32
+    Top = 192
+  end
+  object dtsPesquisa: TDataSource
+    DataSet = qryPesquisa
+    Left = 96
+    Top = 192
+  end
+  object dtsRecibos: TDataSource
+    DataSet = dtmSystem.tblRecibo
+    Left = 367
+    Top = 200
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 391
+    Top = 80
+    object ppmnu_cancelarecibo: TMenuItem
+      Caption = 'Cancelar Recibo'
+      OnClick = ppmnu_cancelareciboClick
+    end
+    object ppmnu_reativarrecibo: TMenuItem
+      Caption = 'Reativar Recibo'
+      OnClick = ppmnu_reativarreciboClick
+    end
+  end
+end

ufrmAchaRecibo.pas

@@ -0,0 +1,381 @@
+unit ufrmAchaRecibo;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, ShellApi, System.UITypes,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, ZAbstractRODataset,
+  System.StrUtils,
+  ZAbstractDataset, ZDataset, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids,
+  Vcl.ComCtrls, Vcl.Menus;
+
+type
+  TfrmAchaRecibo = class(TmstMaster)
+    gb_pesquisar: TGroupBox;
+    lbl_pesquisar: TLabel;
+    edt_campop: TEdit;
+    btn_pesquisar: TButton;
+    dbgrd_pesquisar: TDBGrid;
+    cbx_tiponome: TComboBox;
+    qryPesquisa: TZQuery;
+    dtsPesquisa: TDataSource;
+    gb_recibo: TGroupBox;
+    dbgrd_recibo: TDBGrid;
+    dtsRecibos: TDataSource;
+    PopupMenu1: TPopupMenu;
+    ppmnu_cancelarecibo: TMenuItem;
+    ppmnu_reativarrecibo: TMenuItem;
+    procedure btn_pesquisarClick(Sender: TObject);
+    procedure dbgrd_pesquisarDblClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure dbgrd_reciboDblClick(Sender: TObject);
+    procedure WMMoving(var MSG: TWMMoving); message WM_MOVING;
+    procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer;
+      var Resize: Boolean);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure ppmnu_cancelareciboClick(Sender: TObject);
+    procedure ppmnu_reativarreciboClick(Sender: TObject);
+    procedure dbgrd_reciboDrawColumnCell(Sender: TObject; const Rect: TRect;
+      DataCol: Integer; Column: TColumn; State: TGridDrawState);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmAchaRecibo: TfrmAchaRecibo;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+procedure TfrmAchaRecibo.btn_pesquisarClick(Sender: TObject);
+var
+  string_query, tx_pesquisa, help_cpfcnpj, tx_tel, query2: string;
+  i, tam1: Integer;
+begin
+  try
+    if edt_campop.Text <> '' then
+    begin
+      tx_pesquisa := UpperCase(stringreplace(edt_campop.Text, ' ', '%',
+        [rfReplaceAll]));
+
+      string_query :=
+        'select ID_DEVEDOR, TX_NOME, case when TP_CLIENTE = ''F'' ' +
+        'then CD_CPF when TP_CLIENTE = ''J'' then CD_CNPJ end as TX_DOCUMENTO from '
+        + 'CHG_DEVEDORES where ';
+      query2 := string_query;
+      case cbx_tiponome.ItemIndex of
+        0:
+          begin
+            string_query := string_query + 'upper(TX_NOME COLLATE WIN_PTBR) LIKE ' +
+              QuotedStr('%' + tx_pesquisa + '%');
+          end;
+        1:
+          begin
+            string_query := string_query + 'upper(TX_PAI) LIKE ' +
+              QuotedStr('%' + tx_pesquisa + '%');
+          end;
+        2:
+          begin
+            string_query := string_query + 'upper(TX_MAE) LIKE ' +
+              QuotedStr('%' + tx_pesquisa + '%');
+          end;
+        3:
+          begin
+            tx_pesquisa := stringreplace(tx_pesquisa, '.', '', [rfReplaceAll]);
+            tx_pesquisa := stringreplace(tx_pesquisa, '-', '', [rfReplaceAll]);
+            tx_pesquisa := stringreplace(tx_pesquisa, '/', '', [rfReplaceAll]);
+            if length(tx_pesquisa) < 14 then
+            begin
+              tx_pesquisa := stringreplace(tx_pesquisa, 'TX_DOCUMENTO',
+                'CD_CPF', [rfReplaceAll]);
+              help_cpfcnpj := copy(tx_pesquisa, 1, 3) + '.' +
+                copy(tx_pesquisa, 4, 3) + '.' + copy(tx_pesquisa, 7, 3) + '-' +
+                RightStr(tx_pesquisa, 2);
+              string_query := string_query + 'CD_CPF like ' +
+                QuotedStr(help_cpfcnpj);
+            end
+            else if length(tx_pesquisa) >= 14 then
+            begin
+              tx_pesquisa := stringreplace(tx_pesquisa, 'TX_DOCUMENTO',
+                'CD_CNPJ', [rfReplaceAll]);
+              help_cpfcnpj := copy(tx_pesquisa, 1, 2) + '.' +
+                copy(tx_pesquisa, 3, 3) + '.' + copy(tx_pesquisa, 6, 3) + '/' +
+                copy(tx_pesquisa, 9, 4) + '-' + RightStr(tx_pesquisa, 2);
+              string_query := string_query + 'CD_CNPJ like ' +
+                QuotedStr(help_cpfcnpj);
+              string_query := stringreplace(string_query, 'CD_CPF', 'CD_CNPJ',
+                [rfReplaceAll]);
+            end;
+          end;
+        4:
+          begin
+            string_query := string_query +
+              'ID_DEVEDOR in (select id_devedor from chg_titulos where cd_devedor like '
+              + QuotedStr('%' + tx_pesquisa + '%') + ')';
+          end;
+        5:
+          begin
+            tx_pesquisa := stringreplace(tx_pesquisa, '-', '',
+              [rfReplaceAll, rfIgnoreCase]);
+            tx_tel := tx_pesquisa;
+            if (length(tx_pesquisa) < 8) or (length(tx_pesquisa) > 9) then
+            begin
+              MessageDlg
+                ('Número de telefone inválido. Ele deve conter ao menos 8 dígitos e no máximo 9 para que a pesquisa possa ser realizada.',
+                mtWarning, [mbOK], 0);
+              abort;
+            end;
+            if length(tx_pesquisa) = 8 then
+            begin
+              tx_pesquisa := copy(tx_pesquisa, 1, 4) + '-' +
+                copy(tx_pesquisa, 5, 4);
+            end
+            else
+            begin
+              tx_pesquisa := copy(tx_pesquisa, 1, 5) + '-' +
+                copy(tx_pesquisa, 6, 4);
+            end;
+            string_query := string_query +
+              'ID_DEVEDOR in (SELECT ID_DEVEDOR FROM CHG_TELEFONES WHERE NR_NUMERO = '
+              + QuotedStr(tx_pesquisa) + ')';
+            query2 := query2 +
+              'ID_DEVEDOR in (SELECT ID_DEVEDOR FROM CHG_TELEFONES WHERE NR_NUMERO = '
+              + QuotedStr(tx_tel) + ')';
+          end;
+      end;
+    end;
+
+    string_query := string_query + ' order by tx_nome';
+    query2 := query2 + ' order by tx_nome';
+
+    qryPesquisa.SQL.Text := string_query;
+
+    qryPesquisa.ExecSQL;
+    qryPesquisa.Active := true;
+
+    if (qryPesquisa.IsEmpty) and (cbx_tiponome.ItemIndex <> 1) then
+    // se vazio, avisa que não achou nada
+    begin
+      qryPesquisa.Active := false;
+      MessageDlg('Nenhuma entrada foi encontrada.', mtWarning, [mbOK], 0);
+    end
+    else
+    begin
+      if (cbx_tiponome.ItemIndex = 1) and (qryPesquisa.IsEmpty) then
+      begin
+        qryPesquisa.SQL.Text := query2;
+        qryPesquisa.ExecSQL;
+        qryPesquisa.Active := true;
+        if qryPesquisa.IsEmpty then
+        begin
+          qryPesquisa.Active := false;
+          MessageDlg('Nenhuma entrada foi encontrada.', mtWarning, [mbOK], 0);
+        end;
+      end;
+    end;
+
+    for i := 0 to qryPesquisa.FieldCount - 1 do
+    // arruma o tamanho das colunas conforme os dados
+    begin
+
+      if AnsiContainsText(dbgrd_pesquisar.Columns[i].Title.Caption, 'ID_') then
+      begin
+        dbgrd_pesquisar.Columns[i].Title.Caption := 'Id';
+      end;
+
+      if dbgrd_pesquisar.Columns[i].Title.Caption = 'TX_NOME' then
+      begin
+        dbgrd_pesquisar.Columns[i].Title.Caption := 'Nome';
+      end;
+
+      if dbgrd_pesquisar.Columns[i].Title.Caption = 'TX_DOCUMENTO' then
+      begin
+        dbgrd_pesquisar.Columns[i].Title.Caption := 'Nº do documento';
+        tam1 := 543;
+      end;
+
+      if dbgrd_pesquisar.Columns[i].Title.Caption = 'CD_CPF' then
+      begin
+        dbgrd_pesquisar.Columns[i].Title.Caption := 'CPF';
+        tam1 := 584;
+      end;
+
+      if dbgrd_pesquisar.Columns[i].Title.Caption = 'CD_CNPJ' then
+      begin
+        dbgrd_pesquisar.Columns[i].Title.Caption := 'CNPJ';
+        tam1 := 567;
+      end;
+
+      if dbgrd_pesquisar.Columns[i].Title.Caption = 'TX_CNPJ' then
+      begin
+        dbgrd_pesquisar.Columns[i].Title.Caption := 'CNPJ';
+        tam1 := 543;
+      end;
+
+    end;
+
+    for i := 0 to qryPesquisa.FieldCount - 1 do
+    begin
+      if AnsiContainsText(dbgrd_pesquisar.Columns[i].Title.Caption, 'Id') then
+      begin
+        dbgrd_pesquisar.Columns[i].Width := 40;
+      end;
+
+      if dbgrd_pesquisar.Columns[i].Title.Caption = 'Nome' then
+      begin
+        dbgrd_pesquisar.Columns[i].Width := tam1;
+      end;
+    end;
+  except
+
+  end;
+end;
+
+procedure TfrmAchaRecibo.dbgrd_pesquisarDblClick(Sender: TObject);
+begin
+  dtmSystem.tblDevedores.Locate('TX_NOME', qryPesquisa.FieldByName('TX_NOME')
+    .AsString, []);
+    dtmSystem.tblRecibo.Filtered := False;
+  dtmSystem.tblRecibo.Filter := 'ID_DEVEDOR = ' +
+    QuotedStr(dtmSystem.tblDevedoresID_DEVEDOR.AsString);
+    dtmSystem.tblRecibo.Filtered := True;
+  dtmSystem.tblRecibo.Last;
+end;
+
+procedure TfrmAchaRecibo.dbgrd_reciboDblClick(Sender: TObject);
+begin
+  if not(dbgrd_recibo.Columns[5].Field.AsString = '') then
+  begin
+    ShellExecute(Handle, nil, PChar(dbgrd_recibo.Columns[5].Field.AsString),
+      nil, nil, SW_SHOWNORMAL);
+  end
+  else
+  begin
+    Showmessage('Caminho para o recibo não encontrado.');
+  end;
+end;
+
+procedure TfrmAchaRecibo.dbgrd_reciboDrawColumnCell(Sender: TObject;
+  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
+begin
+  inherited;
+  case AnsiIndexStr(dtmSystem.tblRecibo.FieldByName('TP_CANCELADO').AsString,
+    ['S', 'N']) of
+    0:
+      dbgrd_recibo.Canvas.Brush.Color := clRed;
+    1:
+      dbgrd_recibo.Canvas.Brush.Color := clWhite;
+  end;
+  // end;
+  dbgrd_recibo.DefaultDrawColumnCell(Rect, DataCol, Column, State);
+end;
+
+procedure TfrmAchaRecibo.FormCanResize(Sender: TObject;
+  var NewWidth, NewHeight: Integer; var Resize: Boolean);
+begin
+  inherited;
+  Resize := false;
+end;
+
+procedure TfrmAchaRecibo.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+
+  dtmSystem.tblRecibo.Filtered := false;
+end;
+
+procedure TfrmAchaRecibo.FormCreate(Sender: TObject);
+begin
+  with dtmSystem do
+  begin
+    if not(tblDevedores.Active) then
+    begin
+      tblDevedores.Open;
+    end;
+    if not(tblRecibo.Active) then
+    begin
+      tblRecibo.Open;
+    end;
+    tblRecibo.Filter := 'ID_DEVEDOR = ''''';
+    tblRecibo.Filtered := true;
+    tblRecibo.SortType := stDescending;
+  end;
+end;
+
+procedure TfrmAchaRecibo.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  inherited;
+  if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TfrmAchaRecibo.ppmnu_cancelareciboClick(Sender: TObject);
+begin
+  inherited;
+  with dtmSystem do
+  begin
+    if tblRecibo.Filter = 'ID_DEVEDOR = ''''' then
+    begin
+      abort;
+    end
+    else
+    begin
+      tblRecibo.Edit;
+      tblReciboTP_CANCELADO.AsString := 'S';
+      tblRecibo.Post;
+    end;
+  end;
+end;
+
+procedure TfrmAchaRecibo.ppmnu_reativarreciboClick(Sender: TObject);
+begin
+  inherited;
+  with dtmSystem do
+  begin
+    if tblRecibo.Filter = 'ID_DEVEDOR = ''''' then
+    begin
+      abort;
+    end
+    else
+    begin
+      tblRecibo.Edit;
+      tblReciboTP_CANCELADO.AsString := 'N';
+      tblRecibo.Post;
+    end;
+  end;
+end;
+
+procedure TfrmAchaRecibo.WMMoving(var MSG: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with MSG.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(MSG.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(MSG.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(MSG.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(MSG.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

ufrmAgenda.dfm

@@ -0,0 +1,864 @@
+inherited frmAgenda: TfrmAgenda
+  Left = 781
+  Top = 219
+  BorderStyle = bsSingle
+  Caption = 'Agenda'
+  ClientHeight = 423
+  ClientWidth = 625
+  Menu = MainMenu1
+  Position = poDefault
+  OnDestroy = FormDestroy
+  ExplicitWidth = 631
+  ExplicitHeight = 472
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited GroupBox1: TGroupBox
+    Left = 2
+    Width = 615
+    Height = 330
+    ExplicitLeft = 2
+    ExplicitWidth = 615
+    ExplicitHeight = 330
+    object Label1: TLabel [0]
+      Left = 339
+      Top = 12
+      Width = 71
+      Height = 13
+      Caption = 'Muito Atrasado'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label2: TLabel [1]
+      Left = 433
+      Top = 12
+      Width = 42
+      Height = 13
+      Caption = 'Atrasado'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label3: TLabel [2]
+      Left = 502
+      Top = 12
+      Width = 40
+      Height = 13
+      Caption = 'Na Hora'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label4: TLabel [3]
+      Left = 565
+      Top = 12
+      Width = 41
+      Height = 13
+      Caption = 'A Cobrar'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label5: TLabel [4]
+      Left = 255
+      Top = 12
+      Width = 63
+      Height = 13
+      Caption = 'Agenda Feita'
+    end
+    object lbl_filtrauser: TLabel [5]
+      Left = 389
+      Top = 36
+      Width = 67
+      Height = 13
+      Caption = 'Filtrar Usu'#225'rio:'
+      Visible = False
+    end
+    object spdbtn_filtrauser: TSpeedButton [6]
+      Left = 584
+      Top = 32
+      Width = 23
+      Height = 22
+      Anchors = []
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        18000000000000030000120B0000120B00000000000000000000FF00FF314B62
+        AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF
+        106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF
+        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF
+        00FF9C6B65AF887BAF887EAA8075FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
+        FF00FFFF00FF3BABFFA1CAE7AD8679A98373E0CFB1FFFFDAFFFFDDFCF8CFCCB2
+        9FA1746BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0917DFC
+        E9ACFFFFCCFFFFCFFFFFD0FFFFDEFFFFFAE3D3D1996965FF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFB08978FAD192FEF4C2FFFFD0FFFFDAFFFFF6FFFF
+        FCFFFFFCB69384FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB08978FEDA97ED
+        B478FBEEBBFFFFD3FFFFDCFFFFF4FFFFF4FFFFE2E9DDBCA67B73FF00FFFF00FF
+        FF00FFFF00FFFF00FFB18A78FFDE99E9A167F4D199FEFCCCFFFFD5FFFFDAFFFF
+        DCFFFFD7EFE6C5A97E75FF00FFFF00FFFF00FFFF00FFFF00FFAA7F73FAE0A4F0
+        B778EEBA7BF6DDA6FEFBCCFFFFD3FFFFD1FFFFD7D9C5A7A3756CFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFCEB293FFFEDDF4D1A5EEBA7BF2C78FF8E1ABFCF0
+        BAFCFACAA3776FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA1746BE1
+        D4D3FFFEEEF7CC8CF0B473F7C788FCE3A5C2A088A5776CFF00FFFF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FF986865BA9587EAD7A4EAD59EE0C097A577
+        6CA5776CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+        00FFFF00FFA77E70A98073A4786EFF00FFFF00FFFF00FFFF00FF}
+      Visible = False
+      OnClick = spdbtn_filtrauserClick
+    end
+    inherited grdLista: TDBGrid
+      Top = 58
+      Width = 598
+      Height = 262
+      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
+      OnColExit = grdListaColExit
+      OnDrawColumnCell = grdListaDrawColumnCell
+      OnDblClick = grdListaDblClick
+      OnKeyPress = grdListaKeyPress
+      Columns = <
+        item
+          Expanded = False
+          FieldName = 'NOME_COBRADOR'
+          ReadOnly = True
+          Title.Caption = 'Cobrador'
+          Visible = False
+        end
+        item
+          Expanded = False
+          FieldName = 'TX_NOME'
+          ReadOnly = True
+          Title.Caption = 'Devedor'
+          Width = 250
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'HR_AGENDADA'
+          ReadOnly = True
+          Title.Caption = 'Hora Agendada'
+          Width = 85
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'DT_AGENDADA'
+          ReadOnly = True
+          Title.Caption = 'Data Agendada'
+          Width = 116
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'NOME_QUEM_AGENDOU'
+          ReadOnly = True
+          Title.Caption = 'Quem Agendou'
+          Visible = False
+        end>
+    end
+    object cb_filtro: TCheckBox
+      Left = 8
+      Top = 9
+      Width = 145
+      Height = 17
+      Caption = 'Mostrar apenas em aberto'
+      Checked = True
+      State = cbChecked
+      TabOrder = 1
+      OnClick = cb_filtroClick
+    end
+    object Panel1: TPanel
+      Left = 322
+      Top = 11
+      Width = 15
+      Height = 15
+      Color = clRed
+      ParentBackground = False
+      TabOrder = 2
+    end
+    object Panel2: TPanel
+      Left = 416
+      Top = 11
+      Width = 15
+      Height = 15
+      Color = clYellow
+      ParentBackground = False
+      TabOrder = 3
+    end
+    object Panel3: TPanel
+      Left = 485
+      Top = 11
+      Width = 15
+      Height = 15
+      Color = clGreen
+      ParentBackground = False
+      TabOrder = 4
+    end
+    object Panel4: TPanel
+      Left = 548
+      Top = 11
+      Width = 15
+      Height = 15
+      Color = clSkyBlue
+      ParentBackground = False
+      TabOrder = 5
+    end
+    object cb_filtro2: TCheckBox
+      Left = 8
+      Top = 32
+      Width = 177
+      Height = 17
+      Caption = 'Mostrar apenas hoje em diante'
+      Checked = True
+      State = cbChecked
+      TabOrder = 6
+      OnClick = cb_filtro2Click
+    end
+    object Panel5: TPanel
+      Left = 235
+      Top = 11
+      Width = 15
+      Height = 15
+      Color = clSilver
+      ParentBackground = False
+      TabOrder = 7
+    end
+    object edt_filtrauser: TEdit
+      Left = 460
+      Top = 33
+      Width = 121
+      Height = 21
+      TabOrder = 8
+      Visible = False
+      OnKeyDown = edt_filtrauserKeyDown
+    end
+    object DBLookupComboBox1: TDBLookupComboBox
+      Left = 96
+      Top = 200
+      Width = 145
+      Height = 21
+      DataField = 'ID_COBRADOR'
+      DataSource = dtsDB
+      KeyField = 'ID_USUARIO'
+      ListField = 'TX_NOME'
+      ListSource = dtsUsuarios
+      TabOrder = 9
+      Visible = False
+    end
+  end
+  inherited stbStatus: TStatusBar
+    Top = 404
+    Width = 625
+    Panels = <
+      item
+        Width = 120
+      end
+      item
+        Width = 400
+      end
+      item
+        Width = 0
+      end>
+    ExplicitTop = 404
+    ExplicitWidth = 625
+  end
+  inherited navPrincipal: TDBNavigator
+    Left = 14
+    Width = 600
+    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbCancel, nbRefresh]
+    ExplicitLeft = 14
+    ExplicitWidth = 600
+  end
+  inherited dtsDB: TDataSource
+    DataSet = dtmSystem.tblAgenda
+    OnStateChange = dtsDBStateChange
+    Left = 472
+    Top = 16
+  end
+  object ImageList1: TImageList
+    Left = 405
+    Top = 16
+    Bitmap = {
+      494C01010C001800180210001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000004000000001002000000000000040
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000993300009933000099330000993300009933
+      0000993300009933000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000E80AA000E80
+      AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A6000000000000000000000000000000000000000000000000000000
+      0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6
+      FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478
+      7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2
+      FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A600000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A60000000000000000000000000088452400884524008845
+      2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A
+      FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE
+      BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9
+      FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D
+      5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436
+      FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2
+      C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF
+      FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE
+      FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F
+      F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE
+      FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F
+      F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B
+      6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47
+      FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066
+      00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC
+      D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3
+      F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E
+      E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3
+      F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E
+      E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84
+      5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC
+      FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693
+      2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6
+      F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D
+      ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F
+      E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D
+      ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F
+      E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B
+      2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE
+      FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693
+      2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9
+      FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F
+      EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F
+      EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070
+      E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90
+      9000759EAE00729BA50099330000993300009933000099330000993300009933
+      00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1
+      E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB
+      FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A
+      F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
+      E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A
+      F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070
+      E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E
+      D800147AD0000C72CF001888AF00000000000000000000000000000000000000
+      000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5
+      EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF
+      FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD
+      F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D
+      E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD
+      F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D
+      E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699
+      FC003699FC003394F9002985F3001888AF000000000000000000000000000000
+      00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7
+      F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D
+      BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2
+      FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A
+      E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2
+      FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A
+      E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA
+      FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000
+      000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA
+      F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7
+      CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE
+      FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4
+      EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC
+      FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA
+      D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751
+      77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000
+      000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF
+      FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE
+      DD00986B660000000000000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291
+      CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1
+      E400986B66000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C500000000000000000000000000000000002583B0006DADCB00277D
+      A8000A5882000A588200005684001888AF000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5
+      EB00986B66000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      00000000000000000000000000000000000000000000000000003990B9002983
+      AC00116B96000056840000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4
+      8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4
+      8200986B66000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000990000009900000099000000990000009900000099000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
+      0000000000000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000019
+      BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
+      9500000095000000000000000000000000000000000000000000000000000A66
+      C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
+      AE000C58A60000000000000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000019BD000C34
+      D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
+      B3000927990000009500000000000000000000000000000000000A66C5000B76
+      E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
+      C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
+      F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
+      F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6
+      FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
+      F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE
+      FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674
+      DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
+      FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558
+      D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE
+      FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F
+      F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792
+      F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023
+      CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
+      F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532
+      D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3
+      F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E
+      E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B
+      FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631
+      DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F
+      D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
+      FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432
+      DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D
+      ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F
+      E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040
+      FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258
+      E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199
+      EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
+      FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333
+      E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F
+      EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070
+      E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955
+      FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159
+      EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6
+      F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
+      FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333
+      E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A
+      F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070
+      E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C
+      FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632
+      EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349
+      EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
+      FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233
+      EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD
+      F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D
+      E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC
+      FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025
+      ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021
+      EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
+      FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166
+      F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2
+      FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A
+      E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073
+      F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073
+      F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
+      FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159
+      F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE
+      FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C
+      EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
+      FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
+      FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1
+      FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
+      FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000000032FE006283
+      FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
+      FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4
+      FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
+      F7000B76E6000A66C50000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000000032
+      FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
+      BD000019BD000000000000000000000000000000000000000000000000001F84
+      E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
+      C5000A66C5000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000006533330065333300653333006533330065333300653333000000
+      000000000000000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      330065333300000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000016F
+      0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
+      0600015B0600000000000000000000000000000000000000000000000000934A
+      1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
+      3300653333000000000000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F07006533330000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000016F090010AD
+      1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
+      79000A871500015B060000000000000000000000000000000000934A1C00C466
+      0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
+      6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA
+      BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
+      F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2
+      B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
+      FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE
+      FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
+      6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE
+      FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
+      4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2
+      7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961
+      0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9
+      910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD
+      0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9
+      910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD
+      0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2
+      7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F
+      2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B
+      3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65
+      0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3
+      580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF
+      110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3
+      580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF
+      110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B
+      3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98
+      5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D
+      3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67
+      0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0
+      570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1
+      150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0
+      570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1
+      150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D
+      3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98
+      5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C
+      5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67
+      0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1
+      1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5
+      6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1
+      1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C
+      5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98
+      5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2
+      7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66
+      0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7
+      900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2
+      1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7
+      900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2
+      1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2
+      7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98
+      5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9
+      B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63
+      0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1
+      1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED
+      C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1
+      1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9
+      B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991
+      4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE
+      7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF
+      FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE
+      7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF
+      FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
+      5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC
+      EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
+      FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB
+      D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
+      FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F09000000000000000000000000000000000025AE390094E8
+      A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
+      A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9
+      6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
+      8900C3650B00934A1C000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C0000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F090000000000000000000000000000000000000000000000000025AE
+      390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
+      0900016F0900000000000000000000000000000000000000000000000000BC5F
+      0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
+      1C00934A1C000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000400000000100010000000000000200000000000000000000
+      000000000000000000000000FFFFFF0000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000
+      C003C00380030000800180010003000080018001000300000000000000030000
+      000000008003000000000000C001000000000000C1FC00000000000080FE0001
+      00000000007F000780018001007F000780018001007F0007C003C00300FF0007
+      E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007
+      C003C003C003C003800180018001800180018001800180010000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000080018001800180018001800180018001C003C003C003C003
+      E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000
+      000000000000}
+  end
+  object Timer1: TTimer
+    Interval = 5000
+    OnTimer = Timer1Timer
+    Left = 24
+    Top = 16
+  end
+  object ppmu_agenda: TPopupMenu
+    Left = 482
+    Top = 203
+    object AgendarDevedor1: TMenuItem
+      Caption = 'Agendar Devedor'
+      OnClick = AgendarDevedor1Click
+    end
+  end
+  object MainMenu1: TMainMenu
+    Left = 200
+    Top = 56
+    object main_agenda: TMenuItem
+      Caption = 'Agenda'
+      Visible = False
+      object AgendarDevedor2: TMenuItem
+        Caption = 'Agendar Devedor'
+        Visible = False
+        OnClick = AgendarDevedor2Click
+      end
+    end
+  end
+  object dtsUsuarios: TDataSource
+    DataSet = dtmSystem.tblUsuariosConsulta
+    Left = 290
+    Top = 251
+  end
+end

ufrmAgenda.pas

@@ -0,0 +1,817 @@
+unit ufrmAgenda;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, Vcl.Buttons, System.DateUtils,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstLista, Data.DB, Vcl.StdCtrls,
+  Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids,
+  System.ImageList, Vcl.ImgList, System.UITypes, Vcl.Menus;
+
+type
+  THackDBNavigator = class(TDBNavigator);
+
+type
+  TfrmAgenda = class(TmstLista)
+    cb_filtro: TCheckBox;
+    ImageList1: TImageList;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label2: TLabel;
+    Panel2: TPanel;
+    Label3: TLabel;
+    Panel3: TPanel;
+    Label4: TLabel;
+    Panel4: TPanel;
+    Timer1: TTimer;
+    cb_filtro2: TCheckBox;
+    Panel5: TPanel;
+    Label5: TLabel;
+    edt_filtrauser: TEdit;
+    lbl_filtrauser: TLabel;
+    spdbtn_filtrauser: TSpeedButton;
+    ppmu_agenda: TPopupMenu;
+    AgendarDevedor1: TMenuItem;
+    MainMenu1: TMainMenu;
+    main_agenda: TMenuItem;
+    AgendarDevedor2: TMenuItem;
+    DBLookupComboBox1: TDBLookupComboBox;
+    dtsUsuarios: TDataSource;
+    procedure FormCreate(Sender: TObject);
+    procedure cb_filtroClick(Sender: TObject);
+    procedure grdListaDrawColumnCell(Sender: TObject; const Rect: TRect;
+      DataCol: Integer; Column: TColumn; State: TGridDrawState);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure dtsDBDataChange(Sender: TObject; Field: TField);
+    procedure grdListaDblClick(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
+    procedure cb_filtro2Click(Sender: TObject);
+    procedure spdbtn_filtrauserClick(Sender: TObject);
+    procedure AgendarDevedor1Click(Sender: TObject);
+    procedure AgendarDevedor2Click(Sender: TObject);
+    procedure edt_filtrauserKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure grdListaColExit(Sender: TObject);
+    procedure grdListaKeyPress(Sender: TObject; var Key: Char);
+    procedure dtsDBStateChange(Sender: TObject);
+    procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn);
+  private
+    procedure SetupHackedNavigator(const Navigator: TDBNavigator;
+      const Glyphs: TImageList; S: string);
+    procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
+    procedure FiltraUser;
+    procedure Agendar;
+    procedure ChecaPermissoes;
+
+    { Private declarations }
+  public
+    hoje: string;
+    filtro: TStringList;
+    old_id: integer;
+    { Public declarations }
+  end;
+
+var
+  frmAgenda: TfrmAgenda;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem, ufrmCobranca, ucadDevedores, ufrmAgendamento;
+
+procedure TfrmAgenda.Agendar;
+begin
+  dtmSystem.tblDevedores.Locate('ID_DEVEDOR',
+    dtsDB.DataSet.FieldByName('ID_DEVEDOR').AsInteger, [loCaseInsensitive]);
+  frmAgendamento := TfrmAgendamento.Create(self);
+  frmAgendamento.edt_nomefiltro.Text := dtmSystem.tblDevedoresTX_NOME.AsString;
+  frmAgendamento.ShowModal;
+end;
+
+procedure TfrmAgenda.AgendarDevedor1Click(Sender: TObject);
+begin
+  inherited;
+  Agendar;
+end;
+
+procedure TfrmAgenda.AgendarDevedor2Click(Sender: TObject);
+begin
+  inherited;
+  Agendar;
+end;
+
+procedure TfrmAgenda.cb_filtro2Click(Sender: TObject);
+begin
+  DateTimeToString(hoje, 'DD/MM/YYYY', date);
+  if dtmSystem.id_grupo = 1 then
+  begin
+    if cb_filtro.Checked then
+    begin
+      if cb_filtro2.Checked then
+      begin
+        filtro[0] := 'TP_SITUACAO = ''A'' ';
+        filtro[1] := '';
+        filtro[2] := '';
+        filtro[3] := ' and ';
+        filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje);
+      end
+      else
+      begin
+        filtro[0] := 'TP_SITUACAO = ''A'' ';
+        filtro[1] := '';
+        filtro[2] := '';
+        filtro[3] := '';
+        filtro[4] := '';
+      end;
+    end
+    else
+    begin
+      if cb_filtro2.Checked then
+      begin
+        filtro[0] := '';
+        filtro[1] := '';
+        filtro[2] := '';
+        filtro[3] := '';
+        filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje);
+      end
+      else
+      begin
+        filtro[0] := '';
+        filtro[1] := '';
+        filtro[2] := '';
+        filtro[3] := '';
+        filtro[4] := '';
+      end;
+    end;
+  end
+  else
+  begin
+    if cb_filtro.Checked then
+    begin
+      if cb_filtro2.Checked then
+      begin
+        filtro[0] := 'TP_SITUACAO = ''A'' ';
+        filtro[1] := ' and ';
+        filtro[2] := 'ID_COBRADOR = ' +
+          QuotedStr(inttostr(dtmSystem.id_usuario));
+        filtro[3] := ' and ';
+        filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje);
+      end
+      else
+      begin
+        filtro[0] := 'TP_SITUACAO = ''A'' ';
+        filtro[1] := ' and ';
+        filtro[2] := 'ID_COBRADOR = ' +
+          QuotedStr(inttostr(dtmSystem.id_usuario));
+        filtro[3] := '';
+        filtro[4] := '';
+      end;
+    end
+    else
+    begin
+      if cb_filtro2.Checked then
+      begin
+        filtro[0] := '';
+        filtro[1] := '';
+        filtro[2] := 'ID_COBRADOR = ' +
+          QuotedStr(inttostr(dtmSystem.id_usuario));
+        filtro[3] := ' and ';
+        filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje);
+      end
+      else
+      begin
+        filtro[0] := '';
+        filtro[1] := '';
+        filtro[2] := 'ID_COBRADOR = ' +
+          QuotedStr(inttostr(dtmSystem.id_usuario));
+        filtro[3] := '';
+        filtro[4] := '';
+      end;
+    end;
+  end;
+  // dtsDb.DataSet.Filtered := false;
+  FiltraUser;
+  dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] +
+    filtro[4] + filtro[5];
+  // dtsDb.DataSet.Filtered := true;
+
+  dtsDB.DataSet.Refresh;
+  dtsDB.DataSet.First;
+end;
+
+procedure TfrmAgenda.cb_filtroClick(Sender: TObject);
+begin
+  DateTimeToString(hoje, 'DD/MM/YYYY', date);
+  if dtmSystem.id_grupo = 1 then
+  begin
+    if cb_filtro.Checked then
+    begin
+      if cb_filtro2.Checked then
+      begin
+        filtro[0] := 'TP_SITUACAO = ''A'' ';
+        filtro[1] := '';
+        filtro[2] := '';
+        filtro[3] := ' and ';
+        filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje);
+      end
+      else
+      begin
+        filtro[0] := 'TP_SITUACAO = ''A'' ';
+        filtro[1] := '';
+        filtro[2] := '';
+        filtro[3] := '';
+        filtro[4] := '';
+      end;
+    end
+    else
+    begin
+      if cb_filtro2.Checked then
+      begin
+        filtro[0] := '';
+        filtro[1] := '';
+        filtro[2] := '';
+        filtro[3] := '';
+        filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje);
+      end
+      else
+      begin
+        filtro[0] := '';
+        filtro[1] := '';
+        filtro[2] := '';
+        filtro[3] := '';
+        filtro[4] := '';
+      end;
+    end;
+  end
+  else
+  begin
+    if cb_filtro.Checked then
+    begin
+      if cb_filtro2.Checked then
+      begin
+        filtro[0] := 'TP_SITUACAO = ''A'' ';
+        filtro[1] := ' and ';
+        filtro[2] := 'ID_COBRADOR = ' +
+          QuotedStr(inttostr(dtmSystem.id_usuario));
+        filtro[3] := ' and ';
+        filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje);
+      end
+      else
+      begin
+        filtro[0] := 'TP_SITUACAO = ''A'' ';
+        filtro[1] := ' and ';
+        filtro[2] := 'ID_COBRADOR = ' +
+          QuotedStr(inttostr(dtmSystem.id_usuario));
+        filtro[3] := '';
+        filtro[4] := '';
+      end;
+    end
+    else
+    begin
+      if cb_filtro2.Checked then
+      begin
+        filtro[0] := '';
+        filtro[1] := '';
+        filtro[2] := 'ID_COBRADOR = ' +
+          QuotedStr(inttostr(dtmSystem.id_usuario));
+        filtro[3] := ' and ';
+        filtro[4] := ' DT_AGENDADA >= ' + QuotedStr(hoje);
+      end
+      else
+      begin
+        filtro[0] := '';
+        filtro[1] := '';
+        filtro[2] := 'ID_COBRADOR = ' +
+          QuotedStr(inttostr(dtmSystem.id_usuario));
+        filtro[3] := '';
+        filtro[4] := '';
+      end;
+    end;
+  end;
+  // dtsDb.DataSet.Filtered := false;
+  FiltraUser;
+  dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] +
+    filtro[4] + filtro[5];
+  // dtsDb.DataSet.Filtered := true;
+
+  dtsDB.DataSet.Refresh;
+  dtsDB.DataSet.First;
+end;
+
+procedure TfrmAgenda.ChecaPermissoes;
+begin
+with dtmSystem do
+  begin
+    if not VerificarPermissao('CBR.01.02.01') then
+    begin
+      navPrincipal.VisibleButtons := navPrincipal.VisibleButtons - [nbEdit];
+      lbl_filtrauser.Visible := false;
+      edt_filtrauser.Visible := false;
+      spdbtn_filtrauser.Visible := false;
+      grdLista.Columns[0].Visible := false;
+      grdLista.Options := grdLista.Options - [dgEditing];
+    end
+    else
+    begin
+      lbl_filtrauser.Visible := true;
+      edt_filtrauser.Visible := true;
+      spdbtn_filtrauser.Visible := true;
+      grdLista.Columns[0].Visible := true;
+    end;
+    if not VerificarPermissao('CBR.01.02.02') then
+    begin
+      navPrincipal.VisibleButtons := navPrincipal.VisibleButtons - [nbDelete];
+    end;
+    if not VerificarPermissao('CBR.01.02.03') then
+    begin
+      lbl_filtrauser.Visible := false;
+      edt_filtrauser.Visible := false;
+      spdbtn_filtrauser.Visible := false;
+      grdLista.Columns[0].Visible := false;
+      grdLista.Options := grdLista.Options - [dgEditing];
+      filtro.Add('TP_SITUACAO = ''A'' ');
+      filtro.Add(' and ');
+      filtro.Add('ID_COBRADOR = ' + QuotedStr(inttostr(dtmSystem.id_usuario)));
+      filtro.Add(' and ');
+      filtro.Add(' DT_AGENDADA >= ' + QuotedStr(hoje));
+      filtro.Add('');
+    end
+    else
+    begin
+      filtro.Add('TP_SITUACAO = ''A'' ');
+      filtro.Add('');
+      filtro.Add('');
+      filtro.Add(' and ');
+      filtro.Add(' DT_AGENDADA >= ' + QuotedStr(hoje));
+      filtro.Add('');
+      lbl_filtrauser.Visible := true;
+      edt_filtrauser.Visible := true;
+      spdbtn_filtrauser.Visible := true;
+      grdLista.Columns[0].Visible := true;
+    end;
+  end;
+end;
+
+procedure TfrmAgenda.dtsDBDataChange(Sender: TObject; Field: TField);
+var
+new_id: Integer;
+begin
+//  inherited;
+  new_id := dtsDB.DataSet.FieldByName('ID_AGENDA').AsInteger;
+  if old_id <> new_id then
+  begin
+    old_id := new_id;
+    DBLookupComboBox1.Visible := false;
+  end;
+  grdLista.Repaint;
+end;
+
+procedure TfrmAgenda.dtsDBStateChange(Sender: TObject);
+begin
+//  inherited;
+  if dtsDB.DataSet.State in [dsEdit, dsInsert] then
+  begin
+    DBLookupComboBox1.Visible := false;
+  end;
+end;
+
+procedure TfrmAgenda.edt_filtrauserKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+//  inherited;
+  if Key = VK_RETURN then
+  begin
+    FiltraUser;
+  end;
+end;
+
+procedure TfrmAgenda.FiltraUser;
+begin
+  if edt_filtrauser.Text <> '' then
+  begin
+    if (dtmSystem.tblUsuariosConsulta.Locate('TX_NOME', edt_filtrauser.Text,
+      [loCaseInsensitive, loPartialKey])) then
+    begin
+      if (cb_filtro.Checked) or (cb_filtro2.Checked) then
+      begin
+        filtro[5] := 'and ID_COBRADOR = ' +
+          dtmSystem.tblUsuariosConsultaID_USUARIO.AsString;
+      end
+      else
+      begin
+        filtro[5] := 'ID_COBRADOR = ' +
+          dtmSystem.tblUsuariosConsultaID_USUARIO.AsString;
+      end;
+    end
+    else if (dtmSystem.tblUsuariosConsulta.Locate('TX_USUARIO',
+      edt_filtrauser.Text, [loCaseInsensitive, loPartialKey])) then
+    begin
+      if (cb_filtro.Checked) or (cb_filtro2.Checked) then
+      begin
+        filtro[5] := 'and ID_COBRADOR = ' +
+          dtmSystem.tblUsuariosConsultaID_USUARIO.AsString;
+      end
+      else
+      begin
+        filtro[5] := 'ID_COBRADOR = ' +
+          dtmSystem.tblUsuariosConsultaID_USUARIO.AsString;
+      end;
+    end
+    else
+    begin
+      filtro[5] := '';
+    end;
+  end
+  else
+  begin
+    filtro[5] := '';
+  end;
+  dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] +
+    filtro[4] + filtro[5];
+  dtsDB.DataSet.Refresh;
+end;
+
+procedure TfrmAgenda.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  dtsDB.DataSet.Filtered := false;
+  Action := caFree;
+end;
+
+procedure TfrmAgenda.FormCreate(Sender: TObject);
+begin
+//  old_id := -1;
+//  if not dtmSystem.tblUsuariosConsulta.Active then
+//  begin
+//    dtmSystem.tblUsuariosConsulta.Open;
+//  end;
+//  if not dtmSystem.tblDevedores.Active then
+//  begin
+//    dtmSystem.tblDevedores.Open;
+//  end;
+//  filtro := TStringList.Create;
+//  dtsDB.DataSet.Open;
+//  dtsDB.DataSet.Filtered := false;
+//  DateTimeToString(hoje, 'DD/MM/YYYY', date);
+//  if dtmSystem.id_grupo = 1 then
+//  begin
+//    if not dtmSystem.tblUsuariosConsulta.Active then
+//    begin
+//      dtmSystem.tblUsuariosConsulta.Open;
+//    end;
+//    grdLista.Columns[0].Visible := true;
+//    grdLista.Columns[0].Width := 100;
+//    grdLista.Columns[2].ReadOnly := false;
+//    grdLista.Columns[3].ReadOnly := false;
+//    grdLista.Columns[4].Visible := true;
+//    spdbtn_filtrauser.Visible := true;
+//    edt_filtrauser.Visible := true;
+//    lbl_filtrauser.Visible := true;
+//    // grdLista.PopupMenu := ppmu_agenda;
+//    main_agenda.Visible := true;
+//    filtro.Add('TP_SITUACAO = ''A'' ');
+//    filtro.Add('');
+//    filtro.Add('');
+//    filtro.Add(' and ');
+//    filtro.Add(' DT_AGENDADA >= ' + QuotedStr(hoje));
+//    filtro.Add('');
+//    // dtsDB.DataSet.Filter := 'TP_SITUACAO = ''A''';
+//    dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] +
+//      filtro[4] + filtro[5];
+//    grdLista.Options := grdLista.Options - [dgrowSelect] + [dgEditing];
+//    navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + [nbEdit] +
+//      [nbPost] + [nbDelete];
+//  end
+//  else
+//  begin
+//    // dtsDB.DataSet.Filter := 'TP_SITUACAO = ''A'' and ID_COBRADOR = ' +
+//    // QuotedStr(inttostr(dtmSystem.id_usuario));
+//    filtro.Add('TP_SITUACAO = ''A'' ');
+//    filtro.Add(' and ');
+//    filtro.Add('ID_COBRADOR = ' + QuotedStr(inttostr(dtmSystem.id_usuario)));
+//    filtro.Add(' and ');
+//    filtro.Add(' DT_AGENDADA >= ' + QuotedStr(hoje));
+//    filtro.Add('');
+//    dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] +
+//      filtro[4] + filtro[5];
+//    // dtsDB.DataSet.Filter := 'TP_SITUACAO = ''A'' and ID_COBRADOR = ' +
+//    // QuotedStr(inttostr(dtmSystem.id_usuario)) + ' and DT_AGENDADA >= ' +
+//    // QuotedStr(hoje);
+//  end;
+//  dtsDB.DataSet.Filtered := true;
+//  SetupHackedNavigator(navPrincipal, ImageList1, 's');
+//  stbStatus.Panels[0].Text := 'Usuário: ' + dtmSystem.tx_usuario;
+//  stbStatus.Panels[1].Text := 'Banco de dados: ' +
+//    dtmSystem.ZConnection.Database;
+
+old_id := -1;
+  if not dtmSystem.tblUsuariosConsulta.Active then
+  begin
+    dtmSystem.tblUsuariosConsulta.Open;
+  end;
+  if not dtmSystem.tblDevedores.Active then
+  begin
+    dtmSystem.tblDevedores.Open;
+  end;
+  filtro := TStringList.Create;
+  dtsDB.DataSet.Open;
+  dtsDB.DataSet.Filtered := false;
+  DateTimeToString(hoje, 'DD/MM/YYYY', date);
+  if not dtmSystem.tblUsuariosConsulta.Active then
+  begin
+    dtmSystem.tblUsuariosConsulta.Open;
+  end;
+
+  ChecaPermissoes;
+  // if dtmSystem.id_grupo = 1 then
+  // begin
+  // grdLista.Columns[0].Visible := true;
+  // grdLista.Columns[0].Width := 100;
+  // grdLista.Columns[2].ReadOnly := false;
+  // grdLista.Columns[3].ReadOnly := false;
+  // grdLista.Columns[4].Visible := true;
+  // spdbtn_filtrauser.Visible := true;
+  // edt_filtrauser.Visible := true;
+  // lbl_filtrauser.Visible := true;
+  //
+  // dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] +
+  // filtro[4] + filtro[5];
+  // grdLista.Options := grdLista.Options - [dgrowSelect] + [dgEditing];
+  // navPrincipal.VisibleButtons := navPrincipal.VisibleButtons + [nbEdit] +
+  // [nbPost] + [nbDelete];
+  // end;
+
+  dtsDB.DataSet.Filter := filtro[0] + filtro[1] + filtro[2] + filtro[3] +
+    filtro[4] + filtro[5];
+  dtsDB.DataSet.Filtered := true;
+  SetupHackedNavigator(navPrincipal, ImageList1, 's');
+  stbStatus.Panels[0].Text := 'Usuário: ' + dtmSystem.tx_usuario;
+  stbStatus.Panels[1].Text := 'Banco de dados: ' +
+    dtmSystem.ZConnection.Database;
+
+
+end;
+
+procedure TfrmAgenda.FormDestroy(Sender: TObject);
+begin
+  inherited;
+  frmAgenda := nil;
+end;
+
+procedure TfrmAgenda.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TfrmAgenda.grdListaColExit(Sender: TObject);
+begin
+  inherited;
+  if grdLista.SelectedField.FieldName = 'NOME_COBRADOR' then
+    DBLookupComboBox1.Visible := false
+end;
+
+procedure TfrmAgenda.grdListaDblClick(Sender: TObject);
+var
+  helper: Integer;
+begin
+  if not(dtsDB.State in [dsInsert, dsEdit]) then
+  begin
+    if not dtmSystem.tblDevedores.Active then
+    begin
+      dtmSystem.tblDevedores.Open;
+    end;
+    if dtmSystem.tblDevedores.Locate('ID_DEVEDOR',
+      dtsDB.DataSet.FieldByName('ID_DEVEDOR').AsString, []) then
+    begin
+      helper := dtmSystem.tblDevedores.recno;
+
+      cadDevedores := TcadDevedores.Create(self);
+      cadDevedores.pesquisa := helper;
+      timer1.Enabled := false;
+      cadDevedores.ShowModal;
+      timer1.Enabled := true;
+    end;
+  end;
+end;
+
+procedure TfrmAgenda.grdListaDrawColumnCell(Sender: TObject; const Rect: TRect;
+  DataCol: Integer; Column: TColumn; State: TGridDrawState);
+var
+  tempo1, tempo2, tempo3, hora_marcada, agora, quanto_falta: TTime;
+  dia_marcado, hoje: TDate;
+  dia_atrasado, tempo_atrasado, eh_hoje: boolean;
+begin
+  if not(dtmSystem.tblAgenda.isempty) then
+  begin
+    dia_atrasado := false;
+    tempo_atrasado := false;
+    eh_hoje := false;
+    tempo1 := StrToTime('00:45:00');
+    tempo2 := StrToTime('00:15:00');
+    tempo3 := StrToTime('00:00:00');
+    hora_marcada := StrToTime(FormatDateTime('t',
+      dtmSystem.tblAgendaHR_AGENDADA.AsDateTime));
+    dia_marcado := dtmSystem.tblAgendaDT_AGENDADA.AsDateTime;
+    agora := StrToTime(FormatDateTime('t', now));
+    quanto_falta := hora_marcada - agora;
+    hoje := date;
+    if (hoje > dia_marcado) then
+    begin
+      dia_atrasado := true;
+    end;
+    if (agora >= hora_marcada) then
+    begin
+      tempo_atrasado := true;
+    end;
+    if dia_marcado = date then
+    begin
+      eh_hoje := true;
+    end;
+    if dia_atrasado then
+    begin
+      if dtmSystem.tblAgendaTP_SITUACAO.AsString = 'B' then
+      begin
+        grdLista.Canvas.Brush.Color := clSilver;
+      end
+      else
+      begin
+        grdLista.Canvas.Brush.Color := clRed;
+      end;
+    end
+    else if (tempo_atrasado) and (eh_hoje) then
+    begin
+      if CompareTime(quanto_falta, tempo1) > 0 then
+      begin
+        if dtmSystem.tblAgendaTP_SITUACAO.AsString = 'B' then
+        begin
+          grdLista.Canvas.Brush.Color := clSilver;
+        end
+        else
+        begin
+          grdLista.Canvas.Brush.Color := clRed;
+        end;
+      end
+      else if (CompareTime(quanto_falta, tempo1) < 0) and
+        (CompareTime(quanto_falta, tempo2) >= 0) then
+      begin
+        if dtmSystem.tblAgendaTP_SITUACAO.AsString = 'B' then
+        begin
+          grdLista.Canvas.Brush.Color := clSilver;
+        end
+        else
+        begin
+          grdLista.Canvas.Brush.Color := clYellow;
+        end;
+      end
+      else if (CompareTime(quanto_falta, tempo2) < 0) and
+        (CompareTime(quanto_falta, tempo3) >= 0) then
+      begin
+        if dtmSystem.tblAgendaTP_SITUACAO.AsString = 'B' then
+        begin
+          grdLista.Canvas.Brush.Color := clSilver;
+        end
+        else
+        begin
+          grdLista.Canvas.Brush.Color := clGreen;
+        end;
+      end;
+    end
+    else
+    begin
+      if dtmSystem.tblAgendaTP_SITUACAO.AsString = 'B' then
+      begin
+        grdLista.Canvas.Brush.Color := clSilver;
+      end
+      else
+      begin
+        grdLista.Canvas.Brush.Color := clSkyBlue;
+      end;
+    end;
+    grdLista.DefaultDrawColumnCell(Rect, DataCol, Column, State);
+  end;
+  if (gdFocused in State) and (dtsDB.DataSet.State in [dsEdit, dsInsert]) then
+  begin
+    if (Column.Field.FieldName = 'NOME_COBRADOR') then
+    begin
+      with DBLookupComboBox1 do
+      begin
+        Left := Rect.Left + grdLista.Left + 2;
+        Top := Rect.Top + grdLista.Top + 2;
+        Width := Rect.Right - Rect.Left;
+        Width := Rect.Right - Rect.Left;
+        Height := Rect.Bottom - Rect.Top;
+        Visible := true;
+      end;
+    end;
+  end;
+
+end;
+
+procedure TfrmAgenda.grdListaKeyPress(Sender: TObject; var Key: Char);
+begin
+  inherited;
+  if (Key = Chr(9)) then
+    Exit;
+  if (grdLista.SelectedField.FieldName = 'NOME_COBRADOR') then
+  begin
+    DBLookupComboBox1.SetFocus;
+    SendMessage(DBLookupComboBox1.Handle, WM_Char, Word(Key), 0);
+  end;
+end;
+
+procedure TfrmAgenda.navPrincipalBeforeAction(Sender: TObject;
+  Button: TNavigateBtn);
+begin
+      DBLookupComboBox1.Visible := false;
+//  inherited;
+end;
+
+procedure TfrmAgenda.SetupHackedNavigator(const Navigator: TDBNavigator;
+  const Glyphs: TImageList; S: string);
+const
+  Captions: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Próximo',
+    'Último', 'Adicionar', 'Excluir', 'Alterar', 'Confirmar', 'Cancelar',
+    'Atualizar', 'Aplicar Atualizações', 'Cancelar Atualizãções');
+  (* Captions : array[TNavigateBtn] of string =
+    ('First', 'Prior', 'Next', 'Last', 'Insert',
+    'Delete', 'Edit', 'Post', 'Cancel', 'Refresh'); *)
+  Hints: array [TNavigateBtn] of string = ('Primeiro', 'Anterior', 'Próximo',
+    'Último', 'Adicionar', 'Apagar', 'Modificar', 'Confirmar', 'Cancelar',
+    'Atualizar', 'Aplicar Atualizações', 'Cancelar Atualizãções');
+var
+  btn: TNavigateBtn;
+begin
+  // função propriamente dita para "hackear" o navigator
+  for btn := Low(TNavigateBtn) to High(TNavigateBtn) do
+    with THackDBNavigator(Navigator).Buttons[btn] do
+    begin
+      // from the Captions const array
+
+      Hint := Hints[btn];
+
+      if LowerCase(S) = 's' then
+      begin
+        Caption := Captions[btn];
+      end;
+
+      // the number of images in the Glyph property
+      NumGlyphs := 1;
+      // Remove the old glyph.
+      Glyph := nil;
+      // Assign the custom one
+      Glyphs.GetBitmap(Integer(btn), Glyph);
+      // gylph above text
+      Layout := blGlyphTop;
+
+      Font.Style := Font.Style - [fsbold];
+    end;
+end;
+
+procedure TfrmAgenda.spdbtn_filtrauserClick(Sender: TObject);
+begin
+//  inherited;
+  FiltraUser;
+end;
+
+procedure TfrmAgenda.Timer1Timer(Sender: TObject);
+begin
+//  if not(dtsDB.State in [dsInsert, dsEdit]) then
+//  begin
+//    FiltraUser;
+//    dtsDB.DataSet.Refresh;
+//  end;
+end;
+
+procedure TfrmAgenda.WMMoving(var Msg: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with Msg.DragRect^ do
+  begin
+    if Left < workArea.Left then
+      OffsetRect(Msg.DragRect^, workArea.Left - Left, 0);
+
+    if Top < workArea.Top then
+      OffsetRect(Msg.DragRect^, 0, workArea.Top - Top);
+
+    if Right > workArea.Right then
+      OffsetRect(Msg.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

ufrmAgendamento.dfm

@@ -0,0 +1,213 @@
+inherited frmAgendamento: TfrmAgendamento
+  Caption = 'Agendamento'
+  ClientHeight = 253
+  ClientWidth = 779
+  ExplicitWidth = 785
+  ExplicitHeight = 281
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited stbStatus: TStatusBar
+    Top = 234
+    Width = 779
+    ExplicitTop = 234
+    ExplicitWidth = 779
+  end
+  object GroupBox1: TGroupBox
+    Left = 332
+    Top = 8
+    Width = 273
+    Height = 218
+    Color = clWhite
+    ParentBackground = False
+    ParentColor = False
+    TabOrder = 1
+    object lbl_dtcobranca: TLabel
+      Left = 11
+      Top = 10
+      Width = 109
+      Height = 13
+      Caption = 'Data do agendamento:'
+    end
+    object lbl_horacobranca: TLabel
+      Left = 11
+      Top = 56
+      Width = 109
+      Height = 13
+      Caption = 'Hora do agendamento:'
+    end
+    object lbl_cobradoragendado: TLabel
+      Left = 147
+      Top = 10
+      Width = 113
+      Height = 13
+      Caption = 'Agendar para Cobrador:'
+    end
+    object Label1: TLabel
+      Left = 11
+      Top = 102
+      Width = 56
+      Height = 13
+      Caption = 'Provid'#234'ncia'
+    end
+    object dtp_diaagendamento: TDateTimePicker
+      Left = 11
+      Top = 29
+      Width = 115
+      Height = 21
+      Date = 43082.430191782410000000
+      Time = 43082.430191782410000000
+      TabOrder = 0
+    end
+    object dtp_horaagendamento: TDateTimePicker
+      Left = 11
+      Top = 75
+      Width = 115
+      Height = 21
+      Date = 43082.430419745370000000
+      Time = 43082.430419745370000000
+      DateMode = dmUpDown
+      Kind = dtkTime
+      TabOrder = 1
+    end
+    object dblucb_cobradoragendar: TDBLookupComboBox
+      Left = 147
+      Top = 29
+      Width = 115
+      Height = 21
+      KeyField = 'ID_USUARIO'
+      ListField = 'TX_NOME'
+      ListSource = dtsCobrador
+      TabOrder = 2
+    end
+    object Button1: TButton
+      Left = 11
+      Top = 176
+      Width = 75
+      Height = 25
+      Caption = 'Agendar'
+      TabOrder = 3
+      OnClick = Button1Click
+    end
+    object Button2: TButton
+      Left = 187
+      Top = 176
+      Width = 75
+      Height = 25
+      Caption = 'Cancelar'
+      TabOrder = 4
+      OnClick = Button2Click
+    end
+    object DBLookupComboBox1: TDBLookupComboBox
+      Left = 11
+      Top = 121
+      Width = 249
+      Height = 21
+      KeyField = 'ID_PROVIDENCIA'
+      ListField = 'TX_NOME'
+      ListFieldIndex = 1
+      ListSource = dtmSystem.dtsProvidencias
+      TabOrder = 5
+    end
+  end
+  object GroupBox2: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 318
+    Height = 218
+    TabOrder = 2
+    object lbl_nomedevedor: TLabel
+      Left = 16
+      Top = 10
+      Width = 88
+      Height = 13
+      Caption = 'Nome do devedor:'
+    end
+    object edt_nomefiltro: TEdit
+      Left = 16
+      Top = 29
+      Width = 281
+      Height = 21
+      TabOrder = 0
+      OnChange = edt_nomefiltroChange
+    end
+    object DBGrid1: TDBGrid
+      Left = 16
+      Top = 56
+      Width = 281
+      Height = 145
+      DataSource = dtsDevedores
+      TabOrder = 1
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -11
+      TitleFont.Name = 'MS Sans Serif'
+      TitleFont.Style = []
+      OnTitleClick = DBGrid1TitleClick
+      Columns = <
+        item
+          Expanded = False
+          FieldName = 'TX_NOME'
+          Title.Caption = 'Nome'
+          Visible = True
+        end>
+    end
+  end
+  object mem_hist: TMemo
+    Left = 611
+    Top = 8
+    Width = 164
+    Height = 218
+    ScrollBars = ssVertical
+    TabOrder = 3
+    WantTabs = True
+  end
+  object queryCobradores: TZQuery
+    Connection = dtmSystem.ZConnection
+    SQL.Strings = (
+      'select * from sys_usuarios')
+    Params = <>
+    Left = 190
+    Top = 159
+    object queryCobradoresID_USUARIO: TIntegerField
+      FieldName = 'ID_USUARIO'
+      Required = True
+    end
+    object queryCobradoresTX_NOME: TWideStringField
+      FieldName = 'TX_NOME'
+      Size = 60
+    end
+  end
+  object dtsCobrador: TDataSource
+    DataSet = queryCobradores
+    Left = 110
+    Top = 159
+  end
+  object dtsDevedores: TDataSource
+    DataSet = dtmSystem.tblDevedores
+    Left = 40
+    Top = 160
+  end
+  object dtsHist: TDataSource
+    DataSet = ROqryhist
+    Left = 40
+    Top = 112
+  end
+  object ROqryhist: TZReadOnlyQuery
+    Connection = dtmSystem.ZConnection
+    SQL.Strings = (
+      
+        'SELECT chg_historico.id_devedor, MAX(ID_HISTORICO) AS MAX_HIST F' +
+        'ROM CHG_HISTORICO'
+      'group by id_devedor')
+    Params = <>
+    Left = 112
+    Top = 112
+    object ROqryhistID_DEVEDOR: TIntegerField
+      FieldName = 'ID_DEVEDOR'
+    end
+    object ROqryhistMAX_HIST: TIntegerField
+      FieldName = 'MAX_HIST'
+      ReadOnly = True
+    end
+  end
+end

ufrmAgendamento.pas

@@ -0,0 +1,216 @@
+unit ufrmAgendamento;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, System.DateUtils, System.UITypes,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstMaster, Data.DB, Vcl.Grids,
+  Vcl.DBGrids, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.ComCtrls, ZAbstractRODataset,
+  ZAbstractDataset, ZDataset;
+
+type
+  TfrmAgendamento = class(TmstMaster)
+    queryCobradores: TZQuery;
+    queryCobradoresID_USUARIO: TIntegerField;
+    queryCobradoresTX_NOME: TWideStringField;
+    dtsCobrador: TDataSource;
+    GroupBox1: TGroupBox;
+    lbl_dtcobranca: TLabel;
+    dtp_diaagendamento: TDateTimePicker;
+    lbl_horacobranca: TLabel;
+    dtp_horaagendamento: TDateTimePicker;
+    lbl_cobradoragendado: TLabel;
+    dblucb_cobradoragendar: TDBLookupComboBox;
+    GroupBox2: TGroupBox;
+    edt_nomefiltro: TEdit;
+    dtsDevedores: TDataSource;
+    DBGrid1: TDBGrid;
+    lbl_nomedevedor: TLabel;
+    Button1: TButton;
+    Button2: TButton;
+    dtsHist: TDataSource;
+    ROqryhist: TZReadOnlyQuery;
+    ROqryhistID_DEVEDOR: TIntegerField;
+    ROqryhistMAX_HIST: TIntegerField;
+    DBLookupComboBox1: TDBLookupComboBox;
+    Label1: TLabel;
+    mem_hist: TMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure edt_nomefiltroChange(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure DBGrid1TitleClick(Column: TColumn);
+  private
+    procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmAgendamento: TfrmAgendamento;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+procedure TfrmAgendamento.Button1Click(Sender: TObject);
+var
+  str_helper: string;
+begin
+  inherited;
+  if (dblucb_cobradoragendar.ListFieldIndex = -1) then
+  begin
+    MessageDlg
+      ('Por favor selecione um cobrador para qual será agendada a cobrança.',
+      mtWarning, [mbOK], 0);
+    abort;
+  end
+  else
+  begin
+    if (DBLookupComboBox1.ListFieldIndex = -1) then
+    begin
+      MessageDlg
+        ('Por favor selecione uma providência para qual será dada a agenda.',
+        mtWarning, [mbOK], 0);
+      abort;
+    end;
+    with dtmSystem do
+    begin
+      if not(tblAgenda.Active) then
+      begin
+        tblAgenda.Open;
+      end;
+      tblAgenda.Refresh;
+      while tblAgenda.Locate('ID_DEVEDOR;TP_SITUACAO',
+        VarArrayOf([dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsInteger,
+        'A']), []) do
+      begin
+        tblAgenda.Edit;
+        tblAgendaTP_SITUACAO.AsString := 'B';
+        tblAgenda.Post;
+      end;
+      tblAgenda.Append;
+      tblAgendaID_COBRADOR.AsInteger := dblucb_cobradoragendar.KeyValue;
+      tblAgendaID_DEVEDOR.AsInteger := tblDevedoresID_DEVEDOR.AsInteger;
+      tblAgendaDT_AGENDADA.AsDateTime := Dateof(dtp_diaagendamento.Date);
+      tblAgendaHR_AGENDADA.AsDateTime := Timeof(dtp_horaagendamento.Time);
+      tblAgendaDT_QUE_AGENDOU.AsDateTime := Now;
+      tblAgendaQUEM_AGENDOU.AsInteger := dtmSystem.id_usuario;
+      tblAgenda.Post;
+
+      if not(tblCampanhaDevedores.Active) then
+      begin
+        tblCampanhaDevedores.Open;
+      end;
+      tblCampanhaDevedores.Filtered := false;
+      while tblCampanhaDevedores.Locate('ID_DEVEDOR',
+        dtsDevedores.DataSet.FieldByName('ID_DEVEDOR').AsInteger, []) do
+      begin
+        dtmSystem.tblCampanhaDevedores.Delete;
+      end;
+      str_helper := 'Agendado para o dia ' + datetostr(dateof(dtp_diaagendamento.Date))
+        + ' no horário ' + timetostr(timeof(dtp_horaagendamento.Time)) +
+        ' para o cobrador ' + dblucb_cobradoragendar.Text;
+      dtmSystem.tblHistorico.Append;
+      dtmSystem.tblHistoricoID_COBRADOR.AsInteger := dtmSystem.id_usuario;
+      dtmSystem.tblHistoricoID_DEVEDOR.AsInteger :=
+        dtmSystem.tblDevedoresID_DEVEDOR.AsInteger;
+      dtmSystem.tblHistoricoID_PROVIDENCIA.AsInteger :=
+        DBLookupComboBox1.KeyValue;
+      mem_hist.Lines.Add(str_helper);
+      dtmSystem.tblHistoricoTL_MEMO.AsString := mem_hist.Lines.Text;
+      dtmSystem.tblHistorico.Post;
+      mem_hist.Clear;
+    end;
+    Close;
+  end;
+end;
+
+procedure TfrmAgendamento.Button2Click(Sender: TObject);
+begin
+  inherited;
+  queryCobradores.Close;
+  Close;
+end;
+
+procedure TfrmAgendamento.DBGrid1TitleClick(Column: TColumn);
+begin
+  inherited;
+  dtmSystem.OrganizaPorColuna(DBGrid1.DataSource.DataSet, Column);
+end;
+
+procedure TfrmAgendamento.edt_nomefiltroChange(Sender: TObject);
+var
+  tx_pesquisa: string;
+begin
+  tx_pesquisa := UpperCase(stringreplace(edt_nomefiltro.Text, ' ', '%',
+    [rfReplaceAll]));
+  dtmSystem.tblDevedores.Filter := 'TX_NOME like ' +
+    QuotedStr('*' + tx_pesquisa + '*');
+end;
+
+procedure TfrmAgendamento.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  dtmSystem.tblDevedores.Filter := '';
+  dtmSystem.tblDevedores.Filtered := false;
+end;
+
+procedure TfrmAgendamento.FormCreate(Sender: TObject);
+begin
+  inherited;
+  if not(dtmSystem.tblDevedores.Active) then
+  begin
+    dtmSystem.tblDevedores.Open;
+    dtmSystem.tblDevedores.Filter := '';
+    dtmSystem.tblDevedores.Filtered := true;
+  end;
+  if not(dtmSystem.tblAgenda.Active) then
+  begin
+    dtmSystem.tblAgenda.Open;
+  end;
+  if not(dtmSystem.tblHistorico.Active) then
+  begin
+    dtmSystem.tblHistorico.Open;
+  end;
+  if not(dtmSystem.tblProvidencias.Active) then
+  begin
+    dtmSystem.tblProvidencias.Open;
+  end;
+  queryCobradores.SQL.Text :=
+    'select id_usuario, tx_nome from sys_usuarios order by tx_nome';
+  queryCobradores.Open;
+
+  dtp_diaagendamento.Date := Date;
+  dtp_horaagendamento.Time := Now;
+end;
+
+procedure TfrmAgendamento.WMMoving(var Msg: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with Msg.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(Msg.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(Msg.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(Msg.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.

ufrmBoleto.dfm

@@ -0,0 +1,927 @@
+object frmBoleto: TfrmBoleto
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsSingle
+  Caption = 'Boleto'
+  ClientHeight = 671
+  ClientWidth = 802
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poDesktopCenter
+  OnCreate = FormCreate
+  OnKeyDown = FormKeyDown
+  PixelsPerInch = 96
+  TextHeight = 13
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 785
+    Height = 153
+    Caption = 'Conta / T'#237'tulo'
+    TabOrder = 0
+    object dbgrd_titulos: TDBGrid
+      Left = 167
+      Top = 28
+      Width = 608
+      Height = 113
+      DataSource = dtsTitulos
+      ReadOnly = True
+      TabOrder = 0
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -11
+      TitleFont.Name = 'Tahoma'
+      TitleFont.Style = []
+      Columns = <
+        item
+          Expanded = False
+          FieldName = 'TX_PRODUTO'
+          Title.Caption = 'T'#237'tulo'
+          Width = 280
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'VL_TITULO'
+          Title.Caption = 'Valor'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'DT_VENCIMENTO'
+          Title.Caption = 'Vencimento'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'DT_ENTRADA'
+          Title.Caption = 'Entrada'
+          Visible = True
+        end>
+    end
+    object dblucbx_contas: TDBLookupComboBox
+      Left = 12
+      Top = 28
+      Width = 145
+      Height = 21
+      KeyField = 'ID_CONTA'
+      ListField = 'TX_DESCRICAO'
+      ListSource = dtsContas
+      TabOrder = 1
+    end
+  end
+  object GroupBox2: TGroupBox
+    Left = 8
+    Top = 167
+    Width = 785
+    Height = 63
+    Caption = 'Informa'#231#245'es Sobre a Cobran'#231'a'
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 8
+      Top = 16
+      Width = 179
+      Height = 13
+      Caption = 'Mensagem para Local de Pagamento:'
+    end
+    object Label2: TLabel
+      Left = 383
+      Top = 16
+      Width = 71
+      Height = 13
+      Caption = 'Esp'#233'cie Docto:'
+    end
+    object Label3: TLabel
+      Left = 463
+      Top = 16
+      Width = 75
+      Height = 13
+      Caption = 'Esp'#233'cie Moeda:'
+    end
+    object Label4: TLabel
+      Left = 544
+      Top = 16
+      Width = 34
+      Height = 13
+      Caption = 'Aceite:'
+    end
+    object Label5: TLabel
+      Left = 624
+      Top = 16
+      Width = 43
+      Height = 13
+      Caption = 'Carteira:'
+    end
+    object Label6: TLabel
+      Left = 672
+      Top = 16
+      Width = 73
+      Height = 13
+      Caption = 'Nosso N'#250'mero:'
+    end
+    object edtLocalPag: TEdit
+      Left = 8
+      Top = 32
+      Width = 369
+      Height = 21
+      TabOrder = 0
+    end
+    object edtEspecieDoc: TEdit
+      Left = 383
+      Top = 32
+      Width = 73
+      Height = 21
+      TabOrder = 1
+    end
+    object edtEspecieMod: TEdit
+      Left = 463
+      Top = 32
+      Width = 76
+      Height = 21
+      TabOrder = 2
+    end
+    object cbxAceite: TComboBox
+      Left = 544
+      Top = 32
+      Width = 73
+      Height = 21
+      ItemIndex = 0
+      TabOrder = 3
+      Text = 'N'#227'o'
+      Items.Strings = (
+        'N'#227'o'
+        'Sim')
+    end
+    object edtCarteira: TEdit
+      Left = 624
+      Top = 32
+      Width = 41
+      Height = 21
+      TabOrder = 4
+    end
+    object edtNossoNro: TEdit
+      Left = 672
+      Top = 32
+      Width = 103
+      Height = 21
+      TabOrder = 5
+    end
+  end
+  object GroupBox3: TGroupBox
+    Left = 8
+    Top = 240
+    Width = 609
+    Height = 105
+    Caption = 'Acr'#233'scimos\Descontos'
+    TabOrder = 2
+    object Label7: TLabel
+      Left = 8
+      Top = 16
+      Width = 72
+      Height = 13
+      Caption = '% Mora\Juros:'
+    end
+    object Label8: TLabel
+      Left = 162
+      Top = 16
+      Width = 76
+      Height = 13
+      Caption = 'Valor Desconto:'
+    end
+    object Label9: TLabel
+      Left = 316
+      Top = 16
+      Width = 86
+      Height = 13
+      Caption = 'Valor Abatimento:'
+    end
+    object Label10: TLabel
+      Left = 466
+      Top = 16
+      Width = 44
+      Height = 13
+      Caption = '% Multa:'
+    end
+    object Label11: TLabel
+      Left = 8
+      Top = 56
+      Width = 84
+      Height = 13
+      Caption = 'Data Mora\Juros:'
+    end
+    object Label12: TLabel
+      Left = 162
+      Top = 56
+      Width = 75
+      Height = 13
+      Caption = 'Data Desconto:'
+    end
+    object Label13: TLabel
+      Left = 316
+      Top = 56
+      Width = 85
+      Height = 13
+      Caption = 'Data Abatimento:'
+    end
+    object Label14: TLabel
+      Left = 466
+      Top = 56
+      Width = 71
+      Height = 13
+      Caption = 'Data Protesto:'
+    end
+    object edtValorDesconto: TEdit
+      Left = 162
+      Top = 32
+      Width = 135
+      Height = 21
+      TabOrder = 0
+    end
+    object edtValorAbatimento: TEdit
+      Left = 316
+      Top = 32
+      Width = 135
+      Height = 21
+      Enabled = False
+      TabOrder = 1
+    end
+    object dbdtp_juros: TrDBDateTimePicker
+      Left = 8
+      Top = 72
+      Width = 135
+      Height = 21
+      Date = 43265.429382349540000000
+      Time = 43265.429382349540000000
+      TabOrder = 3
+      DataField = 'DT_VENCIMENTO'
+      DataSource = dtsTitulos
+      ReadOnly = True
+      DBEditLabel.Visible = False
+      FormatEmpty = '__.__.__'
+    end
+    object dbdtp_desc: TrDBDateTimePicker
+      Left = 162
+      Top = 72
+      Width = 135
+      Height = 21
+      Date = 43265.429382349540000000
+      Time = 43265.429382349540000000
+      TabOrder = 5
+      DataField = 'DT_VENCIMENTO'
+      DataSource = dtsTitulos
+      ReadOnly = True
+      DBEditLabel.Visible = False
+      FormatEmpty = '__.__.__'
+    end
+    object dbedt_mora: TDBEdit
+      Left = 8
+      Top = 32
+      Width = 135
+      Height = 21
+      DataField = 'PR_JUROS'
+      DataSource = dtmSystem.dtsCHGEmpresa
+      ReadOnly = True
+      TabOrder = 6
+    end
+    object dbedt_multa: TDBEdit
+      Left = 464
+      Top = 32
+      Width = 135
+      Height = 21
+      DataField = 'PR_MULTA'
+      DataSource = dtmSystem.dtsCHGEmpresa
+      ReadOnly = True
+      TabOrder = 7
+    end
+    object dtp_abatimento: TDateTimePicker
+      Left = 316
+      Top = 72
+      Width = 135
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 8
+    end
+    object dtp_protesto: TDateTimePicker
+      Left = 466
+      Top = 72
+      Width = 133
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      Enabled = False
+      TabOrder = 9
+    end
+    object cbx_abatimento: TCheckBox
+      Left = 408
+      Top = 15
+      Width = 22
+      Height = 17
+      TabOrder = 10
+      OnClick = cbx_abatimentoClick
+    end
+    object cbx_protesto: TCheckBox
+      Left = 543
+      Top = 55
+      Width = 19
+      Height = 17
+      TabOrder = 11
+      OnClick = cbx_protestoClick
+    end
+  end
+  object GroupBox4: TGroupBox
+    Left = 8
+    Top = 351
+    Width = 609
+    Height = 114
+    Caption = 'Mensagens \ Instru'#231#245'es'
+    TabOrder = 3
+    object Label15: TLabel
+      Left = 320
+      Top = 16
+      Width = 59
+      Height = 13
+      Caption = 'Instru'#231#227'o 1:'
+    end
+    object Label16: TLabel
+      Left = 464
+      Top = 16
+      Width = 59
+      Height = 13
+      Caption = 'Instru'#231#227'o 2:'
+    end
+    object memMensagem: TMemo
+      Left = 8
+      Top = 16
+      Width = 305
+      Height = 89
+      Lines.Strings = (
+        '')
+      TabOrder = 0
+    end
+    object edtInstrucoes1: TEdit
+      Left = 320
+      Top = 32
+      Width = 137
+      Height = 21
+      TabOrder = 1
+    end
+    object edtInstrucoes2: TEdit
+      Left = 464
+      Top = 32
+      Width = 137
+      Height = 21
+      TabOrder = 2
+    end
+    object Panel2: TPanel
+      Left = 320
+      Top = 64
+      Width = 281
+      Height = 41
+      Caption = '* Informar o C'#243'digo da Instru'#231#227'o'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clBlue
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 3
+    end
+  end
+  object GroupBox5: TGroupBox
+    Left = 624
+    Top = 240
+    Width = 169
+    Height = 225
+    Caption = 'Informa'#231#245'es Sobre a Duplicata '
+    TabOrder = 4
+    object Label17: TLabel
+      Left = 8
+      Top = 16
+      Width = 41
+      Height = 13
+      Caption = 'N'#250'mero:'
+    end
+    object Label18: TLabel
+      Left = 8
+      Top = 64
+      Width = 28
+      Height = 13
+      Caption = 'Valor:'
+    end
+    object Label19: TLabel
+      Left = 8
+      Top = 120
+      Width = 68
+      Height = 13
+      Caption = 'Data Emiss'#227'o:'
+    end
+    object Label20: TLabel
+      Left = 8
+      Top = 176
+      Width = 59
+      Height = 13
+      Caption = 'Vencimento:'
+    end
+    object edtNumeroDoc: TEdit
+      Left = 8
+      Top = 32
+      Width = 153
+      Height = 21
+      ReadOnly = True
+      TabOrder = 0
+      Text = '0000000001'
+    end
+    object dbedt_vltitulo: TDBEdit
+      Left = 8
+      Top = 80
+      Width = 151
+      Height = 21
+      DataField = 'VL_TITULO'
+      DataSource = dtsTitulos
+      ReadOnly = True
+      TabOrder = 1
+    end
+    object dtp_emissao: TDateTimePicker
+      Left = 8
+      Top = 136
+      Width = 151
+      Height = 21
+      Date = 43168.429167685190000000
+      Time = 43168.429167685190000000
+      TabOrder = 2
+    end
+  end
+  object GroupBox6: TGroupBox
+    Left = 8
+    Top = 471
+    Width = 786
+    Height = 143
+    Caption = 'Informa'#231#245'es do Sacado'
+    TabOrder = 5
+    object Label29: TLabel
+      Left = 8
+      Top = 61
+      Width = 19
+      Height = 13
+      Caption = 'CEP'
+    end
+    object lbl_logradouro: TLabel
+      Left = 8
+      Top = 16
+      Width = 49
+      Height = 13
+      Caption = 'Endere'#231'o:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object lbl_num: TLabel
+      Left = 444
+      Top = 16
+      Width = 40
+      Height = 13
+      Caption = 'N'#250'mero:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object lbl_comp: TLabel
+      Left = 528
+      Top = 16
+      Width = 67
+      Height = 13
+      Caption = 'Complemento:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object lbl_bairro: TLabel
+      Left = 621
+      Top = 16
+      Width = 30
+      Height = 13
+      Caption = 'Bairro:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object lbl_uf: TLabel
+      Left = 96
+      Top = 61
+      Width = 17
+      Height = 13
+      Caption = 'UF:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object lbl_cidade: TLabel
+      Left = 206
+      Top = 61
+      Width = 36
+      Height = 13
+      Caption = 'Cidade:'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+    end
+    object dbedt_logradouro: TDBEdit
+      Left = 8
+      Top = 35
+      Width = 430
+      Height = 21
+      DataField = 'TX_LOGRADOURO'
+      DataSource = dtsEnderecos
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 0
+    end
+    object dbedt_num: TDBEdit
+      Left = 444
+      Top = 35
+      Width = 63
+      Height = 21
+      DataField = 'NR_NUMERO'
+      DataSource = dtsEnderecos
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 1
+    end
+    object dbedt_comp: TDBEdit
+      Left = 528
+      Top = 35
+      Width = 81
+      Height = 21
+      DataField = 'TX_COMPLEMENTO'
+      DataSource = dtsEnderecos
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 2
+    end
+    object dbedt_bairro: TDBEdit
+      Left = 621
+      Top = 35
+      Width = 161
+      Height = 21
+      DataField = 'TX_BAIRRO'
+      DataSource = dtsEnderecos
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 3
+    end
+    object dblucmbox_uf: TDBLookupComboBox
+      Left = 96
+      Top = 80
+      Width = 92
+      Height = 21
+      DataField = 'ID_ESTADO'
+      DataSource = dtsEnderecos
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      KeyField = 'ID_ESTADO'
+      ListField = 'TX_NOME'
+      ListSource = dtsUF
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 4
+    end
+    object dblucmbox_cidade: TDBLookupComboBox
+      Left = 206
+      Top = 80
+      Width = 134
+      Height = 21
+      DataField = 'ID_CIDADE'
+      DataSource = dtsEnderecos
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      KeyField = 'ID_CIDADE'
+      ListField = 'TX_NOME'
+      ListSource = dtsCidades
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 5
+    end
+    object dbgrd_enderecos: TDBGrid
+      Left = 353
+      Top = 62
+      Width = 429
+      Height = 78
+      TabStop = False
+      DataSource = dtsEnderecos
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'MS Sans Serif'
+      Font.Style = []
+      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 6
+      TitleFont.Charset = DEFAULT_CHARSET
+      TitleFont.Color = clWindowText
+      TitleFont.Height = -11
+      TitleFont.Name = 'MS Sans Serif'
+      TitleFont.Style = []
+      Columns = <
+        item
+          Expanded = False
+          FieldName = 'TX_LOGRADOURO'
+          Title.Caption = 'Endere'#231'o'
+          Width = 185
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'NR_NUMERO'
+          Title.Caption = 'N'#250'mero'
+          Width = 60
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TX_COMPLEMENTO'
+          Title.Caption = 'Complemento'
+          Width = 125
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TP_ATIVO'
+          Title.Caption = 'Ativo'
+          Width = 32
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TX_BAIRRO'
+          Title.Caption = 'Bairro'
+          Width = 93
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TX_ESTADO'
+          Title.Caption = 'Estado'
+          Width = 101
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TX_CIDADE'
+          Title.Caption = 'Cidade'
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TX_CEP'
+          Title.Caption = 'CEP'
+          Width = 82
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TP_REFERENCIA'
+          Title.Caption = 'Refer'#234'ncia'
+          Width = 69
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'TP_ENDERECO'
+          Title.Caption = 'Tipo de Endere'#231'o'
+          Width = 104
+          Visible = True
+        end
+        item
+          Expanded = False
+          FieldName = 'ID_HIGIENIZADORA'
+          Title.Caption = 'Higienizadora'
+          Width = 76
+          Visible = True
+        end>
+    end
+    object dbedt_cep: TDBEdit
+      Left = 8
+      Top = 80
+      Width = 69
+      Height = 21
+      DataField = 'TX_CEP'
+      DataSource = dtsEnderecos
+      TabOrder = 7
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 621
+    Width = 802
+    Height = 50
+    Align = alBottom
+    TabOrder = 6
+    object Button2: TButton
+      Left = 237
+      Top = 16
+      Width = 75
+      Height = 25
+      Caption = 'Gerar PDF'
+      TabOrder = 0
+      OnClick = Button2Click
+    end
+    object Button3: TButton
+      Left = 318
+      Top = 16
+      Width = 131
+      Height = 25
+      Caption = 'Zerar Lista de Boletos'
+      Enabled = False
+      TabOrder = 1
+    end
+    object Button4: TButton
+      Left = 455
+      Top = 16
+      Width = 97
+      Height = 25
+      Caption = 'Incluir Boleto'
+      TabOrder = 2
+      OnClick = Button4Click
+    end
+    object Button5: TButton
+      Left = 558
+      Top = 16
+      Width = 129
+      Height = 25
+      Caption = 'Incluir V'#225'rios Boletos'
+      Enabled = False
+      TabOrder = 3
+    end
+    object Button6: TButton
+      Left = 693
+      Top = 16
+      Width = 97
+      Height = 25
+      Caption = 'Gerar Remessa'
+      TabOrder = 4
+      OnClick = Button6Click
+    end
+    object btnenviaremail: TButton
+      Left = 156
+      Top = 16
+      Width = 75
+      Height = 25
+      Caption = 'Enviar Email'
+      Enabled = False
+      TabOrder = 5
+      OnClick = btnenviaremailClick
+    end
+    object rg_email: TRadioGroup
+      Left = 8
+      Top = 8
+      Width = 142
+      Height = 33
+      Caption = 'Email:'
+      Columns = 2
+      Enabled = False
+      Items.Strings = (
+        'Empresa'
+        'Usu'#225'rio')
+      TabOrder = 6
+      OnClick = rg_emailClick
+    end
+  end
+  object dtp_vencimento: TDateTimePicker
+    Left = 632
+    Top = 432
+    Width = 151
+    Height = 21
+    Date = 43168.429167685190000000
+    Time = 43168.429167685190000000
+    TabOrder = 7
+  end
+  object ACBrBoleto: TACBrBoleto
+    MAIL = ACBrMail
+    Banco.TamanhoMaximoNossoNum = 10
+    Banco.TipoCobranca = cobNenhum
+    Banco.LayoutVersaoArquivo = 0
+    Banco.LayoutVersaoLote = 0
+    Banco.CasasDecimaisMoraJuros = 2
+    Cedente.TipoInscricao = pJuridica
+    NumeroArquivo = 0
+    ACBrBoletoFC = ACBrBoletoFCFortes
+    Configuracoes.Arquivos.LogRegistro = False
+    Configuracoes.WebService.SSLHttpLib = httpOpenSSL
+    Configuracoes.WebService.StoreName = 'My'
+    Configuracoes.WebService.Ambiente = taHomologacao
+    Configuracoes.WebService.Operacao = tpInclui
+    Configuracoes.WebService.VersaoDF = '1.2'
+    Left = 592
+    Top = 72
+  end
+  object ACBrBoletoFCFortes: TACBrBoletoFCFortes
+    MostrarPreview = False
+    MostrarSetup = False
+    SoftwareHouse = 'Projeto ACBr - http://acbr.sf.net'
+    DirLogo = 'C:\ACBr\Fontes\ACBrBoleto\Logos\Colorido'
+    Left = 688
+    Top = 72
+  end
+  object dtsContas: TDataSource
+    OnDataChange = dtsContasDataChange
+    Left = 616
+    Top = 16
+  end
+  object dtsTitulos: TDataSource
+    DataSet = dtmSystem.tblTitulos
+    OnDataChange = dtsTitulosDataChange
+    Left = 672
+    Top = 16
+  end
+  object dtsCHGEmpresa: TDataSource
+    DataSet = dtmSystem.tblCHGEmpresa
+    Left = 744
+    Top = 16
+  end
+  object dtsDevedor: TDataSource
+    DataSet = dtmSystem.tblDevedores
+    Left = 552
+    Top = 16
+  end
+  object dtsEnderecos: TDataSource
+    DataSet = dtmSystem.tblEnderecos
+    OnDataChange = dtsEnderecosDataChange
+    Left = 488
+    Top = 16
+  end
+  object dtsUF: TDataSource
+    DataSet = dtmSystem.tblEstados
+    OnDataChange = dtsUFDataChange
+    Left = 469
+    Top = 68
+  end
+  object dtsCidades: TDataSource
+    DataSet = dtmSystem.tblCidades
+    OnDataChange = dtsCidadesDataChange
+    Left = 526
+    Top = 66
+  end
+  object ACBrMail: TACBrMail
+    Host = '127.0.0.1'
+    Port = '25'
+    SetSSL = False
+    SetTLS = False
+    Attempts = 3
+    DefaultCharset = UTF_8
+    IDECharset = CP1252
+    Left = 592
+    Top = 128
+  end
+end

ufrmBoleto.pas

@@ -0,0 +1,484 @@
+unit ufrmBoleto;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ACBrBoleto,
+  ACBrBoletoFCFortesFr, ACBrBase, ACBrUtil, Vcl.Grids, Vcl.DBGrids,
+  Vcl.StdCtrls,
+  Vcl.DBCtrls, Vcl.ComCtrls, rDBComponents, Vcl.Mask, Vcl.ExtCtrls, ACBrMail;
+
+type
+  TfrmBoleto = class(TForm)
+    ACBrBoletoFCFortes: TACBrBoletoFCFortes;
+    dtsContas: TDataSource;
+    dtsTitulos: TDataSource;
+    GroupBox1: TGroupBox;
+    dbgrd_titulos: TDBGrid;
+    GroupBox2: TGroupBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    edtLocalPag: TEdit;
+    edtEspecieDoc: TEdit;
+    edtEspecieMod: TEdit;
+    cbxAceite: TComboBox;
+    edtCarteira: TEdit;
+    edtNossoNro: TEdit;
+    ACBrBoleto: TACBrBoleto;
+    GroupBox3: TGroupBox;
+    Label7: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label12: TLabel;
+    Label13: TLabel;
+    Label14: TLabel;
+    edtValorDesconto: TEdit;
+    edtValorAbatimento: TEdit;
+    GroupBox4: TGroupBox;
+    Label15: TLabel;
+    Label16: TLabel;
+    memMensagem: TMemo;
+    edtInstrucoes1: TEdit;
+    edtInstrucoes2: TEdit;
+    Panel2: TPanel;
+    GroupBox5: TGroupBox;
+    Label17: TLabel;
+    Label18: TLabel;
+    Label19: TLabel;
+    Label20: TLabel;
+    edtNumeroDoc: TEdit;
+    GroupBox6: TGroupBox;
+    Label29: TLabel;
+    Panel1: TPanel;
+    Button2: TButton;
+    Button3: TButton;
+    Button4: TButton;
+    Button5: TButton;
+    Button6: TButton;
+    dbdtp_juros: TrDBDateTimePicker;
+    dbdtp_desc: TrDBDateTimePicker;
+    dtsCHGEmpresa: TDataSource;
+    dbedt_mora: TDBEdit;
+    dbedt_multa: TDBEdit;
+    dbedt_vltitulo: TDBEdit;
+    dtp_abatimento: TDateTimePicker;
+    dtp_protesto: TDateTimePicker;
+    dtp_emissao: TDateTimePicker;
+    dtp_vencimento: TDateTimePicker;
+    dtsDevedor: TDataSource;
+    dtsEnderecos: TDataSource;
+    dtsUF: TDataSource;
+    dtsCidades: TDataSource;
+    lbl_logradouro: TLabel;
+    dbedt_logradouro: TDBEdit;
+    lbl_num: TLabel;
+    dbedt_num: TDBEdit;
+    lbl_comp: TLabel;
+    dbedt_comp: TDBEdit;
+    lbl_bairro: TLabel;
+    dbedt_bairro: TDBEdit;
+    dblucmbox_uf: TDBLookupComboBox;
+    lbl_uf: TLabel;
+    dblucmbox_cidade: TDBLookupComboBox;
+    lbl_cidade: TLabel;
+    dbgrd_enderecos: TDBGrid;
+    dblucbx_contas: TDBLookupComboBox;
+    cbx_abatimento: TCheckBox;
+    dbedt_cep: TDBEdit;
+    cbx_protesto: TCheckBox;
+    btnenviaremail: TButton;
+    ACBrMail: TACBrMail;
+    rg_email: TRadioGroup;
+    procedure FormCreate(Sender: TObject);
+    procedure dtsContasDataChange(Sender: TObject; Field: TField);
+    procedure dtsTitulosDataChange(Sender: TObject; Field: TField);
+    procedure Button4Click(Sender: TObject);
+    procedure dtsEnderecosDataChange(Sender: TObject; Field: TField);
+    procedure dtsCidadesDataChange(Sender: TObject; Field: TField);
+    procedure dtsUFDataChange(Sender: TObject; Field: TField);
+    procedure Button2Click(Sender: TObject);
+    procedure cbx_abatimentoClick(Sender: TObject);
+    procedure cbx_protestoClick(Sender: TObject);
+    procedure rg_emailClick(Sender: TObject);
+    procedure btnenviaremailClick(Sender: TObject);
+    procedure Button6Click(Sender: TObject);
+    procedure WMMoving(var MSG: TWMMoving); message WM_MOVING;
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBoleto: TfrmBoleto;
+
+implementation
+
+{$R *.dfm}
+
+uses udtmSystem;
+
+procedure TfrmBoleto.btnenviaremailClick(Sender: TObject);
+begin
+  try
+    case rg_email.ItemIndex of
+      0:
+        begin
+          try
+            with ACBrMail do
+            begin
+              Clear;
+              IsHTML := true;
+              Subject := 'Envio de boleto';
+              From := dtmSystem.tblEmpresaTX_EMAIL.AsString;
+              FromName := dtmSystem.tblEmpresaTX_EMAILNOME.AsString;
+              Host := dtmSystem.tblEmpresaTX_SMTP.AsString;
+              // troque pelo seu servidor smtp
+              Username := dtmSystem.tblEmpresaTX_USUARIO.AsString;
+              Password := dtmSystem.tblEmpresaTX_SENHA.AsString;
+              Port := dtmSystem.tblEmpresaTX_PORTA.AsString;
+              // troque pela porta do seu servidor smtp
+              SetTLS := true;
+              SetSSL := true;
+              // Verifique se o seu servidor necessita SSL
+              DefaultCharset := TMailCharset(0);
+              IDECharset := TMailCharset(0);
+              AddAddress(dtsDevedor.DataSet.FieldByName('TX_EMAIL').AsString,
+                dtsDevedor.DataSet.FieldByName('TX_NOME').AsString);
+              // ACBrMail1.AddCC('outro_email@gmail.com'); // opcional
+              // ACBrMail1.AddReplyTo('um_email'); // opcional
+              // ACBrMail1.AddBCC('um_email'); // opcional
+              // ACBrMail1.Priority := MP_high;
+              // ACBrMail1.ReadingConfirmation := True; // solicita confirmação de leitura
+              AddAttachment(ExtractFilePath(Application.ExeName) +
+                'BOLETOS\boleto.pdf', 'Boleto');
+              Application.ProcessMessages;
+              Screen.Cursor := crHourGlass;
+              Send(false);
+              Screen.Cursor := crDefault;
+            end;
+          finally
+
+          end;
+        end;
+      1:
+        begin
+          dtmSystem.tblUsuarios.Locate('ID_USUARIO', dtmSystem.id_usuario, []);
+          try
+            with ACBrMail do
+            begin
+              Clear;
+              IsHTML := true;
+              Subject := 'Envio de boleto';
+              From := dtmSystem.tblUsuariosTX_EMAIL.AsString;
+              FromName := dtmSystem.tblUsuariosTX_EMAILNOME.AsString;
+              Host := dtmSystem.tblUsuariosTX_SMTP.AsString;
+              // troque pelo seu servidor smtp
+              Username := dtmSystem.tblUsuariosTX_USUARIOEMAIL.AsString;
+              Password := dtmSystem.tblUsuariosTX_SENHAEMAIL.AsString;
+              Port := dtmSystem.tblUsuariosTX_PORTA.AsString;
+              // troque pela porta do seu servidor smtp
+              SetTLS := true;
+              SetSSL := true;
+              // Verifique se o seu servidor necessita SSL
+              DefaultCharset := TMailCharset(0);
+              IDECharset := TMailCharset(0);
+              AddAddress(dtsDevedor.DataSet.FieldByName('TX_EMAIL').AsString,
+                dtsDevedor.DataSet.FieldByName('TX_NOME').AsString);
+              // ACBrMail1.AddCC('outro_email@gmail.com'); // opcional
+              // ACBrMail1.AddReplyTo('um_email'); // opcional
+              // ACBrMail1.AddBCC('um_email'); // opcional
+              // ACBrMail1.Priority := MP_high;
+              // ACBrMail1.ReadingConfirmation := True; // solicita confirmação de leitura
+              AddAttachment(ExtractFilePath(Application.ExeName) +
+                'BOLETOS\boleto.pdf', 'Boleto');
+              Application.ProcessMessages;
+              Screen.Cursor := crHourGlass;
+              Send(false);
+              Screen.Cursor := crDefault;
+            end;
+          finally
+
+          end;
+        end;
+    end;
+  finally
+    btnenviaremail.Enabled := false;
+    rg_email.ItemIndex := -1;
+    DeleteFile(ExtractFilePath(Application.ExeName) + 'BOLETOS\boleto.pdf');
+  end;
+end;
+
+procedure TfrmBoleto.Button2Click(Sender: TObject);
+begin
+  if (ACBrBoleto.Banco.TipoCobranca = cobBradesco) and (edtLocalPag.text = '')
+  then
+  begin
+    MessageDlg
+      ('O bradesco exige que você preencha a mensagem de local de pagamento.',
+      mtWarning, [mbOK], 0);
+    abort;
+  end;
+  if edtEspecieDoc.text = '' then
+  begin
+    MessageDlg('Por favor preencha a espécie do documento.', mtWarning,
+      [mbOK], 0);
+    abort;
+  end;
+  if edtEspecieMod.text = '' then
+  begin
+    MessageDlg('Por favor preencha o tipo de moeda.', mtWarning, [mbOK], 0);
+    abort;
+  end;
+  if edtCarteira.text = '' then
+  begin
+    MessageDlg('Por favor preencha o tipo de carteira.', mtWarning, [mbOK], 0);
+    abort;
+  end;
+  if edtNossoNro.text = '' then
+  begin
+    MessageDlg('Por favor preencha o nosso número.', mtWarning, [mbOK], 0);
+    abort;
+  end;
+
+  if not(DirectoryExists(ExtractFilePath(Application.ExeName) + 'BOLETOS')) then
+  begin
+    CreateDir(ExtractFilePath(Application.ExeName) + 'BOLETOS');
+  end;
+  ACBrBoletoFCFortes.NomeArquivo := ExtractFilePath(Application.ExeName) +
+    'BOLETOS\boleto.pdf';
+
+  try
+    ACBrBoleto.GerarPDF;
+    rg_email.Enabled := true;
+  finally
+
+  end;
+
+end;
+
+procedure TfrmBoleto.Button4Click(Sender: TObject);
+var
+  Titulo: TACBrTitulo;
+begin
+  Titulo := ACBrBoleto.CriarTituloNaLista;
+
+  with Titulo do
+  begin
+    Vencimento := dtp_vencimento.Date;
+    DataDocumento := dtp_emissao.Date;
+    NumeroDocumento := edtNumeroDoc.text;
+    EspecieDoc := edtEspecieDoc.text;
+//    if cbxAceite.ItemIndex = 0 then
+//      Aceite := atSim
+//    else
+//      Aceite := atNao;
+
+    DataProcessamento := Now;
+    Carteira := edtCarteira.text;
+    NossoNumero := edtNossoNro.text;
+    ValorDocumento := dtsTitulos.DataSet.FieldByName('VL_TITULO').AsCurrency;
+    Sacado.NomeSacado := dtsDevedor.DataSet.FieldByName('TX_NOME').AsString;
+    if dtsDevedor.DataSet.FieldByName('CD_CPF').AsString <> '' then
+    begin
+      Sacado.CNPJCPF := OnlyNumber(dtsDevedor.DataSet.FieldByName('CD_CPF')
+        .AsString);
+    end
+    else
+    begin
+      Sacado.CNPJCPF := OnlyNumber(dtsDevedor.DataSet.FieldByName('CD_CNPJ')
+        .AsString);
+    end;
+    Sacado.Logradouro := dtsEnderecos.DataSet.FieldByName
+      ('TX_LOGRADOURO').AsString;
+    Sacado.Numero := dtsEnderecos.DataSet.FieldByName('NR_NUMERO').AsString;
+    Sacado.Bairro := dtsEnderecos.DataSet.FieldByName('TX_BAIRRO').AsString;
+    Sacado.Cidade := dblucmbox_cidade.text;
+    Sacado.UF := dblucmbox_uf.text;
+    Sacado.CEP := OnlyNumber(dtsEnderecos.DataSet.FieldByName('TX_CEP')
+      .AsString);
+    ValorAbatimento := StrToCurrDef(edtValorAbatimento.text, 0);
+    LocalPagamento := edtLocalPag.text;
+    CodigoMora := '2';
+    ValorMoraJuros := dtsCHGEmpresa.DataSet.FieldByName('PR_JUROS').AsCurrency;
+    ValorDesconto := StrToCurrDef(edtValorDesconto.text, 0);
+    ValorAbatimento := StrToCurrDef(edtValorAbatimento.text, 0);
+    DataMoraJuros := dbdtp_juros.Date;
+    DataDesconto := dbdtp_desc.Date;
+    if cbx_abatimento.Checked then
+    begin
+      DataAbatimento := dtp_abatimento.Date;
+    end;
+    if cbx_protesto.Checked then
+    begin
+      DataProtesto := dtp_protesto.Date;
+    end;
+    PercentualMulta := dtsCHGEmpresa.DataSet.FieldByName('PR_JUROS').AsCurrency;
+    Mensagem.text := memMensagem.text;
+    OcorrenciaOriginal.Tipo := toRemessaBaixar;
+    Instrucao1 := PadRight(trim(edtInstrucoes1.text), 2, '0');
+    Instrucao2 := PadRight(trim(edtInstrucoes2.text), 2, '0');
+    // dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem);
+  end;
+end;
+
+procedure TfrmBoleto.Button6Click(Sender: TObject);
+begin
+  ACBrBoleto.GerarRemessa(1);
+end;
+
+procedure TfrmBoleto.cbx_abatimentoClick(Sender: TObject);
+begin
+  edtValorAbatimento.Enabled := cbx_abatimento.Checked;
+  if not(cbx_abatimento.Checked) then
+  begin
+    edtValorAbatimento.text := '';
+  end;
+end;
+
+procedure TfrmBoleto.cbx_protestoClick(Sender: TObject);
+begin
+  dtp_protesto.Enabled := cbx_protesto.Checked;
+end;
+
+procedure TfrmBoleto.dtsCidadesDataChange(Sender: TObject; Field: TField);
+begin
+  if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then
+  begin
+    dblucmbox_cidade.KeyValue := dtmSystem.tblEnderecosID_CIDADE.AsVariant;
+  end;
+end;
+
+procedure TfrmBoleto.dtsContasDataChange(Sender: TObject; Field: TField);
+begin
+  ACBrBoleto.Banco.TipoCobranca :=
+    TACBrTipoCobranca(dtsContas.DataSet.FieldByName('ID_BANCO').AsInteger);
+  with ACBrBoleto.Cedente do
+  begin
+    Agencia := dtsContas.DataSet.FieldByName('CD_AGENCIA').AsString;
+    AgenciaDigito := dtsContas.DataSet.FieldByName('CD_AGENCIA_DV').AsString;
+    // CNPJCPF := dtmSystem.tblEmpresaTX_CNPJ.AsString;
+    CodigoCedente := dtsContas.DataSet.FieldByName('CD_CEDENTE').AsString;
+    Conta := dtsContas.DataSet.FieldByName('CD_CONTA').AsString;
+    ContaDigito := dtsContas.DataSet.FieldByName('CD_CONTA_DV').AsString;
+    Convenio := dtsContas.DataSet.FieldByName('CD_CONVENIO').AsString;
+    Modalidade := dtsContas.DataSet.FieldByName('CD_MODALIDADE').AsString;;
+    Nome := dtmSystem.tblEmpresaTX_NOME.AsString;
+  end;
+end;
+
+procedure TfrmBoleto.dtsEnderecosDataChange(Sender: TObject; Field: TField);
+begin
+  if (dtmSystem.tblEnderecosID_ESTADO.AsVariant >= 0) then
+  begin
+    dblucmbox_uf.KeyValue := dtmSystem.tblEstadosID_ESTADO.AsVariant;
+  end;
+
+  if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then
+  begin
+    dblucmbox_cidade.KeyValue := dtmSystem.tblCidadesID_CIDADE.AsVariant;
+  end;
+end;
+
+procedure TfrmBoleto.dtsTitulosDataChange(Sender: TObject; Field: TField);
+begin
+  dtmSystem.tblCHGEmpresa.Locate('ID_EMPRESA',
+    dtsTitulos.DataSet.FieldByName('ID_EMPRESA').AsInteger, []);
+  edtNumeroDoc.text := PadLeft(dtsTitulos.DataSet.FieldByName('ID_TITULO')
+    .AsString, 10, '0');
+end;
+
+procedure TfrmBoleto.dtsUFDataChange(Sender: TObject; Field: TField);
+begin
+  if (dtmSystem.tblEnderecosID_ESTADO.AsVariant >= 0) then
+  begin
+    dblucmbox_uf.KeyValue := dtmSystem.tblEstadosID_ESTADO.AsVariant;
+  end;
+  if (dtmSystem.tblEnderecosID_CIDADE.AsVariant >= 0) then
+  begin
+    dblucmbox_cidade.KeyValue := dtmSystem.tblCidadesID_CIDADE.AsVariant;
+  end;
+end;
+
+procedure TfrmBoleto.FormCreate(Sender: TObject);
+begin
+  with dtmSystem do
+  begin
+    if not(tblCHGEmpresa.Active) then
+    begin
+      tblCHGEmpresa.Open;
+    end;
+    if not(tblTitulos.Active) then
+    begin
+      tblTitulos.Open;
+    end;
+    // tblContas.Filter := 'TP_SITUACAO = 1';
+    // tblContas.Filtered := true;
+
+    tblTitulos.Filter := 'TP_SITUACAO = ''A''';
+    tblTitulos.Filtered := true;
+
+  end;
+  if not(DirectoryExists(ExtractFilePath(Application.ExeName) + 'REMESSAS'))
+  then
+  begin
+    ForceDirectories(ExtractFilePath(Application.ExeName) + 'REMESSAS');
+  end;
+  ACBrBoleto.DirArqRemessa := ExtractFilePath(Application.ExeName) + 'REMESSAS';
+end;
+
+procedure TfrmBoleto.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key = VK_ESCAPE then
+  begin
+    Key := 0;
+    Close;
+  end;
+end;
+
+procedure TfrmBoleto.rg_emailClick(Sender: TObject);
+begin
+  if rg_email.ItemIndex < 0 then
+  begin
+    btnenviaremail.Enabled := false;
+  end
+  else
+  begin
+    btnenviaremail.Enabled := true;
+  end;
+end;
+
+procedure TfrmBoleto.WMMoving(var MSG: TWMMoving);
+var
+  workArea: TRect;
+begin
+  workArea := Screen.WorkareaRect;
+
+  with MSG.DragRect^ do
+  begin
+    if left < workArea.left then
+      OffsetRect(MSG.DragRect^, workArea.left - left, 0);
+
+    if top < workArea.top then
+      OffsetRect(MSG.DragRect^, 0, workArea.top - top);
+
+    if Right > workArea.Right then
+      OffsetRect(MSG.DragRect^, workArea.Right - Right, 0);
+
+    if Bottom > workArea.Bottom then
+      OffsetRect(MSG.DragRect^, 0, workArea.Bottom - Bottom);
+  end;
+
+end;
+
+end.