Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios para liberación de memoria

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@61 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2007-10-24 18:54:18 +00:00
parent 82e02df1d2
commit f891f12f87
82 changed files with 2779 additions and 2273 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

250
Build/Build.fbp5
View File

@ -127,12 +127,14 @@
<Property MultiValue="0" name="VariableName" type="WideString">project_path</Property> <Property MultiValue="0" name="VariableName" type="WideString">project_path</Property>
</Object> </Object>
<Object Class="TFBScriptBasedAction" XMLID="{5B69375A-3BFE-490C-81E4-C8ED87EE3C07}"><Property MultiValue="0" name="ActionComment" type="string"></Property> <Object Class="TFBScriptBasedAction" XMLID="{5B69375A-3BFE-490C-81E4-C8ED87EE3C07}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[String Replace]]> <Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Establecer ruta del proyecto]]>
</Property> </Property>
<Property name="ActionTextColor" type="Cardinal">0</Property> <Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string">{78526C82-A8E7-42B3-8C9D-1E229C79D915}</Property> <Property MultiValue="0" name="ActionTypeID" type="string">{78526C82-A8E7-42B3-8C9D-1E229C79D915}</Property>
<Property MultiValue="1" name="CustomActionName" type="string"><![CDATA[String Replace]]> <Property MultiValue="1" name="CustomActionName" type="string"><![CDATA[String Replace]]>
</Property> </Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Establecer ruta del proyecto]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property> <Property name="Enabled" type="WordBool">True</Property>
<Property name="EnableTimeout" type="Boolean">False</Property> <Property name="EnableTimeout" type="Boolean">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property> <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
@ -157,11 +159,13 @@
<CustomProperty name="CaseSensitive" type="ptBoolean">False</CustomProperty> <CustomProperty name="CaseSensitive" type="ptBoolean">False</CustomProperty>
<CustomProperty name="ReplaceAll" type="ptBoolean">False</CustomProperty> <CustomProperty name="ReplaceAll" type="ptBoolean">False</CustomProperty>
</Object> </Object>
<Object Class="TCommentAction" XMLID="{40524824-CA0D-49B1-90DD-20D9FE5FDB6C}"><Property MultiValue="0" name="ActionComment" type="string"></Property> <Object Class="TCommentAction" XMLID="{015DF175-73B2-4DF6-9D66-BEC67B87A27E}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property> <Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Listar todas las variables de entorno]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property> <Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property> <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property> <Property MultiValue="1" name="Description" type="string"><![CDATA[Listar todas las variables de entorno]]>
</Property>
<Property name="Enabled" type="WordBool">False</Property> <Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property> <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property> <Property name="IgnoreFailure" type="WordBool">False</Property>
@ -174,6 +178,37 @@
<Property name="RetryPauseInterval" type="Cardinal">1000</Property> <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property> <Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object> </Object>
<Object Class="TFBLogVariablesAction" XMLID="{E7E22B76-5075-4F49-8295-2EF919B5317D}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Listar valores de las variables del proyecto]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Listar valores de las variables del proyecto]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfNotDefined" 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 name="LogAllVariables" type="Boolean">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>
<Property MultiValue="1" name="VariableStorageString" type="string"><![CDATA[base_dcp_path
library_3rdparty_path
library_path
modules_dcp_path
output_path
package_path
project_path
source_path
]]>
</Property>
</Object>
<Object Class="TCommentAction" XMLID="{2BFAB727-C6E9-4466-9D20-379E17575DCD}"><Property MultiValue="0" name="ActionComment" type="string"></Property> <Object Class="TCommentAction" XMLID="{2BFAB727-C6E9-4466-9D20-379E17575DCD}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property> <Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property> <Property name="ActionTextColor" type="Cardinal">16711680</Property>
@ -314,6 +349,163 @@
<Property name="SuppressStatusMessages" type="Boolean">False</Property> <Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object> </Object>
</Object> </Object>
<Object Class="TCommentAction" XMLID="{40524824-CA0D-49B1-90DD-20D9FE5FDB6C}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">#</Property>
<Property name="Enabled" type="WordBool">False</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>
<Object Class="TCommentAction" XMLID="{E3BEE629-2BB3-4216-92C6-9925757CDB52}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Sustituir Sch*Client_intf por clase padre para que se comporte como un interfaz]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Sustituir Sch*Client_intf por clase padre para que se comporte como un interfaz]]>
</Property>
<Property name="Enabled" type="WordBool">False</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>
<Object Class="TFBFileSetDefineAction" XMLID="{EF3C871A-C56D-414E-AB38-AE8D041D315B}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Sustituir en profundidad]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Sustituir en profundidad]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfNoFiles" type="Boolean">False</Property>
<Property MultiValue="0" name="FileSetName" type="string">DiretorioRaiz</Property>
<Property name="FileSetObject" type="IFBFileSet" XMLID="{4F7A0852-7725-4FA2-86DE-A5568DB7562C}"/>
<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="TFBTextFindAction" XMLID="{239183F6-C9C4-49BF-B838-DFC02A4EF3A7}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Text Replace [ Classes, DB, SysUtils, ... ] with [ Classes, DB, schBase_Intf, SysUtils, ... ] in FileSet [ DiretorioRaiz ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="CaseSensitive" type="Boolean">True</Property>
<Property MultiValue="0" name="DestinationFile" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ExpandVarsWhenReplacing" type="Boolean">True</Property>
<Property name="FailMatchCount" type="Integer">1</Property>
<Property name="FailOnMoreMatchCount" type="Integer">1</Property>
<Property MultiValue="0" name="FBVariable" type="string"></Property>
<Property name="FileSetCountAllMatches" type="Boolean">False</Property>
<Property MultiValue="0" name="FileSetName" type="string">DiretorioRaiz</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="MatchRegExpr" type="Boolean">False</Property>
<Property name="MatchWildcards" type="Boolean">False</Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="PutCountIntoVar" type="string"></Property>
<Property name="ReplacementMode" type="TFBReplaceMode">trOriginalFile</Property>
<Property MultiValue="1" name="ReplacementText" type="string"><![CDATA[Classes, DB, schBase_Intf, SysUtils, ]]>
</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="1" name="SearchString" type="string"><![CDATA[Classes, DB, SysUtils, ]]>
</Property>
<Property MultiValue="0" name="SourcePath" type="string"></Property>
<Property name="Substitute" type="Boolean">False</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TextFindBehaviour" type="TTextFindBehaviour">tfDontFail</Property>
<Property name="UseFileSet" type="Boolean">True</Property>
<Property name="UseVariable" type="Boolean">False</Property>
<Property name="WholeLinesOnly" type="Boolean">False</Property>
<Property name="WholeWords" type="Boolean">False</Property>
</Object>
<Object Class="TFBTextFindAction" XMLID="{FF0F0800-1EC3-459C-927B-49D5FA2E48C5}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Text Replace [ = class(TDADataTableRules... ] with [ = class(TIntfObjectDADataTableRules... ] in FileSet [ DiretorioRaiz ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="CaseSensitive" type="Boolean">True</Property>
<Property MultiValue="0" name="DestinationFile" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ExpandVarsWhenReplacing" type="Boolean">True</Property>
<Property name="FailMatchCount" type="Integer">1</Property>
<Property name="FailOnMoreMatchCount" type="Integer">1</Property>
<Property MultiValue="0" name="FBVariable" type="string"></Property>
<Property name="FileSetCountAllMatches" type="Boolean">False</Property>
<Property MultiValue="0" name="FileSetName" type="string">DiretorioRaiz</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="MatchRegExpr" type="Boolean">False</Property>
<Property name="MatchWildcards" type="Boolean">False</Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="PutCountIntoVar" type="string"></Property>
<Property name="ReplacementMode" type="TFBReplaceMode">trOriginalFile</Property>
<Property MultiValue="1" name="ReplacementText" type="string"><![CDATA[ = class(TIntfObjectDADataTableRules]]>
</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="1" name="SearchString" type="string"><![CDATA[ = class(TDADataTableRules]]>
</Property>
<Property MultiValue="0" name="SourcePath" type="string"></Property>
<Property name="Substitute" type="Boolean">False</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TextFindBehaviour" type="TTextFindBehaviour">tfDontFail</Property>
<Property name="UseFileSet" type="Boolean">True</Property>
<Property name="UseVariable" type="Boolean">False</Property>
<Property name="WholeLinesOnly" type="Boolean">False</Property>
<Property name="WholeWords" type="Boolean">False</Property>
</Object>
<Object Class="TFBFileSetObject" XMLID="{4F7A0852-7725-4FA2-86DE-A5568DB7562C}"><Property MultiValue="0" name="BaseDirectory" type="string">%source_path%</Property>
<Property name="ExcludePatternList" type="IFBFileSetPatternList" XMLID="{AB73EBEC-7190-42FD-8A9A-C157DFF5FA59}"/>
<Property name="FilterList" type="IFBFileSetFilterList" XMLID="{E16E7FD0-3189-4AC1-AB72-80897DCBC8C2}"/>
<Property MultiValue="0" name="Name" type="string">DiretorioRaiz</Property>
<Property name="OutputQuoting" type="TFileSetQuoteType">qtNone</Property>
<Property name="OutputSeparator" type="TFileSetSepType">spNone</Property>
<Property name="PatternList" type="IFBFileSetPatternList" XMLID="{7DFB9FB1-77BD-4891-A450-4EEE7D460C93}"/>
<Property name="RecurseHiddenSystem" type="Boolean">False</Property>
<Object Class="TFBFileSetPatternList" XMLID="{7DFB9FB1-77BD-4891-A450-4EEE7D460C93}"><Property MultiValue="0" name="Name" type="string">PATTERNLIST</Property>
<Object Class="TFBFileSetPattern" XMLID="{84FFF593-CC1B-47BA-ACC1-D0CBE33CD2A9}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property name="IsRegExpr" type="Boolean">False</Property>
<Property MultiValue="0" name="Item" type="string">sch*Client_Intf.pas</Property>
<Property name="Recurse" type="Boolean">True</Property>
</Object>
</Object>
<Object Class="TFBFileSetPatternList" XMLID="{AB73EBEC-7190-42FD-8A9A-C157DFF5FA59}"><Property MultiValue="0" name="Name" type="string">EXCLUDEPATTERNLIST</Property>
</Object>
<Object Class="TFBFileSetFilterList" XMLID="{E16E7FD0-3189-4AC1-AB72-80897DCBC8C2}"/>
</Object>
</Object>
<Object Class="TCommentAction" XMLID="{059B5215-3463-4DEE-A084-8400B13B7626}"><Property MultiValue="0" name="ActionComment" type="string"></Property> <Object Class="TCommentAction" XMLID="{059B5215-3463-4DEE-A084-8400B13B7626}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property> <Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property> <Property name="ActionTextColor" type="Cardinal">16711680</Property>
@ -348,56 +540,6 @@
<Property name="RetryPauseInterval" type="Cardinal">1000</Property> <Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property> <Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object> </Object>
<Object Class="TCommentAction" XMLID="{015DF175-73B2-4DF6-9D66-BEC67B87A27E}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Listar todas las variables de entorno]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Listar todas las variables de entorno]]>
</Property>
<Property name="Enabled" type="WordBool">False</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>
<Object Class="TFBLogVariablesAction" XMLID="{E7E22B76-5075-4F49-8295-2EF919B5317D}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Listar valores de las variables del proyecto]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Listar valores de las variables del proyecto]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfNotDefined" 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 name="LogAllVariables" type="Boolean">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>
<Property MultiValue="1" name="VariableStorageString" type="string"><![CDATA[base_dcp_path
library_3rdparty_path
library_path
modules_dcp_path
output_path
package_path
project_path
source_path
]]>
</Property>
</Object>
<Object Class="TCommentAction" XMLID="{E9F08F1E-440D-4AD7-9CB4-5492902B8C86}"><Property MultiValue="0" name="ActionComment" type="string"></Property> <Object Class="TCommentAction" XMLID="{E9F08F1E-440D-4AD7-9CB4-5492902B8C86}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compilar el servidor]]> <Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compilar el servidor]]>
</Property> </Property>

2
Source/ApplicationBase/ApplicationBase.dpk
View File

@ -56,7 +56,7 @@ requires
contains contains
uFactuGES_App in 'uFactuGES_App.pas', uFactuGES_App in 'uFactuGES_App.pas',
uIDataModuleUsuarios in 'Usuarios\Model\Data\uIDataModuleUsuarios.pas', uIDataModuleUsuarios in 'Usuarios\Model\Data\uIDataModuleUsuarios.pas',
uDataModuleUsuarios in 'Usuarios\Data\uDataModuleUsuarios.pas' {DataModuleUsuariosObj}, uDataModuleUsuarios in 'Usuarios\Data\uDataModuleUsuarios.pas' {DataModuleUsuarios},
uUCROConn in 'Usuarios\Data\uUCROConn.pas', uUCROConn in 'Usuarios\Data\uUCROConn.pas',
uUsuariosController in 'Usuarios\Controller\uUsuariosController.pas', uUsuariosController in 'Usuarios\Controller\uUsuariosController.pas',
uBizEmpresasDatosBancarios in 'Empresas\Model\uBizEmpresasDatosBancarios.pas', uBizEmpresasDatosBancarios in 'Empresas\Model\uBizEmpresasDatosBancarios.pas',

56
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -38,6 +38,8 @@
<DCC_Define>DEBUG</DCC_Define> <DCC_Define>DEBUG</DCC_Define>
<DCC_Optimize>False</DCC_Optimize> <DCC_Optimize>False</DCC_Optimize>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
@ -58,32 +60,32 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Base\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" /> <DCCReference Include="..\Base\cxDataD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" /> <DCCReference Include="..\Base\cxEditorsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" /> <DCCReference Include="..\Base\cxLibraryD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Base\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" /> <DCCReference Include="..\Base\dxThemeD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\Base\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" /> <DCCReference Include="..\Base\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" /> <DCCReference Include="..\Base\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" /> <DCCReference Include="..\Base\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Base\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" /> <DCCReference Include="..\Base\JvJansD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" /> <DCCReference Include="..\Base\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Base\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" /> <DCCReference Include="..\Base\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" /> <DCCReference Include="..\Base\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" /> <DCCReference Include="..\Base\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" /> <DCCReference Include="..\Base\PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Base\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Base\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Base\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Base\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Base\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Base\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Base\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Base\vclx.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" /> <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" /> <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" /> <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
@ -106,7 +108,7 @@
<DCCReference Include="Usuarios\Controller\uUsuariosController.pas" /> <DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
<DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" /> <DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" />
<DCCReference Include="Usuarios\Data\uDataModuleUsuarios.pas"> <DCCReference Include="Usuarios\Data\uDataModuleUsuarios.pas">
<Form>DataModuleUsuariosObj</Form> <Form>DataModuleUsuarios</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Usuarios\Data\uUCROConn.pas" /> <DCCReference Include="Usuarios\Data\uUCROConn.pas" />
<DCCReference Include="Usuarios\Model\Data\uIDataModuleUsuarios.pas" /> <DCCReference Include="Usuarios\Model\Data\uIDataModuleUsuarios.pas" />

BIN
Source/ApplicationBase/ApplicationBase.res
View File

Binary file not shown.

2
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -72,7 +72,7 @@ end;
constructor TEmpresasController.Create; constructor TEmpresasController.Create;
begin begin
FDataModule := TDataModuleEmpresas.Create; FDataModule := TDataModuleEmpresas.Create(Nil);
end; end;
procedure TEmpresasController.DescartarCambios(AEmpresa: IBizEmpresa); procedure TEmpresasController.DescartarCambios(AEmpresa: IBizEmpresa);

2
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
View File

@ -1,4 +1,4 @@
object DataModuleEmpresasObj: TDataModuleEmpresasObj inherited DataModuleEmpresas: TDataModuleEmpresas
OldCreateOrder = True OldCreateOrder = True
OnCreate = DAClientDataModuleCreate OnCreate = DAClientDataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy

58
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.pas
View File

@ -8,10 +8,10 @@ uses {vcl:} SysUtils, Classes, DB, DBClient,
uROClient, uROBinMessage, uROWinInetHttpChannel, uDADesigntimeCall, uROClient, uROBinMessage, uROWinInetHttpChannel, uDADesigntimeCall,
uIDataModuleEmpresas, uBizEmpresas, uBizEmpresasDatosBancarios, uIDataModuleEmpresas, uBizEmpresas, uBizEmpresasDatosBancarios,
uDARemoteDataAdapter, uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDARemoteDataAdapter, uDADataStreamer, uRODynamicRequest, uDAInterfaces,
uDAMemDataTable, uDABin2DataStreamer, uIntegerListUtils, uControllerBase; uDAMemDataTable, uDABin2DataStreamer, uIntegerListUtils, uDataModuleBase;
type type
TDataModuleEmpresasObj = class(TDataModule) TDataModuleEmpresas = class(TDataModuleBase, IDataModuleEmpresas)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
rda_Empresas: TDARemoteDataAdapter; rda_Empresas: TDARemoteDataAdapter;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
@ -29,18 +29,6 @@ type
function GetItems : IBizEmpresa; function GetItems : IBizEmpresa;
end; end;
TDataModuleEmpresas = class(TMiInterfacedObject, IDataModuleEmpresas)
private
FDataModule : TDataModuleEmpresasObj;
public
constructor Create;
destructor Destroy; override;
function GetItem(const ID : Integer) : IBizEmpresa;
function NewItem : IBizEmpresa;
function GetItems : IBizEmpresa;
end;
implementation implementation
{$R *.DFM} {$R *.DFM}
@ -49,18 +37,18 @@ uses
uDataModuleConexion, uDataTableUtils, Dialogs, uDataModuleConexion, uDataTableUtils, Dialogs,
FactuGES_Intf, schEmpresasClient_Intf, cxControls; FactuGES_Intf, schEmpresasClient_Intf, cxControls;
procedure TDataModuleEmpresasObj.DAClientDataModuleCreate(Sender: TObject); procedure TDataModuleEmpresas.DAClientDataModuleCreate(Sender: TObject);
begin begin
RORemoteService.Channel := dmConexion.Channel; RORemoteService.Channel := dmConexion.Channel;
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
procedure TDataModuleEmpresasObj.DataModuleDestroy(Sender: TObject); procedure TDataModuleEmpresas.DataModuleDestroy(Sender: TObject);
begin begin
ShowMessage('TDataModuleEmpresasObj.Destroy'); ShowMessage('TDataModuleEmpresas.Destroy');
end; end;
function TDataModuleEmpresasObj.GetItem(const ID: Integer): IBizEmpresa; function TDataModuleEmpresas.GetItem(const ID: Integer): IBizEmpresa;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
@ -78,7 +66,7 @@ begin
end; end;
end; end;
function TDataModuleEmpresasObj.GetItems: IBizEmpresa; function TDataModuleEmpresas.GetItems: IBizEmpresa;
var var
AEmpresa : TDAMemDataTable; AEmpresa : TDAMemDataTable;
begin begin
@ -98,12 +86,12 @@ begin
end; end;
end; end;
function TDataModuleEmpresasObj.NewItem: IBizEmpresa; function TDataModuleEmpresas.NewItem: IBizEmpresa;
begin begin
Result := GetItem(ID_NULO) Result := GetItem(ID_NULO)
end; end;
function TDataModuleEmpresasObj._GetDatosBancarios: IBizEmpresasDatosBancarios; function TDataModuleEmpresas._GetDatosBancarios: IBizEmpresasDatosBancarios;
var var
ADatosBancarios : TDAMemDataTable; ADatosBancarios : TDAMemDataTable;
begin begin
@ -123,32 +111,4 @@ begin
end; end;
{ TDataModuleEmpresas }
constructor TDataModuleEmpresas.Create;
begin
FDataModule := TDataModuleEmpresasObj.Create(NIL);
end;
destructor TDataModuleEmpresas.Destroy;
begin
FreeANDNIL(FDataModule);
inherited;
end;
function TDataModuleEmpresas.GetItem(const ID: Integer): IBizEmpresa;
begin
Result := FDataModule.GetItem(ID);
end;
function TDataModuleEmpresas.GetItems: IBizEmpresa;
begin
Result := FDataModule.GetItems;
end;
function TDataModuleEmpresas.NewItem: IBizEmpresa;
begin
Result := FDataModule.NewItem;
end;
end. end.

8
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schEmpresasClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -235,7 +235,7 @@ type
end; end;
{ TEmpresasDataTableRules } { TEmpresasDataTableRules }
TEmpresasDataTableRules = class(TDADataTableRules, IEmpresas) TEmpresasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresas)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
f_LOGOTIPO: IROStream; f_LOGOTIPO: IROStream;
@ -452,7 +452,7 @@ type
end; end;
{ TEmpresasDatosBancoDataTableRules } { TEmpresasDatosBancoDataTableRules }
TEmpresasDatosBancoDataTableRules = class(TDADataTableRules, IEmpresasDatosBanco) TEmpresasDatosBancoDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasDatosBanco)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -542,6 +542,8 @@ end;
destructor TEmpresasDataTableRules.Destroy; destructor TEmpresasDataTableRules.Destroy;
begin begin
f_NOTAS := Nil;
f_LOGOTIPO := Nil;
inherited; inherited;
end; end;

