diff --git a/Build/Build.fbp5 b/Build/Build.fbp5 index 92216824..ee708843 100644 --- a/Build/Build.fbp5 +++ b/Build/Build.fbp5 @@ -688,7 +688,7 @@ source_path 0 %source_path%\Servidor\FactuGES_Server.dpr True - 5 + 6 rcBorland @@ -703,15 +703,15 @@ source_path True @@ -9506,7 +9506,7 @@ Comments= False - True + False True False @@ -9625,7 +9625,7 @@ Comments= False - True + False True False diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 0d30f3e9..a151aece 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -987,6 +987,8 @@ CREATE TABLE PEDIDOS_PROVEEDOR ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, ID_PROVEEDOR TIPO_ID, + ID_DIRECCION TIPO_ID, + PERSONA_CONTACTO_PROV VARCHAR(255), REFERENCIA VARCHAR(255), FECHA_PEDIDO DATE, FECHA_CONFIRMACION DATE, @@ -998,7 +1000,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR ( INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL, FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP, - USUARIO TIPO_USUARIO, + USUARIO TIPO_USUARIO, CALLE VARCHAR(255), CODIGO_POSTAL VARCHAR(10), POBLACION VARCHAR(255), @@ -2945,7 +2947,9 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR( ID, ID_EMPRESA, ID_PROVEEDOR, - NOMBRE, + NOMBRE, + ID_DIRECCION, + PERSONA_CONTACTO_PROV, REFERENCIA, SITUACION, FECHA_ENVIO, @@ -2988,6 +2992,8 @@ SELECT PEDIDOS_PROVEEDOR.ID_EMPRESA, PEDIDOS_PROVEEDOR.ID_PROVEEDOR, CONTACTOS.NOMBRE, + PEDIDOS_PROVEEDOR.ID_DIRECCION, + PEDIDOS_PROVEEDOR.PERSONA_CONTACTO_PROV, PEDIDOS_PROVEEDOR.REFERENCIA, TRIM(V_PED_PROV_SITUACION.SITUACION), PEDIDOS_PROVEEDOR.FECHA_ENVIO, diff --git a/Source/Base/Base.cfg b/Source/Base/Base.cfg deleted file mode 100644 index 5ce9cb53..00000000 --- a/Source/Base/Base.cfg +++ /dev/null @@ -1,36 +0,0 @@ --$A8 --$B- --$C+ --$D+ --$E- --$F- --$G+ --$H+ --$I+ --$J- --$K- --$L+ --$M- --$N+ --$O- --$P+ --$Q- --$R- --$S- --$T- --$U- --$V+ --$W+ --$X+ --$YD --$Z1 --cg --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; --H+ --W+ --M --$M16384,1048576 --K$00400000 --N0".\" --LE"..\..\Output\Debug\Cliente" --LN"..\Lib" diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339f..8b251f31 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk index 34f11fe4..a5ede5b8 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk @@ -73,6 +73,6 @@ contains uIEditorDatoBancarioContacto in 'View\uIEditorDatoBancarioContacto.pas', uPersonalContactoController in 'uPersonalContactoController.pas', uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas', - uIEditorElegirPersonaContactoCliente in 'View\uIEditorElegirPersonaContactoCliente.pas'; + uIEditorElegirPersonaContacto in 'View\uIEditorElegirPersonaContacto.pas'; end. diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj index 14d16ac5..987ceef1 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj @@ -84,7 +84,7 @@ - + diff --git a/Source/Modulos/Contactos/Controller/View/uIEditorElegirPersonaContactoCliente.pas b/Source/Modulos/Contactos/Controller/View/uIEditorElegirPersonaContacto.pas similarity index 78% rename from Source/Modulos/Contactos/Controller/View/uIEditorElegirPersonaContactoCliente.pas rename to Source/Modulos/Contactos/Controller/View/uIEditorElegirPersonaContacto.pas index 98d08b84..1c3ae0ae 100644 --- a/Source/Modulos/Contactos/Controller/View/uIEditorElegirPersonaContactoCliente.pas +++ b/Source/Modulos/Contactos/Controller/View/uIEditorElegirPersonaContacto.pas @@ -1,4 +1,4 @@ -unit uIEditorElegirPersonaContactoCliente; +unit uIEditorElegirPersonaContacto; interface @@ -6,8 +6,8 @@ uses uBizContactosPersonal, uGUIBase; type - IEditorElegirPersonaContactoCliente = interface - ['{40EBA9D9-EFE4-4A0E-B433-AD61E2EAF94F}'] + IEditorElegirPersonaContacto = interface + ['{B069A079-BC05-4027-BC1D-D78849F173D0}'] function GetPersonas: IBizContactoPersonal; procedure SetPersonas(const Value: IBizContactoPersonal); property Personas: IBizContactoPersonal read GetPersonas write SetPersonas; diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index dfcfdfc7..e011632f 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/Source/Modulos/Contactos/Controller/uClientesController.pas @@ -14,7 +14,6 @@ type function BuscarTodosTiendaWeb: IBizCliente; function TieneDatosBancarios(ACliente: IBizCliente) : Boolean; function ElegirDireccionEntrega(ACliente: IBizCliente; AMensaje: String): IBizDireccionesContacto; - function ElegirPersonaContacto(APersonal: IBizContactoPersonal; AMensaje: String): IBizContactoPersonal; function EsEliminable(ACliente: IBizContacto): Boolean; function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload; procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false); @@ -46,8 +45,6 @@ type function TieneDatosBancarios(ACliente: IBizCliente) : Boolean; function ElegirDireccionEntrega(ACliente: IBizCliente; AMensaje: String): IBizDireccionesContacto; - function ElegirPersonaContacto(APersonal: IBizContactoPersonal; - AMensaje: String): IBizContactoPersonal; function EsEliminable(ACliente: IBizContacto): Boolean; function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload; procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false); @@ -64,7 +61,7 @@ uses Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils, uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController, uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase, uModuleController, - Dialogs, uIntegerListUtils, uIEditorElegirPersonaContactoCliente, uFactuGES_App, + Dialogs, uIntegerListUtils, uFactuGES_App, uPlugins_Intf; { TClientesController } @@ -156,29 +153,6 @@ begin end; end; -function TClientesController.ElegirPersonaContacto( - APersonal: IBizContactoPersonal; AMensaje: String): IBizContactoPersonal; -var - AEditor : IEditorElegirPersonaContactoCliente; -begin - Result := NIL; - - CreateEditor('EditorElegirPersonaContactoCliente', IEditorElegirPersonaContactoCliente, AEditor); - if Assigned(AEditor) then - begin - try - AEditor.Personas := APersonal; - AEditor.Mensaje := AMensaje; - if IsPositiveResult(AEditor.ShowModal) then - Result := AEditor.PersonaSeleccionada; - finally - AEditor.Release; - AEditor := NIL; - Application.ProcessMessages; - end; - end; -end; - function TClientesController.Eliminar(ACliente: IBizContacto; AllItems: Boolean): Boolean; //En el caso de eliminar almenos un elemento del conjunto se devuelve true var diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas index fbd372a6..23914afa 100644 --- a/Source/Modulos/Contactos/Controller/uContactosController.pas +++ b/Source/Modulos/Contactos/Controller/uContactosController.pas @@ -6,7 +6,7 @@ interface uses Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos, - uControllerBase; + uControllerBase, uBizContactosPersonal; type IContactosController = interface(IControllerBase) @@ -26,6 +26,8 @@ type function Localizar(AContactos: IBizContacto; const ID : Integer): Boolean; function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto; + function ElegirPersonaContacto(APersonal: IBizContactoPersonal; + AMensaje: String): IBizContactoPersonal; function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto; function DarListaPersonalConMovil(const IDContacto : Integer): TStringList; @@ -59,6 +61,8 @@ type procedure VerTodos(AContactos: IBizContacto); virtual; abstract; function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract; + function ElegirPersonaContacto(APersonal: IBizContactoPersonal; + AMensaje: String): IBizContactoPersonal; function DarListaPersonalConMovil(const IDContacto : Integer): TStringList; end; @@ -66,7 +70,7 @@ implementation uses Dialogs, uEditorRegistryUtils, cxControls, DB, uDAInterfaces, uDataTableUtils, - schContactosClient_Intf, uFactuGES_App; + schContactosClient_Intf, uFactuGES_App, uIEditorElegirPersonaContacto; { TContactosController } @@ -154,6 +158,29 @@ begin inherited; end; +function TContactosController.ElegirPersonaContacto( + APersonal: IBizContactoPersonal; AMensaje: String): IBizContactoPersonal; +var + AEditor : IEditorElegirPersonaContacto; +begin + Result := NIL; + + CreateEditor('EditorElegirPersonaContacto', IEditorElegirPersonaContacto, AEditor); + if Assigned(AEditor) then + begin + try + AEditor.Personas := APersonal; + AEditor.Mensaje := AMensaje; + if IsPositiveResult(AEditor.ShowModal) then + Result := AEditor.PersonaSeleccionada; + finally + AEditor.Release; + AEditor := NIL; + Application.ProcessMessages; + end; + end; +end; + function TContactosController.Eliminar(AContacto: IBizContacto): Boolean; begin Result := False; diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.pas b/Source/Modulos/Contactos/Controller/uProveedoresController.pas index bac56545..a286eec2 100644 --- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas +++ b/Source/Modulos/Contactos/Controller/uProveedoresController.pas @@ -3,8 +3,10 @@ unit uProveedoresController; interface uses - Classes, uCustomEditor, uContactosController, uBizContactos, uBizDireccionesContacto, uDireccionesContactoController, - uIEditorProveedores, uIEditorProveedor, uIDataModuleContactos, uIDataModuleProveedores; + Classes, uCustomEditor, uContactosController, uBizContactos, + uBizDireccionesContacto, uDireccionesContactoController, + uIEditorProveedores, uIEditorProveedor, uIDataModuleContactos, + uIDataModuleProveedores; type IProveedoresController = interface(IContactosController) diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dpk b/Source/Modulos/Contactos/Views/Contactos_view.dpk index a97ae422..681f1760 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dpk +++ b/Source/Modulos/Contactos/Views/Contactos_view.dpk @@ -96,7 +96,7 @@ contains uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame}, uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame}, uEditorDatoBancario in 'uEditorDatoBancario.pas' {fEditorDatoBancario}, - uEditorElegirPersonaContactoCliente in 'uEditorElegirPersonaContactoCliente.pas' {fEditorElegirPersonaContactoCliente: TfEditorElegirDireccionEntrega}, + uEditorElegirPersonaContacto in 'uEditorElegirPersonaContacto.pas' {fEditorElegirPersonaContacto: TfEditorElegirDireccionEntrega}, uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame}, uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame}, uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame}, diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj index 34b55b95..d034cb25 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj @@ -49,52 +49,46 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorCliente
@@ -127,8 +121,8 @@
fEditorElegirDireccionEntrega
TCustomEditor - -
fEditorElegirPersonaContactoCliente
+ +
fEditorElegirPersonaContacto
TfEditorElegirDireccionEntrega @@ -247,6 +241,12 @@
frViewProveedores
TCustomView + + + + + +