diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 924d0fb3..11a1861c 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -154,9 +154,6 @@ SET GENERATOR GEN_INFORMES_ID TO 1; CREATE GENERATOR GEN_MOVIMIENTOS_ID; SET GENERATOR GEN_MOVIMIENTOS_ID TO 1; -CREATE GENERATOR GEN_OBRAS_ID; -SET GENERATOR GEN_OBRAS_ID TO 1; - CREATE GENERATOR GEN_PAGOS_CLIENTE_ID; SET GENERATOR GEN_PAGOS_CLIENTE_ID TO 1; @@ -363,6 +360,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES ( CREATE TABLE ALMACENES ( ID TIPO_ID NOT NULL, ID_EMPRESA TIPO_ID NOT NULL, + TIPO_ALMACEN VARCHAR(10), NOMBRE VARCHAR(255), CALLE VARCHAR(255), PROVINCIA VARCHAR(255), @@ -395,7 +393,7 @@ CREATE TABLE ARTICULOS ( PRECIO_NETO TIPO_IMPORTE, PRECIO_PORTE TIPO_IMPORTE, FABRICANTE VARCHAR(255), - REFERENCIA_FABR VARCHAR(255), + REFERENCIA_FABR VARCHAR(255), FECHA_ALTA TIMESTAMP, FECHA_MODIFICACION TIMESTAMP, USUARIO TIPO_USUARIO, @@ -614,26 +612,6 @@ CREATE TABLE EMPRESAS_USUARIOS ( ); -CREATE TABLE F_PERFILES ( - ID TIPO_ID NOT NULL, - PERFIL TIPO_PERFIL NOT NULL -); - - -CREATE TABLE F_PERFILES_USUARIOS ( - ID_PERFIL TIPO_ID NOT NULL, - ID_USUARIO TIPO_ID NOT NULL -); - - -CREATE TABLE F_USUARIOS ( - ID TIPO_ID NOT NULL, - USUARIO TIPO_USUARIO NOT NULL, - ACTIVO TIPO_BOOLEANO, - LAST_LOGIN TIMESTAMP, - PASS VARCHAR(10) -); - CREATE TABLE FABRICANTES ( ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */, DESCRIPCION VARCHAR(255) @@ -792,24 +770,10 @@ CREATE TABLE MOVIMIENTOS ( ); -CREATE TABLE OBRAS ( - ID TIPO_ID NOT NULL, - ID_EMPRESA TIPO_ID NOT NULL, - NOMBRE VARCHAR(255), - CALLE VARCHAR(255), - PROVINCIA VARCHAR(255), - POBLACION VARCHAR(255), - CODIGO_POSTAL VARCHAR(10), - TELEFONO VARCHAR(25), - MOVIL VARCHAR(25), - FAX VARCHAR(25), - PERSONA_CONTACTO VARCHAR(255), - OBSERVACIONES TIPO_NOTAS, +CREATE TABLE OBRAS_DATOS ( + ID_ALMACEN TIPO_ID NOT NULL, ID_CLIENTE TIPO_ID, - ID_SUBCONTRATA TIPO_ID, - FECHA_ALTA TIMESTAMP, - FECHA_MODIFICACION TIMESTAMP, - USUARIO TIPO_USUARIO + ID_SUBCONTRATA TIPO_ID ); @@ -1419,6 +1383,31 @@ FROM LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN) ; +/* View: V_ALMACENES */ +CREATE VIEW V_ALMACENES ( + ID, + ID_EMPRESA, + NOMBRE, + CALLE, + PROVINCIA, + POBLACION, + CODIGO_POSTAL, + TELEFONO, + MOVIL, + FAX, + PERSONA_CONTACTO, + OBSERVACIONES, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO) +AS +SELECT ALMACENES.ID, ALMACENES.ID_EMPRESA, ALMACENES.NOMBRE, + ALMACENES.CALLE, ALMACENES.PROVINCIA, ALMACENES.POBLACION, ALMACENES.CODIGO_POSTAL, + ALMACENES.TELEFONO, ALMACENES.MOVIL, ALMACENES.FAX, ALMACENES.PERSONA_CONTACTO, + ALMACENES.OBSERVACIONES, ALMACENES.FECHA_ALTA, ALMACENES.FECHA_MODIFICACION, ALMACENES.USUARIO +FROM ALMACENES +WHERE ALMACENES.TIPO_ALMACEN = 'ALMACEN' +; /* View: V_ARTICULOS */ @@ -1706,15 +1695,17 @@ CREATE VIEW V_OBRAS ( FECHA_MODIFICACION, USUARIO) AS -SELECT OBRAS.ID, OBRAS.ID_EMPRESA, OBRAS.NOMBRE, - OBRAS.CALLE, OBRAS.PROVINCIA, OBRAS.POBLACION, OBRAS.CODIGO_POSTAL, - OBRAS.TELEFONO, OBRAS.MOVIL, OBRAS.FAX, OBRAS.PERSONA_CONTACTO, - OBRAS.OBSERVACIONES, OBRAS.ID_CLIENTE, CLIENTES.NOMBRE AS NOMBRE_CLIENTE, - OBRAS.ID_SUBCONTRATA, SUBCONTRATAS.NOMBRE AS NOMBRE_SUBCONTRATA, - OBRAS.FECHA_ALTA, OBRAS.FECHA_MODIFICACION, OBRAS.USUARIO -FROM OBRAS -LEFT OUTER JOIN CONTACTOS AS CLIENTES ON (CLIENTES .ID = OBRAS.ID_CLIENTE) -LEFT OUTER JOIN CONTACTOS AS SUBCONTRATAS ON (SUBCONTRATAS.ID = OBRAS.ID_SUBCONTRATA) +SELECT ALMACENES.ID, ALMACENES.ID_EMPRESA, ALMACENES.NOMBRE, + ALMACENES.CALLE, ALMACENES.PROVINCIA, ALMACENES.POBLACION, ALMACENES.CODIGO_POSTAL, + ALMACENES.TELEFONO, ALMACENES.MOVIL, ALMACENES.FAX, ALMACENES.PERSONA_CONTACTO, + ALMACENES.OBSERVACIONES, OBRAS_DATOS.ID_CLIENTE, CLIENTES.NOMBRE AS NOMBRE_CLIENTE, + OBRAS_DATOS.ID_SUBCONTRATA, SUBCONTRATAS.NOMBRE AS NOMBRE_SUBCONTRATA, + ALMACENES.FECHA_ALTA, ALMACENES.FECHA_MODIFICACION, ALMACENES.USUARIO +FROM ALMACENES +INNER JOIN OBRAS_DATOS ON (OBRAS_DATOS.ID_ALMACEN = ALMACENES.ID) +LEFT OUTER JOIN CONTACTOS AS CLIENTES ON (CLIENTES.ID = OBRAS_DATOS.ID_CLIENTE) +LEFT OUTER JOIN CONTACTOS AS SUBCONTRATAS ON (SUBCONTRATAS.ID = OBRAS_DATOS.ID_SUBCONTRATA) +WHERE ALMACENES.TIPO_ALMACEN = 'OBRA' ; @@ -2290,7 +2281,7 @@ FROM INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID) INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN) - LEFT OUTER JOIN OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA) + LEFT OUTER JOIN ALMACENES AS OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA) LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE) ; @@ -2588,7 +2579,6 @@ ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT PK_FACTURAS_PROVEEDOR PRIMARY KEY ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_FACTURAS_PROVEEDOR_DETALLES PRIMARY KEY (ID); ALTER TABLE FORMAS_PAGO ADD PRIMARY KEY (ID); ALTER TABLE FORMAS_PAGO_PLAZOS ADD PRIMARY KEY (ID); -ALTER TABLE F_PERFILES_USUARIOS ADD CONSTRAINT PK_PERFILES_USUARIOS PRIMARY KEY (ID_PERFIL, ID_USUARIO); ALTER TABLE INFORMES ADD CONSTRAINT PK_INFORMES PRIMARY KEY (ID); ALTER TABLE MOVIMIENTOS ADD CONSTRAINT PK_MOVIMIENTOS PRIMARY KEY (ID); ALTER TABLE PAGOS_CLIENTE ADD CONSTRAINT PK_PAGOS_CLIENTE PRIMARY KEY (ID); diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj index 00e82e9e..eded4efb 100644 --- a/Source/ApplicationBase/ApplicationBase.dproj +++ b/Source/ApplicationBase/ApplicationBase.dproj @@ -46,13 +46,6 @@ Package FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -67,27 +60,27 @@ MainSource - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas index 4aec3606..45fb3796 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas +++ b/Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas @@ -51,6 +51,9 @@ implementation { TfEditorUsuario } +uses + uDialogUtils; + var FIDNuevoGuardado : Integer = -1; @@ -83,7 +86,7 @@ end; procedure TfEditorPerfilUsuario.EliminarInterno; begin - if (Application.MessageBox('¿Desea borrar este perfil?', 'Atención', MB_YESNO) = IDYES) then + if (ShowConfirmMessage('Eliminar el perfil', '¿Desea eliminar este perfil?') = IDYES) then begin inherited; if not FController.EliminarPerfil(FPerfilUsuario) then diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm index 1d00fa47..9f64d642 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm +++ b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm @@ -1,7 +1,5 @@ inherited fEditorUsuario: TfEditorUsuario Caption = 'fEditorUsuario' - ExplicitWidth = 320 - ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited TBXDock: TTBXDock @@ -24,10 +22,6 @@ inherited fEditorUsuario: TfEditorUsuario end inherited pgPaginas: TPageControl inherited pagGeneral: TTabSheet - ExplicitLeft = 4 - ExplicitTop = 24 - ExplicitWidth = 638 - ExplicitHeight = 332 inline frViewUsuario1: TfrViewUsuario Left = 0 Top = 0 diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 78cf166f..8b91dde5 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,86 +44,6 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components Base.dpk @@ -134,6 +54,57 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm @@ -157,54 +128,10 @@
dmBase
TDataModule - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -219,13 +146,6 @@ - - - - - - -