Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Añadidos Roberto

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/branches/D2007-DA5@57 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2007-10-22 09:32:54 +00:00
parent 0044c2d92e
commit 471b58610e
9 changed files with 330 additions and 555 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Database/Anterior/VISTAS.SQL
View File

@ -93,7 +93,8 @@ CREATE VIEW V_CLIENTES(
RECARGO_EQUIVALENCIA,
ID_TIPO_IVA,
ID_FORMA_PAGO,
TIENDA_WEB)
TIENDA_WEB,
CODIGO_ASIGNADO)
AS
SELECT
V_CONTACTOS.ID,
@ -128,7 +129,8 @@ SELECT
CLIENTES_DATOS.RECARGO_EQUIVALENCIA,
CLIENTES_DATOS.ID_TIPO_IVA,
CLIENTES_DATOS.ID_FORMA_PAGO,
CLIENTES_DATOS.TIENDA_WEB
CLIENTES_DATOS.TIENDA_WEB,
CLIENTES_DATOS.CODIGO_ASIGNADO
FROM
V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)

415
Database/scripts/factuges.sql
View File

@ -243,6 +243,7 @@ CREATE TABLE CLIENTES_DATOS (ID_CLIENTE TIPO_ID NOT NULL,
ID_FORMA_PAGO TIPO_ID,
TIENDA_WEB TIPO_BOOLEANO,
DESCUENTO TIPO_PORCENTAJE,
CODIGO_ASIGNADO VARCHAR(255),
CONSTRAINT PK_CLIENTES_DATOS PRIMARY KEY (ID_CLIENTE));
/* Table: CLIENTES_DTOS_PROVEEDORES, Owner: SYSDBA */
@ -954,523 +955,213 @@ ALTER TABLE TIENDA_WEB ADD CONSTRAINT FK_EMPRESAS_TIENDA_WEB FOREIGN KEY (ID_EMP
/* View: V_CONTACTOS, Owner: SYSDBA */
CREATE VIEW V_CONTACTOS (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) AS
SELECT CONTACTOS.ID,
CONTACTOS_CATEGORIAS.ID_CATEGORIA,
CONTACTOS.NIF_CIF,
CONTACTOS.NOMBRE,
CONTACTOS.PERSONA_CONTACTO,
CONTACTOS.CALLE,
CONTACTOS.POBLACION,
CONTACTOS.PROVINCIA,
CONTACTOS.CODIGO_POSTAL,
CONTACTOS.TELEFONO_1,
CONTACTOS.TELEFONO_2,
CONTACTOS.MOVIL_1,
CONTACTOS.MOVIL_2,
CONTACTOS.FAX,
CONTACTOS.EMAIL_1,
CONTACTOS.EMAIL_2,
CONTACTOS.PAGINA_WEB,
CONTACTOS.NOTAS,
CONTACTOS.FECHA_ALTA,
CONTACTOS.FECHA_MODIFICACION,
CONTACTOS.USUARIO,
EMPRESAS_CONTACTOS.ID_EMPRESA,
CONTACTOS.REFERENCIA
FROM CONTACTOS
INNER JOIN CONTACTOS_CATEGORIAS ON (CONTACTOS_CATEGORIAS.ID_CONTACTO =
CONTACTOS.ID)
INNER JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO =
CONTACTOS.ID);
SELECT CONTACTOS.ID, CONTACTOS_CATEGORIAS.ID_CATEGORIA, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE, CONTACTOS.PERSONA_CONTACTO, CONTACTOS.CALLE, CONTACTOS.POBLACION, CONTACTOS.PROVINCIA, CONTACTOS.CODIGO_POSTAL, CONTACTOS.TELEFONO_1, CONTACTOS.TELEFONO_2, CONTACTOS.MOVIL_1, CONTACTOS.MOVIL_2, CONTACTOS.FAX, CONTACTOS.EMAIL_1, CONTACTOS.EMAIL_2, CONTACTOS.PAGINA_WEB, CONTACTOS.NOTAS, CONTACTOS.FECHA_ALTA, CONTACTOS.FECHA_MODIFICACION, CONTACTOS.USUARIO, EMPRESAS_CONTACTOS.ID_EMPRESA, CONTACTOS.REFERENCIAFROM CONTACTOS INNER JOIN CONTACTOS_CATEGORIAS ON (CONTACTOS_CATEGORIAS.ID_CONTACTO = CONTACTOS.ID) INNER JOIN EMPRESAS_CONTACTOS ON (EMPRESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID);
/* View: V_CLIENTES, Owner: SYSDBA */
CREATE VIEW V_CLIENTES (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, GRUPO_CLIENTE, NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, BLOQUEADO, REGIMEN_IVA, MOTIVO_BLOQUEO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB) 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,
CLIENTES_DATOS.GRUPO_CLIENTE,
CLIENTES_DATOS.NOMBRE_COMERCIAL,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS,
CLIENTES_DATOS.BLOQUEADO,
CLIENTES_DATOS.REGIMEN_IVA,
CLIENTES_DATOS.MOTIVO_BLOQUEO,
CLIENTES_DATOS.RECARGO_EQUIVALENCIA,
CLIENTES_DATOS.ID_TIPO_IVA,
CLIENTES_DATOS.ID_FORMA_PAGO,
CLIENTES_DATOS.TIENDA_WEB
FROM
V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
WHERE
V_CONTACTOS.ID_CATEGORIA = 1;
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, CLIENTES_DATOS.GRUPO_CLIENTE, CLIENTES_DATOS.NOMBRE_COMERCIAL, CLIENTES_DATOS.VENCIMIENTO_FACTURAS, CLIENTES_DATOS.BLOQUEADO, CLIENTES_DATOS.REGIMEN_IVA, CLIENTES_DATOS.MOTIVO_BLOQUEO, CLIENTES_DATOS.RECARGO_EQUIVALENCIA, CLIENTES_DATOS.ID_TIPO_IVA, CLIENTES_DATOS.ID_FORMA_PAGO, CLIENTES_DATOS.TIENDA_WEBFROM V_CONTACTOS LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)WHERE V_CONTACTOS.ID_CATEGORIA = 1;
/* View: V_PROVEEDORES, Owner: SYSDBA */
CREATE VIEW V_PROVEEDORES (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, DESCUENTO, DESCRIPCION_PROVEEDOR, CODIGO_ASIGNADO, GRUPO_PROVEEDOR, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION) 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,
PROVEEDORES_DATOS.DESCUENTO,
PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR,
PROVEEDORES_DATOS.CODIGO_ASIGNADO,
PROVEEDORES_DATOS.GRUPO_PROVEEDOR,
PROVEEDORES_DATOS.REGIMEN_IVA,
PROVEEDORES_DATOS.ID_TIPO_IVA,
PROVEEDORES_DATOS.ID_FORMA_PAGO,
PROVEEDORES_DATOS.TIENDA_WEB,
PROVEEDORES_DATOS.HOMOLOGADO,
PROVEEDORES_DATOS.CERTIFICACION
FROM
PROVEEDORES_DATOS
LEFT OUTER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)
WHERE
V_CONTACTOS.ID_CATEGORIA = 2;
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, PROVEEDORES_DATOS.DESCUENTO, PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR, PROVEEDORES_DATOS.CODIGO_ASIGNADO, PROVEEDORES_DATOS.GRUPO_PROVEEDOR, PROVEEDORES_DATOS.REGIMEN_IVA, PROVEEDORES_DATOS.ID_TIPO_IVA, PROVEEDORES_DATOS.ID_FORMA_PAGO, PROVEEDORES_DATOS.TIENDA_WEB, PROVEEDORES_DATOS.HOMOLOGADO, PROVEEDORES_DATOS.CERTIFICACIONFROM PROVEEDORES_DATOS LEFT OUTER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)WHERE V_CONTACTOS.ID_CATEGORIA = 2;
/* View: V_EMPLEADOS, Owner: SYSDBA */
CREATE VIEW V_EMPLEADOS (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, FECHA_NACIMIENTO, CATEGORIA, FECHA_ALTA_EMPRESA, FORMACION_BASE, FORMACION_COMPLE, FORMACION_RECIBIDA, EXPERIENCIA) 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,
EMPLEADOS_DATOS.FECHA_NACIMIENTO,
EMPLEADOS_DATOS.CATEGORIA,
EMPLEADOS_DATOS.FECHA_ALTA_EMPRESA,
EMPLEADOS_DATOS.FORMACION_BASE,
EMPLEADOS_DATOS.FORMACION_COMPLE,
EMPLEADOS_DATOS.FORMACION_RECIBIDA,
EMPLEADOS_DATOS.EXPERIENCIA
FROM V_CONTACTOS
LEFT OUTER JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_EMPLEADO = V_CONTACTOS.ID)
WHERE V_CONTACTOS.ID_CATEGORIA = 3;
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, EMPLEADOS_DATOS.FECHA_NACIMIENTO, EMPLEADOS_DATOS.CATEGORIA, EMPLEADOS_DATOS.FECHA_ALTA_EMPRESA, EMPLEADOS_DATOS.FORMACION_BASE, EMPLEADOS_DATOS.FORMACION_COMPLE, EMPLEADOS_DATOS.FORMACION_RECIBIDA, EMPLEADOS_DATOS.EXPERIENCIA FROM V_CONTACTOSLEFT OUTER JOIN EMPLEADOS_DATOS ON (EMPLEADOS_DATOS.ID_EMPLEADO = V_CONTACTOS.ID)WHERE V_CONTACTOS.ID_CATEGORIA = 3;
SET TERM ^ ;
/* Triggers only will work for SQL triggers */
CREATE TRIGGER TRI_INSERT_ALBARANES_CLIENTE FOR ALBARANES_CLIENTE
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_ALBARANES_CLIENTE FOR ALBARANES_CLIENTE
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_ALBARANES_CLI_DET FOR ALBARANES_CLIENTE_DETALLES
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_ALBARANES_CLI_DET FOR ALBARANES_CLIENTE_DETALLES
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_ALBARANES_PROVEEDOR FOR ALBARANES_PROVEEDOR
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_ALBARANES_PROVEEDOR FOR ALBARANES_PROVEEDOR
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_ALBARANES_PRO_DET FOR ALBARANES_PROVEEDOR_DETALLES
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_ALBARANES_PRO_DET FOR ALBARANES_PROVEEDOR_DETALLES
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_ALMACENES FOR ALMACENES
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_ALMACENES FOR ALMACENES
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_ARTICULOS FOR ARTICULOS
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_ARTICULOS FOR ARTICULOS
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_COMISIONES_LIQUID FOR COMISIONES_LIQUIDADAS
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_COMISIONES_LIQUID FOR COMISIONES_LIQUIDADAS
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_CONTACTOS FOR CONTACTOS
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_CONTACTOS FOR CONTACTOS
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_CONTACTOS_BANCO FOR CONTACTOS_DATOS_BANCO
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_CONTACTOS_BANCO FOR CONTACTOS_DATOS_BANCO
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_CONTACTOS_DIR FOR CONTACTOS_DIRECCIONES
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_CONTACTOS_DIR FOR CONTACTOS_DIRECCIONES
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_FACTURAS_CLIENTE FOR FACTURAS_CLIENTE
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_FACTURAS_CLIENTE FOR FACTURAS_CLIENTE
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_FACTURAS_CLIENTE_DET FOR FACTURAS_CLIENTE_DETALLES
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_FACTURAS_CLIENTE_DET FOR FACTURAS_CLIENTE_DETALLES
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_FACTURAS_PROVEEDOR FOR FACTURAS_PROVEEDOR
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_FACTURAS_PROVEEDOR FOR FACTURAS_PROVEEDOR
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_FACTURAS_PROV_DET FOR FACTURAS_PROVEEDOR_DETALLES
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_FACTURAS_PROV_DET FOR FACTURAS_PROVEEDOR_DETALLES
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_PAGOS_CLIENTE FOR PAGOS_CLIENTE
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_PAGOS_CLIENTE FOR PAGOS_CLIENTE
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_PAGOS_PROVEEDOR FOR PAGOS_PROVEEDOR
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_PAGOS_PROVEEDOR FOR PAGOS_PROVEEDOR
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_PEDIDOS_CLIENTE FOR PEDIDOS_CLIENTE
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_PEDIDOS_CLIENTE FOR PEDIDOS_CLIENTE
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_PEDIDOS_CLI_DET FOR PEDIDOS_CLIENTE_DETALLES
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_PEDIDOS_CLI_DET FOR PEDIDOS_CLIENTE_DETALLES
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_PEDIDOS_PROVEEDOR FOR PEDIDOS_PROVEEDOR
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_PEDIDOS_PROVEEDOR FOR PEDIDOS_PROVEEDOR
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_PEDIDOS_PROV_DET FOR PEDIDOS_PROVEEDOR_DETALLES
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_PEDIDOS_PROV_DET FOR PEDIDOS_PROVEEDOR_DETALLES
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_RECIBOS_CLIENTE FOR RECIBOS_CLIENTE
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_RECIBOS_CLIENTE FOR RECIBOS_CLIENTE
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_RECIBOS_PROVEEDOR FOR RECIBOS_PROVEEDOR
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_RECIBOS_PROVEEDOR FOR RECIBOS_PROVEEDOR
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_REMESAS_CLIENTE FOR REMESAS_CLIENTE
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_REMESAS_CLI FOR REMESAS_CLIENTE
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
CREATE TRIGGER TRI_INSERT_REMESAS_PROVEEDOR FOR REMESAS_PROVEEDOR
ACTIVE BEFORE INSERT POSITION 0
AS
begin
NEW.FECHA_ALTA = current_timestamp;
NEW.FECHA_MODIFICACION = Null;
end ^
ASbegin NEW.FECHA_ALTA = current_timestamp; NEW.FECHA_MODIFICACION = Null;end ^
CREATE TRIGGER TRI_UPDATE_REMESAS_PROV FOR REMESAS_PROVEEDOR
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
NEW.FECHA_MODIFICACION = current_timestamp;
end ^
ASbegin NEW.FECHA_MODIFICACION = current_timestamp;end ^
COMMIT WORK ^
SET TERM ; ^

18
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -23,6 +23,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
@ -58,14 +59,14 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Direcci'#195#179'n'
DisplayLabel = 'Direcci'#243'n'
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#195#179'n'
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
@ -79,7 +80,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#195#179'digo postal'
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
@ -100,7 +101,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'MOVIL_1'
DataType = datString
Size = 25
DisplayLabel = 'M'#195#179'vil'
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
@ -193,14 +194,14 @@ inherited DataModuleClientes: TDataModuleClientes
item
Name = 'BLOQUEADO'
DataType = datSmallInt
DisplayLabel = #194#191'Bloqueado?'
DisplayLabel = #191'Bloqueado?'
DictionaryEntry = 'Clientes_BLOQUEADO'
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
DisplayLabel = 'R'#195#169'gimen de IVA'
DisplayLabel = 'R'#233'gimen de IVA'
DictionaryEntry = 'Clientes_REGIMEN_IVA'
end
item
@ -230,6 +231,11 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'TIENDA_WEB'
DataType = datSmallInt
DictionaryEntry = 'Clientes_TIENDA_WEB'
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

79
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Contactos = '{0535A6E2-6AD1-4247-9A32-BC3C1658EC8C}';
RID_GruposCliente = '{0F129451-0E5F-469A-B296-EE11BD5C33F0}';
RID_DatosBancarios = '{FFFA1683-A8AC-4087-8158-FB2ADE3241A4}';
RID_Clientes = '{C0877263-6E9F-45A1-A89D-284662B5F0D5}';
RID_Proveedores = '{EBFE10F1-1C8A-4F44-8512-FAF16349C724}';
RID_Empleados = '{436FA492-BFC7-4E36-A8FD-0FAB8603EA7C}';
RID_DireccionesContacto = '{55633C2C-41DA-4AAF-8A20-6F8E511BA93F}';
RID_ClientesDescuentos = '{836B4D02-8030-460F-A933-85A05194566D}';
RID_GruposProveedor = '{F9E85611-2E9A-4918-8EB0-3011DABDA189}';
RID_GruposEmpleado = '{616CAF20-6FBF-465D-BA8F-CF10C1F2E167}';
RID_Contactos_Refresh = '{A87206B2-F4CF-4C8D-92A1-3B5AC6A4F941}';
RID_Contactos = '{F0F9D3C9-E172-4D98-8BEA-17A208B81ACF}';
RID_GruposCliente = '{2766FEF7-E91D-4D20-B91A-BF62CD52718B}';
RID_DatosBancarios = '{092DF3B2-DF58-4938-9C03-4AFBDE4C21B9}';
RID_Clientes = '{3F704A25-87C5-4703-A36E-F43F35015E87}';
RID_Proveedores = '{73F3AD79-2DDE-4EAB-BAB0-E07521564344}';
RID_Empleados = '{743452C9-C22F-4046-B7B2-5CABC0560120}';
RID_DireccionesContacto = '{8A4FC8D1-7B4C-4AB4-8D88-435D399FF11A}';
RID_ClientesDescuentos = '{90395716-B88F-4D46-B90F-9EEAACB04FDA}';
RID_GruposProveedor = '{575567BD-E019-4A94-9825-D95AACBA47D0}';
RID_GruposEmpleado = '{4F6588DD-9088-4CC3-98D9-7BB02932AA89}';
RID_Contactos_Refresh = '{98DB65B8-84D8-4031-A653-528C0AE76035}';
{ Data table names }
nme_Contactos = 'Contactos';
@ -146,6 +146,7 @@ const
fld_ClientesID_TIPO_IVA = 'ID_TIPO_IVA';
fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
{ Clientes field indexes }
idx_ClientesID = 0;
@ -181,6 +182,7 @@ const
idx_ClientesID_TIPO_IVA = 30;
idx_ClientesID_FORMA_PAGO = 31;
idx_ClientesTIENDA_WEB = 32;
idx_ClientesCODIGO_ASIGNADO = 33;
{ Proveedores fields }
fld_ProveedoresID = 'ID';
@ -427,7 +429,7 @@ const
type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{5145E838-1842-4483-A701-647873835147}']
['{6A311707-BFBF-4A2D-8B23-A1854122C104}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -726,7 +728,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{8359833A-FFFA-4484-9C33-373F52E3F583}']
['{9CAF03A2-A4F1-4258-B816-6F6F3DD28A5C}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -761,7 +763,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{4FC2551A-3470-4FCC-9A1C-FFC04AD11D1E}']
['{203B76FC-022A-40EE-9D0F-D349854569B2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -892,7 +894,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{8031B49A-5DF3-4CEE-B1F9-6454729B6A85}']
['{F556CA82-15D1-4B12-872D-FA8DDC4D3D1F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1025,6 +1027,10 @@ type
procedure SetTIENDA_WEBValue(const aValue: SmallInt);
function GetTIENDA_WEBIsNull: Boolean;
procedure SetTIENDA_WEBIsNull(const aValue: Boolean);
function GetCODIGO_ASIGNADOValue: String;
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
function GetCODIGO_ASIGNADOIsNull: Boolean;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
{ Properties }
@ -1094,6 +1100,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
end;
{ TClientesDataTableRules }
@ -1234,6 +1242,10 @@ type
procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
function GetTIENDA_WEBIsNull: Boolean; virtual;
procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
function GetCODIGO_ASIGNADOValue: String; virtual;
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1302,6 +1314,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1311,7 +1325,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{A95870C3-18C8-4F26-A154-FF450D178739}']
['{E78B6920-EA8B-4272-A882-09272EE52570}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1730,7 +1744,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{42D396C8-77D0-4750-8E63-A5F30DEB4CEB}']
['{163A8B9E-63AC-4F3A-940F-B88797257D87}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2113,7 +2127,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{38322BE3-0518-4B04-A0D9-EAE063592DD6}']
['{B502F150-DACD-4279-B98F-FD8A8697087E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2328,7 +2342,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{4D253EA6-435C-4C0B-A1A0-D133E1320C20}']
['{460B58FD-1B6D-4262-B98F-CB39420DA154}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2411,7 +2425,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{B7A45421-0C3B-462B-9E58-A27AE1D71575}']
['{2D44AEBA-C652-43E1-B930-414C6BCE4EBD}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2446,7 +2460,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{0D368F59-0457-4AAA-88E0-5DC08217AD42}']
['{4E36DEE5-8851-466F-835C-EE1AD7C9DEF6}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2481,7 +2495,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{3F747BDC-1167-4192-9CA7-4FC51C649698}']
['{48624E43-02C5-408B-8BCE-41C7B43B3DE0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -4205,6 +4219,27 @@ begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsVariant := Null;
end;
function TClientesDataTableRules.GetCODIGO_ASIGNADOValue: String;
begin
result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString;
end;
procedure TClientesDataTableRules.SetCODIGO_ASIGNADOValue(const aValue: String);
begin
DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString := aValue;
end;
function TClientesDataTableRules.GetCODIGO_ASIGNADOIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].IsNull;
end;
procedure TClientesDataTableRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsVariant := Null;
end;
{ TProveedoresDataTableRules }
constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);

87
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,22 +9,22 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ContactosDelta = '{622299E7-0DE2-41D9-9B00-AD4F0FC58AA8}';
RID_GruposClienteDelta = '{2132D071-7709-433A-B339-5B9C763D0995}';
RID_DatosBancariosDelta = '{6BA983CD-C9FA-4933-93CD-FCD1CE045256}';
RID_ClientesDelta = '{32DF2CC4-F076-4924-B2EF-9218D99294C6}';
RID_ProveedoresDelta = '{4A9BB1FB-DE7E-43C2-8F1D-4909191DCC53}';
RID_EmpleadosDelta = '{7CEE2A53-5906-42F1-BFDA-753F7BC3769A}';
RID_DireccionesContactoDelta = '{10E97AB6-9484-47D3-94FB-EB77DF28A5C8}';
RID_ClientesDescuentosDelta = '{F9462554-735C-43D6-96C5-D440B8AE77DC}';
RID_GruposProveedorDelta = '{385AB8C2-D9FD-4BAD-955C-3716AEC71CDB}';
RID_GruposEmpleadoDelta = '{8EFA344F-C9C4-4113-807A-8876CEE002A2}';
RID_Contactos_RefreshDelta = '{D04D6755-FB96-4517-91AF-95AB76C731CF}';
RID_ContactosDelta = '{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}';
RID_GruposClienteDelta = '{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}';
RID_DatosBancariosDelta = '{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}';
RID_ClientesDelta = '{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}';
RID_ProveedoresDelta = '{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}';
RID_EmpleadosDelta = '{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}';
RID_DireccionesContactoDelta = '{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}';
RID_ClientesDescuentosDelta = '{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}';
RID_GruposProveedorDelta = '{D54FF769-D25B-4923-88CC-9585CBA3D60F}';
RID_GruposEmpleadoDelta = '{DE8A4095-7B5A-4351-A924-641C7C8AE938}';
RID_Contactos_RefreshDelta = '{00F38C32-1DA2-438A-8AB4-5E1832EEA83F}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{622299E7-0DE2-41D9-9B00-AD4F0FC58AA8}']
['{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -323,7 +323,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{2132D071-7709-433A-B339-5B9C763D0995}']
['{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -357,7 +357,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{6BA983CD-C9FA-4933-93CD-FCD1CE045256}']
['{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -487,7 +487,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{32DF2CC4-F076-4924-B2EF-9218D99294C6}']
['{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -522,6 +522,7 @@ type
function GetOldID_TIPO_IVAValue : Integer;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : SmallInt;
function GetOldCODIGO_ASIGNADOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -557,6 +558,7 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
end;
{ TClientesBusinessProcessorRules }
@ -763,6 +765,12 @@ type
function GetOldTIENDA_WEBIsNull: Boolean; virtual;
procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
function GetCODIGO_ASIGNADOValue: String; virtual;
function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
function GetOldCODIGO_ASIGNADOValue: String; virtual;
function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -897,6 +905,10 @@ type
property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -906,7 +918,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{4A9BB1FB-DE7E-43C2-8F1D-4909191DCC53}']
['{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1325,7 +1337,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{7CEE2A53-5906-42F1-BFDA-753F7BC3769A}']
['{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1712,7 +1724,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{10E97AB6-9484-47D3-94FB-EB77DF28A5C8}']
['{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -1927,7 +1939,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{F9462554-735C-43D6-96C5-D440B8AE77DC}']
['{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2009,7 +2021,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{385AB8C2-D9FD-4BAD-955C-3716AEC71CDB}']
['{D54FF769-D25B-4923-88CC-9585CBA3D60F}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2043,7 +2055,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{8EFA344F-C9C4-4113-807A-8876CEE002A2}']
['{DE8A4095-7B5A-4351-A924-641C7C8AE938}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2077,7 +2089,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{D04D6755-FB96-4517-91AF-95AB76C731CF}']
['{00F38C32-1DA2-438A-8AB4-5E1832EEA83F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -4464,6 +4476,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := Null;
end;
function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
end;
function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]);
end;
function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO];
end;
function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO]);
end;
procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := Null;
end;
{ TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

2
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -75,6 +75,7 @@ begin
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
Execute;
end;
@ -112,6 +113,7 @@ begin
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
Execute;
end;
finally

101
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -512,6 +512,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'TIENDA_WEB'
TableField = 'TIENDA_WEB'
end
item
DatasetField = 'CODIGO_ASIGNADO'
TableField = 'CODIGO_ASIGNADO'
end>
end>
Name = 'Clientes'
@ -703,6 +707,11 @@ object srvContactos: TsrvContactos
Name = 'TIENDA_WEB'
DataType = datSmallInt
DictionaryEntry = 'Clientes_TIENDA_WEB'
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
end>
end
item
@ -2485,73 +2494,51 @@ object srvContactos: TsrvContactos
Params = <
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'VENCIMIENTO_FACTURAS'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'BLOQUEADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_ASIGNADO'
Value = ''
end>
Statements = <
item
@ -2561,10 +2548,11 @@ object srvContactos: TsrvContactos
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' +
'ARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' +
'BLOQUEADO, MOTIVO_BLOQUEO,'#10' REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' +
'MA_PAGO, TIENDA_WEB)'#10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, ' +
':RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL, :VENCIMIENTO_FACT' +
'URAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA,'#10' :ID_T' +
'IPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB)'
'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO)'#10' VALUES'#10' (:ID_CLIENTE,' +
' :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL, ' +
':VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIME' +
'N_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_A' +
'SIGNADO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2594,79 +2582,55 @@ object srvContactos: TsrvContactos
Params = <
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'VENCIMIENTO_FACTURAS'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'BLOQUEADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'TIENDA_WEB'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_ASIGNADO'
Value = ''
end
item
Name = 'OLD_ID_CLIENTE'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -2679,8 +2643,9 @@ object srvContactos: TsrvContactos
'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' VENCIMIENTO_FACTURAS = :VE' +
'NCIMIENTO_FACTURAS,'#10' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA ' +
'= :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAG' +
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB'#10' WHERE'#10' (ID' +
'_CLIENTE = :OLD_ID_CLIENTE)'
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' +
'GNADO = :CODIGO_ASIGNADO'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIEN' +
'TE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -4084,15 +4049,15 @@ object srvContactos: TsrvContactos
Top = 82
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="Contactos" Left="200" Top="200" Wid' +
'th="400" Height="300">'#13#10' <Entity Name="DatosBancarios" Left="' +
'325,90" Top="0,00" />'#13#10' <Entity Name="DireccionesContacto" Le' +
'ft="320,90" Top="183,00" />'#13#10' <Entity Name="Contactos" Left="' +
'0,00" Top="85,50" />'#13#10' </Diagram>'#13#10' <Diagram Name="Clientes" L' +
'th="400" Height="300">'#13#10' <Entity Name="Contactos" Left="0,00"' +
' Top="85,50" />'#13#10' <Entity Name="DatosBancarios" Left="325,90"' +
' Top="0,00" />'#13#10' <Entity Name="DireccionesContacto" Left="320' +
',90" Top="183,00" />'#13#10' </Diagram>'#13#10' <Diagram Name="Clientes" L' +
'eft="200" Top="200" Width="400" Height="300">'#13#10' <Entity Name=' +
'"DatosBancarios" Left="463,00" Top="175,00" />'#13#10' <Entity Name' +
'="DireccionesContacto" Left="253,00" Top="236,00" />'#13#10' <Entit' +
'y Name="ClientesDescuentos" Left="438,00" Top="0,00" />'#13#10' <En' +
'tity Name="Clientes" Left="0,00" Top="23,00" />'#13#10' </Diagram>'#13#10' ' +
'"Clientes" Left="0,00" Top="23,00" />'#13#10' <Entity Name="DatosBa' +
'ncarios" Left="463,00" Top="175,00" />'#13#10' <Entity Name="Direcc' +
'ionesContacto" Left="253,00" Top="236,00" />'#13#10' <Entity Name="' +
'ClientesDescuentos" Left="438,00" Top="0,00" />'#13#10' </Diagram>'#13#10' ' +
' <Diagram Name="Empleados" Left="200" Top="200" Width="400" Heig' +
'ht="300">'#13#10' <Entity Name="DatosBancarios" Left="210,50" Top="' +
'280,67" />'#13#10' <Entity Name="DireccionesContacto" Left="295,00"' +

175
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -11,19 +11,19 @@ inherited frViewCliente: TfrViewCliente
ExplicitWidth = 646
ExplicitHeight = 470
inherited PngSpeedButton1: TPngSpeedButton
Left = 601
ExplicitLeft = 601
Left = 585
ExplicitLeft = 585
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 601
ExplicitLeft = 601
Left = 585
ExplicitLeft = 585
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 601
ExplicitLeft = 601
Left = 585
ExplicitLeft = 585
end
object Label1: TLabel [3]
Left = 376
Left = 373
Top = 280
Width = 269
Height = 39
@ -34,50 +34,50 @@ inherited frViewCliente: TfrViewCliente
WordWrap = True
end
inherited eCalle: TcxDBTextEdit
Left = 121
Top = 284
TabOrder = 8
ExplicitLeft = 121
ExplicitTop = 284
Left = 132
Top = 304
TabOrder = 9
ExplicitLeft = 132
ExplicitTop = 304
ExplicitWidth = 175
Width = 175
end
inherited eProvincia: TcxDBTextEdit
Left = 121
Top = 338
TabOrder = 11
ExplicitLeft = 121
ExplicitTop = 338
Left = 132
Top = 358
TabOrder = 12
ExplicitLeft = 132
ExplicitTop = 358
ExplicitWidth = 167
Width = 167
end
inherited ePoblacion: TcxDBTextEdit
Left = 121
Top = 311
TabOrder = 9
ExplicitLeft = 121
ExplicitTop = 311
Left = 132
Top = 331
TabOrder = 10
ExplicitLeft = 132
ExplicitTop = 331
ExplicitWidth = 71
Width = 71
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 281
Top = 311
TabOrder = 10
ExplicitLeft = 281
ExplicitTop = 311
Left = 278
Top = 331
TabOrder = 11
ExplicitLeft = 278
ExplicitTop = 331
end
inherited eObservaciones: TcxDBMemo
Top = 395
TabOrder = 20
ExplicitTop = 395
Top = 415
TabOrder = 21
ExplicitTop = 415
ExplicitWidth = 609
ExplicitHeight = 42
Height = 42
Width = 609
end
object eNombreComercial: TcxDBTextEdit [9]
Left = 121
Left = 132
Top = 82
DataBinding.DataField = 'NOMBRE_COMERCIAL'
DataBinding.DataSource = dsContacto
@ -98,7 +98,7 @@ inherited frViewCliente: TfrViewCliente
end
object cbClienteBloqueado: TcxDBCheckBox [10]
Left = 22
Top = 173
Top = 193
Action = actBloqueoCliente
DataBinding.DataField = 'BLOQUEADO'
DataBinding.DataSource = dsContacto
@ -117,12 +117,12 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 6
Width = 163
end
object cbGrupoCliente: TcxDBComboBox [11]
Left = 121
Top = 109
Left = 132
Top = 136
DataBinding.DataField = 'GRUPO_CLIENTE'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
@ -141,12 +141,12 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
TabOrder = 5
Width = 87
end
object eBloqueo: TcxDBTextEdit [12]
Left = 121
Top = 200
Left = 132
Top = 220
DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -160,11 +160,11 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 7
Width = 113
end
object cxDBCheckBox1: TcxDBCheckBox [13]
Left = 376
Left = 373
Top = 325
Caption = 'Permitir el acceso de este cliente a la tienda web'
DataBinding.DataField = 'TIENDA_WEB'
@ -185,82 +185,106 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 19
TabOrder = 20
Width = 249
end
inherited eTlfParticular: TcxDBTextEdit
Left = 471
TabOrder = 13
ExplicitLeft = 471
Left = 468
TabOrder = 14
ExplicitLeft = 468
ExplicitWidth = 157
Width = 157
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 471
TabOrder = 12
ExplicitLeft = 471
Left = 468
TabOrder = 13
ExplicitLeft = 468
ExplicitWidth = 157
Width = 157
end
inherited eTlfMovil: TcxDBTextEdit
Left = 471
TabOrder = 14
ExplicitLeft = 471
Left = 468
TabOrder = 15
ExplicitLeft = 468
ExplicitWidth = 157
Width = 157
end
inherited eFax: TcxDBTextEdit
Left = 471
TabOrder = 15
ExplicitLeft = 471
Left = 468
TabOrder = 16
ExplicitLeft = 468
ExplicitWidth = 157
Width = 157
end
inherited eNombre: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
Left = 132
ExplicitLeft = 132
ExplicitWidth = 135
Width = 135
end
inherited eNIFCIF: TcxDBTextEdit
Left = 282
ExplicitLeft = 282
Left = 259
ExplicitLeft = 259
ExplicitWidth = 58
Width = 58
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 471
Left = 468
Properties.Prefix = 'mailto:'
TabOrder = 16
ExplicitLeft = 471
TabOrder = 17
ExplicitLeft = 468
ExplicitWidth = 128
Width = 128
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 471
Left = 468
Properties.Prefix = 'mailto:'
TabOrder = 17
ExplicitLeft = 471
TabOrder = 18
ExplicitLeft = 468
ExplicitWidth = 128
Width = 128
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 471
TabOrder = 18
ExplicitLeft = 471
Left = 468
TabOrder = 19
ExplicitLeft = 468
ExplicitWidth = 128
Width = 128
end
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
Left = 132
ExplicitLeft = 132
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 257
TabOrder = 7
ExplicitLeft = 121
ExplicitTop = 257
Left = 132
Top = 277
TabOrder = 8
ExplicitLeft = 132
ExplicitTop = 277
ExplicitWidth = 256
Width = 256
end
object eCodigoAsignado: TcxDBTextEdit [25]
Left = 132
Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 227
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal]
@ -273,6 +297,11 @@ inherited frViewCliente: TfrViewCliente
Control = eNombreComercial
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem22: TdxLayoutItem
Caption = 'C'#243'digo de proveedor:'
Control = eCodigoAsignado
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem19: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient

2
Source/Modulos/Contactos/Views/uViewCliente.pas
View File

@ -34,6 +34,8 @@ type
cxDBCheckBox1: TcxDBCheckBox;
dxLayoutControlContactoItem21: TdxLayoutItem;
Label1: TLabel;
dxLayoutControlContactoItem22: TdxLayoutItem;
eCodigoAsignado: TcxDBTextEdit;
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
procedure cbGrupoClientePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);