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

- Controladores: repaso a la visualización de editores => fallo con las llamadas a los 'Release'.

Browse Source 
- Incremento de versión a 1.4.6


git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@771 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-11-13 13:10:32 +00:00
parent 6d104b386c
commit 811bafd58b
68 changed files with 1561 additions and 1861 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -55,10 +55,10 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Cliente\Base.dcp" /> <DCCReference Include="..\Modulos\Obras\Base.dcp" />
<DCCReference Include="..\Cliente\GUIBase.dcp" /> <DCCReference Include="..\Modulos\Obras\GUIBase.dcp" />
<DCCReference Include="..\Cliente\JvJansD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvJansD11R.dcp" />
<DCCReference Include="..\Cliente\PluginSDK_D10R.dcp" /> <DCCReference Include="..\Modulos\Obras\PluginSDK_D10R.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" /> <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" /> <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" /> <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

19
Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
View File

@ -50,17 +50,14 @@ begin
CreateEditor('EditorDatosBancariosEmpresa', IEditorDatosBancariosEmpresa, AEditor); CreateEditor('EditorDatosBancariosEmpresa', IEditorDatosBancariosEmpresa, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
begin begin
with AEditor do try
begin AEditor.DatosBancarios := ADatosBancarios;
try AEditor.Controller := Self;
DatosBancarios := ADatosBancarios; AEditor.ShowModal;
Controller := Self; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
end; end;

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

@ -273,16 +273,13 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorEmpresa', IEditorEmpresa, AEditor); CreateEditor('EditorEmpresa', IEditorEmpresa, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Empresa := AEmpresa;
try AEditor.Controller := Self;
Empresa := AEmpresa; AEditor.ShowModal;
Controller := Self; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;
@ -292,24 +289,16 @@ procedure TEmpresasController.VerTodos(AEmpresas: IBizEmpresa);
begin begin
{ {
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; CreateEditor('EditorEmpresas', IEditorClientes, AEditor);
try if Assigned(AEditor) then
CreateEditor('EditorEmpresas', IEditorClientes, AEditor); try
if Assigned(AEditor) then AEditor.Contactos := AContactos;
with AEditor do AEditor.Controller := Self;
begin AEditor.ShowModal;
try finally
Contactos := AContactos; AEditor.Release;
Controller := Self; AEditor := NIL;
ShowModal; end;
finally
Release;
end;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
} }
end; end;

56
Source/ApplicationBase/Usuarios/Controller/uPerfilesUsuarioController.pas
View File

@ -148,17 +148,14 @@ begin
CreateEditor('EditorPerfilesUsuario', IEditorPerfilesUsuario, AEditor); CreateEditor('EditorPerfilesUsuario', IEditorPerfilesUsuario, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
begin begin
with (AEditor as IEditorPerfilesUsuario) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.PerfilesUsuario := APerfilesUsuario;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
PerfilesUsuario := APerfilesUsuario; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
finally finally
APerfilesUsuario := NIL; APerfilesUsuario := NIL;
@ -178,17 +175,14 @@ begin
FPerfil.Active := True; FPerfil.Active := True;
CreateEditor('EditorPerfilUsuario', IEditorPerfilUsuario, AEditor); CreateEditor('EditorPerfilUsuario', IEditorPerfilUsuario, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorPerfilUsuario) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.PerfilUsuario := FPerfil;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
PerfilUsuario := FPerfil; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
finally finally
FPerfil := NIL; FPerfil := NIL;
end; end;
@ -207,16 +201,14 @@ begin
APerfilesUsuario.Active := True; APerfilesUsuario.Active := True;
CreateEditor('EditorPerfilesUsuario', IEditorPerfilesUsuario, AEditor); CreateEditor('EditorPerfilesUsuario', IEditorPerfilesUsuario, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorPerfilesUsuario) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.PerfilesUsuario := APerfilesUsuario;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
PerfilesUsuario := APerfilesUsuario; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end; end;
finally finally
APerfilesUsuario := NIL; APerfilesUsuario := NIL;

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

@ -303,7 +303,7 @@ end;
function TUsuariosController.CambiarPassword(const AIDUser: Integer) : Boolean; function TUsuariosController.CambiarPassword(const AIDUser: Integer) : Boolean;
var var
AUser : IBizUsuario; AUser : IBizUsuario;
AEditorCambiar : TfEditorCambiarPassword; AEditor : TfEditorCambiarPassword;
begin begin
Result := False; Result := False;
AUser := FDataModule.GetUsuario(AIDUser); AUser := FDataModule.GetUsuario(AIDUser);
@ -311,21 +311,20 @@ begin
begin begin
AUser.Active := True; AUser.Active := True;
AEditorCambiar := TfEditorCambiarPassword.Create(NIL); AEditor := TfEditorCambiarPassword.Create(NIL);
with AEditorCambiar do try
try AEditor.Controller := Self;
Controller := Self; AEditor.Usuario := AUser;
Usuario := AUser; AEditor.CambioObligatorio := False;
CambioObligatorio := False; if (Length(Trim(AUser.PASS)) = 0) then
if (Length(Trim(AUser.PASS)) = 0) then AEditor.EditAtu.Enabled := False;
EditAtu.Enabled := False; if (AEditor.ShowModal = mrOk) then
if (ShowModal = mrOk) then Result := CambiarPassword(AIDUser, AEditor.EditNova.Text);
Result := CambiarPassword(AIDUser, EditNova.Text); finally
finally AEditor.Release;
Release; AUser.Active := False;
AUser.Active := False; AUser := NIL;
AUser := NIL; end;
end;
end; end;
end; end;
@ -761,16 +760,13 @@ begin
CreateEditor('EditorPerfilUsuario', IEditorPerfilUsuario, AEditor); CreateEditor('EditorPerfilUsuario', IEditorPerfilUsuario, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
begin begin
with (AEditor as IEditorPerfilUsuario) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.PerfilUsuario := APerfil;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
PerfilUsuario := APerfil; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;
end; end;
@ -787,16 +783,13 @@ begin
APerfilesUsuario.Active := True; APerfilesUsuario.Active := True;
CreateEditor('EditorPerfilesUsuario', IEditorPerfilesUsuario, AEditor); CreateEditor('EditorPerfilesUsuario', IEditorPerfilesUsuario, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorPerfilesUsuario) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.PerfilesUsuario := APerfilesUsuario;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
PerfilesUsuario := APerfilesUsuario; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
finally finally
APerfilesUsuario := NIL; APerfilesUsuario := NIL;
@ -822,17 +815,14 @@ begin
AUser.Active := True; AUser.Active := True;
CreateEditor('EditorUsuario', IEditorUsuario, AEditor); CreateEditor('EditorUsuario', IEditorUsuario, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorUsuario) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Usuario := AUser;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
Usuario := AUser; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TUsuariosController.VerUsuarios; procedure TUsuariosController.VerUsuarios;
@ -847,17 +837,14 @@ begin
try try
CreateEditor('EditorUsuarios', IEditorUsuarios, AEditor); CreateEditor('EditorUsuarios', IEditorUsuarios, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorUsuarios) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Usuarios := FUsuarios;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
Usuarios := FUsuarios; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
finally finally
FUsuarios := NIL; FUsuarios := NIL;
end; end;
@ -878,16 +865,13 @@ begin
CreateEditor('EditorLogin', IEditorLogin, AEditor); CreateEditor('EditorLogin', IEditorLogin, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try Result := (AEditor.ShowModal = mrOk);
Controller := Self; finally
Result := (AEditor.ShowModal = mrOk); AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TUsuariosController.FiltrarEmpresa(AUsuario: IBizUsuario); procedure TUsuariosController.FiltrarEmpresa(AUsuario: IBizUsuario);

102
Source/Base/Base.dproj
View File

@ -54,57 +54,57 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\adortl.dcp" /> <DCCReference Include="..\Modulos\Obras\adortl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxDataD11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxExportD11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxGridD11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\cxIntl6D11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxIntl6D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Obras\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Obras\dbrtl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Obras\dclIndyCore.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\designide.dcp" /> <DCCReference Include="..\Modulos\Obras\designide.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\dsnap.dcp" /> <DCCReference Include="..\Modulos\Obras\dsnap.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxPSCoreD11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxThemeD11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\GUISDK_D11.dcp" /> <DCCReference Include="..\Modulos\Obras\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Obras\IndyCore.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Obras\IndyProtocols.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Obras\IndySystem.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\Jcl.dcp" /> <DCCReference Include="..\Modulos\Obras\Jcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Obras\JclVcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Obras\JSDialog100.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvCmpD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvDlgsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvMMD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvNetD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Obras\pckMD5.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Obras\pckUCDataConnector.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Obras\pckUserControl_RT.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Obras\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Obras\PNG_D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Obras\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\RemObjects_Indy_D11.dcp" /> <DCCReference Include="..\Modulos\Obras\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\rtl.dcp" /> <DCCReference Include="..\Modulos\Obras\rtl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Obras\TB2k_D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Obras\tbx_d10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\vcl.dcp" /> <DCCReference Include="..\Modulos\Obras\vcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Obras\vclactnband.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\vcldb.dcp" /> <DCCReference Include="..\Modulos\Obras\vcldb.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Obras\vcljpg.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Obras\VclSmp.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\vclx.dcp" /> <DCCReference Include="..\Modulos\Obras\vclx.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\1\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Obras\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/Cliente/FactuGES.dproj
View File

@ -54,7 +54,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">5</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.4.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">6</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.4.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,4,5,0 FILEVERSION 1,4,6,0
PRODUCTVERSION 1,4,5,0 PRODUCTVERSION 1,4,6,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.4.5.0\0" VALUE "FileVersion", "1.4.6.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.4.5.0\0" VALUE "ProductVersion", "1.4.6.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

48
Source/GUIBase/GUIBase.dproj
View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Base.dcp" /> <DCCReference Include="..\Modulos\Obras\Base.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Obras\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Obras\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxComnD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Obras\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frx11.dcp" /> <DCCReference Include="..\Modulos\Obras\frx11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frxe11.dcp" /> <DCCReference Include="..\Modulos\Obras\frxe11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\fs11.dcp" /> <DCCReference Include="..\Modulos\Obras\fs11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Obras\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" /> <DCCReference Include="..\Modulos\Obras\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" /> <DCCReference Include="..\Modulos\Obras\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" /> <DCCReference Include="..\Modulos\Obras\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Obras\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" /> <DCCReference Include="..\Modulos\Obras\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

147
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -572,7 +572,7 @@ end;
procedure TAlbaranesClienteController.Ver(AAlbaran: IBizAlbaranCliente); procedure TAlbaranesClienteController.Ver(AAlbaran: IBizAlbaranCliente);
var var
AEditor : IEditorDBItem; AEditor : IEditorAlbaranCliente;
begin begin
AEditor := NIL; AEditor := NIL;
RecuperarObjetos(AAlbaran); RecuperarObjetos(AAlbaran);
@ -583,28 +583,25 @@ begin
CreateEditor('EditorAlbaranDevCliente', IEditorAlbaranDevCliente, AEditor); CreateEditor('EditorAlbaranDevCliente', IEditorAlbaranDevCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorAlbaranCliente) do try
begin //MODO CONSULTAR
try AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
//MODO CONSULTAR AEditor.Albaran := AAlbaran;
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Albaran := AAlbaran;
if not EsModificable(AAlbaran) then if not EsModificable(AAlbaran) then
begin begin
SetDataTableReadOnly(AAlbaran.DataTable, True); SetDataTableReadOnly(AAlbaran.DataTable, True);
ReadOnly := True; AEditor.ReadOnly := True;
end;
ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if ReadOnly then
SetDataTableReadOnly(AAlbaran.DataTable, False);
finally
Release;
AEditor := NIL;
end; end;
AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if AEditor.ReadOnly then
SetDataTableReadOnly(AAlbaran.DataTable, False);
finally
AEditor.Release;
AEditor := NIL;
end; end;
end; end;
@ -618,15 +615,12 @@ begin
//RecuperarObjetos(AAlbaran); <- No descomentar. No hace falta //RecuperarObjetos(AAlbaran); <- No descomentar. No hace falta
CreateEditor('EditorDireccionEntregaAlbaranCliente', IEditorDireccionEntregaAlbaranCliente, AEditor); CreateEditor('EditorDireccionEntregaAlbaranCliente', IEditorDireccionEntregaAlbaranCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorDireccionEntregaAlbaranCliente) do try
begin AEditor.Albaran := AAlbaran;
try AEditor.ShowModal;
Albaran := AAlbaran; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;
@ -639,28 +633,25 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorAlbaranesCliente', IEditorAlbaranesCliente, AEditor); CreateEditor('EditorAlbaranesCliente', IEditorAlbaranesCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin if not EsCadenaVacia(AWindowCaption) then
try AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText; AEditor.HeaderText := AHeaderText;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
Albaranes := AAlbarans; AEditor.Albaranes := AAlbarans;
MultiSelect := True; AEditor.MultiSelect := True;
if AVerModal then if AVerModal then
ShowModal AEditor.ShowModal
else else
ShowEmbedded; AEditor.ShowEmbedded;
finally finally
if AVerModal then if AVerModal then
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end;
end; end;
end; end;
@ -673,28 +664,25 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorAlbaranesDevCliente', IEditorAlbaranesDevCliente, AEditor); CreateEditor('EditorAlbaranesDevCliente', IEditorAlbaranesDevCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin if not EsCadenaVacia(AWindowCaption) then
try AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText; AEditor.HeaderText := AHeaderText;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
Albaranes := AAlbarans; AEditor.Albaranes := AAlbarans;
MultiSelect := True; AEditor.MultiSelect := True;
if AVerModal then if AVerModal then
ShowModal AEditor.ShowModal
else else
ShowEmbedded; AEditor.ShowEmbedded;
finally finally
if AVerModal then if AVerModal then
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end;
end; end;
end; end;
@ -723,19 +711,16 @@ begin
Result := NIL; Result := NIL;
CreateEditor('EditorElegirAlbaranesCliente', IEditorElegirAlbaranesCliente, AEditor); CreateEditor('EditorElegirAlbaranesCliente', IEditorElegirAlbaranesCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Albaranes := AAlbaran;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Albaranes := AAlbaran; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.AlbaranesClienteSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := AlbaranesClienteSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

26
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -74,14 +74,11 @@ begin
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.LoadFromStream(AStream);
try AEditor.Preview;
LoadFromStream(AStream); finally
Preview; AEditor.Release;
finally
Release;
end;
end; end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
@ -99,14 +96,11 @@ begin
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.LoadFromStream(AStream);
try AEditor.Print;
LoadFromStream(AStream); finally
Print; AEditor.Release;
finally
Release;
end;
end; end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);

25
Source/Modulos/Albaranes de cliente/Controller/uArticulosAlbaranClienteController.pas
View File

@ -29,20 +29,17 @@ begin
Result := NIL; Result := NIL;
CreateEditor('EditorElegirArticulosAlbaranesCliente', IEditorElegirArticulosAlbaranesCliente, AEditor); CreateEditor('EditorElegirArticulosAlbaranesCliente', IEditorElegirArticulosAlbaranesCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Articulos := AArticulos;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Articulos := AArticulos; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.ArticulosSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := ArticulosSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
end. end.

127
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -653,7 +653,7 @@ end;
procedure TAlbaranesProveedorController.Ver(AAlbaran: IBizAlbaranProveedor); procedure TAlbaranesProveedorController.Ver(AAlbaran: IBizAlbaranProveedor);
var var
AEditor : IEditorDBItem; AEditor : IEditorAlbaranProveedor;
begin begin
AEditor := NIL; AEditor := NIL;
@ -665,29 +665,26 @@ begin
CreateEditor('EditorAlbaranDevProveedor', IEditorAlbaranDevProveedor, AEditor); CreateEditor('EditorAlbaranDevProveedor', IEditorAlbaranDevProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorAlbaranProveedor) do
begin
try try
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
Albaran := AAlbaran; AEditor.Albaran := AAlbaran;
//MODO CONSULTAR //MODO CONSULTAR
if not EsModificable(AAlbaran) then if not EsModificable(AAlbaran) then
begin begin
SetDataTableReadOnly(AAlbaran.DataTable, True); SetDataTableReadOnly(AAlbaran.DataTable, True);
ReadOnly := True; AEditor.ReadOnly := True;
end; end;
ShowModal; AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba) //MODO CONSULTAR (Se deja la tabla como estaba)
if ReadOnly then if AEditor.ReadOnly then
SetDataTableReadOnly(AAlbaran.DataTable, False); SetDataTableReadOnly(AAlbaran.DataTable, False);
finally finally
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end; end;
end;
end; end;
procedure TAlbaranesProveedorController.VerDireccionEntrega(AAlbaran: IBizAlbaranProveedor); procedure TAlbaranesProveedorController.VerDireccionEntrega(AAlbaran: IBizAlbaranProveedor);
@ -698,16 +695,13 @@ begin
//RecuperarObjetos(AAlbaran); <- No descomentar. No hace falta //RecuperarObjetos(AAlbaran); <- No descomentar. No hace falta
CreateEditor('EditorDireccionEntregaAlbaranProveedor', IEditorDireccionEntregaAlbaranProveedor, AEditor); CreateEditor('EditorDireccionEntregaAlbaranProveedor', IEditorDireccionEntregaAlbaranProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorDireccionEntregaAlbaranProveedor) do try
begin AEditor.Albaran := AAlbaran;
try AEditor.ShowModal;
Albaran := AAlbaran; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TAlbaranesProveedorController.VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor; procedure TAlbaranesProveedorController.VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor;
@ -719,27 +713,24 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorAlbaranesProveedor', IEditorAlbaranesProveedor, AEditor); CreateEditor('EditorAlbaranesProveedor', IEditorAlbaranesProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin if not EsCadenaVacia(AWindowCaption) then
try AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText; AEditor.HeaderText := AHeaderText;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
Albaranes := AAlbarans; AEditor.Albaranes := AAlbarans;
MultiSelect := True; AEditor.MultiSelect := True;
if AVerModal then if AVerModal then
ShowModal AEditor.ShowModal
else else
ShowEmbedded; AEditor.ShowEmbedded;
finally finally
if AVerModal then if AVerModal then
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end;
end; end;
end; end;
@ -752,27 +743,24 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorAlbaranesDevProveedor', IEditorAlbaranesDevProveedor, AEditor); CreateEditor('EditorAlbaranesDevProveedor', IEditorAlbaranesDevProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin if not EsCadenaVacia(AWindowCaption) then
try AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText; AEditor.HeaderText := AHeaderText;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
Albaranes := AAlbarans; AEditor.Albaranes := AAlbarans;
MultiSelect := True; AEditor.MultiSelect := True;
if AVerModal then if AVerModal then
ShowModal AEditor.ShowModal
else else
ShowEmbedded; AEditor.ShowEmbedded;
finally finally
if AVerModal then if AVerModal then
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end;
end; end;
end; end;
@ -801,19 +789,16 @@ begin
Result := NIL; Result := NIL;
CreateEditor('EditorElegirAlbaranesProveedor', IEditorElegirAlbaranesProveedor, AEditor); CreateEditor('EditorElegirAlbaranesProveedor', IEditorElegirAlbaranesProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Albaranes := AAlbaran;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Albaranes := AAlbaran; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.AlbaranesProveedorSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := AlbaranesProveedorSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

18
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas
View File

@ -64,15 +64,12 @@ begin
try try
CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor); CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do
begin
try try
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
end; end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;
@ -91,15 +88,12 @@ begin
try try
CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor); CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do
begin
try try
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Print; AEditor.Print;
finally finally
Release; AEditor.Release;
end; end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;

25
Source/Modulos/Albaranes de proveedor/Controller/uArticulosAlbaranProveedorController.pas
View File

@ -29,20 +29,17 @@ begin
Result := NIL; Result := NIL;
CreateEditor('EditorElegirArticulosAlbaranesProveedor', IEditorElegirArticulosAlbaranesProveedor, AEditor); CreateEditor('EditorElegirArticulosAlbaranesProveedor', IEditorElegirArticulosAlbaranesProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Articulos := AArticulos;
Controller := Self; AEditor.Proveedor := AProveedor;
Articulos := AArticulos; AEditor.MultiSelect := AMultiSelect;
Proveedor := AProveedor; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.ArticulosSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := ArticulosSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

42
Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
View File

@ -189,8 +189,6 @@ end;
function TAlmacenesController.ValidarAlmacen(AAlmacen: IBizAlmacen): Boolean; function TAlmacenesController.ValidarAlmacen(AAlmacen: IBizAlmacen): Boolean;
begin begin
Result := False;
if (AAlmacen.DataTable.State in dsEditModes) then if (AAlmacen.DataTable.State in dsEditModes) then
AAlmacen.DataTable.Post; AAlmacen.DataTable.Post;
@ -215,23 +213,20 @@ end;
procedure TAlmacenesController.Ver(AAlmacen: IBizAlmacen); procedure TAlmacenesController.Ver(AAlmacen: IBizAlmacen);
var var
AEditor : IEditorDBItem; AEditor : IEditorAlmacen;
begin begin
AEditor := NIL; AEditor := NIL;
RecuperarObjetos(AAlmacen); RecuperarObjetos(AAlmacen);
CreateEditor('EditorAlmacen', IEditorAlmacen, AEditor); CreateEditor('EditorAlmacen', IEditorAlmacen, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorAlmacen) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Almacen := AAlmacen;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
Almacen := AAlmacen; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TAlmacenesController.VerLista(AAlmacenes: IBizAlmacen): IBizAlmacen; function TAlmacenesController.VerLista(AAlmacenes: IBizAlmacen): IBizAlmacen;
@ -243,17 +238,14 @@ begin
CreateEditor('EditorListaAlmacenes', IEditorListaAlmacenes, AEditor); CreateEditor('EditorListaAlmacenes', IEditorListaAlmacenes, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Almacenes := AAlmacenes;
try if IsPositiveResult(AEditor.ShowModal) then
Almacenes := AAlmacenes; Result := AEditor.AlmacenSeleccionado;
if IsPositiveResult(ShowModal) then finally
Result := AlmacenSeleccionado; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TAlmacenesController.VerTodos(AAlmacenes: IBizAlmacen); procedure TAlmacenesController.VerTodos(AAlmacenes: IBizAlmacen);

32
Source/Modulos/Articulos/Controller/Articulos_controller.dproj
View File

@ -55,22 +55,22 @@
<DelphiCompile Include="Articulos_controller.dpk"> <DelphiCompile Include="Articulos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Pedidos a proveedor\Controller\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\Articulos_data.dcp" /> <DCCReference Include="..\Articulos_data.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\Articulos_model.dcp" /> <DCCReference Include="..\Articulos_model.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Controller\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uArticulosController.pas" /> <DCCReference Include="uArticulosController.pas" />
<DCCReference Include="uControllerDetallesArticulos.pas" /> <DCCReference Include="uControllerDetallesArticulos.pas" />
<DCCReference Include="View\uIEditorArticulo.pas" /> <DCCReference Include="View\uIEditorArticulo.pas" />

42
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -446,17 +446,14 @@ begin
CreateEditor('EditorArticulo', IEditorArticulo, AEditor); CreateEditor('EditorArticulo', IEditorArticulo, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorArticulo) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Articulo := AArticulo;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
Articulo := AArticulo; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TArticulosController.VerProveedor(AArticulo: IBizArticulo); procedure TArticulosController.VerProveedor(AArticulo: IBizArticulo);
@ -519,19 +516,16 @@ begin
CreateEditor('EditorElegirArticulos', IEditorElegirArticulos, AEditor); CreateEditor('EditorElegirArticulos', IEditorElegirArticulos, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Articulos := AArticulos;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Articulos := AArticulos; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.ArticulosSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := ArticulosSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

33
Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas
View File

@ -185,25 +185,22 @@ begin
CreateEditor('EditorExportacionNorma19', IEditorExportacionNorma19, AEditor); CreateEditor('EditorExportacionNorma19', IEditorExportacionNorma19, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.CodigoEntidad := Entidad;
try AEditor.CodigoAgencia := Oficina;
CodigoEntidad := Entidad; AEditor.FechaCargo := AFechaCargo;
CodigoAgencia := Oficina; AEditor.Fichero := AFileName;
FechaCargo := AFechaCargo;
Fichero := AFileName;
if (ShowModal = mrOk) then if (AEditor.ShowModal = mrOk) then
begin begin
Entidad := CodigoEntidad; AEditor.Entidad := CodigoEntidad;
Oficina := CodigoAgencia; AEditor.Oficina := CodigoAgencia;
AFechaCargo := FechaCargo; AFechaCargo := AEditor.FechaCargo;
AFileName := Fichero; AFileName := AEditor.Fichero;
Result := True; Result := True;
end; end;
finally finally
Release; AEditor.Release;
end;
end; end;
end; end;

23
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -149,7 +149,7 @@ begin
if IsPositiveResult(AEditor.ShowModal) then if IsPositiveResult(AEditor.ShowModal) then
Result := AEditor.DireccionSeleccionada; Result := AEditor.DireccionSeleccionada;
finally finally
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
Application.ProcessMessages; Application.ProcessMessages;
end; end;
@ -172,7 +172,7 @@ begin
if IsPositiveResult(AEditor.ShowModal) then if IsPositiveResult(AEditor.ShowModal) then
Result := AEditor.PersonaSeleccionada; Result := AEditor.PersonaSeleccionada;
finally finally
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
Application.ProcessMessages; Application.ProcessMessages;
end; end;
@ -391,17 +391,14 @@ begin
CreateEditor('EditorCliente', IEditorCliente, AEditor); CreateEditor('EditorCliente', IEditorCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Contacto := AContacto;
try AEditor.Controller := Self;
Contacto := AContacto; AEditor.ShowModal;
Controller := Self; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TClientesController.VerAlbaranesDeCliente(ACliente: IBizCliente); procedure TClientesController.VerAlbaranesDeCliente(ACliente: IBizCliente);

17
Source/Modulos/Contactos/Controller/uDatosBancariosContactoController.pas
View File

@ -73,16 +73,13 @@ begin
CreateEditor('EditorDatoBancarioContacto', IEditorDatoBancarioContacto, AEditor); CreateEditor('EditorDatoBancarioContacto', IEditorDatoBancarioContacto, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.DatoBancario := ADatoBancario;
try AEditor.Controller := Self;
DatoBancario := ADatoBancario; AEditor.ShowModal;
Controller := Self; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

19
Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
View File

@ -138,17 +138,14 @@ begin
CreateEditor('EditorDireccion', IEditorEditorDireccion, AEditor); CreateEditor('EditorDireccion', IEditorEditorDireccion, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Direccion := ADireccion;
try AEditor.Controller := Self;
Direccion := ADireccion; AEditor.ShowModal;
Controller := Self; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
end. end.

17
Source/Modulos/Contactos/Controller/uEmpleadosController.pas
View File

@ -269,16 +269,13 @@ begin
CreateEditor('EditorEmpleado', IEditorEmpleado, AEditor); CreateEditor('EditorEmpleado', IEditorEmpleado, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Contacto := AContacto;
try AEditor.Controller := Self;
Contacto := AContacto; AEditor.ShowModal;
Controller := Self; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

19
Source/Modulos/Contactos/Controller/uGruposClienteController.pas
View File

@ -143,17 +143,14 @@ begin
CreateEditor('EditorGruposCliente', IEditorGruposCliente, AEditor); CreateEditor('EditorGruposCliente', IEditorGruposCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.GruposCliente := AGruposCliente;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
GruposCliente := AGruposCliente; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TGruposClienteController.Eliminar(AGrupoCliente: IBizGrupoCliente): Boolean; function TGruposClienteController.Eliminar(AGrupoCliente: IBizGrupoCliente): Boolean;

19
Source/Modulos/Contactos/Controller/uGruposEmpleadoController.pas
View File

@ -143,17 +143,14 @@ begin
CreateEditor('EditorGruposEmpleado', IEditorGruposEmpleado, AEditor); CreateEditor('EditorGruposEmpleado', IEditorGruposEmpleado, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.GruposEmpleado := AGruposEmpleado;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
GruposEmpleado := AGruposEmpleado; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TGruposEmpleadoController.Eliminar(AGrupoEmpleado: IBizGrupoEmpleado): Boolean; function TGruposEmpleadoController.Eliminar(AGrupoEmpleado: IBizGrupoEmpleado): Boolean;

19
Source/Modulos/Contactos/Controller/uGruposProveedorController.pas
View File

@ -143,17 +143,14 @@ begin
CreateEditor('EditorGruposProveedor', IEditorGruposProveedor, AEditor); CreateEditor('EditorGruposProveedor', IEditorGruposProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.GruposProveedor := AGruposProveedor;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
GruposProveedor := AGruposProveedor; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TGruposProveedorController.Eliminar(AGrupoProveedor: IBizGrupoProveedor): Boolean; function TGruposProveedorController.Eliminar(AGrupoProveedor: IBizGrupoProveedor): Boolean;

15
Source/Modulos/Contactos/Controller/uPersonalContactoController.pas
View File

@ -72,15 +72,12 @@ begin
CreateEditor('EditorPersonalContacto', IEditorPersonalContacto, AEditor); CreateEditor('EditorPersonalContacto', IEditorPersonalContacto, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Personal := APersonal;
try AEditor.Controller := Self;
Personal := APersonal; AEditor.ShowModal;
Controller := Self; finally
ShowModal; AEditor.Release;
finally
Release;
end;
end; end;
end; end;

63
Source/Modulos/Contactos/Controller/uProveedoresController.pas
View File

@ -124,19 +124,16 @@ begin
CreateEditor('EditorElegirProveedores', IEditorElegirProveedores, AEditor); CreateEditor('EditorElegirProveedores', IEditorElegirProveedores, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Contactos := AContactos;
try AEditor.Controller := Self;
Contactos := AContactos; AEditor.MultiSelect := AMultiSelect;
Controller := Self; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.ContactosSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := ContactosSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;
@ -149,18 +146,15 @@ begin
CreateEditor('EditorElegirDireccionEntrega', IEditorElegirDireccionEntrega, AEditor); CreateEditor('EditorElegirDireccionEntrega', IEditorElegirDireccionEntrega, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Contacto := AProveedor;
try AEditor.Mensaje := AMensaje;
Contacto := AProveedor; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.DireccionSeleccionada;
if IsPositiveResult(ShowModal) then finally
Result := DireccionSeleccionada; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TProveedoresController.Eliminar(AProveedor: IBizContacto; AllItems: Boolean): Boolean; function TProveedoresController.Eliminar(AProveedor: IBizContacto; AllItems: Boolean): Boolean;
@ -315,17 +309,14 @@ begin
CreateEditor('EditorProveedor', IEditorProveedor, AEditor); CreateEditor('EditorProveedor', IEditorProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Contacto := AContacto;
try AEditor.Controller := Self;
Contacto := AContacto; AEditor.ShowModal;
Controller := Self; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TProveedoresController.VerAlbaranesDeProveedor( procedure TProveedoresController.VerAlbaranesDeProveedor(

92
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,52 +49,52 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Pedidos a proveedor\adortl.dcp" /> <DCCReference Include="..\..\Obras\adortl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\ApplicationBase.dcp" /> <DCCReference Include="..\..\Obras\ApplicationBase.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Base.dcp" /> <DCCReference Include="..\..\Obras\Base.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\bdertl.dcp" /> <DCCReference Include="..\..\Obras\bdertl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\ccpackD11.dcp" /> <DCCReference Include="..\..\Obras\ccpackD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cfpack_d11.dcp" /> <DCCReference Include="..\..\Obras\cfpack_d11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Contactos_controller.dcp" /> <DCCReference Include="..\..\Obras\Contactos_controller.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Contactos_model.dcp" /> <DCCReference Include="..\..\Obras\Contactos_model.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxDataD11.dcp" /> <DCCReference Include="..\..\Obras\cxDataD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxEditorsD11.dcp" /> <DCCReference Include="..\..\Obras\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxExportD11.dcp" /> <DCCReference Include="..\..\Obras\cxExportD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxExtEditorsD11.dcp" /> <DCCReference Include="..\..\Obras\cxExtEditorsD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxGridD11.dcp" /> <DCCReference Include="..\..\Obras\cxGridD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Obras\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\cxPageControlD11.dcp" /> <DCCReference Include="..\..\Obras\cxPageControlD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Obras\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dbrtl.dcp" /> <DCCReference Include="..\..\Obras\dbrtl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\designide.dcp" /> <DCCReference Include="..\..\Obras\designide.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dsnap.dcp" /> <DCCReference Include="..\..\Obras\dsnap.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dxComnD11.dcp" /> <DCCReference Include="..\..\Obras\dxComnD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Obras\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Obras\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\..\Obras\dxThemeD11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\FormasPago_controller.dcp" /> <DCCReference Include="..\..\Obras\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\FormasPago_model.dcp" /> <DCCReference Include="..\..\Obras\FormasPago_model.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\GUIBase.dcp" /> <DCCReference Include="..\..\Obras\GUIBase.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\GUISDK_D11.dcp" /> <DCCReference Include="..\..\Obras\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\Jcl.dcp" /> <DCCReference Include="..\..\Obras\Jcl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JclVcl.dcp" /> <DCCReference Include="..\..\Obras\JclVcl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JvCoreD11R.dcp" /> <DCCReference Include="..\..\Obras\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\..\Obras\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JvGlobusD11R.dcp" /> <DCCReference Include="..\..\Obras\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\..\Obras\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\JvSystemD11R.dcp" /> <DCCReference Include="..\..\Obras\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\PngComponentsD10.dcp" /> <DCCReference Include="..\..\Obras\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\PNG_D10.dcp" /> <DCCReference Include="..\..\Obras\PNG_D10.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Obras\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\rtl.dcp" /> <DCCReference Include="..\..\Obras\rtl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\TiposIVA_controller.dcp" /> <DCCReference Include="..\..\Obras\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\TiposIVA_model.dcp" /> <DCCReference Include="..\..\Obras\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\vcl.dcp" /> <DCCReference Include="..\..\Obras\vcl.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\vclactnband.dcp" /> <DCCReference Include="..\..\Obras\vclactnband.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\vcldb.dcp" /> <DCCReference Include="..\..\Obras\vcldb.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\vcljpg.dcp" /> <DCCReference Include="..\..\Obras\vcljpg.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\vclx.dcp" /> <DCCReference Include="..\..\Obras\vclx.dcp" />
<DCCReference Include="..\..\Pedidos a proveedor\xmlrtl.dcp" /> <DCCReference Include="..\..\Obras\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>

19
Source/Modulos/Fabricantes/Controller/uFabricantesController.pas
View File

@ -155,17 +155,14 @@ begin
CreateEditor('EditorFabricantes', IEditorFabricantes, AEditor); CreateEditor('EditorFabricantes', IEditorFabricantes, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Fabricantes := AFabricantes;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
Fabricantes := AFabricantes; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TFabricantesController.Eliminar(AFabricante: IBizFabricante): Boolean; function TFabricantesController.Eliminar(AFabricante: IBizFabricante): Boolean;

25
Source/Modulos/Facturas de cliente/Controller/uArticulosFacturaClienteController.pas
View File

@ -30,20 +30,17 @@ begin
CreateEditor('EditorElegirArticulosFacturaCliente', IEditorElegirArticulosFacturasCliente, AEditor); CreateEditor('EditorElegirArticulosFacturaCliente', IEditorElegirArticulosFacturasCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Articulos := AArticulos;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Articulos := AArticulos; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.ArticulosSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := ArticulosSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
end. end.

95
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -615,28 +615,25 @@ begin
CreateEditor('EditorFacturaCliente', IEditorFacturaCliente, AEditor); CreateEditor('EditorFacturaCliente', IEditorFacturaCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Factura := AFactura;
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Factura := AFactura;
//MODO CONSULTAR //MODO CONSULTAR
if not EsModificable(AFactura) then if not EsModificable(AFactura) then
begin begin
SetDataTableReadOnly(AFactura.DataTable, True); SetDataTableReadOnly(AFactura.DataTable, True);
ReadOnly := True; AEditor.ReadOnly := True;
end;
ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if ReadOnly then
SetDataTableReadOnly(AFactura.DataTable, False);
finally
Release;
AEditor := NIL;
end; end;
AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if AEditor.ReadOnly then
SetDataTableReadOnly(AFactura.DataTable, False);
finally
AEditor.Release;
AEditor := NIL;
end; end;
end; end;
@ -650,27 +647,24 @@ begin
CreateEditor('EditorFacturasCliente', IEditorFacturasCliente, AEditor); CreateEditor('EditorFacturasCliente', IEditorFacturasCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin if not EsCadenaVacia(AWindowCaption) then
try AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText; AEditor.HeaderText := AHeaderText;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
Facturas := AFacturas; AEditor.Facturas := AFacturas;
MultiSelect := True; AEditor.MultiSelect := True;
if AVerModal then if AVerModal then
ShowModal AEditor.ShowModal
else else
ShowEmbedded; AEditor.ShowEmbedded;
finally finally
if AVerModal then if AVerModal then
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
end;
end; end;
end; end;
@ -701,19 +695,16 @@ begin
CreateEditor('EditorElegirFacturasCliente', IEditorElegirFacturasCliente, AEditor); CreateEditor('EditorElegirFacturasCliente', IEditorElegirFacturasCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Facturas := AFacturas;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Facturas := AFacturas; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.FacturasClienteSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := FacturasClienteSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

36
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
View File

@ -119,17 +119,14 @@ begin
try try
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor); CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.ListaID := AListaID;
AEditor.Controller := Self; AEditor.LoadFromStream(AStream);
ListaID := AListaID; AEditor.Preview;
LoadFromStream(AStream); finally
Preview; AEditor.Release;
finally end;
Release;
end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;
@ -148,16 +145,13 @@ begin
try try
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor); CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.LoadFromStream(AStream);
AEditor.Controller := Self; AEditor.Print;
LoadFromStream(AStream); finally
Print; AEditor.Release;
finally end;
Release;
end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;

27
Source/Modulos/Facturas de proveedor/Controller/uArticulosFacturaProveedorController.pas
View File

@ -31,21 +31,18 @@ begin
CreateEditor('EditorElegirArticulosFacturaProveedor', IEditorElegirArticulosFacturasProveedor, AEditor); CreateEditor('EditorElegirArticulosFacturaProveedor', IEditorElegirArticulosFacturasProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Articulos := AArticulos;
Controller := Self; AEditor.Proveedor := AProveedor;
Articulos := AArticulos; AEditor.MultiSelect := AMultiSelect;
Proveedor := AProveedor; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.ArticulosSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := ArticulosSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
end. end.

72
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -468,28 +468,25 @@ begin
CreateEditor('EditorFacturaProveedor', IEditorFacturaProveedor, AEditor); CreateEditor('EditorFacturaProveedor', IEditorFacturaProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Factura := AFactura;
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Factura := AFactura;
//MODO CONSULTAR //MODO CONSULTAR
if not EsModificable(AFactura) then if not EsModificable(AFactura) then
begin begin
SetDataTableReadOnly(AFactura.DataTable, True); SetDataTableReadOnly(AFactura.DataTable, True);
ReadOnly := True; AEditor.ReadOnly := True;
end; end;
ShowModal; AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba) //MODO CONSULTAR (Se deja la tabla como estaba)
if ReadOnly then if AEditor.ReadOnly then
SetDataTableReadOnly(AFactura.DataTable, False); SetDataTableReadOnly(AFactura.DataTable, False);
finally finally
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end;
end; end;
end; end;
@ -502,27 +499,24 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorFacturasProveedor', IEditorFacturasProveedor, AEditor); CreateEditor('EditorFacturasProveedor', IEditorFacturasProveedor, AEditor);
with AEditor do try
begin if not EsCadenaVacia(AWindowCaption) then
try AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText; AEditor.HeaderText := AHeaderText;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
Facturas := AFacturas; AEditor.Facturas := AFacturas;
MultiSelect := True; AEditor.MultiSelect := True;
if AVerModal then if AVerModal then
ShowModal AEditor.ShowModal
else else
ShowEmbedded; AEditor.ShowEmbedded;
finally finally
if AVerModal then if AVerModal then
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
end;
end; end;
end; end;
@ -563,7 +557,7 @@ begin
if IsPositiveResult(ShowModal) then if IsPositiveResult(ShowModal) then
Result := FacturasProveedoreSeleccionados; Result := FacturasProveedoreSeleccionados;
finally finally
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end; end;
end; end;

30
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas
View File

@ -64,15 +64,12 @@ begin
try try
CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor); CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.LoadFromStream(AStream);
try AEditor.Preview;
LoadFromStream(AStream); finally
Preview; AEditor.Release;
finally end;
Release;
end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;
@ -92,15 +89,12 @@ begin
try try
CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor); CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.LoadFromStream(AStream);
try AEditor.Print;
LoadFromStream(AStream); finally
Print; AEditor.Release;
finally end;
Release;
end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;

19
Source/Modulos/Familias/Controller/uFamiliasController.pas
View File

@ -148,17 +148,14 @@ begin
CreateEditor('EditorFamilias', IEditorFamilias, AEditor); CreateEditor('EditorFamilias', IEditorFamilias, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Familias := AFamilias;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
Familias := AFamilias; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TFamiliasController.Eliminar(AFamilia: IBizFamilia): Boolean; function TFamiliasController.Eliminar(AFamilia: IBizFamilia): Boolean;

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

@ -181,16 +181,13 @@ begin
CreateEditor('EditorFormaPago', IEditorFormaPago, AEditor); CreateEditor('EditorFormaPago', IEditorFormaPago, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.FormaPago := AFormaPago;
try AEditor.ShowModal;
FormaPago := AFormaPago; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TFormasPagoController.VerTodos(AFormasPago: IBizFormaPago); procedure TFormasPagoController.VerTodos(AFormasPago: IBizFormaPago);
@ -201,16 +198,13 @@ begin
CreateEditor('EditorFormasPago', IEditorFormasPago, AEditor); CreateEditor('EditorFormasPago', IEditorFormasPago, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.FormasPago := AFormasPago;
try AEditor.ShowModal;
FormasPago := AFormasPago; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TFormasPagoController.Eliminar(AFormaPago: IBizFormaPago): Boolean; function TFormasPagoController.Eliminar(AFormaPago: IBizFormaPago): Boolean;

295
Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
View File

@ -283,19 +283,18 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor); CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Title := 'Listado de IVA de facturas de cliente';
AEditor.Controller := Self; AStream := FDataModule.GenerarInformeIVAClientes(AppFactuGES.EmpresaActiva.ID,
AEditor.Title := 'Listado de IVA de facturas de cliente'; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
AStream := FDataModule.GenerarInformeIVAClientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -308,19 +307,19 @@ begin
CreateEditor('EditorInformeIVAProveedoresReport', IEditorInformeIVAProveedoresReport, AEditor); CreateEditor('EditorInformeIVAProveedoresReport', IEditorInformeIVAProveedoresReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Title := 'Listado de IVA de facturas de proveedor';
AEditor.Controller := Self; AStream := FDataModule.GenerarInformeIVAProveedores(AppFactuGES.EmpresaActiva.ID,
AEditor.Title := 'Listado de IVA de facturas de proveedor'; AEditor.FechaInicio, AEditor.FechaFin,
AStream := FDataModule.GenerarInformeIVAProveedores(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDProveedores, DesglosadoProveedor, ImporteMinimo); AEditor.ListaIDProveedores, AEditor.DesglosadoProveedor,
LoadFromStream(AStream); AEditor.ImporteMinimo);
Preview; AEditor.LoadFromStream(AStream);
finally AEditor.Preview;
Release; finally
AEditor := Nil; AEditor.Release;
FreeAndNil(AStream); AEditor := Nil;
end; FreeAndNil(AStream);
end; end;
end; end;
@ -333,19 +332,18 @@ begin
CreateEditor('EditorInformeFacturasClienteReport', IEditorInformeFacturasClienteReport, AEditor); CreateEditor('EditorInformeFacturasClienteReport', IEditorInformeFacturasClienteReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Title := 'Listado de facturas de cliente';
AEditor.Controller := Self; AStream := FDataModule.GenerarInformeListadoFacturasCli(AppFactuGES.EmpresaActiva.ID,
AEditor.Title := 'Listado de facturas de cliente'; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
AStream := FDataModule.GenerarInformeListadoFacturasCli(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -358,19 +356,18 @@ begin
CreateEditor('EditorInformeFacturasClientePendientesReport', IEditorInformeFacturasClientePendientesReport, AEditor); CreateEditor('EditorInformeFacturasClientePendientesReport', IEditorInformeFacturasClientePendientesReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Title := 'Listado de facturas de cliente pendientes';
AEditor.Controller := Self; AStream := FDataModule.GenerarInformeListadoFacturasCliPendientes(AppFactuGES.EmpresaActiva.ID,
AEditor.Title := 'Listado de facturas de cliente pendientes'; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
AStream := FDataModule.GenerarInformeListadoFacturasCliPendientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -382,19 +379,18 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorInformeFacturasProveedorReport', IEditorInformeFacturasProveedorReport, AEditor); CreateEditor('EditorInformeFacturasProveedorReport', IEditorInformeFacturasProveedorReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Title := 'Listado de facturas de proveedor';
AEditor.Controller := Self; AStream := FDataModule.GenerarInformeListadoFacturasProv(AppFactuGES.EmpresaActiva.ID,
AEditor.Title := 'Listado de facturas de proveedor'; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
AStream := FDataModule.GenerarInformeListadoFacturasProv(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDProveedores, DesglosadoProveedor, ImporteMinimo); AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -406,19 +402,18 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorInformeFacturasProveedorPendientesReport', IEditorInformeFacturasProveedorPendientesReport, AEditor); CreateEditor('EditorInformeFacturasProveedorPendientesReport', IEditorInformeFacturasProveedorPendientesReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Title := 'Listado de facturas de proveedor pendientes';
AEditor.Controller := Self; AStream := FDataModule.GenerarInformeListadoFacturasProvPendientes(AppFactuGES.EmpresaActiva.ID,
AEditor.Title := 'Listado de facturas de proveedor pendientes'; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
AStream := FDataModule.GenerarInformeListadoFacturasProvPendientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDProveedores, DesglosadoProveedor, ImporteMinimo); AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -431,19 +426,18 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
CreateEditor('EditorInformePedidosReport', IEditorInformePedidosReport, AEditor); CreateEditor('EditorInformePedidosReport', IEditorInformePedidosReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Title := 'Listado de pedidos de proveedor';
AEditor.Controller := Self; AStream := FDataModule.GenerarInformeListadoPedidos(AppFactuGES.EmpresaActiva.ID,
AEditor.Title := 'Listado de pedidos de proveedor'; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
AStream := FDataModule.GenerarInformeListadoPedidos(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDProveedores, DesglosadoProveedor, ImporteMinimo); AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -456,19 +450,18 @@ begin
CreateEditor('EditorInformePresupuestosReport', IEditorInformePresupuestosReport, AEditor); CreateEditor('EditorInformePresupuestosReport', IEditorInformePresupuestosReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Title := 'Listado de presupuestos de cliente';
AEditor.Controller := Self; AStream := FDataModule.GenerarInformeListadoPresupuestos(AppFactuGES.EmpresaActiva.ID,
AEditor.Title := 'Listado de presupuestos de cliente'; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
AStream := FDataModule.GenerarInformeListadoPresupuestos(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -480,18 +473,17 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorInformeRecibosClienteReport', IEditorInformeRecibosClienteReport, AEditor); CreateEditor('EditorInformeRecibosClienteReport', IEditorInformeRecibosClienteReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AStream := FDataModule.GenerarInformeListadoRecibosCliente(AppFactuGES.EmpresaActiva.ID,
AEditor.Controller := Self; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
AStream := FDataModule.GenerarInformeListadoRecibosCliente(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -504,18 +496,17 @@ begin
CreateEditor('EditorInformeRecibosCliPendientesReport', IEditorInformeRecibosCliPendientesReport, AEditor); CreateEditor('EditorInformeRecibosCliPendientesReport', IEditorInformeRecibosCliPendientesReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AStream := FDataModule.GenerarInformeListadoRecibosCliPendientes(AppFactuGES.EmpresaActiva.ID,
AEditor.Controller := Self; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDClientes,
AStream := FDataModule.GenerarInformeListadoRecibosCliPendientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo); AEditor.DesglosadoCliente, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -529,18 +520,17 @@ begin
CreateEditor('EditorInformeRecibosProveedorReport', IEditorInformeRecibosProveedorReport, AEditor); CreateEditor('EditorInformeRecibosProveedorReport', IEditorInformeRecibosProveedorReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AStream := FDataModule.GenerarInformeListadoRecibosProveedor(AppFactuGES.EmpresaActiva.ID,
AEditor.Controller := Self; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
AStream := FDataModule.GenerarInformeListadoRecibosProveedor(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDProveedores, DesglosadoProveedor, ImporteMinimo); AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -553,18 +543,17 @@ begin
CreateEditor('EditorInformeRecibosProvPendientesReport', IEditorInformeRecibosProvPendientesReport, AEditor); CreateEditor('EditorInformeRecibosProvPendientesReport', IEditorInformeRecibosProvPendientesReport, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AStream := FDataModule.GenerarInformeListadoRecibosProvPendientes(AppFactuGES.EmpresaActiva.ID,
AEditor.Controller := Self; AEditor.FechaInicio, AEditor.FechaFin, AEditor.ListaIDProveedores,
AStream := FDataModule.GenerarInformeListadoRecibosProvPendientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDProveedores, DesglosadoProveedor, ImporteMinimo); AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
AEditor := Nil; AEditor := Nil;
FreeAndNil(AStream); FreeAndNil(AStream);
end;
end; end;
end; end;
@ -599,7 +588,7 @@ begin
if ReadOnly then if ReadOnly then
SetDataTableReadOnly(AFactura.DataTable, False); SetDataTableReadOnly(AFactura.DataTable, False);
finally finally
Release; AEditor.Release;
end; end;
end; end;
finally finally

BIN
Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
View File

Binary file not shown.

23
Source/Modulos/Inventario/Controller/uArticulosInventarioController.pas
View File

@ -29,19 +29,16 @@ begin
Result := NIL; Result := NIL;
CreateEditor('EditorElegirArticulosCatalogo', IEditorElegirArticulosCatalogo, AEditor); CreateEditor('EditorElegirArticulosCatalogo', IEditorElegirArticulosCatalogo, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Articulos := AArticulos;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Articulos := AArticulos; if IsPositiveResult(AEditor.ShowModal) then
MultiSelect := AMultiSelect; Result := AEditor.ArticulosSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := ArticulosSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
end. end.

77
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -195,8 +195,6 @@ begin
end; end;
function TInventarioController.Buscar(const ID_ALMACEN: Integer): IBizInventario; function TInventarioController.Buscar(const ID_ALMACEN: Integer): IBizInventario;
var
Condicion: TDAWhereExpression;
begin begin
Result := (FDataModule as IDataModuleInventario).GetItems(ID_ALMACEN); Result := (FDataModule as IDataModuleInventario).GetItems(ID_ALMACEN);
FiltrarEmpresa(Result); FiltrarEmpresa(Result);
@ -409,20 +407,17 @@ begin
CreateEditor('EditorElegirArticulosAlmacen', IEditorElegirArticulosAlmacen, AEditor); CreateEditor('EditorElegirArticulosAlmacen', IEditorElegirArticulosAlmacen, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Inventario := AArticulos;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Inventario := AArticulos; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.ArticulosSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := ArticulosSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TInventarioController.Eliminar(AInventario: IBizInventario; Todos: Boolean; ApplyUpdates: Boolean): Boolean; function TInventarioController.Eliminar(AInventario: IBizInventario; Todos: Boolean; ApplyUpdates: Boolean): Boolean;
@ -534,21 +529,18 @@ begin
CreateEditor('EditorEntradaSalidaArticulos', IEditorEntradaSalidaArticulos, AEditor); CreateEditor('EditorEntradaSalidaArticulos', IEditorEntradaSalidaArticulos, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Articulos := AArticulos;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Inventario := AInventario;
Articulos := AArticulos; if Assigned(APedido) then
Inventario := AInventario; AEditor.PedidoProveedor := APedido;
if Assigned(APedido) then AEditor.ShowModal;
PedidoProveedor := APedido; Result := AEditor.ResultadoModalOK;
ShowModal; finally
Result := ResultadoModalOK; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TInventarioController.VerReservas(AArticulo: IBizInventario; const ATipoReservas: String); procedure TInventarioController.VerReservas(AArticulo: IBizInventario; const ATipoReservas: String);
@ -559,19 +551,16 @@ begin
CreateEditor('EditorDetalleReservas', IEditorDetalleReservas, AEditor); CreateEditor('EditorDetalleReservas', IEditorDetalleReservas, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.TipoReservas := ATipoReservas;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.DetalleReservas := FDataModule.GetDetalleReservas;
TipoReservas := ATipoReservas; AEditor.Articulo := AArticulo;
DetalleReservas := FDataModule.GetDetalleReservas; AEditor.MultiSelect := True;
Articulo := AArticulo; AEditor.ShowModal;
MultiSelect := True; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

10
Source/Modulos/Obras/Controller/Obras_controller.dproj
View File

@ -47,12 +47,12 @@
<DelphiCompile Include="Obras_controller.dpk"> <DelphiCompile Include="Obras_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\Obras_data.dcp" />
<DCCReference Include="..\Obras_model.dcp" />
<DCCReference Include="uObrasController.pas" /> <DCCReference Include="uObrasController.pas" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\Obras_data.dcp" />
<DCCReference Include="View\Obras_model.dcp" />
<DCCReference Include="View\uIEditorEjecucionObra.pas" /> <DCCReference Include="View\uIEditorEjecucionObra.pas" />
<DCCReference Include="View\uIEditorFechaCierreObra.pas" /> <DCCReference Include="View\uIEditorFechaCierreObra.pas" />
<DCCReference Include="View\uIEditorListaObras.pas" /> <DCCReference Include="View\uIEditorListaObras.pas" />

1
Source/Modulos/Obras/Controller/View/uIEditorFechaCierreObra.pas
View File

@ -7,6 +7,7 @@ type
['{2124B621-143A-4955-90EF-EC2053840A47}'] ['{2124B621-143A-4955-90EF-EC2053840A47}']
function ShowModal : Integer; function ShowModal : Integer;
procedure Show; procedure Show;
procedure Release;
procedure SetFechaCierre (const Value : TDateTime); procedure SetFechaCierre (const Value : TDateTime);
function GetFechaCierre : TDateTime; function GetFechaCierre : TDateTime;

80
Source/Modulos/Obras/Controller/uObrasController.pas
View File

@ -192,20 +192,17 @@ begin
CreateEditor('EditorFechaCierreObra', IEditorFechaCierreObra, AEditor); CreateEditor('EditorFechaCierreObra', IEditorFechaCierreObra, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorFechaCierreObra) do try
begin AEditor.FechaCierre := DateOf(AFecha);
try if (AEditor.ShowModal = mrOk) then
FechaCierre := DateOf(AFecha); begin
if (ShowModal = mrOk) then AObra.Ejecuciones.Edit;
begin AObra.Ejecuciones.FECHA_FIN := DateOf(AEditor.FechaCierre);
AObra.Ejecuciones.Edit; AObra.Ejecuciones.Post;
AObra.Ejecuciones.FECHA_FIN := DateOf(FechaCierre);
AObra.Ejecuciones.Post;
end;
finally
Release;
AEditor := NIL;
end; end;
finally
AEditor.Release;
AEditor := NIL;
end; end;
end; end;
@ -342,24 +339,21 @@ end;
procedure TObrasController.Ver(AObra: IBizObra); procedure TObrasController.Ver(AObra: IBizObra);
var var
AEditor : IEditorDBItem; AEditor : IEditorObra;
begin begin
AEditor := NIL; AEditor := NIL;
RecuperarObjetos(AObra); RecuperarObjetos(AObra);
CreateEditor('EditorObra', IEditorObra, AEditor); CreateEditor('EditorObra', IEditorObra, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorObra) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Obra := AObra;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
Obra := AObra; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TObrasController.VerEjecucion(AObra: IBizObra); procedure TObrasController.VerEjecucion(AObra: IBizObra);
@ -371,17 +365,14 @@ begin
RecuperarObjetos(AObra); RecuperarObjetos(AObra);
CreateEditor('EditorEjecucionObra', IEditorEjecucionObra, AEditor); CreateEditor('EditorEjecucionObra', IEditorEjecucionObra, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorEjecucionObra) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Obra := AObra;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
Obra := AObra; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TObrasController.VerLista(AObras: IBizObra): IBizObra; function TObrasController.VerLista(AObras: IBizObra): IBizObra;
@ -393,16 +384,13 @@ begin
CreateEditor('EditorListaObras', IEditorListaObras, AEditor); CreateEditor('EditorListaObras', IEditorListaObras, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Obras := AObras;
try if IsPositiveResult(AEditor.ShowModal) then
Obras := AObras; Result := AEditor.ObraSeleccionado;
if IsPositiveResult(ShowModal) then finally
Result := ObraSeleccionado; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

7
Source/Modulos/Obras/Plugin/Obras_plugin.dproj
View File

@ -46,13 +46,12 @@
<DelphiCompile Include="Obras_plugin.dpk"> <DelphiCompile Include="Obras_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_controller.dcp" /> <DCCReference Include="..\Obras_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_model.dcp" /> <DCCReference Include="..\Obras_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_view.dcp" /> <DCCReference Include="..\Obras_view.dcp" />
<DCCReference Include="uPluginObras.pas" /> <DCCReference Include="uPluginObras.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6011 EurekaLog Version=6011

25
Source/Modulos/Obras/Views/Obras_view.dproj
View File

@ -37,18 +37,18 @@
<DelphiCompile Include="Obras_view.dpk"> <DelphiCompile Include="Obras_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="Contactos_view.dcp" /> <DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="Obras_controller.dcp" /> <DCCReference Include="..\Obras_controller.dcp" />
<DCCReference Include="Obras_model.dcp" /> <DCCReference Include="..\Obras_model.dcp" />
<DCCReference Include="PedidosProveedor_controller.dcp" /> <DCCReference Include="..\PedidosProveedor_controller.dcp" />
<DCCReference Include="PedidosProveedor_model.dcp" /> <DCCReference Include="..\PedidosProveedor_model.dcp" />
<DCCReference Include="PresupuestosCliente_controller.dcp" /> <DCCReference Include="..\PresupuestosCliente_controller.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" /> <DCCReference Include="..\PresupuestosCliente_model.dcp" />
<DCCReference Include="uEditorEjecucionObra.pas"> <DCCReference Include="uEditorEjecucionObra.pas">
<Form>fEditorEjecucionObra</Form> <Form>fEditorEjecucionObra</Form>
<DesignClass>TfEditorEjecucionObra</DesignClass> <DesignClass>TfEditorEjecucionObra</DesignClass>
@ -104,7 +104,6 @@
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6011 EurekaLog Version=6011

25
Source/Modulos/Pedidos a proveedor/Controller/uArticulosPedidoProveedorController.pas
View File

@ -31,20 +31,17 @@ begin
Result := NIL; Result := NIL;
CreateEditor('EditorElegirArticulosPedidoProveedor', IEditorElegirArticulosPedidosProveedor, AEditor); CreateEditor('EditorElegirArticulosPedidoProveedor', IEditorElegirArticulosPedidosProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Articulos := AArticulos;
Controller := Self; AEditor.Proveedor := AProveedor;
Articulos := AArticulos; AEditor.MultiSelect := AMultiSelect;
Proveedor := AProveedor; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.ArticulosSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := ArticulosSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

133
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -346,17 +346,14 @@ begin
RecuperarProveedor(APedido); RecuperarProveedor(APedido);
CreateEditor('EditorSituacionPedidoProveedor', IEditorSituacionPedidoProveedor, AEditor); CreateEditor('EditorSituacionPedidoProveedor', IEditorSituacionPedidoProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.PedidoProveedor := APedido;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
PedidoProveedor := APedido; Result := True;
ShowModal; finally
Result := True; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;
@ -478,28 +475,25 @@ begin
CreateEditor('EditorPedidoProveedor', IEditorPedidoProveedor, AEditor); CreateEditor('EditorPedidoProveedor', IEditorPedidoProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Pedido := APedido;
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Pedido := APedido;
//MODO CONSULTAR //MODO CONSULTAR
if not EsModificable(APedido) then if not EsModificable(APedido) then
begin begin
SetDataTableReadOnly(APedido.DataTable, True); SetDataTableReadOnly(APedido.DataTable, True);
ReadOnly := True; AEditor.ReadOnly := True;
end; end;
ShowModal; AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba) //MODO CONSULTAR (Se deja la tabla como estaba)
if ReadOnly then if AEditor.ReadOnly then
SetDataTableReadOnly(APedido.DataTable, False); SetDataTableReadOnly(APedido.DataTable, False);
finally finally
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end;
end; end;
end; end;
@ -513,28 +507,25 @@ begin
CreateEditor('EditorPedidosProveedor', IEditorPedidosProveedor, AEditor); CreateEditor('EditorPedidosProveedor', IEditorPedidosProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin if not EsCadenaVacia(AWindowCaption) then
try AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText; AEditor.HeaderText := AHeaderText;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
Pedidos := APedidos; AEditor.Pedidos := APedidos;
MultiSelect := True; AEditor.MultiSelect := True;
if AVerModal then if AVerModal then
ShowModal AEditor.ShowModal
else else
ShowEmbedded; AEditor.ShowEmbedded;
finally finally
if AVerModal then if AVerModal then
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end; end;
end;
end; end;
procedure TPedidosProveedorController.VerDireccionEntrega( procedure TPedidosProveedorController.VerDireccionEntrega(
@ -547,16 +538,13 @@ begin
//RecuperarObjetos(APedido); <- No descomentar. No hace falta //RecuperarObjetos(APedido); <- No descomentar. No hace falta
CreateEditor('EditorDireccionEntregaPedidoProveedor', IEditorDireccionEntregaPedidoProveedor, AEditor); CreateEditor('EditorDireccionEntregaPedidoProveedor', IEditorDireccionEntregaPedidoProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorDireccionEntregaPedidoProveedor) do try
begin AEditor.Pedido := APedido;
try AEditor.ShowModal;
Pedido := APedido; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TPedidosProveedorController._Vacio: IBizPedidoProveedor; function TPedidosProveedorController._Vacio: IBizPedidoProveedor;
@ -585,20 +573,17 @@ begin
CreateEditor('EditorElegirPedidosProveedor', IEditorElegirPedidosProveedor, AEditor); CreateEditor('EditorElegirPedidosProveedor', IEditorElegirPedidosProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Pedidos := APedido;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Pedidos := APedido; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.PedidosProveedorSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := PedidosProveedorSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TPedidosProveedorController.Eliminar(APedido: IBizPedidoProveedor; AllItems: Boolean = false): Boolean; function TPedidosProveedorController.Eliminar(APedido: IBizPedidoProveedor; AllItems: Boolean = false): Boolean;

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

@ -49,12 +49,12 @@
<DelphiCompile Include="PresupuestosCliente_controller.dpk"> <DelphiCompile Include="PresupuestosCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Articulos_controller.dcp" /> <DCCReference Include="..\..\Obras\Articulos_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="..\..\Obras\Contactos_controller.dcp" />
<DCCReference Include="..\GestorDocumentos_controller.dcp" /> <DCCReference Include="..\..\Obras\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Obras\GUIBase.dcp" />
<DCCReference Include="..\PresupuestosCliente_data.dcp" /> <DCCReference Include="..\..\Obras\PresupuestosCliente_data.dcp" />
<DCCReference Include="..\PresupuestosCliente_model.dcp" /> <DCCReference Include="..\..\Obras\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosPresupuestoClienteController.pas" /> <DCCReference Include="uArticulosPresupuestoClienteController.pas" />
<DCCReference Include="uDetallesPresupuestoClienteController.pas" /> <DCCReference Include="uDetallesPresupuestoClienteController.pas" />
<DCCReference Include="uPresupuestosClienteController.pas" /> <DCCReference Include="uPresupuestosClienteController.pas" />

25
Source/Modulos/Presupuestos de cliente/Controller/uArticulosPresupuestoClienteController.pas
View File

@ -30,20 +30,17 @@ begin
CreateEditor('EditorElegirArticulosPresupuestosCliente', IEditorElegirArticulosPresupuestosCliente, AEditor); CreateEditor('EditorElegirArticulosPresupuestosCliente', IEditorElegirArticulosPresupuestosCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Articulos := AArticulos;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Articulos := AArticulos; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.ArticulosSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := ArticulosSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
end. end.

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

@ -500,28 +500,25 @@ begin
CreateEditor('EditorPresupuestoCliente', IEditorPresupuestoCliente, AEditor); CreateEditor('EditorPresupuestoCliente', IEditorPresupuestoCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Presupuesto := APresupuesto;
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Presupuesto := APresupuesto;
//MODO CONSULTAR //MODO CONSULTAR
if not EsModificable(APresupuesto) then if not EsModificable(APresupuesto) then
begin begin
SetDataTableReadOnly(APresupuesto.DataTable, True); SetDataTableReadOnly(APresupuesto.DataTable, True);
ReadOnly := True; AEditor.ReadOnly := True;
end;
ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if ReadOnly then
SetDataTableReadOnly(APresupuesto.DataTable, False);
finally
Release;
AEditor := NIL;
end; end;
AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if AEditor.ReadOnly then
SetDataTableReadOnly(APresupuesto.DataTable, False);
finally
AEditor.Release;
AEditor := NIL;
end; end;
end; end;
@ -541,7 +538,7 @@ begin
Presupuesto := APresupuesto; Presupuesto := APresupuesto;
ShowModal; ShowModal;
finally finally
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end; end;
end; end;
@ -557,27 +554,24 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorPresupuestosCliente', IEditorPresupuestosCliente, AEditor); CreateEditor('EditorPresupuestosCliente', IEditorPresupuestosCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin if not EsCadenaVacia(AWindowCaption) then
try AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText; AEditor.HeaderText := AHeaderText;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
Presupuestos := APresupuestos; AEditor.Presupuestos := APresupuestos;
MultiSelect := True; AEditor.MultiSelect := True;
if AVerModal then if AVerModal then
ShowModal AEditor.ShowModal
else else
ShowEmbedded; AEditor.ShowEmbedded;
finally finally
if AVerModal then if AVerModal then
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end;
end; end;
end; end;
@ -607,20 +601,17 @@ begin
CreateEditor('EditorElegirPresupuestosCliente', IEditorElegirPresupuestosCliente, AEditor); CreateEditor('EditorElegirPresupuestosCliente', IEditorElegirPresupuestosCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.Presupuestos := APresupuesto;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
Presupuestos := APresupuesto; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.PresupuestosClienteSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := PresupuestosClienteSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TPresupuestosClienteController.Eliminar(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false): Boolean; function TPresupuestosClienteController.Eliminar(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false): Boolean;

16
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
View File

@ -52,16 +52,16 @@
<DelphiCompile Include="PresupuestosCliente_model.dpk"> <DelphiCompile Include="PresupuestosCliente_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Obras\adortl.dcp" />
<DCCReference Include="..\..\Obras\Base.dcp" />
<DCCReference Include="..\..\Obras\Contactos_model.dcp" />
<DCCReference Include="..\..\Obras\dbrtl.dcp" />
<DCCReference Include="..\..\Obras\dsnap.dcp" />
<DCCReference Include="..\..\Obras\rtl.dcp" />
<DCCReference Include="..\..\Obras\vcl.dcp" />
<DCCReference Include="..\..\Obras\vcldb.dcp" />
<DCCReference Include="..\Controller\adortlBase.dcp" /> <DCCReference Include="..\Controller\adortlBase.dcp" />
<DCCReference Include="..\Controller\Contactos_modelcontainsuIDataModulePresupuestosClientein.dcp" /> <DCCReference Include="..\Controller\Contactos_modelcontainsuIDataModulePresupuestosClientein.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.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\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.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="Data\uIDataModulePresupuestosCliente.pas" /> <DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" /> <DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="schPresupuestosClienteClient_Intf.pas" />

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

@ -49,27 +49,30 @@
<DelphiCompile Include="PresupuestosCliente_view.dpk"> <DelphiCompile Include="PresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Obras\adortl.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="..\..\Obras\Articulos_view.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\..\Obras\Base.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="..\..\Obras\cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="..\..\Obras\cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\Obras\cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Obras\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\Obras\dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\..\Obras\dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" /> <DCCReference Include="..\..\Obras\dxComnD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Obras\dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Obras\dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\..\Obras\dxThemeD11.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" /> <DCCReference Include="..\..\Obras\GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\Obras\GUIBase.dcp" />
<DCCReference Include="PreCli_AlbCli_relation.dcp" /> <DCCReference Include="..\..\Obras\PreCli_AlbCli_relation.dcp" />
<DCCReference Include="PreCli_FacCli_relation.dcp" /> <DCCReference Include="..\..\Obras\PreCli_FacCli_relation.dcp" />
<DCCReference Include="PresupuestosCliente_controller.dcp" /> <DCCReference Include="..\..\Obras\PresupuestosCliente_controller.dcp" />
<DCCReference Include="PresupuestosCliente_model.dcp" /> <DCCReference Include="..\..\Obras\PresupuestosCliente_model.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Obras\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\..\Obras\rtl.dcp" />
<DCCReference Include="..\..\Obras\vcl.dcp" />
<DCCReference Include="..\..\Obras\vcldb.dcp" />
<DCCReference Include="..\..\Obras\vcljpg.dcp" />
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas"> <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
<Form>fEditorElegirArticulosPresupuestoCliente</Form> <Form>fEditorElegirArticulosPresupuestoCliente</Form>
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass> <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
@ -127,9 +130,6 @@
<Form>frViewTotalesPresupuesto</Form> <Form>frViewTotalesPresupuesto</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

77
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -556,17 +556,14 @@ begin
RecuperarCliente(ARecibosCliente); RecuperarCliente(ARecibosCliente);
CreateEditor('EditorReciboCliente', IEditorReciboCliente, AEditor); CreateEditor('EditorReciboCliente', IEditorReciboCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Recibo := ARecibosCliente;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
Recibo := ARecibosCliente; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TRecibosClienteController.VerTodos(ARecibosCliente: IBizRecibosCliente; procedure TRecibosClienteController.VerTodos(ARecibosCliente: IBizRecibosCliente;
@ -579,28 +576,25 @@ begin
CreateEditor('EditorRecibosCliente', IEditorRecibosCliente, AEditor); CreateEditor('EditorRecibosCliente', IEditorRecibosCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin if not EsCadenaVacia(AWindowCaption) then
try AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText; AEditor.HeaderText := AHeaderText;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
RecibosCliente := ARecibosCliente; AEditor.RecibosCliente := ARecibosCliente;
MultiSelect := True; AEditor.MultiSelect := True;
if AVerModal then if AVerModal then
ShowModal AEditor.ShowModal
else else
ShowEmbedded; AEditor.ShowEmbedded;
finally finally
if AVerModal then if AVerModal then
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end;
end; end;
end; end;
@ -612,19 +606,16 @@ begin
CreateEditor('EditorElegirRecibosCliente', IEditorElegirRecibosCliente, AEditor); CreateEditor('EditorElegirRecibosCliente', IEditorElegirRecibosCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.RecibosCliente := ARecibos;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
RecibosCliente := ARecibos; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.RecibosClienteSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := RecibosClienteSeleccionados; AEditor.Release;
finally AEditor := NIL;
Release;
AEditor := NIL;
end;
end; end;
end; end;

77
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -175,7 +175,7 @@ begin
if (AEditor.ShowModal = mrOk) then if (AEditor.ShowModal = mrOk) then
FechaPago := DateToStr(AEditor.FechaPago); FechaPago := DateToStr(AEditor.FechaPago);
finally finally
Release; AEditor.Release;
AEditor := NIL; AEditor := NIL;
end; end;
end; end;
@ -533,17 +533,14 @@ begin
RecuperarCliente(ARecibosProveedor); RecuperarCliente(ARecibosProveedor);
CreateEditor('EditorReciboProveedor', IEditorReciboProveedor, AEditor); CreateEditor('EditorReciboProveedor', IEditorReciboProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.Recibo := ARecibosProveedor;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
Recibo := ARecibosProveedor; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
procedure TRecibosProveedorController.VerTodos(ARecibosProveedor: IBizRecibosProveedor; procedure TRecibosProveedorController.VerTodos(ARecibosProveedor: IBizRecibosProveedor;
@ -556,27 +553,24 @@ begin
CreateEditor('EditorRecibosProveedor', IEditorRecibosProveedor, AEditor); CreateEditor('EditorRecibosProveedor', IEditorRecibosProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin if not EsCadenaVacia(AWindowCaption) then
try AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AWindowCaption) then
AEditor.WindowCaption := AWindowCaption;
if not EsCadenaVacia(AHeaderText) then if not EsCadenaVacia(AHeaderText) then
AEditor.HeaderText := AHeaderText; AEditor.HeaderText := AHeaderText;
Controller := Self; AEditor.Controller := Self;
RecibosProveedor := ARecibosProveedor; AEditor.RecibosProveedor := ARecibosProveedor;
if AVerModal then
ShowModal
else
ShowEmbedded;
finally
if AVerModal then if AVerModal then
Release; AEditor.ShowModal
AEditor := NIL; else
end; AEditor.ShowEmbedded;
end; finally
if AVerModal then
AEditor.Release;
AEditor := NIL;
end;
end; end;
function TRecibosProveedorController.ElegirRecibos(ARecibos: IBizRecibosProveedor; AMensaje: String; function TRecibosProveedorController.ElegirRecibos(ARecibos: IBizRecibosProveedor; AMensaje: String;
@ -588,19 +582,16 @@ begin
CreateEditor('EditorElegirRecibosProveedor', IEditorElegirRecibosProveedor, AEditor); CreateEditor('EditorElegirRecibosProveedor', IEditorElegirRecibosProveedor, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self;
try AEditor.RecibosProveedor := ARecibos;
Controller := Self; AEditor.MultiSelect := AMultiSelect;
RecibosProveedor := ARecibos; AEditor.Mensaje := AMensaje;
MultiSelect := AMultiSelect; if IsPositiveResult(AEditor.ShowModal) then
Mensaje := AMensaje; Result := AEditor.RecibosProveedorSeleccionados;
if IsPositiveResult(ShowModal) then finally
Result := RecibosProveedorSeleccionados; AEditor.Release;
finally end;
Release;
end;
end;
end; end;
function TRecibosProveedorController.ElegirRecibosCompensados(ARecibo: IBizRecibosProveedor): Boolean; function TRecibosProveedorController.ElegirRecibosCompensados(ARecibo: IBizRecibosProveedor): Boolean;

18
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas
View File

@ -63,15 +63,12 @@ begin
try try
CreateEditor('EditorRecibosProveedorPreview', IEditorRecibosProveedorPreview, AEditor); CreateEditor('EditorRecibosProveedorPreview', IEditorRecibosProveedorPreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do
begin
try try
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
end; end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;
@ -90,15 +87,12 @@ begin
try try
CreateEditor('EditorRecibosProveedorPreview', IEditorRecibosProveedorPreview, AEditor); CreateEditor('EditorRecibosProveedorPreview', IEditorRecibosProveedorPreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do
begin
try try
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Print; AEditor.Print;
finally finally
Release; AEditor.Release;
end; end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;

17
Source/Modulos/Referencias/Controller/uReferenciasController.pas
View File

@ -132,16 +132,13 @@ var
begin begin
CreateEditor('EditorReferencias', IEditorReferencias, AEditor); CreateEditor('EditorReferencias', IEditorReferencias, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Referencias := AReferencias;
try AEditor.ShowModal;
Referencias := AReferencias; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
{ {
procedure TReferenciasController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); procedure TReferenciasController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);

37
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

@ -222,28 +222,25 @@ begin
CreateEditor('EditorRemesaCliente', IEditorRemesaCliente, AEditor); CreateEditor('EditorRemesaCliente', IEditorRemesaCliente, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with (AEditor as IEditorRemesaCliente) do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.RemesaCliente := ARemesaCliente;
Controller := Self; //OJO ORDEN MUY IMPORTANTE
RemesaCliente := ARemesaCliente;
//MODO CONSULTAR //MODO CONSULTAR
if not EsModificable(ARemesaCliente) then if not EsModificable(ARemesaCliente) then
begin begin
SetDataTableReadOnly(ARemesaCliente.DataTable, True); SetDataTableReadOnly(ARemesaCliente.DataTable, True);
ReadOnly := True; AEditor.ReadOnly := True;
end;
ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if ReadOnly then
SetDataTableReadOnly(ARemesaCliente.DataTable, False);
finally
AEditor.Release;
AEditor := NIL;
end; end;
AEditor.ShowModal;
//MODO CONSULTAR (Se deja la tabla como estaba)
if AEditor.ReadOnly then
SetDataTableReadOnly(ARemesaCliente.DataTable, False);
finally
AEditor.Release;
AEditor := NIL;
end; end;
end; end;

18
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas
View File

@ -62,15 +62,12 @@ begin
try try
CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor); CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do
begin
try try
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
end; end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;
@ -89,15 +86,12 @@ begin
try try
CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor); CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do
begin
try try
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Print; AEditor.Print;
finally finally
Release; AEditor.Release;
end; end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;

22
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas
View File

@ -63,15 +63,12 @@ begin
try try
CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor); CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do
begin
try try
LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
Preview; AEditor.Preview;
finally finally
Release; AEditor.Release;
end; end;
end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);
AEditor := Nil; AEditor := Nil;
@ -91,14 +88,11 @@ begin
try try
CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor); CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.LoadFromStream(AStream);
try AEditor.Print;
LoadFromStream(AStream); finally
Print; AEditor.Release;
finally
Release;
end;
end; end;
finally finally
FreeAndNil(AStream); FreeAndNil(AStream);

30
Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas
View File

@ -214,14 +214,11 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorTipoIVA', IEditorTipoIVA, AEditor); CreateEditor('EditorTipoIVA', IEditorTipoIVA, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.TipoIVA := ATipoIVA;
try AEditor.ShowModal;
TipoIVA := ATipoIVA; finally
ShowModal; AEditor.Release;
finally
Release;
end;
end; end;
end; end;
@ -232,16 +229,13 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorTiposIVA', IEditorTiposIVA, AEditor); CreateEditor('EditorTiposIVA', IEditorTiposIVA, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.TiposIVA := ATiposIVA;
try AEditor.ShowModal;
TiposIVA := ATiposIVA; finally
ShowModal; AEditor.Release;
finally AEditor := NIL;
Release; end;
AEditor := NIL;
end;
end;
end; end;
function TTiposIVAController.Eliminar(ATipoIVA: IBizTipoIVA): Boolean; function TTiposIVAController.Eliminar(ATipoIVA: IBizTipoIVA): Boolean;

17
Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas
View File

@ -146,16 +146,13 @@ begin
AEditor := NIL; AEditor := NIL;
CreateEditor('EditorUnidadesMedida', IEditorUnidadesMedida, AEditor); CreateEditor('EditorUnidadesMedida', IEditorUnidadesMedida, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
with AEditor do try
begin AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
try AEditor.UnidadesMedida := AUnidadesMedida;
Controller := Self; //OJO ORDEN MUY IMPORTANTE AEditor.ShowModal;
UnidadesMedida := AUnidadesMedida; finally
ShowModal; AEditor.Release;
finally end;
Release;
end;
end;
end; end;
function TUnidadesMedidaController.Eliminar(AUnidadMedida: IBizUnidadMedida): Boolean; function TUnidadesMedidaController.Eliminar(AUnidadMedida: IBizUnidadMedida): Boolean;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

638
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,323 +1,323 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage> <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath> <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType /> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">5</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.4.5.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.4.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 10 de noviembre de 2008 14:07</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</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 Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">6</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.4.6.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.4.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 11 de noviembre de 2008 20:02</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr"> <DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"> <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones_Impl</Form> <Form>srvProvinciasPoblaciones_Impl</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
<Form>srvUsuarios</Form> <Form>srvUsuarios</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" /> <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" /> <DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form> <Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form> <Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form> <Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form> <Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form> <Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" /> <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
<Form>srvArticulos</Form> <Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form> <Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form> <Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form> <Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" /> <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas"> <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form> <Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form> <Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form> <Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form> <Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
<Form>RptFacturasProveedor</Form> <Form>RptFacturasProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form> <Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
<Form>srvFamilias</Form> <Form>srvFamilias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.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\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
<Form>srvFormasPago</Form> <Form>srvFormasPago</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas"> <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
<Form>srvGestorDocumentos</Form> <Form>srvGestorDocumentos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas"> <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
<Form>srvGestorInformes</Form> <Form>srvGestorInformes</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form> <Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form> <Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" /> <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"> <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
<Form>srvObras</Form> <Form>srvObras</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form> <Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form> <Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form> <Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form> <Form>RptPresupuestosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
<Form>RptWordCertificadoTrabajo</Form> <Form>RptWordCertificadoTrabajo</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form> <Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form> <Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form> <Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
<Form>RptRecibosProveedor</Form> <Form>RptRecibosProveedor</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form> <Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form> <Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form> <Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form> <Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.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\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
<Form>srvTiposIVA</Form> <Form>srvTiposIVA</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form> <Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form> <Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form> <Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form> <Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uAcercaDe.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form> <Form>fAcercaDe</Form>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form> <Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form> <Form>fServerForm</Form>
</DCCReference> </DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" /> <DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,4,5,0 FILEVERSION 1,4,6,0
PRODUCTVERSION 1,4,5,0 PRODUCTVERSION 1,4,6,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "1.4.5.0\0" VALUE "FileVersion", "1.4.6.0\0"
VALUE "ProductVersion", "1.4.5.0\0" VALUE "ProductVersion", "1.4.6.0\0"
VALUE "CompileDate", "miércoles, 12 de noviembre de 2008 18:53\0" VALUE "CompileDate", "jueves, 13 de noviembre de 2008 11:42\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"