4
Source/ApplicationBase/Empresas/Model/uBizEmpresas.pas
View File

@ -44,7 +44,7 @@ type
implementation implementation
uses uses
uDataTableUtils, Classes, DateUtils, SysUtils; uDataTableUtils, Classes, DateUtils, SysUtils, Dialogs;
{ TBizEmpresa } { TBizEmpresa }
@ -58,6 +58,8 @@ end;
destructor TBizEmpresa.Destroy; destructor TBizEmpresa.Destroy;
begin begin
Beep;
//showmessage('Destruyendo');
FDatosBancarios := NIL; FDatosBancarios := NIL;
FDatosBancariosLink.Free; FDatosBancariosLink.Free;
inherited; inherited;

2
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.pas
View File

@ -56,7 +56,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uCustomEditor, uDataModuleEmpresas, uDataModuleBase; uCustomEditor, uDataModuleEmpresas;
{ {
******************************* TfEditorEmpresa ******************************* ******************************* TfEditorEmpresa *******************************

2
Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
View File

@ -89,7 +89,7 @@ uses
procedure TUsuariosController.AsignarDataModule; procedure TUsuariosController.AsignarDataModule;
begin begin
FDataModule := TDataModuleUsuarios.Create; FDataModule := TDataModuleUsuarios.Create(Nil);
end; end;
procedure TUsuariosController.CambiarPassword(const AIDUser: Integer; procedure TUsuariosController.CambiarPassword(const AIDUser: Integer;

6
Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm
View File

@ -1,7 +1,5 @@
object DataModuleUsuariosObj: TDataModuleUsuariosObj inherited DataModuleUsuarios: TDataModuleUsuarios
OldCreateOrder = True Height = 179
Height = 149
Width = 273
object srvUsuarios: TRORemoteService object srvUsuarios: TRORemoteService
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel Channel = dmConexion.ROChannel

44
Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.pas
View File

@ -7,10 +7,11 @@ uses
FactuGES_Intf, uIntegerListUtils, uBizEmpresas, FactuGES_Intf, uIntegerListUtils, uBizEmpresas,
UCBase, UCDataConnector, uUCROConn, uDARemoteDataAdapter, UCBase, UCDataConnector, uUCROConn, uDARemoteDataAdapter,
uDARemoteCommand, uROClient, uRORemoteService, uDADataStreamer, uDARemoteCommand, uROClient, uRORemoteService, uDADataStreamer,
uDABin2DataStreamer, uDAScriptingProvider, uIDataModuleUsuarios, UCSettings; uDABin2DataStreamer, uDAScriptingProvider, uIDataModuleUsuarios, UCSettings,
uDataModuleBase;
type type
TDataModuleUsuariosObj = class(TDataModule) TDataModuleUsuarios = class(TDataModuleBase, IDataModuleUsuarios)
srvUsuarios: TRORemoteService; srvUsuarios: TRORemoteService;
UCSettingsSpanish: TUCSettings; UCSettingsSpanish: TUCSettings;
private private
@ -21,15 +22,6 @@ type
procedure InicializarUserControl (AUserControl : TUserControl); procedure InicializarUserControl (AUserControl : TUserControl);
end; end;
TDataModuleUsuarios = class(TInterfacedObject, IDataModuleUsuarios)
private
FDataModule : TDataModuleUsuariosObj;
public
procedure InicializarUserControl (AUserControl : TUserControl);
constructor Create;
destructor Destroy; override;
end;
implementation implementation
@ -37,12 +29,12 @@ implementation
uses uses
Forms, Controls, uDataTableUtils, uDataModuleConexion, Forms, Controls, uDataTableUtils, uDataModuleConexion,
Dialogs, Windows, uEmpresasController, uDataModuleBase, Dialogs, Windows, uEmpresasController,
schUsuariosClient_Intf; schUsuariosClient_Intf;
{ TDAClientDataModule1 } { TDAClientDataModule1 }
function TDataModuleUsuariosObj.CreateConnectorInstance: TUCDataConnector; function TDataModuleUsuarios.CreateConnectorInstance: TUCDataConnector;
begin begin
// El propietario (Owner) es Application para que se encarge de la // El propietario (Owner) es Application para que se encarge de la
// liberación del conector que estamos creando. // liberación del conector que estamos creando.
@ -55,7 +47,7 @@ begin
end; end;
end; end;
procedure TDataModuleUsuariosObj.InicializarCamposUserControl( procedure TDataModuleUsuarios.InicializarCamposUserControl(
AUserControl: TUserControl); AUserControl: TUserControl);
begin begin
if not Assigned(AUserControl) then if not Assigned(AUserControl) then
@ -119,7 +111,7 @@ begin
end; end;
end; end;
procedure TDataModuleUsuariosObj.InicializarSettingsUserControl( procedure TDataModuleUsuarios.InicializarSettingsUserControl(
AUserControl: TUserControl); AUserControl: TUserControl);
var var
SourceSettings : TUCSettings; SourceSettings : TUCSettings;
@ -360,8 +352,7 @@ begin
end; end;
end; end;
procedure TDataModuleUsuariosObj.InicializarUserControl( procedure TDataModuleUsuarios.InicializarUserControl(AUserControl: TUserControl);
AUserControl: TUserControl);
begin begin
if Assigned(AUserControl) then if Assigned(AUserControl) then
begin begin
@ -370,23 +361,4 @@ begin
end; end;
end; end;
{ TDataModuleUsuarios }
constructor TDataModuleUsuarios.Create;
begin
FDataModule := TDataModuleUsuariosObj.Create(NIL);
end;
destructor TDataModuleUsuarios.Destroy;
begin
FreeANDNIL(FDataModule);
inherited;
end;
procedure TDataModuleUsuarios.InicializarUserControl(
AUserControl: TUserControl);
begin
FDataModule.InicializarUserControl(AUserControl);
end;
end. end.

12
Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schUsuariosClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -195,7 +195,7 @@ type
end; end;
{ TUSUARIOSDataTableRules } { TUSUARIOSDataTableRules }
TUSUARIOSDataTableRules = class(TDADataTableRules, IUSUARIOS) TUSUARIOSDataTableRules = class(TIntfObjectDADataTableRules, IUSUARIOS)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -343,7 +343,7 @@ type
end; end;
{ TUSUARIOS_EVENTOSDataTableRules } { TUSUARIOS_EVENTOSDataTableRules }
TUSUARIOS_EVENTOSDataTableRules = class(TDADataTableRules, IUSUARIOS_EVENTOS) TUSUARIOS_EVENTOSDataTableRules = class(TIntfObjectDADataTableRules, IUSUARIOS_EVENTOS)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -451,7 +451,7 @@ type
end; end;
{ TUSUARIOS_LOGONDataTableRules } { TUSUARIOS_LOGONDataTableRules }
TUSUARIOS_LOGONDataTableRules = class(TDADataTableRules, IUSUARIOS_LOGON) TUSUARIOS_LOGONDataTableRules = class(TIntfObjectDADataTableRules, IUSUARIOS_LOGON)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -528,7 +528,7 @@ type
end; end;
{ TPERMISOSDataTableRules } { TPERMISOSDataTableRules }
TPERMISOSDataTableRules = class(TDADataTableRules, IPERMISOS) TPERMISOSDataTableRules = class(TIntfObjectDADataTableRules, IPERMISOS)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -605,7 +605,7 @@ type
end; end;
{ TPERMISOSEXDataTableRules } { TPERMISOSEXDataTableRules }
TPERMISOSEXDataTableRules = class(TDADataTableRules, IPERMISOSEX) TPERMISOSEXDataTableRules = class(TIntfObjectDADataTableRules, IPERMISOSEX)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

2
Source/ApplicationBase/Usuarios/Views/uUsuarios.pas
View File

@ -5,7 +5,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, uDADataTable, dbcgrids, uDataModuleUsuarios, StdCtrls, Dialogs, DB, uDADataTable, dbcgrids, uDataModuleUsuarios, StdCtrls,
DBCtrls, uDataModuleBase, JvExControls, JvComponent, JvNavigationPane, DBCtrls, JvExControls, JvComponent, JvNavigationPane,
Grids, DBGrids, ActnList, uDAInterfaces; Grids, DBGrids, ActnList, uDAInterfaces;
type type

4
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -134,7 +134,7 @@ var
implementation implementation
uses uses
Dialogs, cxControls, uDataModuleBase, uUsuariosViewRegister, Dialogs, cxControls, uUsuariosViewRegister,
uEmpresasViewRegister; uEmpresasViewRegister;
procedure TAppFactuGES.CambiarEmpresa(const AIDEmpresa: Integer); procedure TAppFactuGES.CambiarEmpresa(const AIDEmpresa: Integer);
@ -354,6 +354,8 @@ initialization
finalization finalization
// Pongo esto aquí por ahora // Pongo esto aquí por ahora
AppFactuGES := NIL;
uUsuariosViewRegister.UnregisterViews; uUsuariosViewRegister.UnregisterViews;
uEmpresasViewRegister.UnregisterViews; uEmpresasViewRegister.UnregisterViews;

6
Source/Base/Base.dpk
View File

@ -81,7 +81,7 @@ contains
uDataTableUtils in 'Utiles\uDataTableUtils.pas', uDataTableUtils in 'Utiles\uDataTableUtils.pas',
uDBSelectionListUtils in 'Utiles\uDBSelectionListUtils.pas', uDBSelectionListUtils in 'Utiles\uDBSelectionListUtils.pas',
uIntegerListUtils in 'Utiles\uIntegerListUtils.pas', uIntegerListUtils in 'Utiles\uIntegerListUtils.pas',
uDataModuleBase in 'uDataModuleBase.pas' {dmBase: TDataModule}, uDMBase in 'uDMBase.pas' {dmBase: TDataModule},
uDataModuleConexion in 'Conexion\uDataModuleConexion.pas' {dmConexion: TDataModule}, uDataModuleConexion in 'Conexion\uDataModuleConexion.pas' {dmConexion: TDataModule},
uConfigurarConexion in 'Conexion\uConfigurarConexion.pas' {fConfigurarConexion: TForm}, uConfigurarConexion in 'Conexion\uConfigurarConexion.pas' {fConfigurarConexion: TForm},
uSistemaFunc in 'Utiles\uSistemaFunc.pas', uSistemaFunc in 'Utiles\uSistemaFunc.pas',
@ -98,8 +98,10 @@ contains
uPasswordUtils in 'Utiles\uPasswordUtils.pas', uPasswordUtils in 'Utiles\uPasswordUtils.pas',
uInfoProjectUtils in 'Utiles\uInfoProjectUtils.pas', uInfoProjectUtils in 'Utiles\uInfoProjectUtils.pas',
uInformeRegistryUtils in 'Utiles\ClassRegistry\uInformeRegistryUtils.pas', uInformeRegistryUtils in 'Utiles\ClassRegistry\uInformeRegistryUtils.pas',
uCalculosUtils in 'Utiles\uCalculosUtils.pas',
uControllerBase in 'Controladores\uControllerBase.pas', uControllerBase in 'Controladores\uControllerBase.pas',
uControllerDetallesBase in 'Controladores\uControllerDetallesBase.pas', uControllerDetallesBase in 'Controladores\uControllerDetallesBase.pas',
uCalculosUtils in 'Utiles\uCalculosUtils.pas'; schBase_Intf in 'schBase_Intf.pas',
uDataModuleBase in 'uDataModuleBase.pas' {DataModuleBase: TDataModule};
end. end.

111
Source/Base/Base.dproj
View File

@ -36,12 +36,21 @@
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</DCC_IncludePath>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<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="PackageDescription">Libreria base de FactuGES</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><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="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -57,55 +66,7 @@
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl5D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
</DCCReference> </DCCReference>
@ -117,7 +78,52 @@
</DCCReference> </DCCReference>
<DCCReference Include="Controladores\uControllerBase.pas" /> <DCCReference Include="Controladores\uControllerBase.pas" />
<DCCReference Include="Controladores\uControllerDetallesBase.pas" /> <DCCReference Include="Controladores\uControllerDetallesBase.pas" />
<DCCReference Include="cxDataD10.dcp" />
<DCCReference Include="cxEditorsD10.dcp" />
<DCCReference Include="cxExportD10.dcp" />
<DCCReference Include="cxExtEditorsD10.dcp" />
<DCCReference Include="cxGridD10.dcp" />
<DCCReference Include="cxIntl5D10.dcp" />
<DCCReference Include="cxIntlPrintSys3D10.dcp" />
<DCCReference Include="cxLibraryD10.dcp" />
<DCCReference Include="cxPageControlD10.dcp" />
<DCCReference Include="DataAbstract_Core_D10.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclIndyCore.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxPSCoreD10.dcp" />
<DCCReference Include="dxThemeD10.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="IndyCore.dcp" />
<DCCReference Include="IndyProtocols.dcp" />
<DCCReference Include="IndySystem.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JSDialog100.dcp" />
<DCCReference Include="JvCmpD11R.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvDlgsD11R.dcp" />
<DCCReference Include="JvMMD11R.dcp" />
<DCCReference Include="JvNetD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="pckMD5.dcp" />
<DCCReference Include="pckUCDataConnector.dcp" />
<DCCReference Include="pckUserControl_RT.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D10.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schBase_Intf.pas" />
<DCCReference Include="TB2k_D10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uDataModuleBase.pas"> <DCCReference Include="uDataModuleBase.pas">
<Form>DataModulBase</Form>
</DCCReference>
<DCCReference Include="uDMBase.pas">
<Form>dmBase</Form> <Form>dmBase</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" /> <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
@ -136,6 +142,13 @@
<DCCReference Include="Utiles\uNumUtils.pas" /> <DCCReference Include="Utiles\uNumUtils.pas" />
<DCCReference Include="Utiles\uPasswordUtils.pas" /> <DCCReference Include="Utiles\uPasswordUtils.pas" />
<DCCReference Include="Utiles\uSistemaFunc.pas" /> <DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="VclSmp.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

2
Source/Base/Conexion/uDataModuleConexion.pas
View File

@ -40,7 +40,7 @@ implementation
uses uses
Windows, WinInet, cxControls, uConfigurarConexion, Dialogs, Controls, Windows, WinInet, cxControls, uConfigurarConexion, Dialogs, Controls,
uDataModuleBase, FactuGES_Intf; uDMBase, FactuGES_Intf;
const const
IE_OFFLINE_ERROR = 'Unexpected error in WinInet HTTP Channel (2)'; IE_OFFLINE_ERROR = 'Unexpected error in WinInet HTTP Channel (2)';

13
Source/Base/Controladores/uControllerBase.pas
View File

@ -3,7 +3,7 @@ unit uControllerBase;
interface interface
uses uses
Classes, uDADataTable; Classes, uDADataTable, Forms;
type type
ISujeto = interface; ISujeto = interface;
@ -39,6 +39,10 @@ type
class function NewInstance: TObject; override; class function NewInstance: TObject; override;
property RefCount: Integer read FRefCount; property RefCount: Integer read FRefCount;
end; end;
TMiInterfacedObject2 = class(TDataModule) //, IInterface)
end;
{ ***************************************************************************} { ***************************************************************************}
@ -124,13 +128,13 @@ end;
function TMiInterfacedObject._AddRef: Integer; function TMiInterfacedObject._AddRef: Integer;
begin begin
Result := InterlockedIncrement(FRefCount); Result := InterlockedIncrement(FRefCount);
ShowMessage('_AddRef: ' + ClassName + ' - RefCount: ' + IntToStr(FRefCount)); // ShowMessage('_AddRef: ' + ClassName + ' - RefCount: ' + IntToStr(FRefCount));
end; end;
function TMiInterfacedObject._Release: Integer; function TMiInterfacedObject._Release: Integer;
begin begin
Result := InterlockedDecrement(FRefCount); Result := InterlockedDecrement(FRefCount);
ShowMessage('_Release: ' + ClassName + ' - RefCount: ' + IntToStr(FRefCount)); // ShowMessage('_Release: ' + ClassName + ' - RefCount: ' + IntToStr(FRefCount));
if Result = 0 then if Result = 0 then
Destroy; Destroy;
end; end;
@ -192,4 +196,7 @@ begin
// //
end; end;
end. end.

32
Source/Base/schBase_Intf.pas Normal file
View File

@ -0,0 +1,32 @@
unit schBase_Intf;
interface
uses
uDADataTable, Windows;
type
{ TIntfObjectDADataTableRules }
TIntfObjectDADataTableRules = class(TDADataTableRules)
protected
function _AddRef: Integer; override;
function _Release: Integer; override;
end;
implementation
{ TIntfObjectDADataTableRules }
function TIntfObjectDADataTableRules._AddRef: Integer;
begin
Result := InterlockedIncrement(FRefCount);
end;
function TIntfObjectDADataTableRules._Release: Integer;
begin
Result := InterlockedDecrement(FRefCount);
if Result = 0 then
Destroy;
end;
end.

1628
Source/Base/uDataModuleBase.dfm
View File

File diff suppressed because it is too large Load Diff

135
Source/Base/uDataModuleBase.pas
View File

@ -3,133 +3,50 @@ unit uDataModuleBase;
interface interface
uses uses
Controls, SyncObjs, PngImageList, JvComponent, JvNavigationPane, TBXSwitcher, Classes;
TBXOffice2003Theme, Classes, ImgList,
DataAbstract4_Intf, uDADataTable, JvAppStorage, JvAppRegistryStorage, cxintl,
JvComponentBase, cxIntlPrintSys3, JvLogFile;
type type
TdmBase = class(TDataModule) TDataModuleBase = class(TDataModule)
SmallImages: TPngImageList;
StyleManager: TJvNavPaneStyleManager;
TBXSwitcher: TTBXSwitcher;
cxIntl: TcxIntl;
cxIntlPrintSys31: TcxIntlPrintSys3;
JvLogFile: TJvLogFile;
procedure DAClientDataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private private
FOnThemeChange: TNotifyEvent; FRefCount: Integer;
FEscribirLog : TCriticalSection;
procedure IniciarLog;
procedure DetenerLog;
procedure InitStyleManager;
procedure OnTBXThemeChange(Sender: TObject);
procedure LeerConfiguracion;
public
procedure EscribirLog(const AMensaje : String);
procedure SalvarConfiguracion;
property OnThemeChange: TNotifyEvent read FOnThemeChange write
FOnThemeChange;
end;
var protected
dmBase: TdmBase = nil; function QueryInterface( const IID: TGUID; out Obj): Integer; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
public
property RefCount: integer read fRefCount write fRefCount;
end;
implementation implementation
{$R *.DFM} {$R *.DFM}
uses // Set an implicit refcount so that refcounting
uDataModuleConexion, Dialogs, TBX, TBXThemes, Forms, Windows, // during construction won't destroy the object.
JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion;
{ function TDataModuleBase.QueryInterface(const IID: TGUID; out Obj): HResult;
*********************************** TdmBase ************************************
}
procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
begin begin
IniciarLog; if GetInterface(IID, Obj)
then Result := 0
TBXSwitcher.OnThemeChange := OnTBXThemeChange; else Result := E_NOINTERFACE;
TBXSetTheme('Office2003');
LeerConfiguracion;
end; end;
procedure TdmBase.IniciarLog; function TDataModuleBase._AddRef: Integer;
begin begin
FEscribirLog := TCriticalSection.Create; Inc(fRefCount);
Result := fRefCount;
JvLogFile.Active := False;
JvLogFile.FileName := ExtractFilePath(Application.ExeName) + 'ClientLog.txt';
JvLogFile.AutoSave := True;
JvLogFile.Active := True;
JvLogFile.Clear;
end; end;
procedure TdmBase.InitStyleManager; function TDataModuleBase._Release: Integer;
begin begin
if not USE_THEMES then Dec(fRefCount);
begin Result := fRefCount;
TBXSwitcher.EnableXPStyles := False; if fRefCount = 0 then Destroy;
StyleManager.Theme := nptStandard;
end
else begin
TBXSwitcher.EnableXPStyles := True;
with StyleManager do
begin
if CurrentTheme is TTBXOffice2003Theme then
begin
case GetOffice2003Scheme of
osBlue : Theme := nptXPBlue;
osMetallic : Theme := nptXPSilver;
osGreen : Theme := nptXPOlive;
else
Theme := nptStandard;
end;
end;
end;
end;
end; end;
procedure TdmBase.LeerConfiguracion;
begin
dmConfiguracion.LeerConfiguracion;
end;
procedure TdmBase.OnTBXThemeChange(Sender: TObject);
begin
InitStyleManager;
if Assigned(FOnThemeChange) then
FOnThemeChange(Sender);
end;
procedure TdmBase.SalvarConfiguracion;
begin
dmConfiguracion.SalvarConfiguracion;
end;
procedure TdmBase.DataModuleDestroy(Sender: TObject);
begin
DetenerLog;
end;
procedure TdmBase.DetenerLog;
begin
FreeAndNIL(FEscribirLog);
end;
procedure TdmBase.EscribirLog(const AMensaje: String);
begin
FEscribirLog.Acquire;
try
JvLogFile.Add(AMensaje);
finally
FEscribirLog.Release;
end;
end;
end. end.

8
Source/Cliente/FactuGES.dpr
View File

@ -1,12 +1,12 @@
program FactuGES; program FactuGES;
uses uses
ExceptionLog,
Forms, Forms,
Windows, Windows,
SysUtils, SysUtils,
uFactuGES_App, uFactuGES_App,
Dialogs, Dialogs,
uDataModuleBase,
uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal}, uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal},
uMenuUtils in 'Utiles\uMenuUtils.pas', uMenuUtils in 'Utiles\uMenuUtils.pas',
uSplash in 'uSplash.pas' {SplashScreen}, uSplash in 'uSplash.pas' {SplashScreen},
@ -22,9 +22,9 @@ uses
begin begin
Application.Initialize; Application.Initialize;
Application.ShowMainForm := False; Application.ShowMainForm := False;
ReportMemoryLeaksOnShutdown := True;
// ReportMemoryLeaksOnShutdown := True;
// ¡¡¡Fallo en Delphi 2007!!! // ¡¡¡Fallo en Delphi 2007!!!
// Tengo que ponerlo a false porque si no el formulario principal no se puede poner por encima de los formularios hijos. // Tengo que ponerlo a false porque si no el formulario principal no se puede poner por encima de los formularios hijos.
@ -34,6 +34,6 @@ begin
uBootStrap.Run; // <- Aquí dentro esta Application.Run uBootStrap.Run; // <- Aquí dentro esta Application.Run
uBootStrap.Terminate; uBootStrap.Terminate;
//Application.Terminate; //<- No descomentar para así ver los Memory Leaks Application.Terminate; //<- No descomentar para así ver los Memory Leaks
end. end.

8
Source/Cliente/FactuGES.dproj
View File

@ -45,7 +45,9 @@
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
@ -88,7 +90,7 @@
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006
Activate=0 Activate=1
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1
Foreground Tab=0 Foreground Tab=0
@ -242,7 +244,7 @@ boCallRTLExceptionEvent=0
boCatchHandledExceptions=0 boCatchHandledExceptions=0
loCatchLeaks=1 loCatchLeaks=1
loGroupsSonLeaks=1 loGroupsSonLeaks=1
loHideBorlandLeaks=1 loHideBorlandLeaks=0
loFreeAllLeaks=1 loFreeAllLeaks=1
loCatchLeaksExceptions=1 loCatchLeaksExceptions=1
cfoReduceFileSize=1 cfoReduceFileSize=1

1
Source/Cliente/FactuGES.drc
View File

@ -12,6 +12,7 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Archivos de programa\EurekaLog 6\Delphi11\DIALOG.RES */
/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */ /* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
/* C:\Codigo Tecsitel\Lib\jvcl\JvXPCore.res */ /* C:\Codigo Tecsitel\Lib\jvcl\JvXPCore.res */
/* C:\Codigo tecsitel\Source\Cliente\uSplash.dfm */ /* C:\Codigo tecsitel\Source\Cliente\uSplash.dfm */

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

3
Source/Cliente/uBootStrap.pas
View File

@ -13,7 +13,7 @@ uses
implementation implementation
uses uses
uDataModuleBase, uDataModuleConexion, uDataModuleConfiguracion, uDMBase, uDataModuleConexion, uDataModuleConfiguracion,
uMainMenuController, uNavPaneController, uPantallaPrincipal; uMainMenuController, uNavPaneController, uPantallaPrincipal;
procedure DoAppLoadModules; procedure DoAppLoadModules;
@ -48,7 +48,6 @@ begin
NavPaneController := TNavPaneController.Create; NavPaneController := TNavPaneController.Create;
MainMenuController := TMainMenuController.Create; MainMenuController := TMainMenuController.Create;
end; end;
procedure Run; procedure Run;

2
Source/Cliente/uNavPaneController.pas
View File

@ -45,7 +45,7 @@ implementation
uses uses
Dialogs, uModuleController, uAcercaDe, uNavPaneUtils, Dialogs, uModuleController, uAcercaDe, uNavPaneUtils,
uMainMenuController, uClienteUtils, Menus, uDataModuleBase, uMainMenuController, uClienteUtils, Menus, uDMBase,
uFactuGES_App, uBizEmpresas, JvPageList; uFactuGES_App, uBizEmpresas, JvPageList;
{ TNavPaneController } { TNavPaneController }

30
Source/Cliente/uPantallaPrincipal.pas
View File

@ -133,7 +133,7 @@ implementation
uses uses
uSplash, uAcercaDe, UxTheme, Themes, uMenuUtils, uBizEmpresas, uSplash, uAcercaDe, UxTheme, Themes, uMenuUtils, uBizEmpresas,
uFactuGES_App, uDataModuleBase, uDataModuleConexion, uFactuGES_App, uDMBase, uDataModuleConexion,
uModuleController, uMainMenuController, uNavPaneController, uModuleController, uMainMenuController, uNavPaneController,
uDialogUtils, cxControls; uDialogUtils, cxControls;
@ -295,7 +295,9 @@ end;
procedure TfPantallaPrincipal.InicializarUI; procedure TfPantallaPrincipal.InicializarUI;
var var
AListaEmpresas : IBizEmpresa; AListaEmpresas : IBizEmpresa;
PRUEBA: TStringList;
i : Integer; i : Integer;
P: Pointer;
begin begin
for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]); MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
@ -308,18 +310,24 @@ begin
NavPaneController.InitNavPane; NavPaneController.InitNavPane;
AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos; try
if Assigned(AListaEmpresas) then AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
begin if Assigned(AListaEmpresas) then
AListaEmpresas.Active := True;
if AListaEmpresas.RecordCount = 1 then
begin begin
// Oculto la página de inicio para que no parezca AListaEmpresas.Active := True;
// que se pueden manejar varias empresas. if AListaEmpresas.RecordCount = 1 then
JvNavigationPane.ActivePageIndex := 1; begin
pagInicio.PageList := NIL; // Oculto la página de inicio para que no parezca
pagInicio.Visible := False; // que se pueden manejar varias empresas.
JvNavigationPane.ActivePageIndex := 1;
pagInicio.PageList := NIL;
pagInicio.Visible := False;
end;
end; end;
finally
AListaEmpresas.Close;
AListaEmpresas := NIL;
end; end;
RefrescarUI; RefrescarUI;

