Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se incluye en presupuestos de cliente la gestión de documentos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@309 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-09-08 16:58:59 +00:00
parent 5163032bcf
commit f72e422930
45 changed files with 4362 additions and 134 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

659
Build/Build.fbp5
View File

@ -6539,6 +6539,665 @@ Comments=
</Object>
</Object>
</Object>
<Object Class="TGroupAction" XMLID="{FE5FB55B-ED46-4804-9194-7C4B5D42C72F}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Gestion de Documentos]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Gestion de Documentos]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TDelphiCompilerAction" XMLID="{9137FE3F-21F6-4DDC-BAF3-76DEA0393A83}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Gestion de documentos\Model\GestorDocumentos_model.dpk]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="AllowImplicitImport" type="Boolean">True</Property>
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
<Property name="BuildVersion" type="Integer">0</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">12</Property>
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Gestion de documentos\Model\GestorDocumentos_model.dpk]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
<Property name="HintsAsError" type="Boolean">False</Property>
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">False</Property>
<Property name="IncludeManifest" type="Boolean">False</Property>
<Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="IsDebug" type="WordBool">False</Property>
<Property name="IsDLL" type="WordBool">False</Property>
<Property name="IsPreRelease" type="WordBool">False</Property>
<Property name="IsPrivate" type="WordBool">False</Property>
<Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
<Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="MinorVersion" type="Integer">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Gestion de documentos\Model\GestorDocumentos_model.dpk]]>
</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">0</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="UpdateDofFile" type="Boolean">False</Property>
<Property name="UpdatePackageSource" type="Boolean">False</Property>
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
<Property name="WarningsAsError" type="Boolean">False</Property>
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
<Object Class="TDelphiCompilerOptions" XMLID="{95366DEB-9535-4751-87A6-AB7761BB5B4D}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
<Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property>
<Property name="Assertions" type="WordBool">True</Property>
<Property name="AssignableConst" type="WordBool">False</Property>
<Property name="BoolEval" type="WordBool">False</Property>
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
</Property>
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
<Property name="ConsoleApp" type="WordBool">False</Property>
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
<Property name="DebugInfo" type="WordBool">False</Property>
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
<Property name="DefinitionsOnly" type="WordBool">False</Property>
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
<Property name="ExportAllSymbols" type="WordBool">False</Property>
<Property name="ExtendedSyntax" type="WordBool">True</Property>
<Property name="GenerateDocumentation" type="Boolean">False</Property>
<Property name="GenerateHPP" type="WordBool">False</Property>
<Property name="HugeStrings" type="WordBool">True</Property>
<Property name="ImageBase" type="Cardinal">4194304</Property>
<Property name="IncludeNamespaces" type="WordBool">False</Property>
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
<Property name="IncludeTD32" type="WordBool">False</Property>
<Property name="IOChecking" type="WordBool">True</Property>
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
<Property name="LinkerOutput" type="Integer">0</Property>
<Property name="LocalSymbols" type="WordBool">False</Property>
<Property name="Mapfile" type="Integer">0</Property>
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
<Property name="MinStackSize" type="Cardinal">16384</Property>
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
<Property name="OpenStrings" type="WordBool">True</Property>
<Property name="Optimisation" type="WordBool">True</Property>
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
<Property name="OverflowChecking" type="WordBool">False</Property>
<Property MultiValue="0" name="Packages" type="WideString"></Property>
<Property name="RangeChecking" type="WordBool">False</Property>
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
<Property name="ReferenceInfo" type="WordBool">False</Property>
<Property name="SafeDivide" type="WordBool">False</Property>
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
<Property name="ShowHints" type="WordBool">True</Property>
<Property name="ShowWarnings" type="WordBool">True</Property>
<Property name="StackFrames" type="WordBool">False</Property>
<Property name="TypedPointers" type="WordBool">False</Property>
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
<Property name="UseDebugDCU" type="WordBool">False</Property>
<Property name="UsePackages" type="WordBool">False</Property>
<Property name="VarStringChecks" type="WordBool">True</Property>
</Object>
</Object>
<Object Class="TDelphiCompilerAction" XMLID="{5C020B57-3D12-4989-9924-F15415C11F82}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Gestion de documentos\Data\GestorDocumentos_data.dpk]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="AllowImplicitImport" type="Boolean">True</Property>
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
<Property name="BuildVersion" type="Integer">0</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">12</Property>
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Gestion de documentos\Data\GestorDocumentos_data.dpk]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
<Property name="HintsAsError" type="Boolean">False</Property>
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">False</Property>
<Property name="IncludeManifest" type="Boolean">False</Property>
<Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="IsDebug" type="WordBool">False</Property>
<Property name="IsDLL" type="WordBool">False</Property>
<Property name="IsPreRelease" type="WordBool">False</Property>
<Property name="IsPrivate" type="WordBool">False</Property>
<Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
<Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="MinorVersion" type="Integer">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Gestion de documentos\Data\GestorDocumentos_data.dpk]]>
</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">0</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="UpdateDofFile" type="Boolean">False</Property>
<Property name="UpdatePackageSource" type="Boolean">False</Property>
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
<Property name="WarningsAsError" type="Boolean">False</Property>
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
<Object Class="TDelphiCompilerOptions" XMLID="{C2CBF837-D21B-4F5A-BBDF-5FEBB62DF57E}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
<Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property>
<Property name="Assertions" type="WordBool">True</Property>
<Property name="AssignableConst" type="WordBool">False</Property>
<Property name="BoolEval" type="WordBool">False</Property>
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
</Property>
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
<Property name="ConsoleApp" type="WordBool">False</Property>
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
<Property name="DebugInfo" type="WordBool">False</Property>
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
<Property name="DefinitionsOnly" type="WordBool">False</Property>
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
<Property name="ExportAllSymbols" type="WordBool">False</Property>
<Property name="ExtendedSyntax" type="WordBool">True</Property>
<Property name="GenerateDocumentation" type="Boolean">False</Property>
<Property name="GenerateHPP" type="WordBool">False</Property>
<Property name="HugeStrings" type="WordBool">True</Property>
<Property name="ImageBase" type="Cardinal">4194304</Property>
<Property name="IncludeNamespaces" type="WordBool">False</Property>
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
<Property name="IncludeTD32" type="WordBool">False</Property>
<Property name="IOChecking" type="WordBool">True</Property>
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
<Property name="LinkerOutput" type="Integer">0</Property>
<Property name="LocalSymbols" type="WordBool">False</Property>
<Property name="Mapfile" type="Integer">0</Property>
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
<Property name="MinStackSize" type="Cardinal">16384</Property>
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
<Property name="OpenStrings" type="WordBool">True</Property>
<Property name="Optimisation" type="WordBool">True</Property>
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
<Property name="OverflowChecking" type="WordBool">False</Property>
<Property MultiValue="0" name="Packages" type="WideString"></Property>
<Property name="RangeChecking" type="WordBool">False</Property>
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
<Property name="ReferenceInfo" type="WordBool">False</Property>
<Property name="SafeDivide" type="WordBool">False</Property>
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
<Property name="ShowHints" type="WordBool">True</Property>
<Property name="ShowWarnings" type="WordBool">True</Property>
<Property name="StackFrames" type="WordBool">False</Property>
<Property name="TypedPointers" type="WordBool">False</Property>
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
<Property name="UseDebugDCU" type="WordBool">False</Property>
<Property name="UsePackages" type="WordBool">False</Property>
<Property name="VarStringChecks" type="WordBool">True</Property>
</Object>
</Object>
<Object Class="TDelphiCompilerAction" XMLID="{77A6BCDA-5512-4F6A-8B1E-63DF578F8176}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Gestion de documentos\Controller\GestorDocumentos_controller.dpk]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="AllowImplicitImport" type="Boolean">True</Property>
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
<Property name="BuildVersion" type="Integer">0</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">12</Property>
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Gestion de documentos\Controller\GestorDocumentos_controller.dpk]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
<Property name="HintsAsError" type="Boolean">False</Property>
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">False</Property>
<Property name="IncludeManifest" type="Boolean">False</Property>
<Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="IsDebug" type="WordBool">False</Property>
<Property name="IsDLL" type="WordBool">False</Property>
<Property name="IsPreRelease" type="WordBool">False</Property>
<Property name="IsPrivate" type="WordBool">False</Property>
<Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
<Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="MinorVersion" type="Integer">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Gestion de documentos\Controller\GestorDocumentos_controller.dpk]]>
</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">0</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="UpdateDofFile" type="Boolean">False</Property>
<Property name="UpdatePackageSource" type="Boolean">False</Property>
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
<Property name="WarningsAsError" type="Boolean">False</Property>
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
<Object Class="TDelphiCompilerOptions" XMLID="{4B1DFC5E-D668-4C8E-8FCD-DC658C28BC32}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
<Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property>
<Property name="Assertions" type="WordBool">True</Property>
<Property name="AssignableConst" type="WordBool">False</Property>
<Property name="BoolEval" type="WordBool">False</Property>
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
</Property>
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
<Property name="ConsoleApp" type="WordBool">False</Property>
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
<Property name="DebugInfo" type="WordBool">False</Property>
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
<Property name="DefinitionsOnly" type="WordBool">False</Property>
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
<Property name="ExportAllSymbols" type="WordBool">False</Property>
<Property name="ExtendedSyntax" type="WordBool">True</Property>
<Property name="GenerateDocumentation" type="Boolean">False</Property>
<Property name="GenerateHPP" type="WordBool">False</Property>
<Property name="HugeStrings" type="WordBool">True</Property>
<Property name="ImageBase" type="Cardinal">4194304</Property>
<Property name="IncludeNamespaces" type="WordBool">False</Property>
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
<Property name="IncludeTD32" type="WordBool">False</Property>
<Property name="IOChecking" type="WordBool">True</Property>
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
<Property name="LinkerOutput" type="Integer">0</Property>
<Property name="LocalSymbols" type="WordBool">False</Property>
<Property name="Mapfile" type="Integer">0</Property>
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
<Property name="MinStackSize" type="Cardinal">16384</Property>
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
<Property name="OpenStrings" type="WordBool">True</Property>
<Property name="Optimisation" type="WordBool">True</Property>
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
<Property name="OverflowChecking" type="WordBool">False</Property>
<Property MultiValue="0" name="Packages" type="WideString"></Property>
<Property name="RangeChecking" type="WordBool">False</Property>
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
<Property name="ReferenceInfo" type="WordBool">False</Property>
<Property name="SafeDivide" type="WordBool">False</Property>
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
<Property name="ShowHints" type="WordBool">True</Property>
<Property name="ShowWarnings" type="WordBool">True</Property>
<Property name="StackFrames" type="WordBool">False</Property>
<Property name="TypedPointers" type="WordBool">False</Property>
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
<Property name="UseDebugDCU" type="WordBool">False</Property>
<Property name="UsePackages" type="WordBool">False</Property>
<Property name="VarStringChecks" type="WordBool">True</Property>
</Object>
</Object>
<Object Class="TDelphiCompilerAction" XMLID="{51035E60-26E4-4449-B470-4CEFC14EB020}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Gestion de documentos\Views\GestorDocumentos_view.dpk]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="AllowImplicitImport" type="Boolean">True</Property>
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
<Property name="BuildVersion" type="Integer">0</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">12</Property>
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Gestion de documentos\Views\GestorDocumentos_view.dpk]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
<Property name="HintsAsError" type="Boolean">False</Property>
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">False</Property>
<Property name="IncludeManifest" type="Boolean">False</Property>
<Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="IsDebug" type="WordBool">False</Property>
<Property name="IsDLL" type="WordBool">False</Property>
<Property name="IsPreRelease" type="WordBool">False</Property>
<Property name="IsPrivate" type="WordBool">False</Property>
<Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
<Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="MinorVersion" type="Integer">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Gestion de documentos\Views\GestorDocumentos_view.dpk]]>
</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">0</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="UpdateDofFile" type="Boolean">False</Property>
<Property name="UpdatePackageSource" type="Boolean">False</Property>
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
<Property name="WarningsAsError" type="Boolean">False</Property>
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
<Object Class="TDelphiCompilerOptions" XMLID="{F31BF6EC-FC45-4892-94F2-DFA87DC923CF}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
<Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property>
<Property name="Assertions" type="WordBool">True</Property>
<Property name="AssignableConst" type="WordBool">False</Property>
<Property name="BoolEval" type="WordBool">False</Property>
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
</Property>
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
<Property name="ConsoleApp" type="WordBool">False</Property>
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
<Property name="DebugInfo" type="WordBool">False</Property>
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
<Property name="DefinitionsOnly" type="WordBool">False</Property>
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
<Property name="ExportAllSymbols" type="WordBool">False</Property>
<Property name="ExtendedSyntax" type="WordBool">True</Property>
<Property name="GenerateDocumentation" type="Boolean">False</Property>
<Property name="GenerateHPP" type="WordBool">False</Property>
<Property name="HugeStrings" type="WordBool">True</Property>
<Property name="ImageBase" type="Cardinal">4194304</Property>
<Property name="IncludeNamespaces" type="WordBool">False</Property>
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
<Property name="IncludeTD32" type="WordBool">False</Property>
<Property name="IOChecking" type="WordBool">True</Property>
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
<Property name="LinkerOutput" type="Integer">0</Property>
<Property name="LocalSymbols" type="WordBool">False</Property>
<Property name="Mapfile" type="Integer">0</Property>
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
<Property name="MinStackSize" type="Cardinal">16384</Property>
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
<Property name="OpenStrings" type="WordBool">True</Property>
<Property name="Optimisation" type="WordBool">True</Property>
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
<Property name="OverflowChecking" type="WordBool">False</Property>
<Property MultiValue="0" name="Packages" type="WideString"></Property>
<Property name="RangeChecking" type="WordBool">False</Property>
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
<Property name="ReferenceInfo" type="WordBool">False</Property>
<Property name="SafeDivide" type="WordBool">False</Property>
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
<Property name="ShowHints" type="WordBool">True</Property>
<Property name="ShowWarnings" type="WordBool">True</Property>
<Property name="StackFrames" type="WordBool">False</Property>
<Property name="TypedPointers" type="WordBool">False</Property>
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
<Property name="UseDebugDCU" type="WordBool">False</Property>
<Property name="UsePackages" type="WordBool">False</Property>
<Property name="VarStringChecks" type="WordBool">True</Property>
</Object>
</Object>
<Object Class="TDelphiCompilerAction" XMLID="{50350C37-C3E8-4CD6-86C3-AC59B9571BAB}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Gestion de documentos\Plugin\GestorDocumentos_plugin.dpk]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="AllowImplicitImport" type="Boolean">True</Property>
<Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AutoIncBuild" type="WordBool">False</Property>
<Property name="AutoUpdateFileVersion" type="Boolean">True</Property>
<Property name="BuildAll" type="WordBool">True</Property>
<Property name="BuildVersion" type="Integer">0</Property>
<Property name="CodePage" type="Integer">1252</Property>
<Property name="CompilerVersion" type="Integer">12</Property>
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Gestion de documentos\Plugin\GestorDocumentos_plugin.dpk]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
<Property name="HintsAsError" type="Boolean">False</Property>
<Property MultiValue="0" name="IconFile" type="WideString"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">False</Property>
<Property name="IncludeManifest" type="Boolean">False</Property>
<Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="IsDebug" type="WordBool">False</Property>
<Property name="IsDLL" type="WordBool">False</Property>
<Property name="IsPreRelease" type="WordBool">False</Property>
<Property name="IsPrivate" type="WordBool">False</Property>
<Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
<Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="MinorVersion" type="Integer">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Gestion de documentos\Plugin\GestorDocumentos_plugin.dpk]]>
</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">0</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="StartingDir" type="WideString"></Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="UpdateDofFile" type="Boolean">False</Property>
<Property name="UpdatePackageSource" type="Boolean">False</Property>
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
<Property name="WarningsAsError" type="Boolean">False</Property>
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
<Object Class="TDelphiCompilerOptions" XMLID="{C5047BB3-73AB-440F-9D3D-547FDA676FB0}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
<Property name="AlwaysUseDOFSearchPath" type="WordBool">False</Property>
<Property name="Assertions" type="WordBool">True</Property>
<Property name="AssignableConst" type="WordBool">False</Property>
<Property name="BoolEval" type="WordBool">False</Property>
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
</Property>
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
<Property name="ConsoleApp" type="WordBool">False</Property>
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
<Property name="DebugInfo" type="WordBool">False</Property>
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
<Property name="DefinitionsOnly" type="WordBool">False</Property>
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
<Property name="ExportAllSymbols" type="WordBool">False</Property>
<Property name="ExtendedSyntax" type="WordBool">True</Property>
<Property name="GenerateDocumentation" type="Boolean">False</Property>
<Property name="GenerateHPP" type="WordBool">False</Property>
<Property name="HugeStrings" type="WordBool">True</Property>
<Property name="ImageBase" type="Cardinal">4194304</Property>
<Property name="IncludeNamespaces" type="WordBool">False</Property>
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
<Property name="IncludeTD32" type="WordBool">False</Property>
<Property name="IOChecking" type="WordBool">True</Property>
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
<Property name="LinkerOutput" type="Integer">0</Property>
<Property name="LocalSymbols" type="WordBool">False</Property>
<Property name="Mapfile" type="Integer">0</Property>
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
<Property name="MinStackSize" type="Cardinal">16384</Property>
<Property MultiValue="0" name="NamespacePrefixes" type="string"></Property>
<Property name="OpenStrings" type="WordBool">True</Property>
<Property name="Optimisation" type="WordBool">True</Property>
<Property MultiValue="0" name="OutputDir" type="WideString">%output_path%</Property>
<Property name="OverflowChecking" type="WordBool">False</Property>
<Property MultiValue="0" name="Packages" type="WideString"></Property>
<Property name="RangeChecking" type="WordBool">False</Property>
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
<Property name="ReferenceInfo" type="WordBool">False</Property>
<Property name="SafeDivide" type="WordBool">False</Property>
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
<Property name="ShowHints" type="WordBool">True</Property>
<Property name="ShowWarnings" type="WordBool">True</Property>
<Property name="StackFrames" type="WordBool">False</Property>
<Property name="TypedPointers" type="WordBool">False</Property>
<Property MultiValue="0" name="UnitAliases" type="WideString">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Property>
<Property MultiValue="0" name="UnitOutputDir" type="WideString"></Property>
<Property name="UseDebugDCU" type="WordBool">False</Property>
<Property name="UsePackages" type="WordBool">False</Property>
<Property name="VarStringChecks" type="WordBool">True</Property>
</Object>
</Object>
</Object>
</Object>
<Object Class="TGroupAction" XMLID="{AD23CE23-8728-48FA-84FD-264E27BA8F46}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Almacenes MDC]]>

