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 @@
-