32
Source/GUIBase/GUIBase.dproj
View File

@ -57,22 +57,22 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD10.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxBarD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD10.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxBarExtItemsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD10.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxLayoutControlD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD10.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxPScxCommonD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGridLnkD10.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxPScxGridLnkD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD10.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxPsPrVwAdvD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx10.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\frx10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe10.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\frxe10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs10.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\fs10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\vcldb.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

2
Source/GUIBase/uDialogBase.pas
View File

@ -29,7 +29,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uDataModuleBase, JvNavigationPane; uDMBase, JvNavigationPane;
procedure TfDialogBase.FormShow(Sender: TObject); procedure TfDialogBase.FormShow(Sender: TObject);
begin begin

2
Source/GUIBase/uEditorBase.pas
View File

@ -151,7 +151,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
Menus, uDataModuleBase, cxControls, uDialogUtils; Menus, uDMBase, cxControls, uDialogUtils;
{ {
********************************* TfEditorBase ********************************* ********************************* TfEditorBase *********************************

2
Source/GUIBase/uEditorGridBase.pas
View File

@ -92,7 +92,7 @@ type
implementation implementation
uses uses
uDataModuleBase, uCustomEditor, cxGridTableView, cxControls; uDMBase, uCustomEditor, cxGridTableView, cxControls;
{$R *.dfm} {$R *.dfm}

6
Source/GUIBase/uEditorItem.dfm
View File

@ -27,13 +27,17 @@ inherited fEditorItem: TfEditorItem
TabOrder = 1 TabOrder = 1
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 678 Width = 678
ExplicitWidth = 678 ExplicitWidth = 678
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 575 ExplicitWidth = 581
inherited TBXItem5: TTBXItem inherited TBXItem5: TTBXItem
Visible = False Visible = False
end end

2
Source/GUIBase/uEditorItem.pas
View File

@ -24,7 +24,7 @@ type
implementation implementation
uses uDataModuleBase; uses uDMBase;
{$R *.dfm} {$R *.dfm}

34
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -27,44 +27,44 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Visible = False Visible = False
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 2 Top = 0
Action = actAnadir Action = actAnadir
AutoSize = True AutoSize = True
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 62 Left = 62
Top = 2 Top = 0
Action = actEliminar Action = actEliminar
AutoSize = True AutoSize = True
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 129 Left = 129
Top = 2 Top = 0
Action = actSubir Action = actSubir
AutoSize = True AutoSize = True
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 184 Left = 184
Top = 2 Top = 0
Action = actBajar Action = actBajar
AutoSize = True AutoSize = True
end end
object ToolButton14: TToolButton object ToolButton14: TToolButton
Left = 240 Left = 240
Top = 2 Top = 0
Action = FontEdit1 Action = FontEdit1
AutoSize = True AutoSize = True
Wrap = True Wrap = True
end end
object FontName: TJvFontComboBox object FontName: TJvFontComboBox
Left = 0 Left = 0
Top = 24 Top = 22
Width = 145 Width = 145
Height = 22 Height = 22
DroppedDownWidth = 145 DroppedDownWidth = 145
MaxMRUCount = 0 MaxMRUCount = 0
FontName = 'Tahoma' FontName = 'Tahoma'
ItemIndex = 108 ItemIndex = 34
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg] Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
Sorted = True Sorted = True
TabOrder = 2 TabOrder = 2
@ -74,7 +74,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object FontSize: TEdit object FontSize: TEdit
Left = 145 Left = 145
Top = 24 Top = 22
Width = 26 Width = 26
Height = 22 Height = 22
Hint = 'Font Size|Select font size' Hint = 'Font Size|Select font size'
@ -85,7 +85,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object UpDown1: TUpDown object UpDown1: TUpDown
Left = 171 Left = 171
Top = 24 Top = 22
Width = 16 Width = 16
Height = 22 Height = 22
Associate = FontSize Associate = FontSize
@ -94,7 +94,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 187 Left = 187
Top = 24 Top = 22
Width = 8 Width = 8
Caption = 'ToolButton13' Caption = 'ToolButton13'
ImageIndex = 10 ImageIndex = 10
@ -102,25 +102,25 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 195 Left = 195
Top = 24 Top = 22
Action = RichEditBold1 Action = RichEditBold1
AutoSize = True AutoSize = True
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 229 Left = 229
Top = 24 Top = 22
Action = RichEditItalic1 Action = RichEditItalic1
AutoSize = True AutoSize = True
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 263 Left = 263
Top = 24 Top = 22
Action = RichEditUnderline1 Action = RichEditUnderline1
AutoSize = True AutoSize = True
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 297 Left = 297
Top = 24 Top = 22
Width = 8 Width = 8
Caption = 'ToolButton12' Caption = 'ToolButton12'
ImageIndex = 10 ImageIndex = 10
@ -128,19 +128,19 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 305 Left = 305
Top = 24 Top = 22
Action = RichEditAlignLeft1 Action = RichEditAlignLeft1
AutoSize = True AutoSize = True
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 339 Left = 339
Top = 24 Top = 22
Action = RichEditAlignCenter1 Action = RichEditAlignCenter1
AutoSize = True AutoSize = True
end end
object ToolButton11: TToolButton object ToolButton11: TToolButton
Left = 373 Left = 373
Top = 24 Top = 22
Action = RichEditAlignRight1 Action = RichEditAlignRight1
AutoSize = True AutoSize = True
end end

2
Source/GUIBase/uViewDetallesBase.pas
View File

@ -11,7 +11,7 @@ uses
PngImageList, cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, PngImageList, cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox,
uGridUtils, uControllerDetallesBase, cxCurrencyEdit, ExtCtrls, Grids, DBGrids, StdCtrls, uGridUtils, uControllerDetallesBase, cxCurrencyEdit, ExtCtrls, Grids, DBGrids, StdCtrls,
ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo, ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo,
TB2Item, TBX, TB2Dock, TB2Toolbar; TB2Item, TBX, TB2Dock, TB2Toolbar, uDAInterfaces;
type type
IViewDetallesBase = interface(IViewBase) IViewDetallesBase = interface(IViewBase)

2
Source/GUIBase/uViewDetallesGenerico.pas
View File

@ -8,7 +8,7 @@ uses
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, ActnList, ImgList, cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, ActnList, ImgList,
PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel, PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid; cxControls, cxGridCustomView, cxGrid, uDAInterfaces;
type type
TfrViewDetallesGenerico = class(TfrViewBase) TfrViewDetallesGenerico = class(TfrViewBase)

2
Source/GUIBase/uViewGrid.dfm
View File

@ -155,7 +155,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39367.963260995370000000 ReportDocument.CreationDate = 39379.815573819450000000
StyleManager = dxPrintStyleManager1 StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True

2
Source/GUIBase/uViewGrid.pas
View File

@ -85,7 +85,7 @@ type
implementation implementation
uses uses
uDataModuleBase, uDBSelectionListUtils; uDMBase, uDBSelectionListUtils;
{$R *.dfm} {$R *.dfm}

4
Source/GUIBase/uViewGrid2Niveles.pas
View File

@ -20,7 +20,7 @@ uses
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu, cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
cxGridPopupMenu; cxGridPopupMenu, uDAInterfaces;
type type
IViewGrid2Niveles = interface(IViewGridBase) IViewGrid2Niveles = interface(IViewGridBase)
@ -68,7 +68,7 @@ type
implementation implementation
uses uses
uDataModuleBase, uDBSelectionListUtils; uDMBase, uDBSelectionListUtils;
{$R *.dfm} {$R *.dfm}

2
Source/GUIBase/uViewGridBase.pas
View File

@ -159,7 +159,7 @@ procedure Register;
implementation implementation
uses uses
CCReg, uDataModuleBase, uDBSelectionListUtils; CCReg, uDMBase, uDBSelectionListUtils;
{$R *.dfm} {$R *.dfm}

2
Source/Modulos/Contactos/Data/Contactos_data.dpk
View File

@ -34,7 +34,7 @@ requires
contains contains
uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule}, uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule},
uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes : TDAClientDataModule}, uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes: TDAClientDataModule},
uDataModuleProveedores in 'uDataModuleProveedores.pas' {DataModuleProveedores: TDAClientDataModule}, uDataModuleProveedores in 'uDataModuleProveedores.pas' {DataModuleProveedores: TDAClientDataModule},
uDataModuleEmpleados in 'uDataModuleEmpleados.pas' {DataModuleEmpleados: TDAClientDataModule}; uDataModuleEmpleados in 'uDataModuleEmpleados.pas' {DataModuleEmpleados: TDAClientDataModule};

