From 99891c432f9d050f855b49781c8640327ff4bd74 Mon Sep 17 00:00:00 2001 From: david Date: Mon, 14 Jul 2008 14:35:47 +0000 Subject: [PATCH] Controladores: corregida la herencia de interfaces y clases. IObservador -> IControllerBase git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@274 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/ApplicationBase/ApplicationBase.res | Bin 4748 -> 384 bytes .../Controller/uConfiguracionController.pas | 4 +- .../Controller/uEjerciciosController.pas | 4 +- .../uDatosBancariosEmpresaController.pas | 7 +- .../Controller/uTiendasEmpresaController.pas | 6 +- Source/Base/Base.res | Bin 4748 -> 384 bytes .../uAlbaranesClienteController.pas | 6 +- .../uAlbaranesClienteReportController.pas | 4 +- .../uAlbaranesProveedorController.pas | 6 +- .../uAlbaranesProveedorReportController.pas | 4 +- .../Controller/uAlmacenesController.pas | 4 +- .../Controller/uArticulosController.pas | 4 +- .../uBancaElectronicaController.pas | 6 +- .../Controller/uComisionesController.pas | 4 +- .../uComisionesReportController.pas | 4 +- .../Controller/uApuntesController.pas | 4 +- .../Controller/uAsientosController.pas | 4 +- .../Controller/uBalancesController.pas | 6 +- .../Controller/uCuentasController.pas | 4 +- .../uCuentasEspecialesController.pas | 6 +- .../Controller/uEpigrafesController.pas | 4 +- .../Controller/uSubCuentasController.pas | 4 +- .../Controller/Contactos_controller.res | Bin 4748 -> 384 bytes .../Controller/uContactosController.pas | 7 +- .../uDireccionesContactoController.pas | 7 +- .../uEtiquetasContactosReportController.pas | 8 +- .../Controller/uGruposClienteController.pas | 8 +- .../Controller/uGruposProveedorController.pas | 8 +- .../uProcedenciasClienteController.pas | 8 +- .../Contactos/Model/Contactos_model.res | Bin 4748 -> 384 bytes .../Contactos/Views/Contactos_view.res | Bin 4748 -> 384 bytes .../Controller/uFacturasClienteController.pas | 4 +- .../uFacturasClienteReportController.pas | 4 +- .../uFacturasProveedorReportController.pas | 4 +- .../Controller/uFamiliasController.pas | 8 +- .../Controller/uFormasPagoController.pas | 7 +- .../uFormasPagoPlazosController.pas | 8 +- .../uHistoricoMovimientosController.pas | 6 +- .../Controller/uInventarioController.pas | 4 +- .../uPedidosProveedorController.pas | 4 +- .../uPedidosProveedorReportController.pas | 4 +- .../uPresupuestosClienteController.pas | 6 +- .../uPresupuestosClienteReportController.pas | 8 +- .../Controller/uRecibosClienteController.pas | 4 +- .../uRecibosClienteReportController.pas | 8 +- .../uRecibosProveedorController.pas | 6 +- .../uRecibosProveedorReportController.pas | 4 +- .../Controller/uReferenciasController.pas | 4 +- .../Controller/uRemesasClienteController.pas | 4 +- .../uRemesasClienteReportController.pas | 4 +- .../uRemesasProveedorController.pas | 4 +- .../uRemesasProveedorReportController.pas | 4 +- .../Controller/uTiposIVAController.pas | 4 +- .../Controller/uTiposVentaController.pas | 4 +- Source/Servidor/FactuGES_Server.RES | Bin 23344 -> 23344 bytes Source/Servidor/FactuGES_Server.dproj | 526 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 57 files changed, 395 insertions(+), 391 deletions(-) diff --git a/Source/ApplicationBase/ApplicationBase.res b/Source/ApplicationBase/ApplicationBase.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas b/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas index 9d87b73b..64903ca2 100644 --- a/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas +++ b/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas @@ -13,7 +13,7 @@ type function GetEtiquetaConfiguracion : String; end; - IConfiguracionController = interface(IObservador) + IConfiguracionController = interface(IControllerBase) ['{F29215BA-0D34-4AE9-B9A9-C80ABF49A81D}'] procedure ConfigurarAplicacion; procedure SalvarConfiguracion; @@ -30,7 +30,7 @@ type procedure SetSettingAsBoolean(const ASettingName: String; AValue : Boolean); end; - TConfiguracionController = class(TObservador, IConfiguracionController) + TConfiguracionController = class(TControllerBase, IConfiguracionController) private FAppXMLFileStorage : TJvAppXMLFileStorage; public diff --git a/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas b/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas index 70dd1e96..a5197fc6 100644 --- a/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas +++ b/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas @@ -7,7 +7,7 @@ uses uBizEjercicios, uIDataModuleEjercicios; type - IEjerciciosController = interface(IObservador) + IEjerciciosController = interface(IControllerBase) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] function BuscarTodos: IBizEjercicio; function Buscar(ID: Integer): IBizEjercicio; @@ -23,7 +23,7 @@ type function DarListaEjercicios: TStringList; end; - TEjerciciosController = class(TObservador, IEjerciciosController) + TEjerciciosController = class(TControllerBase, IEjerciciosController) private procedure FiltrarEmpresa(AEjercicio: IBizEjercicio); diff --git a/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas b/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas index 935b6eb7..e1befe64 100644 --- a/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas +++ b/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas @@ -4,15 +4,16 @@ interface uses Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, - uBizEmpresas, uBizEmpresasDatosBancarios, uIDataModuleEmpresas; + uBizEmpresas, uBizEmpresasDatosBancarios, uIDataModuleEmpresas, + uControllerBase; type - IDatosBancariosEmpresaController = interface + IDatosBancariosEmpresaController = interface(IControllerBase) ['{E9B0313E-7B16-420A-B47E-20E42E96BAC6}'] procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios); end; - TDatosBancariosEmpresaController = class(TInterfacedObject, IDatosBancariosEmpresaController) + TDatosBancariosEmpresaController = class(TControllerBase, IDatosBancariosEmpresaController) private FDataModule : IDataModuleEmpresas; public diff --git a/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas b/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas index c68d7d0f..7e5cecdd 100644 --- a/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas +++ b/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas @@ -4,16 +4,16 @@ interface uses Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, - uIntegerListUtils, uBizEmpresasTiendas, uIDataModuleEmpresas; + uIntegerListUtils, uBizEmpresasTiendas, uIDataModuleEmpresas, uControllerBase; type - ITiendasEmpresaController = interface + ITiendasEmpresaController = interface(IControllerBase) ['{5DCF4163-7FA0-4560-9E5E-FA2A99EA4F59}'] procedure VerTienda(ATienda : IBizEmpresasTiendas); function DarListaTiendas: TStringList; end; - TTiendasEmpresaController = class(TInterfacedObject, ITiendasEmpresaController) + TTiendasEmpresaController = class(TControllerBase, ITiendasEmpresaController) private FDataModule : IDataModuleEmpresas; public diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index 845b8c23..11da35e2 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas @@ -4,12 +4,12 @@ interface uses - SysUtils, uDADataTable, uEditorDBItem, + SysUtils, uDADataTable, uEditorDBItem, uControllerBase, uIDataModuleAlbaranesCliente, uClientesController, uDetallesAlbaranClienteController, uBizAlbaranesCliente, uBizDireccionesContacto; type - IAlbaranesClienteController = interface(IObservador) + IAlbaranesClienteController = interface(IControllerBase) ['{E83F4950-400E-446B-8EB0-1609FF8FEA77}'] function GetClienteController: IClientesController; procedure SetClienteController(const Value: IClientesController); @@ -63,7 +63,7 @@ type procedure SetID_Tienda (AAlbaran: IBizAlbaranCliente; const ID_Tienda: Integer); end; - TAlbaranesClienteController = class(TObservador, IAlbaranesClienteController) + TAlbaranesClienteController = class(TControllerBase, IAlbaranesClienteController) protected FDataModule : IDataModuleAlbaranesCliente; FClienteController : IClientesController; diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas index fa80b1c4..4e7171e1 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas +++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas @@ -8,7 +8,7 @@ uses uBizAlbaranesCliente; type - IAlbaranesClienteReportController = interface + IAlbaranesClienteReportController = interface(IControllerBase) ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}'] procedure Preview(const AID : String); procedure Print(const AID : String); @@ -16,7 +16,7 @@ type procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean); end; - TAlbaranesClienteReportController = class(TInterfacedObject, IAlbaranesClienteReportController) + TAlbaranesClienteReportController = class(TControllerBase, IAlbaranesClienteReportController) private FDataModule : IDataModuleAlbaranesClienteReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index 42b1a7c3..e8a24806 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas @@ -4,14 +4,14 @@ interface uses - SysUtils, uDADataTable, uEditorDBItem, + SysUtils, uDADataTable, uEditorDBItem, uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController, uDetallesAlbaranProveedorController, uBizAlbaranesProveedor, uBizDireccionesContacto; //, uBizInventario; type - IAlbaranesProveedorController = interface(IObservador) + IAlbaranesProveedorController = interface(IControllerBase) ['{E2FA2312-EDBD-4E80-B3D7-A8784F6A4E39}'] function GetProveedorController: IProveedoresController; procedure SetProveedorController(const Value: IProveedoresController); @@ -59,7 +59,7 @@ type procedure SetID_Tienda (AAlbaran: IBizAlbaranProveedor; const ID_Tienda: Integer); end; - TAlbaranesProveedorController = class(TObservador, IAlbaranesProveedorController) + TAlbaranesProveedorController = class(TControllerBase, IAlbaranesProveedorController) protected FDataModule : IDataModuleAlbaranesProveedor; FProveedorController : IProveedoresController; diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas index d8c36da4..5b17507b 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas @@ -8,13 +8,13 @@ uses uBizAlbaranesProveedor; type - IAlbaranesProveedorReportController = interface + IAlbaranesProveedorReportController = interface(IControllerBase) ['{AAE252CE-D407-4FF4-AF2A-350C5A421C89}'] procedure Preview(const AID : String); procedure Print(const AID : String); end; - TAlbaranesProveedorReportController = class(TInterfacedObject, IAlbaranesProveedorReportController) + TAlbaranesProveedorReportController = class(TControllerBase, IAlbaranesProveedorReportController) private FDataModule : IDataModuleAlbaranesProveedorReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas index 067bd912..315f5da2 100644 --- a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas +++ b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas @@ -8,7 +8,7 @@ uses uIDataModuleAlmacenes, uBizAlmacenes; type - IAlmacenesController = interface(IObservador) + IAlmacenesController = interface(IControllerBase) ['{1F5E5845-5B29-4C08-87F0-D753E5454068}'] function Buscar(const ID: Integer): IBizAlmacen; function BuscarTodos: IBizAlmacen; @@ -27,7 +27,7 @@ type procedure Print(AAlmacen : IBizAlmacen); end; - TAlmacenesController = class(TObservador, IAlmacenesController) + TAlmacenesController = class(TControllerBase, IAlmacenesController) protected FDataModule : IDataModuleAlmacenes; diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index 9ef05d1a..18e6fac6 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas @@ -9,7 +9,7 @@ uses uBizContactos; type - IArticulosController = interface(IObservador) + IArticulosController = interface(IControllerBase) ['{C7EA6486-7BE4-468E-A27A-621E1BA13430}'] function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; function BuscarInventariables: IBizArticulo; @@ -43,7 +43,7 @@ type property ProveedoresController: IProveedoresController read GetProveedoresController; end; - TArticulosController = class(TObservador, IArticulosController) + TArticulosController = class(TControllerBase, IArticulosController) protected FDataModule : IDataModuleArticulos; FProveedoresController: IProveedoresController; diff --git a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas index ab1b1509..68452d95 100644 --- a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas +++ b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas @@ -26,15 +26,15 @@ unit uBancaElectronicaController; interface uses - Classes, SysUtils, uDADataTable; + Classes, SysUtils, uDADataTable, uControllerBase; type - IBancaElectronicaController = interface + IBancaElectronicaController = interface(IControllerBase) ['{9E37DF46-D02C-47C4-BCBE-414FB97A7751}'] procedure GenerarFicheroNorma19 (const IDRemesa : Integer); end; - TBancaElectronicaController = class(TInterfacedObject, IBancaElectronicaController) + TBancaElectronicaController = class(TControllerBase, IBancaElectronicaController) private function DarParametrosParaExportar(var Entidad : Integer; var Oficina : Integer; var AFechaCargo : TDateTime; var AFileName : String): Boolean; diff --git a/Source/Modulos/Comisiones/Controller/uComisionesController.pas b/Source/Modulos/Comisiones/Controller/uComisionesController.pas index ea05c7a7..8b0b14c0 100644 --- a/Source/Modulos/Comisiones/Controller/uComisionesController.pas +++ b/Source/Modulos/Comisiones/Controller/uComisionesController.pas @@ -8,7 +8,7 @@ uses uIDataModuleComisiones, uBizComisiones; //, uFacturasClienteController, uBizFacturasCliente; type - IComisionesController = interface(IObservador) + IComisionesController = interface(IControllerBase) ['{0C281A5D-9DF9-46BD-99CB-1150A536EFA1}'] function BuscarTodos: IBizComisiones; function Buscar(const ID: Integer): IBizComisiones; @@ -26,7 +26,7 @@ type procedure AsignarImporteTotal(AComision : IBizComisiones; Const ImporteTotal: Variant); end; - TComisionesController = class(TObservador, IComisionesController) + TComisionesController = class(TControllerBase, IComisionesController) private // function BuscarFacturasDesglosadas(AFacturas: IBizFacturaCliente): IBizFacturasComision; // procedure QuitarExistentes(AFacturas: IBizFacturaCliente; AFacturasComision: IBizFacturasComision); diff --git a/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas b/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas index 21fa334f..dd715b68 100644 --- a/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas +++ b/Source/Modulos/Comisiones/Controller/uComisionesReportController.pas @@ -8,13 +8,13 @@ uses uBizComisiones; type - IComisionesReportController = interface + IComisionesReportController = interface(IControllerBase) ['{7ABB74C2-050C-4737-BC4C-C5F20883CED8}'] procedure Preview(const AComisionID : String); procedure Print(const AComisionID : String); end; - TComisionesReportController = class(TInterfacedObject, IComisionesReportController) + TComisionesReportController = class(TControllerBase, IComisionesReportController) private FDataModule : IDataModuleComisionesReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Contabilidad/Controller/uApuntesController.pas b/Source/Modulos/Contabilidad/Controller/uApuntesController.pas index 058b96ab..8712800f 100644 --- a/Source/Modulos/Contabilidad/Controller/uApuntesController.pas +++ b/Source/Modulos/Contabilidad/Controller/uApuntesController.pas @@ -7,7 +7,7 @@ uses Classes, SysUtils, uDADataTable, uControllerBase, uBizApuntes, uBizSubCuentas, uIDataModuleContabilidad; type - IApuntesController = interface(IObservador) + IApuntesController = interface(IControllerBase) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] // function BuscarTodos: IBizApunte; // function Buscar(const ID: Integer): IBizApunte; @@ -28,7 +28,7 @@ type procedure AsignarHABER(AApunte: IBizApunte); end; - TApuntesController = class(TObservador, IApuntesController) + TApuntesController = class(TControllerBase, IApuntesController) private procedure CopiarSubCuenta_Apunte(AApunte: IBizApunte; ASubCuenta : IBizSubCuenta); diff --git a/Source/Modulos/Contabilidad/Controller/uAsientosController.pas b/Source/Modulos/Contabilidad/Controller/uAsientosController.pas index 9e47492e..ad2495cb 100644 --- a/Source/Modulos/Contabilidad/Controller/uAsientosController.pas +++ b/Source/Modulos/Contabilidad/Controller/uAsientosController.pas @@ -7,7 +7,7 @@ uses Classes, SysUtils, uDADataTable, uControllerBase, uBizAsientos, uBizDiario, uIDataModuleContabilidad; type - IAsientosController = interface(IObservador) + IAsientosController = interface(IControllerBase) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] function BuscarAsientos(IdSubCuenta: Integer = -1): IBizDiario; function Buscar(const ID: Integer): IBizAsiento; @@ -23,7 +23,7 @@ type procedure DescartarCambios(AAsiento : IBizAsiento); end; - TAsientosController = class(TObservador, IAsientosController) + TAsientosController = class(TControllerBase, IAsientosController) protected FDataModule : IDataModuleContabilidad; diff --git a/Source/Modulos/Contabilidad/Controller/uBalancesController.pas b/Source/Modulos/Contabilidad/Controller/uBalancesController.pas index 77c83dc8..e282ff80 100644 --- a/Source/Modulos/Contabilidad/Controller/uBalancesController.pas +++ b/Source/Modulos/Contabilidad/Controller/uBalancesController.pas @@ -5,9 +5,9 @@ interface uses Classes, SysUtils, uDADataTable, uControllerBase, - uBizBalances, uIDataModuleContabilidad; + uBizBalances, uIDataModuleContabilidad; type - IBalancesController = interface(IObservador) + IBalancesController = interface(IControllerBase) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] function BuscarTodos: IBizBalance; function Buscar(ID: Integer): IBizBalance; @@ -24,7 +24,7 @@ type function ElegirBalance(ABalances : IBizBalance; AMensaje: String; AMultiSelect: Boolean): IBizBalance; end; - TBalancesController = class(TObservador, IBalancesController) + TBalancesController = class(TControllerBase, IBalancesController) protected FDataModule : IDataModuleContabilidad; diff --git a/Source/Modulos/Contabilidad/Controller/uCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uCuentasController.pas index 193c83dc..991ee5c9 100644 --- a/Source/Modulos/Contabilidad/Controller/uCuentasController.pas +++ b/Source/Modulos/Contabilidad/Controller/uCuentasController.pas @@ -7,7 +7,7 @@ uses Classes, SysUtils, uDADataTable, uControllerBase, uBizCuentas, uIDataModuleContabilidad; type - ICuentasController = interface(IObservador) + ICuentasController = interface(IControllerBase) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] function BuscarTodos: IBizCuenta; function Buscar(ID: Integer): IBizCuenta; @@ -28,7 +28,7 @@ type procedure ElegirCuentaEspecial(ACuenta: IBizCuenta); end; - TCuentasController = class(TObservador, ICuentasController) + TCuentasController = class(TControllerBase, ICuentasController) protected FDataModule : IDataModuleContabilidad; diff --git a/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas b/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas index 52f06d92..dc3d85b8 100644 --- a/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas +++ b/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas @@ -5,9 +5,9 @@ interface uses Classes, SysUtils, uDADataTable, uControllerBase, - uBizCuentasEspeciales, uIDataModuleContabilidad; + uBizCuentasEspeciales, uIDataModuleContabilidad; type - ICuentasEspecialesController = interface(IObservador) + ICuentasEspecialesController = interface(IControllerBase) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] function BuscarTodos: IBizCuentaEspecial; function Buscar(ID: Integer): IBizCuentaEspecial; @@ -24,7 +24,7 @@ type function ElegirCuentaEspecial(ACuentasEspeciales : IBizCuentaEspecial; AMensaje: String; AMultiSelect: Boolean): IBizCuentaEspecial; end; - TCuentasEspecialesController = class(TObservador, ICuentasEspecialesController) + TCuentasEspecialesController = class(TControllerBase, ICuentasEspecialesController) protected FDataModule : IDataModuleContabilidad; diff --git a/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas b/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas index b7587a31..5c67bfc6 100644 --- a/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas +++ b/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas @@ -7,7 +7,7 @@ uses Classes, SysUtils, uDADataTable, uControllerBase, uBizEpigrafes, uIDataModuleContabilidad; type - IEpigrafesController = interface(IObservador) + IEpigrafesController = interface(IControllerBase) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] function BuscarTodos: IBizEpigrafe; function Buscar(ID: Integer): IBizEpigrafe; @@ -26,7 +26,7 @@ type end; - TEpigrafesController = class(TObservador, IEpigrafesController) + TEpigrafesController = class(TControllerBase, IEpigrafesController) protected FDataModule : IDataModuleContabilidad; diff --git a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas index 10132b81..9edddd03 100644 --- a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas +++ b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas @@ -23,7 +23,7 @@ const type TEnumTipoSubCuenta = (tTodas, tClientes, tProveedores, tCompras, tVentas, tCajas); - ISubCuentasController = interface(IObservador) + ISubCuentasController = interface(IControllerBase) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] function BuscarTodos: IBizSubCuenta; function Buscar(ID: Integer): IBizSubCuenta; @@ -49,7 +49,7 @@ type function Duplicar(ASubCuenta: IBizSubCuenta): IBizSubCuenta; end; - TSubCuentasController = class(TObservador, ISubCuentasController) + TSubCuentasController = class(TControllerBase, ISubCuentasController) private function BuscarCuentas(const REF_CUENTA: Integer): IBizSubCuenta; function BuscarCuentasLibres(TipoCuenta: Integer): IBizSubCuenta; diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.res b/Source/Modulos/Contactos/Controller/Contactos_controller.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas index 06b3561f..f2e4da48 100644 --- a/Source/Modulos/Contactos/Controller/uContactosController.pas +++ b/Source/Modulos/Contactos/Controller/uContactosController.pas @@ -6,10 +6,11 @@ interface uses Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos, - uBizDireccionesContacto, uDireccionesContactoController; + uBizDireccionesContacto, uDireccionesContactoController, + uControllerBase; type - IContactosController = interface + IContactosController = interface(IControllerBase) ['{43F9A4ED-6563-4F95-9A56-330CF9C66731}'] function Buscar(const ID: Integer): IBizContacto; function BuscarTodos: IBizContacto; @@ -32,7 +33,7 @@ type function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto; end; - TContactosController = class(TInterfacedObject, IContactosController) + TContactosController = class(TControllerBase, IContactosController) protected FDataModule : IDataModuleContactos; procedure FiltrarEmpresa(AContacto : IBizContacto); virtual; diff --git a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas index 52093792..2a4544df 100644 --- a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas +++ b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas @@ -4,17 +4,18 @@ interface uses Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, - uBizContactos, uBizDireccionesContacto, uIDataModuleContactos; + uBizContactos, uBizDireccionesContacto, uIDataModuleContactos, + uControllerBase; type - IDireccionesContactoController = interface + IDireccionesContactoController = interface(IControllerBase) ['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}'] procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True); procedure Ver(ADireccion : IBizDireccionesContacto); function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean; end; - TDireccionesContactoController = class(TInterfacedObject, IDireccionesContactoController) + TDireccionesContactoController = class(TControllerBase, IDireccionesContactoController) private FDataModule : IDataModuleContactos; public diff --git a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas index b1dd4759..8ff823a6 100644 --- a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas +++ b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas @@ -3,17 +3,17 @@ unit uEtiquetasContactosReportController; interface uses - Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleEtiquetasContactosReport, - uVendedoresController; + Classes, SysUtils, uDADataTable, uIDataModuleEtiquetasContactosReport, + uVendedoresController, uControllerBase; type - IEtiquetasContactosReportController = interface + IEtiquetasContactosReportController = interface(IControllerBase) ['{76BB35E3-554E-4D30-8D3E-54E488EF82E2}'] procedure Preview(const AContactosID : String); procedure Print(const AContactosID : String); end; - TEtiquetasContactosReportController = class(TInterfacedObject, IEtiquetasContactosReportController) + TEtiquetasContactosReportController = class(TControllerBase, IEtiquetasContactosReportController) private FDataModule : IDataModuleEtiquetasContactosReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Contactos/Controller/uGruposClienteController.pas b/Source/Modulos/Contactos/Controller/uGruposClienteController.pas index 9e51fc9e..d45a9631 100644 --- a/Source/Modulos/Contactos/Controller/uGruposClienteController.pas +++ b/Source/Modulos/Contactos/Controller/uGruposClienteController.pas @@ -4,11 +4,11 @@ interface uses - Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem, - uIDataModuleClientes, uBizGruposCliente; + Classes, SysUtils, uDADataTable, uEditorDBItem, + uIDataModuleClientes, uBizGruposCliente, uControllerBase; type - IGruposClienteController = interface(IObservador) + IGruposClienteController = interface(IControllerBase) ['{32D31B02-76A6-4C9B-85D4-3C632969AC79}'] function BuscarTodos: IBizGrupoCliente; procedure VerTodos(AGruposCliente: IBizGrupoCliente); @@ -20,7 +20,7 @@ type function DarListaGruposCliente: TStringList; end; - TGruposClienteController = class(TObservador, IGruposClienteController) + TGruposClienteController = class(TControllerBase, IGruposClienteController) protected FDataModule : IDataModuleClientes; procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; diff --git a/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas b/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas index c99eb8fa..791a3bbd 100644 --- a/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas +++ b/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas @@ -4,11 +4,11 @@ interface uses - Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem, - uIDataModuleProveedores, uBizGruposProveedor; + Classes, SysUtils, uDADataTable, uEditorDBItem, + uIDataModuleProveedores, uBizGruposProveedor, uControllerBase; type - IGruposProveedorController = interface(IObservador) + IGruposProveedorController = interface(IControllerBase) ['{20B27FB1-ECEA-40B6-9869-5F5EC700EEDD}'] function BuscarTodos: IBizGrupoProveedor; procedure VerTodos(AGruposProveedor: IBizGrupoProveedor); @@ -20,7 +20,7 @@ type function DarListaGruposProveedor: TStringList; end; - TGruposProveedorController = class(TObservador, IGruposProveedorController) + TGruposProveedorController = class(TControllerBase, IGruposProveedorController) protected FDataModule : IDataModuleProveedores; procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; diff --git a/Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas b/Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas index d9ef2755..8290aef9 100644 --- a/Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas +++ b/Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas @@ -4,11 +4,11 @@ interface uses - Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem, - uIDataModuleClientes, uBizProcedenciasCliente; + Classes, SysUtils, uDADataTable, uEditorDBItem, + uIDataModuleClientes, uBizProcedenciasCliente, uControllerBase; type - IProcedenciasClienteController = interface(IObservador) + IProcedenciasClienteController = interface(IControllerBase) ['{C2D71CED-DCD6-47F1-8BCA-1027DA4A6385}'] function BuscarTodos: IBizProcedenciaCliente; procedure VerTodos(AProcedenciasCliente: IBizProcedenciaCliente); @@ -20,7 +20,7 @@ type function DarListaProcedenciasCliente: TStringList; end; - TProcedenciasClienteController = class(TObservador, IProcedenciasClienteController) + TProcedenciasClienteController = class(TControllerBase, IProcedenciasClienteController) protected FDataModule : IDataModuleClientes; procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; diff --git a/Source/Modulos/Contactos/Model/Contactos_model.res b/Source/Modulos/Contactos/Model/Contactos_model.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 30580810..806af578 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -9,7 +9,7 @@ uses uBizFacturasCliente, uBizDireccionesContacto; type - IFacturasClienteController = interface(IObservador) + IFacturasClienteController = interface(IControllerBase) ['{CAD20B4E-6D0B-4A1C-9306-B195824B6CAD}'] function GetClienteController: IClientesController; procedure SetClienteController(const Value: IClientesController); @@ -56,7 +56,7 @@ type procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer); end; - TFacturasClienteController = class(TObservador, IFacturasClienteController) + TFacturasClienteController = class(TControllerBase, IFacturasClienteController) private FDataModule : IDataModuleFacturasCliente; FClienteController : IClientesController; diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas index 8608589d..dcb02ee3 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas @@ -8,13 +8,13 @@ uses uBizFacturasCliente; type - IFacturasClienteReportController = interface + IFacturasClienteReportController = interface(IControllerBase) ['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}'] procedure Preview(const AFacturaID : String); procedure Print(const AFacturaID : String); end; - TFacturasClienteReportController = class(TInterfacedObject, IFacturasClienteReportController) + TFacturasClienteReportController = class(TControllerBase, IFacturasClienteReportController) private FDataModule : IDataModuleFacturasClienteReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas index 40d4d2be..1d6507c3 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas @@ -7,13 +7,13 @@ uses uClientesController, uDetallesFacturaProveedorController, uBizFacturasProveedor; type - IFacturasProveedorReportController = interface + IFacturasProveedorReportController = interface(IControllerBase) ['{551F82DC-B8DC-482E-A20D-15003E845078}'] procedure Preview(const AFacturaID : String); procedure Print(const AFacturaID : String); end; - TFacturasProveedorReportController = class(TInterfacedObject, IFacturasProveedorReportController) + TFacturasProveedorReportController = class(TControllerBase, IFacturasProveedorReportController) private FDataModule : IDataModuleFacturasProveedorReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Familias/Controller/uFamiliasController.pas b/Source/Modulos/Familias/Controller/uFamiliasController.pas index 58ff5397..b584be81 100644 --- a/Source/Modulos/Familias/Controller/uFamiliasController.pas +++ b/Source/Modulos/Familias/Controller/uFamiliasController.pas @@ -4,11 +4,11 @@ interface uses - Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem, - uIDataModuleFamilias, uBizFamilias; + Classes, SysUtils, uDADataTable, uEditorDBItem, + uIDataModuleFamilias, uBizFamilias, uControllerBase; type - IFamiliasController = interface(IObservador) + IFamiliasController = interface(IControllerBase) ['{3987874F-57A8-4C71-8B7E-CBD2D1580CBC}'] function BuscarTodos: IBizFamilia; procedure VerTodos(AFamilias: IBizFamilia); @@ -20,7 +20,7 @@ type function DarListaFamilias: TStringList; end; - TFamiliasController = class(TObservador, IFamiliasController) + TFamiliasController = class(TControllerBase, IFamiliasController) protected FDataModule : IDataModuleFamilias; diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas index 4a01cf34..cd522bd2 100644 --- a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas +++ b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas @@ -4,10 +4,11 @@ interface uses - Classes, SysUtils, uDADataTable, uControllerBase, + Classes, SysUtils, uDADataTable, uControllerBase, uBizFormasPago, uFormasPagoPlazosController, uIDataModuleFormasPago; + type - IFormasPagoController = interface(IObservador) + IFormasPagoController = interface(IControllerBase) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] function BuscarTodos: IBizFormaPago; function Buscar(ID: Integer): IBizFormaPago; @@ -23,7 +24,7 @@ type function DarListaFormasPago: TStringList; end; - TFormasPagoController = class(TObservador, IFormasPagoController) + TFormasPagoController = class(TControllerBase, IFormasPagoController) protected FDataModule : IDataModuleFormasPago; FPlazosController : IFormasPagoPlazosController; diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas b/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas index 6d40efd2..d4ffbd63 100644 --- a/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas +++ b/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas @@ -4,13 +4,15 @@ interface uses Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, - uBizFormasPago, uBizFormasPagoPlazos, uIDataModuleFormasPago; + uBizFormasPago, uBizFormasPagoPlazos, uIDataModuleFormasPago, + uControllerBase; + type - IFormasPagoPlazosController = interface + IFormasPagoPlazosController = interface(IControllerBase) ['{3FCE2A31-9783-45F9-96D6-1157165AB8DB}'] end; - TFormasPagoPlazosController = class(TInterfacedObject, IFormasPagoPlazosController) + TFormasPagoPlazosController = class(TControllerBase, IFormasPagoPlazosController) private FDataModule : IDataModuleFormasPago; public diff --git a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas index 5a828bdd..4f515665 100644 --- a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas +++ b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas @@ -4,11 +4,11 @@ interface uses - Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem, + Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem, uIDataModuleHistoricoMovimientos, uBizHistoricoMovimientos, uAlmacenesController; type - IHistoricoMovimientosController = interface(IObservador) + IHistoricoMovimientosController = interface(IControllerBase) ['{F60D83E3-DDAA-497F-8193-62F9D693B4B0}'] procedure VerTodos(AHistoricoMovimientos: IBizHistoricoMovimientos); function BuscarTodos: IBizHistoricoMovimientos; @@ -24,7 +24,7 @@ type property AlmacenesController: IAlmacenesController read GetAlmacenesController write SetAlmacenesController; end; - THistoricoMovimientosController = class(TObservador, IHistoricoMovimientosController) + THistoricoMovimientosController = class(TControllerBase, IHistoricoMovimientosController) private FAlmacenesController: IAlmacenesController; function GetAlmacenesController: IAlmacenesController; diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas index 66085990..6f48f453 100644 --- a/Source/Modulos/Inventario/Controller/uInventarioController.pas +++ b/Source/Modulos/Inventario/Controller/uInventarioController.pas @@ -11,7 +11,7 @@ uses uBizAlmacenes; type - IInventarioController = interface(IObservador) + IInventarioController = interface(IControllerBase) ['{FB1DE6BA-ADCC-4A83-B4D4-37DC5892766B}'] @@ -47,7 +47,7 @@ type procedure Copiar(AArticulos: IBizInventario; ADetalles: IDAStronglyTypedDataTable; AInventario: IBizInventario); overload; end; - TInventarioController = class(TObservador, IInventarioController) + TInventarioController = class(TControllerBase, IInventarioController) private FAlmacenesController: IAlmacenesController; FArticulosController : IArticulosInventarioController; diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas index 5ca8803d..43b18aab 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas @@ -9,7 +9,7 @@ uses uDetallesPedidoProveedorController, uBizPedidosProveedor; type - IPedidosProveedorController = interface(IObservador) + IPedidosProveedorController = interface(IControllerBase) ['{404FFA2F-D683-447D-91E6-C9A7322934D8}'] function GetProveedorController: IProveedoresController; procedure SetProveedorController(const Value: IProveedoresController); @@ -51,7 +51,7 @@ type procedure SetID_Tienda (APedido: IBizPedidoProveedor; const ID_Tienda: Integer); end; - TPedidosProveedorController = class(TObservador, IPedidosProveedorController) + TPedidosProveedorController = class(TControllerBase, IPedidosProveedorController) protected FDataModule : IDataModulePedidosProveedor; FProveedorController : IProveedoresController; diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas index 3fcb383a..71501c1a 100644 --- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas @@ -8,13 +8,13 @@ uses uBizPedidosProveedor; type - IPedidosProveedorReportController = interface + IPedidosProveedorReportController = interface(IControllerBase) ['{D0686358-251C-43C4-9927-6112F2F4D3B8}'] procedure Preview(const AID : String); procedure Print(const AID : String); end; - TPedidosProveedorReportController = class(TInterfacedObject, IPedidosProveedorReportController) + TPedidosProveedorReportController = class(TControllerBase, IPedidosProveedorReportController) private FDataModule : IDataModulePedidosProveedorReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index d5b872d8..9698d0a2 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -4,13 +4,13 @@ interface uses - SysUtils, uDADataTable, uEditorDBItem, + SysUtils, uDADataTable, uEditorDBItem, uControllerBase, uIDataModulePresupuestosCliente, uClientesController, uDetallesPresupuestoClienteController, uBizPresupuestosCliente, uBizDireccionesContacto, uBizDetallesPresupuestoCliente; type - IPresupuestosClienteController = interface(IObservador) + IPresupuestosClienteController = interface(IControllerBase) ['{21ED0332-F0E0-468D-8D53-8CA362757191}'] function GetClienteController: IClientesController; procedure SetClienteController(const Value: IClientesController); @@ -53,7 +53,7 @@ type procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant); end; - TPresupuestosClienteController = class(TObservador, IPresupuestosClienteController) + TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController) protected FDataModule : IDataModulePresupuestosCliente; FClienteController : IClientesController; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas index 27cf5d70..cdd0f8e0 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas @@ -3,18 +3,18 @@ unit uPresupuestosClienteReportController; interface uses - Classes, SysUtils, uDADataTable, uControllerBase, uIDataModulePresupuestosClienteReport, + Classes, SysUtils, uDADataTable, uIDataModulePresupuestosClienteReport, uClientesController, uPresupuestosClienteController, uDetallesPresupuestoClienteController, - uBizPresupuestosCliente; + uBizPresupuestosCliente, uControllerBase; type - IPresupuestosClienteReportController = interface + IPresupuestosClienteReportController = interface(IControllerBase) ['{D0686358-251C-43C4-9927-6112F2F4D3B8}'] procedure Preview(const AID : String); procedure Print(const AID : String); end; - TPresupuestosClienteReportController = class(TInterfacedObject, IPresupuestosClienteReportController) + TPresupuestosClienteReportController = class(TControllerBase, IPresupuestosClienteReportController) private FDataModule : IDataModulePresupuestosClienteReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index 3e7aee73..53c5e422 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -31,7 +31,7 @@ uses uBizRecibosCliente, uIDataModuleRecibosCliente; type - IRecibosClienteController = interface(IObservador) + IRecibosClienteController = interface(IControllerBase) ['{CBC8BDB8-FBE0-4D54-B2F1-A9330E8339EB}'] function GetClienteController: IClientesController; procedure SetClienteController(const Value: IClientesController); @@ -85,7 +85,7 @@ type procedure Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false); end; - TRecibosClienteController = class(TObservador, IRecibosClienteController) + TRecibosClienteController = class(TControllerBase, IRecibosClienteController) private function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente; var ImporteRestante: Currency): Boolean; diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas index dfc15645..6725f2e1 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas @@ -3,17 +3,17 @@ unit uRecibosClienteReportController; interface uses - Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRecibosClienteReport, - uBizRecibosCliente; + Classes, SysUtils, uDADataTable, uIDataModuleRecibosClienteReport, + uBizRecibosCliente, uControllerBase; type - IRecibosClienteReportController = interface + IRecibosClienteReportController = interface(IControllerBase) ['{3837DFA3-0A38-4BB2-B0DB-D0615249EA49}'] procedure Preview(const ID : String); procedure Print(const ID : String); end; - TRecibosClienteReportController = class(TInterfacedObject, IRecibosClienteReportController) + TRecibosClienteReportController = class(TControllerBase, IRecibosClienteReportController) private FDataModule : IDataModuleRecibosClienteReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas index 29a6932d..48832771 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas @@ -26,12 +26,12 @@ unit uRecibosProveedorController; interface uses - Classes, SysUtils, uDADataTable, uControllerBase, + Classes, SysUtils, uDADataTable, uControllerBase, uPagosProveedorController, uProveedoresController, uBizDireccionesContacto, uBizRecibosProveedor, uIDataModuleRecibosProveedor; type - IRecibosProveedorController = interface(IObservador) + IRecibosProveedorController = interface(IControllerBase) ['{763DF610-3540-42BE-A09A-35AABFAF2DA1}'] function GetProveedorController: IProveedoresController; procedure SetProveedorController(const Value: IProveedoresController); @@ -79,7 +79,7 @@ type procedure Print(ARecibosProveedor : IBizRecibosProveedor); end; - TRecibosProveedorController = class(TObservador, IRecibosProveedorController) + TRecibosProveedorController = class(TControllerBase, IRecibosProveedorController) private function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor; var ImporteRestante: Currency): Boolean; diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas index 70ed4170..cc026e8b 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas @@ -7,13 +7,13 @@ uses uBizRecibosProveedor; type - IRecibosProveedorReportController = interface + IRecibosProveedorReportController = interface(IControllerBase) ['{33009D46-9B5C-4255-AC5E-8AA93A1DDB7B}'] procedure Preview(const ID : integer); procedure Print(const ID : integer); end; - TRecibosProveedorReportController = class(TInterfacedObject, IRecibosProveedorReportController) + TRecibosProveedorReportController = class(TControllerBase, IRecibosProveedorReportController) private FDataModule : IDataModuleRecibosProveedorReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Referencias/Controller/uReferenciasController.pas b/Source/Modulos/Referencias/Controller/uReferenciasController.pas index e6482be8..739b5dc4 100644 --- a/Source/Modulos/Referencias/Controller/uReferenciasController.pas +++ b/Source/Modulos/Referencias/Controller/uReferenciasController.pas @@ -8,7 +8,7 @@ uses uIDataModuleReferencias, uBizReferencias; type - IReferenciasController = interface(IObservador) + IReferenciasController = interface(IControllerBase) ['{832E33B0-3228-4519-A740-F551DF3004DD}'] function BuscarTodos: IBizReferencia; procedure VerTodos(AReferencias: IBizReferencia); @@ -16,7 +16,7 @@ type procedure DescartarCambios(AReferencia : IBizReferencia); end; - TReferenciasController = class(TObservador, IReferenciasController) + TReferenciasController = class(TControllerBase, IReferenciasController) protected FDataModule : IDataModuleReferencias; diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas index 1f43849e..e470b6d2 100644 --- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas +++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas @@ -9,7 +9,7 @@ uses uBizContactos, uRecibosClienteController; type - IRemesasClienteController = interface(IObservador) + IRemesasClienteController = interface(IControllerBase) ['{F5D925C6-255C-4374-9A71-DFC0FBB7FA96}'] function Buscar(const ID: Integer): IBizRemesaCliente; function BuscarTodos: IBizRemesaCliente; overload; @@ -37,7 +37,7 @@ type function ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente) : IBizRemesaCliente; end; - TRemesasClienteController = class(TObservador, IRemesasClienteController) + TRemesasClienteController = class(TControllerBase, IRemesasClienteController) protected FDataModule : IDataModuleRemesasCliente; FRecibosClienteController: IRecibosClienteController; diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas index f38012be..f4743ae8 100644 --- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas +++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas @@ -7,13 +7,13 @@ uses uBizRemesasCliente; type - IRemesasClienteReportController = interface + IRemesasClienteReportController = interface(IControllerBase) ['{EA6EAD10-E07B-45A9-9B5E-0D560E2B92DF}'] procedure Preview(const ID : String); procedure Print(const ID : String); end; - TRemesasClienteReportController = class(TInterfacedObject, IRemesasClienteReportController) + TRemesasClienteReportController = class(TControllerBase, IRemesasClienteReportController) private FDataModule : IDataModuleRemesasClienteReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas index ceca2e29..e1b7dad1 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas +++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas @@ -9,7 +9,7 @@ uses uBizContactos, uRecibosProveedorController; type - IRemesasProveedorController = interface(IObservador) + IRemesasProveedorController = interface(IControllerBase) ['{C14143FE-0806-4E64-93E2-A2C0170BBD41}'] function Buscar(const ID: Integer): IBizRemesaProveedor; function BuscarTodos: IBizRemesaProveedor; overload; @@ -37,7 +37,7 @@ type function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor) : IBizRemesaProveedor; end; - TRemesasProveedorController = class(TObservador, IRemesasProveedorController) + TRemesasProveedorController = class(TControllerBase, IRemesasProveedorController) protected FDataModule : IDataModuleRemesasProveedor; FRecibosProveedorController: IRecibosProveedorController; diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas index 6147127e..2e28d2ee 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas +++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas @@ -7,13 +7,13 @@ uses uBizRemesasProveedor; type - IRemesasProveedorReportController = interface + IRemesasProveedorReportController = interface(IControllerBase) ['{A89AAA05-19AD-4455-BAF6-8A5373D15FE7}'] procedure Preview(const ID : String); procedure Print(const ID : String); end; - TRemesasProveedorReportController = class(TInterfacedObject, IRemesasProveedorReportController) + TRemesasProveedorReportController = class(TControllerBase, IRemesasProveedorReportController) private FDataModule : IDataModuleRemesasProveedorReport; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; diff --git a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas b/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas index 1ea819e8..843b63f6 100644 --- a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas +++ b/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas @@ -30,7 +30,7 @@ uses uBizTiposIVA, uIDataModuleTiposIVA; type - ITiposIVAController = interface(IObservador) + ITiposIVAController = interface(IControllerBase) ['{DD8BBB7C-3688-4FCA-80EF-47FB61175D62}'] procedure Anadir(ATipoIVA : IBizTipoIVA); function Eliminar(ATipoIVA : IBizTipoIVA): Boolean; @@ -48,7 +48,7 @@ type function ExtraerSeleccionados(ATipoIVA: IBizTipoIVA) : IBizTipoIVA; end; - TTiposIVAController = class(TObservador, ITiposIVAController) + TTiposIVAController = class(TControllerBase, ITiposIVAController) private protected FDataModule : IDataModuleTiposIVA; diff --git a/Source/Modulos/Tipos de venta/Controller/uTiposVentaController.pas b/Source/Modulos/Tipos de venta/Controller/uTiposVentaController.pas index 2afa9f17..1f79e606 100644 --- a/Source/Modulos/Tipos de venta/Controller/uTiposVentaController.pas +++ b/Source/Modulos/Tipos de venta/Controller/uTiposVentaController.pas @@ -8,7 +8,7 @@ uses uIDataModuleTiposVenta, uBizTiposVenta; type - ITiposVentaController = interface(IObservador) + ITiposVentaController = interface(IControllerBase) ['{A5616174-3C9C-4EF3-8437-2C64E20137EB}'] function BuscarTodos: IBizTipoVenta; procedure VerTodos(ATiposVenta: IBizTipoVenta); @@ -17,7 +17,7 @@ type function DarListaTiposVenta: TStringList; end; - TTiposVentaController = class(TObservador, ITiposVentaController) + TTiposVentaController = class(TControllerBase, ITiposVentaController) protected FDataModule : IDataModuleTiposVenta; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 1519c0e582accac6be3ca6132b0c40afec6f315e..a3dadb37dbf613815bc8fa2eae8613ec1d75fd6f 100644 GIT binary patch delta 66 zcmdn6jd24IMMN@Anj9Ia%$T>iHjIf+4Wa(9%hU=BkmLmopaLotI6g93vggURIG VQRIfX%Ka(9%ha27);Ln=cV5EnD(Feoq>Fc?qX S8Kur{%wPp%n@@fj9 diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 797e477e..3427a020 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,268 +1,266 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - - - Delphi.Personality - - -FalseTrueFalseTrueFalse2230FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.3.0FactuGES (Servidor)2.2.3.0viernes, 23 de mayo de 2008 17:19 - - - RemObjects Pascal Script - RemObjects SDK 3.0 Integration - FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEjercicios
- TDataAbstractService - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones
- TRORemoteDataModule - - - - - - - - - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - -
RptComisiones
- TDataModule - - -
srvComisiones
- TDataAbstractService - - - - - -
srvContabilidad
- TDataAbstractService - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
srvContactos
- TDARemoteService - - - - - -
RptFacturasCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
srvPresupuestosCliente
- TDataAbstractService - - - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + + + Delphi.Personality + + + FalseTrueFalseTrueFalse2230FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.3.0FactuGES (Servidor)2.2.3.0viernes, 23 de mayo de 2008 17:19 + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEjercicios
+ TDataAbstractService + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones
+ TRORemoteDataModule + + + + + + + + + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + +
RptComisiones
+ TDataModule + + +
srvComisiones
+ TDataAbstractService + + + + + +
srvContabilidad
+ TDataAbstractService + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + + +
RptFacturasCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
srvPresupuestosCliente
+ TDataAbstractService + + + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + +