From 1662789ccc2205e700334e435155fd0fbd1ec380 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 27 Nov 2008 16:14:51 +0000 Subject: [PATCH] =?UTF-8?q?*=20Ticket=20#166=20->=20En=20los=20pedidos=20a?= =?UTF-8?q?=20proveedor=20poder=20elegir=20una=20direcci=C3=B3n=20si=20el?= =?UTF-8?q?=20proveedor=20tiene=20varias=20sucursales=20*=20Repaso=20a=20p?= =?UTF-8?q?resupuestos=20(apariencia=20de=20editor=20ficha).=20*=20Limpiez?= =?UTF-8?q?a=20de=20c=C3=B3digo=20repetido=20en=20contactos.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@784 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Build/Build.fbp5 | 12 +- Database/scripts/factuges.sql | 10 +- Source/Base/Base.cfg | 36 - Source/Base/Base.res | Bin 4748 -> 384 bytes .../Controller/Contactos_controller.dpk | 2 +- .../Controller/Contactos_controller.dproj | 2 +- ....pas => uIEditorElegirPersonaContacto.pas} | 6 +- .../Controller/uClientesController.pas | 28 +- .../Controller/uContactosController.pas | 31 +- .../Controller/uProveedoresController.pas | 6 +- .../Contactos/Views/Contactos_view.dpk | 2 +- .../Contactos/Views/Contactos_view.dproj | 96 +-- .../Views/uContactosViewRegister.pas | 6 +- ...e.dfm => uEditorElegirPersonaContacto.dfm} | 2 +- ...e.pas => uEditorElegirPersonaContacto.pas} | 24 +- .../uPedidosProveedorController.pas | 3 + .../Data/uDataModulePedidosProveedor.dfm | 18 + .../Model/schPedidosProveedorClient_Intf.pas | 154 ++-- .../Model/schPedidosProveedorServer_Intf.pas | 98 ++- .../PedidosProveedor_Group.groupproj | 92 +-- .../Servidor/srvPedidosProveedor_Impl.dfm | 128 +++- .../Views/PedidosProveedor_view.dpk | 26 +- .../Views/PedidosProveedor_view.dproj | 57 +- .../Views/uEditorPedidoProveedor.dfm | 12 +- .../Views/uEditorPedidoProveedor.pas | 27 +- .../uViewDatosYSeleccionProveedorPedido.dfm | 657 ++++++++++++++++++ .../uViewDatosYSeleccionProveedorPedido.pas | 411 +++++++++++ .../Views/uViewPedidoProveedor.dfm | 206 +++--- .../Views/uViewPedidoProveedor.pas | 54 +- .../Views/uEditorPresupuestoCliente.dfm | 297 +++++--- .../Views/uEditorPresupuestoCliente.pas | 3 +- ...uViewDatosYSeleccionClientePresupuesto.pas | 17 +- .../Views/uViewPresupuestosCliente.dfm | 2 - .../Views/uViewPresupuestosCliente.pas | 1 - .../Views/uViewTotalesPresupuesto.dfm | 47 +- .../Plugin/RemesasCliente_plugin.rc | 22 + .../Plugin/RemesasCliente_plugin.res | Bin 5056 -> 384 bytes .../Plugin/RemesasProveedor_plugin.rc | 22 + .../Plugin/RemesasProveedor_plugin.res | Bin 5056 -> 384 bytes .../Views/uEditorRemesaProveedor.dfm | 13 + .../Views/uEditorRemesaProveedor.pas | 2 +- Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23208 bytes Source/Servidor/FactuGES_Server.dproj | 638 ++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 44 files changed, 2279 insertions(+), 993 deletions(-) delete mode 100644 Source/Base/Base.cfg rename Source/Modulos/Contactos/Controller/View/{uIEditorElegirPersonaContactoCliente.pas => uIEditorElegirPersonaContacto.pas} (78%) rename Source/Modulos/Contactos/Views/{uEditorElegirPersonaContactoCliente.dfm => uEditorElegirPersonaContacto.dfm} (94%) rename Source/Modulos/Contactos/Views/{uEditorElegirPersonaContactoCliente.pas => uEditorElegirPersonaContacto.pas} (68%) create mode 100644 Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.dfm create mode 100644 Source/Modulos/Pedidos a proveedor/Views/uViewDatosYSeleccionProveedorPedido.pas 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 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/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 + + + + + +