14
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -49,14 +49,14 @@
<DelphiCompile Include="Contactos_data.dpk"> <DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\..\..\Base\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\..\..\Base\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="..\..\..\Base\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\..\Base\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\..\..\Base\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\..\..\Base\vcl.dcp" />
<DCCReference Include="uDataModuleClientes.pas"> <DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes </Form> <Form>DataModuleClientes</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleContactos.pas"> <DCCReference Include="uDataModuleContactos.pas">
<Form>DataModuleContactos</Form> <Form>DataModuleContactos</Form>

BIN
Source/Modulos/Contactos/Data/Contactos_data.res
View File

Binary file not shown.

5
Source/Modulos/Contactos/Data/uDataModuleClientes.pas
View File

@ -10,7 +10,8 @@ uses
uBizGruposCliente, uBizContactos, uDataModuleContactos, uBizGruposCliente, uBizContactos, uDataModuleContactos,
uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter, uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable, uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable,
uDABin2DataStreamer; uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios,
uIDataModuleContactos;
type type
TDataModuleClientes = class(TDataModuleContactos, IDataModuleClientes) TDataModuleClientes = class(TDataModuleContactos, IDataModuleClientes)
@ -35,7 +36,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
FactuGES_Intf, uBizContactosDatosBancarios, cxControls, schContactosClient_Intf, FactuGES_Intf, cxControls, schContactosClient_Intf,
uDataTableUtils, Dialogs, DataAbstract4_Intf; uDataTableUtils, Dialogs, DataAbstract4_Intf;
{ TdmClientes } { TdmClientes }