BIN
Database/ACANA.FDB
View File

Binary file not shown.

21
Source/Base/Configuracion/uDataModuleConfiguracion.dfm
View File

@ -1,27 +1,10 @@
object dmConfiguracion: TdmConfiguracion
OldCreateOrder = False
Height = 160
Width = 220
object ROChannel: TROWinInetHTTPChannel
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin'
Login.Username = '123456'
Login.Password = 'sa'
KeepConnection = True
ServerLocators = <>
DispatchOptions = []
Left = 42
Top = 16
end
object ROMessage: TROBinMessage
Left = 42
Top = 88
end
Width = 100
object RORemoteService: TRORemoteService
Message = ROMessage
Channel = ROChannel
ServiceName = 'srvConfiguracion'
Left = 136
Left = 24
Top = 16
end
end

18
Source/Base/Configuracion/uDataModuleConfiguracion.pas
View File

@ -4,7 +4,7 @@ interface
uses
SysUtils, Classes, uRORemoteService, uDADataTable,
uDABINAdapter, uROClient, uROBinMessage, uROWinInetHttpChannel, IniFiles,
uDABINAdapter, uROClient, IniFiles,
uDADataStreamer;
const
@ -12,13 +12,11 @@ const
type
TdmConfiguracion = class(TDataModule)
ROChannel: TROWinInetHTTPChannel;
ROMessage: TROBinMessage;
RORemoteService: TRORemoteService;
private
FIniFile : TIniFile;
public
function DarValor(const CODIGO: String): Variant;
function DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): Variant;
procedure LeerConfiguracion;
procedure SalvarConfiguracion;
constructor Create(AOwner: TComponent); override;
@ -47,17 +45,19 @@ var
begin
inherited;
AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
AIniFile := AIniFile + PathDelim + GetAppName + PathDelim;
if not DirectoryExists(AIniFile) then
ForceDirectories(AIniFile);
CreateDir(AIniFile);
FIniFile := TIniFile.Create(AIniFile + CONFIG_INI_FILE);
end;
function TdmConfiguracion.DarValor(const CODIGO: String): Variant;
function TdmConfiguracion.DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): Variant;
begin
Result := (RORemoteService as IsrvConfiguracion).DarValor(CODIGO);
RORemoteService.Channel := dmConexion.ROChannel;
RORemoteService.Message := dmConexion.ROMessage;
Result := (RORemoteService as IsrvConfiguracion).DarValor(CODIGO, ValorPorDefecto);
end;
destructor TdmConfiguracion.Destroy;

226
Source/Base/Utiles/uSistemaFunc.pas
View File

