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>
</Object>
<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 name="ActionTextColor" type="Cardinal">0</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>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Establecer ruta del proyecto]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="EnableTimeout" type="Boolean">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
@ -157,11 +159,13 @@
<CustomProperty name="CaseSensitive" type="ptBoolean">False</CustomProperty>
<CustomProperty name="ReplaceAll" type="ptBoolean">False</CustomProperty>
</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>
<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="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="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
@ -174,6 +178,37 @@
<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="{2BFAB727-C6E9-4466-9D20-379E17575DCD}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
@ -314,6 +349,163 @@
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</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>
<Property MultiValue="0" name="ActionDescription" type="string">#</Property>
<Property name="ActionTextColor" type="Cardinal">16711680</Property>
@ -348,56 +540,6 @@
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</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>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compilar el servidor]]>
</Property>

2
Source/ApplicationBase/ApplicationBase.dpk
View File

@ -56,7 +56,7 @@ requires
contains
uFactuGES_App in 'uFactuGES_App.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',
uUsuariosController in 'Usuarios\Controller\uUsuariosController.pas',
uBizEmpresasDatosBancarios in 'Empresas\Model\uBizEmpresasDatosBancarios.pas',

56
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -38,6 +38,8 @@
<DCC_Define>DEBUG</DCC_Define>
<DCC_Optimize>False</DCC_Optimize>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
@ -58,32 +60,32 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.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\cxLibraryD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.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\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.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\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.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\rtl.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\vclx.dcp" />
<DCCReference Include="..\Base\Base.dcp" />
<DCCReference Include="..\Base\cxDataD10.dcp" />
<DCCReference Include="..\Base\cxEditorsD10.dcp" />
<DCCReference Include="..\Base\cxLibraryD10.dcp" />
<DCCReference Include="..\Base\dbrtl.dcp" />
<DCCReference Include="..\Base\dxThemeD10.dcp" />
<DCCReference Include="..\Base\GUIBase.dcp" />
<DCCReference Include="..\Base\Jcl.dcp" />
<DCCReference Include="..\Base\JclVcl.dcp" />
<DCCReference Include="..\Base\JvCoreD11R.dcp" />
<DCCReference Include="..\Base\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Base\JvJansD11R.dcp" />
<DCCReference Include="..\Base\JvMMD11R.dcp" />
<DCCReference Include="..\Base\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Base\JvSystemD11R.dcp" />
<DCCReference Include="..\Base\pckUCDataConnector.dcp" />
<DCCReference Include="..\Base\pckUserControl_RT.dcp" />
<DCCReference Include="..\Base\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Base\PngComponentsD10.dcp" />
<DCCReference Include="..\Base\PNG_D10.dcp" />
<DCCReference Include="..\Base\rtl.dcp" />
<DCCReference Include="..\Base\vcl.dcp" />
<DCCReference Include="..\Base\vclactnband.dcp" />
<DCCReference Include="..\Base\vcldb.dcp" />
<DCCReference Include="..\Base\vcljpg.dcp" />
<DCCReference Include="..\Base\vclx.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
@ -106,7 +108,7 @@
<DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
<DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" />
<DCCReference Include="Usuarios\Data\uDataModuleUsuarios.pas">
<Form>DataModuleUsuariosObj</Form>
<Form>DataModuleUsuarios</Form>
</DCCReference>
<DCCReference Include="Usuarios\Data\uUCROConn.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;
begin
FDataModule := TDataModuleEmpresas.Create;
FDataModule := TDataModuleEmpresas.Create(Nil);
end;
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
OnCreate = DAClientDataModuleCreate
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,
uIDataModuleEmpresas, uBizEmpresas, uBizEmpresasDatosBancarios,
uDARemoteDataAdapter, uDADataStreamer, uRODynamicRequest, uDAInterfaces,
uDAMemDataTable, uDABin2DataStreamer, uIntegerListUtils, uControllerBase;
uDAMemDataTable, uDABin2DataStreamer, uIntegerListUtils, uDataModuleBase;
type
TDataModuleEmpresasObj = class(TDataModule)
TDataModuleEmpresas = class(TDataModuleBase, IDataModuleEmpresas)
RORemoteService: TRORemoteService;
rda_Empresas: TDARemoteDataAdapter;
Bin2DataStreamer: TDABin2DataStreamer;
@ -29,18 +29,6 @@ type
function GetItems : IBizEmpresa;
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
{$R *.DFM}
@ -49,18 +37,18 @@ uses
uDataModuleConexion, uDataTableUtils, Dialogs,
FactuGES_Intf, schEmpresasClient_Intf, cxControls;
procedure TDataModuleEmpresasObj.DAClientDataModuleCreate(Sender: TObject);
procedure TDataModuleEmpresas.DAClientDataModuleCreate(Sender: TObject);
begin
RORemoteService.Channel := dmConexion.Channel;
RORemoteService.Message := dmConexion.Message;
end;
procedure TDataModuleEmpresasObj.DataModuleDestroy(Sender: TObject);
procedure TDataModuleEmpresas.DataModuleDestroy(Sender: TObject);
begin
ShowMessage('TDataModuleEmpresasObj.Destroy');
ShowMessage('TDataModuleEmpresas.Destroy');
end;
function TDataModuleEmpresasObj.GetItem(const ID: Integer): IBizEmpresa;
function TDataModuleEmpresas.GetItem(const ID: Integer): IBizEmpresa;
begin
ShowHourglassCursor;
try
@ -78,7 +66,7 @@ begin
end;
end;
function TDataModuleEmpresasObj.GetItems: IBizEmpresa;
function TDataModuleEmpresas.GetItems: IBizEmpresa;
var
AEmpresa : TDAMemDataTable;
begin
@ -98,12 +86,12 @@ begin
end;
end;
function TDataModuleEmpresasObj.NewItem: IBizEmpresa;
function TDataModuleEmpresas.NewItem: IBizEmpresa;
begin
Result := GetItem(ID_NULO)
end;
function TDataModuleEmpresasObj._GetDatosBancarios: IBizEmpresasDatosBancarios;
function TDataModuleEmpresas._GetDatosBancarios: IBizEmpresasDatosBancarios;
var
ADatosBancarios : TDAMemDataTable;
begin
@ -123,32 +111,4 @@ begin
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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

4
Source/ApplicationBase/uFactuGES_App.pas
View File

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

6
Source/Base/Base.dpk
View File

@ -81,7 +81,7 @@ contains
uDataTableUtils in 'Utiles\uDataTableUtils.pas',
uDBSelectionListUtils in 'Utiles\uDBSelectionListUtils.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},
uConfigurarConexion in 'Conexion\uConfigurarConexion.pas' {fConfigurarConexion: TForm},
uSistemaFunc in 'Utiles\uSistemaFunc.pas',
@ -98,8 +98,10 @@ contains
uPasswordUtils in 'Utiles\uPasswordUtils.pas',
uInfoProjectUtils in 'Utiles\uInfoProjectUtils.pas',
uInformeRegistryUtils in 'Utiles\ClassRegistry\uInformeRegistryUtils.pas',
uCalculosUtils in 'Utiles\uCalculosUtils.pas',
uControllerBase in 'Controladores\uControllerBase.pas',
uControllerDetallesBase in 'Controladores\uControllerDetallesBase.pas',
uCalculosUtils in 'Utiles\uCalculosUtils.pas';
schBase_Intf in 'schBase_Intf.pas',
uDataModuleBase in 'uDataModuleBase.pas' {DataModuleBase: TDataModule};
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_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_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -57,55 +66,7 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\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="adortl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
</DCCReference>
@ -117,7 +78,52 @@
</DCCReference>
<DCCReference Include="Controladores\uControllerBase.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">
<Form>DataModulBase</Form>
</DCCReference>
<DCCReference Include="uDMBase.pas">
<Form>dmBase</Form>
</DCCReference>
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
@ -136,6 +142,13 @@
<DCCReference Include="Utiles\uNumUtils.pas" />
<DCCReference Include="Utiles\uPasswordUtils.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>
</Project>
<!-- EurekaLog First Line

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