7
Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
View File

@ -1,9 +1,8 @@
object DataModuleContactos: TDataModuleContactos inherited DataModuleContactos: TDataModuleContactos
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate OnCreate = DAClientDataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Height = 309 Height = 306
Width = 570 Width = 595
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel Channel = dmConexion.ROChannel

4
Source/Modulos/Contactos/Data/uDataModuleContactos.pas
View File

@ -11,10 +11,10 @@ uses
uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport, uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport,
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest, uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer, uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
uDAMemDataTable; uDAMemDataTable, uDataModuleBase;
type type
TDataModuleContactos = class(TDataModule, IDataModuleContactos, IDataModuleEtiquetasContactosReport) TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
rda_Contactos: TDARemoteDataAdapter; rda_Contactos: TDARemoteDataAdapter;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;

5
Source/Modulos/Contactos/Model/Data/uIDataModuleClientes.pas
View File

@ -3,11 +3,14 @@ unit uIDataModuleClientes;
interface interface
uses uses
uBizContactos, uIDataModuleContactos, uBizGruposCliente; uBizContactos, uIDataModuleContactos, uBizGruposCliente, uBizContactosDatosBancarios;
type type
IDataModuleClientes = interface(IDataModuleContactos) IDataModuleClientes = interface(IDataModuleContactos)
['{A7442A11-01F6-4F1A-B6B0-D3B9CCBC5392}'] ['{A7442A11-01F6-4F1A-B6B0-D3B9CCBC5392}']
function _GetItems (IDCategoria : Integer): IBizContacto;
function _GetDatosBancarios : IBizContactosDatosBancarios;
function GetItem(const ID : Integer) : IBizCliente; function GetItem(const ID : Integer) : IBizCliente;
function NewItem : IBizCliente; function NewItem : IBizCliente;
function GetItems : IBizCliente; function GetItems : IBizCliente;