@ -20,33 +20,45 @@
---------------------------------------------------------------------------
===============================================================================
}
unit uSistemaFunc;
interface
uses SysUtils, Classes;
{ Funciones del sistema }
function Ejecutar (const LineaComando: String; Oculto, Esperar: Boolean) : Boolean;
procedure EscribirEnFichero (NombreFichero, Texto : string);
function DarRutaTemporal : String;
function DarDirectorioTemporal : String;
function DarFicheroTemporal : String;
function DarFicheroJPGTemporal : String;
function DarFicheroBMPTemporal : String;
function DarFicheroTIFFTemporal : String;
function DarFicheroExportar (var Fichero : String) : Boolean;
function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
function DarFicheroHTMLTemporal : String;
function DarFicheroExcelTemporal : String;
function DarFicheroPDFTemporal : String; overload;
function DarFicheroPDFTemporal(const AFileName : String) : String; overload;
function DarVersionFichero (Executable : String) : String;
function DarFechaFichero (Executable : String) : String;
procedure CopiarFichero(const Origen, Destino: string);
procedure DoDelTree( TheDir : String);
procedure Deltree(DirToKill : String; KillChoosenDir : Boolean);
function GetSpecialFolderPath(folder : integer) : string;
function GetSpecialFolderPath(folder : integer) : string;
function PreguntarRuta(const ATitulo: String; const AComentario: String; var ARuta: String): Boolean;
function PreguntarFicheroWordExportar (var Fichero : String) : Boolean;
function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
function EscapeIllegalChars(AFileName: string): string;
function FindFile(const filespec: TFileName; attributes: integer = faReadOnly Or faHidden Or faSysFile Or faArchive): TStringList;
implementation
uses
SysUtils, Windows, Dialogs, JclFileUtils,
Messages, Classes, Graphics, Controls, Forms,
StdCtrls, SHFolder;
Windows, Dialogs, JclFileUtils,
Messages, Graphics, Controls, Forms,
StdCtrls, SHFolder, cxShellBrowserDialog,
cxLookAndFeels, uStringsUtils;
function GetSpecialFolderPath(folder : integer) : string;
const
@ -60,6 +72,18 @@ begin
Result := '';
end;
procedure EscribirEnFichero (NombreFichero, Texto : string);
var
FicheroAux : TextFile;
begin
SysUtils.DeleteFile(NombreFichero);
AssignFile(FicheroAux, NombreFichero);
Rewrite(FicheroAux);
WriteLn(FicheroAux, Texto);
CloseFile(FicheroAux);
end;
function Ejecutar (const LineaComando: String; Oculto, Esperar: Boolean): Boolean;
var
StartupInfo : TStartupInfo;
@ -124,6 +148,30 @@ begin
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'tif';
end;
function DarFicheroPDFTemporal : String;
var
Cadena : String;
begin
Cadena := DarFicheroTemporal;
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'pdf';
end;
function DarFicheroPDFTemporal(const AFileName : String) : String;
var
Cadena : String;
RutaTmp : string;
begin
if not EsCadenaVacia(AFileName) then
begin
RutaTmp := DarRutaTemporal;
Cadena := ExtractFileName(AFileName);
Cadena := StringReplace(Cadena, ExtractFileExt(Cadena), '', []);
Result := RutaTmp + Cadena + '.pdf';
end
else
Result := DarFicheroPDFTemporal;
end;
function DarFicheroBMPTemporal : String;
var
Cadena : String;
@ -132,6 +180,22 @@ begin
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'bmp';
end;
function DarFicheroExcelTemporal : String;
var
Cadena : String;
begin
Cadena := DarFicheroTemporal;
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'xls';
end;
function DarFicheroHTMLTemporal : String;
var
Cadena : String;
begin
Cadena := DarFicheroTemporal;
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'html';
end;
function DarFicheroJPGTemporal : String;
var
Cadena : String;
@ -140,7 +204,7 @@ begin
Result := Copy(Cadena, 0, (Length(Cadena)-3)) + 'jpg';
end;
function DarFicheroExportar (var Fichero : String) : Boolean;
function PreguntarFicheroWordExportar (var Fichero : String) : Boolean;
var
DialogoSalvar : TSaveDialog;
begin
@ -161,6 +225,28 @@ begin
end;
end;
function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
var
DialogoSalvar : TSaveDialog;
begin
DialogoSalvar := TSaveDialog.Create(NIL);
try
with DialogoSalvar do
begin
DefaultExt := 'xls';
Filter := 'Documento de Excel (*.xls)|*.xls';
FilterIndex := 0;
Options := [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing];
end;
Result := DialogoSalvar.Execute;
if Result then
Fichero := DialogoSalvar.FileName;
finally
DialogoSalvar.Free;
end;
end;
function DarVersionFichero (Executable : String) : String;
var
Obj : TJclFileVersionInfo;
@ -173,27 +259,6 @@ begin
end;
end;
function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
var
DialogoSalvar : TSaveDialog;
begin
DialogoSalvar := TSaveDialog.Create(NIL);
try
with DialogoSalvar do
begin
DefaultExt := 'xls';
Filter := 'Documento de Excel (*.xls)|*.xls';
FilterIndex := 0;
Options := [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing];
end;
Result := DialogoSalvar.Execute;
if Result then
Fichero := DialogoSalvar.FileName;
finally
DialogoSalvar.Free;
end;
end;
function DarFechaFichero (Executable : String) : String;
var
FileTime, LocalFileTime : TFileTime;
@ -271,5 +336,104 @@ begin
end;
function PreguntarRuta(const ATitulo: String; const AComentario: String; var ARuta: String): Boolean;
var
cxShellBrowserDialog1: TcxShellBrowserDialog;
begin
cxShellBrowserDialog1 := TcxShellBrowserDialog.Create(NIL);
try
with cxShellBrowserDialog1 do
begin
Name := 'cxShellBrowserDialog1';
FolderLabelCaption := AComentario;
LookAndFeel.NativeStyle := True;
LookAndFeel.Kind := lfStandard;
Title := ATitulo;
Result := cxShellBrowserDialog1.Execute;
ARuta := cxShellBrowserDialog1.Path;
end;
finally
FreeANDNIL(cxShellBrowserDialog1);
end;
end;
function EscapeIllegalChars(AFileName: string): string;
var
x: integer;
const
IllegalCharSet: set of char =
['|','<','>','\','^','+','=','?','/','[',']','"',';',',','*'];
begin
for x := 1 to Length(AFileName) do
if AFileName[x] in IllegalCharSet then
AFileName[x] := '_';
Result := AFileName;
end;
function FindFile(const filespec: TFileName; attributes: integer): TStringList;
var
spec: string;
list: TStringList;
procedure RFindFile(const folder: TFileName);
var
SearchRec: TSearchRec;
begin
// Locate all matching files in the current
// folder and add their names to the list
if FindFirst(folder + spec, attributes, SearchRec) = 0 then begin
try
repeat
if (SearchRec.Attr and faDirectory = 0) or
(SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
list.Add(folder + SearchRec.Name);
until FindNext(SearchRec) <> 0;
except
SysUtils.FindClose(SearchRec);
raise;
end;
SysUtils.FindClose(SearchRec);
end;
// Now search the subfolders
if FindFirst(folder + '*', attributes
Or faDirectory, SearchRec) = 0 then
begin
try
repeat
if ((SearchRec.Attr and faDirectory) <> 0) and
(SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
RFindFile(folder + SearchRec.Name + '\');
until FindNext(SearchRec) <> 0;
except
SysUtils.FindClose(SearchRec);
raise;
end;
SysUtils.FindClose(SearchRec);
end;
end; // procedure RFindFile inside of FindFile
begin // function FindFile
list := TStringList.Create;
try
spec := ExtractFileName(filespec);
RFindFile(ExtractFilePath(filespec));
Result := list;
except
list.Free;
raise;
end;
end;
function DarDirectorioTemporal : String;
var
Cadena: String;
begin
Cadena := ExtractFileName(DarFicheroTemporal);
Cadena := StringReplace(Cadena, ExtractFileExt(Cadena), '', []);
Result := DarRutaTemporal + Cadena + '\';
end;
end.

1
Source/Base/Utiles/uStringsUtils.pas
View File

@ -7,6 +7,7 @@ uses
const
DISPLAY_EUROS2 = '#,0.00 €';
DISPLAY_PORCENTAJE = '#,0.00%';
procedure StringToStrings(Source:string; Delimiter:char; Target:TStrings);
function StringsToString(Source:TStrings; Delimiter:char):string;

BIN
Source/GUIBase/GUIBase.dpk
View File

Binary file not shown.

55
Source/GUIBase/GUIBase.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{0ca27a95-0b81-4724-84bf-8f8ed4e421ae}</ProjectGuid>
<MainSource>GUIBase.dpk</MainSource>
@ -57,23 +58,32 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de proveedor\Base.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\frx11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\frxe11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\fs11.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxTreeListD11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dxBarD11.dcp" />
<DCCReference Include="dxBarExtItemsD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPsPrVwAdvD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="frx11.dcp" />
<DCCReference Include="frxe11.dcp" />
<DCCReference Include="fs11.dcp" />
<DCCReference Include="JvAppFrmD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>
@ -124,6 +134,10 @@
<Form>frViewDetallesGenerico</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDocumentos.pas">
<Form>frViewGrid</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewFiltroBase.pas">
<Form>frViewFiltroBase</Form>
<DesignClass>TFrame</DesignClass>
@ -160,6 +174,11 @@
<Form>frViewTotales</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

790
Source/GUIBase/uViewDocumentos.dfm Normal file
View File

@ -0,0 +1,790 @@
inherited frViewDocumentos: TfrViewDocumentos
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
object TBXDock: TTBXDock
Left = 0
Top = 0
Width = 445
Height = 23
object tbxMain: TTBXToolbar
Left = 0
Top = 0
Caption = 'tbxMain'
ChevronHint = 'M'#225's botones|'
DockMode = dmCannotFloatOrChangeDocks
DockPos = 0
DockRow = 1
DragHandleStyle = dhDouble
ParentShowHint = False
ShowHint = True
TabOrder = 0
object TBXItem2: TTBXItem
Action = actAnadir
DisplayMode = nbdmImageAndText
end
object TBXItem3: TTBXItem
Action = actModificar
end
object TBXItem1: TTBXItem
Action = actEliminar
end
object TBXSeparatorItem1: TTBXSeparatorItem
end
object TBXItem4: TTBXItem
Action = actEliminarTodo
end
object TBXItem5: TTBXItem
Action = actActualizarServidor
end
end
end
object ListView1: TListView
Left = 0
Top = 23
Width = 445
Height = 268
Align = alClient
BorderStyle = bsNone
Columns = <>
LargeImages = LargeImagesBrowser
SmallImages = SmallImagesBrowser
TabOrder = 1
OnDblClick = ListView1DblClick
end
object EditorActionList: TActionList
Left = 16
Top = 16
object actAnadir: TAction
Caption = 'Abrir'
OnExecute = actAnadirExecute
end
object actModificar: TAction
Caption = 'Modificar'
OnExecute = actModificarExecute
OnUpdate = actModificarUpdate
end
object actEliminar: TAction
Caption = 'Eliminar'
OnExecute = actEliminarExecute
OnUpdate = actEliminarUpdate
end
object actEliminarTodo: TAction
Caption = 'Eliminar todo'
OnExecute = actEliminarTodoExecute
OnUpdate = actEliminarTodoUpdate
end
object actActualizarServidor: TAction
Caption = 'Actualizar Servidor'
Visible = False
OnExecute = actActualizarServidorExecute
end
end
object LargeImagesBrowser: TPngImageList
Height = 24
ShareImages = True
Width = 24
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300000B1300000B1301009A9C18000005A94944415478DA
A5557B4C536714FFDDBE2895B658B45051471930B618918230913F98CA7089E2
63155936369D8F44108491A99B014A37A7C6D4E83225D974381F2488A28B4AC8
3632358A9D08734C7C204699E91018D0DB02054ADB9D7BF141A76C31FB929B7B
EE77BF9CDFF97EE777CE610C0603462F97CBFDC9F8F1CA4D53A7CA1FED78F0A2
4B2412C16E7761E346A38D79166068AB4E37EBD34B975CB0D9FA688719C30D83
E16137BABB07410191433B64B271703A8708408CF070370E1DCA1D7A06402018
3668B55145191937E9CB468F700C8001C8E51A9494CC437E7E01366CC8455959
19A2A2A2209148D0D0700652E943F67F0078084040000163005C270015FB1C8A
9C86E9D3638B6A6B3D6059FBBF50E44B74FC819E9E73F0F77F4C918CF69C100A
85888C8CE4009F05181A721A6263754552A983387682090C84C4C707429B0D0E
D6C69F51D2B7629C1483834047DFC80D690B6A35113720261654E8EDED855EAF
E700B6D26FC523F74E72FA97213434AC8853426A6A2A982BBFC1DE66C5902E04
015343F853F75916F79B9BE13F6912660407F37B56D2C3B51F48413E1D9899A2
C0B99FCE61FDFA6C0E20977E5F7B04309E00628B4343830AFDC6F961595A1AB0
380E77EED5E166D266A4EED9C69F2A3EFF330C577F4174B8160DA9CBF9BDBA33
405C21E5507E1A9DDF46E36293196BD6647100EF82618E12F7DCF5B8AB6EDFA0
D506EED64484E3E58E0E94AE5C8A7672F0D67B1F41FF9509D769EFCDDD2568B3
B8F01AAB45D3A995E8EF7722E5F54A98251DF065DA71AB2C17576F9E27804C0E
60053C9E831CC03CB53A38E3EEDD40BB4EB733CB57DE037D720A361BBF40F3EF
2D787F951E4BF46918F27870B4B21955876BF06AE874187725C2ED06BE3F7B05
F91FC66341EA526CDE560AF3C51FB16E1D01188DAB60B51E88993B37BB263131
5F79E4C80744D33C4444CC415474246E35DFE62B33223C1C8113FCD16B77A0A1
CE4C121463A2460DAD3662242FF7D763F6ECBDC8CCFC1A5BB6AC417979397272
7258262F2F716152D24B4793938FC87B7A5892583BAAAB0B28AA78C4C5E9D0D2
728777A0D56A1114A42175D8D1D47483AF03B55A83E8E8D9A8ABFB18B9B9DF60
C68C1558BB3687DED35059593902B06953DA958808DBCCC58B4FC1E160E1EBAB
C6C387E5387D3A939CCE814221E3011C0E07C972900210C1CFCF8FF246CAB176
521DD4E2F26516870F0346E32E1414E4F1E74E9C3881BCBC3C96292EFE72426F
EF85EAD0D0AE98F4F41A2AAE46ECDB9780B0B05728490DFFD1D6EE62FEFC302A
B291AFC4C462ECD85148140FA3A2A2826E95CB25B980A299287738CCD51ACD9D
592C5BC7DCBE0D2424C4213DFD14FD739308843C258F6DEEED740E60FBF60C54
55D5223B1B3879124497113B7716D0190F8E1F3F8EACACACA795EC72295522D1
857B7279B742266BE4132B14AA281712B2EDF4F679620B04BED4456D448B050B
160054EC38760C0808580593A9109D9D9DE8EAEAC2EAD5AB9F02B0AC551A1FFF
76DBF2E5327F8BE533721444A00314CD486B6618CF135B241252CD3888E72A6A
E93D94272AB43AA0A66632A64D0BA7BAE8A74628477D7D3D9E00D86C36A54E97
D2BA64895369B1EC8558ACE1A900385A445EB648C4909341E2B98A12DA4DF300
A42CE0C0017C47874A47F74E2F809898B9AD0B172A95EDED9F13809A6BDEE450
40CE87BD6CA1504237E8239ECFA2AFCF06950A686C040E1E443E1DDCE53596BC
01925B172D122BDBDA4C041038A67638A972B2E500FAFBAD7C0E6E50699494F0
CEF3C70478518ACACBABA8777553F1F1D19B1F3CC03B5C513F17C06AED562624
A4B52E5BA6228A0A0820982F267E76517247DB623137D4FB29C915BC5AF6EFC7
AF160B92303202BD1663329978637090F19F3CD9DD3E65CA80C4E92C25276292
A594942425DBEA657B3C7E14B91566730B1516EAA9C1BE412EECCFA393090919
192202818F6260E0CFEB0E875DC145FBCFA847DBDCA2B14B7940130DBAF96339
E7D6DF7031ACDE3B0F78A10000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300000B1300000B1301009A9C180000068A4944415478DA
8D95096C93F719C69FEFF267FBF37D257670D284F480486C45EC84AE5B6B36ED
50AB4211549BC6DA74542B5B27C10E26D6019BD4B552B56A48DDC6365A98E8BA
AAAC851020C4A481662B6B3184122525E474E6D8F1155FB1FDF93BF74FA66AB5
68A47D96F5C9D7FBF3FB3CEFF3FE295DD7B1F6BBD7A0A80C0C3C6B2EA7A675BF
2D5B7D7083667FAECB55341A04BD6FD7B99F1DEA0BFE3392085C3EF6C4F5BD1B
9F5FFBECD675E73FB7FEAECA575F38DAB2474EF7499CD18A8F5E5D5D5D4B776A
1170D78EABA039B1FDA5AF1D1A2E4AD4C9FEE10D87BFF5D9377ACE0FBBCE8CDC
74893F7C687253FF88FD62221EC0B66FCCDE7B7DB072A3905AEBEAE898F5BD79
6174CFE0B8E3399B595B1EB0656FEFE30EB5F4EBFB9A184FFB1D67D5D838D448
F6A7862F773C8F783280A1F856AC0F3E85B8FC7D246665DCFBC913E8CF1EC13D
D62348CC1C183DD873F7038D4EE5E6B2805F3DDB1BB65A5684B28A1F6D738F60
D5A3BF4034B50EAED16DF06F7E19A3672350F37F05FDC06108978EC0D16244AA
791B6AD7CFE3D2C0E9E4E05BEF6DB1793C0320B53E16B0FF99BE30EFF6871C2B
9D58639E40D3E737203E9602A35421B5B660F28361B8ED41C0668356034A14A0
EA322E46396406FA549CDBDBA999DD47299AF978C00102D0686BC8BFE56EAC59
C9213B5B84C2D3A8C18C5C2186394A8485F292E21588E0519575C8E4919875C2
5D9630FB6AE79FA4526E27CD0BF2321DF4872D822594FEF46D68F5EB30D11A24
99251FF328AB3252620E16C68DB222A34A5E6B3A0B8A63F1EF69162D1E1B32C7
0F0C252F776F32B802E31FCA5407F8C9810BE1D50163A8F4997664750BDA1C35
64AB0A6A9A4E8A4A48D78AB0311E283A859AAA93F7C92F590A13E3C0AA3637D8
C11EE9E6B1A7BF6D7034BC068ABE15F0A37D6F87D734D321F37D4DE84FF87087
47434DA6505534CCCB6524C579B8B846F2CF39484B00F2A4554C4D6A58BDC28B
A05EC0C8C1477F27578B3F60F8FFCE6B1D60F7BE8BE155015368CD560187875D
B0F006D0940659A351926B98ABE5E160BD503516B2CE2C7521D3125233325679
1AB1B29946F4A5FDD75291D39B894C938B32D50176EDBB106E6B3086B63F19C4
5F863D78372D4230499049BA2BAA8604F1C0C9FA486185245E83A6A900AD2037
A5A1DD6E45EB6A278A97CE4913AF2CCAE45B92E916899A7DC6D083DFD3D03361
C7E9F100CC1632270A4D3C1051948BF0300DD088C1925C2500051CCB2033A9E2
7687005F13F1817C67EC50E78BAA587E8A3698B45B3BF059428F3CE9C4504EC2
1F225E54699ECC1085925440AE96848BF690E1D7968AEBE4BE38F2D96905B7DB
2DB0DB5858570430FBFACFAF64AEF66E3638FDD1AE9327FF07F8F1FE81709387
0B6DECE42012ED8F458218CA68B0333491A486B4988495B682D128D0C4178D00
54E241764AC29D0E3BAC0609D6F60E2C8C9EAD4CBDF2F43709E044D7A953F526
B7FA84D0FD8F19E13001DD1FF8717C4805873C315A44A1360F27C90145CCA508
04644E14AA8AF47405ABED6E584D1A18AB1B46178BB13F3EF1825AABECEAEE09
D77710F41A42EBB7D3E08C65C432ED38F69E1DE5421C55AD840529072FDB085D
5B0C600D2AF162D1E4F971D28145C0E2269548A2BD5F588F44FFC148EA1F7F7F
B8E7E2BFA2751EB4F84CA16D3B9AA1B11246F2291C8D7890892E10890AA4832C
BCB41794028862894C970296E3919BA5F189DB9AE16D6D840A16429B11F1F06B
62F4F8338FF55E7AFFD55B3CB8E73B0C0483152ED6829787059C1988822FA551
D02BB0197CA058013ACBC36836C3E773211D13E1A5E66061B3A8E4121093512C
4C0E16E5726E4FF7999EDFD775B0B2C11AFA7AA7134935039EAEE24A62055E7F
C7055ECB127D5534399DE0AD05B86C34AC64A705FD22BA8F8E60F037470A0177
FEB2244A3728968BB1822B4AD2FCEEC9136F4ED5991CF4F2A187770420533AB2
B5143197C7748904C830890217C13AC7A7B05061A0681C54A519E952237AFFFC
0ED2DD7BAF7903ECE31A65BAB2EC81B39B74D04A72B069270D892CE4240958A6
22C3C2B991CCBB119999875F6C4329C6233E9D47253F4856750654F92A045C3D
A56ADC7692DEDCB2805FFE76ACA7C15CFD4AA583D7293648190B66CCC580B944
0CB9D40DCCA732A8CCBFAF1BB48914AD96328C929A3130D2286B722674D61521
35DE06746559C0D69D7F5B67335876C78B0B5FCA154A4EAA3A52E194993CAB16
328C9A9B31D0DA04C509719DE6C7C8A9350D9ACF92394D91A2F527FD72808DF7
7F916C47AB51406A0BADCB2EB0C23C2912A328360E864B9362A4FD8F1CB8FFC7
F521E03F3ECC98FE183A05640000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300000B1300000B1301009A9C180000055F4944415478DA
BD957B6C53551CC7BF5DBBAEEB7AD7766E633CC6CCC44D1483065920121034C1
0923486460209A81CE8088192022B881E3FD8C2138184C83C2820F9229718697
880B63EC01AE34EBD66DDDA3DDBAB6A363BBB7EFFBF2F40E3457FF33C19B7BEE
F99DDF39E7F7B9E7DCDFFD1E85288A789497E27F03149FEA774E48D5EAE88000
96E3C17102384124352FB5594E904AE4A1CDF288F00278FEEF3E81C489572BE1
A33DBE5FCBE68F9301CA7F1A1633D37838DD43408C924C04381280E345125478
10E4A14D82B22258D217F547C7F0646C980D43119706F7E0302E1E99AE90010E
9E1BA25312BCD42BD329245214204A37460D317AFF5540DE551446FB45B24A81
38E335B1F0B89CD8F58D039DDE04E6C6F1198932C09E331E7AACDE47152C9A48
5AAAFFB6E12283829246585C2AA6FED46C3960E769379D3D3E44654DD462C4A7
449C5A018E15106263108AB058302B051DBD01345986A57D9F393509C1B0801B
CD4330EA545028D570381C6868BB07975FC3D494CD9103B67F39404F7B92A782
FE306ACD2CD2C76BA18012D6AE4124AAFDD8B1762A2ACEB7C3EAD6C1DEEFC186
E563C0C188CF2ADA90FC981643741C06FBEF624A961EC36C3C73EDD85C39606B
791F9D911CA256E68E45B7534475AD17C3BE30C6253228CC9F8206531FAAAEBB
90609C80DBE66E142E4AC3E257B251B4F7321A7B523032DC828F96EAD1D89184
3A2BCD349D7E4D0ED85CE6A0C71A03D487F919248934387CA607B75B07F04EDE
18CC9B99895D5FD4C21D4A061DE0606EB563F79A2C644FD4E093E3BDA8697661
C10B4E946F5B81D57B9AF047978F3155BE2E07141DEDA1C72705A90FDEC820D9
A1C691CA6E986D43C87F4987249D0267AF0610E035B84F07D1EF1A46FE8B3E88
0A0AD577C7A1ABED3CAA8F2DC1E48C4958B5F30A2C7D41C67C2E5F0E78FF888D
9E9014A68A963D4E00B1D87FDA8A8EFE20D4212BB48674B8030604FC7EF8831C
02211F12146E68F4CFE096A90D79395E9C3958049BCD896D279A70B787662C3F
AC94030A0FB4134084DABC2253026C2F33C1E6621160BC506953E07659916A34
626044497EB200546A3D7C01053C8E5F50757405E6CE9886D6363B7654DC41B3
ED3E63AD2A90030AF6B4912D62A96D6F3F21FD079B0FD7C3EC88907455A3ADB3
1B0B6728C9968CC1859B2E686239C42A55B07674E0CD5C032A0F1581F603FD0E
3B4A4E926FD039C8745E784F0E58596A218008B57D5516494F15D6EFAD21393D
827B230CB4EA11541DCAC3A1B35D2493DA41C5B38844A29A6341F58942CC99FE
1CBCC32206DD0E02A8C7ED7637D35DBD4E0E585662265BC451A5EF6613400CD6
EEAEC175D37DF476B4A3787D0E4AD7CDC7DCD5E7516F7143AFE5E1EAB261D992
747C7B7813F9E861A8E3D4F00C440175686CED63EC9736CA014BB636931508D4
FEB593492B06F3DEFA0AF53FDF8232530FFB6FA548321A903A6B17184B0B9184
209022A2F6C77DC87976321C033EE8B45A02E843F1C95A34B4F4327D57B7C801
8B3EBE43003CB5BBF029E874142A2AAF90F43361DACC1C2C5D381B9E21165F7F
7F09B4B71F915010539ECF467E5E2EBC4341F08200AD361E1E275941792DEA5A
6C8CEB5AB11C90BBB1894E4F16A9036B9E86C19020D3B011BF249BD0EB62647E
8F97A8AC740A28A04D88819B48C8A6CF2FE3A6A99DF1D494CA01AF6E68A2D30C
21EAD3E5A9D01B0CF00758499A05419464392AC99244FF43BAA5E9E4A1898FC7
E0801DFBCE9A5067E9FD3760F1963BA2414F7CC15E325EF1205054F785D19A14
41B2F95128A911B525082F9D1B221B82CA38090D8DBFC37EA5447EE0BCBCE6A2
33569BACF305C9243E4282704496395247C0B3C41658C9CFF36122E30FFC529B
F8394EB2A3104D5C2CBC7D669FCFF29DFCC87C54D72307FC09218048FE164C65
CF0000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300000B1300000B1301009A9C18000004AD4944415478DA
A5966B681C5514C7FF77F631BB9BC4260D28D49ADAD4A231C48412C588D13E02
954243A11509A94D545AA9D254028A504A5AAD0511022DD1A660531FAB2854AC
84A0B49FA20DF643C5526BABF4839144D398D824BBD9CDEE3C76FCDF993B9B31
A07E70E0EC9D7BE6EEF9DDF3BA33628DA6D5EE8F445EC801C2011C81C5ABE08B
E3B8A3ADC4D7BBF37F78A653CE58D63BE28970F8B92F4B4ADE0517FEEBE53FE7
6870B02872343837E558287873B984524A792A9F7F5E3C160A3D3D9C487C2077
0921A0A95DC985A6128B7A6361010B9605271C86A5EB30A5618A1D80F8E2709E
E07F5E328C6725A09D80A4A15C8572D50A8849C3160D871A1B91BD71030BD3D3
2884421E443E0F002CE5659C806EC3E814CD047C4D405A2D0AC6DE563BCC6432
A8D8B70F891D3BF0DBDEBD485DBB06271E2F1AF7C365057222012F4BC0A31210
8F27A7D44227E085AD74D96C162B8F1D437E6A0AA3478E201C8BC1A4017FE796
DABDBFDE07BC2A018F10703E164B4E07004EA0226C0558D1D5855853137EEEE8
806DDBB02391A2712B60DCCD014B31CEF180043C4CC020017F2E013801408E80
D2BA3AD48E8CE087AD5BF1FBF0B0E7C5124FBD82F0FE1BE76F8F61758A8708F8
8C805BC11CF03E08B07239B7529AAE5EC58FDDDD183F770E1102FC1C150B42C8
D1710912F09A4940A3A6B57F4CC08C023801E3BEE4F37958D4B7527E620E2E1C
3C88E5B254832172C5037A650ABC2101EB0818D0F5E4AC0F0884C7BF9FA607F5
ACA2CAE666E81515F866F76EDC1C1D45990C93EB8567B8A03C82F092FCA66176
8A7A02FA15C00A1A969EC84A310C88B2323C7EF62C86366C40D5B66D5877F830
3E216C2A95728F04A1E22FC7B81E71931CE37DAFCC411D01C7A3D122000188BC
26189E96A347619826BEE8E9410975AD0303B86FD72E5C387408B3EC89F9740A
89F272A42727F1CBC56F11568D76DCB23B452D016F113017A8221F90A1F17865
25B670F7DFF7F6C22C29418C0D969F99817EF72A546FDA84DB1FA8C7D8A54B98
BC7C99C9CAE1BBD3A7919EB889DBF430DE3609A821E07509E061E52688E4028F
862C6B3DC5F993274E40634247D8688944027F5CBF8ED4EC2CE6D546AAD65463
F5C68D10D12852E3E39820686A6C0CCB22219C94807B85683F1089B847854DE3
B289E6292B6A6AB076FB76AC5ABF1EA75A5A5CEFA29408D7C803AF20EB9D9BCA
583632524F09C931AC410B696E6E4E49C03D04BCE2032869EEBEA1AD0D15D5D5
58BB7933CEB324AFB0B196B3736D37F18B7DE2DEBBE114EEBD5FE232DB31CAFB
66A1535413B03F1C4EA6A94F3191550D0D68EDEB436E6E0E570607F1557F3FEE
E0C9E9F684582C5DA839960284574D3A177D6411B09A803DA15052C6344F97A3
2CC9FBB76CC1024BF0E2D010963124D0B4E28E7DE3FEABCF7D0F89C5B25653E8
FCF95402AA08E8D0B4644625D862886EA945E5AE71B97BC73322F5FE7B43780A
4738CA0BA55321725F9932442B85D8D9A6691F6655BB070F3BA886F3FFE41D33
CEDF0C155FB44A279F6B6E0E043E370BCF88BB84D8B353D34E66549B2F05B831
F077AF4223A0009AF7A500A5139C681C65A59552F79E61BF28786E3F78A7105D
AC9028436415DD0D7E0488A5B7C16F0F8FA0292784C70D8718ED5F0B4E9F70FE
EB6BE27F5E7F012FA4B8C30BB6E22D0000000049454E44AE426082}
Name = 'PngImage3'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300000B1300000B1301009A9C180000055F4944415478DA
BD95796C14551CC7BF7B9FB32D6D056CA1200D626CC040292984006294100C68
919623224DB9FEA082A0890205A1D1901011AD20A7D8141AA01A0482042B256D
2C4739BA3DB62D5B4AE9B5677797CEECB69D9DD919DFECA2C934EA7FF8667E79
EFCD7BF3FBBCDF3BBE4F218A229E6752FC6F8023D7F73B5212C799838334B848
9818079EE7C0F16CB4CE722CC27C98D810F9FE5739D616EB43FA0B3C28930574
677FF06C5155B20C70A5B15C4C368E47B7AB1D2AB58A748E20427EE0C98F9C10
26391FCD258761F22D22C40621D5798138177980BC01431FDAEEB6E0B72F1B15
32C0D9DA1F68236FA6A6A56522CE9C80BF678E14A487742545015251AA0BA218
2B473B8AD06A7518F00F60D7A58DB07558999AAF3A2D324069CD113A4E35825A
9C95FBAFF349628A3A5793E79F92D3EDC2CEF2B568696B606E7ED325079CAA2E
A6C799D2A8B81792E0625D50F052A312FD411A13135F4646DA74B011163A950E
B71EDE429BFB214C1A23A054C0ED7562526A3A668CCFC4E6929568B6D733B78B
BBE58063370ED0E909AF51BDBC1BB77DB79068A6E0A33D640105040383C89BB6
1173D2E7A2AAB11AA5D6A330524A69A2E0E9F3E1FCAFD77070433136CFDF84BC
430B612380DAC30E39E070C53E7AB431855A30351B559DD5B0D38DD0EBD5E80B
7AC1B041049D4398129F81C7A20D71711A40A584C3E3C4D5DF6FE2FDF9F9F83C
7B27BA7ABA51787E2D6CADF5CCBD632E39E0E0D53D74926134953B330F1A9D16
65F7CAD0CB3E815AA380B3DF8530D929F6E67624C72720ED9531E871F6A0E246
1D56CD5B83DD4B3F051D66E0757AB0BB7C036C2DF54CDD49AF1CB0FFF20E7AA4
29855A9C918B11718920D1E3CCFD5204E045880FA2CDD30E8D46077FC753A814
1C1C7D0CDEC95C862D0B3780190C81258B467B7DD851968FA6662BD358129003
BEB8B08D1E651E4BBD97F501282A1E2A44B7318A2EED85681E82A051C2EE7E04
9D5A07DBED164C4EC9C4F182AFE121EB34C0856030EB1172B1D879661D1A6C75
4CF3195A0ED8555E40275363A89C99F92482A4A8FB2A7B354ED41C86C7E7C11B
99F3E18B04D0E6780435F925E864106282189B9A8001B10F2A8EC29E0587B0EF
A72DA8ADAB615ACF85E480CFCAD6D12F5AC6526BE67C088B251ED79A2A70BAE1
382C94094E871F3EB71FAF67CD868F0FA0D3D10EE9D83635B6221CE2A011B4D8
B2643B72662EC3E6234B51577F9769FB999503B695AE268071D4C78B8A50E7AB
C7E9A6A3E4449B101AE4111458B85D5E04BAFDC8CA980A77BF035DDD8F60D06A
F047CD1DBC9DBE0225DB4BD1E9EC42C177D9686AB2328F2FF27240C1A9E574E6
4BB328B36E0CB69EFB08A3A838805321384016301C8652AB82E3890383A121AC
CACB81819C3187AB83EC56116E773FD6CCDD8A7727E760FD81B7F0C07A9FE9BA
22CA011B8F67D3535233A80923A7A1A2B6127A4E4B7692484E7484CC06395244
FC9464A10D2A135A453B1AFA1BE1EF74424DFA302C0D5F3D8FA2B57BE1D4D5E1
97CB1798DE6BC300F9DF2FA247C7A752854B0E406F34FCA7C6DB3D76FC78B104
1C1D8EED36E2830E3DC5F4493350D97116D72B2B1967C530C0EAE237E9D49113
A94F16ED83DE6CC4201B8A2AA64014342246A2B948462B49B6516B449221E999
00C6D4560325BC413F56EC98858686878CE7C630C0CA6FE7D113925EA536CD2E
84DAA4C5103B100548ED82F40851918ED585985349BE856792AED5EBC107386C
3B918B3B0FEA195FF530C0FA938B4575820E5C6FF8994369C4C422D2C543A220
6B204424236D3C4FA212637541AA47A26005AF44C0D403A7B51F4FAE70F20B67
79E15C878FF79943445348DC31475123CE8803C978A2AC521E05444D20371D01
11698F4846C2B110958DF46A835DD641F995F9BCD27307FC09B7C155FE6F8B65
BB0000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300000B1300000B1301009A9C180000055F4944415478DA
BD95796C147514C7BF7BCF6E3B5B5BBA3496944234800523898931261A402548
820A114C0C8A259140C42B2882880D2A211CC12247800222A9140B2214696D4B
0B964328B5D8130A7669E9B52DDD767766676777E7F2CD148FF9C33FF1974C7E
E7BCCFEF1DBFF72C9AA6E17E36CBFF06E82CACE875A63893639C005956A0482A
F53294840C499221272424E2D2DF7389C67222015952A8A77D4982A66AB0799C
18E8E422EF9DDD9A6902F4969CD3B4343B244E360E2A245C3340325412A0C475
180148A0AAA8B446BD0E1213506271E36C3C26C197CEA0A9D48FDCC61D1613A0
FDBBD39C352D89CD7AFA29589C3680D68D3DE303545585D5668566B542124412
48108B0686F518FB5014F4F50671BBB004FE53CD7CEEB55D5E13E0D6C112CE31
9A65C7BD309D56FFDBA6BCBF0B524F2F1251198EA88A3E51C498594F2035ED01
0C048268C82F44C7E916FEADA6BD66C0F57D3F722E1FCB66CF9A069BCB0E8DCC
A05F4D553458ED2337BF5BD70AB5BB0B368B1DE1FE106A1B9A911452E1CE7E10
CFAC5A083126A376F337E8286BE597361798014DBB8E720C69307ECEB3B0BB1C
245821BBD09EC5028DBEC1FAEB90FD1D0477211E8AC1DF7A1BED620853D3C6A0
E7620B3C33A762CA1BB3D1441ADC2A69E0DF6E3D60065CDB56C4797C5EF6A179
33616708404E86AE84DD8644248A60F5AF0039591816210E46900847A18A0A04
32914CE3C6E100666C588650C9793416D7F2EFB71D3403AE6E39C425A57BD909
0B66C34EA1A6478CDEAC0E3B12BC808E2315802841E4638885A2E4E89811AA16
870D5248C0A5AE76CCDDBE12FD3F5413E00AFFE11F8566C0A5F50738963498B4
700E1C1E17855EC2881C878741B87BD000583415DC9D21822BF416E802E41BD6
CDA0787F31C62F7A0EB91B57A262553EDA4A1BF855FE2233A0266F0FE72540CE
9B73E14C66204763A40983E85004774A2FC2C5D05BB9DA0E7950848D4C68D343
962E71B2F83462937C5857B69B4CA8A26CCD4EB45736F29F761E3503AA57EFE4
52D25976CA92F970B18CBE05311481BFA4062E8B8CE1CE20A43E1E0ED502FF0D
3FBA87EEA23F1C826B72163E2ADA08AFD78BCE1BB77161D321B45534F09F771F
3703CA57E473A9A3BCECA3CB16C09D9A8C28D9D57FAA060C24C48744A83D1CA2
82809FCF5D82EFF1479091938DE4B13E3C3F7F16AC147012ED058261547FB91F
372B1BF8F57D27CD809FDED9CCA5A5B1EC936B9790F312683B7E16C93605623F
8F815B3DA8BA588B5E218CD40959C83BFA15BC49ACF15F6C70981E5D1CEE2406
FD04285F5780B6CA7A7ED340A9197062E9066E74461AFBD8BBAFA1E3973AB863
5188C1089CC371ECD87718E316CFC44BAFCFC5E8941424310C044A8A7AD3C8F1
7A3833147981C1304A3FDB83B633F5FCD660B919702CF70B6E4C76069BF9F274
842E3760F2C3631168E9C2B77BBF47C0E7C4F67385C6399904C784A89110F58C
A2EAFFD3D84D01110886708A9C7CA3EA77FEEBE14A33E0C8C23C2E6B6C069BB3
7C3E8EADDC8A409B1F4248442433056B8B362123DD07612864E4BE7F12A16AF4
FAD0EDD64D14C289D53B71BDAA9EDFC5559B0185AF7EC265668C62676C5B812B
551770E64419264ECEC18B8BE7C1E972D3CD23466EB21899F5AF2C7B0F422672
920F06C80745CBB7A0B9FA2A5F10A931030EBDB29A4B27CF4DF97811322766C1
4E6B123D289E6EADDBDB62C5485A3614B8A70146CCA48F750DFAC21CCAD7ECC1
CDEA3ABE40386F061C5E94A74DF0792178DC24988A0DF4A2432F562F2ED4CB94
FF65852A17CDF5A223ABEA48E5D3E78A6264DD38A9921A5751F75B0B760F9E31
179CFC691FF4A6085232E49152A90B5074212A09531443B8F4AFB1ACD25C518C
CF38278F5CCAEE76A1371A899C8C5E3697CCFB5EF4EF57FB13E9B671FE912CB5
CA0000000049454E44AE426082}
Name = 'PngImage5'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300000B1300000B1301009A9C180000066D4944415478DA
7DD5095014571A07F07FCF0D33305E081105540C89559058A9CDC654768D81DA
188D51B0E2B16E42248A2144CA14F1203122B8529460053113F188C4230A0904
198C881841C4012238080C37E19801A699D11998EEB9677A5BDC32BA35ECAB7A
F5BD7ADDEFFDEA7DDDFD35C1300C9E347D7508AC6351E01352F0F946305C6B83
62A0ED405EC3FD867A150C0F9BF174F3F595422ADD0AB55A06B158008924043A
5D3B5C2EC7937B88678091A264A86F64433F0C703880B7089DBAA09EA47C7253
4B5343134976FF0FE0CB02F12CF02DBBB9178B04B340DBFF01862E6C80BAE6C2
686919CF6E66101CC487861B8C18F9F4833D3D8DFB8DA3DA670091500C37B102
E1AF48A366CE99E1EE6CBA7753A76982D9669C0250FCFB3938C8734D174BA2FA
5AF4080B1180F699834DB7FD33C77443298BFC08C2E420783A9274D0140DFFC0
45F86ACFE1A5410B5E2B3D579053DBD2D6B1D1381A61D7690F7A06DCF2787044
D62F6A4A4AB3CA2E9910365702D72C7F7CA294EC993D437498AC9DAF3C5B4CF7
247CD1BCDEB24888B4D4DC35FBD7AFB8FCFDA95E14C92BCCAA01F96AE358C8CD
09F28467A0F7D45A367F081AF48AEC53B487F2282D0D93DB8693BF1CD991B0E9
F5C6EF4EEFAE3B7EE4B0213DFD6AA4E9BD08E5D6B793D6E5C4BC597424AF1357
AEDD86B2F34492486C96693B3ADD1E81EF8E97C264E72034ECD55B6E9ED7DFBB
FA4D784052A82CD9F7C3F1FDCB7CFFB666734C91EC10D24F376D7138CC3F64A4
6E3DB8F6FD6DFB72CE0F232B6DE31DBB8BD9CE732F506907CF793E4141692B78
3C06B481DE23E04A3315B4370BB84056CB5485D9D7036671D433AF94CEC6EA43
D8F24E846FC1D533FF3040B846D478EC0C3E2CABCF2499A0146AB80B367B8F67
20BFF82EB83C0E1E3CA043E74BA7755735D244B58AC1E698716A774CBCD05DA7
E1CBCA17A26A5A76F5678BFB46DEEACCF927AE69A0A4E7611D273C6DA8BFF580
6B5C8DA7F77C06905D5280C3E560C24441EC12544AF97E51B21F29247C3D0BB1
CBFE0AEA271D0EDC7A17A1196588A5AEC2EB93554023F031B1D85E2C9EBBCD97
6C3BA7368D4C0DB4F48F3C9A80CF34BE57710DDD22099817AA6A2531DED782B3
3B6361AED521F5CE87B0C59D4562673AC2725231AC95222E20AAAB616834C636
D2DD6E75EBA70668A7155C3010F1BC169F691F57DD5067A1EA7E217C06F950C5
E9E1ECD32159F129AC2B64F8E6EE7248B3AB51F7EA4A7CF39765F7DA2B6AD6BC
B0F04D0D9F27C6A58B099E8101B319041BF91C91D428E2684A1FC64BD24E9E82
AD0268DBCEC3429713EB6F7C0E49F84E5CAC088679428AFA2F7FC457658A3241
C7C04741DE230FED6E030A2B9B3D036AAB6532F2E1869923BED73BA15D72BBFF
2CCA6FFE8EEC856ABCE83588E4BB87F052D852ECA4B2C08882F1FB1B71D8109D
98E564ECBB75642B188AAD9194C5333066314F466F1ED04589B28706D5C93AD3
AFA8EC1B44EC3C0A4BFDF528B4A66195FF00820B130147388E85252277FBDE24
67DCCA63031BDE050C3498C8B73C03DDE6FF9E804BC060E1ED1A258D879BFB72
71AAE1265202FFC03AEF516410D771708E1CE2CC6F61493A8F6DFAC0B1CABDBB
D64B5F11DCEA213B009E3798BA61CFC0030BFD18602BB59DE1BF56DEE1A81B25
F351D45B8195D60EBCE33B823C428E7C410620AF873C518913653FDF57965745
EBA925FD0EA3895D4C8031E4790694BA89C9C8619FB4C85BE053526B1F36E84B
7C5A6D9711ACE9C07BB32CE8957C8D1D43C968BC138ECB9F5F4145EE07178463
5EF1EAE6A316A37D06FBFCCCD033D33D030AEDF8647C34E327E5E19A82B83FA4
AB8918719D86A3BF1BD17C17E687ACC5D2DF32501C700C652FAF435BCAAA54F3
F2A87457E4DB6CFE27265777C5C778060C16EAC958C2D6A40E8BCF51A5BA27E9
57453234A406EF076F46C2C35F20922BD058C0E0D2B5ABD62BC9FBB608A2C30B
DA82D863DB9C8FB604937EDE3340C1FDE705B60BC1D9D14D2337F3622CFB0A4F
60F3CA12BCD194079DD6095ED267C8DFF5E540E14FF5AB05C2E7DBF43D0D6C6E
C58F33E0AAF50CF492634FC61CF69F4C539418227197DF7333026D0E17841C01
C6B88FBE13E0D6E52A64EEDD7D7E6EC08B09F754CFD316A700E0BA1E03FA14CF
C0F2E88FFEBC401030536608BD79911B37FC4BF6FA92883081C08541F645A8AA
A9757C7FF46451C0A297D2A713A6CEDAAA623CDDA6AC45CB967FFCCC8D7C3E8F
ADAC560C917FF8CD9C3D2D8A2FE42EA0C62927DB55410B02EF300297A1F17A39
FBAFB54F09FC07B94A59FE43F174410000000049454E44AE426082}
Name = 'PngImage6'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300000B1300000B1301009A9C18000005594944415478DA
BD55696C547510FFEDDDEDF6ED966DB7DDDE85DA8ADA28AD0AC8A5450E396CE2
078B2087D2180C041340A5694894043ED410131235F683D1C41844130822184B
88422D949E4B5BDAD2DA36ECD2767BD0DDBEB7D7BB9D570A641BBEE24B2633FF
E3CD6F66FE73E85455C593FC74FF1B00FBEBF1117D767292CC4D42E125C89240
7C966202649E87C4C766E518E4284F673CC90FEEF150650926931963E184D0DA
DFDA33E300C2D7BF56CD6E19F21D0EAA1E502509AA20411145E2A454B8CF1F82
D25AE3AAC6B53BA2044190E1D64D617054C2F33FF7E8E200827547598BD9C058
0BF602E94EC0489BCAE37C7ECC9EE1FED5C9012FB86FF781EDF37025E77CF638
80C0F9236C823D81B1AE3A0231320DDEDB033DB90B4502241190359266B9F868
4F112107279054F21A42692F60B86A13D8FE0E6EF1859178807B670FB356BB95
492CFB1CA1BE26E8743A58F28BA1D39379AA426B75C6789D2203621410C24411
0212307DF914CC8C03D2A66AF83E5E87A9BE0E6EC59FFE7880F15307599B3391
B1AD3E86E8C82D981CA9304CDD8512A13721D5B244EF23CA33B1D71E597B5429
1282DE9A045B12A097C288BDBC03BEAACD18EFEDE0CA2E8FC503F87FD8C7DA52
921866430D6223DD141E0B42BFD7421CF7817203B1488C88472C1C4594643E2A
201A6491909E8D25DBCA91C0D8102BD986A14F3761B4C7C3ADBF32190F305C5B
C932A90EC65EFE2522838D3026BB614AC982CE688A7B4F71CA4FE9A88589D292
C264A20846BBEAC94B7AE6E595E83FB419BE5B6D5CF9B5403C80F7E40ED6EE72
30C9155F21D27B15E68C021809801BE882B7F31604B2B868C552D8720A29A7C7
486B10A010815295EBBD01C5688461D96EF41ED888A1CE36EEED66361E60A8A6
8275A4CF639CDB6B11E9F91B8985A59868B90261BC1FBADC52542F2EC3C23413
F6FC71090E25887BDD9D10C3018C8D0690535C04933D19C65776A06BFF06F4DF
6CE5B67BC2F100FF1E2D6793DD294C6AE5F710FAEB113238113C5B8305EFBC07
D65E8ADA8D2BB131370863E97A388B9741CF4E2216F463DC3F8DEC85F329A44E
5896EF44FBDE37D0EB69E22ABB847880DBD5EBD879192E26EDC39FA00CD6E34E
C088D8B91378E6D542CAC67988B6FE03C753760C4C244097510C974D44647C98
3C98467A613E0C4E176CCB77A179CF7A74B6DDE0F6F549F100DD075F659D59E9
8CFBA3D310BAEB10B3CFC7C07747F06C160B8BEB39A06F1402EBC390351B8E92
32248427100B8C91072C5C05D9D0A764C0B172271A3F588BF6E61BDC8121351E
A06BEF523625DBCD647C720691A633482C7D1D5E8F07816F2A916E3542E28031
4581EBDD2A64BEB80CA27790FA4F68A6A243776F836752E15AFD3E1A76AF4373
531357E59B03E0D95DCABA72DD4C56F579441A4FC35C5C06A3330321DF20BC57
2F5371459053BA08C94F9337C17120468831AA66838C406B03A64D76B8D756E2
EAAE35B8DED8C27DE69F03D0BEBD98003299EC6375085D3C0935311516CA2483
C50A8396ECD41E84493F782A3C39CA512547A90E22331D71B8A319A6052528DA
7218755B57A1E15A2B776C720E404B45219B969FC3E4D65C027C3711F5FC057D
A21D0A8545BB23533F924956149289249265FA951842D301E42D5981C4BC9770
71CB1A5C6968E3BE08CE01687E2B9F75E6E531CCFE1F61CECC818114AA024F5D
483B57B58B33B24EF7A86B3F383399CDE0551EC3DE003A0F6DC5B5FA26EE0437
07E06645915A906586DF301F220D0F95BAA666AD222B9088342E4ACAC3B54CE6
CBB3FB333219C4AB26144687F04BCF148EFBE5F88153F7E6A2910C1B9F244543
338A841985320491649A6E02EDF1D44D35D2F6786D82492AC9D4B5A5FBA47572
0B75D696902D74613A143F329FF8D07F52DF7FF9AF3EFE39823F0A0000000049
454E44AE426082}
Name = 'PngImage7'
Background = clWindow
end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 411
Top = 8
Bitmap = {}
end
object SmallImagesBrowser: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C18000003944944415478DA
55536D4C5B65147EDE96F6B62B1FED5ADADE552B2A51424CC0042B382521B1C4
CD056C878445F163092A230D4882B25937B71840C3CC34FAD36032083F186B80
05E220CBA6CB16101BDD0864AC5B9A01DEC2A0A1B4DCD2CFEBA17E444FF226F7
BDE79CE79CF739CF616EB71BBB9648244D16CBBECB3C6F7A4C1413A24C26E11F
634C8ECDCD28E27125944A392489C164CA57F5F59D5D61A74F7F920992C91216
9DAEF84E4FCF966663E3212529FE031045454509787E1D2B2BA18C4FAB55C0EF
EF1709E0AF0EE4F2049F93F394B7BB2B645E5B0F102001FCDD0493C950FE3CC3
3E7E0ACB2B31BA4BC8CBD5221008FDC1DCEE6E6A290BB1D82A5F5C5CE4D56B75
665163C01E9D0EB1A5BBF4B6149ED619E10F2CC11F0AC2C22BA0DFC321AD7E1C
BDBD6705D6D9D948D5B689831243BE413557E5B09BCAB6D6B079E51A94EFB9C0
E5E5E18BE94994589FC4ABFC33989D05AEFE22E1FD3783703A0F0BACB5F51122
66190CB66C83A5FDF743AFED7FE27E532DAE4C7AF1A5B081194D165E707C8C06
8703832DD578C9FE2BAEFBA7E11BADC6871F350BACB9D98A8282709D4E6B6D58
0A1C7CF19D864ED3F59FC7E15DB88B73BD9F622914C7579DC338F8F27ED80F5B
71E2C4BBB8796D169EF169D4D7D50AACA3C3DAD2DA3AF88DD1F8AC6C6CB49B08
B24067D6132F49145A1FC5C315016B6B7E3C576147686B1E1D1D4DA8ADE9C35B
6FBF8ECACA4A811D3F5EF3A3D359575D56D6881B37BEC6EDDB3F10E32DC40B10
8B2708500E8E53633BE2457BFB39F87C7A3C78B04EFF40A3AD10D8A953DFABD3
E9ABFD45453B8E89892166B71F417D7D3F767636914E4BC48F82BE4574751DC3
CC8C077BF75A3038B80C8D06A8AAAADA1D632FA2D1548ED93C77BFB070DEC071
6928143C258BF40C39D46A39CD3B8CE1E19B5411B8742917070E7C8BF2F2029C
3CF91998CBF50149343BF7E8D1A63B36DB05B320FC46D251ED4A8B4E9A3AE020
8A515CBC3846A0218C8F23343585EF186341A55229B1B6B636D280C2E4741EBA
555A3A620C06179195959F499648891CA744242262686894DA0F637212DB1E0F
F41410CBA8D4E53A462A54191B1B8FDCB2D9464CABABF7A8AA96928945A40840
856050C4C4C40584C3419C3F0FCFC202DE2067340370E6CCE74826156687E315
7F69E900170ECFD1B298E924A96519542A0552A9080606C6D0D31319F1F9504F
79F17F17CD6EAFA1E0B421955AFE4992EE99E5F2ED9D745A9501D8DD11F2C9B2
B353AAF9F9C4E5C5C54CF2FFEC4F505170DD160925C40000000049454E44AE42
6082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C18000003B74944415478DA
1D93EB4F5B751CC69FDF393DA7A7A72DA52D5781425137C439A731662F505FCC
88AFBC9B60C79B09899148E2444CC82026108D991A17135FC88B99B834A893C1
3A37A45C4A258AA893A9B809E34E59192DBDD0CB393D570BCF1FF0C9F37D9EE7
4B9E3C1D84089DAF60434F1CB1C5E689315DBB743B82D6A763277EBC557FF3B0
2B53B5BAB647EA4A23B67E5F790F6320A0281DFBF20F7D0CD2D83175C269D04E
B61D1B3A15CDAAAB825A52A64929939031E81AA59262730E34DF002E771D5F0C
F91AE7B70EF90B4CD201E0CFD91190BEB363DF51DCBDAF16480B38DE202121B9
515C246069490157C681D579C05D891B7F2C20F0D9E9AE545CFC88E5F903C044
700AE4FD1EFF805C606F7AE0C57A3C58C3229E507157951091B2E0293BD21A8D
982C63758B8378FECCB7C2E2501331971C00AE8CE601BD3D7E2F6DB378A8671F
42A953852CE8D8CDE590544440E1915272C8CA344095839F1D0C2F5DE86E20BC
6D85503446023F83749F99F4D654339ED4E36EC40D76380C0AD6527B884B02AC
7409048D2022E690961C789844B1F6F9A9966C26799E628CB8E69F0479FBBD49
EFD1438CA7A2B11A17370B6163E503075149848972425491CF4580BCCBE1A97A
1BC25F750E6E4DFB5E61ED25B836310DD2D631E53D7A3FE379A6B9187D734588
CB14243D9BB7ADC00C0B042905455180308DC71EA986307735B27CA1EB51A6B0
34F4C3C818487B47D07B9F9BF5BCFC0683737F17E1F7503178430229711705B0
42576588920C7D87E443768133C5F0DFA7CDAF89B1ED6FC6AF2FE44FE8FCC95B
5EC5789ADA805FC315E89F36832277202A19588915B446219D4B43D9965067E2
5070B80E5B23BD5FEFFC72B175626E5926EDEF4E79AB5C9CE7E49B3C56721CCE
8D58B0135B01740176D5818C9044329B019734E3584515AC476A918A04228B5F
76378F0667FCA4BD33E075B98C9E975A1C604C143E1C3722185C878555603139
4058158E2223B45D0AF7703950C63476FF09207E23D079756CF213F2D63B935E
B79BF73CD75298072431BE548ED15B09B8AAA2709595C3E2B0C0C15662A06F00
77BEFFE08AD9245E02E3DCE68A2AE787870643A4A36B66D85DC33CDFD4624782
2688E6A7BB99D5B1B1B30DDBDD3284D7A3585F4B627DC607666FEAB8A6915942
1BC1589DB83C7C09A4ABF7B7B3662BF3BA52637566F774643643886DDD5623A1
EDA4940A2D4308FF4BC91BF30525D6458A2F1D571555D06511C4C0C0E7F381BC
D0DA8F5C72A33611FAAB4D9593ACD190BEC931DABC91D6566030EC10B6502134
07A2E7A051D6FC07E807D5EE4F791FF03F1821B5F08A31CA070000000049454E
44AE426082}
Name = 'PngImage7'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C180000030B4944415478DA
A5938B4B53511CC7BFB7E9D439D7432B5393288BA0CC47C1B5F215164AF49282
CA8C307A2012A6458D8CA4B2122B2B6C5492599485112515A6649444796F46D3
CC7765439D82239B6D6EF7B9CE76FD03027FF0E3FCCE399C0FE71C3E3FCAE572
613241B901A5D52395FE3EAA18B3C5E11444099C20C1C94970F0021CEED129C2
C92B6927F3C0E9FEBE5E92CDF8B2343ECB03B859336A9EADB3CF09D0C8905C5E
F04078D90392659707C68B2E901253C0E16B1F8F5E3386DE5C5B11E2019C2C1F
609297815E1B17F65FD7363CFC846B3556B6E7F1BA380FA0F8C11013394FA21D
8E29D06AFD60328F6351B837962ED0E1F6B341242DD7C16A075A7F70E0C8738C
1D1DB00A3EEC5B434ADCC40DFA9984488AF656A951DB64831765C3EED440347D
1D4565FD18F66D08C4B288006C3CD68EE0697F90B0448BD60135FBEEC604E060
492F939EE047A7AD0C43DEE50E2446A9B13A5207FD2D337A06056C8F1710BD38
14A9871BF1E8543044CC45BEA195353DDFA100B2CE77315B5669E8CDC9A1D097
F5C23EFA0BBE1A1DBE98D418B78F63A6C60293450B5FD577B0559928BEDD09C3
D30EB6BF364B01EC2CFCC66C4D0CA0B7A584E0C8A536309DA3B0D97E23640660
F9EB03AB538DDED616DC2D89C69EF434E82F37A0AAE127DBFFEA8002D8AC6F61
B6274FA533D2C2B0FF4C33AA5EF561D32A203E360205153DB08D0C6261A8155D
754570C92AE84BEB70AFAE9B1D6EC85500A9F99F99CCB541F4EEF56188DD741F
C6170C5A3A0BF0A4610045791580CB828AEA6CECDD9A06DB9884B3E5F5B8F3A2
8D1D693CAE0092721866D7BA59F4812DF371E85805542A1E572F64C350D584D7
4FAA11111581D3277220F014F907A0F07A2D91AF99B57E285400F4FE0F4CC61A
2D9D9BB1D46D37DCBE49C44695975B1B95471E9103B111D0F80305179FE3CA63
961D6F3EA700D61F359AC383A4398B66F31064355159004FFA80A26482A32008
2259E3C89C02D94537118D6D370D99EA8F2B2A6FC87F5FE9903531C3237F9C90
7988120F49202939C86127449292E424350791E7103423C0971B1B300E7D2C53
9A6932F10FB10AA2F0D72B39A00000000049454E44AE426082}
Name = 'PngImage0'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C18000002E14944415478DA
3D934D48146118C7FFCFBB33B3AE1E34B7882CA322AF051DB2531F826961D1C7
21024B0F456AD041963E0E192512B1B8A7C4103C6424E8CD434148511D432F79
09C5CF50F3A3526BD7DD9D9D99FEEFECE4C033EFCCBCEFF37B9EFFF33C23F596
75ADC134EBFFBA6E52894000789E0737581DAE766059BE6BCBF0799B528583B6
DD2F4FC3E19EFB91C84DB8DA25B89402D2696CD2DC8202640D03693A6ADBA425
796417ADC3B67BE5A165C59F1414C45204783A0A2D6DDB48D3C93C7F1EEBA3A3
D8989C442E1C468667D27A9FB683D69DCB25A48D80C7E1706C9E9B8CEBA79C4C
26615656A2A4B515D34D4DC8AEAF23A30141FA5A4694725F68C003023A4C3336
CE8F5ABF16B2994A41959763777B3B261F3DC29FB939E4B4149EB1B5149E892A
41AF6D27A495803602263480A665385CD7A8FF705F1FBEBF7B87D9D7AF614522
BE049D415A3C6CE7FA526770DB34E3F70898A21382EADB3CF82B9BC5D9CF9F31
3F32820F9412E5F78C69E6B360742DA1DF21E08661C4EF10301B44D7978E5E5E
5707A3AC0C919212FC5C5CC49757AF60E806D184B79D610B03B69390EB04DC32
8CD89C9640AA4DE79465E15457173E7576A2301A456D4F0F96C6C7B13C3A82E4
F23226868721333378A324215708680885620BBABA990C7E703DD1D282D28A0A
8C0D0CC0DED8C0E2EA2AF61D3F81BDC78E22CD8E7C1B1A42F2EB188643045C08
85E2577506ECBD1E98C38D8D38585D8DC1E66664E968047D4F05F22CCB84628D
4A4382B78E9B9033049CF3BCD8143F5E8EC7B1BFAA0ABD842C8C8DA184C5CAE9
A9D4ED658F9D9C1E368E379D39CA78EF7809A9522A7E1A882DB106076A6AB0B6
B282694E5F71280447F98DC91757FE3F13C05A15F3FDA3069C54EA79AD52B757
B9FBDB71FC68C52CB3A3FCDF0AF9DE481EE083C4CFA694F00F39AF5B0E893C3B
2272778D6D56C81F7275A8C051045B00FF3F139F815291F088E3764A1970698F
C845162A99CF309886C0C10778B2C5503E44A4485034E3BA43FF009ABA6857B0
F63BE10000000049454E44AE426082}
Name = 'PngImage5'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C18000002F04944415478DA
A5935B4854511486FFE3348EE4A512D32CCA4A2B7C28D1A2A3943752828AA887
08C96E503D543E748322E946455A29689498369222A665418698A898A9E7A038
4D178D862ED6385363A3539DCE7DCFE93463F42AB8E067ED057B7FACB5F917A5
691AA612D45FC03DF68E79BA3124D1E57188129120C90204F937784997CC4394
395D3C7885F3D533C3C283BCE39AA5E664EB5E1FA0C9DAE008415874D0341310
4041516588AA085911A1100544237A96A06A0A8C9411037606FD43DDCEB60B43
737D80F2F662667974129D129F3EA9B6AFD79FC19DF622F64D1997EC03D43E2B
67E687C7D15F30029508F0787E22217225D2E33361773BD068A9C3ACB0607459
58ECCBCCC3E070270AEFE5B383151380B2D64226695E32EDA4C6D1E5780A8970
103C04EB2237C0AEDAE032D8D0CEF4C0C0CDC683238D78DC5D85D24717D921B3
E0075C6A3CCEA4C665D3692BD6A3E56D0B067F59302ABAD0F7C28AC5B3A22007
C8F8FD2D083587AB1168A470DA7C10F5ED15ACAD5AF603CED6E7312B17AEA537
AFDEEE9BB1A6F72E5EFF1A00679431681D82692C0C55476F2374A6019CA0E266
DD65543597B09FEA353FE078F51E664D5C16BD352517A39C1BE79E9C82C33582
C48424BC1BB3C1FD71140641C377751807D24E8077B971B52E9F1D6E9C001CAA
DCC66C5E91432F894DC2B59EF3F841C6F17D4C84E0E2B124760104D58DE76C27
22C962F496BC4251ED2914980BD8B1D67F1DD4EC62D2966DA01FB02DE87BD785
285394EE03098ECF4E444444207A55383E7D7E098F4BC6B18C4B10253B4AEF17
B38E26C50FC82DC962B213B6D0A94B3742E155184081F26A080C3442A1082ABA
CC18B6BD87C84B082521885C6442435B15FBF1E10460534122B3833E48E764EC
9F9491F26FE5E14AE50D56ED9F18617779B6634E684CF4DCC018F02A07A21210
A2EAA622F0EAE7BF77BC9A175E2F41B06106FA3F74A0DF6A753A9B89DFCA3BAF
649947787BE257975D0CF01AF4470A144597AC4324E8F9BF2411FABF20285830
596C1DA27F99A6127F0003D2B3F04F1EC3BF0000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C18000003184944415478DA
A5936D48535118C7FF7B714ECDD444495383E6CB2853B1AB5144F6418420A52F
05959F0A14A1A0C0BE442F148151A885819A51541662261A8A651A6989DABDE1
A496A26EF99A6B6C6ECD6DF775771D773FF6D1C339FC1F0E9CDF79CE79FE8F2A
180C623343B50158EEF8D80AAD9CEB77AF73221F80C40BE0FD1B8B85C012E504
087E0EBC9787C8F3D04585EB5D767EB2F2C3BDF21060B16B704EB32DD2A08D88
464014210B1202BC4862A27290C412820119320173EB2CD8DF362C0E592CA747
EAD3438099A75D746C4E3A95B82FFBBF14399B1D82DD05D6CD416F4C434C621C
C61F75C2DCDCCF9CFDD6541002989B3AE86DB9E954D2813C046519207B1B5FE3
36CF42FCB50CC78A03E6EFB3880BDB82BCCBA760ED1F83A9A187A99C7CAC0026
EEBFA413F232A99423059025092AAD16DE251BDC5F18085E090EEB1F787D1CC4
25277C3929484A4BC464432F53656A5100E3354FE8EDFB8CD4CE928308080234
3A1D9C3F2CB0F58DC2E7F2835BF341ABD16061CA022E3F0DC6DDE918AFED642E
9A9F2980E16B8DF48EC2DD94A1B408204F1058112B9F68AC9966C12EFC255B01
D89757C12CFF4245C75DAC0C30F85CF786B9626D570003D5F7E9D4C26C2AEB64
314496C7D2E057080B36B05627ACD3F35865D7C1C786A3F4460532738DE8B9D5
02FA711F7373B15301F456DDA10D87F3A90C02B0F68D40FDDB8EE9D12930E629
C4171A5176BE1CF1C909D06BD4104989DF3F68C358F35BA666B54701749DBB4D
1B8AF2A9B88C34E848AA53031318B0CEE078CD05ECC9DA85B0A01A3CC94C1644
68B744A0B7B615234DDD4C9DE3BD02787DE63ABDE7E801CAE9F761AE6718F36E
0F4ED45E4276FE5E702E0F24725005525732C3A222D07DF739861A3B9987AE41
05F0A2AC9ACE293D4CC51FDB0FFADD100A8B0F21393519BCC71B3A14320564A8
09461B1D89F61B8F3058DFC6B4F8861540DBE9AB73C9A98986989C0CE87461F0
905BBD6E2FB131E90B498648BC216D5899544856ABE0F8398FE9CF264B83BD5F
B172534975EB562E90CB7AFD9C40FC2F0503108972920881F48620918622CA13
90485417A5D73B797EF2957B4869A6CD8C7F6D7DD6F0588BD0FA000000004945
4E44AE426082}
Name = 'PngImage3'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C180000036C4944415478DA
5DD06D4C53671407F07FCB055B0BAEB8522C89229BA8631F0467741BD1ADCE0D
DC88CE97A004C6307E704BC0ACDB420673CE083AD41898C01C64868152ECC4A0
A0203A04D1EAE8650E2872297DB96D690B05435B5E5BDBDE4EBB64C9F57CF99F
3C39E7979C87130804102C5BD33EB8E98F102D740FF5CE0D7EF7F3F06F6683CA
6B36F463C7374590BEF7095A7F55E08985C69CCB015A7D33B8C6F91F3056D64C
5FFB2567F18C1553E24464B648F6933D7F2BE61C34728A4EE2ADC4ADB85F7F63
8D664CEF9F9A70E90CEAEB2F01DAB24DEA8A9F1E520D13DC88C450E48D6ECCD8
92E42287062DC4F2D47CCDEE3D3B13C2ADA1D7CAEBEAC881A1BB99E3234A3630
73791BD44F573C68ED7E23D9683231B7AD3AE9B8A6F84CF9E9D2B0AADEC8A4EA
9A92537C6B787E7ACE11AB7DEAC2EAD9D1B17916A02CFD1CAE955FFC608E7CE7
78F32DB35FA83BD274A9E1FDBDC7642DBA8A1A657CBFB1B5715C27D993F6697A
F93C6F5C3663D2FB5940999C823064368199E3AA2ADB45025956AD376BED8FA1
B292B7CDC48AB44B6724CD85867A07526CE20C077FF1E5A703B7D92768266C98
5FF040FD9787ECBCBF7643FAC17AA44C65A1405F85EC03BBF0E64631CEF6110B
DFBE9E92CA673CDDF3863B6CE059C00B9F8F89ABD35BFB8FDD3C11B1D7DD838A
754F9061B88A83CFF4D8763A1FB91FE669143AEBE6709773921EEE60030E1FC0
0F81788463A13EAE972E8DEF31A26513837DD41F28B2DFC2FA58273E13ECEA52
2B9A53A3053C4F7BC7EF6CA0CFC52084CB0518B4760EB76DD78C5C44EE721748
C151A46BCF832B4982B4CA5E4D375D3D248A598601FA1E1BA0A67D08253870BB
434A1B55F2AF548325381CE58527AE103B3BBFC7A3B8E3D851F3207746F96725
4F1809E7C43F6CC0E25E40048F03CD182FEB4257FB459BFD28B67A9D582F4AC6
BAC76A14AC2CF6755E39F7AEC01F4E7208A0F791E2A513667D581406B8A6890D
6D641FD9411D42B29FC0C9490A26C9D7C8F3258F994E7D991019B3DAC9305E28
07DBD8C0A42780172D8FF0BF324B100699FCC0D255E2ED28A0B570A665E3F0B9
86AEB6B3B5D225A2252FD660B73D6403DA51733089E71FA9B5D84FC4BC165B18
1F2582FDF9DBF96A391ACBAA3385A2583987F3DFBCEA5E1D1BE8D71B8219257E
15F905C5A0FA46B3B76C4EFC80A28DDEC7E4C095E86571ED51FC30F8182638D7
7DB73698FF02CA42BFF08A7E5DC60000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C18000003134944415478DA
A593DB4B14511CC7BFB33B6B53EB7AC7B6B2B00B165D5D29A61E2A0AB708A2EC
6250496564240545446457BA3C484548502F46D18BD18D7DB17D28A232C89934
B7D2B25C4B57C55D4D59DD9DBDCCED4C2767FF830E7C38E707E7F7E1777E9C1F
631806FE6731FF04B157B71F18E9B24B0D059224A9408BC5A04909A8D1A8798E
48348E5362D069CC656473114BAE6FD5E3B64A53D07C6390B54D9EC6D89C401A
0B12974154154451281A459DC03018C85204E46B13A4BEEEE082C73DD3270461
4FB5609FBB91B72D2D83121E8595730086068BA1D312FFA1D2580719ED8765F6
0AF43CBC8591FB35E28A77F2CA09C1684395E0706DE6E15C032D1C00973D1544
9369220154058614A6F9F469ED6FC02E2B457F4B2B06EE9E16D7342BA660A87E
AF9059B2854F2B2E87D225406B7B0563921DD29884486818B1B084783481A2D5
2EE46FDA05FFF3A7E8ADBF20BA5B355330505726E4ACDCC9DB8A368021496884
452CD88FECB94548D2C669E3436069354CA005CCEC12045EBFC18FBB67C5ADED
8629E8BDE216F2D6EEE1ED25DB6997FF409725781BBCF8ED7D81130DF5B04606
10FAD601C44690BBBE1CFEC6467CAEBB28EEF1A704FED3AB04A7BB9277941E46
CFA33ACC2A60D1359C8EAEDA43585E598D29F98508F904583333306FDF497C7F
F21CCD372F8955FD294167F56261FAE6237CE6A66AF83D0FC1B5DEC6CC198540
DF20BAF25DC89B5F0CA9F313143098B5FB183A9F7AF0B6F6B2787C382568AF98
23146C3BCA67ADDB0DC5C661D073075A930724BB10CE83A79069B7431DEE83D4
ED8375C93A747B5FE2E5B56BE299F194C057365528DC57C36715AFA6177B615B
B816A3BF7F824B336053A3904301582C3A826DEF91577A007D4D1FF1ECCC25F1
AA9C12B4B8ED42C1FEF3BCB3A206EA8F0FB04EC980D5914E1B1A851219834EFF
BC41085435891CD74634D75E84A7E6AA78DD48093A76140C66CD59304D5EE4A6
5759E88938884EA053681E74624CC4169685246B187BEFC5978F9F83E74688F9
953F94173FC861C65DD1D05032A169482A84A2838E04E249938462EE32C5910F
EE9785F3DD0B26CC61FA9FF517C977C5F0760CFB430000000049454E44AE4260
82}
Name = 'PngImage6'
Background = clWindow
end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 379
Top = 8
Bitmap = {}
end
end