@ -40,7 +40,7 @@ implementation
uses
Windows, WinInet, cxControls, uConfigurarConexion, Dialogs, Controls,
uDataModuleBase, FactuGES_Intf;
uDMBase, FactuGES_Intf;
const
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
uses
Classes, uDADataTable;
Classes, uDADataTable, Forms;
type
ISujeto = interface;
@ -39,6 +39,10 @@ type
class function NewInstance: TObject; override;
property RefCount: Integer read FRefCount;
end;
TMiInterfacedObject2 = class(TDataModule) //, IInterface)
end;
{ ***************************************************************************}
@ -124,13 +128,13 @@ end;
function TMiInterfacedObject._AddRef: Integer;
begin
Result := InterlockedIncrement(FRefCount);
ShowMessage('_AddRef: ' + ClassName + ' - RefCount: ' + IntToStr(FRefCount));
// ShowMessage('_AddRef: ' + ClassName + ' - RefCount: ' + IntToStr(FRefCount));
end;
function TMiInterfacedObject._Release: Integer;
begin
Result := InterlockedDecrement(FRefCount);
ShowMessage('_Release: ' + ClassName + ' - RefCount: ' + IntToStr(FRefCount));
// ShowMessage('_Release: ' + ClassName + ' - RefCount: ' + IntToStr(FRefCount));
if Result = 0 then
Destroy;
end;
@ -192,4 +196,7 @@ begin
//
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
uses
Controls, SyncObjs, PngImageList, JvComponent, JvNavigationPane, TBXSwitcher,
TBXOffice2003Theme, Classes, ImgList,
DataAbstract4_Intf, uDADataTable, JvAppStorage, JvAppRegistryStorage, cxintl,
JvComponentBase, cxIntlPrintSys3, JvLogFile;
Classes;
type
TdmBase = class(TDataModule)
SmallImages: TPngImageList;
StyleManager: TJvNavPaneStyleManager;
TBXSwitcher: TTBXSwitcher;
cxIntl: TcxIntl;
cxIntlPrintSys31: TcxIntlPrintSys3;
JvLogFile: TJvLogFile;
procedure DAClientDataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
TDataModuleBase = class(TDataModule)
private
FOnThemeChange: TNotifyEvent;
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;
FRefCount: Integer;
var
dmBase: TdmBase = nil;
protected
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
{$R *.DFM}
uses
uDataModuleConexion, Dialogs, TBX, TBXThemes, Forms, Windows,
JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion;
// Set an implicit refcount so that refcounting
// during construction won't destroy the object.
{
*********************************** TdmBase ************************************
}
procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
function TDataModuleBase.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
IniciarLog;
TBXSwitcher.OnThemeChange := OnTBXThemeChange;
TBXSetTheme('Office2003');
LeerConfiguracion;
if GetInterface(IID, Obj)
then Result := 0
else Result := E_NOINTERFACE;
end;
procedure TdmBase.IniciarLog;
function TDataModuleBase._AddRef: Integer;
begin
FEscribirLog := TCriticalSection.Create;
JvLogFile.Active := False;
JvLogFile.FileName := ExtractFilePath(Application.ExeName) + 'ClientLog.txt';
JvLogFile.AutoSave := True;
JvLogFile.Active := True;
JvLogFile.Clear;
Inc(fRefCount);
Result := fRefCount;
end;
procedure TdmBase.InitStyleManager;
function TDataModuleBase._Release: Integer;
begin
if not USE_THEMES then
begin
TBXSwitcher.EnableXPStyles := False;
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;
Dec(fRefCount);
Result := fRefCount;
if fRefCount = 0 then Destroy;
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.

8
Source/Cliente/FactuGES.dpr
View File

@ -1,12 +1,12 @@
program FactuGES;
uses
ExceptionLog,
Forms,
Windows,
SysUtils,
uFactuGES_App,
Dialogs,
uDataModuleBase,
uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal},
uMenuUtils in 'Utiles\uMenuUtils.pas',
uSplash in 'uSplash.pas' {SplashScreen},
@ -22,9 +22,9 @@ uses
begin
Application.Initialize;
Application.ShowMainForm := False;
ReportMemoryLeaksOnShutdown := True;
// ReportMemoryLeaksOnShutdown := True;
// ¡¡¡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.
@ -34,6 +34,6 @@ begin
uBootStrap.Run; // <- Aquí dentro esta Application.Run
uBootStrap.Terminate;
//Application.Terminate; //<- No descomentar para así ver los Memory Leaks
Application.Terminate; //<- No descomentar para así ver los Memory Leaks
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_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_Define>DEBUG;</DCC_Define>
<DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
@ -88,7 +90,7 @@
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
Activate=1
Activate Handle=1
Save Log File=1
Foreground Tab=0
@ -242,7 +244,7 @@ boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=1
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loHideBorlandLeaks=0
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1

1
Source/Cliente/FactuGES.drc
View File