24
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schContactosClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -574,7 +574,7 @@ type
end; end;
{ TContactosDataTableRules } { TContactosDataTableRules }
TContactosDataTableRules = class(TDADataTableRules, IContactos) TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -742,7 +742,7 @@ type
end; end;
{ TGruposClienteDataTableRules } { TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente) TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -825,7 +825,7 @@ type
end; end;
{ TDatosBancariosDataTableRules } { TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios) TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1105,7 +1105,7 @@ type
end; end;
{ TClientesDataTableRules } { TClientesDataTableRules }
TClientesDataTableRules = class(TDADataTableRules, IClientes) TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -1530,7 +1530,7 @@ type
end; end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores) TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -1927,7 +1927,7 @@ type
end; end;
{ TEmpleadosDataTableRules } { TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados) TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings; f_FORMACION_BASE: IROStrings;
@ -2230,7 +2230,7 @@ type
end; end;
{ TDireccionesContactoDataTableRules } { TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto) TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -2380,7 +2380,7 @@ type
end; end;
{ TClientesDescuentosDataTableRules } { TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos) TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2439,7 +2439,7 @@ type
end; end;
{ TGruposProveedorDataTableRules } { TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor) TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2474,7 +2474,7 @@ type
end; end;
{ TGruposEmpleadoDataTableRules } { TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado) TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2628,7 +2628,7 @@ type
end; end;
{ TContactos_RefreshDataTableRules } { TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh) TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);

