From ddfd998a58e73ede103ca59389c9bf8c088f1b8d Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 17 Dec 2009 18:51:39 +0000 Subject: [PATCH] =?UTF-8?q?Se=20a=C3=B1aden=20los=20vendedores?= 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.Noviseda_FactuGES2/trunk@6 f33bb606-9f5c-448d-9c99-757f00063c96 --- Build/Build.fbp5 | 28 +- Build/Build.fbv | 2 +- Database/scripts/factuges.sql | 83 +- Source/ApplicationBase/uFactuGES_App.pas | 5 + Source/Base/Base.dpk | 6 +- Source/Base/Base.dproj | 104 +- Source/Base/Base.identcache | Bin 2504 -> 2569 bytes Source/Base/Base.res | Bin 384 -> 4748 bytes Source/Cliente/FactuGES.dproj | 2 +- Source/Cliente/FactuGES.drc | 14 +- Source/Cliente/FactuGES.identcache | Bin 721 -> 721 bytes Source/Cliente/FactuGES.rc | 2 +- Source/Cliente/FactuGES.res | Bin 171984 -> 172156 bytes Source/Cliente/uBootStrap.pas | 26 +- Source/Cliente/uMainMenuController.pas | 6 +- Source/Cliente/uNavPaneController.pas | 7 + Source/Cliente/uPantallaPrincipal.pas | 8 + Source/GUIBase/GUIBase.drc | 54 +- Source/GUIBase/GUIBase.identcache | Bin 1636 -> 1636 bytes Source/GUIBase/uEditorDBItem.dfm | 4 + .../AlbaranesCliente_controller.drc | 4 +- .../Data/AlbaranesCliente_data.drc | 6 +- .../Model/AlbaranesCliente_model.drc | 4 +- .../Plugin/AlbaranesCliente_plugin.drc | 6 +- .../Views/AlbaranesCliente_view.drc | 34 +- .../AlbaranesProveedor_controller.drc | 4 +- .../Data/AlbaranesProveedor_data.drc | 6 +- .../Model/AlbaranesProveedor_model.drc | 4 +- .../Plugin/AlbaranesProveedor_plugin.drc | 6 +- .../Views/AlbaranesProveedor_view.drc | 36 +- .../Articulos/Views/Articulos_view.identcache | Bin 880 -> 880 bytes .../Controller/Contactos_controller.dpk | 18 +- .../Controller/Contactos_controller.dproj | 26 + .../Controller/Contactos_controller.drc | 4 +- .../Controller/Contactos_controller.res | Bin 384 -> 4748 bytes .../Modulos/Contactos/Data/Contactos_data.dpk | 16 +- .../Contactos/Data/Contactos_data.dproj | 29 +- .../Modulos/Contactos/Data/Contactos_data.drc | 13 +- .../Modulos/Contactos/Data/Contactos_data.res | Bin 384 -> 4748 bytes .../Contactos/Model/Contactos_model.dpk | 11 +- .../Contactos/Model/Contactos_model.dproj | 17 +- .../Contactos/Model/Contactos_model.drc | 4 +- .../Contactos/Model/Contactos_model.res | Bin 384 -> 4748 bytes .../Model/schContactosClient_Intf.pas | 1010 ++++++++++++- .../Model/schContactosServer_Intf.pas | 1176 ++++++++++++++- .../Modulos/Contactos/Model/uBizContactos.pas | 61 +- .../Contactos/Plugin/Contactos_plugin.drc | 6 +- .../Contactos/Plugin/uPluginContactos.dfm | 9 + .../Contactos/Plugin/uPluginContactos.pas | 20 + .../Contactos/Servidor/srvContactos_Impl.dfm | 494 +++++++ .../Contactos/Servidor/srvContactos_Impl.pas | 4 +- .../Contactos/Views/Contactos_view.dpk | 20 +- .../Contactos/Views/Contactos_view.dproj | 123 +- .../Contactos/Views/Contactos_view.drc | 85 +- .../Contactos/Views/Contactos_view.res | Bin 384 -> 4748 bytes .../Views/uContactosViewRegister.pas | 8 +- .../Contactos/Views/uEditorProveedor.dfm | 48 +- .../Contactos/Views/uEditorProveedores.dfm | 63 +- .../Contactos/Views/uViewProveedores.dfm | 10 +- .../Contactos/Views/uViewProveedores.pas | 2 +- .../Fabricantes/Data/Fabricantes_data.drc | 6 +- .../Fabricantes/Model/Fabricantes_model.drc | 4 +- .../Controller/FacturasCliente_controller.drc | 4 +- .../Data/FacturasCliente_data.drc | 6 +- .../Model/FacturasCliente_model.drc | 4 +- .../Plugin/FacturasCliente_plugin.drc | 6 +- .../Views/FacturasCliente_view.drc | 26 +- .../Views/FacturasCliente_view.identcache | Bin 1272 -> 1272 bytes .../FacturasProveedor_controller.drc | 4 +- .../Data/FacturasProveedor_data.drc | 6 +- .../Model/FacturasProveedor_model.drc | 4 +- .../Plugin/FacturasProveedor_plugin.drc | 6 +- .../GestorDocumentos_controller.drc | 4 +- .../Data/GestorDocumentos_data.drc | 6 +- .../PedidosProveedor_controller.drc | 4 +- .../Data/PedidosProveedor_data.drc | 6 +- .../Model/PedidosProveedor_model.drc | 4 +- .../Plugin/PedidosProveedor_plugin.drc | 6 +- .../Views/PedidosProveedor_view.drc | 38 +- .../PresupuestosCliente_controller.drc | 4 +- .../Data/PresupuestosCliente_data.drc | 6 +- .../Model/PresupuestosCliente_model.drc | 4 +- .../Plugin/PresupuestosCliente_plugin.drc | 6 +- .../Views/PresupuestosCliente_view.drc | 34 +- .../Data/RecibosCliente_data.drc | 6 +- .../Plugin/RecibosCliente_plugin.drc | 6 +- .../Data/RecibosProveedor_data.drc | 6 +- .../Plugin/RecibosProveedor_plugin.drc | 6 +- .../Tipos de IVA/Data/TiposIVA_data.drc | 6 +- .../Tipos de IVA/Model/TiposIVA_model.drc | 4 +- .../Data/UnidadesMedida_data.drc | 6 +- .../Model/UnidadesMedida_model.drc | 4 +- Source/Servidor/FactuGES_Server.RES | Bin 23216 -> 23488 bytes Source/Servidor/FactuGES_Server.dpr | 1 + Source/Servidor/FactuGES_Server.dproj | 663 ++++----- Source/Servidor/FactuGES_Server.drc | 1296 ++++++++--------- Source/Servidor/FactuGES_Server.identcache | Bin 12382 -> 12469 bytes Source/Servidor/FactuGES_Server.rc | 4 +- Source/Servidor/uDataModuleServer.dfm | 2 +- 99 files changed, 4430 insertions(+), 1516 deletions(-) diff --git a/Build/Build.fbp5 b/Build/Build.fbp5 index c88ac1a..5d13e8d 100644 --- a/Build/Build.fbp5 +++ b/Build/Build.fbp5 @@ -683,12 +683,12 @@ source_path 1 0 - 6 + 7 False 0 %source_path%\Servidor\FactuGES_Server.dpr True - 7 + 8 rcBorland @@ -703,15 +703,15 @@ source_path True @@ -754,7 +754,7 @@ CompileDate=viernes, 27 de febrero de 2009 11:47 True %output_path%\Servidor False - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeui;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;dbxcommondriver;indycore;indysystem;indyprotocols;vclsmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;remobjects_bpdx_d11;remobjects_rodx_d11;remobjects_indy_d11;remobjects_synapse_d11;remobjects_webbroker_d11;dataabstract_core_d11;dataabstract_dbxdriver_d11;dataabstract_ide_d11;dataabstract_scripting_d11;dataabstract_sdacdriver_d11;sdac105;dac105;dataabstract_sqlitedriver_d11;cxeditorsd10;cxlibraryd10;dxthemed10;cxdatad10;cxexteditorsd10;cxgridd10;cxpagecontrold10;cxschedulerd10;cxtreelistd10;cxverticalgridd10;dxbard10;dxcomnd10;dxbardbnavd10;dxbarextdbitemsd10;dxbarextitemsd10;dxdockingd10;dxlayoutcontrold10;dxnavbard10;dxpscored10;dxsbd10;dxpscxcommond10;dxpslnksd10;vclshlctrls;dxpscxextcommond10;dxpscxgridlnkd10;dxpscxpcprodd10;dxpscxscheduler2lnkd10;dxpscxtllnkd10;dxpsdxlclnkd10;dxpsprvwadvd10;pckmd5;pckucdataconnector;pckusercontrol_rt;pluginsdk_d10r;png_d10;pngcomponentsd10;tb2k_d10;tbx_d10;jclvcl;jcl;jvxpctrlsd11r;jvcored11r;jvsystemd11r;jvstdctrlsd11r;jvappfrmd11r;jvbandsd11r;jvdbd11r;jvdlgsd11r;jvbded11r;jvcmpd11r;jvcryptd11r;jvctrlsd11r;jvcustomd11r;jvdockingd11r;jvdotnetctrlsd11r;jvedid11r;jvglobusd11r;jvhmid11r;jvinterpreterd11r;jvjansd11r;jvmanagedthreadsd11r;jvmmd11r;jvnetd11r;jvpagecompsd11r;jvplugind11r;jvprintpreviewd11r;jvruntimedesignd11r;jvtimeframeworkd11r;jvuibd11r;jvvalidatorsd11r;jvwizardd11r;pckucadoconn;pckucbdeconn;pckucibxconn;pckucmidasconn;cxintlprintsys3d10;cxexportd10;cxintl5d10;guisdk_d11;ccpackd11;jsdialog100;fstee11;fs11;frx11;frxado11;frxbde11;frxdb11;frxdbx11;frxe11;frxibx11;frxtee11;fsado11;fsbde11;fsdb11;fsibx11;websnap;soaprtl;intrawebdb_90_100;intraweb_90_100 + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeui;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;dbxcommondriver;indycore;indysystem;indyprotocols;vclsmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;remobjects_bpdx_d11;remobjects_rodx_d11;remobjects_indy_d11;remobjects_synapse_d11;remobjects_webbroker_d11;dataabstract_core_d11;dataabstract_dbxdriver_d11;dataabstract_ide_d11;dataabstract_scripting_d11;dataabstract_sdacdriver_d11;sdac105;dac105;dataabstract_sqlitedriver_d11;cxeditorsd10;cxlibraryd10;dxthemed10;cxdatad10;cxexteditorsd10;cxgridd10;cxpagecontrold10;cxschedulerd10;cxtreelistd10;cxverticalgridd10;dxbard10;dxcomnd10;dxbardbnavd10;dxbarextdbitemsd10;dxbarextitemsd10;dxdockingd10;dxlayoutcontrold10;dxnavbard10;dxpscored10;dxsbd10;dxpscxcommond10;dxpslnksd10;vclshlctrls;dxpscxextcommond10;dxpscxgridlnkd10;dxpscxpcprodd10;dxpscxscheduler2lnkd10;dxpscxtllnkd10;dxpsdxlclnkd10;dxpsprvwadvd10;pckmd5;pckucdataconnector;pckusercontrol_rt;pluginsdk_d10r;png_d10;pngcomponentsd10;tb2k_d10;tbx_d10;jclvcl;jcl;jvxpctrlsd11r;jvcored11r;jvsystemd11r;jvstdctrlsd11r;jvappfrmd11r;jvbandsd11r;jvdbd11r;jvdlgsd11r;jvbded11r;jvcmpd11r;jvcryptd11r;jvctrlsd11r;jvcustomd11r;jvdockingd11r;jvdotnetctrlsd11r;jvedid11r;jvglobusd11r;jvhmid11r;jvinterpreterd11r;jvjansd11r;jvmanagedthreadsd11r;jvmmd11r;jvnetd11r;jvpagecompsd11r;jvplugind11r;jvprintpreviewd11r;jvruntimedesignd11r;jvtimeframeworkd11r;jvuibd11r;jvvalidatorsd11r;jvwizardd11r;pckucadoconn;pckucbdeconn;pckucibxconn;pckucmidasconn;cxintlprintsys3d10;cxexportd10;cxintl5d10;guisdk_d11r;ccpackd11;jsdialog100;fstee11;fs11;frx11;frxado11;frxbde11;frxdb11;frxdbx11;frxe11;frxibx11;frxtee11;fsado11;fsbde11;fsdb11;fsibx11;websnap;soaprtl;intrawebdb_90_100;intraweb_90_100 False fa8 False @@ -830,14 +830,14 @@ CompileDate=viernes, 27 de febrero de 2009 11:47 8388736 Base - False + True True False True False 0 - True + False 0 1000 False @@ -1227,14 +1227,14 @@ Comments= 0 Módulos - False + True True False True False 0 - True + False 0 1000 False @@ -19208,7 +19208,7 @@ Comments= 0 Cliente - False + True True False True @@ -19259,7 +19259,7 @@ Comments= 1 0 - 6 + 7 False 0 %source_path%\Cliente\FactuGES.dpr @@ -19279,13 +19279,13 @@ Comments= False diff --git a/Build/Build.fbv b/Build/Build.fbv index 411786d..3c459b3 100644 --- a/Build/Build.fbv +++ b/Build/Build.fbv @@ -1 +1 @@ - + diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index f74dbfd..70848ce 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -79,9 +79,6 @@ VARCHAR(30); /**** Generators ****/ /******************************************************************************/ -CREATE GENERATOR GEN_AGENTES_COMISIONES_ID; -SET GENERATOR GEN_AGENTES_COMISIONES_ID TO 1; - CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID; SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 1; @@ -112,6 +109,9 @@ SET GENERATOR GEN_CLIENTES_DTOS_PROV_ID TO 1; CREATE GENERATOR GEN_CLIENTES_GRUPOS_ID; SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1; +CREATE GENERATOR GEN_COMISIONES_VENDEDORES_ID; +SET GENERATOR GEN_COMISIONES_VENDEDORES_ID TO 1; + CREATE GENERATOR GEN_COMISIONES_LIQUID_ID; SET GENERATOR GEN_COMISIONES_LIQUID_ID TO 1; @@ -253,15 +253,6 @@ SET GENERATOR GEN_USUARIOS_ID TO 1; /**** Tables ****/ /******************************************************************************/ - - -CREATE TABLE AGENTES_COMISIONES ( - ID TIPO_ID NOT NULL, - ID_AGENTE TIPO_ID DEFAULT 0 NOT NULL, - ID_PROVEEDOR SMALLINT DEFAULT 0 NOT NULL, - COMISION TIPO_PORCENTAJE DEFAULT 0 -); - CREATE TABLE ALBARANES_CLIENTE ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID, @@ -581,6 +572,11 @@ CREATE TABLE EMPLEADOS_GRUPOS ( DESCRIPCION VARCHAR(255) ); +CREATE TABLE VENDEDORES_DATOS( + ID_VENDEDOR TIPO_ID NOT NULL, + COMISION TIPO_PORCENTAJE, + ID_USUARIO TIPO_ID); + CREATE TABLE EMPRESAS ( ID TIPO_ID NOT NULL, NIF_CIF VARCHAR(15), @@ -1886,6 +1882,65 @@ INNER JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_EMPLEADO = V_CONTACTOS.ID) WHERE V_CONTACTOS.ID_CATEGORIA = 3 ; +/* View: V_VENDEDORES */ +CREATE VIEW V_VENDEDORES( +ID, +ID_CATEGORIA, +NIF_CIF, +NOMBRE, +PERSONA_CONTACTO, +CALLE, +POBLACION, +PROVINCIA, +CODIGO_POSTAL, +TELEFONO_1, +TELEFONO_2, +MOVIL_1, +MOVIL_2, +FAX, +EMAIL_1, +EMAIL_2, +PAGINA_WEB, +NOTAS, +FECHA_ALTA, +FECHA_MODIFICACION, +USUARIO, +ID_EMPRESA, +REFERENCIA, +COMISION, +ID_USUARIO) + AS +SELECT V_CONTACTOS.ID, + V_CONTACTOS.ID_CATEGORIA, + V_CONTACTOS.NIF_CIF, + V_CONTACTOS.NOMBRE, + V_CONTACTOS.PERSONA_CONTACTO, + V_CONTACTOS.CALLE, + V_CONTACTOS.POBLACION, + V_CONTACTOS.PROVINCIA, + V_CONTACTOS.CODIGO_POSTAL, + V_CONTACTOS.TELEFONO_1, + V_CONTACTOS.TELEFONO_2, + V_CONTACTOS.MOVIL_1, + V_CONTACTOS.MOVIL_2, + V_CONTACTOS.FAX, + V_CONTACTOS.EMAIL_1, + V_CONTACTOS.EMAIL_2, + V_CONTACTOS.PAGINA_WEB, + V_CONTACTOS.NOTAS, + V_CONTACTOS.FECHA_ALTA, + V_CONTACTOS.FECHA_MODIFICACION, + V_CONTACTOS.USUARIO, + V_CONTACTOS.ID_EMPRESA, + V_CONTACTOS.REFERENCIA, + VENDEDORES_DATOS.COMISION, + VENDEDORES_DATOS.ID_USUARIO + +FROM V_CONTACTOS +INNER JOIN VENDEDORES_DATOS ON (VENDEDORES_DATOS.ID_VENDEDOR = V_CONTACTOS.ID) + +WHERE V_CONTACTOS.ID_CATEGORIA = 3; +; /* View: V_REC_FAC_CLI */ @@ -3456,7 +3511,6 @@ GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 /**** Primary Keys ****/ /******************************************************************************/ -ALTER TABLE AGENTES_COMISIONES ADD CONSTRAINT PK_AGENTES_COMISIONES PRIMARY KEY (ID); ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT PK_ALBARAN_CLIENTE PRIMARY KEY (ID); ALTER TABLE ALBARANES_CLIENTE_DETALLES ADD CONSTRAINT PK_ALBARANES_CLIENTE_DETALLES PRIMARY KEY (ID); ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT PK_ALBARAN_PROVEEDOR PRIMARY KEY (ID); @@ -3477,6 +3531,7 @@ ALTER TABLE CONTACTOS_DATOS_PERSONAL ADD CONSTRAINT PK_CONTACTOS_DATOS_PER PRIMA ALTER TABLE CONTACTOS_DIRECCIONES ADD CONSTRAINT PK_CONTACTOS_DIR PRIMARY KEY (ID); ALTER TABLE EMPLEADOS_DATOS ADD CONSTRAINT PK_EMPLEADOS_DATOS PRIMARY KEY (ID_EMPLEADO); ALTER TABLE EMPLEADOS_GRUPOS ADD CONSTRAINT PK_EMPLEADOS_GRUPOS PRIMARY KEY (ID); +ALTER TABLE VENDEDORES_DATOS ADD CONSTRAINT PK_VENDEDORES_DATOS PRIMARY KEY (ID_VENDEDOR); ALTER TABLE EMPRESAS ADD CONSTRAINT PK_EMPRESAS PRIMARY KEY (ID); ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY (ID); ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT PK_EMPRESAS_DATOS_BANCO PRIMARY KEY (ID); @@ -3569,8 +3624,6 @@ ALTER TABLE TIENDA_WEB ADD CONSTRAINT FK_EMPRESAS_TIENDA_WEB FOREIGN KEY (ID_EMP /**** Indices ****/ /******************************************************************************/ -CREATE INDEX IDX_AGENTES_COMISIONES1 ON AGENTES_COMISIONES (ID_AGENTE); -CREATE INDEX IDX_AGENTES_COMISIONES2 ON AGENTES_COMISIONES (ID_PROVEEDOR); CREATE INDEX IDX_ALBARANES_CLIENTE1 ON ALBARANES_CLIENTE (ID_FORMA_PAGO); CREATE INDEX IDX_ALBARANES_CLIENTE2 ON ALBARANES_CLIENTE (TIPO); CREATE INDEX ALBARANES_CLIENTE_IDX1 ON ALBARANES_CLIENTE (ID_ALMACEN); diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index 80a70e1..c094037 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -150,6 +150,7 @@ var AppFactuGES : IAppFactuGES = nil; implementation +{$INCLUDE ..\FactuGES.inc} uses Windows, Dialogs, JSDialog, JSDialogs, uDialogUtils, cxControls, uUsuariosViewRegister, @@ -400,9 +401,13 @@ begin end; AEmpresas.DataTable.First; + {$IFDEF MULTIEMPRESA} if JsDialog.Execute <> IDCANCEL then if JsDialog.CustomButtonResult > 0 then CambiarEmpresa(JsDialog.CustomButtonResult); + {$ELSE} + CambiarEmpresa(AEmpresas.ID); + {$ENDIF} finally FreeAndNIL(JsDialog); diff --git a/Source/Base/Base.dpk b/Source/Base/Base.dpk index 50cf0f2..855f9c3 100644 --- a/Source/Base/Base.dpk +++ b/Source/Base/Base.dpk @@ -77,7 +77,8 @@ requires dxPSCoreD11, cxIntl6D11, cxIntlPrintSys3D11, - RemObjects_Indy_D11; + RemObjects_Indy_D11, + dxCoreD11; contains uDataTableUtils in 'Utiles\uDataTableUtils.pas', @@ -114,6 +115,7 @@ contains uReferenciasUtils in 'Utiles\uReferenciasUtils.pas', uEMailUtils in 'Utiles\uEMailUtils.pas', uSaveClipboard in 'Utiles\uSaveClipboard.pas', - MidasSpeedFix in 'Utiles\MidasSpeedFix.pas'; + MidasSpeedFix in 'Utiles\MidasSpeedFix.pas', + uGridUtils in 'Utiles\uGridUtils.pas'; end. diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index c3119f0..399b3bb 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -54,57 +54,6 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
@@ -129,13 +78,58 @@
dmBase
TDataModule + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -145,6 +139,7 @@ + @@ -155,6 +150,13 @@ + + + + + + +