@ -12,6 +12,7 @@ STRINGTABLE
BEGIN
END
/* C:\Archivos de programa\EurekaLog 6\Delphi11\DIALOG.RES */
/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
/* C:\Codigo Tecsitel\Lib\jvcl\JvXPCore.res */
/* 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
uses
uDataModuleBase, uDataModuleConexion, uDataModuleConfiguracion,
uDMBase, uDataModuleConexion, uDataModuleConfiguracion,
uMainMenuController, uNavPaneController, uPantallaPrincipal;
procedure DoAppLoadModules;
@ -48,7 +48,6 @@ begin
NavPaneController := TNavPaneController.Create;
MainMenuController := TMainMenuController.Create;
end;
procedure Run;

2
Source/Cliente/uNavPaneController.pas
View File

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

30
Source/Cliente/uPantallaPrincipal.pas
View File

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

32
Source/GUIBase/GUIBase.dproj
View File

@ -57,22 +57,22 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGridLnkD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\Base.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dbrtl.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxBarD10.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxBarExtItemsD10.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxLayoutControlD10.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxPScxCommonD10.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxPScxGridLnkD10.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\dxPsPrVwAdvD10.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\frx10.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\frxe10.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\fs10.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Archivos de programa\Automated QA\AQtime 5\Bin\JvCtrlsD11R.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="C:\Archivos de programa\Automated QA\AQtime 5\Bin\vcldb.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</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}
uses
uDataModuleBase, JvNavigationPane;
uDMBase, JvNavigationPane;
procedure TfDialogBase.FormShow(Sender: TObject);
begin

2
Source/GUIBase/uEditorBase.pas
View File

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

2
Source/GUIBase/uEditorGridBase.pas
View File

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

6
Source/GUIBase/uEditorItem.dfm
View File

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

2
Source/GUIBase/uEditorItem.pas
View File

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

34
Source/GUIBase/uViewDetallesBase.dfm
View File

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

2
Source/GUIBase/uViewDetallesBase.pas
View File

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

2
Source/GUIBase/uViewDetallesGenerico.pas
View File

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

2
Source/GUIBase/uViewGrid.dfm
View File

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

2
Source/GUIBase/uViewGrid.pas
View File

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

4
Source/GUIBase/uViewGrid2Niveles.pas
View File

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

2
Source/GUIBase/uViewGridBase.pas
View File

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

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

@ -34,7 +34,7 @@ requires
contains
uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule},
uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes : TDAClientDataModule},
uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes: TDAClientDataModule},
uDataModuleProveedores in 'uDataModuleProveedores.pas' {DataModuleProveedores: 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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\..\..\Base\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Base\Base.dcp" />
<DCCReference Include="..\..\..\Base\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Base\GUIBase.dcp" />
<DCCReference Include="..\..\..\Base\rtl.dcp" />
<DCCReference Include="..\..\..\Base\vcl.dcp" />
<DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes </Form>
<Form>DataModuleClientes</Form>
</DCCReference>
<DCCReference Include="uDataModuleContactos.pas">
<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,
uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable,
uDABin2DataStreamer;
uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios,
uIDataModuleContactos;
type
TDataModuleClientes = class(TDataModuleContactos, IDataModuleClientes)
@ -35,7 +36,7 @@ implementation
{$R *.dfm}
uses
FactuGES_Intf, uBizContactosDatosBancarios, cxControls, schContactosClient_Intf,
FactuGES_Intf, cxControls, schContactosClient_Intf,
uDataTableUtils, Dialogs, DataAbstract4_Intf;
{ TdmClientes }

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

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

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

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

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

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

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

@ -3,7 +3,7 @@ unit schContactosClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -574,7 +574,7 @@ type
end;
{ TContactosDataTableRules }
TContactosDataTableRules = class(TDADataTableRules, IContactos)
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -742,7 +742,7 @@ type
end;
{ TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
private
protected
{ Property getters and setters }
@ -825,7 +825,7 @@ type
end;
{ TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
private
protected
{ Property getters and setters }
@ -1105,7 +1105,7 @@ type
end;
{ TClientesDataTableRules }
TClientesDataTableRules = class(TDADataTableRules, IClientes)
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1530,7 +1530,7 @@ type
end;
{ TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1927,7 +1927,7 @@ type
end;
{ TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
private
f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings;
@ -2230,7 +2230,7 @@ type
end;
{ TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2380,7 +2380,7 @@ type
end;
{ TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
private
protected
{ Property getters and setters }
@ -2439,7 +2439,7 @@ type
end;
{ TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
private
protected
{ Property getters and setters }
@ -2474,7 +2474,7 @@ type
end;
{ TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
private
protected
{ Property getters and setters }
@ -2628,7 +2628,7 @@ type
end;
{ TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
private
f_NOTAS: IROStrings;
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.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">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>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Contactos_plugin.dpk">
<MainSource>MainSource</MainSource>
</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">
<Form>PluginContactos</Form>
</DCCReference>

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

@ -72,9 +72,14 @@ var
AClientesController : IClientesController;
AClientes : IBizCliente;
begin
try
AClientesController := TClientesController.Create;
AClientes := (AClientesController.BuscarTodos as IBizCliente);
AClientesController.VerTodos(AClientes);
finally
AClientes := Nil;
AClientesController := Nil;
end;
end;
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
uses
uGridUtils, uDataModuleContactos, uDataModuleBase, uEditorGridBase, uBizContactos,
uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils,
uGruposClienteController, uBizGruposCliente, uClientesController;

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

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

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

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

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

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorBase, uEditorGridBase, ToolWin, ComCtrls, JvExControls, JvComponent,
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,
JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
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>
<ProjectGuid>{28b6d86e-fac2-4bfd-97d9-fcea860835eb}</ProjectGuid>
<MainSource>Familias_data.dpk</MainSource>
@ -46,23 +47,12 @@
<DelphiCompile Include="Familias_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Plugin\ApplicationBase.dcp" />
<DCCReference Include="..\Plugin\Base.dcp" />
<DCCReference Include="..\Plugin\dbrtl.dcp" />
<DCCReference Include="..\Plugin\dsnap.dcp" />
<DCCReference Include="..\Plugin\Familias_model.dcp" />
<DCCReference Include="..\Plugin\GApplicationBase.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="..\..\..\Base\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Base\Base.dcp" />
<DCCReference Include="..\..\..\Base\Familias_model.dcp" />
<DCCReference Include="..\..\..\Base\GUIBase.dcp" />
<DCCReference Include="..\..\..\Base\rtl.dcp" />
<DCCReference Include="..\..\..\Base\vcl.dcp" />
<DCCReference Include="uDataModuleFamilias.pas">
<Form>DataModuleFamilias</Form>
</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
OldCreateOrder = True
inherited DataModuleFamilias: TDataModuleFamilias
OnCreate = DAClientDataModuleCreate
Height = 176
Width = 361
Height = 195
Width = 390
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -32,10 +32,10 @@ requires
ApplicationBase;
contains
uIDataModuleFormasPago in 'Data\uIDataModuleFormasPago.pas',
uBizFormasPago in 'uBizFormasPago.pas',
uBizFormasPagoPlazos in 'uBizFormasPagoPlazos.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.

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

@ -47,12 +47,12 @@
<DelphiCompile Include="FormasPago_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="Data\ApplicationBase.dcp" />
<DCCReference Include="Data\Base.dcp" />
<DCCReference Include="Data\GUIBase.dcp" />
<DCCReference Include="Data\rtl.dcp" />
<DCCReference Include="Data\uIDataModuleFormasPago.pas" />
<DCCReference Include="Data\vcl.dcp" />
<DCCReference Include="schFormasPagoClient_Intf.pas" />
<DCCReference Include="schFormasPagoServer_Intf.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
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -107,7 +107,7 @@ type
end;
{ TFormasPagoDataTableRules }
TFormasPagoDataTableRules = class(TDADataTableRules, IFormasPago)
TFormasPagoDataTableRules = class(TIntfObjectDADataTableRules, IFormasPago)
private
protected
{ Property getters and setters }
@ -202,7 +202,7 @@ type
end;
{ TFormasPagoPlazosDataTableRules }
TFormasPagoPlazosDataTableRules = class(TDADataTableRules, IFormasPagoPlazos)
TFormasPagoPlazosDataTableRules = class(TIntfObjectDADataTableRules, IFormasPagoPlazos)
private
protected
{ Property getters and setters }

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

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

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

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

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

@ -3,7 +3,7 @@ unit schTiposIVAClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -69,7 +69,7 @@ type
end;
{ TTiposIVADataTableRules }
TTiposIVADataTableRules = class(TDADataTableRules, ITiposIVA)
TTiposIVADataTableRules = class(TIntfObjectDADataTableRules, ITiposIVA)
private
protected
{ 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',
schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_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 ..\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">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<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>
<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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<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>
<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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[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
VALUE "FileVersion", "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
BLOCK "VarFileInfo"