10
Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj
View File

@ -41,13 +41,21 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<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">Contactos_plugin.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">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">Contactos_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Contactos_plugin.dpk"> <DelphiCompile Include="Contactos_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\Base.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\Contactos_controller.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\Contactos_data.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\Contactos_model.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\Contactos_view.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\rtl.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\vcl.dcp" />
<DCCReference Include="uPluginContactos.pas"> <DCCReference Include="uPluginContactos.pas">
<Form>PluginContactos</Form> <Form>PluginContactos</Form>
</DCCReference> </DCCReference>

5
Source/Modulos/Contactos/Plugin/uPluginContactos.pas
View File

@ -72,9 +72,14 @@ var
AClientesController : IClientesController; AClientesController : IClientesController;
AClientes : IBizCliente; AClientes : IBizCliente;
begin begin
try
AClientesController := TClientesController.Create; AClientesController := TClientesController.Create;
AClientes := (AClientesController.BuscarTodos as IBizCliente); AClientes := (AClientesController.BuscarTodos as IBizCliente);
AClientesController.VerTodos(AClientes); AClientesController.VerTodos(AClientes);
finally
AClientes := Nil;
AClientesController := Nil;
end;
end; end;
procedure TPluginContactos.actGruposClienteExecute(Sender: TObject); procedure TPluginContactos.actGruposClienteExecute(Sender: TObject);

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

2
Source/Modulos/Contactos/Views/uEditorClientes.pas
View File

@ -34,7 +34,7 @@ type
implementation implementation
uses uses
uGridUtils, uDataModuleContactos, uDataModuleBase, uEditorGridBase, uBizContactos, uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils,
uGruposClienteController, uBizGruposCliente, uClientesController; uGruposClienteController, uBizGruposCliente, uClientesController;