338
Source/GUIBase/uViewDocumentos.pas Normal file
View File

@ -0,0 +1,338 @@
unit uViewDocumentos;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxControls,
cxContainer, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, StdCtrls,
FileCtrl, cxGraphics, cxCustomData, cxStyles, cxTL, cxInplaceContainer,
cxTLData, cxTextEdit, ComCtrls, ImgList, PngImageList;
type
TfrViewDocumentos = class(TfrViewBase)
EditorActionList: TActionList;
TBXDock: TTBXDock;
tbxMain: TTBXToolbar;
TBXItem2: TTBXItem;
actAnadir: TAction;
actModificar: TAction;
actEliminar: TAction;
TBXItem1: TTBXItem;
TBXItem3: TTBXItem;
actEliminarTodo: TAction;
TBXItem4: TTBXItem;
actActualizarServidor: TAction;
TBXItem5: TTBXItem;
ListView1: TListView;
LargeImagesBrowser: TPngImageList;
SmallImagesBrowser: TPngImageList;
TBXSeparatorItem1: TTBXSeparatorItem;
procedure actAnadirExecute(Sender: TObject);
procedure actModificarExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actEliminarTodoExecute(Sender: TObject);
procedure actActualizarServidorExecute(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actModificarUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actEliminarTodoUpdate(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
private
FDirectorio: Variant;
function GetDirectorio: Variant;
function DarFicherosSeleccionados: TStringList;
function AsignarImagen(ANombreFichero: String): Integer;
protected
FHayModificaciones: Boolean;
FListaFicheros: TStringList;
property Directorio: Variant read GetDirectorio;
property ListaFicheros: TStringList read FListaFicheros write FListaFicheros;
function GetModified: Boolean; override;
procedure SetModified(const Value : Boolean); override;
//Son los metodos que se sobreescribiran en la vista hija
procedure Sincronizar; virtual; abstract;
function RecuperarFicheroServidor(const NombreFichero: String; const DirectorioDestino: String): Boolean; virtual; abstract;
procedure RefrescarVisualizador; virtual;
end;
var
frViewDocumentos: TfrViewDocumentos;
implementation
{$R *.dfm}
uses
uSistemaFunc, ShellAPI, uDialogUtils;
procedure TfrViewDocumentos.actActualizarServidorExecute(Sender: TObject);
begin
inherited;
Sincronizar;
end;
procedure TfrViewDocumentos.actAnadirExecute(Sender: TObject);
var
openDialog : TOpenDialog;
ANombreFichero : String;
ANombreSeleccionado : String;
BCopiar: Boolean;
i, j : Integer;
begin
openDialog := TOpenDialog.Create(self);
try
// Set up the starting directory to be the current one
// openDialog.InitialDir := GetCurrentDir;
// Only allow existing files to be selected
// openDialog.Options := [ofFileMustExist];
// Allow multiple files to be selected - of any type
openDialog.Options := [ofAllowMultiSelect];
// Allow only .dpr and .pas files to be selected
// openDialog.Filter := 'Delphi project files|*.dpr|Delphi pascal files|*.pas';
// Select pascal files as the starting filter type
// openDialog.FilterIndex := 2;
if openDialog.Execute then
begin
for i:=0 to openDialog.Files.Count - 1 do
begin
ANombreSeleccionado := openDialog.Files.Strings[i];
if Length(ANombreSeleccionado) > 0 then
begin
BCopiar := True;
ANombreFichero := ExtractFileName(ANombreSeleccionado);
if FListaFicheros.Find(ANombreFichero, j) then
begin
ANombreFichero := 'Copia de ' + ANombreFichero;
BCopiar := (Application.MessageBox(PChar('Ya existe un archivo con ese nombre, ¿Desea añadirlo con el nombre ' + ANombreFichero + '?'), 'Atención', MB_YESNO) = IDYES);
end;
if BCopiar then
begin
CopiarFichero(ANombreSeleccionado, (Directorio + ANombreFichero));
//Lo añadimos a la lista de documentos local
FListaFicheros.Add(ANombreFichero);
end;
end;
end;
end;
finally
openDialog.Free;
//Now, We compact the process memory:
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
RefrescarVisualizador;
FHayModificaciones := True;
end;
end;
procedure TfrViewDocumentos.actEliminarExecute(Sender: TObject);
var
i, j: Integer;
FicherosSeleccionados: TStringList;
ANombreFichero: String;
begin
FicherosSeleccionados := DarFicherosSeleccionados;
try
for i := 0 to FicherosSeleccionados.Count - 1 do
begin
//Buscamos si existen fisicamente y si es así los eliminamos
if FileExists(FicherosSeleccionados.Strings[i]) then
if not DeleteFile(FicherosSeleccionados.Strings[i]) then
Application.MessageBox('No se pudo borrar el fichero', 'Error', MB_ICONEXCLAMATION);
//Lo quitamos de la propiedad donde guardamos lista de documentos
ANombreFichero := ExtractFileName(FicherosSeleccionados.Strings[i]);
if FListaFicheros.Find(ANombreFichero, j) then
FListaFicheros.Delete(j);
end;
finally
FreeAndNil(FicherosSeleccionados);
RefrescarVisualizador;
FHayModificaciones := True;
end;
end;
procedure TfrViewDocumentos.actEliminarTodoExecute(Sender: TObject);
begin
if DirectoryExists(Directorio) then
Deltree(Directorio, True);
FListaFicheros.Clear;
FDirectorio := Null;
RefrescarVisualizador;
FHayModificaciones := True;
end;
procedure TfrViewDocumentos.actEliminarTodoUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (ListView1.Items.Count > 0)
end;
procedure TfrViewDocumentos.actEliminarUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := Assigned(ListView1.ItemFocused);
end;
procedure TfrViewDocumentos.actModificarExecute(Sender: TObject);
var
i: Integer;
FicherosSeleccionados: TStringList;
begin
FicherosSeleccionados := DarFicherosSeleccionados;
try
for i := 0 to FicherosSeleccionados.Count - 1 do
if FileExists(FicherosSeleccionados.Strings[i]) then
begin
if ShellExecute(Handle, nil, pchar(FicherosSeleccionados.Strings[i]),
nil, nil, SW_SHOWNORMAL) <= 32 then
Application.MessageBox('No se pudo editar el fichero', 'Error', MB_ICONEXCLAMATION);
end
else
begin
if not RecuperarFicheroServidor(ExtractFileName(FicherosSeleccionados.Strings[i]), ExtractFilePath(FicherosSeleccionados.Strings[i])) then
Application.MessageBox('No se pudo RecuperarFicheroServidor', 'Error', MB_ICONEXCLAMATION);
if ShellExecute(Handle, nil, pchar(FicherosSeleccionados.Strings[i]),
nil, nil, SW_SHOWNORMAL) <= 32 then
Application.MessageBox('No se pudo editar el fichero', 'Error', MB_ICONEXCLAMATION);
end;
finally
FreeAndNil(FicherosSeleccionados);
FHayModificaciones := True;
end;
end;
procedure TfrViewDocumentos.actModificarUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := Assigned(ListView1.ItemFocused);
end;
function TfrViewDocumentos.AsignarImagen(ANombreFichero: String): Integer;
begin
Result := -1;
if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.txt')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.ini')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.sql') then
Result := 1
else if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.pdf') then
Result := 3
else if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.doc')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.rtf') then
Result := 2
else if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.ppt')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.pps')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.ppa') then
Result := 7
else if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.mdb')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.adp')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.mde')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.ade')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.mda') then
Result := 5
else if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.xls')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.xl')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.xlt')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.xla')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.xlc') then
Result := 4
else if (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.png')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.tif')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.pict')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.pct')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.bmp')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.gif')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.jpg')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.jpeg')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.jpe')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.png')
or (LOWERCASE(ExtractFileExt(ANombreFichero)) = '.tiff') then
Result := 6
else Result := 0;
end;
procedure TfrViewDocumentos.CustomViewCreate(Sender: TObject);
begin
inherited;
FDirectorio := Null;
FListaFicheros := Nil;
FHayModificaciones:= False;
end;
procedure TfrViewDocumentos.CustomViewDestroy(Sender: TObject);
begin
FDirectorio := Null;
FreeAndNil(FListaFicheros);
inherited;
end;
function TfrViewDocumentos.DarFicherosSeleccionados: TStringList;
var
i: Integer;
begin
Result := TStringList.Create;
for i := 0 to ListView1.Items.Count - 1 do
begin
if ListView1.Items[i].Selected then
Result.Add(Directorio + ListView1.Items[i].Caption);
end;
end;
function TfrViewDocumentos.GetDirectorio: Variant;
begin
if VarIsNull(FDirectorio) then
begin
FDirectorio := DarDirectorioTemporal;
if not CreateDir(FDirectorio) then
raise Exception.Create('ERROR: No se ha podido crear el fichero temporal (GetDirectorio)');
end;
Result := FDirectorio;
end;
function TfrViewDocumentos.GetModified: Boolean;
begin
Result := FHayModificaciones;
end;
procedure TfrViewDocumentos.ListView1DblClick(Sender: TObject);
begin
inherited;
if Assigned(ListView1.ItemFocused) then
actModificar.Execute;
end;
procedure TfrViewDocumentos.RefrescarVisualizador;
var
i: Integer;
AItem: TListItem;
begin
ListView1.Clear;
for i := 0 to FListaFicheros.Count - 1 do
begin
AItem := ListView1.Items.Add;
AItem.Caption := FListaFicheros.Strings[i];
AItem.ImageIndex := AsignarImagen(FListaFicheros.Strings[i]);
end;
end;
procedure TfrViewDocumentos.SetModified(const Value: Boolean);
begin
inherited;
FHayModificaciones := Value;
end;
end.

BIN
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_Controller.res Normal file
View File

Binary file not shown.

BIN
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dpk Normal file
View File

Binary file not shown.

540
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj Normal file
View File

@ -0,0 +1,540 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
<MainSource>GestorDocumentos_controller.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\GestorDocumentos_controller.bpl</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorDocumentos_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="GestorDocumentos_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Lib\GestorDocumentos_data.dcp" />
<DCCReference Include="..\..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\..\Lib\rtl.dcp" />
<DCCReference Include="uGestorDocumentosController.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011
Activate=1
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=0
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=1
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=1
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=0
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=1
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error."
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

16
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc Normal file
View File

@ -0,0 +1,16 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf36A.tmp */

22
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.rc Normal file
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

110
Source/Modulos/Gestion de documentos/Controller/uGestorDocumentosController.pas Normal file
View File

@ -0,0 +1,110 @@
unit uGestorDocumentosController;
interface
uses
Classes, uROTypes, uControllerBase, uDataModuleGestorDocumentos;
type
IGestorDocumentosController = interface(IControllerBase)
['{75EC4D1B-A7A2-4C81-B2DA-8688240D6EC2}']
function DarListaDocumentos(const ID: Integer): TStringList;
function DescargarFichero(const ID:Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID:Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
procedure SincronizarDocumentos(const ID: Integer; FListaDocumentos: TStringList; Directorio: String);
function EliminarDirectorio(const ID: Integer): Boolean;
end;
TGestorDocumentosController = class(TControllerBase, IGestorDocumentosController)
protected
FDataModule : IDataModuleGestorDocumentos;
//Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
//este controller
procedure AsignarDataModule; virtual;
public
constructor Create; override;
destructor Destroy; override;
function DarListaDocumentos(const ID: Integer): TStringList;
function DescargarFichero(const ID:Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID:Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
procedure SincronizarDocumentos(const ID: Integer; FListaDocumentos: TStringList; Directorio: String);
function EliminarDirectorio(const ID: Integer): Boolean;
end;
implementation
{ TGestorDocumentosController }
uses SysUtils, Dialogs;
procedure TGestorDocumentosController.AsignarDataModule;
begin
FDataModule := TDataModuleGestorDocumentos.Create(Nil);
end;
constructor TGestorDocumentosController.Create;
begin
inherited;
AsignarDataModule;
end;
function TGestorDocumentosController.DarListaDocumentos(
const ID: Integer): TStringList;
begin
Result := FDataModule.DarListaDocumentos(ID);
end;
function TGestorDocumentosController.DescargarFichero(const ID: Integer;
const NombreFichero, DestinoFichero: String): Boolean;
begin
Result := FDataModule.DescargarFichero(ID, NombreFichero, DestinoFichero);
end;
destructor TGestorDocumentosController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TGestorDocumentosController.EliminarDirectorio(const ID: Integer): Boolean;
begin
Result := FDataModule.EliminarID(ID);
end;
procedure TGestorDocumentosController.SincronizarDocumentos(const ID: Integer;
FListaDocumentos: TStringList; Directorio: String);
var
ListaDocumentosServidor: TStringList;
ANombreFichero: String;
AFichero: Binary;
i, j: Integer;
begin
//Eliminamos todos los documentos del servidor que ya no existan en el cliente.
ListaDocumentosServidor := DarListaDocumentos(ID);
for i:= 0 to ListaDocumentosServidor.Count - 1 do
if not FListaDocumentos.Find(ListaDocumentosServidor.Strings[i], j) then
if not FDataModule.EliminarFichero(ID, ListaDocumentosServidor.Strings[i]) then
showmessage('Error al borrar fichero' + ListaDocumentosServidor.Strings[i]);
//Subimos todos los ficheros que halla al servidor (de momento no se miran fechas)
for i := 0 to FListaDocumentos.Count - 1 do
begin
ANombreFichero := Directorio + FListaDocumentos.Strings[i];
if FileExists(ANombreFichero) then
begin
AFichero := Binary.Create;
AFichero.LoadFromFile(ANombreFichero);
SubirFichero(ID, ExtractFileName(ANombreFichero), AFichero);
end;
end;
end;
function TGestorDocumentosController.SubirFichero(const ID: Integer;
const NombreFichero: String; const Fichero: Binary): Boolean;
begin
Result := FDataModule.SubirFichero(ID, NombreFichero, Fichero);
end;
end.

BIN
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.dpk Normal file
View File

Binary file not shown.

540
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.dproj Normal file
View File

@ -0,0 +1,540 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{38eef566-1895-4bdd-8007-f92f5e32cce6}</ProjectGuid>
<MainSource>GestorDocumentos_data.dpk</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\GestorDocumentos_data.bpl</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_DcuOutput>.\</DCC_DcuOutput>
<DCC_ObjOutput>.\</DCC_ObjOutput>
<DCC_HppOutput>.\</DCC_HppOutput>
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorDocumentos_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="GestorDocumentos_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Lib\Base.dcp" />
<DCCReference Include="uDataModuleGestorDocumentos.pas">
<Form>DataModuleGestorDocumentos</Form>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6011
Activate=1
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=0
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=1
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=1
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=0
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=1
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error."
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

17
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc Normal file
View File

@ -0,0 +1,17 @@
/* VER185
Generated by the CodeGear Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf368.tmp */

22
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.rc Normal file
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.res Normal file
View File

Binary file not shown.

16
Source/Modulos/Gestion de documentos/Data/uDataModuleGestorDocumentos.dfm Normal file
View File

@ -0,0 +1,16 @@
inherited DataModuleGestorDocumentos: TDataModuleGestorDocumentos
OnCreate = DAClientDataModuleCreate
Height = 182
Width = 218
object Bin2DataStreamer: TDABin2DataStreamer
Left = 56
Top = 84
end
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
ServiceName = 'srvGestorDocumentos'
Left = 56
Top = 24
end
end

115
Source/Modulos/Gestion de documentos/Data/uDataModuleGestorDocumentos.pas Normal file
View File

@ -0,0 +1,115 @@
unit uDataModuleGestorDocumentos;
interface
uses
DB, uDataModuleBase, uROClient, uRORemoteService, Classes, uDADataStreamer,
uDABin2DataStreamer, uROTypes, uDADataTable;
type
IDataModuleGestorDocumentos = interface
['{03537996-181D-428C-9B1D-56B499F0048E}']
function DarListaDocumentos(const ID : Integer): TStringList;
function DescargarFichero(const ID : Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID : Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
function EliminarFichero(const ID : Integer; const NombreFichero: String): Boolean;
function EliminarID(const ID : Integer): Boolean;
end;
TDataModuleGestorDocumentos = class(TDataModuleBase, IDataModuleGestorDocumentos)
Bin2DataStreamer: TDABin2DataStreamer;
RORemoteService: TRORemoteService;
procedure DAClientDataModuleCreate(Sender: TObject);
protected
procedure AsignarClaseNegocio(APresupuesto: TDADataTable); virtual;
public
function DarListaDocumentos(const ID : Integer): TStringList;
function DescargarFichero(const ID : Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID : Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
function EliminarFichero(const ID : Integer; const NombreFichero: String): Boolean;
function EliminarID(const ID : Integer): Boolean;
end;
implementation
{$R *.DFM}
uses
SysUtils, FactuGES_Intf, uDataModuleConexion, DataAbstract4_Intf;
{ TdmGestorDocumentos }
procedure TDataModuleGestorDocumentos.AsignarClaseNegocio(APresupuesto: TDADataTable);
begin
//
end;
procedure TDataModuleGestorDocumentos.DAClientDataModuleCreate(Sender: TObject);
begin
RORemoteService.Channel := dmConexion.Channel;
RORemoteService.Message := dmConexion.Message;
end;
function TDataModuleGestorDocumentos.DarListaDocumentos(const ID: Integer): TStringList;
var
AResultado : StringArray;
i: Integer;
begin
try
AResultado := (RORemoteService as IsrvGestorDocumentos).DarListaFicheros(TRdxAlmacenes_Presupuestos, ID);
Result := TStringList.Create;
for i:= 0 to AResultado.Count - 1 do
Result.Add(AResultado.Items[i]);
finally
FreeANDNIL(AResultado)
end;
end;
function TDataModuleGestorDocumentos.DescargarFichero(const ID: Integer; const NombreFichero: String;
const DestinoFichero: String): Boolean;
var
AFichero: Binary;
begin
Result := False;
try
AFichero := (RORemoteService as IsrvGestorDocumentos).DescargarFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero);
AFichero.SaveToFile((DestinoFichero + NombreFichero));
Result := True;
finally
FreeAndNil(AFichero);
end;
end;
function TDataModuleGestorDocumentos.EliminarFichero(const ID: Integer; const NombreFichero: String): Boolean;
begin
Result := False;
try
Result := (RORemoteService as IsrvGestorDocumentos).EliminarFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero);
finally
//
end;
end;
function TDataModuleGestorDocumentos.EliminarID(const ID: Integer): Boolean;
begin
Result := False;
try
Result := (RORemoteService as IsrvGestorDocumentos).EliminarID(TRdxAlmacenes_Presupuestos, ID);
finally
//
end;
end;
function TDataModuleGestorDocumentos.SubirFichero(const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
begin
Result := False;
try
Result := (RORemoteService as IsrvGestorDocumentos).SubirFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero, Fichero);
finally
//
end;
end;
end.

6
Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.dfm Normal file
View File

@ -0,0 +1,6 @@
object srvGestorDocumentos: TsrvGestorDocumentos
OldCreateOrder = True
ExportedDataTables = <>
Height = 113
Width = 254
end

222
Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas Normal file
View File

@ -0,0 +1,222 @@
unit srvGestorDocumentos_Impl;
{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading }
{ the RODL file associated with this project . }
{ }
{ This is where you are supposed to code the implementation of your objects. }
{----------------------------------------------------------------------------}
{$I Remobjects.inc}
interface
uses
{vcl:} Classes, SysUtils,
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Required:} uRORemoteDataModule,
{Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf,
{Generated:} FactuGES_Intf;
type
{ TsrvGestorDocumentos }
TsrvGestorDocumentos = class(TDataAbstractService, IsrvGestorDocumentos)
private
function DarRutaDocumentos: string;
protected
{ IsrvGestorDocumentos methods }
function DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray;
function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean;
function EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean;
end;
implementation
{$R *.dfm}
uses
{Generated:} FactuGES_Invk, srvConfiguracion_Impl, uSistemaFunc, Dialogs, Forms;
const
CTE_VALOR = 'RUTA_DOCUMENTOS';
CTE_DOCUMENTOS = 'DOCUMENTOS';
CTE_ALMACEN_PRESUPUESTOS = '\Presupuestos\';
procedure Create_srvGestorDocumentos(out anInstance : IUnknown);
begin
anInstance := TsrvGestorDocumentos.Create(nil);
end;
{
Sample call
You can try this function placing a ListBox and a button on a form and adding this code to the OnClick event of the button:
procedure TForm1.Button1Click(Sender: TObject);
var
list: TStringList;
begin
list := FindFile('C:\Delphi\*.pas');
ListBox1.Items.Assign(list);
list.Free;
end;
}
{ srvGestorDocumentos }
function TsrvGestorDocumentos.DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray;
var
Ruta: String;
ListaFicheros: TStringList;
i: Integer;
begin
Ruta := DarRutaDocumentos;
try
case Almacen of
TRdxAlmacenes_Presupuestos:
begin
Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID) + '\*.*';
ListaFicheros := FindFile(Ruta);
Result := StringArray.Create();
for i := 0 to ListaFicheros.Count - 1 do
Result.Add(ExtractFileName(ListaFicheros.Strings[i]));
end;
end;
finally
if Assigned(ListaFicheros) then
FreeAndNil(ListaFicheros);
end;
end;
function TsrvGestorDocumentos.DarRutaDocumentos: string;
var
AConfiguracionService : IsrvConfiguracion;
Intf : IInterface;
AClientID : TGUID;
Ruta: String;
begin
CreateGUID(AClientID);
try
GetClassFactory('srvConfiguracion').CreateInstance(AClientID, Intf);
AConfiguracionService := Intf as IsrvConfiguracion;
Result := AConfiguracionService.darValor(CTE_VALOR, (ExtractFilePath(Application.ExeName) + CTE_DOCUMENTOS));
finally
AConfiguracionService := Nil;
end;
end;
function TsrvGestorDocumentos.DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
var
Ruta: String;
begin
Result := Binary.Create;
try
Ruta := DarRutaDocumentos;
case Almacen of
TRdxAlmacenes_Presupuestos:
begin
Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID) + '\' + NombreFichero;
Result.LoadFromFile(Ruta);
end;
end;
finally
//
end;
end;
function TsrvGestorDocumentos.EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer;
const NombreFichero: String): Boolean;
var
Ruta: String;
begin
Result := False;
try
Ruta := DarRutaDocumentos;
case Almacen of
TRdxAlmacenes_Presupuestos:
begin
Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID) + '\' + NombreFichero;
if FileExists(Ruta) then
Result := DeleteFile(Ruta)
else
Result := True; //Ya ha sido borrado
end;
end;
finally
//
end;
end;
function TsrvGestorDocumentos.EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean;
var
Ruta: String;
begin
Result := False;
try
Ruta := DarRutaDocumentos;
case Almacen of
TRdxAlmacenes_Presupuestos:
begin
Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID);
if DirectoryExists(Ruta) then
Deltree(Ruta, True);
Result := True;
end;
end;
finally
//
end;
end;
function TsrvGestorDocumentos.SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String;
const Fichero: Binary): Boolean;
var
Ruta: String;
begin
Result := False;
try
Ruta := DarRutaDocumentos;
if not DirectoryExists(Ruta) then
CreateDir(Ruta);
case Almacen of
TRdxAlmacenes_Presupuestos:
begin
Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS;
if not DirectoryExists(Ruta) then
CreateDir(Ruta);
Ruta := Ruta + IntToStr(ID);
if not DirectoryExists(Ruta) then
CreateDir(Ruta);
Ruta := Ruta + '\' + NombreFichero;
Fichero.SaveToFile(Ruta);
Result := True;
end;
end;
finally
//
end;
end;
initialization
TROClassFactory.Create('srvGestorDocumentos', Create_srvGestorDocumentos, TsrvGestorDocumentos_Invoker);
finalization
end.

