diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk index 97abf38e..82bd8236 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk @@ -22,7 +22,7 @@ package Contactos_controller; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD ON} +{$IMPLICITBUILD OFF} requires rtl, diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj index f24e40f4..1d76aa49 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj @@ -42,7 +42,10 @@ Delphi.Personality Package -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + @@ -59,6 +62,13 @@ MainSource + + + + + + + @@ -71,12 +81,6 @@ - - - - - - @@ -97,7 +101,6 @@ - diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas index bc5441b4..e87e9327 100644 --- a/Source/Modulos/Contactos/Controller/uContactosController.pas +++ b/Source/Modulos/Contactos/Controller/uContactosController.pas @@ -28,6 +28,7 @@ type AMensaje: String; AMultiSelect: Boolean): IBizContacto; function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto; + function DarListaPersonalConMovil(const IDContacto : Integer): TStringList; end; TContactosController = class(TControllerBase, IContactosController) @@ -58,6 +59,7 @@ type procedure VerTodos(AContactos: IBizContacto); virtual; abstract; function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract; + function DarListaPersonalConMovil(const IDContacto : Integer): TStringList; end; implementation @@ -103,6 +105,32 @@ begin FDataModule := NIL; end; +function TContactosController.DarListaPersonalConMovil(const IDContacto : Integer): TStringList; +var + AContacto: IBizContacto; + AStr : String; +begin + AContacto := IBizContacto(Buscar(IDContacto)); + AContacto.DataTable.Active := True; + Result := TStringList.Create; + try + with Result do + begin + AContacto.Personal.DataTable.First; + while not AContacto.Personal.DataTable.EOF do + begin + AStr := AContacto.Personal.NOMBRE; + if not AContacto.Personal.MOVILIsNull then + AStr := AStr + '. Tlf: ' + AContacto.Personal.MOVIL; + Add(AStr); + AContacto.Personal.DataTable.Next; + end; + end; + finally + AContacto := NIL; + end; +end; + procedure TContactosController.DescartarCambios(AContacto: IBizContacto); begin if not Assigned(AContacto) then diff --git a/Source/Modulos/Contactos/Controller/uEmpleadosController.pas b/Source/Modulos/Contactos/Controller/uEmpleadosController.pas index 8a1b5bdc..c64bf698 100644 --- a/Source/Modulos/Contactos/Controller/uEmpleadosController.pas +++ b/Source/Modulos/Contactos/Controller/uEmpleadosController.pas @@ -14,7 +14,8 @@ type function Eliminar(AEmpleado: IBizContacto; AllItems: Boolean = false): Boolean; overload; procedure Preview(AEmpleado : IBizEmpleado; AllItems: Boolean = false); procedure Print(AEmpleado : IBizEmpleado; AllItems: Boolean = false); - function DarListaContratosEmpleado: TStringList; + function DarListaContratosEmpleado: TStringList; + function DarListaEmpleadosConMovil: TStringList; end; TEmpleadosController = class(TContactosController, IEmpleadosController) @@ -33,6 +34,7 @@ type function EsEliminable(AEmpleado: IBizContacto): Boolean; function DarListaContratosEmpleado: TStringList; + function DarListaEmpleadosConMovil: TStringList; procedure Preview(AEmpleado : IBizEmpleado; AllItems: Boolean = false); procedure Print(AEmpleado : IBizEmpleado; AllItems: Boolean = false); @@ -70,6 +72,34 @@ begin Result := (FDataModule as IDataModuleEmpleados).DarListaContratosEmpleado; end; +function TEmpleadosController.DarListaEmpleadosConMovil: TStringList; +var + AEmpleados: IBizEmpleado; + AStr : String; +begin + Result := TStringList.Create; + AEmpleados := IBizEmpleado(BuscarTodos); + ShowHourglassCursor; + try + AEmpleados.DataTable.Active := True; + with Result do + begin + AEmpleados.DataTable.First; + while not AEmpleados.DataTable.EOF do + begin + AStr := AEmpleados.NOMBRE; + if not AEmpleados.MOVIL_1IsNull then + AStr := AStr + '. Tlf: ' + AEmpleados.MOVIL_1; + Add(AStr); + AEmpleados.DataTable.Next; + end; + end; + finally + AEmpleados := NIL; + HideHourglassCursor; + end; +end; + function TEmpleadosController.Duplicar(AContacto: IBizContacto): IBizContacto; begin Result := inherited Duplicar(AContacto); diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.pas b/Source/Modulos/Contactos/Controller/uProveedoresController.pas index 5e81391d..355fdc88 100644 --- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas +++ b/Source/Modulos/Contactos/Controller/uProveedoresController.pas @@ -16,7 +16,7 @@ type function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload; procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false); procedure Print(AProveedor : IBizProveedor; AllItems: Boolean = false); - function DarListaDescripcionesProveedores: TStringList; + function DarListaDescripcionesProveedores: TStringList; end; TProveedoresController = class(TContactosController, IProveedoresController) diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dpk b/Source/Modulos/Contactos/Data/Contactos_data.dpk index fc468461..732ed516 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.dpk +++ b/Source/Modulos/Contactos/Data/Contactos_data.dpk @@ -22,7 +22,7 @@ package Contactos_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD ON} +{$IMPLICITBUILD OFF} requires rtl, diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dpk b/Source/Modulos/Contactos/Model/Contactos_model.dpk index 4c2b0f11..3b9d644b 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.dpk +++ b/Source/Modulos/Contactos/Model/Contactos_model.dpk @@ -22,7 +22,7 @@ package Contactos_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD ON} +{$IMPLICITBUILD OFF} requires rtl, diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dproj b/Source/Modulos/Contactos/Model/Contactos_model.dproj index 6de3fc9d..f0697dcd 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.dproj +++ b/Source/Modulos/Contactos/Model/Contactos_model.dproj @@ -42,7 +42,7 @@ Delphi.Personality Package -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contactos_model.dpk +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contactos_model.dpk @@ -50,16 +50,17 @@ MainSource - - + + + + + - - @@ -70,7 +71,6 @@ -