2
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -53,7 +53,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uCustomEditor, uDataModuleContactos, uDataModuleBase, uDataModuleUsuarios; uCustomEditor, uDataModuleContactos, uDMBase, uDataModuleUsuarios;
{ {
******************************* TfEditorContacto ******************************* ******************************* TfEditorContacto *******************************

1
Source/Modulos/Contactos/Views/uEditorContactos.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorContactos: TfEditorContactos
Left = 285 Left = 285
Top = 448 Top = 448
Caption = 'Lista de contactos' Caption = 'Lista de contactos'
ExplicitWidth = 320
ExplicitHeight = 471 ExplicitHeight = 471
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13

2
Source/Modulos/Contactos/Views/uEditorContactos.pas
View File

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorBase, uEditorGridBase, ToolWin, ComCtrls, JvExControls, JvComponent, Dialogs, uEditorBase, uEditorGridBase, ToolWin, ComCtrls, JvExControls, JvComponent,
JvNavigationPane, uViewContactos, uBizContactos, ActnList, DBActns, uViewGridBase, JvNavigationPane, uViewContactos, uBizContactos, ActnList, DBActns, uViewGridBase,
Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX, Menus, uDMBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX,
TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable, TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable,
JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage, JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase, JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,

26
Source/Modulos/Familias/Data/Familias_data.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> <PropertyGroup>
<ProjectGuid>{28b6d86e-fac2-4bfd-97d9-fcea860835eb}</ProjectGuid> <ProjectGuid>{28b6d86e-fac2-4bfd-97d9-fcea860835eb}</ProjectGuid>
<MainSource>Familias_data.dpk</MainSource> <MainSource>Familias_data.dpk</MainSource>
@ -46,23 +47,12 @@
<DelphiCompile Include="Familias_data.dpk"> <DelphiCompile Include="Familias_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Plugin\ApplicationBase.dcp" /> <DCCReference Include="..\..\..\Base\ApplicationBase.dcp" />
<DCCReference Include="..\Plugin\Base.dcp" /> <DCCReference Include="..\..\..\Base\Base.dcp" />
<DCCReference Include="..\Plugin\dbrtl.dcp" /> <DCCReference Include="..\..\..\Base\Familias_model.dcp" />
<DCCReference Include="..\Plugin\dsnap.dcp" /> <DCCReference Include="..\..\..\Base\GUIBase.dcp" />
<DCCReference Include="..\Plugin\Familias_model.dcp" /> <DCCReference Include="..\..\..\Base\rtl.dcp" />
<DCCReference Include="..\Plugin\GApplicationBase.dcp" /> <DCCReference Include="..\..\..\Base\vcl.dcp" />
<DCCReference Include="..\Plugin\GUApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBaApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBasApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBase.ApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBase.dcp" />
<DCCReference Include="..\Plugin\GUIBaseApplicationBase.dcp" />
<DCCReference Include="..\Plugin\rtl.dcp" />
<DCCReference Include="..\Plugin\vcl.dcp" />
<DCCReference Include="..\Plugin\vcldb.dcp" />
<DCCReference Include="uDataModuleFamilias.pas"> <DCCReference Include="uDataModuleFamilias.pas">
<Form>DataModuleFamilias</Form> <Form>DataModuleFamilias</Form>
</DCCReference> </DCCReference>

BIN
Source/Modulos/Familias/Data/Familias_data.res
View File

Binary file not shown.

7
Source/Modulos/Familias/Data/uDataModuleFamilias.dfm
View File

@ -1,8 +1,7 @@
object DataModuleFamilias: TDataModuleFamilias inherited DataModuleFamilias: TDataModuleFamilias
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate OnCreate = DAClientDataModuleCreate
Height = 176 Height = 195
Width = 361 Width = 390
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel Channel = dmConexion.ROChannel

4
Source/Modulos/Familias/Data/uDataModuleFamilias.pas
View File

@ -5,10 +5,10 @@ interface
uses uses
SysUtils, Classes, DB, uIDataModuleFamilias, uBizFamilias, uDAInterfaces, uDADataTable, SysUtils, Classes, DB, uIDataModuleFamilias, uBizFamilias, uDAInterfaces, uDADataTable,
uDAScriptingProvider, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, uDAScriptingProvider, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
uDARemoteDataAdapter, uROClient, uRORemoteService; uDARemoteDataAdapter, uROClient, uRORemoteService, uDataModuleBase;
type type
TDataModuleFamilias = class(TDataModule, IDataModuleFamilias) TDataModuleFamilias = class(TDataModuleBase, IDataModuleFamilias)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
rda_Familias: TDARemoteDataAdapter; rda_Familias: TDARemoteDataAdapter;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;

4
Source/Modulos/Familias/Model/schFamiliasClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schFamiliasClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable;
const const
{ Data table rules ids { Data table rules ids
@ -34,7 +34,7 @@ type
end; end;
{ TFamiliasDataTableRules } { TFamiliasDataTableRules }
TFamiliasDataTableRules = class(TDADataTableRules, IFamilias) TFamiliasDataTableRules = class(TIntfObjectDADataTableRules, IFamilias)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

5
Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
View File

@ -5,8 +5,7 @@ interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase, Classes, SysUtils, uDADataTable, uControllerBase,
uIDataModuleFormasPago, uBizFormasPago, uFormasPagoPlazosController; uBizFormasPago, uFormasPagoPlazosController, uIDataModuleFormasPago;
type type
IFormasPagoController = interface(IObservador) IFormasPagoController = interface(IObservador)
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
@ -141,7 +140,7 @@ end;
destructor TFormasPagoController.Destroy; destructor TFormasPagoController.Destroy;
begin begin
FDataModule := NIL; FDataModule:= NIL;
FPlazosController := NIL; FPlazosController := NIL;
inherited; inherited;
end; end;

3
Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas
View File

@ -5,7 +5,6 @@ interface
uses uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizFormasPago, uBizFormasPagoPlazos, uIDataModuleFormasPago; uBizFormasPago, uBizFormasPagoPlazos, uIDataModuleFormasPago;
type type
IFormasPagoPlazosController = interface IFormasPagoPlazosController = interface
['{3FCE2A31-9783-45F9-96D6-1157165AB8DB}'] ['{3FCE2A31-9783-45F9-96D6-1157165AB8DB}']
@ -24,7 +23,7 @@ implementation
{ TFormasPagoPlazosController } { TFormasPagoPlazosController }
uses uses
uDataModuleFormasPago, uEditorRegistryUtils, uEditorRegistryUtils, uDataModuleFormasPago,
cxControls, schFormasPagoClient_Intf; cxControls, schFormasPagoClient_Intf;
constructor TFormasPagoPlazosController.Create; constructor TFormasPagoPlazosController.Create;

8
Source/Modulos/Formas de pago/Data/FormasPago_data.dpk
View File

@ -31,7 +31,13 @@ requires
Base, Base,
GUIBase, GUIBase,
ApplicationBase, ApplicationBase,
FormasPago_model; FormasPago_model,
dbrtl,
RemObjects_Core_D10,
DataAbstract_Core_D10,
vcldb,
dsnap,
adortl;
contains contains
uDataModuleFormasPago in 'uDataModuleFormasPago.pas' {DataModuleFormasPago}; uDataModuleFormasPago in 'uDataModuleFormasPago.pas' {DataModuleFormasPago};

22
Source/Modulos/Formas de pago/Data/FormasPago_data.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> <PropertyGroup>
<ProjectGuid>{c8118762-09b6-432f-ba26-058fa36c39d9}</ProjectGuid> <ProjectGuid>{c8118762-09b6-432f-ba26-058fa36c39d9}</ProjectGuid>
<MainSource>FormasPago_data.dpk</MainSource> <MainSource>FormasPago_data.dpk</MainSource>
@ -47,18 +48,23 @@
<DelphiCompile Include="FormasPago_data.dpk"> <DelphiCompile Include="FormasPago_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\..\..\Base\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\..\..\Base\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" /> <DCCReference Include="..\..\..\Base\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\..\Base\DataAbstract_Core_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\..\..\Base\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\..\..\Base\dsnap.dcp" />
<DCCReference Include="..\..\..\Base\FormasPago_model.dcp" />
<DCCReference Include="..\..\..\Base\GUIBase.dcp" />
<DCCReference Include="..\..\..\Base\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\..\..\Base\rtl.dcp" />
<DCCReference Include="..\..\..\Base\vcl.dcp" />
<DCCReference Include="..\..\..\Base\vcldb.dcp" />
<DCCReference Include="uDataModuleFormasPago.pas"> <DCCReference Include="uDataModuleFormasPago.pas">
<Form>DataModuleFormasPago</Form> <Form>DataModuleFormasPago</Form>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

7
Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm
View File

@ -1,8 +1,7 @@
object DataModuleFormasPago: TDataModuleFormasPago inherited DataModuleFormasPago: TDataModuleFormasPago
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate OnCreate = DAClientDataModuleCreate
Height = 251 Height = 264
Width = 445 Width = 483
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel Channel = dmConexion.ROChannel

13
Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.pas
View File

@ -6,13 +6,13 @@ uses
SysUtils, Classes, DB, uDADataTable, uDABINAdapter, SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
uRORemoteService, uROClient, uROBinMessage, uRORemoteService, uROClient, uROBinMessage,
uDADesigntimeCall, uDADesigntimeCall, uControllerBase,
uIDataModuleFormasPago, uBizFormasPago, uBizFormasPagoPlazos, uBizFormasPago, uBizFormasPagoPlazos,
uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest, uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest,
uDABin2DataStreamer, uDAMemDataTable; uDABin2DataStreamer, uDAMemDataTable, uDataModuleB,
uIDataModuleFormasPago, uDataModuleBase;
type type
TDataModuleFormasPago = class(TDataModule, IDataModuleFormasPago) TDataModuleFormasPago = class(TDataModuleBase, IDataModuleFormasPago)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
rda_FormasPago: TDARemoteDataAdapter; rda_FormasPago: TDARemoteDataAdapter;
@ -71,7 +71,7 @@ begin
AFormaPago := CloneDataTable(tbl_FormasPago); AFormaPago := CloneDataTable(tbl_FormasPago);
AFormaPago.BusinessRulesID := BIZ_CLIENT_FORMAPAGO; AFormaPago.BusinessRulesID := BIZ_CLIENT_FORMAPAGO;
with TBizFormaPago(AFormaPago.BusinessEventsObj) do with TBizFormaPago(AFormaPago.BusinessEventsObj) do
Plazos := _GetPlazos; Plazos := _GetPlazos;
Result := (AFormaPago as IBizFormaPago); Result := (AFormaPago as IBizFormaPago);
finally finally
@ -79,5 +79,4 @@ begin
end; end;
end; end;
end. end.

2
Source/Modulos/Formas de pago/Model/Data/uIDataModuleFormasPago.pas
View File

@ -6,7 +6,7 @@ uses
uBizFormasPago; uBizFormasPago;
type type
IDataModuleFormasPago = interface IDataModuleFormasPago = interface(IInterface)
['{CC6A63E1-2AF2-40E5-B6DC-46CC1549AA56}'] ['{CC6A63E1-2AF2-40E5-B6DC-46CC1549AA56}']
function GetItems: IBizFormaPago; function GetItems: IBizFormaPago;
end; end;

4
Source/Modulos/Formas de pago/Model/FormasPago_model.dpk
View File

@ -32,10 +32,10 @@ requires
ApplicationBase; ApplicationBase;
contains contains
uIDataModuleFormasPago in 'Data\uIDataModuleFormasPago.pas',
uBizFormasPago in 'uBizFormasPago.pas', uBizFormasPago in 'uBizFormasPago.pas',
uBizFormasPagoPlazos in 'uBizFormasPagoPlazos.pas', uBizFormasPagoPlazos in 'uBizFormasPagoPlazos.pas',
schFormasPagoClient_Intf in 'schFormasPagoClient_Intf.pas', schFormasPagoClient_Intf in 'schFormasPagoClient_Intf.pas',
schFormasPagoServer_Intf in 'schFormasPagoServer_Intf.pas'; schFormasPagoServer_Intf in 'schFormasPagoServer_Intf.pas',
uIDataModuleFormasPago in 'Data\uIDataModuleFormasPago.pas';
end. end.

10
Source/Modulos/Formas de pago/Model/FormasPago_model.dproj
View File

@ -47,12 +47,12 @@
<DelphiCompile Include="FormasPago_model.dpk"> <DelphiCompile Include="FormasPago_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="Data\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="Data\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="Data\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="Data\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="Data\uIDataModuleFormasPago.pas" /> <DCCReference Include="Data\uIDataModuleFormasPago.pas" />
<DCCReference Include="Data\vcl.dcp" />
<DCCReference Include="schFormasPagoClient_Intf.pas" /> <DCCReference Include="schFormasPagoClient_Intf.pas" />
<DCCReference Include="schFormasPagoServer_Intf.pas" /> <DCCReference Include="schFormasPagoServer_Intf.pas" />
<DCCReference Include="uBizFormasPago.pas" /> <DCCReference Include="uBizFormasPago.pas" />

6
Source/Modulos/Formas de pago/Model/schFormasPagoClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schFormasPagoClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -107,7 +107,7 @@ type
end; end;
{ TFormasPagoDataTableRules } { TFormasPagoDataTableRules }
TFormasPagoDataTableRules = class(TDADataTableRules, IFormasPago) TFormasPagoDataTableRules = class(TIntfObjectDADataTableRules, IFormasPago)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -202,7 +202,7 @@ type
end; end;
{ TFormasPagoPlazosDataTableRules } { TFormasPagoPlazosDataTableRules }
TFormasPagoPlazosDataTableRules = class(TDADataTableRules, IFormasPagoPlazos) TFormasPagoPlazosDataTableRules = class(TIntfObjectDADataTableRules, IFormasPagoPlazos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

7
Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm
View File

@ -1,8 +1,7 @@
object DataModuleTiposIVA: TDataModuleTiposIVA inherited DataModuleTiposIVA: TDataModuleTiposIVA
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate OnCreate = DAClientDataModuleCreate
Height = 173 Height = 248
Width = 378 Width = 489
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel Channel = dmConexion.ROChannel

5
Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas
View File

@ -32,10 +32,11 @@ uses
uDADesigntimeCall, uDADesigntimeCall,
uIDataModuleTiposIVA, uBizTiposIVA, uDADataStreamer, uDARemoteDataAdapter, uIDataModuleTiposIVA, uBizTiposIVA, uDADataStreamer, uDARemoteDataAdapter,
uDAInterfaces, uRODynamicRequest, uDABin2DataStreamer, uDAMemDataTable; uDAInterfaces, uRODynamicRequest, uDABin2DataStreamer, uDAMemDataTable,
uDataModuleBase;
type type
TDataModuleTiposIVA = class(TDataModule, IDataModuleTiposIVA) TDataModuleTiposIVA = class(TDataModuleBase, IDataModuleTiposIVA)
RORemoteService: TRORemoteService; RORemoteService: TRORemoteService;
rda_TiposIVA: TDARemoteDataAdapter; rda_TiposIVA: TDARemoteDataAdapter;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;

4
Source/Modulos/Tipos de IVA/Model/schTiposIVAClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schTiposIVAClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -69,7 +69,7 @@ type
end; end;
{ TTiposIVADataTableRules } { TTiposIVADataTableRules }
TTiposIVADataTableRules = class(TDADataTableRules, ITiposIVA) TTiposIVADataTableRules = class(TIntfObjectDADataTableRules, ITiposIVA)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

3
Source/Servidor/FactuGES_Server.dpr
View File

@ -45,7 +45,8 @@ uses
schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas', schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas', schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas', schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas'; schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schBase_Intf in '..\Base\schBase_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

205
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,106 +1,107 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</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">3.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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</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">3.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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
</DCCReference> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<Form>srvConfiguracion</Form> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
</DCCReference> <Form>srvConfiguracion</Form>
<DCCReference Include="Configuracion\uConexionBD.pas"> </DCCReference>
<Form>frConexionBD</Form> <DCCReference Include="Configuracion\uConexionBD.pas">
</DCCReference> <Form>frConexionBD</Form>
<DCCReference Include="Configuracion\uConfGeneral.pas"> </DCCReference>
<Form>frConfGeneral</Form> <DCCReference Include="Configuracion\uConfGeneral.pas">
</DCCReference> <Form>frConfGeneral</Form>
<DCCReference Include="Configuracion\uConfiguracion.pas"> </DCCReference>
<Form>fConfiguracion</Form> <DCCReference Include="Configuracion\uConfiguracion.pas">
</DCCReference> <Form>fConfiguracion</Form>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> </DCCReference>
<Form>FrameConfiguracion</Form> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
</DCCReference> <Form>FrameConfiguracion</Form>
<DCCReference Include="srvLogin_Impl.pas"> </DCCReference>
<Form>srvLogin</Form> <DCCReference Include="srvLogin_Impl.pas">
</DCCReference> <Form>srvLogin</Form>
<DCCReference Include="uAcercaDe.pas"> </DCCReference>
<Form>fAcercaDe</Form> <DCCReference Include="uAcercaDe.pas">
</DCCReference> <Form>fAcercaDe</Form>
<DCCReference Include="uDataModuleServer.pas"> </DCCReference>
<Form>dmServer</Form> <DCCReference Include="uDataModuleServer.pas">
</DCCReference> <Form>dmServer</Form>
<DCCReference Include="uServerMainForm.pas"> </DCCReference>
<Form>fServerForm</Form> <DCCReference Include="uServerMainForm.pas">
</DCCReference> <Form>fServerForm</Form>
<DCCReference Include="Utiles\RegExpr.pas" /> </DCCReference>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
</ItemGroup> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2095
Source/Servidor/FactuGES_Server.drc
View File

File diff suppressed because it is too large Load Diff

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "3.0.0.0\0" VALUE "FileVersion", "3.0.0.0\0"
VALUE "ProductVersion", "3.0.0.0\0" VALUE "ProductVersion", "3.0.0.0\0"
VALUE "CompileDate", "lunes, 22 de octubre de 2007 13:52\0" VALUE "CompileDate", "miércoles, 24 de octubre de 2007 13:43\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"