BIN
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dpk
View File

Binary file not shown.

15
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.dproj
View File

@ -42,18 +42,19 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PresupuestosCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PresupuestosCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="PresupuestosCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PresupuestosCliente_data.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_data.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosPresupuestoClienteController.pas" />
<DCCReference Include="uDetallesPresupuestoClienteController.pas" />
<DCCReference Include="uPresupuestosClienteController.pas" />
@ -548,4 +549,4 @@ mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->
EurekaLog Last Line -->

37
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -6,7 +6,8 @@ interface
uses
SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModulePresupuestosCliente, uClientesController,
uDetallesPresupuestoClienteController, uBizPresupuestosCliente, uBizDireccionesContacto,
uDetallesPresupuestoClienteController, uGestorDocumentosController,
uBizPresupuestosCliente, uBizDireccionesContacto,
uBizDetallesPresupuestoCliente;
type
@ -20,6 +21,11 @@ type
procedure SetDetallesController(const Value: IDetallesPresupuestoClienteController);
property DetallesController: IDetallesPresupuestoClienteController read GetDetallesController write SetDetallesController;
//GESTION_DOCUMENTOS
function GetGestorDocumentosController: IGestorDocumentosController;
procedure SetGestorDocumentosController(const Value: IGestorDocumentosController);
property GestorDocumentosController: IGestorDocumentosController read GetGestorDocumentosController write SetGestorDocumentosController;
procedure RecuperarCliente(APresupuesto : IBizPresupuestoCliente);
function Buscar(const ID: Integer): IBizPresupuestoCliente;
function BuscarTodos: IBizPresupuestoCliente;
@ -58,12 +64,17 @@ type
FDataModule : IDataModulePresupuestosCliente;
FClienteController : IClientesController;
FDetallesController : IDetallesPresupuestoClienteController;
FGestorDocumentosController : IGestorDocumentosController;
function GetClienteController: IClientesController;
procedure SetClienteController(const Value: IClientesController);
function GetDetallesController: IDetallesPresupuestoClienteController;
procedure SetDetallesController(const Value: IDetallesPresupuestoClienteController);
//GESTION_DOCUMENTOS
function GetGestorDocumentosController: IGestorDocumentosController;
procedure SetGestorDocumentosController(const Value: IGestorDocumentosController);
//Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
//este controller
procedure AsignarDataModule; virtual;
@ -77,6 +88,7 @@ type
public
property ClienteController: IClientesController read GetClienteController write SetClienteController;
property DetallesController: IDetallesPresupuestoClienteController read GetDetallesController write SetDetallesController;
property GestorDocumentosController: IGestorDocumentosController read GetGestorDocumentosController write SetGestorDocumentosController;
constructor Create; override;
destructor Destroy; override;
@ -222,6 +234,10 @@ begin
FClienteController := TClientesController.Create;
FDetallesController := TDetallesPresupuestoClienteController.Create;
//GESTION_DOCUMENTOS
FGestorDocumentosController := TGestorDocumentosController.Create;
FDetallesController.addObservador(Self);
end;
@ -252,6 +268,9 @@ begin
FDataModule := Nil;
FClienteController := Nil;
FDetallesController := Nil;
//GESTION_DOCUMENTOS
FGestorDocumentosController := Nil;
inherited;
end;
@ -477,6 +496,9 @@ begin
//Siempre eliminaremos el seleccionado
if EsEliminable(APresupuesto) then
begin
//GESTION_DOCUMENTOS
FGestorDocumentosController.EliminarDirectorio(APresupuesto.ID);
APresupuesto.Delete;
bEliminado := True;
end;
@ -491,6 +513,9 @@ begin
begin
if EsEliminable(APresupuesto) then
begin
//GESTION_DOCUMENTOS
FGestorDocumentosController.EliminarDirectorio(APresupuesto.ID);
APresupuesto.Delete;
bEliminado := True
end
@ -641,6 +666,11 @@ begin
FDetallesController := Value;
end;
procedure TPresupuestosClienteController.SetGestorDocumentosController(const Value: IGestorDocumentosController);
begin
FGestorDocumentosController := Value;
end;
{procedure TPresupuestosClienteController.SetID_Tienda(APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
var
EnEdicion: Boolean;
@ -846,4 +876,9 @@ begin
Result := FDetallesController;
end;
function TPresupuestosClienteController.GetGestorDocumentosController: IGestorDocumentosController;
begin
Result := FGestorDocumentosController;
end;
end.

26
Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj
View File

@ -14,6 +14,8 @@
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" />
<Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" />
<Projects Include="Controller\PresupuestosCliente_controller.dproj" />
<Projects Include="Data\PresupuestosCliente_data.dproj" />
<Projects Include="Model\PresupuestosCliente_model.dproj" />
@ -107,6 +109,24 @@
<Target Name="PresupuestosCliente_data:Make">
<MSBuild Projects="Data\PresupuestosCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="GestorDocumentos_data">
<MSBuild Projects="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" Targets="" />
</Target>
<Target Name="GestorDocumentos_data:Clean">
<MSBuild Projects="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" Targets="Clean" />
</Target>
<Target Name="GestorDocumentos_data:Make">
<MSBuild Projects="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" Targets="Make" />
</Target>
<Target Name="GestorDocumentos_controller">
<MSBuild Projects="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" Targets="" />
</Target>
<Target Name="GestorDocumentos_controller:Clean">
<MSBuild Projects="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="GestorDocumentos_controller:Make">
<MSBuild Projects="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" Targets="Make" />
</Target>
<Target Name="PresupuestosCliente_controller">
<MSBuild Projects="Controller\PresupuestosCliente_controller.dproj" Targets="" />
</Target>
@ -162,13 +182,13 @@
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;PresupuestosCliente_controller;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

BIN
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
View File

Binary file not shown.

34
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
<MainSource>PresupuestosCliente_view.dpk</MainSource>
@ -41,9 +42,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -52,12 +51,23 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\tb2k_d10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
@ -83,6 +93,10 @@
<Form>frViewDetallesPresupuestoCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewDocumentosPresupuestoCliente.pas">
<Form>frViewDocumentosPresupuestoCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewElegirArticulosPresupuestosCliente.pas">
<Form>frViewElegirArticulosPresupuestosCliente</Form>
<DesignClass>TFrame</DesignClass>

72
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -227,6 +227,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited cxGrid: TcxGrid
Width = 660
Height = 359
ExplicitTop = 72
ExplicitWidth = 660
ExplicitHeight = 359
end
@ -243,10 +244,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -320,6 +317,37 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Width = 660
end
end
object pagDocumentos: TTabSheet
Caption = 'Documentos'
ImageIndex = 5
inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
Left = 0
Top = 0
Width = 660
Height = 431
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 660
ExplicitHeight = 431
inherited TBXDock: TTBXDock
Width = 660
ExplicitWidth = 660
end
inherited ListView1: TListView
Width = 660
Height = 408
ExplicitWidth = 660
ExplicitHeight = 408
end
end
end
end
inherited StatusBar: TJvStatusBar
Top = 612
@ -386,8 +414,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Style.IsFontAssigned = True
ExplicitLeft = 164
ExplicitTop = 112
ExplicitWidth = 93
Width = 93
ExplicitWidth = 153
Width = 153
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 521
@ -395,8 +423,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Style.IsFontAssigned = True
ExplicitLeft = 521
ExplicitTop = 38
ExplicitWidth = 137
Width = 137
ExplicitWidth = 142
Width = 142
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 451
@ -404,8 +432,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Style.IsFontAssigned = True
ExplicitLeft = 451
ExplicitTop = 112
ExplicitWidth = 137
Width = 137
ExplicitWidth = 212
Width = 212
end
inherited edtDescuento: TcxDBSpinEdit
Left = 93
@ -427,8 +455,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Style.IsFontAssigned = True
ExplicitLeft = 450
ExplicitTop = 11
ExplicitWidth = 92
Width = 92
ExplicitWidth = 213
Width = 213
end
inherited edtRE: TcxDBSpinEdit
Left = 450
@ -447,8 +475,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Style.IsFontAssigned = True
ExplicitLeft = 521
ExplicitTop = 65
ExplicitWidth = 56
Width = 56
ExplicitWidth = 142
Width = 142
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93
@ -456,8 +484,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Style.IsFontAssigned = True
ExplicitLeft = 93
ExplicitTop = 11
ExplicitWidth = 147
Width = 147
ExplicitWidth = 224
Width = 224
end
inherited ePorte: TcxDBCurrencyEdit
Left = 93
@ -466,8 +494,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Style.IsFontAssigned = True
ExplicitLeft = 93
ExplicitTop = 139
ExplicitWidth = 147
Width = 147
ExplicitWidth = 224
Width = 224
end
inherited eIVA: TcxDBLookupComboBox
Left = 93
@ -476,8 +504,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
DataBinding.DataSource = nil
ExplicitLeft = 93
ExplicitTop = 38
ExplicitWidth = 81
Width = 81
ExplicitWidth = 86
Width = 86
end
inherited bTiposIVA: TButton
Left = 185
@ -491,8 +519,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
DataBinding.DataField = ''
ExplicitLeft = 93
ExplicitTop = 65
ExplicitWidth = 219
Width = 219
ExplicitWidth = 224
Width = 224
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup

21
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -16,7 +16,10 @@ uses
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
uIEditorPresupuestoCliente, uBizPresupuestosCliente, uViewPresupuestoCliente,
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente,
uDAInterfaces, cxRichEdit, cxDBRichEdit;
uDAInterfaces, cxRichEdit, cxDBRichEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver,
dxSkinsDefaultPainters, uViewDocumentos, uViewDocumentosPresupuestoCliente;
type
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
@ -31,6 +34,8 @@ type
pagMemoria: TTabSheet;
cxDBMemo1: TcxDBMemo;
edtPortada: TcxDBRichEdit;
pagDocumentos: TTabSheet;
frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -114,6 +119,9 @@ procedure TfEditorPresupuestoCliente.CustomEditorClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
//GESTION_DOCUMENTOS
//Este método eliminará el directorio temporal si se ha creado
frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute;
FViewPresupuesto := NIL;
FPresupuesto := NIL;
end;
@ -186,6 +194,11 @@ begin
frViewDetallesPresupuestoCliente1.BeginUpdate;
try
bEsNuevo := FPresupuesto.EsNuevo;
//GESTION_DOCUMENTOS
if FController.Guardar(FPresupuesto) then
frViewDocumentosPresupuestoCliente1.actActualizarServidor.Execute;
FController.Guardar(FPresupuesto);
finally
frViewDetallesPresupuestoCliente1.EndUpdate;
@ -288,6 +301,9 @@ begin
ViewPresupuesto.Controller := Controller;
ViewPresupuesto.ViewClientePresupuesto.Controller := Controller.ClienteController;
frViewDetallesPresupuestoCliente1.Controller := Controller.DetallesController;
//GESTION_DOCUMENTOS
frViewDocumentosPresupuestoCliente1.Controller := Controller;
end;
end;
@ -307,6 +323,9 @@ begin
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := OnClienteChanged;
frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles;
frViewDetallesPresupuestoCliente1.Presupuesto := FPresupuesto; //Para poder sacar los descuento del articulos segun el cliente seleccionado
//GESTION_DOCUMENTOS
frViewDocumentosPresupuestoCliente1.Presupuesto := FPresupuesto;
end;
end;
end;

2
Source/Modulos/Presupuestos de cliente/Views/uViewDocumentosPresupuestoCliente.dfm Normal file
View File

@ -0,0 +1,2 @@
inherited frViewDocumentosPresupuestoCliente: TfrViewDocumentosPresupuestoCliente
end

100
Source/Modulos/Presupuestos de cliente/Views/uViewDocumentosPresupuestoCliente.pas Normal file
View File

@ -0,0 +1,100 @@
unit uViewDocumentosPresupuestoCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDocumentos, ActnList,
TB2Item, TBX, TB2Dock, TB2Toolbar, cxControls, cxContainer,
uBizPresupuestosCliente, uPresupuestosClienteController, ImgList,
PngImageList, ComCtrls, Menus;
type
IViewDocumentosPresupuestoCliente = interface
['{564599A5-ECEB-4A1F-8791-22B37282A11C}']
function GetController : IPresupuestosClienteController;
procedure SetController (const Value : IPresupuestosClienteController);
property Controller : IPresupuestosClienteController read GetController write SetController;
function GetPresupuesto: IBizPresupuestoCliente;
procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
end;
TfrViewDocumentosPresupuestoCliente = class(TfrViewDocumentos, IViewDocumentosPresupuestoCliente)
private
FController : IPresupuestosClienteController;
FPresupuesto: IBizPresupuestoCliente;
function GetController : IPresupuestosClienteController;
procedure SetController (const Value : IPresupuestosClienteController);
function GetPresupuesto: IBizPresupuestoCliente;
procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
protected
procedure Sincronizar; override;
function RecuperarFicheroServidor(const NombreFichero: String; const DirectorioDestino: String): Boolean; override;
public
property Controller : IPresupuestosClienteController read GetController write SetController;
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
end;
var
frViewDocumentosPresupuestoCliente: TfrViewDocumentosPresupuestoCliente;
implementation
{$R *.dfm}
{ TfrViewDocumentosPresupuesto }
function TfrViewDocumentosPresupuestoCliente.GetController: IPresupuestosClienteController;
begin
Result := FController;
end;
function TfrViewDocumentosPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;
begin
Result := FPresupuesto;
end;
function TfrViewDocumentosPresupuestoCliente.RecuperarFicheroServidor(const NombreFichero: String; const DirectorioDestino: String): Boolean;
begin
inherited;
Result := Controller.GestorDocumentosController.DescargarFichero(Presupuesto.ID, NombreFichero, DirectorioDestino);
end;
procedure TfrViewDocumentosPresupuestoCliente.SetController(const Value: IPresupuestosClienteController);
begin
FController := Value;
end;
procedure TfrViewDocumentosPresupuestoCliente.SetPresupuesto(const Value: IBizPresupuestoCliente);
begin
FPresupuesto := Value;
//Inicializamos la lista de documentos local con los ficheros del servidor
if Assigned(FPresupuesto) and Assigned(FController) then
ListaFicheros := Controller.GestorDocumentosController.DarListaDocumentos(Presupuesto.ID);
RefrescarVisualizador;
end;
procedure TfrViewDocumentosPresupuestoCliente.Sincronizar;
begin
inherited;
//De momento el action actSincronizar con el servidor estará oculto y se activa, hay que tener en cuenta lo comentado
{
if Presupuesto.EsNuevo then
begin
if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede sincronizar hasta que no se guarden.' + #10#13 +
'¿Desea guardarlos ahora?') = IDYES) then
actGuardar.Execute
else
ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
end;
}
Controller.GestorDocumentosController.SincronizarDocumentos(Presupuesto.ID, ListaFicheros, Directorio);
end;
end.

75
Source/Servicios/FactuGES.RODL
View File

@ -118,6 +118,8 @@
</Parameter>
<Parameter Name="CODIGO" DataType="String" Flag="In" >
</Parameter>
<Parameter Name="ValorPorDefecto" DataType="String" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
@ -507,6 +509,73 @@
</Interface>
</Interfaces>
</Service>
<Service Name="srvGestorDocumentos" UID="{BB59BECF-E6E0-4A19-9A55-7136B33EDBDF}" Ancestor="DataAbstractService">
<Group Under="{B6013F6E-68F8-4EDF-85C1-1904BBA5008E}" />
<Interfaces>
<Interface Name="Default" UID="{A057EA3B-F714-4899-B6DA-1E4C8696ADC7}">
<Operations>
<Operation Name="DarListaFicheros" UID="{A9A68739-E0FF-4D08-BB5A-FC223ECD636B}">
<Parameters>
<Parameter Name="Result" DataType="StringArray" Flag="Result">
</Parameter>
<Parameter Name="Almacen" DataType="TRdxAlmacenes" Flag="In" >
</Parameter>
<Parameter Name="ID" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="DescargarFichero" UID="{50A66B80-8E4D-49D1-BBE2-7C358DE6EBC4}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="Almacen" DataType="TRdxAlmacenes" Flag="In" >
</Parameter>
<Parameter Name="ID" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="NombreFichero" DataType="String" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="SubirFichero" UID="{24AF32A4-8EB1-4846-8599-FB8C1391B202}">
<Parameters>
<Parameter Name="Result" DataType="Boolean" Flag="Result">
</Parameter>
<Parameter Name="Almacen" DataType="TRdxAlmacenes" Flag="In" >
</Parameter>
<Parameter Name="ID" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="NombreFichero" DataType="String" Flag="In" >
</Parameter>
<Parameter Name="Fichero" DataType="Binary" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="EliminarFichero" UID="{6728D02B-E3FF-451E-9477-55545F328BA3}">
<Parameters>
<Parameter Name="Result" DataType="Boolean" Flag="Result">
</Parameter>
<Parameter Name="Almacen" DataType="TRdxAlmacenes" Flag="In" >
</Parameter>
<Parameter Name="ID" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="NombreFichero" DataType="String" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="EliminarID" UID="{6677BA6B-4EC3-4703-AA49-5C1558ED8B45}">
<Parameters>
<Parameter Name="Result" DataType="Boolean" Flag="Result">
</Parameter>
<Parameter Name="Almacen" DataType="TRdxAlmacenes" Flag="In" >
</Parameter>
<Parameter Name="ID" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
</Interface>
</Interfaces>
</Service>
</Services>
<EventSinks>
</EventSinks>
@ -527,6 +596,12 @@
</Struct>
</Structs>
<Enums>
<Enum Name="TRdxAlmacenes" UID="{3A4D614B-926D-4645-9E2A-6948DA21072D}">
<EnumValues>
<EnumValue Name="Presupuestos">
</EnumValue>
</EnumValues>
</Enum>
</Enums>
<Arrays>
<Array Name="TRdxEmpresasArray" UID="{CA344218-3432-40B8-8FB7-F5BB30406098}">

144
Source/Servicios/FactuGES_Intf.pas
View File

@ -51,6 +51,7 @@ const
IsrvUnidadesMedida_IID : TGUID = '{C1B36FAB-7514-40D2-A20C-04A86C9E71AB}';
IsrvComisiones_IID : TGUID = '{B600E9A1-28EC-484E-A74D-B5BB96FDF20A}';
IsrvProvinciasPoblaciones_IID : TGUID = '{C9925D63-0F5F-4546-8657-54F59FE51359}';
IsrvGestorDocumentos_IID : TGUID = '{A057EA3B-F714-4899-B6DA-1E4C8696ADC7}';
{ Event ID's }
@ -84,6 +85,7 @@ type
IsrvUnidadesMedida = interface;
IsrvComisiones = interface;
IsrvProvinciasPoblaciones = interface;
IsrvGestorDocumentos = interface;
TRdxEmpresasArray = class;
@ -92,6 +94,7 @@ type
{ Enumerateds }
TRdxAlmacenes = (TRdxAlmacenes_Presupuestos);
{ TRdxLoginInfo }
TRdxLoginInfo = class(TROComplexType)
@ -263,7 +266,7 @@ type
{ IsrvConfiguracion }
IsrvConfiguracion = interface(IDataAbstractService)
['{0882B8A4-C8AA-424E-8FC1-C6226B670522}']
function darValor(const CODIGO: String): String;
function darValor(const CODIGO: String; const ValorPorDefecto: String): String;
end;
{ CosrvConfiguracion }
@ -276,7 +279,7 @@ type
protected
function __GetInterfaceName:string; override;
function darValor(const CODIGO: String): String;
function darValor(const CODIGO: String; const ValorPorDefecto: String): String;
end;
{ IsrvFamilias }
@ -700,6 +703,33 @@ type
function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
end;
{ IsrvGestorDocumentos }
IsrvGestorDocumentos = interface(IDataAbstractService)
['{A057EA3B-F714-4899-B6DA-1E4C8696ADC7}']
function DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray;
function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean;
function EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean;
end;
{ CosrvGestorDocumentos }
CosrvGestorDocumentos = class
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvGestorDocumentos;
end;
{ TsrvGestorDocumentos_Proxy }
TsrvGestorDocumentos_Proxy = class(TDataAbstractService_Proxy, IsrvGestorDocumentos)
protected
function __GetInterfaceName:string; override;
function DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray;
function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean;
function EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean;
end;
implementation
uses
@ -1170,11 +1200,12 @@ begin
result := 'srvConfiguracion';
end;
function TsrvConfiguracion_Proxy.darValor(const CODIGO: String): String;
function TsrvConfiguracion_Proxy.darValor(const CODIGO: String; const ValorPorDefecto: String): String;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'darValor');
__Message.Write('CODIGO', TypeInfo(String), CODIGO, []);
__Message.Write('ValorPorDefecto', TypeInfo(String), ValorPorDefecto, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1858,6 +1889,111 @@ begin
end
end;
{ CosrvGestorDocumentos }
class function CosrvGestorDocumentos.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvGestorDocumentos;
begin
result := TsrvGestorDocumentos_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvGestorDocumentos_Proxy }
function TsrvGestorDocumentos_Proxy.__GetInterfaceName:string;
begin
result := 'srvGestorDocumentos';
end;
function TsrvGestorDocumentos_Proxy.DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaFicheros');
__Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(DataAbstract4_Intf.StringArray), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvGestorDocumentos_Proxy.DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DescargarFichero');
__Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Write('NombreFichero', TypeInfo(String), NombreFichero, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvGestorDocumentos_Proxy.SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'SubirFichero');
__Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Write('NombreFichero', TypeInfo(String), NombreFichero, []);
__Message.Write('Fichero', TypeInfo(Binary), Fichero, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Boolean), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvGestorDocumentos_Proxy.EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'EliminarFichero');
__Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Write('NombreFichero', TypeInfo(String), NombreFichero, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Boolean), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvGestorDocumentos_Proxy.EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'EliminarID');
__Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Write('ID', TypeInfo(Integer), ID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Boolean), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
initialization
RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray);
@ -1889,6 +2025,7 @@ initialization
RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy);
RegisterProxyClass(IsrvComisiones_IID, TsrvComisiones_Proxy);
RegisterProxyClass(IsrvProvinciasPoblaciones_IID, TsrvProvinciasPoblaciones_Proxy);
RegisterProxyClass(IsrvGestorDocumentos_IID, TsrvGestorDocumentos_Proxy);
finalization
@ -1922,5 +2059,6 @@ finalization
UnregisterProxyClass(IsrvUnidadesMedida_IID);
UnregisterProxyClass(IsrvComisiones_IID);
UnregisterProxyClass(IsrvProvinciasPoblaciones_IID);
UnregisterProxyClass(IsrvGestorDocumentos_IID);
end.

161
Source/Servicios/FactuGES_Invk.pas
View File

@ -218,6 +218,17 @@ type
procedure Invoke_DarListaPoblaciones(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvGestorDocumentos_Invoker = class(TDataAbstractService_Invoker)
private
protected
published
procedure Invoke_DarListaFicheros(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DescargarFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_SubirFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_EliminarFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_EliminarID(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation
uses
@ -390,15 +401,17 @@ end;
{ TsrvConfiguracion_Invoker }
procedure TsrvConfiguracion_Invoker.Invoke_darValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function darValor(const CODIGO: String): String; }
{ function darValor(const CODIGO: String; const ValorPorDefecto: String): String; }
var
CODIGO: String;
ValorPorDefecto: String;
lResult: String;
begin
try
__Message.Read('CODIGO', TypeInfo(String), CODIGO, []);
__Message.Read('ValorPorDefecto', TypeInfo(String), ValorPorDefecto, []);
lResult := (__Instance as IsrvConfiguracion).darValor(CODIGO);
lResult := (__Instance as IsrvConfiguracion).darValor(CODIGO, ValorPorDefecto);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvConfiguracion', 'darValorResponse');
__Message.Write('Result', TypeInfo(String), lResult, []);
@ -1013,5 +1026,149 @@ begin
end;
end;
{ TsrvGestorDocumentos_Invoker }
procedure TsrvGestorDocumentos_Invoker.Invoke_DarListaFicheros(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray; }
var
Almacen: FactuGES_Intf.TRdxAlmacenes;
ID: Integer;
lResult: DataAbstract4_Intf.StringArray;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
__Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Read('ID', TypeInfo(Integer), ID, []);
lResult := (__Instance as IsrvGestorDocumentos).DarListaFicheros(Almacen, ID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorDocumentos', 'DarListaFicherosResponse');
__Message.Write('Result', TypeInfo(DataAbstract4_Intf.StringArray), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TsrvGestorDocumentos_Invoker.Invoke_DescargarFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary; }
var
Almacen: FactuGES_Intf.TRdxAlmacenes;
ID: Integer;
NombreFichero: String;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
__Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Read('ID', TypeInfo(Integer), ID, []);
__Message.Read('NombreFichero', TypeInfo(String), NombreFichero, []);
lResult := (__Instance as IsrvGestorDocumentos).DescargarFichero(Almacen, ID, NombreFichero);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorDocumentos', 'DescargarFicheroResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TsrvGestorDocumentos_Invoker.Invoke_SubirFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean; }
var
Almacen: FactuGES_Intf.TRdxAlmacenes;
ID: Integer;
NombreFichero: String;
Fichero: Binary;
lResult: Boolean;
__lObjectDisposer: TROObjectDisposer;
begin
Fichero := nil;
try
__Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Read('ID', TypeInfo(Integer), ID, []);
__Message.Read('NombreFichero', TypeInfo(String), NombreFichero, []);
__Message.Read('Fichero', TypeInfo(Binary), Fichero, []);
lResult := (__Instance as IsrvGestorDocumentos).SubirFichero(Almacen, ID, NombreFichero, Fichero);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorDocumentos', 'SubirFicheroResponse');
__Message.Write('Result', TypeInfo(Boolean), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(Fichero);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TsrvGestorDocumentos_Invoker.Invoke_EliminarFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean; }
var
Almacen: FactuGES_Intf.TRdxAlmacenes;
ID: Integer;
NombreFichero: String;
lResult: Boolean;
begin
try
__Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Read('ID', TypeInfo(Integer), ID, []);
__Message.Read('NombreFichero', TypeInfo(String), NombreFichero, []);
lResult := (__Instance as IsrvGestorDocumentos).EliminarFichero(Almacen, ID, NombreFichero);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorDocumentos', 'EliminarFicheroResponse');
__Message.Write('Result', TypeInfo(Boolean), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
end;
end;
procedure TsrvGestorDocumentos_Invoker.Invoke_EliminarID(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean; }
var
Almacen: FactuGES_Intf.TRdxAlmacenes;
ID: Integer;
lResult: Boolean;
begin
try
__Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
__Message.Read('ID', TypeInfo(Integer), ID, []);
lResult := (__Instance as IsrvGestorDocumentos).EliminarID(Almacen, ID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorDocumentos', 'EliminarIDResponse');
__Message.Write('Result', TypeInfo(Boolean), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
end;
end;
initialization
end.

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

32
Source/Servidor/Configuracion/srvConfiguracion_Impl.dfm
View File

@ -38,12 +38,40 @@ object srvConfiguracion: TsrvConfiguracion
item
Name = 'VALOR'
DataType = datString
Size = 100
Size = 255
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <>
Commands = <
item
Params = <
item
Name = 'CODIGO'
Value = ''
end
item
Name = 'VALOR'
Value = ''
end
item
Name = 'ID_EMPRESA'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'insert into CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA)'#10'values' +
'(GEN_ID(GEN_CONFIGURACION_ID, 1), :CODIGO, :VALOR, :ID_EMPRESA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'InsertarValor'
end>
RelationShips = <>
UpdateRules = <>
Version = 0

30
Source/Servidor/Configuracion/srvConfiguracion_Impl.pas
View File

@ -21,14 +21,14 @@ uses
type
{ TsrvConfiguracion }
TsrvConfiguracion = class(TDataAbstractService, IsrvConfiguracion)
schConfiguracion: TDASchema;
Bin2DataStreamer: TDABin2DataStreamer;
schConfiguracion: TDASchema;
procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
protected
{ IsrvConfiguracion methods }
function DarValor(const CODIGO: String): String;
function DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): String;
end;
implementation
@ -49,9 +49,12 @@ begin
SessionManager := dmServer.SessionManager;
end;
function TsrvConfiguracion.DarValor(const CODIGO: String): String;
function TsrvConfiguracion.DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): String;
var
ADataSet : IDADataset;
ASchema : TDASchema;
ACurrentConn : IDAConnection;
ACommand : IDASQLCommand;
begin
try
ADataSet := schConfiguracion.NewDataset(Connection, 'darValor', ['CODIGO'], [CODIGO]);
@ -59,7 +62,26 @@ begin
if ADataSet.Dataset.RecordCount > 0 then
Result := ADataSet.Dataset.Fields[0].AsVariant
else
RaiseError('Falta variable de configuracion: ' + CODIGO);
begin
Result := ValorPorDefecto;
//Creamos la variable de configuración con su valor por defecto
ACurrentConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
ACommand := schConfiguracion.NewCommand(ACurrentConn, 'InsertarValor');
try
with ACommand do
begin
ParamByName('CODIGO').Value := CODIGO;
ParamByName('VALOR').Value := ValorPorDefecto;
ParamByName('ID_EMPRESA').Value := Null;
Execute;
ACurrentConn.CommitTransaction;
end;
except
ACurrentConn.RollbackTransaction;
end;
ACommand := NIL;
// RaiseError('Falta variable de configuracion: ' + CODIGO);
end;
finally
ADataSet.Close;
end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

5
Source/Servidor/FactuGES_Server.dpr
View File

@ -125,7 +125,10 @@ uses
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas';
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
uStringsUtils in '..\Base\Utiles\uStringsUtils.pas',
uSistemaFunc in '..\Base\Utiles\uSistemaFunc.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

6
Source/Servidor/FactuGES_Server.dproj
View File

@ -58,6 +58,8 @@
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
@ -138,6 +140,10 @@
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.4.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.4.0\0"
VALUE "CompileDate", "jueves, 31 de julio de 2008 12:02\0"
VALUE "CompileDate", "lunes, 08 de septiembre de 2008 18:46\0"
END
END
BLOCK "VarFileInfo"