diff --git a/Build/Build.fbp5 b/Build/Build.fbp5
index 35792193..fcfa9a68 100644
--- a/Build/Build.fbp5
+++ b/Build/Build.fbp5
@@ -227,12 +227,12 @@
1000
False
-
diff --git a/Build/Build.fbv b/Build/Build.fbv
index 411786d2..4421a723 100644
--- a/Build/Build.fbv
+++ b/Build/Build.fbv
@@ -1 +1 @@
-
+
diff --git a/Database/Database.proj b/Database/Database.proj
new file mode 100644
index 00000000..a82ee61c
--- /dev/null
+++ b/Database/Database.proj
@@ -0,0 +1,39 @@
+
+
+ localhost
+ false
+ $(MSBuildProjectDirectory)\Scripts
+ $(MSBuildProjectDirectory)\..\Tools
+ $(MSBuildProjectDirectory)\..\Output
+ $(ToolsFolder)\ISQL\isql.exe
+
+
+
+ $(CodeOutputFolder)\Debug\Database
+
+
+ $(CodeOutputFolder)\Release\Database
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB
index f08e75c5..f214b427 100644
Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ
diff --git a/Database/_db_enviroment.bat b/Database/_db_enviroment.bat
new file mode 100644
index 00000000..e82b9760
--- /dev/null
+++ b/Database/_db_enviroment.bat
@@ -0,0 +1,14 @@
+rem Full path to the firebird isql utility.
+SET ISQL="..\Tools\ISQL\isql.exe"
+
+SET DB_LOGIN=-USER SYSDBA -PASSWORD masterkey
+
+rem DB ALIAS
+SET DB_ALIAS=FACTUGES.FDB
+SET DB_ALIAS_TEST=FACTUGES_TEST.FDB
+
+set DB_SQL_SCRIPT=scripts\factuges.sql
+set DB_SQL_SYSDATA=scripts\factuges.sql
+
+set DB_DEBUG_PATH=..\output\debug\database
+set DB_RELEASE_PATH=..\output\release\database
\ No newline at end of file
diff --git a/Database/db_execute.bat b/Database/db_execute.bat
new file mode 100644
index 00000000..0357fd92
--- /dev/null
+++ b/Database/db_execute.bat
@@ -0,0 +1,67 @@
+@echo off
+call _db_enviroment.bat
+
+if "%1" == "drop" goto drop
+if "%1" == "create" goto create
+if "%1" == "extract" goto extract
+if "%1" == "insert_data" goto insert_data
+if "%1" == "recreate" goto recreate
+goto ayuda
+
+:recreate
+call %0 drop
+IF %ERRORLEVEL% == 1 GOTO ERROR
+call %0 create
+IF %ERRORLEVEL% == 1 GOTO ERROR
+call %0 insert_data
+IF %ERRORLEVEL% == 1 GOTO ERROR
+goto end
+
+:drop
+echo Borrando la base de datos %DB_ALIAS%...
+IF EXIST "%DB_DEBUG_PATH%\%DB_ALIAS%" DEL %DB_DEBUG_PATH%\%DB_ALIAS%
+IF %ERRORLEVEL% == 1 GOTO ERROR
+goto done
+
+:create
+echo Creando la base de datos %DB_ALIAS% en %DB_DEBUG_PATH%\%DB_ALIAS%
+%ISQL% -i %DB_SQL_SCRIPT% %DB_LOGIN% -q
+IF %ERRORLEVEL% == 1 GOTO ERROR
+move %DB_ALIAS% "%DB_DEBUG_PATH%"
+goto done
+
+:extract
+echo Extrayendo %DB_ALIAS% al script SQL %DB_SQL_SCRIPT%...
+IF EXIST %DB_SQL_SCRIPT% DEL %DB_SQL_SCRIPT%
+%ISQL% -a -d %DB_ALIAS% %DB_LOGIN% -o %DB_SQL_SCRIPT% %DB_DEBUG_PATH%\%DB_ALIAS% -b
+IF %ERRORLEVEL% == 1 GOTO ERROR
+goto done
+
+:insert_data
+echo Insertando datos del sistema en %DB_ALIAS%...
+%ISQL% -i %DB_SQL_SYSDATA% %DB_LOGIN% %DB_DEBUG_PATH%\%DB_ALIAS%
+IF %ERRORLEVEL% == 1 GOTO ERROR
+goto done
+
+:error
+ECHO Se ha producido un error!!!!
+goto end
+
+:ayuda
+echo Modo de uso: %0 [create / drop / extract]
+echo ------------
+echo create: crear la base de datos %DB_ALIAS% (la borra antes si ya existe)
+echo drop: borrar la base de datos %DB_ALIAS%
+echo extract: extrae los metadatos de la BD a un fichero SQL (%DB_SQL_SCRIPT%)
+echo insert_data: extrae los metadatos de la BD a un fichero SQL (%DB_SQL_SCRIPT%)
+echo.
+echo recreate: rehacer la BD: borrarla si existe, crearla e insertar los datos del sistema
+echo.
+goto end
+
+:done
+echo Hecho!
+echo.
+goto end
+
+:end
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
new file mode 100644
index 00000000..9cf637ae
--- /dev/null
+++ b/Database/scripts/factuges.sql
@@ -0,0 +1,1434 @@
+Database: FACTUGES.FDB.ORIGINAL, User: SYSDBA
+
+SET SQL DIALECT 3;
+
+CREATE DATABASE 'FACTUGES.FDB' DEFAULT CHARACTER SET ISO8859_1;
+
+/* External Function declarations */
+DECLARE EXTERNAL FUNCTION F_RTFTOTEXT
+CSTRING(254) CHARACTER SET ISO8859_1
+RETURNS CSTRING(254) CHARACTER SET ISO8859_1
+ENTRY_POINT 'RtfToText' MODULE_NAME 'udf_RtfToText.dll';
+
+DECLARE EXTERNAL FUNCTION MOD
+INTEGER, INTEGER
+RETURNS DOUBLE PRECISION BY VALUE
+ENTRY_POINT 'IB_UDF_mod' MODULE_NAME 'ib_udf';
+
+DECLARE EXTERNAL FUNCTION STRLEN
+CSTRING(32767) CHARACTER SET ISO8859_1
+RETURNS INTEGER BY VALUE
+ENTRY_POINT 'IB_UDF_strlen' MODULE_NAME 'ib_udf';
+
+DECLARE EXTERNAL FUNCTION SUBSTR
+CSTRING(255) CHARACTER SET ISO8859_1, SMALLINT, SMALLINT
+RETURNS CSTRING(255) CHARACTER SET ISO8859_1 FREE_IT
+ENTRY_POINT 'IB_UDF_substr' MODULE_NAME 'ib_udf';
+
+
+/* Generators or sequences */
+CREATE GENERATOR GEN_AGENTES_COMISIONES_ID;
+CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID;
+CREATE GENERATOR GEN_ALBARANES_CLI_ID;
+CREATE GENERATOR GEN_ALBARANES_PRO_DETALLES_ID;
+CREATE GENERATOR GEN_ALBARANES_PRO_ID;
+CREATE GENERATOR GEN_ALMACENES_ID;
+CREATE GENERATOR GEN_ARTICULOS_ID;
+CREATE GENERATOR GEN_CATEGORIAS_ID;
+CREATE GENERATOR GEN_CLIENTES_DTOS_PROV_ID;
+CREATE GENERATOR GEN_COMISIONES_LIQUID_ID;
+CREATE GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID;
+CREATE GENERATOR GEN_CONTACTOS_DIR_ID;
+CREATE GENERATOR GEN_CONTACTOS_ID;
+CREATE GENERATOR GEN_EMPRESAS_DATOS_BANCO_ID;
+CREATE GENERATOR GEN_EMPRESAS_ID;
+CREATE GENERATOR GEN_FACTURAS_CLIENTE_ID;
+CREATE GENERATOR GEN_FACTURAS_PROVEEDOR_ID;
+CREATE GENERATOR GEN_FACTURA_CLIENTE_DETALLES_ID;
+CREATE GENERATOR GEN_FACTURA_PROV_DETALLES_ID;
+CREATE GENERATOR GEN_FORMAS_PAGO_ID;
+CREATE GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID;
+CREATE GENERATOR GEN_INFORMES_ID;
+CREATE GENERATOR GEN_MOVIMIENTOS_ID;
+CREATE GENERATOR GEN_PAGOS_CLIENTE_ID;
+CREATE GENERATOR GEN_PAGOS_PROVEEDOR_ID;
+CREATE GENERATOR GEN_PEDIDOS_CLI_DETALLES_ID;
+CREATE GENERATOR GEN_PEDIDOS_CLI_ID;
+CREATE GENERATOR GEN_PEDIDOS_PROV_DETALLES_ID;
+CREATE GENERATOR GEN_PEDIDOS_PROV_ID;
+CREATE GENERATOR GEN_PERFILES_ID;
+CREATE GENERATOR GEN_RECIBOS_CLIENTE_ID;
+CREATE GENERATOR GEN_RECIBOS_PROVEEDOR_ID;
+CREATE GENERATOR GEN_REMESAS_CLIENTE_ID;
+CREATE GENERATOR GEN_REMESAS_PROVEEDOR_ID;
+CREATE GENERATOR GEN_TIENDA_WEB_ID;
+CREATE GENERATOR GEN_TIPOS_IVA_ID;
+CREATE GENERATOR GEN_USUARIOS_ID;
+
+/* Domain definitions */
+CREATE DOMAIN TIPO_BINARIO AS BLOB SUB_TYPE 0 SEGMENT SIZE 80;
+CREATE DOMAIN TIPO_BOOLEANO AS SMALLINT;
+CREATE DOMAIN TIPO_CONCEPTO AS VARCHAR(2000);
+CREATE DOMAIN TIPO_ID AS INTEGER;
+CREATE DOMAIN TIPO_IMPORTE AS NUMERIC(11, 2);
+CREATE DOMAIN TIPO_NOTAS AS BLOB SUB_TYPE TEXT SEGMENT SIZE 80;
+CREATE DOMAIN TIPO_PASSWORD AS VARCHAR(10);
+CREATE DOMAIN TIPO_PERFIL AS VARCHAR(15);
+CREATE DOMAIN TIPO_PORCENTAJE AS FLOAT;
+CREATE DOMAIN TIPO_USUARIO AS VARCHAR(20);
+
+/* Table: AGENTES_COMISIONES, Owner: SYSDBA */
+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,
+CONSTRAINT PK_AGENTES_COMISIONES PRIMARY KEY (ID));
+
+/* Table: ALBARANES_CLIENTE, Owner: SYSDBA */
+CREATE TABLE ALBARANES_CLIENTE (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ ID_CLIENTE TIPO_ID,
+ FECHA_ALBARAN DATE,
+ ID_ALMACEN TIPO_ID,
+ ID_PEDIDO TIPO_ID,
+ ID_FACTURA TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ CALLE VARCHAR(255),
+ CODIGO_POSTAL VARCHAR(10),
+ POBLACION VARCHAR(255),
+ PROVINCIA VARCHAR(255),
+ PERSONA_CONTACTO VARCHAR(255),
+ TELEFONO VARCHAR(25),
+ IMPORTE_NETO TIPO_IMPORTE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_DESCUENTO TIPO_IMPORTE,
+ BASE_IMPONIBLE TIPO_IMPORTE,
+ IVA TIPO_PORCENTAJE,
+ IMPORTE_IVA TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ OBSERVACIONES TIPO_NOTAS,
+ INCIDENCIAS TIPO_NOTAS,
+ INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+ ID_FORMA_PAGO TIPO_ID,
+ FECHA_ENVIO DATE,
+ FECHA_RECEPCION DATE,
+ FECHA_PREVISTA_ENVIO DATE,
+ REFERENCIA_CLIENTE VARCHAR(255) CHARACTER SET ISO8859_1 COLLATE ES_ES,
+CONSTRAINT PK_ALBARAN_CLIENTE PRIMARY KEY (ID));
+
+/* Table: ALBARANES_CLIENTE_DETALLES, Owner: SYSDBA */
+CREATE TABLE ALBARANES_CLIENTE_DETALLES (ID TIPO_ID NOT NULL,
+ ID_ALBARAN TIPO_ID NOT NULL,
+ POSICION INTEGER,
+ TIPO_DETALLE VARCHAR(10),
+ ID_ARTICULO TIPO_ID,
+ CONCEPTO TIPO_CONCEPTO,
+ CANTIDAD INTEGER,
+ IMPORTE_UNIDAD TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ VISIBLE TIPO_BOOLEANO,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+CONSTRAINT PK_ALBARANES_CLIENTE_DETALLES PRIMARY KEY (ID));
+
+/* Table: ALBARANES_PROVEEDOR, Owner: SYSDBA */
+CREATE TABLE ALBARANES_PROVEEDOR (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ ID_PROVEEDOR TIPO_ID,
+ FECHA_ALBARAN DATE,
+ ID_PEDIDO TIPO_ID,
+ ID_FACTURA TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ CALLE VARCHAR(255),
+ CODIGO_POSTAL VARCHAR(10),
+ POBLACION VARCHAR(255),
+ PROVINCIA VARCHAR(255),
+ PERSONA_CONTACTO VARCHAR(255),
+ TELEFONO VARCHAR(25),
+ BASE_IMPONIBLE TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_DESCUENTO TIPO_IMPORTE,
+ IVA TIPO_PORCENTAJE,
+ IMPORTE_IVA TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ OBSERVACIONES TIPO_NOTAS,
+ INCIDENCIAS TIPO_NOTAS,
+ INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+ ID_ALMACEN TIPO_ID,
+ ID_FORMA_PAGO TIPO_ID,
+ IMPORTE_NETO TIPO_IMPORTE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ REFERENCIA_PROVEEDOR VARCHAR(255),
+ REF_FACTURA_PROV VARCHAR(255),
+CONSTRAINT PK_ALBARAN_PROVEEDOR PRIMARY KEY (ID));
+
+/* Table: ALBARANES_PROVEEDOR_DETALLES, Owner: SYSDBA */
+CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (ID TIPO_ID NOT NULL,
+ ID_ALBARAN TIPO_ID NOT NULL,
+ POSICION INTEGER,
+ TIPO_DETALLE VARCHAR(10),
+ ID_ARTICULO TIPO_ID,
+ CONCEPTO TIPO_CONCEPTO,
+ CANTIDAD INTEGER,
+ IMPORTE_UNIDAD TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ VISIBLE TIPO_BOOLEANO,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+CONSTRAINT PK_ALBARANES_PROVEEDOR_DETALLES PRIMARY KEY (ID));
+
+/* Table: ALMACENES, Owner: SYSDBA */
+CREATE TABLE ALMACENES (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,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+CONSTRAINT PK_ALMACENES PRIMARY KEY (ID));
+
+/* Table: ARTICULOS, Owner: SYSDBA */
+CREATE TABLE ARTICULOS (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ DESCRIPCION VARCHAR(255),
+ FAMILIA VARCHAR(255),
+ IMAGEN TIPO_BINARIO,
+ COMISIONABLE TIPO_BOOLEANO,
+ ID_PROVEEDOR TIPO_ID,
+ REFERENCIA_PROV VARCHAR(255),
+ PRECIO_COSTE TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ PRECIO_NETO TIPO_IMPORTE,
+ PRECIO_PORTE TIPO_IMPORTE,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+ INVENTARIABLE TIPO_BOOLEANO,
+ ELIMINADO TIPO_BOOLEANO,
+CONSTRAINT PK_ARTICULOS PRIMARY KEY (ID));
+
+/* Table: CATEGORIAS, Owner: SYSDBA */
+CREATE TABLE CATEGORIAS (ID TIPO_ID NOT NULL,
+ CATEGORIA VARCHAR(255) NOT NULL,
+CONSTRAINT PK_CATEGORIAS PRIMARY KEY (ID));
+
+/* Table: CLIENTES_DATOS, Owner: SYSDBA */
+CREATE TABLE CLIENTES_DATOS (ID_CLIENTE TIPO_ID NOT NULL,
+ ID_AGENTE TIPO_ID,
+ GRUPO_CLIENTE VARCHAR(255),
+ NOMBRE_COMERCIAL VARCHAR(255),
+ VENCIMIENTO_FACTURAS INTEGER,
+ BLOQUEADO TIPO_BOOLEANO DEFAULT 0 NOT NULL,
+ REGIMEN_IVA VARCHAR(255),
+ MOTIVO_BLOQUEO VARCHAR(255),
+ RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
+ ID_TIPO_IVA TIPO_ID,
+ ID_FORMA_PAGO TIPO_ID,
+ TIENDA_WEB TIPO_BOOLEANO,
+ DESCUENTO TIPO_PORCENTAJE,
+CONSTRAINT PK_CLIENTES_DATOS PRIMARY KEY (ID_CLIENTE));
+
+/* Table: CLIENTES_DTOS_PROVEEDORES, Owner: SYSDBA */
+CREATE TABLE CLIENTES_DTOS_PROVEEDORES (ID TIPO_ID NOT NULL,
+ ID_CLIENTE TIPO_ID DEFAULT 0 NOT NULL,
+ ID_PROVEEDOR SMALLINT DEFAULT 0 NOT NULL,
+ DESCUENTO TIPO_PORCENTAJE DEFAULT 0,
+CONSTRAINT PK_CLIENTES_DTOS_PROV PRIMARY KEY (ID));
+
+/* Table: CLIENTES_GRUPOS, Owner: SYSDBA */
+CREATE TABLE CLIENTES_GRUPOS (DESCRIPCION VARCHAR(255));
+
+/* Table: COMISIONES_LIQUIDADAS, Owner: SYSDBA */
+CREATE TABLE COMISIONES_LIQUIDADAS (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ ID_AGENTE TIPO_ID,
+ DESCRIPCION VARCHAR(255),
+ FECHA DATE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+CONSTRAINT PK_COMISIONES_LIQUIDADAS PRIMARY KEY (ID));
+
+/* Table: CONFIGURACION, Owner: SYSDBA */
+CREATE TABLE CONFIGURACION (CODIGO VARCHAR(50) NOT NULL,
+ VALOR VARCHAR(255) NOT NULL,
+ ID_EMPRESA TIPO_ID);
+
+/* Table: CONTACTOS, Owner: SYSDBA */
+CREATE TABLE CONTACTOS (ID TIPO_ID NOT NULL,
+ NIF_CIF VARCHAR(15),
+ NOMBRE VARCHAR(255) NOT NULL,
+ CALLE VARCHAR(255),
+ POBLACION VARCHAR(255),
+ PROVINCIA VARCHAR(255),
+ CODIGO_POSTAL VARCHAR(10),
+ TELEFONO_1 VARCHAR(25),
+ TELEFONO_2 VARCHAR(25),
+ MOVIL_1 VARCHAR(25),
+ MOVIL_2 VARCHAR(25),
+ FAX VARCHAR(25),
+ EMAIL_1 VARCHAR(255),
+ EMAIL_2 VARCHAR(255),
+ PAGINA_WEB VARCHAR(255),
+ NOTAS TIPO_NOTAS,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+ REFERENCIA VARCHAR(255),
+ PERSONA_CONTACTO VARCHAR(255),
+CONSTRAINT PK_CONTACTOS PRIMARY KEY (ID));
+
+/* Table: CONTACTOS_CATEGORIAS, Owner: SYSDBA */
+CREATE TABLE CONTACTOS_CATEGORIAS (ID_CONTACTO TIPO_ID NOT NULL,
+ ID_CATEGORIA TIPO_ID NOT NULL,
+CONSTRAINT PK_CONTACTOS_CATEGORIAS PRIMARY KEY (ID_CONTACTO, ID_CATEGORIA));
+
+/* Table: CONTACTOS_DATOS_BANCO, Owner: SYSDBA */
+CREATE TABLE CONTACTOS_DATOS_BANCO (ID TIPO_ID NOT NULL,
+ ID_CONTACTO TIPO_ID NOT NULL,
+ TITULAR VARCHAR(255),
+ ENTIDAD VARCHAR(15),
+ SUCURSAL VARCHAR(15),
+ DC VARCHAR(15),
+ CUENTA VARCHAR(15),
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+CONSTRAINT PK_CONTACTOS_DATOS_BANCO PRIMARY KEY (ID));
+
+/* Table: CONTACTOS_DIRECCIONES, Owner: SYSDBA */
+CREATE TABLE CONTACTOS_DIRECCIONES (ID TIPO_ID NOT NULL,
+ ID_CONTACTO TIPO_ID NOT NULL,
+ CALLE VARCHAR(255),
+ POBLACION VARCHAR(255),
+ PROVINCIA VARCHAR(255),
+ CODIGO_POSTAL VARCHAR(10),
+ PERSONA_CONTACTO VARCHAR(255),
+ NOMBRE VARCHAR(255),
+ TELEFONO VARCHAR(25),
+ MOVIL VARCHAR(25),
+ FAX VARCHAR(25),
+ EMAIL VARCHAR(255),
+ NOTAS TIPO_NOTAS,
+ PORTE TIPO_IMPORTE,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+CONSTRAINT PK_CONTACTOS_DIR PRIMARY KEY (ID));
+
+/* Table: EMPLEADOS_DATOS, Owner: SYSDBA */
+CREATE TABLE EMPLEADOS_DATOS (ID_EMPLEADO TIPO_ID NOT NULL,
+ FECHA_NACIMIENTO DATE,
+ CATEGORIA VARCHAR(255),
+ FECHA_ALTA_EMPRESA DATE,
+ FORMACION_BASE TIPO_NOTAS,
+ FORMACION_COMPLE TIPO_NOTAS,
+ FORMACION_RECIBIDA TIPO_NOTAS,
+ EXPERIENCIA TIPO_NOTAS,
+CONSTRAINT PK_EMPLEADOS_DATOS PRIMARY KEY (ID_EMPLEADO));
+
+/* Table: EMPLEADOS_GRUPOS, Owner: SYSDBA */
+CREATE TABLE EMPLEADOS_GRUPOS (DESCRIPCION VARCHAR(255));
+
+/* Table: EMPRESAS, Owner: SYSDBA */
+CREATE TABLE EMPRESAS (ID TIPO_ID NOT NULL,
+ NIF_CIF VARCHAR(15),
+ NOMBRE VARCHAR(255),
+ RAZON_SOCIAL VARCHAR(255),
+ CALLE VARCHAR(255),
+ POBLACION VARCHAR(255),
+ PROVINCIA VARCHAR(255),
+ CODIGO_POSTAL VARCHAR(10),
+ TELEFONO_1 VARCHAR(25),
+ TELEFONO_2 VARCHAR(25),
+ MOVIL_1 VARCHAR(25),
+ MOVIL_2 VARCHAR(25),
+ FAX VARCHAR(25),
+ EMAIL_1 VARCHAR(255),
+ EMAIL_2 VARCHAR(255),
+ PAGINA_WEB VARCHAR(255),
+ NOTAS TIPO_NOTAS,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+ LOGOTIPO TIPO_BINARIO,
+ REGISTRO_MERCANTIL VARCHAR(255),
+ IVA TIPO_PORCENTAJE,
+CONSTRAINT PK_EMPRESAS PRIMARY KEY (ID));
+
+/* Table: EMPRESAS_CONTACTOS, Owner: SYSDBA */
+CREATE TABLE EMPRESAS_CONTACTOS (ID_EMPRESA TIPO_ID NOT NULL,
+ ID_CONTACTO TIPO_ID NOT NULL,
+CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY (ID_EMPRESA, ID_CONTACTO));
+
+/* Table: EMPRESAS_DATOS_BANCO, Owner: SYSDBA */
+CREATE TABLE EMPRESAS_DATOS_BANCO (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID NOT NULL,
+ NOMBRE VARCHAR(255),
+ ENTIDAD VARCHAR(15),
+ SUCURSAL VARCHAR(15),
+ DC VARCHAR(15),
+ CUENTA VARCHAR(15),
+ SUFIJO_N19 VARCHAR(3),
+ SUFIJO_N58 VARCHAR(3),
+CONSTRAINT PK_EMPRESAS_DATOS_BANCO PRIMARY KEY (ID));
+
+/* Table: EMPRESAS_USUARIOS, Owner: SYSDBA */
+CREATE TABLE EMPRESAS_USUARIOS (ID_EMPRESA TIPO_ID NOT NULL,
+ ID_USUARIO TIPO_ID NOT NULL,
+CONSTRAINT PK_EMPRESAS_USUARIOS PRIMARY KEY (ID_EMPRESA, ID_USUARIO));
+
+/* Table: FACTURAS_CLIENTE, Owner: SYSDBA */
+CREATE TABLE FACTURAS_CLIENTE (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ FECHA_FACTURA DATE,
+ BASE_IMPONIBLE TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_DESCUENTO TIPO_IMPORTE,
+ IVA TIPO_PORCENTAJE,
+ IMPORTE_IVA TIPO_IMPORTE,
+ RE TIPO_PORCENTAJE,
+ IMPORTE_RE TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ OBSERVACIONES TIPO_NOTAS,
+ ID_CLIENTE TIPO_ID,
+ NIF_CIF VARCHAR(15),
+ NOMBRE VARCHAR(255),
+ CALLE VARCHAR(255),
+ POBLACION VARCHAR(255),
+ PROVINCIA VARCHAR(255),
+ CODIGO_POSTAL VARCHAR(10),
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+ ID_FORMA_PAGO TIPO_ID,
+ IMPORTE_NETO TIPO_IMPORTE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ ID_TIPO_IVA TIPO_ID,
+ RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
+ ID_COMISION_LIQUIDADA TIPO_ID,
+CONSTRAINT PK_FACTURAS_CLIENTE PRIMARY KEY (ID));
+
+/* Table: FACTURAS_CLIENTE_DETALLES, Owner: SYSDBA */
+CREATE TABLE FACTURAS_CLIENTE_DETALLES (ID TIPO_ID NOT NULL,
+ ID_FACTURA TIPO_ID NOT NULL,
+ POSICION INTEGER,
+ TIPO_DETALLE VARCHAR(10),
+ ID_ARTICULO TIPO_ID,
+ CONCEPTO TIPO_CONCEPTO,
+ CANTIDAD INTEGER,
+ IMPORTE_UNIDAD TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ VISIBLE TIPO_BOOLEANO,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+CONSTRAINT PK_FACTURAS_CLIENTE_DETALLES PRIMARY KEY (ID));
+
+/* Table: FACTURAS_PROVEEDOR, Owner: SYSDBA */
+CREATE TABLE FACTURAS_PROVEEDOR (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ REFERENCIA_PROVEEDOR VARCHAR(255),
+ FECHA_FACTURA DATE,
+ BASE_IMPONIBLE TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_DESCUENTO TIPO_IMPORTE,
+ IVA TIPO_PORCENTAJE,
+ IMPORTE_IVA TIPO_IMPORTE,
+ RE TIPO_PORCENTAJE,
+ IMPORTE_RE TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ OBSERVACIONES TIPO_NOTAS,
+ ID_PROVEEDOR TIPO_ID,
+ NIF_CIF VARCHAR(15),
+ NOMBRE VARCHAR(255),
+ CALLE VARCHAR(255),
+ POBLACION VARCHAR(255),
+ PROVINCIA VARCHAR(255),
+ CODIGO_POSTAL VARCHAR(10),
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+ ID_FORMA_PAGO TIPO_ID,
+ IMPORTE_NETO TIPO_IMPORTE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ ID_TIPO_IVA TIPO_ID,
+ RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
+CONSTRAINT PK_FACTURAS_PROVEEDOR PRIMARY KEY (ID));
+
+/* Table: FACTURAS_PROVEEDOR_DETALLES, Owner: SYSDBA */
+CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (ID TIPO_ID NOT NULL,
+ ID_FACTURA TIPO_ID NOT NULL,
+ POSICION INTEGER,
+ TIPO_DETALLE VARCHAR(10),
+ ID_ARTICULO TIPO_ID,
+ CONCEPTO TIPO_CONCEPTO,
+ CANTIDAD INTEGER,
+ IMPORTE_UNIDAD TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ VISIBLE TIPO_BOOLEANO,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+CONSTRAINT PK_FACTURAS_PROVEEDOR_DETALLES PRIMARY KEY (ID));
+
+/* Table: FAMILIAS, Owner: SYSDBA */
+CREATE TABLE FAMILIAS (DESCRIPCION VARCHAR(255));
+
+/* Table: FORMAS_PAGO, Owner: SYSDBA */
+CREATE TABLE FORMAS_PAGO (ID TIPO_ID NOT NULL,
+ REFERENCIA VARCHAR(255),
+ DESCRIPCION VARCHAR(255),
+ TITULAR VARCHAR(255),
+ ENTIDAD VARCHAR(15),
+ SUCURSAL VARCHAR(15),
+ DC VARCHAR(15),
+ CUENTA VARCHAR(15),
+PRIMARY KEY (ID));
+
+/* Table: FORMAS_PAGO_PLAZOS, Owner: SYSDBA */
+CREATE TABLE FORMAS_PAGO_PLAZOS (ID TIPO_ID NOT NULL,
+ ID_FORMA_PAGO TIPO_ID NOT NULL,
+ NUM_DIAS SMALLINT,
+ PORCENTAJE TIPO_PORCENTAJE,
+PRIMARY KEY (ID));
+
+/* Table: INFORMES, Owner: SYSDBA */
+CREATE TABLE INFORMES (ID SMALLINT NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ CATEGORIA VARCHAR(30),
+ CONTROLLER VARCHAR(255),
+ ICONO SMALLINT,
+ NOMBRE VARCHAR(50),
+ DESCRIPCION VARCHAR(255),
+ ORDEN SMALLINT,
+ MODIFICABLE CHAR(1),
+ VISTA BLOB SUB_TYPE BLR SEGMENT SIZE 4096,
+CONSTRAINT PK_INFORMES PRIMARY KEY (ID));
+
+/* Table: MOVIMIENTOS, Owner: SYSDBA */
+CREATE TABLE MOVIMIENTOS (ID TIPO_ID NOT NULL,
+ ID_ALMACEN TIPO_ID,
+ ID_ARTICULO TIPO_ID,
+ FECHA_MOVIMIENTO DATE,
+ TIPO VARCHAR(1),
+ CANTIDAD INTEGER,
+ CAUSA TIPO_CONCEPTO,
+CONSTRAINT PK_MOVIMIENTOS PRIMARY KEY (ID));
+
+/* Table: PAGOS_CLIENTE, Owner: SYSDBA */
+CREATE TABLE PAGOS_CLIENTE (ID TIPO_ID NOT NULL,
+ ID_RECIBO TIPO_ID,
+ TIPO VARCHAR(255),
+ FECHA_PAGO DATE,
+ TITULAR VARCHAR(255),
+ ENTIDAD VARCHAR(15),
+ SUCURSAL VARCHAR(15),
+ DC VARCHAR(15),
+ CUENTA VARCHAR(15),
+ FECHA_ALTA DATE,
+ FECHA_MODIFICACION DATE,
+ USUARIO TIPO_USUARIO,
+CONSTRAINT PK_PAGOS_CLIENTE PRIMARY KEY (ID));
+
+/* Table: PAGOS_PROVEEDOR, Owner: SYSDBA */
+CREATE TABLE PAGOS_PROVEEDOR (ID TIPO_ID NOT NULL,
+ ID_RECIBO TIPO_ID,
+ TIPO VARCHAR(255),
+ FECHA_PAGO DATE,
+ TITULAR VARCHAR(255),
+ ENTIDAD VARCHAR(15),
+ SUCURSAL VARCHAR(15),
+ DC VARCHAR(15),
+ CUENTA VARCHAR(15),
+ FECHA_ALTA DATE,
+ FECHA_MODIFICACION DATE,
+ USUARIO TIPO_USUARIO,
+CONSTRAINT PK_PAGOS_PROVEEDOR PRIMARY KEY (ID));
+
+/* Table: PEDIDOS_CLIENTE, Owner: SYSDBA */
+CREATE TABLE PEDIDOS_CLIENTE (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ ID_CLIENTE TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ FECHA_PEDIDO DATE,
+ CALLE VARCHAR(255),
+ CODIGO_POSTAL VARCHAR(10),
+ POBLACION VARCHAR(255),
+ PROVINCIA VARCHAR(255),
+ PERSONA_CONTACTO VARCHAR(255),
+ TELEFONO VARCHAR(25),
+ OBSERVACIONES TIPO_NOTAS,
+ INCIDENCIAS TIPO_NOTAS,
+ INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+ IMPORTE_NETO TIPO_IMPORTE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_DESCUENTO TIPO_IMPORTE,
+ BASE_IMPONIBLE TIPO_IMPORTE,
+ IVA TIPO_PORCENTAJE,
+ IMPORTE_IVA TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ ID_FORMA_PAGO TIPO_ID,
+ REF_TIENDA_WEB INTEGER,
+ FECHA_PREVISTA_ENVIO DATE,
+ REFERENCIA_CLIENTE VARCHAR(255) CHARACTER SET ISO8859_1 COLLATE ES_ES,
+CONSTRAINT PK_PEDIDOS_CLIENTE PRIMARY KEY (ID));
+
+/* Table: PEDIDOS_CLIENTE_DETALLES, Owner: SYSDBA */
+CREATE TABLE PEDIDOS_CLIENTE_DETALLES (ID TIPO_ID NOT NULL,
+ ID_PEDIDO TIPO_ID NOT NULL,
+ POSICION INTEGER,
+ TIPO_DETALLE VARCHAR(10),
+ ID_ARTICULO TIPO_ID,
+ CONCEPTO TIPO_CONCEPTO,
+ CANTIDAD INTEGER,
+ IMPORTE_UNIDAD TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ VISIBLE TIPO_BOOLEANO,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+CONSTRAINT PK_PEDIDOS_CLIENTE_DETALLES PRIMARY KEY (ID));
+
+/* Table: PEDIDOS_PROVEEDOR, Owner: SYSDBA */
+CREATE TABLE PEDIDOS_PROVEEDOR (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ ID_PROVEEDOR TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ FECHA_PEDIDO DATE,
+ FECHA_CONFIRMACION DATE,
+ FECHA_ENTREGA DATE,
+ ID_ALMACEN TIPO_ID,
+ OBSERVACIONES TIPO_NOTAS,
+ INCIDENCIAS TIPO_NOTAS,
+ INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+ USUARIO TIPO_USUARIO,
+ CALLE VARCHAR(255),
+ CODIGO_POSTAL VARCHAR(10),
+ POBLACION VARCHAR(255),
+ PROVINCIA VARCHAR(255),
+ PERSONA_CONTACTO VARCHAR(255),
+ TELEFONO VARCHAR(25),
+ ID_PEDIDO_CLIENTE TIPO_ID,
+ IMPORTE_NETO TIPO_IMPORTE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_DESCUENTO TIPO_IMPORTE,
+ BASE_IMPONIBLE TIPO_IMPORTE,
+ IVA TIPO_PORCENTAJE,
+ IMPORTE_IVA TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ ID_FORMA_PAGO TIPO_ID,
+ FECHA_ENVIO DATE,
+CONSTRAINT PK_PEDIDOS_PROVEEDOR PRIMARY KEY (ID));
+
+/* Table: PEDIDOS_PROVEEDOR_DETALLES, Owner: SYSDBA */
+CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (ID TIPO_ID NOT NULL,
+ ID_PEDIDO TIPO_ID NOT NULL,
+ POSICION INTEGER,
+ TIPO_DETALLE VARCHAR(10),
+ ID_ARTICULO TIPO_ID,
+ CONCEPTO TIPO_CONCEPTO,
+ CANTIDAD INTEGER,
+ IMPORTE_UNIDAD TIPO_IMPORTE,
+ DESCUENTO TIPO_PORCENTAJE,
+ IMPORTE_PORTE TIPO_IMPORTE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ VISIBLE TIPO_BOOLEANO,
+ FECHA_ALTA TIMESTAMP,
+ FECHA_MODIFICACION TIMESTAMP,
+CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETALLES PRIMARY KEY (ID));
+
+/* Table: PERFILES, Owner: SYSDBA */
+CREATE TABLE PERFILES (ID TIPO_ID NOT NULL,
+ PERFIL TIPO_PERFIL NOT NULL,
+CONSTRAINT PK_PERFILES PRIMARY KEY (ID));
+
+/* Table: PERFILES_USUARIOS, Owner: SYSDBA */
+CREATE TABLE PERFILES_USUARIOS (ID_PERFIL TIPO_ID NOT NULL,
+ ID_USUARIO TIPO_ID NOT NULL,
+CONSTRAINT PK_PERFILES_USUARIOS PRIMARY KEY (ID_PERFIL, ID_USUARIO));
+
+/* Table: PROVEEDORES_DATOS, Owner: SYSDBA */
+CREATE TABLE PROVEEDORES_DATOS (ID_PROVEEDOR TIPO_ID NOT NULL,
+ DESCUENTO TIPO_PORCENTAJE,
+ REGIMEN_IVA VARCHAR(255),
+ ID_TIPO_IVA TIPO_ID,
+ ID_FORMA_PAGO TIPO_ID,
+ TIENDA_WEB TIPO_BOOLEANO,
+ GRUPO_PROVEEDOR VARCHAR(255),
+ DESCRIPCION_PROVEEDOR VARCHAR(255),
+ CODIGO_ASIGNADO VARCHAR(255),
+ CERTIFICACION VARCHAR(255),
+ HOMOLOGADO SMALLINT,
+CONSTRAINT PK_PROVEEDORES_DATOS PRIMARY KEY (ID_PROVEEDOR));
+
+/* Table: PROVEEDORES_GRUPOS, Owner: SYSDBA */
+CREATE TABLE PROVEEDORES_GRUPOS (DESCRIPCION VARCHAR(255));
+
+/* Table: RECIBOS_CLIENTE, Owner: SYSDBA */
+CREATE TABLE RECIBOS_CLIENTE (ID TIPO_ID NOT NULL,
+ ID_FACTURA TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ FECHA_EMISION DATE,
+ FECHA_VENCIMIENTO DATE,
+ DESCRIPCION VARCHAR(255),
+ OBSERVACIONES VARCHAR(255),
+ IMPORTE TIPO_IMPORTE,
+ OTROS_GASTOS TIPO_IMPORTE,
+ FECHA_ALTA DATE,
+ FECHA_MODIFICACION DATE,
+ USUARIO TIPO_USUARIO,
+ ID_REMESA TIPO_ID,
+ ID_RECIBO_COMPENSADO INTEGER,
+CONSTRAINT PK_RECIBOS_CLIENTE PRIMARY KEY (ID));
+
+/* Table: RECIBOS_PROVEEDOR, Owner: SYSDBA */
+CREATE TABLE RECIBOS_PROVEEDOR (ID TIPO_ID NOT NULL,
+ ID_FACTURA TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ REFERENCIA_PROVEEDOR VARCHAR(255),
+ FECHA_EMISION DATE,
+ FECHA_VENCIMIENTO DATE,
+ DESCRIPCION VARCHAR(255),
+ OBSERVACIONES VARCHAR(255),
+ IMPORTE TIPO_IMPORTE,
+ OTROS_GASTOS TIPO_IMPORTE,
+ FECHA_ALTA DATE,
+ FECHA_MODIFICACION DATE,
+ USUARIO TIPO_USUARIO,
+ ID_REMESA TIPO_ID,
+ ID_RECIBO_COMPENSADO INTEGER,
+CONSTRAINT PK_RECIBOS_PROVEEDOR PRIMARY KEY (ID));
+
+/* Table: REFERENCIAS, Owner: SYSDBA */
+CREATE TABLE REFERENCIAS (CODIGO VARCHAR(50) NOT NULL,
+ VALOR VARCHAR(255) NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ DESCRIPCION VARCHAR(255) CHARACTER SET ISO8859_1 COLLATE ES_ES);
+
+/* Table: REMESAS_CLIENTE, Owner: SYSDBA */
+CREATE TABLE REMESAS_CLIENTE (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ FECHA_REMESA DATE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ DESCRIPCION VARCHAR(255),
+ FECHA_ALTA DATE,
+ FECHA_MODIFICACION DATE,
+ USUARIO TIPO_USUARIO,
+ ID_DATOS_BANCO TIPO_ID,
+ TIPO VARCHAR(40),
+CONSTRAINT PK_REMESAS_CLIENTE PRIMARY KEY (ID));
+
+/* Table: REMESAS_PROVEEDOR, Owner: SYSDBA */
+CREATE TABLE REMESAS_PROVEEDOR (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID,
+ REFERENCIA VARCHAR(255),
+ FECHA_REMESA DATE,
+ IMPORTE_TOTAL TIPO_IMPORTE,
+ DESCRIPCION VARCHAR(255),
+ FECHA_ALTA DATE,
+ FECHA_MODIFICACION DATE,
+ USUARIO TIPO_USUARIO,
+ ID_DATOS_BANCO TIPO_ID,
+ TIPO VARCHAR(40),
+CONSTRAINT PK_REMESAS_PROVEEDOR PRIMARY KEY (ID));
+
+/* Table: TIENDA_WEB, Owner: SYSDBA */
+CREATE TABLE TIENDA_WEB (ID TIPO_ID NOT NULL,
+ ID_EMPRESA TIPO_ID NOT NULL,
+ TIENDA_ACTIVA TIPO_BOOLEANO DEFAULT 0 NOT NULL,
+ ULTIMA_ACTUALIZACION TIMESTAMP,
+ BDSERVER VARCHAR(255),
+ BDPORT VARCHAR(20),
+ BDNAME VARCHAR(255),
+ BDUSER VARCHAR(255),
+ BDPASS VARCHAR(255),
+CONSTRAINT PK_TIENDA_WEB PRIMARY KEY (ID));
+
+/* Table: TIPOS_IVA, Owner: SYSDBA */
+CREATE TABLE TIPOS_IVA (ID TIPO_ID NOT NULL,
+ REFERENCIA VARCHAR(255),
+ DESCRIPCION VARCHAR(255),
+ IVA TIPO_PORCENTAJE,
+ RE TIPO_PORCENTAJE,
+PRIMARY KEY (ID));
+
+/* Table: USUARIOS, Owner: SYSDBA */
+CREATE TABLE USUARIOS (ID TIPO_ID NOT NULL,
+ USUARIO TIPO_USUARIO NOT NULL,
+ PASS TIPO_PASSWORD,
+ ACTIVO TIPO_BOOLEANO,
+ LAST_LOGIN TIMESTAMP,
+CONSTRAINT PK_USUARIOS PRIMARY KEY (ID));
+
+/* Index definitions for all user tables */
+CREATE INDEX IDX_AGENTES_COMISIONES1 ON AGENTES_COMISIONES (ID_AGENTE);
+CREATE INDEX IDX_AGENTES_COMISIONES2 ON AGENTES_COMISIONES (ID_PROVEEDOR);
+CREATE INDEX IDX_ALBARANES_CLIENTE ON ALBARANES_CLIENTE (ID_FORMA_PAGO);
+CREATE INDEX IDX_ALBARANES_CLIENTE_DETALLES ON ALBARANES_CLIENTE_DETALLES (ID_ARTICULO);
+CREATE INDEX IDX_ALBARANES_CLIENTE_DETALLES1 ON ALBARANES_CLIENTE_DETALLES (ID_ALBARAN);
+CREATE INDEX IDX_ALBARANES_PROVEEDOR ON ALBARANES_PROVEEDOR (ID_ALMACEN);
+CREATE INDEX IDX_ALBARANES_PROVEEDOR1 ON ALBARANES_PROVEEDOR (ID_FORMA_PAGO);
+CREATE INDEX IDX_ALBARANES_PROV_DETALLES ON ALBARANES_PROVEEDOR_DETALLES (ID_ALBARAN);
+CREATE INDEX IDX_ALBARANES_PROV_DETALLES1 ON ALBARANES_PROVEEDOR_DETALLES (ID_ARTICULO);
+CREATE INDEX IDX_ARTICULOS ON ARTICULOS (ID_PROVEEDOR);
+CREATE INDEX IDX_CLIENTES_DATOS ON CLIENTES_DATOS (ID_TIPO_IVA);
+CREATE INDEX IDX_CLIENTES_DATOS1 ON CLIENTES_DATOS (ID_FORMA_PAGO);
+CREATE INDEX IDX_CLIENTES_DATOS_ID_AGENTE ON CLIENTES_DATOS (ID_AGENTE);
+CREATE INDEX IDX_CLIENTES_DTOS_PROV_ID_CLI ON CLIENTES_DTOS_PROVEEDORES (ID_CLIENTE);
+CREATE INDEX IDX_CLIENTES_DTOS_PROV_ID_PROV ON CLIENTES_DTOS_PROVEEDORES (ID_PROVEEDOR);
+CREATE INDEX IDX_COMISIONES_LIQUIDADAS ON COMISIONES_LIQUIDADAS (ID_EMPRESA);
+CREATE INDEX IDX_CONFIGURACION ON CONFIGURACION (ID_EMPRESA);
+CREATE INDEX IDX_CONTACTOS_CATEGORIAS ON CONTACTOS_CATEGORIAS (ID_CONTACTO);
+CREATE INDEX IDX_CONTACTOS_CATEGORIAS1 ON CONTACTOS_CATEGORIAS (ID_CATEGORIA);
+CREATE INDEX IDX_CONTACTOS_DATOS_BANCO ON CONTACTOS_DATOS_BANCO (ID_CONTACTO);
+CREATE INDEX IDX_CONTACTOS_DIR_ID_CONTACTO ON CONTACTOS_DIRECCIONES (ID_CONTACTO);
+CREATE INDEX IDX_FACTURAS_CLIENTE ON FACTURAS_CLIENTE (ID_FORMA_PAGO);
+CREATE INDEX IDX_FACTURAS_CLIENTE1 ON FACTURAS_CLIENTE (ID_TIPO_IVA);
+CREATE INDEX IDX_FACTURAS_CLIENTE2 ON FACTURAS_CLIENTE (ID_COMISION_LIQUIDADA);
+CREATE INDEX IDX_FACTURAS_CLIENTE3 ON FACTURAS_CLIENTE (ID_CLIENTE);
+CREATE INDEX IDX_FACTURAS_CLIENTE_DETALLES1 ON FACTURAS_CLIENTE_DETALLES (ID_FACTURA);
+CREATE INDEX IDX_FACTURAS_CLIENTE_DETALLES2 ON FACTURAS_CLIENTE_DETALLES (ID_ARTICULO);
+CREATE INDEX IDX_FACTURAS_PROVEEDOR ON FACTURAS_PROVEEDOR (ID_PROVEEDOR);
+CREATE INDEX IDX_FACTURAS_PROVEEDOR1 ON FACTURAS_PROVEEDOR (ID_FORMA_PAGO);
+CREATE INDEX IDX_FACTURAS_PROVEEDOR2 ON FACTURAS_PROVEEDOR (ID_TIPO_IVA);
+CREATE INDEX IDX_FACTURAS_PROVEEDOR_DETALLES ON FACTURAS_PROVEEDOR_DETALLES (ID_ARTICULO);
+CREATE INDEX FORMAS_PAGO_PLAZOS_IDX1 ON FORMAS_PAGO_PLAZOS (ID_FORMA_PAGO);
+CREATE INDEX IDX_INFORMES ON INFORMES (ID_EMPRESA);
+CREATE INDEX MOVIMIENTOS_IDX1 ON MOVIMIENTOS (TIPO);
+CREATE INDEX IDX_PEDIDOS_CLIENTE ON PEDIDOS_CLIENTE (ID_FORMA_PAGO);
+CREATE INDEX IDX_PEDIDOS_CLIENTE_DETALLES ON PEDIDOS_CLIENTE_DETALLES (ID_PEDIDO);
+CREATE INDEX IDX_PEDIDOS_CLIENTE_DETALLES1 ON PEDIDOS_CLIENTE_DETALLES (ID_ARTICULO);
+CREATE INDEX IDX_PEDIDOS_PROVEEDOR ON PEDIDOS_PROVEEDOR (ID_PEDIDO_CLIENTE);
+CREATE INDEX IDX_PEDIDOS_PROVEEDOR1 ON PEDIDOS_PROVEEDOR (ID_ALMACEN);
+CREATE INDEX IDX_PEDIDOS_PROVEEDOR2 ON PEDIDOS_PROVEEDOR (ID_FORMA_PAGO);
+CREATE INDEX IDX_PEDIDOS_PROVEEDOR_DETALLES ON PEDIDOS_PROVEEDOR_DETALLES (ID_ARTICULO);
+CREATE INDEX IDX_PROVEEDORES_DATOS ON PROVEEDORES_DATOS (ID_TIPO_IVA);
+CREATE INDEX IDX_PROVEEDORES_DATOS1 ON PROVEEDORES_DATOS (ID_FORMA_PAGO);
+CREATE INDEX IDX_RECIBOS_CLIENTE ON RECIBOS_CLIENTE (ID_RECIBO_COMPENSADO);
+CREATE INDEX IDX_RECIBOS_PROVEEDOR ON RECIBOS_PROVEEDOR (ID_RECIBO_COMPENSADO);
+CREATE INDEX IDX_REFERENCIAS ON REFERENCIAS (ID_EMPRESA);
+CREATE INDEX IDX_REMESAS_CLIENTE ON REMESAS_CLIENTE (ID_DATOS_BANCO);
+CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO);
+
+ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE1 FOREIGN KEY (ID_CLIENTE) REFERENCES CONTACTOS (ID) ON UPDATE NO ACTION ON DELETE NO ACTION;
+
+ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE2 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON UPDATE NO ACTION ON DELETE NO ACTION;
+
+ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE3 FOREIGN KEY (ID_PEDIDO) REFERENCES PEDIDOS_CLIENTE (ID) ON UPDATE NO ACTION ON DELETE NO ACTION;
+
+ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE4 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON UPDATE SET NULL ON DELETE SET NULL;
+
+ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARANES_PROVEEDOR3 FOREIGN KEY (ID_PEDIDO) REFERENCES PEDIDOS_PROVEEDOR (ID) ON UPDATE CASCADE ON DELETE CASCADE;
+
+ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARANES_PROVEEDOR4 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON UPDATE CASCADE ON DELETE SET NULL;
+
+ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARAN_PROVEEDOR1 FOREIGN KEY (ID_PROVEEDOR) REFERENCES CONTACTOS (ID) ON UPDATE NO ACTION ON DELETE NO ACTION;
+
+ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARAN_PROVEEDOR2 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON UPDATE NO ACTION ON DELETE NO ACTION;
+
+ALTER TABLE ALMACENES ADD CONSTRAINT FK_ALMACENES_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON UPDATE NO ACTION ON DELETE NO ACTION;
+
+ALTER TABLE ARTICULOS ADD CONSTRAINT FK_ARTICULOS_EMPRESA FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON UPDATE NO ACTION ON DELETE NO ACTION;
+
+ALTER TABLE COMISIONES_LIQUIDADAS ADD CONSTRAINT FK_COMISIONES_LIQUIDADAS FOREIGN KEY (ID_AGENTE) REFERENCES CONTACTOS (ID);
+
+ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT FK_EMPRESAS_CONTACTOS FOREIGN KEY (ID_CONTACTO) REFERENCES CONTACTOS (ID) ON UPDATE CASCADE ON DELETE CASCADE;
+
+ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT FK_EMPRESAS_DATOS_BANCO FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON UPDATE CASCADE ON DELETE CASCADE;
+
+ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT FK_FACTURAS_CLIENTE_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON UPDATE NO ACTION ON DELETE NO ACTION;
+
+ALTER TABLE FACTURAS_CLIENTE_DETALLES ADD CONSTRAINT FK_FACTURAS_CLI_DET_ID_FACTURA FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON UPDATE CASCADE ON DELETE CASCADE;
+
+ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON UPDATE NO ACTION ON DELETE NO ACTION;
+
+ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT FK_FACTURAS_PRO_DET_ID_FACTURA FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON UPDATE CASCADE ON DELETE CASCADE;
+
+ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS FOREIGN KEY (ID_ARTICULO) REFERENCES ARTICULOS (ID);
+
+ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS2 FOREIGN KEY (ID_ALMACEN) REFERENCES ALMACENES (ID);
+
+ALTER TABLE PAGOS_CLIENTE ADD CONSTRAINT FK_PAGOS_CLIENTE FOREIGN KEY (ID_RECIBO) REFERENCES RECIBOS_CLIENTE (ID);
+
+ALTER TABLE PAGOS_PROVEEDOR ADD CONSTRAINT FK_PAGOS_PROVEEDOR FOREIGN KEY (ID_RECIBO) REFERENCES RECIBOS_PROVEEDOR (ID);
+
+ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT FK_PEDIDOS_CLIENTE FOREIGN KEY (ID_CLIENTE) REFERENCES CONTACTOS (ID);
+
+ALTER TABLE PEDIDOS_CLIENTE ADD CONSTRAINT FK_PEDIDOS_CLIENTE_ID_EMPRESA FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID);
+
+ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT FK_PEDIDOS_PROVEEDOR FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID);
+
+ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT FK_PEDIDOS_PROVEEDOR2 FOREIGN KEY (ID_PROVEEDOR) REFERENCES CONTACTOS (ID);
+
+ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT FK_PEDIDOS_PROV_DET_ID_PEDIDO FOREIGN KEY (ID_PEDIDO) REFERENCES PEDIDOS_PROVEEDOR (ID) ON UPDATE CASCADE ON DELETE CASCADE;
+
+ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT FK_RECIBOS_CLIENTE FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON UPDATE CASCADE ON DELETE CASCADE;
+
+ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT FK_RECIBOS_CLIENTE2 FOREIGN KEY (ID_REMESA) REFERENCES REMESAS_CLIENTE (ID) ON UPDATE SET NULL ON DELETE SET NULL;
+
+ALTER TABLE RECIBOS_PROVEEDOR ADD CONSTRAINT FK_RECIBOS_PROVEEDOR FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON UPDATE CASCADE ON DELETE CASCADE;
+
+ALTER TABLE RECIBOS_PROVEEDOR ADD CONSTRAINT FK_RECIBOS_PROVEEDOR1 FOREIGN KEY (ID_REMESA) REFERENCES REMESAS_PROVEEDOR (ID) ON UPDATE SET NULL ON DELETE SET NULL;
+
+ALTER TABLE REMESAS_CLIENTE ADD CONSTRAINT FK_REMESAS_CLIENTE FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID);
+
+ALTER TABLE REMESAS_PROVEEDOR ADD CONSTRAINT FK_REMESAS_PROVEEDOR FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID);
+
+ALTER TABLE TIENDA_WEB ADD CONSTRAINT FK_EMPRESAS_TIENDA_WEB FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON UPDATE CASCADE ON DELETE CASCADE;
+
+/* 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);
+
+/* 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;
+
+/* 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
+ INNER 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
+INNER 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 ^
+
+CREATE TRIGGER TRI_UPDATE_ALBARANES_CLIENTE FOR ALBARANES_CLIENTE
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_ALBARANES_CLI_DET FOR ALBARANES_CLIENTE_DETALLES
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_ALBARANES_PROVEEDOR FOR ALBARANES_PROVEEDOR
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_ALBARANES_PRO_DET FOR ALBARANES_PROVEEDOR_DETALLES
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_ALMACENES FOR ALMACENES
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_ARTICULOS FOR ARTICULOS
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_COMISIONES_LIQUID FOR COMISIONES_LIQUIDADAS
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_CONTACTOS FOR CONTACTOS
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_CONTACTOS_BANCO FOR CONTACTOS_DATOS_BANCO
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_CONTACTOS_DIR FOR CONTACTOS_DIRECCIONES
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_FACTURAS_CLIENTE FOR FACTURAS_CLIENTE
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_FACTURAS_CLIENTE_DET FOR FACTURAS_CLIENTE_DETALLES
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_FACTURAS_PROVEEDOR FOR FACTURAS_PROVEEDOR
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_FACTURAS_PROV_DET FOR FACTURAS_PROVEEDOR_DETALLES
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_PAGOS_CLIENTE FOR PAGOS_CLIENTE
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_PAGOS_PROVEEDOR FOR PAGOS_PROVEEDOR
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_PEDIDOS_CLIENTE FOR PEDIDOS_CLIENTE
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_PEDIDOS_CLI_DET FOR PEDIDOS_CLIENTE_DETALLES
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_PEDIDOS_PROVEEDOR FOR PEDIDOS_PROVEEDOR
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_PEDIDOS_PROV_DET FOR PEDIDOS_PROVEEDOR_DETALLES
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_RECIBOS_CLIENTE FOR RECIBOS_CLIENTE
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_RECIBOS_PROVEEDOR FOR RECIBOS_PROVEEDOR
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_REMESAS_CLI FOR REMESAS_CLIENTE
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ 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 ^
+
+CREATE TRIGGER TRI_UPDATE_REMESAS_PROV FOR REMESAS_PROVEEDOR
+ACTIVE BEFORE UPDATE POSITION 0
+AS
+begin
+ NEW.FECHA_MODIFICACION = current_timestamp;
+end ^
+
+COMMIT WORK ^
+SET TERM ; ^
diff --git a/Database/scripts/factuges_sysdata.sql b/Database/scripts/factuges_sysdata.sql
new file mode 100644
index 00000000..9399ab8d
--- /dev/null
+++ b/Database/scripts/factuges_sysdata.sql
@@ -0,0 +1,58 @@
+SET SQL DIALECT 3;
+
+SET NAMES ISO8859_1;
+
+INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (1, 'CLIENTE');
+INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (2, 'PROVEEDOR');
+INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (3, 'EMPLEADO');
+
+COMMIT WORK;
+
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (2, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por artículo', 'Informe de ventas por artículo', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (5, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por cliente', 'Informe de ventas por cliente y artículo', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (7, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por agente y cliente', 'Informe de ventas por agente y cliente', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (17, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (15, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por proveedor', 'Informe de ventas por proveedor y artículo', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (19, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por cliente', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (20, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (21, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de última venta', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (22, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult.venta) por clientes', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de última venta', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (23, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de última venta', NULL, 'S');
+
+COMMIT WORK;
+
+INSERT INTO PERFILES (ID, PERFIL) VALUES (1, 'Administradores');
+INSERT INTO PERFILES (ID, PERFIL) VALUES (2, 'Usuarios');
+
+COMMIT WORK;
+
+INSERT INTO PERFILES_USUARIOS (ID_PERFIL, ID_USUARIO) VALUES (1, 1);
+
+COMMIT WORK;
+
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_FACTURAS_CLIENTE', '00001', 1, 'Ref. facturas de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PEDIDOS_CLIENTE', '00001', 1, 'Ref. pedidos de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PEDIDOS_PROVEEDOR', '00001', 1, 'Ref. pedidos de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_CLIENTE', '00001', 1, 'Ref. albaranes de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_PROVEEDOR', '00001', 1, 'Ref. albaranes de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_REMESAS_CLIENTE', '00001', 1, 'Ref. remesas de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_COMISIONES', '00001', 1, 'Ref. liquidaciones de comision');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_FACTURAS_PROVEEDOR', '00001', 1, 'Ref. facturas de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_DEV_CLIENTE', '00001', 1, 'Ref. ordenes de devolucion de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_DEV_PROVEEDOR', '00001', 1, 'Ref. ordenes de devolucion de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_REMESAS_PROVEEDOR', '00001', 1, 'Ref. remesas de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ABONOS_CLIENTE', '00001', 1, 'Ref. abonos de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ABONOS_PROVEEDOR', '00001', 1, 'Ref. abonos de proveedor');
+
+COMMIT WORK;
+
+INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (2, 'IVA16', 'IVA16', 16, 4);
+INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (3, 'IVA4', 'IVA4', 4, 0.5);
+INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (4, 'IVA7', 'IVA7', 7, 1);
+INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (6, 'EXENTO', 'EXTRANJERO', 0, 0);
+
+COMMIT WORK;
+
+INSERT INTO USUARIOS (ID, USUARIO, PASS, ACTIVO, LAST_LOGIN) VALUES (1, 'Administrador', '', 1, NULL);
+
+COMMIT WORK;
diff --git a/Sanlam.SanQuote.Common.targets b/Sanlam.SanQuote.Common.targets
new file mode 100644
index 00000000..8a5b16a4
--- /dev/null
+++ b/Sanlam.SanQuote.Common.targets
@@ -0,0 +1,281 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ '%(RootDir)%(Directory)bin\$(Configuration)\*$(NUnitFile)');
+ @(TestProjects->'%(RootDir)%(Directory)bin\$(Configuration)\*$(LastTestRunSucceededFile)');
+ @(TestProjects->'%(RootDir)%(Directory)bin\$(Configuration)\*$(NCoverFile)');
+ @(TestProjects->'%(RootDir)%(Directory)bin\$(Configuration)\*$(NCoverLogFile)')">
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Sanlam.SanQuote.proj b/Sanlam.SanQuote.proj
new file mode 100644
index 00000000..bf507192
--- /dev/null
+++ b/Sanlam.SanQuote.proj
@@ -0,0 +1,194 @@
+
+
+
+ %0D%0A
+ %09
+ %22
+ %20
+
+
+
+
+ $(MSBuildProjectDirectory)\Build
+ $(MSBuildProjectDirectory)\Source
+ $(MSBuildProjectDirectory)\Database
+ $(MSBuildProjectDirectory)\Lib
+ $(MSBuildProjectDirectory)\Install
+ $(MSBuildProjectDirectory)\Output
+ $(SqlFolder)\Scripts
+ $(MSBuildProjectDirectory)\Code Metrics
+ $(MSBuildProjectDirectory)\Tools
+ $(MSBuildProjectDirectory)\Qtp
+ \\qtpserver\qtpshare
+ $(QtpDeployFolder)\Install
+ $(QtpDeployFolder)\Uninstall
+ $(QtpFolder)\TestResults
+
+
+
+
+ localhost
+ firebird2
+ $(ToolsFolder)\ISQL\isql.exe
+ DEV
+ smtp.somewhere.co.za
+
+
+
+
+ C:\Archivos de programa\FinalBuilder 5
+ $(FinalBuilderPath)\FBCMD.exe
+ C:\Program Files\Subversion\bin
+ $(SubversionPath)\svn.exe
+ C:\Program Files\NCover\
+ C:\Program Files\NCoverExplorer\
+ C:\Program Files\NUnit-Net-2.0 2.2.10\bin
+ $(NUnitPath)\nunit-console.exe
+ C:\Program Files\Installshield 12 StandaloneBuild
+ $(InstallShieldPath)\IsSaBld.exe
+
+
+
+
+
+ ..\Sanlam.snk
+ Sanlam.SanQuote.sln
+ $(MSBuildProjectDirectory)\IterationNumber.txt
+ $(MSBuildProjectDirectory)\Environment.txt
+ LastTestRunSucceeded
+ LastCodeAnalysisSucceeded
+ $(Temp)\InstallBuildEmailFile.htm
+ $(InstallFolder)\InstallBuildEmailTemplate.htm
+ TestResult.xml
+ CodeAnalysisLog.xml
+ Coverage.xml
+ Coverage.log
+ CoverageSummary.xml
+ CoverageSummary.html
+ $(SqlScriptsFolder)\CreateDBBackupsForAutomatedBuild.cmd
+ $(QtpFolder)\RunQTP.vbs
+ QtpResultsSummary.xml
+
+
+
+
+ $(MSBuildProjectDirectory)
+ https://svn.somewhere.co.za/sanquote
+ $(SvnServerPath)/trunk
+ $(SvnServerPath)/tags
+
+
+
+
+ SanQuote.msi
+ $(InstallFolder)\SanQuote.ism
+ $(InstallFolder)\SetMsiProductVersion.vbs
+ $(InstallFolder)\Binaries\InstallFiles
+ $(Temp)\SanQuote\Install
+ PROJECT_ASSISTANT\SINGLE_MSI_IMAGE\DiskImages\DISK1
+ $(InstallFolder)\Merge Modules
+
+
+
+
+ 1
+ 0
+ $(Iteration)
+ Build
+ false
+
+
+
+
+ $(CodeOutputFolder)
+ Debug
+ AnyCPU
+ false
+ $(CodeOutputFolder)\Debug
+ $(CodeOutputFolder)\Release
+
+
+
+
+
+
+
+
+
+
+
+ $(CleanDependsOn);
+ CleanDatabases
+ CleanCode
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Source/Base/Base.drc b/Source/Base/Base.drc
index 020676f4..f4b415c4 100644
--- a/Source/Base/Base.drc
+++ b/Source/Base/Base.drc
@@ -45,11 +45,11 @@ BEGIN
END
/* C:\Codigo Tecsitel\Lib\JSDialog\mbimg.res */
-/* C:\Codigo Tecsitel\Lib\JSDialog\vistaimg.RES */
+/* C:\Codigo Tecsitel\Lib\JSDialog\vistaimg.res */
/* C:\Codigo Tecsitel\Source\Base\uConfigurarConexion.dfm */
/* C:\Codigo Tecsitel\Source\Base\uDataModuleConexion.dfm */
/* C:\Codigo Tecsitel\Source\Base\uDataModuleConfiguracion.dfm */
-/* C:\Codigo Tecsitel\Source\Base\uDataModuleBase.dfm */
+/* C:\Codigo Tecsitel\Source\Base\uDataModuleBase.DFM */
/* C:\Codigo Tecsitel\Source\Base\uActualizacion.dfm */
/* C:\Codigo Tecsitel\Source\Base\Base.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf205.tmp */
+/* C:\Codigo Tecsitel\Source\Base\Base.drf */
diff --git a/Source/Base/Base.identcache b/Source/Base/Base.identcache
index a5818f8f..8c57b242 100644
Binary files a/Source/Base/Base.identcache and b/Source/Base/Base.identcache differ
diff --git a/Source/Base/ControllerBase/ControllerBase.drc b/Source/Base/ControllerBase/ControllerBase.drc
index 4ee3c673..57eea9f2 100644
--- a/Source/Base/ControllerBase/ControllerBase.drc
+++ b/Source/Base/ControllerBase/ControllerBase.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Base\ControllerBase\ControllerBase.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf207.tmp */
+/* C:\Codigo Tecsitel\Source\Base\ControllerBase\ControllerBase.drf */
diff --git a/Source/Base/GUIBase/GUIBase.drc b/Source/Base/GUIBase/GUIBase.drc
index b0df2da9..b6356a8d 100644
--- a/Source/Base/GUIBase/GUIBase.drc
+++ b/Source/Base/GUIBase/GUIBase.drc
@@ -35,4 +35,4 @@ END
/* C:\Codigo Tecsitel\Source\Base\GUIBase\uDialogBase.dfm */
/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewGrid.dfm */
/* C:\Codigo Tecsitel\Source\Base\GUIBase\GUIBase.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf209.tmp */
+/* C:\Codigo Tecsitel\Source\Base\GUIBase\GUIBase.drf */
diff --git a/Source/Base/Usuarios/Usuarios.drc b/Source/Base/Usuarios/Usuarios.drc
index 7f092060..d605020d 100644
--- a/Source/Base/Usuarios/Usuarios.drc
+++ b/Source/Base/Usuarios/Usuarios.drc
@@ -14,8 +14,8 @@ END
/* C:\Codigo Tecsitel\Source\Base\Usuarios\uLoginForm.dfm */
/* C:\Codigo Tecsitel\Source\Base\Usuarios\uCambiarPassword.dfm */
-/* C:\Codigo Tecsitel\Source\Base\Usuarios\uDataModuleUsuarios.dfm */
+/* C:\Codigo Tecsitel\Source\Base\Usuarios\uDataModuleUsuarios.DFM */
/* C:\Codigo Tecsitel\Source\Base\Usuarios\uUsuarios.dfm */
/* C:\Codigo Tecsitel\Source\Base\Usuarios\uUsuario.dfm */
/* C:\Codigo Tecsitel\Source\Base\Usuarios\Usuarios.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf211.tmp */
+/* C:\Codigo Tecsitel\Source\Base\Usuarios\Usuarios.drf */
diff --git a/Source/Base/Utiles/uDataTableUtils.pas b/Source/Base/Utiles/uDataTableUtils.pas
index 6625ee3e..15a87fc7 100644
--- a/Source/Base/Utiles/uDataTableUtils.pas
+++ b/Source/Base/Utiles/uDataTableUtils.pas
@@ -531,14 +531,14 @@ begin
if Assigned(ADetail) then
begin
// ¡¡¡¡¡ MUY IMPORTANTE !!!!!!!!!!!!!!!!!!
- ADetail.DataTable.DisableEventHandlers;
+ //ADetail.DataTable.DisableEventHandlers;
try
ADetail.DataTable.MasterSource := AMasterDataSource;
finally
{ Hay que activar los eventos porque dejan de funcionar
las reglas de negocio al establecer la relación
maestro-detalle. (Fallo de Data Abstract 3) }
- ADetail.DataTable.EnableEventHandlers;
+ //ADetail.DataTable.EnableEventHandlers;
end;
end;
end;
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 879ca9b0..3589b28b 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -8,6 +8,7 @@
PluginSDK_D10R;GUISDK_D11;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin;Empresas_controller;Empresas_model
DCC32
..\..\Output\Debug\Cliente\FactuGES.exe
+ true
7.0
@@ -57,18 +58,6 @@
-
-
-
-
-
-
-
-
-
-
-
-
CodeGear WebSnap Components
CodeGear SOAP Components
Microsoft Office XP Sample Automation Server Wrapper Components
diff --git a/Source/Cliente/FactuGES.drc b/Source/Cliente/FactuGES.drc
index adc467f3..d7f8b7a3 100644
--- a/Source/Cliente/FactuGES.drc
+++ b/Source/Cliente/FactuGES.drc
@@ -12,10 +12,10 @@ STRINGTABLE
BEGIN
END
-/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */
-/* C:\Codigo Tecsitel\Lib\JVCL\JvXPCore.res */
+/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
+/* C:\Codigo Tecsitel\Lib\jvcl\JvXPCore.res */
/* C:\Codigo Tecsitel\Source\Cliente\uSplash.dfm */
/* C:\Codigo Tecsitel\Source\Cliente\uAcercaDe.dfm */
/* C:\Codigo Tecsitel\Source\Cliente\uPantallaPrincipal.dfm */
/* C:\Codigo Tecsitel\Source\Cliente\FactuGES.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf235.tmp */
+/* C:\Codigo Tecsitel\Source\Cliente\FactuGES.drf */
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 19ec614f..4f8fdad1 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Cliente/compilar.bat b/Source/Cliente/compilar.bat
new file mode 100644
index 00000000..3ddc68a3
--- /dev/null
+++ b/Source/Cliente/compilar.bat
@@ -0,0 +1,140 @@
+dcc32.exe -B -DDEBUG; -E..\..\Output\Debug\Cliente -GD -I..\Lib;..\Modulos\Lib;"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\CODIGO~2\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport3";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\cxIntl5";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\jvcl";"C:\Codigo Tecsitel\Lib\JSDialog" -LE. -LN. -LUPluginSDK_D10R;GUISDK_D11;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin;Empresas_controller;Empresas_model -N0. -NH. -NO. -NS; -O..\Lib;..\Modulos\Lib;"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport3";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\cxIntl5";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\jvcl";"C:\Codigo Tecsitel\Lib\JSDialog";"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport3";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\cxIntl5";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\jvcl";"C:\Codigo Tecsitel\Lib\JSDialog" -R..\Lib;..\Modulos\Lib;"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport3";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\cxIntl5";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\jvcl";"C:\Codigo Tecsitel\Lib\JSDialog" -U..\Lib;..\Modulos\Lib;"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\Codigo Tecsitel\Lib\DevExpressVCL";"C:\Codigo Tecsitel\Lib\FastReport3";"C:\Codigo Tecsitel\Lib\GUISDK";"C:\Codigo Tecsitel\Lib\PngComponents";"C:\Codigo Tecsitel\Lib\cxIntlPrintSys3";"C:\Codigo Tecsitel\Lib\cxIntl5";"C:\Codigo Tecsitel\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo Tecsitel\Lib\JCL";"C:\Codigo Tecsitel\Lib\jvcl";"C:\Codigo Tecsitel\Lib\JSDialog" --no-config -$O- -$W+ FactuGES.dpr
+
+
+GOTO EXIT
+
+REM dcc32.exe -B -DDEBUG; -E..\..\Output\Debug\Cliente -GD -IC:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Imports;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib\Indy10;C:\CODIGO~2\Lib;C:\CODIGO~2\Lib\RemObjects\RemObjects_SDK;C:\CODIGO~2\Lib\RemObjects\Data_Abstract;C:\CODIGO~2\Lib\CCPack;C:\CODIGO~2\Lib\CFPack;C:\CODIGO~2\Lib\GUISDK;C:\CODIGO~2\Lib\PluginSDK;C:\CODIGO~2\Lib\DevExpressVCL;C:\CODIGO~2\Lib\FastReport3;C:\CODIGO~2\Lib\JCL;C:\CODIGO~2\Lib\JVCL;C:\CODIGO~2\Lib\PngComponents;C:\CODIGO~2\Lib\cxIntl5;C:\CODIGO~2\Lib\cxIntlPrintSys3;C:\CODIGO~2\Lib\TB2k+TBX;C:\CODIGO~2\Lib\Mustangpeak\MPCommonLib;C:\CODIGO~2\Lib\Mustangpeak\EasyListview;C:\CODIGO~2\Lib\JSDialog;;C:\CODIGO~2\Source\Lib -LE. -LN. -N0. -NH. -NO. -NS; -OC:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Imports;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib\Indy10;C:\CODIGO~2\Lib;C:\CODIGO~2\Lib\RemObjects\RemObjects_SDK;C:\CODIGO~2\Lib\RemObjects\Data_Abstract;C:\CODIGO~2\Lib\CCPack;C:\CODIGO~2\Lib\CFPack;C:\CODIGO~2\Lib\GUISDK;C:\CODIGO~2\Lib\PluginSDK;C:\CODIGO~2\Lib\DevExpressVCL;C:\CODIGO~2\Lib\FastReport3;C:\CODIGO~2\Lib\JCL;C:\CODIGO~2\Lib\JVCL;C:\CODIGO~2\Lib\PngComponents;C:\CODIGO~2\Lib\cxIntl5;C:\CODIGO~2\Lib\cxIntlPrintSys3;C:\CODIGO~2\Lib\TB2k+TBX;C:\CODIGO~2\Lib\Mustangpeak\MPCommonLib;C:\CODIGO~2\Lib\Mustangpeak\EasyListview;C:\CODIGO~2\Lib\JSDialog;;C:\CODIGO~2\Source\Lib-RC:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Imports;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib\Indy10;C:\CODIGO~2\Lib;C:\CODIGO~2\Lib\RemObjects\RemObjects_SDK;C:\CODIGO~2\Lib\RemObjects\Data_Abstract;C:\CODIGO~2\Lib\CCPack;C:\CODIGO~2\Lib\CFPack;C:\CODIGO~2\Lib\GUISDK;C:\CODIGO~2\Lib\PluginSDK;C:\CODIGO~2\Lib\DevExpressVCL;C:\CODIGO~2\Lib\FastReport3;C:\CODIGO~2\Lib\JCL;C:\CODIGO~2\Lib\JVCL;C:\CODIGO~2\Lib\PngComponents;C:\CODIGO~2\Lib\cxIntl5;C:\CODIGO~2\Lib\cxIntlPrintSys3;C:\CODIGO~2\Lib\TB2k+TBX;C:\CODIGO~2\Lib\Mustangpeak\MPCommonLib;C:\CODIGO~2\Lib\Mustangpeak\EasyListview;C:\CODIGO~2\Lib\JSDialog;;C:\CODIGO~2\Source\Lib -UC:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Imports;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib\Indy10;C:\CODIGO~2\Lib;C:\CODIGO~2\Lib\RemObjects\RemObjects_SDK;C:\CODIGO~2\Lib\RemObjects\Data_Abstract;C:\CODIGO~2\Lib\CCPack;C:\CODIGO~2\Lib\CFPack;C:\CODIGO~2\Lib\GUISDK;C:\CODIGO~2\Lib\PluginSDK;C:\CODIGO~2\Lib\DevExpressVCL;C:\CODIGO~2\Lib\FastReport3;C:\CODIGO~2\Lib\JCL;C:\CODIGO~2\Lib\JVCL;C:\CODIGO~2\Lib\PngComponents;C:\CODIGO~2\Lib\cxIntl5;C:\CODIGO~2\Lib\cxIntlPrintSys3;C:\CODIGO~2\Lib\TB2k+TBX;C:\CODIGO~2\Lib\Mustangpeak\MPCommonLib;C:\CODIGO~2\Lib\Mustangpeak\EasyListview;C:\CODIGO~2\Lib\JSDialog;;C:\CODIGO~2\Source\Lib --no-config -$O- -$W+ FactuGES.dpr
+
+
+dcc32.exe
+-B
+-DDEBUG;
+-E..\..\Output\Debug\Cliente
+-GD
+-I..\Lib;..\Modulos\Lib;"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\Codigo~2\Lib\DevExpressVCL";"C:\Codigo~2\Lib\FastReport3";"C:\Codigo~2\Lib\GUISDK";"C:\Codigo~2\Lib\PngComponents";"C:\Codigo~2\Lib\cxIntlPrintSys3";"C:\Codigo~2\Lib\cxIntl5";"C:\Codigo~2\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo~2\Lib\JCL";"C:\Codigo~2\Lib\jvcl";"C:\Codigo~2\Lib\JSDialog"
+-LE.
+-LN.
+-N0.
+-NH.
+-NO.
+-NS;
+-OC:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Imports;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib\Indy10;C:\CODIGO~2\Lib;C:\CODIGO~2\Lib\RemObjects\RemObjects_SDK;C:\CODIGO~2\Lib\RemObjects\Data_Abstract;C:\CODIGO~2\Lib\CCPack;C:\CODIGO~2\Lib\CFPack;C:\CODIGO~2\Lib\GUISDK;C:\CODIGO~2\Lib\PluginSDK;C:\CODIGO~2\Lib\DevExpressVCL;C:\CODIGO~2\Lib\FastReport3;C:\CODIGO~2\Lib\JCL;C:\CODIGO~2\Lib\JVCL;C:\CODIGO~2\Lib\PngComponents;C:\CODIGO~2\Lib\cxIntl5;C:\CODIGO~2\Lib\cxIntlPrintSys3;C:\CODIGO~2\Lib\TB2k+TBX;C:\CODIGO~2\Lib\Mustangpeak\MPCommonLib;C:\CODIGO~2\Lib\Mustangpeak\EasyListview;C:\CODIGO~2\Lib\JSDialog;;C:\CODIGO~2\Source\Lib-RC:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Imports;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib\Indy10;C:\CODIGO~2\Lib;C:\CODIGO~2\Lib\RemObjects\RemObjects_SDK;C:\CODIGO~2\Lib\RemObjects\Data_Abstract;C:\CODIGO~2\Lib\CCPack;C:\CODIGO~2\Lib\CFPack;C:\CODIGO~2\Lib\GUISDK;C:\CODIGO~2\Lib\PluginSDK;C:\CODIGO~2\Lib\DevExpressVCL;C:\CODIGO~2\Lib\FastReport3;C:\CODIGO~2\Lib\JCL;C:\CODIGO~2\Lib\JVCL;C:\CODIGO~2\Lib\PngComponents;C:\CODIGO~2\Lib\cxIntl5;C:\CODIGO~2\Lib\cxIntlPrintSys3;C:\CODIGO~2\Lib\TB2k+TBX;C:\CODIGO~2\Lib\Mustangpeak\MPCommonLib;C:\CODIGO~2\Lib\Mustangpeak\EasyListview;C:\CODIGO~2\Lib\JSDialog;;C:\CODIGO~2\Source\Lib
+-UC:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Imports;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib\Indy10;C:\CODIGO~2\Lib;C:\CODIGO~2\Lib\RemObjects\RemObjects_SDK;C:\CODIGO~2\Lib\RemObjects\Data_Abstract;C:\CODIGO~2\Lib\CCPack;C:\CODIGO~2\Lib\CFPack;C:\CODIGO~2\Lib\GUISDK;C:\CODIGO~2\Lib\PluginSDK;C:\CODIGO~2\Lib\DevExpressVCL;C:\CODIGO~2\Lib\FastReport3;C:\CODIGO~2\Lib\JCL;C:\CODIGO~2\Lib\JVCL;C:\CODIGO~2\Lib\PngComponents;C:\CODIGO~2\Lib\cxIntl5;C:\CODIGO~2\Lib\cxIntlPrintSys3;C:\CODIGO~2\Lib\TB2k+TBX;C:\CODIGO~2\Lib\Mustangpeak\MPCommonLib;C:\CODIGO~2\Lib\Mustangpeak\EasyListview;C:\CODIGO~2\Lib\JSDialog;;C:\CODIGO~2\Source\Lib
+--no-config
+-$O-
+-$W+ FactuGES.dpr
+
+
+
+goto exit
+
+
+CodeGear Delphi for Win32 compiler version 18.5
+Copyright (c) 1983,2007 CodeGear
+
+Syntax: dcc32 [options] filename [options]
+
+ -A= = Set unit alias
+ -B = Build all units
+ -CC = Console target
+ -CG = GUI target
+ -D = Define conditionals
+ -E = EXE/DLL output directory
+ -F = Find error
+ -GD = Detailed map file
+ -GP = Map file with publics
+ -GS = Map file with segments
+ -H = Output hint messages
+ -I = Include directories
+ -J = Generate .obj file
+ -JPHNE = Generate C++ .obj file, .hpp file, in namespace, export all
+ -JL = Generate package .lib, .bpi, and all .hpp files for C++
+ -K = Set image base addr
+ -LE = package .bpl output directory
+ -LN = package .dcp output directory
+ -LU = Use package
+ -M = Make modified units
+ -N0 = unit .dcu output directory
+ -NH = unit .hpp output directory
+ -NO = unit .obj output directory
+ -NB = unit .bpi output directory
+ -NS = Namespace search path
+ -O = Object directories
+ -P = look for 8.3 file names also
+ -Q = Quiet compile
+ -R = Resource directories
+ -U = Unit directories
+ -V = Debug information in EXE
+ -VR = Generate remote debug (RSM)
+ -W[+|-][warn_id] = Output warning messages
+ -Z = Output 'never build' DCPs
+ -$ = Compiler directive
+ --help = Show this help screen
+ --version = Show name and version
+ --codepage: = specify source file encoding
+ --default-namespace: = set namespace
+ --depends = output unit dependency information
+ --doc = output XML documentation
+ --drc = output resource string .drc file
+ --no-config = do not load default DCC32.CFG file
+ --description: = set executable description
+Compiler switches: -$ (defaults are shown below)
+ A8 Aligned record fields
+ B- Full boolean Evaluation
+ C+ Evaluate assertions at runtime
+ D+ Debug information
+ G+ Use imported data references
+ H+ Use long strings by default
+ I+ I/O checking
+ J- Writeable structured consts
+ L+ Local debug symbols
+ M- Runtime type info
+ O+ Optimization
+ P+ Open string params
+ Q- Integer overflow checking
+ R- Range checking
+ T- Typed @ operator
+ U- Pentium(tm)-safe divide
+ V+ Strict var-strings
+ W- Generate stack frames
+ X+ Extended syntax
+ Y+ Symbol reference info
+ Z1 Minimum size of enum types
+
+base_dcp_path = C:\CODIGO~2\Source\Lib
+library_3rdparty_path = C:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib\Indy10;C:\CODIGO~2\Lib;C:\CODIGO~2\Lib\RemObjects\RemObjects_SDK;C:\CODIGO~2\Lib\RemObjects\Data_Abstract;C:\CODIGO~2\Lib\CCPack;C:\CODIGO~2\Lib\CFPack;C:\CODIGO~2\Lib\GUISDK;C:\CODIGO~2\Lib\PluginSDK;C:\CODIGO~2\Lib\DevExpressVCL;C:\CODIGO~2\Lib\FastReport3;C:\CODIGO~2\Lib\JCL;C:\CODIGO~2\Lib\JVCL;C:\CODIGO~2\Lib\PngComponents;C:\CODIGO~2\Lib\cxIntl5;C:\CODIGO~2\Lib\cxIntlPrintSys3;C:\CODIGO~2\Lib\TB2k+TBX;C:\CODIGO~2\Lib\Mustangpeak\MPCommonLib;C:\CODIGO~2\Lib\Mustangpeak\EasyListview;C:\CODIGO~2\Lib\JSDialog;
+library_path = C:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Imports;C:\Archiv~1\CodeGear\RADSTU~1\5.0\Lib\Indy10;C:\CODIGO~2\Lib;C:\CODIGO~2\Lib\RemObjects\RemObjects_SDK;C:\CODIGO~2\Lib\RemObjects\Data_Abstract;C:\CODIGO~2\Lib\CCPack;C:\CODIGO~2\Lib\CFPack;C:\CODIGO~2\Lib\GUISDK;C:\CODIGO~2\Lib\PluginSDK;C:\CODIGO~2\Lib\DevExpressVCL;C:\CODIGO~2\Lib\FastReport3;C:\CODIGO~2\Lib\JCL;C:\CODIGO~2\Lib\JVCL;C:\CODIGO~2\Lib\PngComponents;C:\CODIGO~2\Lib\cxIntl5;C:\CODIGO~2\Lib\cxIntlPrintSys3;C:\CODIGO~2\Lib\TB2k+TBX;C:\CODIGO~2\Lib\Mustangpeak\MPCommonLib;C:\CODIGO~2\Lib\Mustangpeak\EasyListview;C:\CODIGO~2\Lib\JSDialog;;C:\CODIGO~2\Source\Lib
+modules_dcp_path = C:\CODIGO~2\Source\Modulos\Lib
+output_path = C:\CODIGO~2\Output\Debug
+package_path = C:\CODIGO~2\Output\Debug\Cliente
+project_path = C:\CODIGO~2
+source_path = C:\CODIGO~2\Source
+
+
+
+:hola
+
+dcc32.exe
+-B
+-DDEBUG;
+-E..\..\Output\Debug\Cliente
+-GD
+-I..\Lib;..\Modulos\Lib;"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\Codigo~2\Lib\DevExpressVCL";"C:\Codigo~2\Lib\FastReport3";"C:\Codigo~2\Lib\GUISDK";"C:\Codigo~2\Lib\PngComponents";"C:\Codigo~2\Lib\cxIntlPrintSys3";"C:\Codigo~2\Lib\cxIntl5";"C:\Codigo~2\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo~2\Lib\JCL";"C:\Codigo~2\Lib\jvcl";"C:\Codigo~2\Lib\JSDialog"
+-LE.
+-LN.
+-LUPluginSDK_D10R;GUISDK_D11;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin;Empresas_controller;Empresas_model
+-N0.
+-NH.
+-NO.
+-NS;
+-O..\Lib;..\Modulos\Lib;"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\Codigo~2\Lib\DevExpressVCL";"C:\Codigo~2\Lib\FastReport3";"C:\Codigo~2\Lib\GUISDK";"C:\Codigo~2\Lib\PngComponents";"C:\Codigo~2\Lib\cxIntlPrintSys3";"C:\Codigo~2\Lib\cxIntl5";"C:\Codigo~2\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo~2\Lib\JCL";"C:\Codigo~2\Lib\jvcl";"C:\Codigo~2\Lib\JSDialog";"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\Codigo~2\Lib\DevExpressVCL";"C:\Codigo~2\Lib\FastReport3";"C:\Codigo~2\Lib\GUISDK";"C:\Codigo~2\Lib\PngComponents";"C:\Codigo~2\Lib\cxIntlPrintSys3";"C:\Codigo~2\Lib\cxIntl5";"C:\Codigo~2\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo~2\Lib\JCL";"C:\Codigo~2\Lib\jvcl";"C:\Codigo~2\Lib\JSDialog"
+-R..\Lib;..\Modulos\Lib;"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\Codigo~2\Lib\DevExpressVCL";"C:\Codigo~2\Lib\FastReport3";"C:\Codigo~2\Lib\GUISDK";"C:\Codigo~2\Lib\PngComponents";"C:\Codigo~2\Lib\cxIntlPrintSys3";"C:\Codigo~2\Lib\cxIntl5";"C:\Codigo~2\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo~2\Lib\JCL";"C:\Codigo~2\Lib\jvcl";"C:\Codigo~2\Lib\JSDialog"
+-U..\Lib;..\Modulos\Lib;"C:\Archiv~1\EurekaLog 6\Delphi11";"c:\Archiv~1\codegear\rad studio\5.0\lib";"C:\Documents and Settings\Usuario\Mis documentos\RADSTU~1\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Imports";"c:\Archiv~1\codegear\rad studio\5.0\Lib\Indy10";"C:\Documents and Settings\All Users\Documentos\RADSTU~1\5.0\Dcp";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Everwood\Bin";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Dcu\D10";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Dcu\D10";"C:\Codigo~2\Lib\DevExpressVCL";"C:\Codigo~2\Lib\FastReport3";"C:\Codigo~2\Lib\GUISDK";"C:\Codigo~2\Lib\PngComponents";"C:\Codigo~2\Lib\cxIntlPrintSys3";"C:\Codigo~2\Lib\cxIntl5";"C:\Codigo~2\Lib\TB2k+TBX";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\DataSnap";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\CodeGen";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODEC";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\Synapse";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\ZLib";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\Drivers";"C:\Archiv~1\REMOBJ~1\Data Abstract for Delphi\Source\IDE";"C:\Archiv~1\REMOBJ~1\RemObjects SDK for Delphi\Source\RODX";"C:\Archiv~1\REMOBJ~1\Pascal Script for Delphi\Source";"C:\Codigo~2\Lib\JCL";"C:\Codigo~2\Lib\jvcl";"C:\Codigo~2\Lib\JSDialog"
+--no-config
+-$O-
+-$W+ FactuGES.dpr
+
+:exit
+
+
+
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.drc b/Source/Modulos/Contactos/Controller/Contactos_controller.drc
index 5ecf992c..eeee0c01 100644
--- a/Source/Modulos/Contactos/Controller/Contactos_controller.drc
+++ b/Source/Modulos/Contactos/Controller/Contactos_controller.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf22F.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.drf */
diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas
index 4ae4bc63..1d8a7f28 100644
--- a/Source/Modulos/Contactos/Controller/uClientesController.pas
+++ b/Source/Modulos/Contactos/Controller/uClientesController.pas
@@ -23,7 +23,6 @@ type
TClientesController = class(TContactosController, IClientesController)
protected
FDireccionesController : IDireccionesContactoController;
- procedure AsignarID(AContacto: IBizContacto; const IDNuevo: Integer); override;
function ValidarContacto(AContacto: IBizContacto): Boolean; override;
public
constructor Create; override;
@@ -57,21 +56,6 @@ uses
{ TClientesController }
-procedure TClientesController.AsignarID(AContacto: IBizContacto;
- const IDNuevo: Integer);
-begin
- if not Assigned(AContacto) then
- raise Exception.Create ('Contacto no asignado');
-
- { Los datos de descuentos hay que comprobarlos siempre
- tanto en inserción como en modificación. }
- with (AContacto as IBizCliente) do
- if Assigned(Descuentos) then
- AsignarIDDetalles(AContacto, IDNuevo, Descuentos.DataTable);
-
- inherited;
-end;
-
function TClientesController.Buscar(const ID: Integer): IBizContacto;
begin
Result := (FDataModule as IDataModuleClientes).GetItem(ID);
diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas
index 976d4256..10e424c8 100644
--- a/Source/Modulos/Contactos/Controller/uContactosController.pas
+++ b/Source/Modulos/Contactos/Controller/uContactosController.pas
@@ -32,9 +32,6 @@ type
TContactosController = class(TInterfacedObject, IContactosController)
protected
FDataModule : IDataModuleContactos;
- procedure AsignarID(AContacto: IBizContacto; const IDNuevo : Integer); virtual;
- procedure AsignarIDDetalles(AContacto: IBizContacto;
- const IDCabecera : Integer; ADataTable : TDADataTable);
procedure FiltrarEmpresa(AContacto : IBizContacto); virtual;
function _Vacio : IBizContacto; virtual;
function ValidarContacto(AContacto : IBizContacto): Boolean; virtual;
@@ -75,55 +72,6 @@ begin
AContacto.Insert;
end;
-procedure TContactosController.AsignarID(AContacto: IBizContacto; const IDNuevo : Integer);
-begin
- if not Assigned(AContacto) then
- raise Exception.Create ('Contacto no asignado');
-
- if AContacto.EsNuevo then
- begin
- { ¡¡¡ OJO !!!
- Primero cambiamos el ID de las tablas detalles
- porque si cambiamos antes el ID de la cabecera
- deja de funcionar la relacion M/D y no
- encontraríamos las filas detalle.
-
- --> MASTER.ID = DETAIL.ID_CONTACTO <--
- }
-
- with AContacto._Categorias do
- begin
- if not DataTable.Active then
- DataTable.Active := True;
- Insert;
- ID_CONTACTO := IDNuevo;
- ID_CATEGORIA := AContacto.ID_CATEGORIA;
- Post;
- end;
- end;
-
- { Los datos bancarios hay que comprobarlos siempre
- tanto en inserción como en modificación. }
- if Assigned(AContacto.DatosBancarios) then
- AsignarIDDetalles(AContacto, IDNuevo, AContacto.DatosBancarios.DataTable);
-
-
- { Las direcciones extras hay que comprobarlas siempre
- tanto en inserción como en modificación. }
- if Assigned(AContacto.Direcciones) then
- AsignarIDDetalles(AContacto, IDNuevo, AContacto.Direcciones.DataTable);
-
-
- if AContacto.EsNuevo then
- begin
- AContacto.Edit;
- AContacto.ID := IDNuevo;
- AContacto.ID_EMPRESA := dmUsuarios.IDEmpresaActual;
- AContacto.Post;
- end;
-end;
-
-
function TContactosController.Duplicar(AContacto: IBizContacto): IBizContacto;
begin
Result := Self._Vacio;
@@ -247,14 +195,7 @@ begin
begin
ShowHourglassCursor;
try
- if AContacto.EsNuevo then
- NuevoID := FDataModule.GetNextID(AContacto.DataTable.LogicalName)
- else
- NuevoID := AContacto.ID;
-
- AsignarID(AContacto, NuevoID);
AContacto.DataTable.ApplyUpdates;
-
Result := True;
finally
HideHourglassCursor;
@@ -281,67 +222,6 @@ begin
end;
end;
-procedure TContactosController.AsignarIDDetalles (AContacto: IBizContacto; const IDCabecera : Integer; ADataTable : TDADataTable);
-var
- AContador : Integer;
-begin
- if not ADataTable.Active then
- ADataTable.Active := True;
-
- if AContacto.EsNuevo then
- begin
- { ¡¡¡¡ OJO !!!!
- Para asignar el ID en los detalles hay
- que tener en cuenta una cosa:
- Si se cambia el ID, ese detalle ya no
- pertenece a esa cabecera porque ya no se
- cumple la condición de la relacion:
- Master.ID = Detail.ID_CONTACTO.
-
- Por esa razón no sirve hacer un recorrido
- desde el principio hasta el final porque
- las detalles van desapareciendo según asignamos
- el valor al campo ID y nos mueve aleatoriamente
- la posición del registro actual.
-
- Es mejor hacer un bucle sencillo hasta que
- "se gasten" todos los detalles. Cuando el
- RecordCount llegue a 0 quiere decir que hemos
- tratado todos los detalles.
- }
- while ADataTable.RecordCount > 0 do
- begin
- ADataTable.First;
- ADataTable.Edit;
- ADataTable.FieldByName('ID').AsInteger := FDataModule.GetNextID(ADataTable.LogicalName);
-// ADataTable.FieldByName('ID_CONTACTO').AsInteger := IDCabecera;
- //OJO SI UN DIA SON VARIOS LOS CAMPOS FORANEOS, SOLO FUNCIONA CUANDO ES UN ÚNICO CAMPO DE CLAVE FORANEA
- ADataTable.FieldByName(ADataTable.DetailFields).AsInteger := IDCabecera;
- ADataTable.Post;
- end;
- end
- else begin
- { En este caso es un recorrido normal y corriente. }
- ADataTable.First;
- AContador := ADataTable.RecordCount;
-
- while (AContador > 0) do
- begin
- // ¿Es nuevo?
- if (ADataTable.FieldByName('ID').AsInteger < 0) then
- begin
- ADataTable.Edit;
- ADataTable.FieldByName('ID').AsInteger := FDataModule.GetNextID(ADataTable.LogicalName);
- ADataTable.Post;
- end;
- AContador := AContador - 1;
- ADataTable.Next;
- end;
- ADataTable.First;
- end;
-end;
-
-
function TContactosController.ValidarContacto(AContacto: IBizContacto): Boolean;
begin
Result := False;
@@ -374,11 +254,11 @@ begin
AContacto.DataTable.Active := False;
// Filtrar los contactos actuales por empresa
- with AContacto.DataTable.Where do
+ with AContacto.DataTable.DynamicWhere do
begin
- if NotEmpty then
- AddOperator(opAND);
- AddCondition(fld_ContactosID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+ // (ID = :ID)
+ Expression := NewBinaryExpression(NewField('', fld_ContactosID_EMPRESA),
+ NewConstant(dmUsuarios.IDEmpresaActual, datInteger), dboEqual);
end;
end;
diff --git a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
index f022881b..4aebd33a 100644
--- a/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
+++ b/Source/Modulos/Contactos/Controller/uDireccionesContactoController.pas
@@ -9,7 +9,6 @@ uses
type
IDireccionesContactoController = interface
['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}']
- procedure AsignarID(ADetalles: IBizDireccionesContacto; IDCabecera: Integer; AEsNuevo:Boolean);
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
procedure Ver(ADireccion : IBizDireccionesContacto);
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
@@ -21,7 +20,6 @@ type
public
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
procedure Ver(ADireccion : IBizDireccionesContacto);
- procedure AsignarID(ADetalles: IBizDireccionesContacto; IDCabecera: Integer; AEsNuevo:Boolean);
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
constructor Create; virtual;
destructor Destroy; override;
@@ -35,74 +33,6 @@ uses
uDataModuleContactos, schContactosClient_Intf, uIEditorDireccionContacto,
uEditorRegistryUtils, cxControls;
-procedure TDireccionesContactoController.AsignarID(
- ADetalles: IBizDireccionesContacto; IDCabecera: Integer;
- AEsNuevo: Boolean);
-begin
- with ADetalles do
- begin
- DataTable.DisableControls;
- try
- if not DataTable.Active then
- DataTable.Active := True;
-
-// AuxPosicion := POSICION;
-
- { ¡¡¡¡ OJO !!!!
- Para asignar el ID en los detalles hay
- que tener en cuenta una cosa:
- Si se cambia el ID, ese detalle ya no
- pertenece a esa cabecera porque ya no se
- cumple la condición de la relacion:
- Master.ID = Detail.ID_PRESUPUESTO.
-
- Por esa razón no sirve hacer un recorrido
- desde el principio hasta el final porque
- las detalles van desapareciendo según asignamos
- el valor al campo ID y nos mueve aleatoriamente
- la posición del registro actual.
-
- Es mejor hacer un bucle sencillo hasta que
- "se gasten" todos los detalles. Cuando el
- RecordCount llegue a 0 quiere decir que hemos
- tratado todos los detalles.
-
- El bucle cambia en el caso de ser llamada esta funcion desde modificar
- un presupuesto ya que en ese caso si que hay que hacer un recorrido
- total de las tuplas de detalle.
- }
-
- if AEsNuevo then
- begin
- while RecordCount > 0 do
- begin
- DataTable.First;
- Edit;
- ID := FDataModule.GetNextID(DataTable.LogicalName);
- ID_CONTACTO := IDCabecera;
- Post
- end
- end
- else
- begin
- DataTable.First;
- while not DataTable.EOF do
- begin
- if AEsNuevo then
- begin
- Edit;
- ID := FDataModule.GetNextID(DataTable.LogicalName);
- ID_CONTACTO := IDCabecera;
- Post
- end;
- DataTable.Next
- end;
- end;
- finally
- DataTable.EnableControls;
- end;
- end;
-end;
procedure TDireccionesContactoController.CopiarDireccionFiscal(
AContacto: IBizContacto; ADireccion: IBizDireccionesContacto;
diff --git a/Source/Modulos/Contactos/Controller/uEmpleadosController.pas b/Source/Modulos/Contactos/Controller/uEmpleadosController.pas
index 2fdb23b8..426625fa 100644
--- a/Source/Modulos/Contactos/Controller/uEmpleadosController.pas
+++ b/Source/Modulos/Contactos/Controller/uEmpleadosController.pas
@@ -17,9 +17,6 @@ type
end;
TEmpleadosController = class(TContactosController, IEmpleadosController)
- protected
- procedure AsignarID(AContacto: IBizContacto; const IDNuevo: Integer); override;
-
public
constructor Create; override;
@@ -47,15 +44,6 @@ uses
{ TEmpleadoController }
-procedure TEmpleadosController.AsignarID(AContacto: IBizContacto;
- const IDNuevo: Integer);
-begin
- if not Assigned(AContacto) then
- raise Exception.Create ('Contacto no asignado');
-
- inherited;
-end;
-
function TEmpleadosController.Buscar(const ID: Integer): IBizContacto;
begin
Result := (FDataModule as IDataModuleEmpleados).GetItem(ID);
diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dproj b/Source/Modulos/Contactos/Data/Contactos_data.dproj
index d075a5fb..09e59b1d 100644
--- a/Source/Modulos/Contactos/Data/Contactos_data.dproj
+++ b/Source/Modulos/Contactos/Data/Contactos_data.dproj
@@ -42,13 +42,19 @@
Delphi.Personality
Package
-FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contactos_data.dpk
+FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contactos_data.dpk
MainSource
+
+
+
+
+
+
@@ -63,3 +69,487 @@
+
+
diff --git a/Source/Modulos/Contactos/Data/Contactos_data.drc b/Source/Modulos/Contactos/Data/Contactos_data.drc
index 028e6174..6e1f8f4e 100644
--- a/Source/Modulos/Contactos/Data/Contactos_data.drc
+++ b/Source/Modulos/Contactos/Data/Contactos_data.drc
@@ -12,9 +12,9 @@ STRINGTABLE
BEGIN
END
-/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleContactos.dfm */
+/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleContactos.DFM */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleClientes.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf22D.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.drf */
diff --git a/Source/Modulos/Contactos/Data/Contactos_data.res b/Source/Modulos/Contactos/Data/Contactos_data.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Contactos/Data/Contactos_data.res and b/Source/Modulos/Contactos/Data/Contactos_data.res differ
diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
index 78190c09..c23f3a3a 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
@@ -1,27 +1,31 @@
inherited DataModuleClientes: TDataModuleClientes
- Height = 433
- Width = 705
+ Height = 325
+ Width = 636
+ inherited rda_Contactos: TDARemoteDataAdapter
+ Top = 79
+ end
+ inherited Bin2DataStreamer: TDABin2DataStreamer
+ Top = 136
+ end
inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset
end
inherited ds_ContactosCategorias: TDADataSource
DataSet = tbl_ContactosCategorias.Dataset
end
- inherited ds_DatosBancarios: TDADataSource
- DataSet = tbl_DatosBancarios.Dataset
- end
inherited ds_DireccionesContacto: TDADataSource
DataSet = tbl_DireccionesContacto.Dataset
end
- inherited rda_Contactos: TDARemoteDataAdapter
- Top = 79
+ inherited ds_DatosBancarios: TDADataSource
+ DataSet = tbl_DatosBancarios.Dataset
end
- object tbl_Clientes: TDACDSDataTable
+ object tbl_Clientes: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_ID'
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
@@ -42,16 +46,10 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'NOMBRE'
DataType = datString
Size = 255
+ Required = True
DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE'
end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Direcci'#243'n'
- DictionaryEntry = 'Contactos_CALLE'
- end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
@@ -59,11 +57,18 @@ inherited DataModuleClientes: TDataModuleClientes
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Direcci'#195#179'n'
+ DictionaryEntry = 'Contactos_CALLE'
+ end
item
Name = 'POBLACION'
DataType = datString
Size = 255
- DisplayLabel = 'Poblaci'#243'n'
+ DisplayLabel = 'Poblaci'#195#179'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
@@ -77,7 +82,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
- DisplayLabel = 'C'#243'digo postal'
+ DisplayLabel = 'C'#195#179'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
@@ -98,7 +103,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'MOVIL_1'
DataType = datString
Size = 25
- DisplayLabel = 'M'#243'vil'
+ DisplayLabel = 'M'#195#179'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
@@ -142,6 +147,14 @@ inherited DataModuleClientes: TDataModuleClientes
DisplayLabel = 'Observaciones'
DictionaryEntry = 'Contactos_NOTAS'
end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ end
item
Name = 'USUARIO'
DataType = datString
@@ -160,34 +173,6 @@ inherited DataModuleClientes: TDataModuleClientes
Size = 255
DictionaryEntry = 'Clientes_REFERENCIA'
end
- item
- Name = 'ID_TIPO_IVA'
- DataType = datInteger
- DictionaryEntry = 'Clientes_ID_TIPO_IVA'
- end
- item
- Name = 'REGIMEN_IVA'
- DataType = datString
- Size = 255
- DisplayLabel = 'R'#233'gimen de IVA'
- DictionaryEntry = 'Clientes_REGIMEN_IVA'
- end
- item
- Name = 'ID_FORMA_PAGO'
- DataType = datInteger
- DictionaryEntry = 'Clientes_ID_FORMA_PAGO'
- end
- item
- Name = 'TIENDA_WEB'
- DataType = datInteger
- DictionaryEntry = 'Clientes_TIENDA_WEB'
- end
- item
- Name = 'RECARGO_EQUIVALENCIA'
- DataType = datInteger
- DisplayLabel = 'Rec. equiv.'
- DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
- end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
@@ -210,40 +195,67 @@ inherited DataModuleClientes: TDataModuleClientes
end
item
Name = 'BLOQUEADO'
- DataType = datInteger
- DisplayLabel = #191'Bloqueado?'
+ DataType = datSmallInt
+ DisplayLabel = #194#191'Bloqueado?'
DictionaryEntry = 'Clientes_BLOQUEADO'
end
+ item
+ Name = 'REGIMEN_IVA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'R'#195#169'gimen de IVA'
+ DictionaryEntry = 'Clientes_REGIMEN_IVA'
+ end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
DisplayLabel = 'Motivo del bloqueo'
DictionaryEntry = 'Clientes_MOTIVO_BLOQUEO'
+ end
+ item
+ Name = 'RECARGO_EQUIVALENCIA'
+ DataType = datInteger
+ DisplayLabel = 'Rec. equiv.'
+ DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
+ end
+ item
+ Name = 'ID_TIPO_IVA'
+ DataType = datInteger
+ DictionaryEntry = 'Clientes_ID_TIPO_IVA'
+ end
+ item
+ Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
+ DictionaryEntry = 'Clientes_ID_FORMA_PAGO'
+ end
+ item
+ Name = 'TIENDA_WEB'
+ DataType = datSmallInt
+ DictionaryEntry = 'Clientes_TIENDA_WEB'
end>
Params = <>
- MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_clientes
+ RemoteDataAdapter = rda_Contactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Clientes'
- IndexDefs = <>
- Left = 288
- Top = 184
+ Left = 296
+ Top = 168
end
object ds_Clientes: TDADataSource
DataSet = tbl_Clientes.Dataset
DataTable = tbl_Clientes
- Left = 288
- Top = 304
+ Left = 296
+ Top = 232
end
- object tbl_ClientesDescuentos: TDACDSDataTable
+ object tbl_ClientesDescuentos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_CLIENTES_DTOS_PROV_ID'
DictionaryEntry = 'ClientesDescuentos_ID'
InPrimaryKey = True
end
@@ -273,86 +285,47 @@ inherited DataModuleClientes: TDataModuleClientes
Alignment = taRightJustify
DictionaryEntry = 'ClientesDescuentos_DESCUENTO'
end>
- Params = <
- item
- Name = 'ID_CLIENTE'
- DataType = datInteger
- Value = 1018
- ParamType = daptInput
- end>
- MasterParamsMappings.Strings = (
- 'ID_CLIENTE=ID')
+ Params = <>
+ MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_clientesDescuentos
+ RemoteDataAdapter = rda_Contactos
MasterSource = ds_Clientes
MasterFields = 'ID'
DetailFields = 'ID_CLIENTE'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ClientesDescuentos'
- IndexDefs = <>
- Left = 392
- Top = 184
+ Left = 448
+ Top = 168
end
object ds_ClientesDescuentos: TDADataSource
DataSet = tbl_ClientesDescuentos.Dataset
DataTable = tbl_ClientesDescuentos
- Left = 384
- Top = 304
+ Left = 448
+ Top = 224
end
- object tbl_GruposCliente: TDACDSDataTable
+ object tbl_GruposCliente: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
+ DisplayLabel = 'Descripci'#195#179'n'
end>
Params = <>
- MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_GruposCliente
+ RemoteDataAdapter = rda_Contactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'GruposCliente'
- IndexDefs = <>
- Left = 512
- Top = 184
+ Left = 552
+ Top = 168
end
object ds_GruposCliente: TDADataSource
DataSet = tbl_GruposCliente.Dataset
DataTable = tbl_GruposCliente
- Left = 512
- Top = 304
- end
- object rda_clientes: TDARemoteDataAdapter
- GetSchemaCall.RemoteService = RORemoteService
- GetDataCall.RemoteService = RORemoteService
- UpdateDataCall.RemoteService = RORemoteService
- GetScriptsCall.RemoteService = RORemoteService
- RemoteService = RORemoteService
- DataStreamer = DataStreamer
- Left = 291
- Top = 239
- end
- object rda_clientesDescuentos: TDARemoteDataAdapter
- GetSchemaCall.RemoteService = RORemoteService
- GetDataCall.RemoteService = RORemoteService
- UpdateDataCall.RemoteService = RORemoteService
- GetScriptsCall.RemoteService = RORemoteService
- RemoteService = RORemoteService
- DataStreamer = DataStreamer
- Left = 395
- Top = 239
- end
- object rda_GruposCliente: TDARemoteDataAdapter
- GetSchemaCall.RemoteService = RORemoteService
- GetDataCall.RemoteService = RORemoteService
- UpdateDataCall.RemoteService = RORemoteService
- GetScriptsCall.RemoteService = RORemoteService
- RemoteService = RORemoteService
- DataStreamer = DataStreamer
- Left = 515
- Top = 239
+ Left = 552
+ Top = 224
end
end
diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.pas b/Source/Modulos/Contactos/Data/uDataModuleClientes.pas
index a57de352..12fc6737 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleClientes.pas
+++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.pas
@@ -9,19 +9,17 @@ uses
uROClient, uROBinMessage, uROWinInetHttpChannel, uBizClientesDescuentos,
uBizGruposCliente, uBizContactos, uDataModuleContactos,
uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
- uDADataStreamer, uRODynamicRequest, uDAInterfaces;
+ uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable,
+ uDABin2DataStreamer;
type
TDataModuleClientes = class(TDataModuleContactos, IDataModuleClientes)
- tbl_Clientes: TDACDSDataTable;
+ tbl_Clientes: TDAMemDataTable;
ds_Clientes: TDADataSource;
- tbl_ClientesDescuentos: TDACDSDataTable;
+ tbl_ClientesDescuentos: TDAMemDataTable;
ds_ClientesDescuentos: TDADataSource;
- tbl_GruposCliente: TDACDSDataTable;
+ tbl_GruposCliente: TDAMemDataTable;
ds_GruposCliente: TDADataSource;
- rda_clientes: TDARemoteDataAdapter;
- rda_clientesDescuentos: TDARemoteDataAdapter;
- rda_GruposCliente: TDARemoteDataAdapter;
protected
function _GetDescuentos: IBizClienteDescuentos;
public
@@ -29,7 +27,6 @@ type
function NewItem : IBizCliente;
function GetItems : IBizCliente;
function GetItemsTiendaWeb : IBizCliente;
- function GetNextID(const DataSetName : String) : Integer; override;
function GetGruposCliente : IBizGrupoCliente;
end;
@@ -45,11 +42,11 @@ uses
function TDataModuleClientes.GetGruposCliente: IBizGrupoCliente;
var
- AGrupoCliente : TDACDSDataTable;
+ AGrupoCliente : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- AGrupoCliente := _CloneDataTable(tbl_GruposCliente);
+ AGrupoCliente := CloneDataTable(tbl_GruposCliente);
AGrupoCliente.BusinessRulesID := BIZ_CLIENT_GRUPOSCLIENTE;
Result := (AGrupoCliente as IBizGrupoCliente);
finally
@@ -62,13 +59,12 @@ begin
ShowHourglassCursor;
try
Result := Self.GetItems;
- with Result.DataTable.Where do
+ with Result.DataTable.DynamicWhere do
begin
- if NotEmpty then
- AddOperator(opAND);
- OpenBraket;
- AddText(fld_ContactosID + ' = ' + IntToStr(ID));
- CloseBraket;
+ Clear;
+ // (ID = :ID)
+ Expression := NewBinaryExpression(NewField('', fld_ContactosID),
+ NewConstant(ID, datInteger), dboEqual);
end;
finally
HideHourglassCursor;
@@ -77,11 +73,11 @@ end;
function TDataModuleClientes.GetItems: IBizCliente;
var
- AContacto : TDACDSDataTable;
+ AContacto : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- AContacto := _CloneDataTable(tbl_Clientes);
+ AContacto := CloneDataTable(tbl_Clientes);
AContacto.BusinessRulesID := BIZ_CLIENT_CLIENTE;
with TBizCliente(AContacto.BusinessEventsObj) do
@@ -103,39 +99,18 @@ begin
ShowHourglassCursor;
try
Result := Self.GetItems;
- with Result.DataTable.Where do
+ with Result.DataTable.DynamicWhere do
begin
- if NotEmpty then
- AddOperator(opAND);
- OpenBraket;
- AddText(fld_ClientesTIENDA_WEB + ' = 1');
- CloseBraket;
+ Clear;
+ // (TIENDA_WEB = 1)
+ Expression := NewBinaryExpression(NewField('', fld_ClientesTIENDA_WEB),
+ NewConstant(1, datInteger), dboEqual);
end;
finally
HideHourglassCursor;
end;
end;
-function TDataModuleClientes.GetNextID(const DataSetName: String): Integer;
-var
- aDataSet : String;
- aGeneratorName : String;
-begin
- aDataSet := DataSetName;
-
- if aDataSet = nme_ClientesDescuentos then
- begin
- aGeneratorName := 'GEN_CLIENTES_DTOS_PROV_ID';
- Result := _InternalGetNextID(aGeneratorName);
- Exit;
- end;
-
- if aDataSet = nme_Clientes then
- aDataSet := nme_Contactos;
-
- Result := inherited GetNextID(aDataSet);
-end;
-
function TDataModuleClientes.NewItem: IBizCliente;
begin
Result := GetItem(ID_NULO)
@@ -143,11 +118,11 @@ end;
function TDataModuleClientes._GetDescuentos: IBizClienteDescuentos;
var
- ADescuentos : TDACDSDataTable;
+ ADescuentos : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- ADescuentos := _CloneDataTable(tbl_ClientesDescuentos);
+ ADescuentos := CloneDataTable(tbl_ClientesDescuentos);
with ADescuentos do
begin
BusinessRulesID := BIZ_CLIENT_CLIENTE_DESCUENTOS;
diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
index f1934dae..28154fde 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
@@ -1,29 +1,42 @@
object DataModuleContactos: TDataModuleContactos
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate
- Height = 420
- Width = 527
+ Height = 309
+ Width = 570
object RORemoteService: TRORemoteService
- Message = ROBinMessage1
- Channel = ROWinInetHTTPChannel1
+ Message = dmConexion.ROMessage
+ Channel = dmConexion.ROChannel
ServiceName = 'srvContactos'
Left = 40
Top = 16
end
- object tbl_Contactos: TDACDSDataTable
+ object rda_Contactos: TDARemoteDataAdapter
+ GetSchemaCall.RemoteService = RORemoteService
+ GetDataCall.RemoteService = RORemoteService
+ UpdateDataCall.RemoteService = RORemoteService
+ GetScriptsCall.RemoteService = RORemoteService
+ RemoteService = RORemoteService
+ DataStreamer = Bin2DataStreamer
+ Left = 43
+ Top = 143
+ end
+ object Bin2DataStreamer: TDABin2DataStreamer
+ Left = 40
+ Top = 72
+ end
+ object tbl_Contactos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_ID'
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
- DisplayLabel = 'Contactos_ID_CATEGORIA'
- DictionaryEntry = 'Contactos_ID_CATEGORIA'
end
item
Name = 'NIF_CIF'
@@ -36,6 +49,7 @@ object DataModuleContactos: TDataModuleContactos
Name = 'NOMBRE'
DataType = datString
Size = 255
+ Required = True
DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE'
end
@@ -50,14 +64,14 @@ object DataModuleContactos: TDataModuleContactos
Name = 'CALLE'
DataType = datString
Size = 255
- DisplayLabel = 'Direcci'#243'n'
+ DisplayLabel = 'Direcci'#195#179'n'
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
- DisplayLabel = 'Poblaci'#243'n'
+ DisplayLabel = 'Poblaci'#195#179'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
@@ -71,7 +85,7 @@ object DataModuleContactos: TDataModuleContactos
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
- DisplayLabel = 'C'#243'digo postal'
+ DisplayLabel = 'C'#195#179'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
@@ -92,7 +106,7 @@ object DataModuleContactos: TDataModuleContactos
Name = 'MOVIL_1'
DataType = datString
Size = 25
- DisplayLabel = 'M'#243'vil'
+ DisplayLabel = 'M'#195#179'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
@@ -136,6 +150,18 @@ object DataModuleContactos: TDataModuleContactos
DisplayLabel = 'Observaciones'
DictionaryEntry = 'Contactos_NOTAS'
end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DisplayLabel = 'Fecha de alta'
+ DictionaryEntry = 'Contactos_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DisplayLabel = 'Fecha de modificaci'#195#179'n'
+ DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
+ end
item
Name = 'USUARIO'
DataType = datString
@@ -146,7 +172,6 @@ object DataModuleContactos: TDataModuleContactos
item
Name = 'ID_EMPRESA'
DataType = datInteger
- DictionaryEntry = 'Contactos_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
@@ -155,30 +180,22 @@ object DataModuleContactos: TDataModuleContactos
DisplayLabel = 'Referencia'
DictionaryEntry = 'Contactos_REFERENCIA'
end>
- Params = <
- item
- Name = 'ID_CATEGORIA'
- DataType = datInteger
- Value = '22'
- ParamType = daptInput
- end>
- MasterMappingMode = mmDataRequest
+ Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Contactos'
- IndexDefs = <>
- Left = 168
+ Left = 176
Top = 16
end
object ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset
DataTable = tbl_Contactos
- Left = 168
- Top = 128
+ Left = 176
+ Top = 80
end
- object tbl_ContactosCategorias: TDACDSDataTable
+ object tbl_ContactosCategorias: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
@@ -191,140 +208,32 @@ object DataModuleContactos: TDataModuleContactos
DataType = datInteger
InPrimaryKey = True
end>
- Params = <
- item
- Name = 'ID_CONTACTO'
- DataType = datInteger
- Value = '444'
- ParamType = daptInput
- end>
- MasterParamsMappings.Strings = (
- 'ID_CONTACTO=ID')
+ Params = <>
+ MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_ContactosCategorias
+ RemoteDataAdapter = rda_Contactos
MasterSource = ds_Contactos
MasterFields = 'ID'
DetailFields = 'ID_CONTACTO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ContactosCategorias'
- IndexDefs = <>
- Left = 288
+ Left = 296
Top = 16
end
object ds_ContactosCategorias: TDADataSource
DataSet = tbl_ContactosCategorias.Dataset
DataTable = tbl_ContactosCategorias
- Left = 288
- Top = 128
+ Left = 296
+ Top = 80
end
- object tbl_DatosBancarios: TDACDSDataTable
- RemoteUpdatesOptions = []
- Fields = <
- item
- Name = 'ID'
- DataType = datAutoInc
- DictionaryEntry = 'DatosBancarios_ID'
- InPrimaryKey = True
- end
- item
- Name = 'ID_CONTACTO'
- DataType = datInteger
- DictionaryEntry = 'DatosBancarios_ID_CONTACTO'
- end
- item
- Name = 'TITULAR'
- DataType = datString
- Size = 255
- DisplayLabel = 'Titular'
- DictionaryEntry = 'DatosBancarios_TITULAR'
- end
- item
- Name = 'ENTIDAD'
- DataType = datString
- Size = 15
- DisplayLabel = 'C'#243'digo de entidad'
- DictionaryEntry = 'DatosBancarios_ENTIDAD'
- end
- item
- Name = 'SUCURSAL'
- DataType = datString
- Size = 15
- DisplayLabel = 'C'#243'digo de sucursal'
- DictionaryEntry = 'DatosBancarios_SUCURSAL'
- end
- item
- Name = 'DC'
- DataType = datString
- Size = 15
- DisplayLabel = 'D'#237'gito de control'
- DictionaryEntry = 'DatosBancarios_DC'
- end
- item
- Name = 'CUENTA'
- DataType = datString
- Size = 15
- DisplayLabel = 'C'#243'digo de cuenta'
- DictionaryEntry = 'DatosBancarios_CUENTA'
- end>
- Params = <
- item
- Name = 'ID_CONTACTO'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end>
- MasterParamsMappings.Strings = (
- 'ID_CONTACTO=ID')
- StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_DatosBancarios
- MasterSource = ds_Contactos
- MasterFields = 'ID'
- DetailFields = 'ID_CONTACTO'
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
- LogicalName = 'DatosBancarios'
- IndexDefs = <>
- Left = 432
- Top = 16
- end
- object ds_DatosBancarios: TDADataSource
- DataSet = tbl_DatosBancarios.Dataset
- DataTable = tbl_DatosBancarios
- Left = 432
- Top = 128
- end
- object DADesigntimeCall1: TDADesigntimeCall
- RemoteService = LoginRemoteService
- Params = <>
- Left = 40
- Top = 176
- end
- object LoginRemoteService: TRORemoteService
- Message = ROBinMessage1
- Channel = ROWinInetHTTPChannel1
- ServiceName = 'srvLogin'
- Left = 40
- Top = 232
- end
- object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
- UserAgent = 'RemObjects SDK'
- TargetURL = 'http://localhost:8099/bin'
- ServerLocators = <>
- DispatchOptions = []
- Left = 40
- Top = 288
- end
- object ROBinMessage1: TROBinMessage
- Left = 40
- Top = 340
- end
- object tbl_DireccionesContacto: TDACDSDataTable
+ object tbl_DireccionesContacto: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_DIR_ID'
DictionaryEntry = 'DireccionesContacto_ID'
InPrimaryKey = True
end
@@ -333,13 +242,6 @@ object DataModuleContactos: TDataModuleContactos
DataType = datInteger
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- DisplayLabel = 'DireccionesContacto_NOMBRE'
- DictionaryEntry = 'DireccionesContacto_NOMBRE'
- end
item
Name = 'CALLE'
DataType = datString
@@ -351,7 +253,7 @@ object DataModuleContactos: TDataModuleContactos
Name = 'POBLACION'
DataType = datString
Size = 255
- DisplayLabel = 'Poblaci'#243'n'
+ DisplayLabel = 'Poblaci'#195#179'n'
DictionaryEntry = 'DireccionesContacto_POBLACION'
end
item
@@ -365,7 +267,7 @@ object DataModuleContactos: TDataModuleContactos
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
- DisplayLabel = 'C'#243'digo postal'
+ DisplayLabel = 'C'#195#179'digo postal'
DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
end
item
@@ -375,18 +277,25 @@ object DataModuleContactos: TDataModuleContactos
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'DireccionesContacto_NOMBRE'
+ DictionaryEntry = 'DireccionesContacto_NOMBRE'
+ end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
- DisplayLabel = 'Tel'#233'fono'
+ DisplayLabel = 'Tel'#195#169'fono'
DictionaryEntry = 'DireccionesContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
- DisplayLabel = 'M'#243'vil'
+ DisplayLabel = 'M'#195#179'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
@@ -414,76 +323,109 @@ object DataModuleContactos: TDataModuleContactos
DataType = datFloat
DisplayLabel = 'Coste del porte'
DictionaryEntry = 'DireccionesContacto_PORTE'
- end>
- Params = <
+ end
item
- Name = 'ID_CONTACTO'
- DataType = datInteger
- Value = '9'
- ParamType = daptInput
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
end>
- MasterParamsMappings.Strings = (
- 'ID_CONTACTO=ID')
+ Params = <>
+ MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_DireccionesContacto
+ RemoteDataAdapter = rda_Contactos
MasterSource = ds_Contactos
MasterFields = 'ID'
DetailFields = 'ID_CONTACTO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DireccionesContacto'
- IndexDefs = <>
- Left = 168
- Top = 208
+ Left = 448
+ Top = 16
end
object ds_DireccionesContacto: TDADataSource
DataSet = tbl_DireccionesContacto.Dataset
DataTable = tbl_DireccionesContacto
- Left = 168
- Top = 264
+ Left = 448
+ Top = 80
end
- object DataStreamer: TDABinDataStreamer
- Left = 40
- Top = 92
+ object tbl_DatosBancarios: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
+ DictionaryEntry = 'DatosBancarios_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_CONTACTO'
+ DataType = datInteger
+ DictionaryEntry = 'DatosBancarios_ID_CONTACTO'
+ end
+ item
+ Name = 'TITULAR'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Titular'
+ DictionaryEntry = 'DatosBancarios_TITULAR'
+ end
+ item
+ Name = 'ENTIDAD'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'C'#195#179'digo de entidad'
+ DictionaryEntry = 'DatosBancarios_ENTIDAD'
+ end
+ item
+ Name = 'SUCURSAL'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'C'#195#179'digo de sucursal'
+ DictionaryEntry = 'DatosBancarios_SUCURSAL'
+ end
+ item
+ Name = 'DC'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'D'#195#173'gito de control'
+ DictionaryEntry = 'DatosBancarios_DC'
+ end
+ item
+ Name = 'CUENTA'
+ DataType = datString
+ Size = 15
+ DisplayLabel = 'C'#195#179'digo de cuenta'
+ DictionaryEntry = 'DatosBancarios_CUENTA'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ end>
+ Params = <>
+ MasterMappingMode = mmWhere
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_Contactos
+ MasterSource = ds_Contactos
+ MasterFields = 'ID'
+ DetailFields = 'ID_CONTACTO'
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'DatosBancarios'
+ Left = 176
+ Top = 168
end
- object rda_Contactos: TDARemoteDataAdapter
- GetSchemaCall.RemoteService = RORemoteService
- GetDataCall.RemoteService = RORemoteService
- UpdateDataCall.RemoteService = RORemoteService
- GetScriptsCall.RemoteService = RORemoteService
- RemoteService = RORemoteService
- DataStreamer = DataStreamer
- Left = 171
- Top = 71
- end
- object rda_ContactosCategorias: TDARemoteDataAdapter
- GetSchemaCall.RemoteService = RORemoteService
- GetDataCall.RemoteService = RORemoteService
- UpdateDataCall.RemoteService = RORemoteService
- GetScriptsCall.RemoteService = RORemoteService
- RemoteService = RORemoteService
- DataStreamer = DataStreamer
- Left = 291
- Top = 71
- end
- object rda_DatosBancarios: TDARemoteDataAdapter
- GetSchemaCall.RemoteService = RORemoteService
- GetDataCall.RemoteService = RORemoteService
- UpdateDataCall.RemoteService = RORemoteService
- GetScriptsCall.RemoteService = RORemoteService
- RemoteService = RORemoteService
- DataStreamer = DataStreamer
- Left = 427
- Top = 71
- end
- object rda_DireccionesContacto: TDARemoteDataAdapter
- GetSchemaCall.RemoteService = RORemoteService
- GetDataCall.RemoteService = RORemoteService
- UpdateDataCall.RemoteService = RORemoteService
- GetScriptsCall.RemoteService = RORemoteService
- RemoteService = RORemoteService
- DataStreamer = DataStreamer
- Left = 171
- Top = 319
+ object ds_DatosBancarios: TDADataSource
+ DataSet = tbl_DatosBancarios.Dataset
+ DataTable = tbl_DatosBancarios
+ Left = 176
+ Top = 232
end
end
diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.pas b/Source/Modulos/Contactos/Data/uDataModuleContactos.pas
index 73097481..cb2a7d16 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleContactos.pas
+++ b/Source/Modulos/Contactos/Data/uDataModuleContactos.pas
@@ -10,38 +10,28 @@ uses
uBizContactos, uBizContactosDatosBancarios, uBizCategoriasContacto,
uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport,
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
- uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter;
+ uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
+ uDAMemDataTable;
type
TDataModuleContactos = class(TDAClientDataModule, IDataModuleContactos, IDataModuleEtiquetasContactosReport)
RORemoteService: TRORemoteService;
- tbl_Contactos: TDACDSDataTable;
- ds_Contactos: TDADataSource;
- tbl_ContactosCategorias: TDACDSDataTable;
- ds_ContactosCategorias: TDADataSource;
- tbl_DatosBancarios: TDACDSDataTable;
- ds_DatosBancarios: TDADataSource;
- DADesigntimeCall1: TDADesigntimeCall;
- LoginRemoteService: TRORemoteService;
- ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
- ROBinMessage1: TROBinMessage;
- tbl_DireccionesContacto: TDACDSDataTable;
- ds_DireccionesContacto: TDADataSource;
- DataStreamer: TDABinDataStreamer;
rda_Contactos: TDARemoteDataAdapter;
- rda_ContactosCategorias: TDARemoteDataAdapter;
- rda_DatosBancarios: TDARemoteDataAdapter;
- rda_DireccionesContacto: TDARemoteDataAdapter;
+ Bin2DataStreamer: TDABin2DataStreamer;
+ tbl_Contactos: TDAMemDataTable;
+ ds_Contactos: TDADataSource;
+ tbl_ContactosCategorias: TDAMemDataTable;
+ ds_ContactosCategorias: TDADataSource;
+ tbl_DireccionesContacto: TDAMemDataTable;
+ ds_DireccionesContacto: TDADataSource;
+ tbl_DatosBancarios: TDAMemDataTable;
+ ds_DatosBancarios: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
- protected
- function _InternalGetNextID(const AGeneratorName : String) : Integer;
public
- function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
function _GetDatosBancarios : IBizContactosDatosBancarios;
function _GetDirecciones: IBizDireccionesContacto;
function _GetCategorias : IBizCategoriasContacto;
function _GetItems (IDCategoria : Integer): IBizContacto; virtual;
- function GetNextID(const DataSetName : String) : Integer; virtual;
// Report
function GetReport(const AContactosID: String): Binary;
@@ -63,49 +53,18 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
-function TDataModuleContactos.GetNextID(const DataSetName: String): Integer;
-var
- aGeneratorName : String;
-begin
- if DataSetName = nme_Contactos then
- aGeneratorName := 'GEN_CONTACTOS_ID';
-
- if DataSetName = nme_DatosBancarios then
- aGeneratorName := 'GEN_CONTACTOS_DATOS_BANCO_ID';
-
- if DataSetName = nme_DireccionesContacto then
- aGeneratorName := 'GEN_CONTACTOS_DIR_ID';
-
- if DataSetName = nme_DireccionesContacto then
- aGeneratorName := 'GEN_CONTACTOS_DIR_ID';
-
- Result := _InternalGetNextID(aGeneratorName);
-end;
-
function TDataModuleContactos.GetReport(const AContactosID: String): Binary;
begin
Result := (RORemoteService as IsrvContactos).GenerateEtiquetasReport(AContactosID);
end;
-function TDataModuleContactos._CloneDataTable(
- const ADataTable : TDACDSDataTable): TDACDSDataTable;
-begin
- Result := NIL;
-
- if not Assigned(ADataTable) then
- raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
-
- Result := TDACDSDataTable.Create(NIL);
- CloneDataTable(ADataTable, Result);
-end;
-
function TDataModuleContactos._GetCategorias: IBizCategoriasContacto;
var
- ACategorias : TDACDSDataTable;
+ ACategorias : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- ACategorias := _CloneDataTable(tbl_ContactosCategorias);
+ ACategorias := CloneDataTable(tbl_ContactosCategorias);
with ACategorias do
begin
BusinessRulesID := BIZ_CLIENT_CATEGORIAS_CONTACTO;
@@ -120,11 +79,11 @@ end;
function TDataModuleContactos._GetDatosBancarios: IBizContactosDatosBancarios;
var
- ADatosBancarios : TDACDSDataTable;
+ ADatosBancarios : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- ADatosBancarios := _CloneDataTable(tbl_DatosBancarios);
+ ADatosBancarios := CloneDataTable(tbl_DatosBancarios);
with ADatosBancarios do
begin
BusinessRulesID := BIZ_CLIENT_CONTACTOS_DATOS_BANCARIOS;
@@ -139,11 +98,11 @@ end;
function TDataModuleContactos._GetDirecciones: IBizDireccionesContacto;
var
- ADirecciones : TDACDSDataTable;
+ ADirecciones : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- ADirecciones := _CloneDataTable(tbl_DireccionesContacto);
+ ADirecciones := CloneDataTable(tbl_DireccionesContacto);
with ADirecciones do
begin
BusinessRulesID := BIZ_CLIENT_DIRECCIONES_CONTACTO;
@@ -158,11 +117,11 @@ end;
function TDataModuleContactos._GetItems(IDCategoria: Integer): IBizContacto;
var
- AContacto : TDACDSDataTable;
+ AContacto : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- AContacto := _CloneDataTable(tbl_Contactos);
+ AContacto := CloneDataTable(tbl_Contactos);
with AContacto do
case IDCategoria of
@@ -184,10 +143,4 @@ begin
end;
end;
-function TDataModuleContactos._InternalGetNextID(
- const AGeneratorName: String): Integer;
-begin
- Result := (RORemoteService as IsrvContactos).GetNextAutoInc(AGeneratorName)
-end;
-
end.
diff --git a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
index ba80b610..1de47cc0 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
@@ -1,587 +1,251 @@
inherited DataModuleEmpleados: TDataModuleEmpleados
- object tbl_Empleados: TDACDSDataTable
+ inherited ds_Contactos: TDADataSource
+ DataSet = tbl_Contactos.Dataset
+ end
+ inherited ds_ContactosCategorias: TDADataSource
+ DataSet = tbl_ContactosCategorias.Dataset
+ end
+ inherited ds_DireccionesContacto: TDADataSource
+ DataSet = tbl_DireccionesContacto.Dataset
+ end
+ inherited ds_DatosBancarios: TDADataSource
+ DataSet = tbl_DatosBancarios.Dataset
+ end
+ object tbl_Empleados: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
+ GeneratorName = 'GEN_CONTACTOS_ID'
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Contactos_ID_CATEGORIA'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_ID_CATEGORIA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'NIF/CIF'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_NIF_CIF'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
+ Required = True
DisplayLabel = 'Nombre'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_NOMBRE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'Direcci'#243'n'
- Alignment = taLeftJustify
- DictionaryEntry = 'Contactos_CALLE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Persona de contacto'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Direcci'#195#179'n'
+ DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'Poblaci'#243'n'
- Alignment = taLeftJustify
+ DisplayLabel = 'Poblaci'#195#179'n'
DictionaryEntry = 'Contactos_POBLACION'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Provincia'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_PROVINCIA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'C'#243'digo postal'
- Alignment = taLeftJustify
+ DisplayLabel = 'C'#195#179'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Tlf. trabajo'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_TELEFONO_1'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Tlf. particular'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_TELEFONO_2'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'M'#243'vil'
- Alignment = taLeftJustify
+ DisplayLabel = 'M'#195#179'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_MOVIL_2'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 25
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Fax'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_FAX'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'E-mail trabajo'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_EMAIL_1'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'E-mail particular'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_EMAIL_2'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Web'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_PAGINA_WEB'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
- DisplayWidth = 0
DisplayLabel = 'Observaciones'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_NOTAS'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Usuario'
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_USUARIO'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
DictionaryEntry = 'Contactos_ID_EMPRESA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Referencia'
- Alignment = taLeftJustify
DictionaryEntry = 'Agentes_REFERENCIA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ end
+ item
+ Name = 'FECHA_NACIMIENTO'
+ DataType = datDateTime
+ DisplayLabel = 'Fecha nacimiento'
+ DictionaryEntry = 'Empleados_FECHA_NACIMIENTO'
end
item
Name = 'CATEGORIA'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'Categor'#237'a'
- Alignment = taLeftJustify
+ DisplayLabel = 'Categor'#195#173'a'
DictionaryEntry = 'Empleados_CATEGORIA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
- end
- item
- Name = 'FECHA_NACIMIENTO'
- DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'Fecha nacimiento'
- Alignment = taLeftJustify
- DictionaryEntry = 'Empleados_FECHA_NACIMIENTO'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'FECHA_ALTA_EMPRESA'
DataType = datDateTime
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Fecha de alta'
- Alignment = taLeftJustify
DictionaryEntry = 'Empleados_FECHA_ALTA_EMPRESA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'FORMACION_BASE'
DataType = datMemo
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'Formaci'#243'n base'
- Alignment = taLeftJustify
+ DisplayLabel = 'Formaci'#195#179'n base'
DictionaryEntry = 'Empleados_FORMACION_BASE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'FORMACION_COMPLE'
DataType = datMemo
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'Formaci'#243'n complementaria'
- Alignment = taLeftJustify
+ DisplayLabel = 'Formaci'#195#179'n complementaria'
DictionaryEntry = 'Empleados_FORMACION_COMPLE'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'FORMACION_RECIBIDA'
DataType = datMemo
- BlobType = dabtUnknown
- DisplayWidth = 0
- DisplayLabel = 'Formaci'#243'n recibida'
- Alignment = taLeftJustify
+ DisplayLabel = 'Formaci'#195#179'n recibida'
DictionaryEntry = 'Empleados_FORMACION_RECIBIDA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end
item
Name = 'EXPERIENCIA'
DataType = datMemo
- BlobType = dabtUnknown
- DisplayWidth = 0
DisplayLabel = 'Experiencia'
- Alignment = taLeftJustify
DictionaryEntry = 'Empleados_EXPERIENCIA'
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
end>
Params = <>
- MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
- SchemaCall.MethodName = 'GetDatasetSchema'
- SchemaCall.Params = <
- item
- Name = 'Result'
- ParamType = fResult
- DataType = rtBinary
- end
- item
- Name = 'aDatasetName'
- ParamType = fIn
- DataType = rtString
- Value = 'Empleados'
- end>
- DataRequestCall.MethodName = 'GetDatasetDataEx'
- DataRequestCall.Params = <
- item
- Name = 'Result'
- ParamType = fResult
- DataType = rtBinary
- end
- item
- Name = 'DatasetName'
- ParamType = fIn
- DataType = rtString
- Value = 'Empleados'
- end
- item
- Name = 'Params'
- ParamType = fIn
- DataType = rtUserDefined
- UserClassName = 'TDADatasetParamArray'
- end
- item
- Name = 'UserFilter'
- ParamType = fIn
- DataType = rtString
- Value = ''
- end
- item
- Name = 'IncludeSchema'
- ParamType = fIn
- DataType = rtBoolean
- Value = False
- end
- item
- Name = 'MaxRecords'
- ParamType = fIn
- DataType = rtInteger
- Value = -1
- end>
- DataUpdateCall.MethodName = 'UpdateData'
- DataUpdateCall.Params = <
- item
- Name = 'Result'
- ParamType = fResult
- DataType = rtBinary
- end
- item
- Name = 'Delta'
- ParamType = fIn
- DataType = rtBinary
- end>
- ScriptCall.MethodName = 'GetDatasetScripts'
- ScriptCall.Params = <
- item
- Name = 'Result'
- ParamType = fResult
- DataType = rtString
- Value = ''
- end
- item
- Name = 'DatasetNames'
- ParamType = fIn
- DataType = rtString
- Value = 'Empleados'
- end>
- ReadOnly = False
- RemoteService = RORemoteService
- Adapter = DABinAdapter
+ RemoteDataAdapter = rda_Contactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Empleados'
- IndexDefs = <>
Left = 296
- Top = 176
+ Top = 168
end
object ds_Empleados: TDADataSource
+ DataSet = tbl_Empleados.Dataset
DataTable = tbl_Empleados
Left = 296
- Top = 248
+ Top = 232
end
- object tbl_GruposEmpleado: TDACDSDataTable
+ object tbl_GruposEmpleado: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
- BlobType = dabtUnknown
- DisplayWidth = 0
- Alignment = taLeftJustify
- InPrimaryKey = False
- Calculated = False
- Lookup = False
- LookupCache = False
+ DisplayLabel = 'Descripci'#195#179'n'
end>
Params = <>
- MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
- SchemaCall.MethodName = 'GetDatasetSchema'
- SchemaCall.Params = <
- item
- Name = 'Result'
- ParamType = fResult
- DataType = rtBinary
- end
- item
- Name = 'aDatasetName'
- ParamType = fIn
- DataType = rtString
- Value = 'GruposEmpleado'
- end>
- DataRequestCall.MethodName = 'GetDatasetDataEx'
- DataRequestCall.Params = <
- item
- Name = 'Result'
- ParamType = fResult
- DataType = rtBinary
- end
- item
- Name = 'DatasetName'
- ParamType = fIn
- DataType = rtString
- Value = 'GruposEmpleado'
- end
- item
- Name = 'Params'
- ParamType = fIn
- DataType = rtUserDefined
- UserClassName = 'TDADatasetParamArray'
- end
- item
- Name = 'UserFilter'
- ParamType = fIn
- DataType = rtString
- Value = ''
- end
- item
- Name = 'IncludeSchema'
- ParamType = fIn
- DataType = rtBoolean
- Value = False
- end
- item
- Name = 'MaxRecords'
- ParamType = fIn
- DataType = rtInteger
- Value = -1
- end>
- DataUpdateCall.MethodName = 'UpdateData'
- DataUpdateCall.Params = <
- item
- Name = 'Result'
- ParamType = fResult
- DataType = rtBinary
- end
- item
- Name = 'Delta'
- ParamType = fIn
- DataType = rtBinary
- end>
- ScriptCall.MethodName = 'GetDatasetScripts'
- ScriptCall.Params = <
- item
- Name = 'Result'
- ParamType = fResult
- DataType = rtString
- Value = ''
- end
- item
- Name = 'DatasetNames'
- ParamType = fIn
- DataType = rtString
- Value = 'GruposEmpleado'
- end>
- ReadOnly = False
- RemoteService = RORemoteService
- Adapter = DABinAdapter
+ RemoteDataAdapter = rda_Contactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'GruposEmpleado'
- IndexDefs = <>
- Left = 432
- Top = 176
+ Left = 448
+ Top = 168
end
object ds_GruposEmpleado: TDADataSource
+ DataSet = tbl_GruposEmpleado.Dataset
DataTable = tbl_GruposEmpleado
- Left = 432
- Top = 248
+ Left = 448
+ Top = 232
end
end
diff --git a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas
index 45f6852e..6a9e3e93 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas
+++ b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas
@@ -7,20 +7,21 @@ uses
Dialogs, uDataModuleContactos, DB, uDADataTable, uDAScriptingProvider,
uDACDSDataTable, uDABINAdapter, uROServiceComponent, uRORemoteService,
uROClient, uROBinMessage, uROWinInetHttpChannel, uBizGruposEmpleado, uROTypes,
- uIDataModuleEmpleados, uBizContactos, uDADesigntimeCall, uIDataModuleFichasEmpleadoReport;
+ uIDataModuleEmpleados, uBizContactos, uDADesigntimeCall, uIDataModuleFichasEmpleadoReport,
+ uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
+ uDARemoteDataAdapter;
type
TDataModuleEmpleados = class(TDataModuleContactos, IDataModuleEmpleados, IDataModuleFichasEmpleadoReport)
- tbl_Empleados: TDACDSDataTable;
+ tbl_Empleados: TDAMemDataTable;
ds_Empleados: TDADataSource;
- tbl_GruposEmpleado: TDACDSDataTable;
+ tbl_GruposEmpleado: TDAMemDataTable;
ds_GruposEmpleado: TDADataSource;
protected
public
function GetItem(const ID : Integer) : IBizEmpleado;
function NewItem : IBizEmpleado;
function GetItems : IBizEmpleado;
- function GetNextID(const DataSetName : String) : Integer; override;
function GetGruposEmpleado : IBizGrupoEmpleado;
// Report
@@ -33,17 +34,17 @@ implementation
{$R *.dfm}
uses
- FactuGES_Intf, cxControls, schContactosClient_Intf, uDAInterfaces, uDataTableUtils;
+ FactuGES_Intf, cxControls, schContactosClient_Intf, uDataTableUtils;
{ TDataModuleVendedores }
function TDataModuleEmpleados.GetGruposEmpleado: IBizGrupoEmpleado;
var
- AGrupoEmpleado : TDACDSDataTable;
+ AGrupoEmpleado : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- AGrupoEmpleado := _CloneDataTable(tbl_GruposEmpleado);
+ AGrupoEmpleado := CloneDataTable(tbl_GruposEmpleado);
AGrupoEmpleado.BusinessRulesID := BIZ_CLIENT_GRUPOSEMPLEADO;
Result := (AGrupoEmpleado as IBizGrupoEmpleado);
finally
@@ -56,13 +57,12 @@ begin
ShowHourglassCursor;
try
Result := Self.GetItems;
- with Result.DataTable.Where do
+ with Result.DataTable.DynamicWhere do
begin
- if NotEmpty then
- AddOperator(opAND);
- OpenBraket;
- AddText(fld_ContactosID + ' = ' + IntToStr(ID));
- CloseBraket;
+ Clear;
+ // (ID = :ID)
+ Expression := NewBinaryExpression(NewField('', fld_ContactosID),
+ NewConstant(ID, datInteger), dboEqual);
end;
finally
HideHourglassCursor;
@@ -71,11 +71,11 @@ end;
function TDataModuleEmpleados.GetItems: IBizEmpleado;
var
- AContacto : TDACDSDataTable;
+ AContacto : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- AContacto := _CloneDataTable(tbl_Empleados);
+ AContacto := CloneDataTable(tbl_Empleados);
AContacto.BusinessRulesID := BIZ_CLIENT_EMPLEADO;
with TBizEmpleado(AContacto.BusinessEventsObj) do
@@ -90,19 +90,6 @@ begin
end;
end;
-function TDataModuleEmpleados.GetNextID(const DataSetName: String): Integer;
-var
- aDataSet : String;
- aGeneratorName : String;
-begin
- aDataSet := DataSetName;
-
- if aDataSet = nme_Empleados then
- aDataSet := nme_Contactos;
-
- Result := inherited GetNextID(aDataSet);
-end;
-
function TDataModuleEmpleados.GetReport(const AFichaID: String): Binary;
begin
Result := (RORemoteService as IsrvContactos).GenerateFichaEmpleadoReport(AFichaID);
diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
index c92bd0c8..a96ad3d2 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
@@ -7,18 +7,43 @@ inherited DataModuleProveedores: TDataModuleProveedores
inherited ds_ContactosCategorias: TDADataSource
DataSet = tbl_ContactosCategorias.Dataset
end
- inherited ds_DatosBancarios: TDADataSource
- DataSet = tbl_DatosBancarios.Dataset
- end
inherited ds_DireccionesContacto: TDADataSource
DataSet = tbl_DireccionesContacto.Dataset
end
- object tbl_Proveedores: TDACDSDataTable
+ inherited ds_DatosBancarios: TDADataSource
+ DataSet = tbl_DatosBancarios.Dataset
+ end
+ object tbl_GruposProveedor: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'DESCRIPCION'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Descripci'#195#179'n'
+ end>
+ Params = <>
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_Contactos
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'GruposProveedor'
+ Left = 448
+ Top = 168
+ end
+ object ds_GruposProveedor: TDADataSource
+ DataSet = tbl_GruposProveedor.Dataset
+ DataTable = tbl_GruposProveedor
+ Left = 448
+ Top = 232
+ end
+ object tbl_Proveedores: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_ID'
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
@@ -39,16 +64,10 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'NOMBRE'
DataType = datString
Size = 255
+ Required = True
DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE'
end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Direcci'#243'n'
- DictionaryEntry = 'Contactos_CALLE'
- end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
@@ -56,11 +75,18 @@ inherited DataModuleProveedores: TDataModuleProveedores
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Direcci'#195#179'n'
+ DictionaryEntry = 'Contactos_CALLE'
+ end
item
Name = 'POBLACION'
DataType = datString
Size = 255
- DisplayLabel = 'Poblaci'#243'n'
+ DisplayLabel = 'Poblaci'#195#179'n'
DictionaryEntry = 'Contactos_POBLACION'
end
item
@@ -74,7 +100,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
- DisplayLabel = 'C'#243'digo postal'
+ DisplayLabel = 'C'#195#179'digo postal'
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
@@ -95,7 +121,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'MOVIL_1'
DataType = datString
Size = 25
- DisplayLabel = 'M'#243'vil'
+ DisplayLabel = 'M'#195#179'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
@@ -139,6 +165,14 @@ inherited DataModuleProveedores: TDataModuleProveedores
DisplayLabel = 'Observaciones'
DictionaryEntry = 'Contactos_NOTAS'
end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ end
item
Name = 'USUARIO'
DataType = datString
@@ -158,28 +192,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
DisplayLabel = 'Referencia'
DictionaryEntry = 'Proveedores_REFERENCIA'
end
- item
- Name = 'ID_TIPO_IVA'
- DataType = datInteger
- DictionaryEntry = 'Proveedores_ID_TIPO_IVA'
- end
- item
- Name = 'REGIMEN_IVA'
- DataType = datString
- Size = 255
- DisplayLabel = 'R'#233'gimen de IVA'
- DictionaryEntry = 'Proveedores_REGIMEN_IVA'
- end
- item
- Name = 'ID_FORMA_PAGO'
- DataType = datInteger
- DictionaryEntry = 'Proveedores_ID_FORMA_PAGO'
- end
- item
- Name = 'TIENDA_WEB'
- DataType = datInteger
- DictionaryEntry = 'Proveedores_TIENDA_WEB'
- end
item
Name = 'DESCUENTO'
DataType = datFloat
@@ -197,12 +209,39 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
- DisplayLabel = 'C'#243'digo asignado'
+ DisplayLabel = 'C'#195#179'digo asignado'
DictionaryEntry = 'Proveedores_CODIGO_ASIGNADO'
end
item
- Name = 'HOMOLOGADO'
+ Name = 'GRUPO_PROVEEDOR'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'REGIMEN_IVA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'R'#195#169'gimen de IVA'
+ DictionaryEntry = 'Proveedores_REGIMEN_IVA'
+ end
+ item
+ Name = 'ID_TIPO_IVA'
DataType = datInteger
+ DictionaryEntry = 'Proveedores_ID_TIPO_IVA'
+ end
+ item
+ Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
+ DictionaryEntry = 'Proveedores_ID_FORMA_PAGO'
+ end
+ item
+ Name = 'TIENDA_WEB'
+ DataType = datSmallInt
+ DictionaryEntry = 'Proveedores_TIENDA_WEB'
+ end
+ item
+ Name = 'HOMOLOGADO'
+ DataType = datSmallInt
DisplayLabel = 'Homologado'
DictionaryEntry = 'Proveedores_HOMOLOGADO'
end
@@ -212,72 +251,20 @@ inherited DataModuleProveedores: TDataModuleProveedores
Size = 255
DisplayLabel = 'Certificaciones'
DictionaryEntry = 'Proveedores_CERTIFICACION'
- end
- item
- Name = 'GRUPO_PROVEEDOR'
- DataType = datString
- Size = 255
end>
Params = <>
- MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_Proveedores
+ RemoteDataAdapter = rda_Contactos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Proveedores'
- IndexDefs = <>
Left = 296
- Top = 184
+ Top = 168
end
object ds_Proveedores: TDADataSource
DataSet = tbl_Proveedores.Dataset
DataTable = tbl_Proveedores
Left = 296
- Top = 320
- end
- object tbl_GruposProveedor: TDACDSDataTable
- RemoteUpdatesOptions = []
- Fields = <
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 255
- end>
- Params = <>
- MasterMappingMode = mmDataRequest
- StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_GruposProveedor
- DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
- MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
- LogicalName = 'GruposProveedor'
- IndexDefs = <>
- Left = 424
- Top = 184
- end
- object ds_GruposProveedor: TDADataSource
- DataSet = tbl_GruposProveedor.Dataset
- DataTable = tbl_GruposProveedor
- Left = 432
- Top = 320
- end
- object rda_Proveedores: TDARemoteDataAdapter
- GetSchemaCall.RemoteService = RORemoteService
- GetDataCall.RemoteService = RORemoteService
- UpdateDataCall.RemoteService = RORemoteService
- GetScriptsCall.RemoteService = RORemoteService
- RemoteService = RORemoteService
- DataStreamer = DataStreamer
- Left = 299
- Top = 255
- end
- object rda_GruposProveedor: TDARemoteDataAdapter
- GetSchemaCall.RemoteService = RORemoteService
- GetDataCall.RemoteService = RORemoteService
- UpdateDataCall.RemoteService = RORemoteService
- GetScriptsCall.RemoteService = RORemoteService
- RemoteService = RORemoteService
- DataStreamer = DataStreamer
- Left = 427
- Top = 255
+ Top = 232
end
end
diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas b/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas
index 9acc034d..110fa7e6 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas
+++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas
@@ -9,22 +9,20 @@ uses
uROClient, uROBinMessage, uROWinInetHttpChannel, uBizGruposProveedor,
uIDataModuleProveedores, uBizContactos, uDADesigntimeCall,
- uDARemoteDataAdapter, uDADataStreamer, uRODynamicRequest, uDAInterfaces;
+ uDARemoteDataAdapter, uDADataStreamer, uRODynamicRequest, uDAInterfaces,
+ uDAMemDataTable, uDABin2DataStreamer;
type
TDataModuleProveedores = class(TDataModuleContactos, IDataModuleProveedores)
- tbl_Proveedores: TDACDSDataTable;
- ds_Proveedores: TDADataSource;
- tbl_GruposProveedor: TDACDSDataTable;
+ tbl_GruposProveedor: TDAMemDataTable;
ds_GruposProveedor: TDADataSource;
- rda_Proveedores: TDARemoteDataAdapter;
- rda_GruposProveedor: TDARemoteDataAdapter;
+ tbl_Proveedores: TDAMemDataTable;
+ ds_Proveedores: TDADataSource;
public
function GetItem(const ID : Integer) : IBizProveedor;
function NewItem : IBizProveedor;
function GetItems : IBizProveedor;
function GetItemsTiendaWeb : IBizProveedor;
- function GetNextID(const DataSetName : String) : Integer; override;
function GetGruposProveedor : IBizGrupoProveedor;
end;
@@ -39,11 +37,11 @@ uses
function TDataModuleProveedores.GetGruposProveedor: IBizGrupoProveedor;
var
- AGrupoProveedor : TDACDSDataTable;
+ AGrupoProveedor : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- AGrupoProveedor := _CloneDataTable(tbl_GruposProveedor);
+ AGrupoProveedor := CloneDataTable(tbl_GruposProveedor);
AGrupoProveedor.BusinessRulesID := BIZ_CLIENT_GRUPOSPROVEEDOR;
Result := (AGrupoProveedor as IBizGrupoProveedor);
finally
@@ -71,11 +69,11 @@ end;
function TDataModuleProveedores.GetItems: IBizProveedor;
var
- AContacto : TDACDSDataTable;
+ AContacto : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- AContacto := _CloneDataTable(tbl_Proveedores);
+ AContacto := CloneDataTable(tbl_Proveedores);
AContacto.BusinessRulesID := BIZ_CLIENT_PROVEEDOR;
with TBizProveedor(AContacto.BusinessEventsObj) do
@@ -96,30 +94,18 @@ begin
ShowHourglassCursor;
try
Result := Self.GetItems;
- with Result.DataTable.Where do
+ with Result.DataTable.DynamicWhere do
begin
- if NotEmpty then
- AddOperator(opAND);
- OpenBraket;
- AddText(fld_ProveedoresTIENDA_WEB + ' = 1');
- CloseBraket;
+ Clear;
+ // (TIENDA_WEB = 1)
+ Expression := NewBinaryExpression(NewField('', fld_ProveedoresTIENDA_WEB),
+ NewConstant(1, datInteger), dboEqual);
end;
finally
HideHourglassCursor;
end;
end;
-function TDataModuleProveedores.GetNextID(const DataSetName: String): Integer;
-var
- aDataSet : String;
-begin
- aDataSet := DataSetName;
- if aDataSet = nme_Proveedores then
- aDataSet := nme_Contactos;
-
- Result := inherited GetNextID(aDataSet);
-end;
-
function TDataModuleProveedores.NewItem: IBizProveedor;
begin
Result := GetItem(ID_NULO)
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dpk b/Source/Modulos/Contactos/Model/Contactos_model.dpk
index b7d5e659..e7e35338 100644
--- a/Source/Modulos/Contactos/Model/Contactos_model.dpk
+++ b/Source/Modulos/Contactos/Model/Contactos_model.dpk
@@ -43,10 +43,11 @@ contains
uBizClientesDescuentos in 'uBizClientesDescuentos.pas',
uRegimenIVAUtils in '..\Utiles\uRegimenIVAUtils.pas',
uBizGruposCliente in 'uBizGruposCliente.pas',
- schContactosClient_Intf in 'schContactosClient_Intf.pas',
uBizGruposEmpleado in 'uBizGruposEmpleado.pas',
uBizGruposProveedor in 'uBizGruposProveedor.pas',
uIDataModuleFichasEmpleadoReport in 'Data\uIDataModuleFichasEmpleadoReport.pas',
- uIDataModuleEtiquetasContactosReport in 'Data\uIDataModuleEtiquetasContactosReport.pas';
+ uIDataModuleEtiquetasContactosReport in 'Data\uIDataModuleEtiquetasContactosReport.pas',
+ schContactosClient_Intf in 'schContactosClient_Intf.pas',
+ schContactosServer_Intf in 'schContactosServer_Intf.pas';
end.
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dproj b/Source/Modulos/Contactos/Model/Contactos_model.dproj
index 4e90043f..3fc7f62b 100644
--- a/Source/Modulos/Contactos/Model/Contactos_model.dproj
+++ b/Source/Modulos/Contactos/Model/Contactos_model.dproj
@@ -42,8 +42,7 @@
Delphi.Personality
Package
-FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
-Contactos_model.dpk
+FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contactos_model.dpk
@@ -51,13 +50,17 @@
MainSource
+
+
+
+
@@ -66,5 +69,491 @@
+
+
+
+
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.drc b/Source/Modulos/Contactos/Model/Contactos_model.drc
index 0e1b1a86..1ed95bba 100644
--- a/Source/Modulos/Contactos/Model/Contactos_model.drc
+++ b/Source/Modulos/Contactos/Model/Contactos_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf22B.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.drf */
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.res b/Source/Modulos/Contactos/Model/Contactos_model.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Contactos/Model/Contactos_model.res and b/Source/Modulos/Contactos/Model/Contactos_model.res differ
diff --git a/Source/Modulos/Contactos/Model/Data/uIDataModuleContactos.pas b/Source/Modulos/Contactos/Model/Data/uIDataModuleContactos.pas
index 66a21778..4e610357 100644
--- a/Source/Modulos/Contactos/Model/Data/uIDataModuleContactos.pas
+++ b/Source/Modulos/Contactos/Model/Data/uIDataModuleContactos.pas
@@ -11,7 +11,6 @@ type
['{835FFC4D-1AE9-4020-A042-C9D84EC25A2C}']
function _GetItems (IDCategoria : Integer): IBizContacto;
function _GetDatosBancarios : IBizContactosDatosBancarios;
- function GetNextID(const DataSetName : String) : Integer;
end;
implementation
diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index ed5fc7a4..379c18f7 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -3,23 +3,23 @@ unit schContactosClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDADataTable;
+ Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
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 = '{4702B17F-2C8C-4EDB-951F-501A4B940F9D}';
- RID_GruposCliente = '{12028CAB-36D8-48CA-9154-325B58403561}';
- RID_DatosBancarios = '{E2BFD8E8-37C6-4E91-A66E-5021A52A0229}';
- RID_ContactosCategorias = '{A0AE66D8-6E9D-47C4-BC56-3584B21BE55A}';
- RID_Clientes = '{4A4AA93F-8EE6-4967-8046-E19791A0EEC1}';
- RID_Proveedores = '{DC04F4C0-A1A4-41A3-9E00-C8DB73300D35}';
- RID_Empleados = '{19D88701-7312-4C3B-87FB-79C5060AB9EC}';
- RID_DireccionesContacto = '{9E3FAF78-7E14-43F3-875F-87BF6EA34C0B}';
- RID_ClientesDescuentos = '{00A7347D-BC94-43F1-BE47-EB33FECA3941}';
- RID_GruposProveedor = '{74F8D1EC-C607-48A3-92CE-14266EB1D056}';
- RID_GruposEmpleado = '{C8376B2F-DC19-4DB9-9992-3A744251ED6D}';
+ RID_Contactos = '{F35BFAF2-6DD6-466B-A98B-A77F3A0D0298}';
+ RID_GruposCliente = '{9A75B818-B4E9-4720-991F-C509D70C9372}';
+ RID_DatosBancarios = '{4B3A338B-49F7-463E-9D6F-81635B9AC6A1}';
+ RID_ContactosCategorias = '{B03B35AA-4BC3-4CAE-96E0-7E859F269FB7}';
+ RID_Clientes = '{AE94D0B7-5F7D-457B-9C57-52EF423CED48}';
+ RID_Proveedores = '{EF7494A7-8862-490C-AF30-53E3A8245C4D}';
+ RID_Empleados = '{2667AF21-2E62-48F8-A5FF-D5F146112027}';
+ RID_DireccionesContacto = '{45DAA21F-A3A4-4D55-AEB6-85728920EAB6}';
+ RID_ClientesDescuentos = '{9E5940A2-E10D-4599-A30F-E50E15949DF7}';
+ RID_GruposProveedor = '{FEF739C5-13CB-4026-A848-2D4A5F79C636}';
+ RID_GruposEmpleado = '{5E35F022-493D-4B8C-91FD-E472CFABE9D1}';
{ Data table names }
nme_Contactos = 'Contactos';
@@ -53,6 +53,8 @@ const
fld_ContactosEMAIL_2 = 'EMAIL_2';
fld_ContactosPAGINA_WEB = 'PAGINA_WEB';
fld_ContactosNOTAS = 'NOTAS';
+ fld_ContactosFECHA_ALTA = 'FECHA_ALTA';
+ fld_ContactosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ContactosUSUARIO = 'USUARIO';
fld_ContactosID_EMPRESA = 'ID_EMPRESA';
fld_ContactosREFERENCIA = 'REFERENCIA';
@@ -76,9 +78,11 @@ const
idx_ContactosEMAIL_2 = 15;
idx_ContactosPAGINA_WEB = 16;
idx_ContactosNOTAS = 17;
- idx_ContactosUSUARIO = 18;
- idx_ContactosID_EMPRESA = 19;
- idx_ContactosREFERENCIA = 20;
+ idx_ContactosFECHA_ALTA = 18;
+ idx_ContactosFECHA_MODIFICACION = 19;
+ idx_ContactosUSUARIO = 20;
+ idx_ContactosID_EMPRESA = 21;
+ idx_ContactosREFERENCIA = 22;
{ GruposCliente fields }
fld_GruposClienteDESCRIPCION = 'DESCRIPCION';
@@ -94,6 +98,8 @@ const
fld_DatosBancariosSUCURSAL = 'SUCURSAL';
fld_DatosBancariosDC = 'DC';
fld_DatosBancariosCUENTA = 'CUENTA';
+ fld_DatosBancariosFECHA_ALTA = 'FECHA_ALTA';
+ fld_DatosBancariosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
{ DatosBancarios field indexes }
idx_DatosBancariosID = 0;
@@ -103,6 +109,8 @@ const
idx_DatosBancariosSUCURSAL = 4;
idx_DatosBancariosDC = 5;
idx_DatosBancariosCUENTA = 6;
+ idx_DatosBancariosFECHA_ALTA = 7;
+ idx_DatosBancariosFECHA_MODIFICACION = 8;
{ ContactosCategorias fields }
fld_ContactosCategoriasID_CONTACTO = 'ID_CONTACTO';
@@ -117,8 +125,8 @@ const
fld_ClientesID_CATEGORIA = 'ID_CATEGORIA';
fld_ClientesNIF_CIF = 'NIF_CIF';
fld_ClientesNOMBRE = 'NOMBRE';
- fld_ClientesCALLE = 'CALLE';
fld_ClientesPERSONA_CONTACTO = 'PERSONA_CONTACTO';
+ fld_ClientesCALLE = 'CALLE';
fld_ClientesPOBLACION = 'POBLACION';
fld_ClientesPROVINCIA = 'PROVINCIA';
fld_ClientesCODIGO_POSTAL = 'CODIGO_POSTAL';
@@ -131,27 +139,29 @@ const
fld_ClientesEMAIL_2 = 'EMAIL_2';
fld_ClientesPAGINA_WEB = 'PAGINA_WEB';
fld_ClientesNOTAS = 'NOTAS';
+ fld_ClientesFECHA_ALTA = 'FECHA_ALTA';
+ fld_ClientesFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ClientesUSUARIO = 'USUARIO';
fld_ClientesID_EMPRESA = 'ID_EMPRESA';
fld_ClientesREFERENCIA = 'REFERENCIA';
- fld_ClientesID_TIPO_IVA = 'ID_TIPO_IVA';
- fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA';
- fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO';
- fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
- fld_ClientesRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_ClientesVENCIMIENTO_FACTURAS = 'VENCIMIENTO_FACTURAS';
fld_ClientesBLOQUEADO = 'BLOQUEADO';
+ fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA';
fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO';
+ fld_ClientesRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
+ fld_ClientesID_TIPO_IVA = 'ID_TIPO_IVA';
+ fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO';
+ fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
{ Clientes field indexes }
idx_ClientesID = 0;
idx_ClientesID_CATEGORIA = 1;
idx_ClientesNIF_CIF = 2;
idx_ClientesNOMBRE = 3;
- idx_ClientesCALLE = 4;
- idx_ClientesPERSONA_CONTACTO = 5;
+ idx_ClientesPERSONA_CONTACTO = 4;
+ idx_ClientesCALLE = 5;
idx_ClientesPOBLACION = 6;
idx_ClientesPROVINCIA = 7;
idx_ClientesCODIGO_POSTAL = 8;
@@ -164,27 +174,29 @@ const
idx_ClientesEMAIL_2 = 15;
idx_ClientesPAGINA_WEB = 16;
idx_ClientesNOTAS = 17;
- idx_ClientesUSUARIO = 18;
- idx_ClientesID_EMPRESA = 19;
- idx_ClientesREFERENCIA = 20;
- idx_ClientesID_TIPO_IVA = 21;
- idx_ClientesREGIMEN_IVA = 22;
- idx_ClientesID_FORMA_PAGO = 23;
- idx_ClientesTIENDA_WEB = 24;
- idx_ClientesRECARGO_EQUIVALENCIA = 25;
- idx_ClientesGRUPO_CLIENTE = 26;
- idx_ClientesNOMBRE_COMERCIAL = 27;
- idx_ClientesVENCIMIENTO_FACTURAS = 28;
- idx_ClientesBLOQUEADO = 29;
- idx_ClientesMOTIVO_BLOQUEO = 30;
+ idx_ClientesFECHA_ALTA = 18;
+ idx_ClientesFECHA_MODIFICACION = 19;
+ idx_ClientesUSUARIO = 20;
+ idx_ClientesID_EMPRESA = 21;
+ idx_ClientesREFERENCIA = 22;
+ idx_ClientesGRUPO_CLIENTE = 23;
+ idx_ClientesNOMBRE_COMERCIAL = 24;
+ idx_ClientesVENCIMIENTO_FACTURAS = 25;
+ idx_ClientesBLOQUEADO = 26;
+ idx_ClientesREGIMEN_IVA = 27;
+ idx_ClientesMOTIVO_BLOQUEO = 28;
+ idx_ClientesRECARGO_EQUIVALENCIA = 29;
+ idx_ClientesID_TIPO_IVA = 30;
+ idx_ClientesID_FORMA_PAGO = 31;
+ idx_ClientesTIENDA_WEB = 32;
{ Proveedores fields }
fld_ProveedoresID = 'ID';
fld_ProveedoresID_CATEGORIA = 'ID_CATEGORIA';
fld_ProveedoresNIF_CIF = 'NIF_CIF';
fld_ProveedoresNOMBRE = 'NOMBRE';
- fld_ProveedoresCALLE = 'CALLE';
fld_ProveedoresPERSONA_CONTACTO = 'PERSONA_CONTACTO';
+ fld_ProveedoresCALLE = 'CALLE';
fld_ProveedoresPOBLACION = 'POBLACION';
fld_ProveedoresPROVINCIA = 'PROVINCIA';
fld_ProveedoresCODIGO_POSTAL = 'CODIGO_POSTAL';
@@ -197,27 +209,29 @@ const
fld_ProveedoresEMAIL_2 = 'EMAIL_2';
fld_ProveedoresPAGINA_WEB = 'PAGINA_WEB';
fld_ProveedoresNOTAS = 'NOTAS';
+ fld_ProveedoresFECHA_ALTA = 'FECHA_ALTA';
+ fld_ProveedoresFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ProveedoresUSUARIO = 'USUARIO';
fld_ProveedoresID_EMPRESA = 'ID_EMPRESA';
fld_ProveedoresREFERENCIA = 'REFERENCIA';
- fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA';
- fld_ProveedoresREGIMEN_IVA = 'REGIMEN_IVA';
- fld_ProveedoresID_FORMA_PAGO = 'ID_FORMA_PAGO';
- fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB';
fld_ProveedoresDESCUENTO = 'DESCUENTO';
fld_ProveedoresDESCRIPCION_PROVEEDOR = 'DESCRIPCION_PROVEEDOR';
fld_ProveedoresCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
+ fld_ProveedoresGRUPO_PROVEEDOR = 'GRUPO_PROVEEDOR';
+ fld_ProveedoresREGIMEN_IVA = 'REGIMEN_IVA';
+ fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA';
+ fld_ProveedoresID_FORMA_PAGO = 'ID_FORMA_PAGO';
+ fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB';
fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO';
fld_ProveedoresCERTIFICACION = 'CERTIFICACION';
- fld_ProveedoresGRUPO_PROVEEDOR = 'GRUPO_PROVEEDOR';
{ Proveedores field indexes }
idx_ProveedoresID = 0;
idx_ProveedoresID_CATEGORIA = 1;
idx_ProveedoresNIF_CIF = 2;
idx_ProveedoresNOMBRE = 3;
- idx_ProveedoresCALLE = 4;
- idx_ProveedoresPERSONA_CONTACTO = 5;
+ idx_ProveedoresPERSONA_CONTACTO = 4;
+ idx_ProveedoresCALLE = 5;
idx_ProveedoresPOBLACION = 6;
idx_ProveedoresPROVINCIA = 7;
idx_ProveedoresCODIGO_POSTAL = 8;
@@ -230,27 +244,29 @@ const
idx_ProveedoresEMAIL_2 = 15;
idx_ProveedoresPAGINA_WEB = 16;
idx_ProveedoresNOTAS = 17;
- idx_ProveedoresUSUARIO = 18;
- idx_ProveedoresID_EMPRESA = 19;
- idx_ProveedoresREFERENCIA = 20;
- idx_ProveedoresID_TIPO_IVA = 21;
- idx_ProveedoresREGIMEN_IVA = 22;
- idx_ProveedoresID_FORMA_PAGO = 23;
- idx_ProveedoresTIENDA_WEB = 24;
- idx_ProveedoresDESCUENTO = 25;
- idx_ProveedoresDESCRIPCION_PROVEEDOR = 26;
- idx_ProveedoresCODIGO_ASIGNADO = 27;
- idx_ProveedoresHOMOLOGADO = 28;
- idx_ProveedoresCERTIFICACION = 29;
- idx_ProveedoresGRUPO_PROVEEDOR = 30;
+ idx_ProveedoresFECHA_ALTA = 18;
+ idx_ProveedoresFECHA_MODIFICACION = 19;
+ idx_ProveedoresUSUARIO = 20;
+ idx_ProveedoresID_EMPRESA = 21;
+ idx_ProveedoresREFERENCIA = 22;
+ idx_ProveedoresDESCUENTO = 23;
+ idx_ProveedoresDESCRIPCION_PROVEEDOR = 24;
+ idx_ProveedoresCODIGO_ASIGNADO = 25;
+ idx_ProveedoresGRUPO_PROVEEDOR = 26;
+ idx_ProveedoresREGIMEN_IVA = 27;
+ idx_ProveedoresID_TIPO_IVA = 28;
+ idx_ProveedoresID_FORMA_PAGO = 29;
+ idx_ProveedoresTIENDA_WEB = 30;
+ idx_ProveedoresHOMOLOGADO = 31;
+ idx_ProveedoresCERTIFICACION = 32;
{ Empleados fields }
fld_EmpleadosID = 'ID';
fld_EmpleadosID_CATEGORIA = 'ID_CATEGORIA';
fld_EmpleadosNIF_CIF = 'NIF_CIF';
fld_EmpleadosNOMBRE = 'NOMBRE';
- fld_EmpleadosCALLE = 'CALLE';
fld_EmpleadosPERSONA_CONTACTO = 'PERSONA_CONTACTO';
+ fld_EmpleadosCALLE = 'CALLE';
fld_EmpleadosPOBLACION = 'POBLACION';
fld_EmpleadosPROVINCIA = 'PROVINCIA';
fld_EmpleadosCODIGO_POSTAL = 'CODIGO_POSTAL';
@@ -263,11 +279,13 @@ const
fld_EmpleadosEMAIL_2 = 'EMAIL_2';
fld_EmpleadosPAGINA_WEB = 'PAGINA_WEB';
fld_EmpleadosNOTAS = 'NOTAS';
+ fld_EmpleadosFECHA_ALTA = 'FECHA_ALTA';
+ fld_EmpleadosFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_EmpleadosUSUARIO = 'USUARIO';
fld_EmpleadosID_EMPRESA = 'ID_EMPRESA';
fld_EmpleadosREFERENCIA = 'REFERENCIA';
- fld_EmpleadosCATEGORIA = 'CATEGORIA';
fld_EmpleadosFECHA_NACIMIENTO = 'FECHA_NACIMIENTO';
+ fld_EmpleadosCATEGORIA = 'CATEGORIA';
fld_EmpleadosFECHA_ALTA_EMPRESA = 'FECHA_ALTA_EMPRESA';
fld_EmpleadosFORMACION_BASE = 'FORMACION_BASE';
fld_EmpleadosFORMACION_COMPLE = 'FORMACION_COMPLE';
@@ -279,8 +297,8 @@ const
idx_EmpleadosID_CATEGORIA = 1;
idx_EmpleadosNIF_CIF = 2;
idx_EmpleadosNOMBRE = 3;
- idx_EmpleadosCALLE = 4;
- idx_EmpleadosPERSONA_CONTACTO = 5;
+ idx_EmpleadosPERSONA_CONTACTO = 4;
+ idx_EmpleadosCALLE = 5;
idx_EmpleadosPOBLACION = 6;
idx_EmpleadosPROVINCIA = 7;
idx_EmpleadosCODIGO_POSTAL = 8;
@@ -293,48 +311,54 @@ const
idx_EmpleadosEMAIL_2 = 15;
idx_EmpleadosPAGINA_WEB = 16;
idx_EmpleadosNOTAS = 17;
- idx_EmpleadosUSUARIO = 18;
- idx_EmpleadosID_EMPRESA = 19;
- idx_EmpleadosREFERENCIA = 20;
- idx_EmpleadosCATEGORIA = 21;
- idx_EmpleadosFECHA_NACIMIENTO = 22;
- idx_EmpleadosFECHA_ALTA_EMPRESA = 23;
- idx_EmpleadosFORMACION_BASE = 24;
- idx_EmpleadosFORMACION_COMPLE = 25;
- idx_EmpleadosFORMACION_RECIBIDA = 26;
- idx_EmpleadosEXPERIENCIA = 27;
+ idx_EmpleadosFECHA_ALTA = 18;
+ idx_EmpleadosFECHA_MODIFICACION = 19;
+ idx_EmpleadosUSUARIO = 20;
+ idx_EmpleadosID_EMPRESA = 21;
+ idx_EmpleadosREFERENCIA = 22;
+ idx_EmpleadosFECHA_NACIMIENTO = 23;
+ idx_EmpleadosCATEGORIA = 24;
+ idx_EmpleadosFECHA_ALTA_EMPRESA = 25;
+ idx_EmpleadosFORMACION_BASE = 26;
+ idx_EmpleadosFORMACION_COMPLE = 27;
+ idx_EmpleadosFORMACION_RECIBIDA = 28;
+ idx_EmpleadosEXPERIENCIA = 29;
{ DireccionesContacto fields }
fld_DireccionesContactoID = 'ID';
fld_DireccionesContactoID_CONTACTO = 'ID_CONTACTO';
- fld_DireccionesContactoNOMBRE = 'NOMBRE';
fld_DireccionesContactoCALLE = 'CALLE';
fld_DireccionesContactoPOBLACION = 'POBLACION';
fld_DireccionesContactoPROVINCIA = 'PROVINCIA';
fld_DireccionesContactoCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_DireccionesContactoPERSONA_CONTACTO = 'PERSONA_CONTACTO';
+ fld_DireccionesContactoNOMBRE = 'NOMBRE';
fld_DireccionesContactoTELEFONO = 'TELEFONO';
fld_DireccionesContactoMOVIL = 'MOVIL';
fld_DireccionesContactoFAX = 'FAX';
fld_DireccionesContactoEMAIL = 'EMAIL';
fld_DireccionesContactoNOTAS = 'NOTAS';
fld_DireccionesContactoPORTE = 'PORTE';
+ fld_DireccionesContactoFECHA_ALTA = 'FECHA_ALTA';
+ fld_DireccionesContactoFECHA_MODIFICACION = 'FECHA_MODIFICACION';
{ DireccionesContacto field indexes }
idx_DireccionesContactoID = 0;
idx_DireccionesContactoID_CONTACTO = 1;
- idx_DireccionesContactoNOMBRE = 2;
- idx_DireccionesContactoCALLE = 3;
- idx_DireccionesContactoPOBLACION = 4;
- idx_DireccionesContactoPROVINCIA = 5;
- idx_DireccionesContactoCODIGO_POSTAL = 6;
- idx_DireccionesContactoPERSONA_CONTACTO = 7;
+ idx_DireccionesContactoCALLE = 2;
+ idx_DireccionesContactoPOBLACION = 3;
+ idx_DireccionesContactoPROVINCIA = 4;
+ idx_DireccionesContactoCODIGO_POSTAL = 5;
+ idx_DireccionesContactoPERSONA_CONTACTO = 6;
+ idx_DireccionesContactoNOMBRE = 7;
idx_DireccionesContactoTELEFONO = 8;
idx_DireccionesContactoMOVIL = 9;
idx_DireccionesContactoFAX = 10;
idx_DireccionesContactoEMAIL = 11;
idx_DireccionesContactoNOTAS = 12;
idx_DireccionesContactoPORTE = 13;
+ idx_DireccionesContactoFECHA_ALTA = 14;
+ idx_DireccionesContactoFECHA_MODIFICACION = 15;
{ ClientesDescuentos fields }
fld_ClientesDescuentosID = 'ID';
@@ -365,146 +389,296 @@ const
type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
- ['{F396F244-2087-46CA-B562-068C32F5925F}']
+ ['{0AF3A2A7-BD97-4BA9-B308-4D9778D14050}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
function GetID_CATEGORIAValue: Integer;
procedure SetID_CATEGORIAValue(const aValue: Integer);
+ function GetID_CATEGORIAIsNull: Boolean;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
+ function GetNIF_CIFIsNull: Boolean;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
+ function GetNOMBREIsNull: Boolean;
+ procedure SetNOMBREIsNull(const aValue: Boolean);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
+ function GetPERSONA_CONTACTOIsNull: Boolean;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String);
+ function GetCALLEIsNull: Boolean;
+ procedure SetCALLEIsNull(const aValue: Boolean);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
+ function GetPOBLACIONIsNull: Boolean;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
+ function GetPROVINCIAIsNull: Boolean;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
+ function GetCODIGO_POSTALIsNull: Boolean;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
function GetTELEFONO_1Value: String;
procedure SetTELEFONO_1Value(const aValue: String);
+ function GetTELEFONO_1IsNull: Boolean;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean);
function GetTELEFONO_2Value: String;
procedure SetTELEFONO_2Value(const aValue: String);
+ function GetTELEFONO_2IsNull: Boolean;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean);
function GetMOVIL_1Value: String;
procedure SetMOVIL_1Value(const aValue: String);
+ function GetMOVIL_1IsNull: Boolean;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean);
function GetMOVIL_2Value: String;
procedure SetMOVIL_2Value(const aValue: String);
+ function GetMOVIL_2IsNull: Boolean;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean);
function GetFAXValue: String;
procedure SetFAXValue(const aValue: String);
+ function GetFAXIsNull: Boolean;
+ procedure SetFAXIsNull(const aValue: Boolean);
function GetEMAIL_1Value: String;
procedure SetEMAIL_1Value(const aValue: String);
+ function GetEMAIL_1IsNull: Boolean;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean);
function GetEMAIL_2Value: String;
procedure SetEMAIL_2Value(const aValue: String);
+ function GetEMAIL_2IsNull: Boolean;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean);
function GetPAGINA_WEBValue: String;
procedure SetPAGINA_WEBValue(const aValue: String);
+ function GetPAGINA_WEBIsNull: Boolean;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean);
function GetNOTASValue: IROStrings;
- procedure SetNOTASValue(const aValue: IROStrings);
+ function GetNOTASIsNull: Boolean;
+ procedure SetNOTASIsNull(const aValue: Boolean);
+ function GetFECHA_ALTAValue: DateTime;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime);
+ function GetFECHA_ALTAIsNull: Boolean;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+ function GetFECHA_MODIFICACIONValue: DateTime;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+ function GetFECHA_MODIFICACIONIsNull: Boolean;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
+ function GetUSUARIOIsNull: Boolean;
+ procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
+ function GetID_EMPRESAIsNull: Boolean;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property FAX: String read GetFAXValue write SetFAXValue;
+ property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue;
+ property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+ property NOTAS: IROStrings read GetNOTASValue;
+ property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
end;
{ TContactosDataTableRules }
TContactosDataTableRules = class(TDADataTableRules, IContactos)
private
+ f_NOTAS: IROStrings;
+ procedure NOTAS_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+ function GetID_CATEGORIAIsNull: Boolean; virtual;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONO_1Value: String; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
+ function GetTELEFONO_1IsNull: Boolean; virtual;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
function GetTELEFONO_2Value: String; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
+ function GetTELEFONO_2IsNull: Boolean; virtual;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
function GetMOVIL_1Value: String; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
+ function GetMOVIL_1IsNull: Boolean; virtual;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
function GetMOVIL_2Value: String; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
+ function GetMOVIL_2IsNull: Boolean; virtual;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
+ function GetFAXIsNull: Boolean; virtual;
+ procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
+ function GetEMAIL_1IsNull: Boolean; virtual;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
function GetEMAIL_2Value: String; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
+ function GetEMAIL_2IsNull: Boolean; virtual;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
function GetPAGINA_WEBValue: String; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
+ function GetPAGINA_WEBIsNull: Boolean; virtual;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
function GetNOTASValue: IROStrings; virtual;
- procedure SetNOTASValue(const aValue: IROStrings); virtual;
+ function GetNOTASIsNull: Boolean; virtual;
+ procedure SetNOTASIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property FAX: String read GetFAXValue write SetFAXValue;
+ property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue;
+ property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+ property NOTAS: IROStrings read GetNOTASValue;
+ property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -514,14 +688,17 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
- ['{1FFF80FA-0CE6-4907-A25E-582E1724B293}']
+ ['{BF3CBA8D-14FB-4780-B103-7235FCF48D8F}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
+ function GetDESCRIPCIONIsNull: Boolean;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TGruposClienteDataTableRules }
@@ -531,9 +708,12 @@ type
{ Property getters and setters }
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -543,32 +723,65 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
- ['{F87D0636-602D-472C-90BD-8A8F6F783944}']
+ ['{02D44CDC-6117-4F4C-8908-88237588DA02}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer);
+ function GetID_CONTACTOIsNull: Boolean;
+ procedure SetID_CONTACTOIsNull(const aValue: Boolean);
function GetTITULARValue: String;
procedure SetTITULARValue(const aValue: String);
+ function GetTITULARIsNull: Boolean;
+ procedure SetTITULARIsNull(const aValue: Boolean);
function GetENTIDADValue: String;
procedure SetENTIDADValue(const aValue: String);
+ function GetENTIDADIsNull: Boolean;
+ procedure SetENTIDADIsNull(const aValue: Boolean);
function GetSUCURSALValue: String;
procedure SetSUCURSALValue(const aValue: String);
+ function GetSUCURSALIsNull: Boolean;
+ procedure SetSUCURSALIsNull(const aValue: Boolean);
function GetDCValue: String;
procedure SetDCValue(const aValue: String);
+ function GetDCIsNull: Boolean;
+ procedure SetDCIsNull(const aValue: Boolean);
function GetCUENTAValue: String;
procedure SetCUENTAValue(const aValue: String);
+ function GetCUENTAIsNull: Boolean;
+ procedure SetCUENTAIsNull(const aValue: Boolean);
+ function GetFECHA_ALTAValue: DateTime;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime);
+ function GetFECHA_ALTAIsNull: Boolean;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+ function GetFECHA_MODIFICACIONValue: DateTime;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+ function GetFECHA_MODIFICACIONIsNull: Boolean;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
+ property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property TITULAR: String read GetTITULARValue write SetTITULARValue;
+ property TITULARIsNull: Boolean read GetTITULARIsNull write SetTITULARIsNull;
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
+ property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
+ property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
property DC: String read GetDCValue write SetDCValue;
+ property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
+ property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
end;
{ TDatosBancariosDataTableRules }
@@ -578,27 +791,60 @@ type
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
+ function GetID_CONTACTOIsNull: Boolean; virtual;
+ procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetTITULARValue: String; virtual;
procedure SetTITULARValue(const aValue: String); virtual;
+ function GetTITULARIsNull: Boolean; virtual;
+ procedure SetTITULARIsNull(const aValue: Boolean); virtual;
function GetENTIDADValue: String; virtual;
procedure SetENTIDADValue(const aValue: String); virtual;
+ function GetENTIDADIsNull: Boolean; virtual;
+ procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
function GetSUCURSALValue: String; virtual;
procedure SetSUCURSALValue(const aValue: String); virtual;
+ function GetSUCURSALIsNull: Boolean; virtual;
+ procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
function GetDCValue: String; virtual;
procedure SetDCValue(const aValue: String); virtual;
+ function GetDCIsNull: Boolean; virtual;
+ procedure SetDCIsNull(const aValue: Boolean); virtual;
function GetCUENTAValue: String; virtual;
procedure SetCUENTAValue(const aValue: String); virtual;
+ function GetCUENTAIsNull: Boolean; virtual;
+ procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
+ property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property TITULAR: String read GetTITULARValue write SetTITULARValue;
+ property TITULARIsNull: Boolean read GetTITULARIsNull write SetTITULARIsNull;
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
+ property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
+ property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
property DC: String read GetDCValue write SetDCValue;
+ property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
+ property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -608,17 +854,23 @@ type
{ IContactosCategorias }
IContactosCategorias = interface(IDAStronglyTypedDataTable)
- ['{D8DCDA8D-996F-446C-8241-E02D41DDEB09}']
+ ['{010B7381-CFA0-40AC-92A7-CBF4E77B1C98}']
{ Property getters and setters }
function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer);
+ function GetID_CONTACTOIsNull: Boolean;
+ procedure SetID_CONTACTOIsNull(const aValue: Boolean);
function GetID_CATEGORIAValue: Integer;
procedure SetID_CATEGORIAValue(const aValue: Integer);
+ function GetID_CATEGORIAIsNull: Boolean;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean);
{ Properties }
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
+ property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
end;
{ TContactosCategoriasDataTableRules }
@@ -628,12 +880,18 @@ type
{ Property getters and setters }
function GetID_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
+ function GetID_CONTACTOIsNull: Boolean; virtual;
+ procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+ function GetID_CATEGORIAIsNull: Boolean; virtual;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
+ property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -643,206 +901,416 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
- ['{A6D726D9-A0A4-4F7B-B8BD-BCAE0B982891}']
+ ['{B6D72E77-9FF3-4628-9E95-A2199A762683}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
function GetID_CATEGORIAValue: Integer;
procedure SetID_CATEGORIAValue(const aValue: Integer);
+ function GetID_CATEGORIAIsNull: Boolean;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
+ function GetNIF_CIFIsNull: Boolean;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
- function GetCALLEValue: String;
- procedure SetCALLEValue(const aValue: String);
+ function GetNOMBREIsNull: Boolean;
+ procedure SetNOMBREIsNull(const aValue: Boolean);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
+ function GetPERSONA_CONTACTOIsNull: Boolean;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+ function GetCALLEValue: String;
+ procedure SetCALLEValue(const aValue: String);
+ function GetCALLEIsNull: Boolean;
+ procedure SetCALLEIsNull(const aValue: Boolean);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
+ function GetPOBLACIONIsNull: Boolean;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
+ function GetPROVINCIAIsNull: Boolean;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
+ function GetCODIGO_POSTALIsNull: Boolean;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
function GetTELEFONO_1Value: String;
procedure SetTELEFONO_1Value(const aValue: String);
+ function GetTELEFONO_1IsNull: Boolean;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean);
function GetTELEFONO_2Value: String;
procedure SetTELEFONO_2Value(const aValue: String);
+ function GetTELEFONO_2IsNull: Boolean;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean);
function GetMOVIL_1Value: String;
procedure SetMOVIL_1Value(const aValue: String);
+ function GetMOVIL_1IsNull: Boolean;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean);
function GetMOVIL_2Value: String;
procedure SetMOVIL_2Value(const aValue: String);
+ function GetMOVIL_2IsNull: Boolean;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean);
function GetFAXValue: String;
procedure SetFAXValue(const aValue: String);
+ function GetFAXIsNull: Boolean;
+ procedure SetFAXIsNull(const aValue: Boolean);
function GetEMAIL_1Value: String;
procedure SetEMAIL_1Value(const aValue: String);
+ function GetEMAIL_1IsNull: Boolean;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean);
function GetEMAIL_2Value: String;
procedure SetEMAIL_2Value(const aValue: String);
+ function GetEMAIL_2IsNull: Boolean;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean);
function GetPAGINA_WEBValue: String;
procedure SetPAGINA_WEBValue(const aValue: String);
+ function GetPAGINA_WEBIsNull: Boolean;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean);
function GetNOTASValue: IROStrings;
- procedure SetNOTASValue(const aValue: IROStrings);
+ function GetNOTASIsNull: Boolean;
+ procedure SetNOTASIsNull(const aValue: Boolean);
+ function GetFECHA_ALTAValue: DateTime;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime);
+ function GetFECHA_ALTAIsNull: Boolean;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+ function GetFECHA_MODIFICACIONValue: DateTime;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+ function GetFECHA_MODIFICACIONIsNull: Boolean;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
+ function GetUSUARIOIsNull: Boolean;
+ procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
+ function GetID_EMPRESAIsNull: Boolean;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
- function GetID_TIPO_IVAValue: Integer;
- procedure SetID_TIPO_IVAValue(const aValue: Integer);
- function GetREGIMEN_IVAValue: String;
- procedure SetREGIMEN_IVAValue(const aValue: String);
- function GetID_FORMA_PAGOValue: Integer;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer);
- function GetTIENDA_WEBValue: Integer;
- procedure SetTIENDA_WEBValue(const aValue: Integer);
- function GetRECARGO_EQUIVALENCIAValue: Integer;
- procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetGRUPO_CLIENTEValue: String;
procedure SetGRUPO_CLIENTEValue(const aValue: String);
+ function GetGRUPO_CLIENTEIsNull: Boolean;
+ procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
+ function GetNOMBRE_COMERCIALIsNull: Boolean;
+ procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
function GetVENCIMIENTO_FACTURASValue: Integer;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
- function GetBLOQUEADOValue: Integer;
- procedure SetBLOQUEADOValue(const aValue: Integer);
+ function GetVENCIMIENTO_FACTURASIsNull: Boolean;
+ procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean);
+ function GetBLOQUEADOValue: SmallInt;
+ procedure SetBLOQUEADOValue(const aValue: SmallInt);
+ function GetBLOQUEADOIsNull: Boolean;
+ procedure SetBLOQUEADOIsNull(const aValue: Boolean);
+ function GetREGIMEN_IVAValue: String;
+ procedure SetREGIMEN_IVAValue(const aValue: String);
+ function GetREGIMEN_IVAIsNull: Boolean;
+ procedure SetREGIMEN_IVAIsNull(const aValue: Boolean);
function GetMOTIVO_BLOQUEOValue: String;
procedure SetMOTIVO_BLOQUEOValue(const aValue: String);
+ function GetMOTIVO_BLOQUEOIsNull: Boolean;
+ procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean);
+ function GetRECARGO_EQUIVALENCIAValue: Integer;
+ procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
+ function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
+ procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+ function GetID_TIPO_IVAValue: Integer;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer);
+ function GetID_TIPO_IVAIsNull: Boolean;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean);
+ function GetID_FORMA_PAGOValue: Integer;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer);
+ function GetID_FORMA_PAGOIsNull: Boolean;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+ function GetTIENDA_WEBValue: SmallInt;
+ procedure SetTIENDA_WEBValue(const aValue: SmallInt);
+ function GetTIENDA_WEBIsNull: Boolean;
+ procedure SetTIENDA_WEBIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+ property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property FAX: String read GetFAXValue write SetFAXValue;
+ property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue;
+ property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+ property NOTAS: IROStrings read GetNOTASValue;
+ property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
- property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
- property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
- property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
+ property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+ property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
- property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
+ property VENCIMIENTO_FACTURASIsNull: Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull;
+ property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
+ property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
+ property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
+ property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
+ property MOTIVO_BLOQUEOIsNull: Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
+ property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+ property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ 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;
end;
{ TClientesDataTableRules }
TClientesDataTableRules = class(TDADataTableRules, IClientes)
private
+ f_NOTAS: IROStrings;
+ procedure NOTAS_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+ function GetID_CATEGORIAIsNull: Boolean; virtual;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
- function GetCALLEValue: String; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONO_1Value: String; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
+ function GetTELEFONO_1IsNull: Boolean; virtual;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
function GetTELEFONO_2Value: String; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
+ function GetTELEFONO_2IsNull: Boolean; virtual;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
function GetMOVIL_1Value: String; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
+ function GetMOVIL_1IsNull: Boolean; virtual;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
function GetMOVIL_2Value: String; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
+ function GetMOVIL_2IsNull: Boolean; virtual;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
+ function GetFAXIsNull: Boolean; virtual;
+ procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
+ function GetEMAIL_1IsNull: Boolean; virtual;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
function GetEMAIL_2Value: String; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
+ function GetEMAIL_2IsNull: Boolean; virtual;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
function GetPAGINA_WEBValue: String; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
+ function GetPAGINA_WEBIsNull: Boolean; virtual;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
function GetNOTASValue: IROStrings; virtual;
- procedure SetNOTASValue(const aValue: IROStrings); virtual;
+ function GetNOTASIsNull: Boolean; virtual;
+ procedure SetNOTASIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetID_TIPO_IVAValue: Integer; virtual;
- procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
- function GetREGIMEN_IVAValue: String; virtual;
- procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
- function GetID_FORMA_PAGOValue: Integer; virtual;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
- function GetTIENDA_WEBValue: Integer; virtual;
- procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
- function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
- procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetGRUPO_CLIENTEValue: String; virtual;
procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
+ function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
+ procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+ function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+ procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURASValue: Integer; virtual;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual;
- function GetBLOQUEADOValue: Integer; virtual;
- procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
+ function GetVENCIMIENTO_FACTURASIsNull: Boolean; virtual;
+ procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); virtual;
+ function GetBLOQUEADOValue: SmallInt; virtual;
+ procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
+ function GetBLOQUEADOIsNull: Boolean; virtual;
+ procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual;
+ function GetREGIMEN_IVAValue: String; virtual;
+ procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
+ function GetREGIMEN_IVAIsNull: Boolean; virtual;
+ procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual;
function GetMOTIVO_BLOQUEOValue: String; virtual;
procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual;
+ function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual;
+ procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual;
+ function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
+ procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
+ function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+ procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_IVAValue: Integer; virtual;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+ function GetID_TIPO_IVAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+ function GetID_FORMA_PAGOValue: Integer; virtual;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+ function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetTIENDA_WEBValue: SmallInt; virtual;
+ procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
+ function GetTIENDA_WEBIsNull: Boolean; virtual;
+ procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+ property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property FAX: String read GetFAXValue write SetFAXValue;
+ property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue;
+ property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+ property NOTAS: IROStrings read GetNOTASValue;
+ property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
- property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
- property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
- property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
+ property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+ property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
- property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
+ property VENCIMIENTO_FACTURASIsNull: Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull;
+ property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
+ property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
+ property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
+ property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
+ property MOTIVO_BLOQUEOIsNull: Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
+ property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+ property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ 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;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -852,206 +1320,416 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
- ['{3B317406-09C8-4CBA-B708-F2C52CFEAB09}']
+ ['{CC67B15D-1E20-40DD-B37C-DB7C039D7657}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
function GetID_CATEGORIAValue: Integer;
procedure SetID_CATEGORIAValue(const aValue: Integer);
+ function GetID_CATEGORIAIsNull: Boolean;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
+ function GetNIF_CIFIsNull: Boolean;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
- function GetCALLEValue: String;
- procedure SetCALLEValue(const aValue: String);
+ function GetNOMBREIsNull: Boolean;
+ procedure SetNOMBREIsNull(const aValue: Boolean);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
+ function GetPERSONA_CONTACTOIsNull: Boolean;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+ function GetCALLEValue: String;
+ procedure SetCALLEValue(const aValue: String);
+ function GetCALLEIsNull: Boolean;
+ procedure SetCALLEIsNull(const aValue: Boolean);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
+ function GetPOBLACIONIsNull: Boolean;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
+ function GetPROVINCIAIsNull: Boolean;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
+ function GetCODIGO_POSTALIsNull: Boolean;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
function GetTELEFONO_1Value: String;
procedure SetTELEFONO_1Value(const aValue: String);
+ function GetTELEFONO_1IsNull: Boolean;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean);
function GetTELEFONO_2Value: String;
procedure SetTELEFONO_2Value(const aValue: String);
+ function GetTELEFONO_2IsNull: Boolean;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean);
function GetMOVIL_1Value: String;
procedure SetMOVIL_1Value(const aValue: String);
+ function GetMOVIL_1IsNull: Boolean;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean);
function GetMOVIL_2Value: String;
procedure SetMOVIL_2Value(const aValue: String);
+ function GetMOVIL_2IsNull: Boolean;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean);
function GetFAXValue: String;
procedure SetFAXValue(const aValue: String);
+ function GetFAXIsNull: Boolean;
+ procedure SetFAXIsNull(const aValue: Boolean);
function GetEMAIL_1Value: String;
procedure SetEMAIL_1Value(const aValue: String);
+ function GetEMAIL_1IsNull: Boolean;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean);
function GetEMAIL_2Value: String;
procedure SetEMAIL_2Value(const aValue: String);
+ function GetEMAIL_2IsNull: Boolean;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean);
function GetPAGINA_WEBValue: String;
procedure SetPAGINA_WEBValue(const aValue: String);
+ function GetPAGINA_WEBIsNull: Boolean;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean);
function GetNOTASValue: IROStrings;
- procedure SetNOTASValue(const aValue: IROStrings);
+ function GetNOTASIsNull: Boolean;
+ procedure SetNOTASIsNull(const aValue: Boolean);
+ function GetFECHA_ALTAValue: DateTime;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime);
+ function GetFECHA_ALTAIsNull: Boolean;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+ function GetFECHA_MODIFICACIONValue: DateTime;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+ function GetFECHA_MODIFICACIONIsNull: Boolean;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
+ function GetUSUARIOIsNull: Boolean;
+ procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
+ function GetID_EMPRESAIsNull: Boolean;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
- function GetID_TIPO_IVAValue: Integer;
- procedure SetID_TIPO_IVAValue(const aValue: Integer);
- function GetREGIMEN_IVAValue: String;
- procedure SetREGIMEN_IVAValue(const aValue: String);
- function GetID_FORMA_PAGOValue: Integer;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer);
- function GetTIENDA_WEBValue: Integer;
- procedure SetTIENDA_WEBValue(const aValue: Integer);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
+ function GetDESCUENTOIsNull: Boolean;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
+ function GetDESCRIPCION_PROVEEDORIsNull: Boolean;
+ procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean);
function GetCODIGO_ASIGNADOValue: String;
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
- function GetHOMOLOGADOValue: Integer;
- procedure SetHOMOLOGADOValue(const aValue: Integer);
- function GetCERTIFICACIONValue: String;
- procedure SetCERTIFICACIONValue(const aValue: String);
+ function GetCODIGO_ASIGNADOIsNull: Boolean;
+ procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
function GetGRUPO_PROVEEDORValue: String;
procedure SetGRUPO_PROVEEDORValue(const aValue: String);
+ function GetGRUPO_PROVEEDORIsNull: Boolean;
+ procedure SetGRUPO_PROVEEDORIsNull(const aValue: Boolean);
+ function GetREGIMEN_IVAValue: String;
+ procedure SetREGIMEN_IVAValue(const aValue: String);
+ function GetREGIMEN_IVAIsNull: Boolean;
+ procedure SetREGIMEN_IVAIsNull(const aValue: Boolean);
+ function GetID_TIPO_IVAValue: Integer;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer);
+ function GetID_TIPO_IVAIsNull: Boolean;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean);
+ function GetID_FORMA_PAGOValue: Integer;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer);
+ function GetID_FORMA_PAGOIsNull: Boolean;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+ function GetTIENDA_WEBValue: SmallInt;
+ procedure SetTIENDA_WEBValue(const aValue: SmallInt);
+ function GetTIENDA_WEBIsNull: Boolean;
+ procedure SetTIENDA_WEBIsNull(const aValue: Boolean);
+ function GetHOMOLOGADOValue: SmallInt;
+ procedure SetHOMOLOGADOValue(const aValue: SmallInt);
+ function GetHOMOLOGADOIsNull: Boolean;
+ procedure SetHOMOLOGADOIsNull(const aValue: Boolean);
+ function GetCERTIFICACIONValue: String;
+ procedure SetCERTIFICACIONValue(const aValue: String);
+ function GetCERTIFICACIONIsNull: Boolean;
+ procedure SetCERTIFICACIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+ property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property FAX: String read GetFAXValue write SetFAXValue;
+ property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue;
+ property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+ property NOTAS: IROStrings read GetNOTASValue;
+ property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
- property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
- property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
+ property DESCRIPCION_PROVEEDORIsNull: Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull;
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
- property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
- property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
+ property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
+ property GRUPO_PROVEEDORIsNull: Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull;
+ property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
+ property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
+ property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ 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 HOMOLOGADO: SmallInt read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
+ property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
+ property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
+ property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
end;
{ TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
private
+ f_NOTAS: IROStrings;
+ procedure NOTAS_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+ function GetID_CATEGORIAIsNull: Boolean; virtual;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
- function GetCALLEValue: String; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONO_1Value: String; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
+ function GetTELEFONO_1IsNull: Boolean; virtual;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
function GetTELEFONO_2Value: String; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
+ function GetTELEFONO_2IsNull: Boolean; virtual;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
function GetMOVIL_1Value: String; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
+ function GetMOVIL_1IsNull: Boolean; virtual;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
function GetMOVIL_2Value: String; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
+ function GetMOVIL_2IsNull: Boolean; virtual;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
+ function GetFAXIsNull: Boolean; virtual;
+ procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
+ function GetEMAIL_1IsNull: Boolean; virtual;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
function GetEMAIL_2Value: String; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
+ function GetEMAIL_2IsNull: Boolean; virtual;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
function GetPAGINA_WEBValue: String; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
+ function GetPAGINA_WEBIsNull: Boolean; virtual;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
function GetNOTASValue: IROStrings; virtual;
- procedure SetNOTASValue(const aValue: IROStrings); virtual;
+ function GetNOTASIsNull: Boolean; virtual;
+ procedure SetNOTASIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetID_TIPO_IVAValue: Integer; virtual;
- procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
- function GetREGIMEN_IVAValue: String; virtual;
- procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
- function GetID_FORMA_PAGOValue: Integer; virtual;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
- function GetTIENDA_WEBValue: Integer; virtual;
- procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCION_PROVEEDORValue: String; virtual;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual;
+ function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
+ procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCODIGO_ASIGNADOValue: String; virtual;
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
- function GetHOMOLOGADOValue: Integer; virtual;
- procedure SetHOMOLOGADOValue(const aValue: Integer); virtual;
- function GetCERTIFICACIONValue: String; virtual;
- procedure SetCERTIFICACIONValue(const aValue: String); virtual;
+ function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
+ procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
function GetGRUPO_PROVEEDORValue: String; virtual;
procedure SetGRUPO_PROVEEDORValue(const aValue: String); virtual;
+ function GetGRUPO_PROVEEDORIsNull: Boolean; virtual;
+ procedure SetGRUPO_PROVEEDORIsNull(const aValue: Boolean); virtual;
+ function GetREGIMEN_IVAValue: String; virtual;
+ procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
+ function GetREGIMEN_IVAIsNull: Boolean; virtual;
+ procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_IVAValue: Integer; virtual;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+ function GetID_TIPO_IVAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+ function GetID_FORMA_PAGOValue: Integer; virtual;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+ function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetTIENDA_WEBValue: SmallInt; virtual;
+ procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
+ function GetTIENDA_WEBIsNull: Boolean; virtual;
+ procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
+ function GetHOMOLOGADOValue: SmallInt; virtual;
+ procedure SetHOMOLOGADOValue(const aValue: SmallInt); virtual;
+ function GetHOMOLOGADOIsNull: Boolean; virtual;
+ procedure SetHOMOLOGADOIsNull(const aValue: Boolean); virtual;
+ function GetCERTIFICACIONValue: String; virtual;
+ procedure SetCERTIFICACIONValue(const aValue: String); virtual;
+ function GetCERTIFICACIONIsNull: Boolean; virtual;
+ procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+ property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property FAX: String read GetFAXValue write SetFAXValue;
+ property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue;
+ property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+ property NOTAS: IROStrings read GetNOTASValue;
+ property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
- property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
- property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
+ property DESCRIPCION_PROVEEDORIsNull: Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull;
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
- property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
- property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
+ property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
+ property GRUPO_PROVEEDORIsNull: Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull;
+ property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
+ property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
+ property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ 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 HOMOLOGADO: SmallInt read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
+ property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
+ property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
+ property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1061,188 +1739,380 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
- ['{0A5A325E-1A87-439B-A785-60E26CCD025D}']
+ ['{2D895F0C-8780-4841-984B-6D12200D49AD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
function GetID_CATEGORIAValue: Integer;
procedure SetID_CATEGORIAValue(const aValue: Integer);
+ function GetID_CATEGORIAIsNull: Boolean;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean);
function GetNIF_CIFValue: String;
procedure SetNIF_CIFValue(const aValue: String);
+ function GetNIF_CIFIsNull: Boolean;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
- function GetCALLEValue: String;
- procedure SetCALLEValue(const aValue: String);
+ function GetNOMBREIsNull: Boolean;
+ procedure SetNOMBREIsNull(const aValue: Boolean);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
+ function GetPERSONA_CONTACTOIsNull: Boolean;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+ function GetCALLEValue: String;
+ procedure SetCALLEValue(const aValue: String);
+ function GetCALLEIsNull: Boolean;
+ procedure SetCALLEIsNull(const aValue: Boolean);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
+ function GetPOBLACIONIsNull: Boolean;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
+ function GetPROVINCIAIsNull: Boolean;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
+ function GetCODIGO_POSTALIsNull: Boolean;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
function GetTELEFONO_1Value: String;
procedure SetTELEFONO_1Value(const aValue: String);
+ function GetTELEFONO_1IsNull: Boolean;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean);
function GetTELEFONO_2Value: String;
procedure SetTELEFONO_2Value(const aValue: String);
+ function GetTELEFONO_2IsNull: Boolean;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean);
function GetMOVIL_1Value: String;
procedure SetMOVIL_1Value(const aValue: String);
+ function GetMOVIL_1IsNull: Boolean;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean);
function GetMOVIL_2Value: String;
procedure SetMOVIL_2Value(const aValue: String);
+ function GetMOVIL_2IsNull: Boolean;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean);
function GetFAXValue: String;
procedure SetFAXValue(const aValue: String);
+ function GetFAXIsNull: Boolean;
+ procedure SetFAXIsNull(const aValue: Boolean);
function GetEMAIL_1Value: String;
procedure SetEMAIL_1Value(const aValue: String);
+ function GetEMAIL_1IsNull: Boolean;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean);
function GetEMAIL_2Value: String;
procedure SetEMAIL_2Value(const aValue: String);
+ function GetEMAIL_2IsNull: Boolean;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean);
function GetPAGINA_WEBValue: String;
procedure SetPAGINA_WEBValue(const aValue: String);
+ function GetPAGINA_WEBIsNull: Boolean;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean);
function GetNOTASValue: IROStrings;
- procedure SetNOTASValue(const aValue: IROStrings);
+ function GetNOTASIsNull: Boolean;
+ procedure SetNOTASIsNull(const aValue: Boolean);
+ function GetFECHA_ALTAValue: DateTime;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime);
+ function GetFECHA_ALTAIsNull: Boolean;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+ function GetFECHA_MODIFICACIONValue: DateTime;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+ function GetFECHA_MODIFICACIONIsNull: Boolean;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
+ function GetUSUARIOIsNull: Boolean;
+ procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
+ function GetID_EMPRESAIsNull: Boolean;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
- function GetCATEGORIAValue: String;
- procedure SetCATEGORIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetFECHA_NACIMIENTOValue: DateTime;
procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime);
+ function GetFECHA_NACIMIENTOIsNull: Boolean;
+ procedure SetFECHA_NACIMIENTOIsNull(const aValue: Boolean);
+ function GetCATEGORIAValue: String;
+ procedure SetCATEGORIAValue(const aValue: String);
+ function GetCATEGORIAIsNull: Boolean;
+ procedure SetCATEGORIAIsNull(const aValue: Boolean);
function GetFECHA_ALTA_EMPRESAValue: DateTime;
procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime);
+ function GetFECHA_ALTA_EMPRESAIsNull: Boolean;
+ procedure SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean);
function GetFORMACION_BASEValue: IROStrings;
- procedure SetFORMACION_BASEValue(const aValue: IROStrings);
+ function GetFORMACION_BASEIsNull: Boolean;
+ procedure SetFORMACION_BASEIsNull(const aValue: Boolean);
function GetFORMACION_COMPLEValue: IROStrings;
- procedure SetFORMACION_COMPLEValue(const aValue: IROStrings);
+ function GetFORMACION_COMPLEIsNull: Boolean;
+ procedure SetFORMACION_COMPLEIsNull(const aValue: Boolean);
function GetFORMACION_RECIBIDAValue: IROStrings;
- procedure SetFORMACION_RECIBIDAValue(const aValue: IROStrings);
+ function GetFORMACION_RECIBIDAIsNull: Boolean;
+ procedure SetFORMACION_RECIBIDAIsNull(const aValue: Boolean);
function GetEXPERIENCIAValue: IROStrings;
- procedure SetEXPERIENCIAValue(const aValue: IROStrings);
+ function GetEXPERIENCIAIsNull: Boolean;
+ procedure SetEXPERIENCIAIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+ property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property FAX: String read GetFAXValue write SetFAXValue;
+ property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue;
+ property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+ property NOTAS: IROStrings read GetNOTASValue;
+ property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_NACIMIENTO: DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue;
+ property FECHA_NACIMIENTOIsNull: Boolean read GetFECHA_NACIMIENTOIsNull write SetFECHA_NACIMIENTOIsNull;
+ property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue;
+ property CATEGORIAIsNull: Boolean read GetCATEGORIAIsNull write SetCATEGORIAIsNull;
property FECHA_ALTA_EMPRESA: DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue;
- property FORMACION_BASE: IROStrings read GetFORMACION_BASEValue write SetFORMACION_BASEValue;
- property FORMACION_COMPLE: IROStrings read GetFORMACION_COMPLEValue write SetFORMACION_COMPLEValue;
- property FORMACION_RECIBIDA: IROStrings read GetFORMACION_RECIBIDAValue write SetFORMACION_RECIBIDAValue;
- property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue write SetEXPERIENCIAValue;
+ property FECHA_ALTA_EMPRESAIsNull: Boolean read GetFECHA_ALTA_EMPRESAIsNull write SetFECHA_ALTA_EMPRESAIsNull;
+ property FORMACION_BASE: IROStrings read GetFORMACION_BASEValue;
+ property FORMACION_BASEIsNull: Boolean read GetFORMACION_BASEIsNull write SetFORMACION_BASEIsNull;
+ property FORMACION_COMPLE: IROStrings read GetFORMACION_COMPLEValue;
+ property FORMACION_COMPLEIsNull: Boolean read GetFORMACION_COMPLEIsNull write SetFORMACION_COMPLEIsNull;
+ property FORMACION_RECIBIDA: IROStrings read GetFORMACION_RECIBIDAValue;
+ property FORMACION_RECIBIDAIsNull: Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull;
+ property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue;
+ property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
end;
{ TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
private
+ f_NOTAS: IROStrings;
+ f_FORMACION_BASE: IROStrings;
+ f_FORMACION_COMPLE: IROStrings;
+ f_FORMACION_RECIBIDA: IROStrings;
+ f_EXPERIENCIA: IROStrings;
+ procedure NOTAS_OnChange(Sender: TObject);
+ procedure FORMACION_BASE_OnChange(Sender: TObject);
+ procedure FORMACION_COMPLE_OnChange(Sender: TObject);
+ procedure FORMACION_RECIBIDA_OnChange(Sender: TObject);
+ procedure EXPERIENCIA_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+ function GetID_CATEGORIAIsNull: Boolean; virtual;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
- function GetCALLEValue: String; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONO_1Value: String; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
+ function GetTELEFONO_1IsNull: Boolean; virtual;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
function GetTELEFONO_2Value: String; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
+ function GetTELEFONO_2IsNull: Boolean; virtual;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
function GetMOVIL_1Value: String; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
+ function GetMOVIL_1IsNull: Boolean; virtual;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
function GetMOVIL_2Value: String; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
+ function GetMOVIL_2IsNull: Boolean; virtual;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
+ function GetFAXIsNull: Boolean; virtual;
+ procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAIL_1Value: String; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
+ function GetEMAIL_1IsNull: Boolean; virtual;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
function GetEMAIL_2Value: String; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
+ function GetEMAIL_2IsNull: Boolean; virtual;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
function GetPAGINA_WEBValue: String; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
+ function GetPAGINA_WEBIsNull: Boolean; virtual;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
function GetNOTASValue: IROStrings; virtual;
- procedure SetNOTASValue(const aValue: IROStrings); virtual;
+ function GetNOTASIsNull: Boolean; virtual;
+ procedure SetNOTASIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetCATEGORIAValue: String; virtual;
- procedure SetCATEGORIAValue(const aValue: String); virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_NACIMIENTOValue: DateTime; virtual;
procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); virtual;
+ function GetFECHA_NACIMIENTOIsNull: Boolean; virtual;
+ procedure SetFECHA_NACIMIENTOIsNull(const aValue: Boolean); virtual;
+ function GetCATEGORIAValue: String; virtual;
+ procedure SetCATEGORIAValue(const aValue: String); virtual;
+ function GetCATEGORIAIsNull: Boolean; virtual;
+ procedure SetCATEGORIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTA_EMPRESAValue: DateTime; virtual;
procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); virtual;
+ function GetFECHA_ALTA_EMPRESAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetFORMACION_BASEValue: IROStrings; virtual;
- procedure SetFORMACION_BASEValue(const aValue: IROStrings); virtual;
+ function GetFORMACION_BASEIsNull: Boolean; virtual;
+ procedure SetFORMACION_BASEIsNull(const aValue: Boolean); virtual;
function GetFORMACION_COMPLEValue: IROStrings; virtual;
- procedure SetFORMACION_COMPLEValue(const aValue: IROStrings); virtual;
+ function GetFORMACION_COMPLEIsNull: Boolean; virtual;
+ procedure SetFORMACION_COMPLEIsNull(const aValue: Boolean); virtual;
function GetFORMACION_RECIBIDAValue: IROStrings; virtual;
- procedure SetFORMACION_RECIBIDAValue(const aValue: IROStrings); virtual;
+ function GetFORMACION_RECIBIDAIsNull: Boolean; virtual;
+ procedure SetFORMACION_RECIBIDAIsNull(const aValue: Boolean); virtual;
function GetEXPERIENCIAValue: IROStrings; virtual;
- procedure SetEXPERIENCIAValue(const aValue: IROStrings); virtual;
+ function GetEXPERIENCIAIsNull: Boolean; virtual;
+ procedure SetEXPERIENCIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+ property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property FAX: String read GetFAXValue write SetFAXValue;
+ property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue;
+ property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
+ property NOTAS: IROStrings read GetNOTASValue;
+ property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_NACIMIENTO: DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue;
+ property FECHA_NACIMIENTOIsNull: Boolean read GetFECHA_NACIMIENTOIsNull write SetFECHA_NACIMIENTOIsNull;
+ property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue;
+ property CATEGORIAIsNull: Boolean read GetCATEGORIAIsNull write SetCATEGORIAIsNull;
property FECHA_ALTA_EMPRESA: DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue;
- property FORMACION_BASE: IROStrings read GetFORMACION_BASEValue write SetFORMACION_BASEValue;
- property FORMACION_COMPLE: IROStrings read GetFORMACION_COMPLEValue write SetFORMACION_COMPLEValue;
- property FORMACION_RECIBIDA: IROStrings read GetFORMACION_RECIBIDAValue write SetFORMACION_RECIBIDAValue;
- property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue write SetEXPERIENCIAValue;
+ property FECHA_ALTA_EMPRESAIsNull: Boolean read GetFECHA_ALTA_EMPRESAIsNull write SetFECHA_ALTA_EMPRESAIsNull;
+ property FORMACION_BASE: IROStrings read GetFORMACION_BASEValue;
+ property FORMACION_BASEIsNull: Boolean read GetFORMACION_BASEIsNull write SetFORMACION_BASEIsNull;
+ property FORMACION_COMPLE: IROStrings read GetFORMACION_COMPLEValue;
+ property FORMACION_COMPLEIsNull: Boolean read GetFORMACION_COMPLEIsNull write SetFORMACION_COMPLEIsNull;
+ property FORMACION_RECIBIDA: IROStrings read GetFORMACION_RECIBIDAValue;
+ property FORMACION_RECIBIDAIsNull: Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull;
+ property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue;
+ property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1252,104 +2122,212 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
- ['{8AE98E4A-35D7-4E61-BE7D-64DD5B4AC7AF}']
+ ['{D60D300D-4430-4110-A6B0-76F4BDF2DCBD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer);
- function GetNOMBREValue: String;
- procedure SetNOMBREValue(const aValue: String);
+ function GetID_CONTACTOIsNull: Boolean;
+ procedure SetID_CONTACTOIsNull(const aValue: Boolean);
function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String);
+ function GetCALLEIsNull: Boolean;
+ procedure SetCALLEIsNull(const aValue: Boolean);
function GetPOBLACIONValue: String;
procedure SetPOBLACIONValue(const aValue: String);
+ function GetPOBLACIONIsNull: Boolean;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean);
function GetPROVINCIAValue: String;
procedure SetPROVINCIAValue(const aValue: String);
+ function GetPROVINCIAIsNull: Boolean;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean);
function GetCODIGO_POSTALValue: String;
procedure SetCODIGO_POSTALValue(const aValue: String);
+ function GetCODIGO_POSTALIsNull: Boolean;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
+ function GetPERSONA_CONTACTOIsNull: Boolean;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+ function GetNOMBREValue: String;
+ procedure SetNOMBREValue(const aValue: String);
+ function GetNOMBREIsNull: Boolean;
+ procedure SetNOMBREIsNull(const aValue: Boolean);
function GetTELEFONOValue: String;
procedure SetTELEFONOValue(const aValue: String);
+ function GetTELEFONOIsNull: Boolean;
+ procedure SetTELEFONOIsNull(const aValue: Boolean);
function GetMOVILValue: String;
procedure SetMOVILValue(const aValue: String);
+ function GetMOVILIsNull: Boolean;
+ procedure SetMOVILIsNull(const aValue: Boolean);
function GetFAXValue: String;
procedure SetFAXValue(const aValue: String);
+ function GetFAXIsNull: Boolean;
+ procedure SetFAXIsNull(const aValue: Boolean);
function GetEMAILValue: String;
procedure SetEMAILValue(const aValue: String);
+ function GetEMAILIsNull: Boolean;
+ procedure SetEMAILIsNull(const aValue: Boolean);
function GetNOTASValue: IROStrings;
- procedure SetNOTASValue(const aValue: IROStrings);
+ function GetNOTASIsNull: Boolean;
+ procedure SetNOTASIsNull(const aValue: Boolean);
function GetPORTEValue: Float;
procedure SetPORTEValue(const aValue: Float);
+ function GetPORTEIsNull: Boolean;
+ procedure SetPORTEIsNull(const aValue: Boolean);
+ function GetFECHA_ALTAValue: DateTime;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime);
+ function GetFECHA_ALTAIsNull: Boolean;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
+ function GetFECHA_MODIFICACIONValue: DateTime;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+ function GetFECHA_MODIFICACIONIsNull: Boolean;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+ property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
+ property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property MOVIL: String read GetMOVILValue write SetMOVILValue;
+ property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
property FAX: String read GetFAXValue write SetFAXValue;
+ property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL: String read GetEMAILValue write SetEMAILValue;
- property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue;
+ property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull;
+ property NOTAS: IROStrings read GetNOTASValue;
+ property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
property PORTE: Float read GetPORTEValue write SetPORTEValue;
+ property PORTEIsNull: Boolean read GetPORTEIsNull write SetPORTEIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
end;
{ TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
private
+ f_NOTAS: IROStrings;
+ procedure NOTAS_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
- function GetNOMBREValue: String; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
+ function GetID_CONTACTOIsNull: Boolean; virtual;
+ procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetTELEFONOValue: String; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
+ function GetTELEFONOIsNull: Boolean; virtual;
+ procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
function GetMOVILValue: String; virtual;
procedure SetMOVILValue(const aValue: String); virtual;
+ function GetMOVILIsNull: Boolean; virtual;
+ procedure SetMOVILIsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
+ function GetFAXIsNull: Boolean; virtual;
+ procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAILValue: String; virtual;
procedure SetEMAILValue(const aValue: String); virtual;
+ function GetEMAILIsNull: Boolean; virtual;
+ procedure SetEMAILIsNull(const aValue: Boolean); virtual;
function GetNOTASValue: IROStrings; virtual;
- procedure SetNOTASValue(const aValue: IROStrings); virtual;
+ function GetNOTASIsNull: Boolean; virtual;
+ procedure SetNOTASIsNull(const aValue: Boolean); virtual;
function GetPORTEValue: Float; virtual;
procedure SetPORTEValue(const aValue: Float); virtual;
+ function GetPORTEIsNull: Boolean; virtual;
+ procedure SetPORTEIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
+ property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
+ property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property MOVIL: String read GetMOVILValue write SetMOVILValue;
+ property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
property FAX: String read GetFAXValue write SetFAXValue;
+ property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL: String read GetEMAILValue write SetEMAILValue;
- property NOTAS: IROStrings read GetNOTASValue write SetNOTASValue;
+ property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull;
+ property NOTAS: IROStrings read GetNOTASValue;
+ property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
property PORTE: Float read GetPORTEValue write SetPORTEValue;
+ property PORTEIsNull: Boolean read GetPORTEIsNull write SetPORTEIsNull;
+ property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1359,26 +2337,41 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
- ['{F886D2B5-74CF-4173-A04A-085EB4844795}']
+ ['{E18CEAA3-F82E-40A3-99C7-FE40CD6DA7CD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
function GetID_CLIENTEValue: Integer;
procedure SetID_CLIENTEValue(const aValue: Integer);
+ function GetID_CLIENTEIsNull: Boolean;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean);
function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer);
+ function GetID_PROVEEDORIsNull: Boolean;
+ procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
+ function GetNOMBREIsNull: Boolean;
+ procedure SetNOMBREIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
+ function GetDESCUENTOIsNull: Boolean;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+ property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
end;
{ TClientesDescuentosDataTableRules }
@@ -1388,21 +2381,36 @@ type
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
+ function GetID_CLIENTEIsNull: Boolean; virtual;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
+ function GetID_PROVEEDORIsNull: Boolean; virtual;
+ procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+ property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1412,14 +2420,17 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
- ['{8A40BF38-E4DE-41D3-BC1F-B683003EDC4D}']
+ ['{33EE6693-53A8-4C7E-A9BB-5574E376ACB8}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
+ function GetDESCRIPCIONIsNull: Boolean;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TGruposProveedorDataTableRules }
@@ -1429,9 +2440,12 @@ type
{ Property getters and setters }
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1441,14 +2455,17 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
- ['{6E0FF24B-75DD-4796-AE74-B1D28F67770E}']
+ ['{918CF679-B62E-48B6-B61C-A7FE3DA08E65}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
+ function GetDESCRIPCIONIsNull: Boolean;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TGruposEmpleadoDataTableRules }
@@ -1458,9 +2475,12 @@ type
{ Property getters and setters }
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1470,12 +2490,18 @@ type
implementation
-uses Variants;
+uses Variants, uROBinaryHelpers;
{ TContactosDataTableRules }
constructor TContactosDataTableRules.Create(aDataTable: TDADataTable);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := NOTAS_OnChange;
+ f_NOTAS := NewROStrings(StrList,True);
end;
destructor TContactosDataTableRules.Destroy;
@@ -1483,6 +2509,11 @@ begin
inherited;
end;
+procedure TContactosDataTableRules.NOTAS_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_ContactosNOTAS].AsVariant := TStringList(Sender).Text;
+end;
+
function TContactosDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ContactosID].AsInteger;
@@ -1493,6 +2524,17 @@ begin
DataTable.Fields[idx_ContactosID].AsInteger := aValue;
end;
+function TContactosDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosID].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosID].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetID_CATEGORIAValue: Integer;
begin
result := DataTable.Fields[idx_ContactosID_CATEGORIA].AsInteger;
@@ -1503,6 +2545,17 @@ begin
DataTable.Fields[idx_ContactosID_CATEGORIA].AsInteger := aValue;
end;
+function TContactosDataTableRules.GetID_CATEGORIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosID_CATEGORIA].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosID_CATEGORIA].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_ContactosNIF_CIF].AsString;
@@ -1513,6 +2566,17 @@ begin
DataTable.Fields[idx_ContactosNIF_CIF].AsString := aValue;
end;
+function TContactosDataTableRules.GetNIF_CIFIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosNIF_CIF].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosNIF_CIF].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ContactosNOMBRE].AsString;
@@ -1523,6 +2587,17 @@ begin
DataTable.Fields[idx_ContactosNOMBRE].AsString := aValue;
end;
+function TContactosDataTableRules.GetNOMBREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosNOMBRE].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosNOMBRE].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_ContactosPERSONA_CONTACTO].AsString;
@@ -1533,6 +2608,17 @@ begin
DataTable.Fields[idx_ContactosPERSONA_CONTACTO].AsString := aValue;
end;
+function TContactosDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosPERSONA_CONTACTO].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosPERSONA_CONTACTO].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetCALLEValue: String;
begin
result := DataTable.Fields[idx_ContactosCALLE].AsString;
@@ -1543,6 +2629,17 @@ begin
DataTable.Fields[idx_ContactosCALLE].AsString := aValue;
end;
+function TContactosDataTableRules.GetCALLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosCALLE].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosCALLE].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_ContactosPOBLACION].AsString;
@@ -1553,6 +2650,17 @@ begin
DataTable.Fields[idx_ContactosPOBLACION].AsString := aValue;
end;
+function TContactosDataTableRules.GetPOBLACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosPOBLACION].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosPOBLACION].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_ContactosPROVINCIA].AsString;
@@ -1563,6 +2671,17 @@ begin
DataTable.Fields[idx_ContactosPROVINCIA].AsString := aValue;
end;
+function TContactosDataTableRules.GetPROVINCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosPROVINCIA].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosPROVINCIA].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_ContactosCODIGO_POSTAL].AsString;
@@ -1573,6 +2692,17 @@ begin
DataTable.Fields[idx_ContactosCODIGO_POSTAL].AsString := aValue;
end;
+function TContactosDataTableRules.GetCODIGO_POSTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosCODIGO_POSTAL].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosCODIGO_POSTAL].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetTELEFONO_1Value: String;
begin
result := DataTable.Fields[idx_ContactosTELEFONO_1].AsString;
@@ -1583,6 +2713,17 @@ begin
DataTable.Fields[idx_ContactosTELEFONO_1].AsString := aValue;
end;
+function TContactosDataTableRules.GetTELEFONO_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosTELEFONO_1].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosTELEFONO_1].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetTELEFONO_2Value: String;
begin
result := DataTable.Fields[idx_ContactosTELEFONO_2].AsString;
@@ -1593,6 +2734,17 @@ begin
DataTable.Fields[idx_ContactosTELEFONO_2].AsString := aValue;
end;
+function TContactosDataTableRules.GetTELEFONO_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosTELEFONO_2].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosTELEFONO_2].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetMOVIL_1Value: String;
begin
result := DataTable.Fields[idx_ContactosMOVIL_1].AsString;
@@ -1603,6 +2755,17 @@ begin
DataTable.Fields[idx_ContactosMOVIL_1].AsString := aValue;
end;
+function TContactosDataTableRules.GetMOVIL_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosMOVIL_1].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosMOVIL_1].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetMOVIL_2Value: String;
begin
result := DataTable.Fields[idx_ContactosMOVIL_2].AsString;
@@ -1613,6 +2776,17 @@ begin
DataTable.Fields[idx_ContactosMOVIL_2].AsString := aValue;
end;
+function TContactosDataTableRules.GetMOVIL_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosMOVIL_2].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosMOVIL_2].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_ContactosFAX].AsString;
@@ -1623,6 +2797,17 @@ begin
DataTable.Fields[idx_ContactosFAX].AsString := aValue;
end;
+function TContactosDataTableRules.GetFAXIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosFAX].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetFAXIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosFAX].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetEMAIL_1Value: String;
begin
result := DataTable.Fields[idx_ContactosEMAIL_1].AsString;
@@ -1633,6 +2818,17 @@ begin
DataTable.Fields[idx_ContactosEMAIL_1].AsString := aValue;
end;
+function TContactosDataTableRules.GetEMAIL_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosEMAIL_1].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosEMAIL_1].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetEMAIL_2Value: String;
begin
result := DataTable.Fields[idx_ContactosEMAIL_2].AsString;
@@ -1643,6 +2839,17 @@ begin
DataTable.Fields[idx_ContactosEMAIL_2].AsString := aValue;
end;
+function TContactosDataTableRules.GetEMAIL_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosEMAIL_2].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosEMAIL_2].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetPAGINA_WEBValue: String;
begin
result := DataTable.Fields[idx_ContactosPAGINA_WEB].AsString;
@@ -1653,15 +2860,74 @@ begin
DataTable.Fields[idx_ContactosPAGINA_WEB].AsString := aValue;
end;
+function TContactosDataTableRules.GetPAGINA_WEBIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosPAGINA_WEB].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosPAGINA_WEB].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetNOTASValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_NOTAS;
result.Text := DataTable.Fields[idx_ContactosNOTAS].AsString;
end;
-procedure TContactosDataTableRules.SetNOTASValue(const aValue: IROStrings);
+function TContactosDataTableRules.GetNOTASIsNull: boolean;
begin
- DataTable.Fields[idx_ContactosNOTAS].AsString := aValue.Text;
+ result := DataTable.Fields[idx_ContactosNOTAS].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosNOTAS].AsVariant := Null;
+end;
+
+function TContactosDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_ContactosFECHA_ALTA].AsDateTime;
+end;
+
+procedure TContactosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_ContactosFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TContactosDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosFECHA_ALTA].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosFECHA_ALTA].AsVariant := Null;
+end;
+
+function TContactosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_ContactosFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TContactosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_ContactosFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TContactosDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosFECHA_MODIFICACION].AsVariant := Null;
end;
function TContactosDataTableRules.GetUSUARIOValue: String;
@@ -1674,6 +2940,17 @@ begin
DataTable.Fields[idx_ContactosUSUARIO].AsString := aValue;
end;
+function TContactosDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosUSUARIO].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosUSUARIO].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_ContactosID_EMPRESA].AsInteger;
@@ -1684,6 +2961,17 @@ begin
DataTable.Fields[idx_ContactosID_EMPRESA].AsInteger := aValue;
end;
+function TContactosDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosID_EMPRESA].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosID_EMPRESA].AsVariant := Null;
+end;
+
function TContactosDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ContactosREFERENCIA].AsString;
@@ -1694,6 +2982,17 @@ begin
DataTable.Fields[idx_ContactosREFERENCIA].AsString := aValue;
end;
+function TContactosDataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosREFERENCIA].IsNull;
+end;
+
+procedure TContactosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosREFERENCIA].AsVariant := Null;
+end;
+
{ TGruposClienteDataTableRules }
constructor TGruposClienteDataTableRules.Create(aDataTable: TDADataTable);
@@ -1716,6 +3015,17 @@ begin
DataTable.Fields[idx_GruposClienteDESCRIPCION].AsString := aValue;
end;
+function TGruposClienteDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_GruposClienteDESCRIPCION].IsNull;
+end;
+
+procedure TGruposClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_GruposClienteDESCRIPCION].AsVariant := Null;
+end;
+
{ TDatosBancariosDataTableRules }
constructor TDatosBancariosDataTableRules.Create(aDataTable: TDADataTable);
@@ -1738,6 +3048,17 @@ begin
DataTable.Fields[idx_DatosBancariosID].AsInteger := aValue;
end;
+function TDatosBancariosDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DatosBancariosID].IsNull;
+end;
+
+procedure TDatosBancariosDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DatosBancariosID].AsVariant := Null;
+end;
+
function TDatosBancariosDataTableRules.GetID_CONTACTOValue: Integer;
begin
result := DataTable.Fields[idx_DatosBancariosID_CONTACTO].AsInteger;
@@ -1748,6 +3069,17 @@ begin
DataTable.Fields[idx_DatosBancariosID_CONTACTO].AsInteger := aValue;
end;
+function TDatosBancariosDataTableRules.GetID_CONTACTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DatosBancariosID_CONTACTO].IsNull;
+end;
+
+procedure TDatosBancariosDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DatosBancariosID_CONTACTO].AsVariant := Null;
+end;
+
function TDatosBancariosDataTableRules.GetTITULARValue: String;
begin
result := DataTable.Fields[idx_DatosBancariosTITULAR].AsString;
@@ -1758,6 +3090,17 @@ begin
DataTable.Fields[idx_DatosBancariosTITULAR].AsString := aValue;
end;
+function TDatosBancariosDataTableRules.GetTITULARIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DatosBancariosTITULAR].IsNull;
+end;
+
+procedure TDatosBancariosDataTableRules.SetTITULARIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DatosBancariosTITULAR].AsVariant := Null;
+end;
+
function TDatosBancariosDataTableRules.GetENTIDADValue: String;
begin
result := DataTable.Fields[idx_DatosBancariosENTIDAD].AsString;
@@ -1768,6 +3111,17 @@ begin
DataTable.Fields[idx_DatosBancariosENTIDAD].AsString := aValue;
end;
+function TDatosBancariosDataTableRules.GetENTIDADIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DatosBancariosENTIDAD].IsNull;
+end;
+
+procedure TDatosBancariosDataTableRules.SetENTIDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DatosBancariosENTIDAD].AsVariant := Null;
+end;
+
function TDatosBancariosDataTableRules.GetSUCURSALValue: String;
begin
result := DataTable.Fields[idx_DatosBancariosSUCURSAL].AsString;
@@ -1778,6 +3132,17 @@ begin
DataTable.Fields[idx_DatosBancariosSUCURSAL].AsString := aValue;
end;
+function TDatosBancariosDataTableRules.GetSUCURSALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DatosBancariosSUCURSAL].IsNull;
+end;
+
+procedure TDatosBancariosDataTableRules.SetSUCURSALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DatosBancariosSUCURSAL].AsVariant := Null;
+end;
+
function TDatosBancariosDataTableRules.GetDCValue: String;
begin
result := DataTable.Fields[idx_DatosBancariosDC].AsString;
@@ -1788,6 +3153,17 @@ begin
DataTable.Fields[idx_DatosBancariosDC].AsString := aValue;
end;
+function TDatosBancariosDataTableRules.GetDCIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DatosBancariosDC].IsNull;
+end;
+
+procedure TDatosBancariosDataTableRules.SetDCIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DatosBancariosDC].AsVariant := Null;
+end;
+
function TDatosBancariosDataTableRules.GetCUENTAValue: String;
begin
result := DataTable.Fields[idx_DatosBancariosCUENTA].AsString;
@@ -1798,6 +3174,59 @@ begin
DataTable.Fields[idx_DatosBancariosCUENTA].AsString := aValue;
end;
+function TDatosBancariosDataTableRules.GetCUENTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DatosBancariosCUENTA].IsNull;
+end;
+
+procedure TDatosBancariosDataTableRules.SetCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DatosBancariosCUENTA].AsVariant := Null;
+end;
+
+function TDatosBancariosDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_DatosBancariosFECHA_ALTA].AsDateTime;
+end;
+
+procedure TDatosBancariosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_DatosBancariosFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TDatosBancariosDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DatosBancariosFECHA_ALTA].IsNull;
+end;
+
+procedure TDatosBancariosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DatosBancariosFECHA_ALTA].AsVariant := Null;
+end;
+
+function TDatosBancariosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_DatosBancariosFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TDatosBancariosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_DatosBancariosFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TDatosBancariosDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DatosBancariosFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TDatosBancariosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DatosBancariosFECHA_MODIFICACION].AsVariant := Null;
+end;
+
{ TContactosCategoriasDataTableRules }
constructor TContactosCategoriasDataTableRules.Create(aDataTable: TDADataTable);
@@ -1820,6 +3249,17 @@ begin
DataTable.Fields[idx_ContactosCategoriasID_CONTACTO].AsInteger := aValue;
end;
+function TContactosCategoriasDataTableRules.GetID_CONTACTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosCategoriasID_CONTACTO].IsNull;
+end;
+
+procedure TContactosCategoriasDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosCategoriasID_CONTACTO].AsVariant := Null;
+end;
+
function TContactosCategoriasDataTableRules.GetID_CATEGORIAValue: Integer;
begin
result := DataTable.Fields[idx_ContactosCategoriasID_CATEGORIA].AsInteger;
@@ -1830,11 +3270,28 @@ begin
DataTable.Fields[idx_ContactosCategoriasID_CATEGORIA].AsInteger := aValue;
end;
+function TContactosCategoriasDataTableRules.GetID_CATEGORIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContactosCategoriasID_CATEGORIA].IsNull;
+end;
+
+procedure TContactosCategoriasDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContactosCategoriasID_CATEGORIA].AsVariant := Null;
+end;
+
{ TClientesDataTableRules }
constructor TClientesDataTableRules.Create(aDataTable: TDADataTable);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := NOTAS_OnChange;
+ f_NOTAS := NewROStrings(StrList,True);
end;
destructor TClientesDataTableRules.Destroy;
@@ -1842,6 +3299,11 @@ begin
inherited;
end;
+procedure TClientesDataTableRules.NOTAS_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_ClientesNOTAS].AsVariant := TStringList(Sender).Text;
+end;
+
function TClientesDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ClientesID].AsInteger;
@@ -1852,6 +3314,17 @@ begin
DataTable.Fields[idx_ClientesID].AsInteger := aValue;
end;
+function TClientesDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesID].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesID].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetID_CATEGORIAValue: Integer;
begin
result := DataTable.Fields[idx_ClientesID_CATEGORIA].AsInteger;
@@ -1862,6 +3335,17 @@ begin
DataTable.Fields[idx_ClientesID_CATEGORIA].AsInteger := aValue;
end;
+function TClientesDataTableRules.GetID_CATEGORIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesID_CATEGORIA].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesID_CATEGORIA].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_ClientesNIF_CIF].AsString;
@@ -1872,6 +3356,17 @@ begin
DataTable.Fields[idx_ClientesNIF_CIF].AsString := aValue;
end;
+function TClientesDataTableRules.GetNIF_CIFIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesNIF_CIF].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesNIF_CIF].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ClientesNOMBRE].AsString;
@@ -1882,14 +3377,15 @@ begin
DataTable.Fields[idx_ClientesNOMBRE].AsString := aValue;
end;
-function TClientesDataTableRules.GetCALLEValue: String;
+function TClientesDataTableRules.GetNOMBREIsNull: boolean;
begin
- result := DataTable.Fields[idx_ClientesCALLE].AsString;
+ result := DataTable.Fields[idx_ClientesNOMBRE].IsNull;
end;
-procedure TClientesDataTableRules.SetCALLEValue(const aValue: String);
+procedure TClientesDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_ClientesCALLE].AsString := aValue;
+ if aValue then
+ DataTable.Fields[idx_ClientesNOMBRE].AsVariant := Null;
end;
function TClientesDataTableRules.GetPERSONA_CONTACTOValue: String;
@@ -1902,6 +3398,38 @@ begin
DataTable.Fields[idx_ClientesPERSONA_CONTACTO].AsString := aValue;
end;
+function TClientesDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesPERSONA_CONTACTO].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesPERSONA_CONTACTO].AsVariant := Null;
+end;
+
+function TClientesDataTableRules.GetCALLEValue: String;
+begin
+ result := DataTable.Fields[idx_ClientesCALLE].AsString;
+end;
+
+procedure TClientesDataTableRules.SetCALLEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ClientesCALLE].AsString := aValue;
+end;
+
+function TClientesDataTableRules.GetCALLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesCALLE].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesCALLE].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_ClientesPOBLACION].AsString;
@@ -1912,6 +3440,17 @@ begin
DataTable.Fields[idx_ClientesPOBLACION].AsString := aValue;
end;
+function TClientesDataTableRules.GetPOBLACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesPOBLACION].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesPOBLACION].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_ClientesPROVINCIA].AsString;
@@ -1922,6 +3461,17 @@ begin
DataTable.Fields[idx_ClientesPROVINCIA].AsString := aValue;
end;
+function TClientesDataTableRules.GetPROVINCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesPROVINCIA].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesPROVINCIA].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_ClientesCODIGO_POSTAL].AsString;
@@ -1932,6 +3482,17 @@ begin
DataTable.Fields[idx_ClientesCODIGO_POSTAL].AsString := aValue;
end;
+function TClientesDataTableRules.GetCODIGO_POSTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesCODIGO_POSTAL].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesCODIGO_POSTAL].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetTELEFONO_1Value: String;
begin
result := DataTable.Fields[idx_ClientesTELEFONO_1].AsString;
@@ -1942,6 +3503,17 @@ begin
DataTable.Fields[idx_ClientesTELEFONO_1].AsString := aValue;
end;
+function TClientesDataTableRules.GetTELEFONO_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesTELEFONO_1].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesTELEFONO_1].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetTELEFONO_2Value: String;
begin
result := DataTable.Fields[idx_ClientesTELEFONO_2].AsString;
@@ -1952,6 +3524,17 @@ begin
DataTable.Fields[idx_ClientesTELEFONO_2].AsString := aValue;
end;
+function TClientesDataTableRules.GetTELEFONO_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesTELEFONO_2].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesTELEFONO_2].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetMOVIL_1Value: String;
begin
result := DataTable.Fields[idx_ClientesMOVIL_1].AsString;
@@ -1962,6 +3545,17 @@ begin
DataTable.Fields[idx_ClientesMOVIL_1].AsString := aValue;
end;
+function TClientesDataTableRules.GetMOVIL_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesMOVIL_1].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesMOVIL_1].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetMOVIL_2Value: String;
begin
result := DataTable.Fields[idx_ClientesMOVIL_2].AsString;
@@ -1972,6 +3566,17 @@ begin
DataTable.Fields[idx_ClientesMOVIL_2].AsString := aValue;
end;
+function TClientesDataTableRules.GetMOVIL_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesMOVIL_2].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesMOVIL_2].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_ClientesFAX].AsString;
@@ -1982,6 +3587,17 @@ begin
DataTable.Fields[idx_ClientesFAX].AsString := aValue;
end;
+function TClientesDataTableRules.GetFAXIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesFAX].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetFAXIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesFAX].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetEMAIL_1Value: String;
begin
result := DataTable.Fields[idx_ClientesEMAIL_1].AsString;
@@ -1992,6 +3608,17 @@ begin
DataTable.Fields[idx_ClientesEMAIL_1].AsString := aValue;
end;
+function TClientesDataTableRules.GetEMAIL_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesEMAIL_1].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesEMAIL_1].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetEMAIL_2Value: String;
begin
result := DataTable.Fields[idx_ClientesEMAIL_2].AsString;
@@ -2002,6 +3629,17 @@ begin
DataTable.Fields[idx_ClientesEMAIL_2].AsString := aValue;
end;
+function TClientesDataTableRules.GetEMAIL_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesEMAIL_2].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesEMAIL_2].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetPAGINA_WEBValue: String;
begin
result := DataTable.Fields[idx_ClientesPAGINA_WEB].AsString;
@@ -2012,15 +3650,74 @@ begin
DataTable.Fields[idx_ClientesPAGINA_WEB].AsString := aValue;
end;
+function TClientesDataTableRules.GetPAGINA_WEBIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesPAGINA_WEB].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesPAGINA_WEB].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetNOTASValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_NOTAS;
result.Text := DataTable.Fields[idx_ClientesNOTAS].AsString;
end;
-procedure TClientesDataTableRules.SetNOTASValue(const aValue: IROStrings);
+function TClientesDataTableRules.GetNOTASIsNull: boolean;
begin
- DataTable.Fields[idx_ClientesNOTAS].AsString := aValue.Text;
+ result := DataTable.Fields[idx_ClientesNOTAS].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesNOTAS].AsVariant := Null;
+end;
+
+function TClientesDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_ClientesFECHA_ALTA].AsDateTime;
+end;
+
+procedure TClientesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_ClientesFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TClientesDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesFECHA_ALTA].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesFECHA_ALTA].AsVariant := Null;
+end;
+
+function TClientesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_ClientesFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TClientesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_ClientesFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TClientesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesFECHA_MODIFICACION].AsVariant := Null;
end;
function TClientesDataTableRules.GetUSUARIOValue: String;
@@ -2033,6 +3730,17 @@ begin
DataTable.Fields[idx_ClientesUSUARIO].AsString := aValue;
end;
+function TClientesDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesUSUARIO].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesUSUARIO].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_ClientesID_EMPRESA].AsInteger;
@@ -2043,6 +3751,17 @@ begin
DataTable.Fields[idx_ClientesID_EMPRESA].AsInteger := aValue;
end;
+function TClientesDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesID_EMPRESA].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesID_EMPRESA].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ClientesREFERENCIA].AsString;
@@ -2053,54 +3772,15 @@ begin
DataTable.Fields[idx_ClientesREFERENCIA].AsString := aValue;
end;
-function TClientesDataTableRules.GetID_TIPO_IVAValue: Integer;
+function TClientesDataTableRules.GetREFERENCIAIsNull: boolean;
begin
- result := DataTable.Fields[idx_ClientesID_TIPO_IVA].AsInteger;
+ result := DataTable.Fields[idx_ClientesREFERENCIA].IsNull;
end;
-procedure TClientesDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
+procedure TClientesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_ClientesID_TIPO_IVA].AsInteger := aValue;
-end;
-
-function TClientesDataTableRules.GetREGIMEN_IVAValue: String;
-begin
- result := DataTable.Fields[idx_ClientesREGIMEN_IVA].AsString;
-end;
-
-procedure TClientesDataTableRules.SetREGIMEN_IVAValue(const aValue: String);
-begin
- DataTable.Fields[idx_ClientesREGIMEN_IVA].AsString := aValue;
-end;
-
-function TClientesDataTableRules.GetID_FORMA_PAGOValue: Integer;
-begin
- result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger;
-end;
-
-procedure TClientesDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger := aValue;
-end;
-
-function TClientesDataTableRules.GetTIENDA_WEBValue: Integer;
-begin
- result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
-end;
-
-procedure TClientesDataTableRules.SetTIENDA_WEBValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;
-end;
-
-function TClientesDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer;
-begin
- result := DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsInteger;
-end;
-
-procedure TClientesDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsInteger := aValue;
+ if aValue then
+ DataTable.Fields[idx_ClientesREFERENCIA].AsVariant := Null;
end;
function TClientesDataTableRules.GetGRUPO_CLIENTEValue: String;
@@ -2113,6 +3793,17 @@ begin
DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue;
end;
+function TClientesDataTableRules.GetGRUPO_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetGRUPO_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetNOMBRE_COMERCIALValue: String;
begin
result := DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString;
@@ -2123,6 +3814,17 @@ begin
DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString := aValue;
end;
+function TClientesDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsVariant := Null;
+end;
+
function TClientesDataTableRules.GetVENCIMIENTO_FACTURASValue: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger;
@@ -2133,14 +3835,57 @@ begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue;
end;
-function TClientesDataTableRules.GetBLOQUEADOValue: Integer;
+function TClientesDataTableRules.GetVENCIMIENTO_FACTURASIsNull: boolean;
begin
- result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger;
+ result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].IsNull;
end;
-procedure TClientesDataTableRules.SetBLOQUEADOValue(const aValue: Integer);
+procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue;
+ if aValue then
+ DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsVariant := Null;
+end;
+
+function TClientesDataTableRules.GetBLOQUEADOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_ClientesBLOQUEADO].AsSmallInt;
+end;
+
+procedure TClientesDataTableRules.SetBLOQUEADOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ClientesBLOQUEADO].AsSmallInt := aValue;
+end;
+
+function TClientesDataTableRules.GetBLOQUEADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesBLOQUEADO].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetBLOQUEADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesBLOQUEADO].AsVariant := Null;
+end;
+
+function TClientesDataTableRules.GetREGIMEN_IVAValue: String;
+begin
+ result := DataTable.Fields[idx_ClientesREGIMEN_IVA].AsString;
+end;
+
+procedure TClientesDataTableRules.SetREGIMEN_IVAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ClientesREGIMEN_IVA].AsString := aValue;
+end;
+
+function TClientesDataTableRules.GetREGIMEN_IVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesREGIMEN_IVA].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesREGIMEN_IVA].AsVariant := Null;
end;
function TClientesDataTableRules.GetMOTIVO_BLOQUEOValue: String;
@@ -2153,11 +3898,112 @@ begin
DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].AsString := aValue;
end;
+function TClientesDataTableRules.GetMOTIVO_BLOQUEOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].AsVariant := Null;
+end;
+
+function TClientesDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer;
+begin
+ result := DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsInteger;
+end;
+
+procedure TClientesDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsInteger := aValue;
+end;
+
+function TClientesDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsVariant := Null;
+end;
+
+function TClientesDataTableRules.GetID_TIPO_IVAValue: Integer;
+begin
+ result := DataTable.Fields[idx_ClientesID_TIPO_IVA].AsInteger;
+end;
+
+procedure TClientesDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_ClientesID_TIPO_IVA].AsInteger := aValue;
+end;
+
+function TClientesDataTableRules.GetID_TIPO_IVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesID_TIPO_IVA].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesID_TIPO_IVA].AsVariant := Null;
+end;
+
+function TClientesDataTableRules.GetID_FORMA_PAGOValue: Integer;
+begin
+ result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger;
+end;
+
+procedure TClientesDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger := aValue;
+end;
+
+function TClientesDataTableRules.GetID_FORMA_PAGOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsVariant := Null;
+end;
+
+function TClientesDataTableRules.GetTIENDA_WEBValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsSmallInt;
+end;
+
+procedure TClientesDataTableRules.SetTIENDA_WEBValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ClientesTIENDA_WEB].AsSmallInt := aValue;
+end;
+
+function TClientesDataTableRules.GetTIENDA_WEBIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesTIENDA_WEB].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesTIENDA_WEB].AsVariant := Null;
+end;
+
{ TProveedoresDataTableRules }
constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := NOTAS_OnChange;
+ f_NOTAS := NewROStrings(StrList,True);
end;
destructor TProveedoresDataTableRules.Destroy;
@@ -2165,6 +4011,11 @@ begin
inherited;
end;
+procedure TProveedoresDataTableRules.NOTAS_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_ProveedoresNOTAS].AsVariant := TStringList(Sender).Text;
+end;
+
function TProveedoresDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresID].AsInteger;
@@ -2175,6 +4026,17 @@ begin
DataTable.Fields[idx_ProveedoresID].AsInteger := aValue;
end;
+function TProveedoresDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresID].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresID].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetID_CATEGORIAValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresID_CATEGORIA].AsInteger;
@@ -2185,6 +4047,17 @@ begin
DataTable.Fields[idx_ProveedoresID_CATEGORIA].AsInteger := aValue;
end;
+function TProveedoresDataTableRules.GetID_CATEGORIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresID_CATEGORIA].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresID_CATEGORIA].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_ProveedoresNIF_CIF].AsString;
@@ -2195,6 +4068,17 @@ begin
DataTable.Fields[idx_ProveedoresNIF_CIF].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetNIF_CIFIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresNIF_CIF].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresNIF_CIF].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ProveedoresNOMBRE].AsString;
@@ -2205,14 +4089,15 @@ begin
DataTable.Fields[idx_ProveedoresNOMBRE].AsString := aValue;
end;
-function TProveedoresDataTableRules.GetCALLEValue: String;
+function TProveedoresDataTableRules.GetNOMBREIsNull: boolean;
begin
- result := DataTable.Fields[idx_ProveedoresCALLE].AsString;
+ result := DataTable.Fields[idx_ProveedoresNOMBRE].IsNull;
end;
-procedure TProveedoresDataTableRules.SetCALLEValue(const aValue: String);
+procedure TProveedoresDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_ProveedoresCALLE].AsString := aValue;
+ if aValue then
+ DataTable.Fields[idx_ProveedoresNOMBRE].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetPERSONA_CONTACTOValue: String;
@@ -2225,6 +4110,38 @@ begin
DataTable.Fields[idx_ProveedoresPERSONA_CONTACTO].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresPERSONA_CONTACTO].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresPERSONA_CONTACTO].AsVariant := Null;
+end;
+
+function TProveedoresDataTableRules.GetCALLEValue: String;
+begin
+ result := DataTable.Fields[idx_ProveedoresCALLE].AsString;
+end;
+
+procedure TProveedoresDataTableRules.SetCALLEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ProveedoresCALLE].AsString := aValue;
+end;
+
+function TProveedoresDataTableRules.GetCALLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresCALLE].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresCALLE].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_ProveedoresPOBLACION].AsString;
@@ -2235,6 +4152,17 @@ begin
DataTable.Fields[idx_ProveedoresPOBLACION].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetPOBLACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresPOBLACION].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresPOBLACION].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_ProveedoresPROVINCIA].AsString;
@@ -2245,6 +4173,17 @@ begin
DataTable.Fields[idx_ProveedoresPROVINCIA].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetPROVINCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresPROVINCIA].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresPROVINCIA].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_ProveedoresCODIGO_POSTAL].AsString;
@@ -2255,6 +4194,17 @@ begin
DataTable.Fields[idx_ProveedoresCODIGO_POSTAL].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetCODIGO_POSTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresCODIGO_POSTAL].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresCODIGO_POSTAL].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetTELEFONO_1Value: String;
begin
result := DataTable.Fields[idx_ProveedoresTELEFONO_1].AsString;
@@ -2265,6 +4215,17 @@ begin
DataTable.Fields[idx_ProveedoresTELEFONO_1].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetTELEFONO_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresTELEFONO_1].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresTELEFONO_1].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetTELEFONO_2Value: String;
begin
result := DataTable.Fields[idx_ProveedoresTELEFONO_2].AsString;
@@ -2275,6 +4236,17 @@ begin
DataTable.Fields[idx_ProveedoresTELEFONO_2].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetTELEFONO_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresTELEFONO_2].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresTELEFONO_2].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetMOVIL_1Value: String;
begin
result := DataTable.Fields[idx_ProveedoresMOVIL_1].AsString;
@@ -2285,6 +4257,17 @@ begin
DataTable.Fields[idx_ProveedoresMOVIL_1].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetMOVIL_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresMOVIL_1].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresMOVIL_1].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetMOVIL_2Value: String;
begin
result := DataTable.Fields[idx_ProveedoresMOVIL_2].AsString;
@@ -2295,6 +4278,17 @@ begin
DataTable.Fields[idx_ProveedoresMOVIL_2].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetMOVIL_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresMOVIL_2].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresMOVIL_2].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_ProveedoresFAX].AsString;
@@ -2305,6 +4299,17 @@ begin
DataTable.Fields[idx_ProveedoresFAX].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetFAXIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresFAX].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetFAXIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresFAX].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetEMAIL_1Value: String;
begin
result := DataTable.Fields[idx_ProveedoresEMAIL_1].AsString;
@@ -2315,6 +4320,17 @@ begin
DataTable.Fields[idx_ProveedoresEMAIL_1].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetEMAIL_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresEMAIL_1].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresEMAIL_1].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetEMAIL_2Value: String;
begin
result := DataTable.Fields[idx_ProveedoresEMAIL_2].AsString;
@@ -2325,6 +4341,17 @@ begin
DataTable.Fields[idx_ProveedoresEMAIL_2].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetEMAIL_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresEMAIL_2].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresEMAIL_2].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetPAGINA_WEBValue: String;
begin
result := DataTable.Fields[idx_ProveedoresPAGINA_WEB].AsString;
@@ -2335,15 +4362,74 @@ begin
DataTable.Fields[idx_ProveedoresPAGINA_WEB].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetPAGINA_WEBIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresPAGINA_WEB].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresPAGINA_WEB].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetNOTASValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_NOTAS;
result.Text := DataTable.Fields[idx_ProveedoresNOTAS].AsString;
end;
-procedure TProveedoresDataTableRules.SetNOTASValue(const aValue: IROStrings);
+function TProveedoresDataTableRules.GetNOTASIsNull: boolean;
begin
- DataTable.Fields[idx_ProveedoresNOTAS].AsString := aValue.Text;
+ result := DataTable.Fields[idx_ProveedoresNOTAS].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresNOTAS].AsVariant := Null;
+end;
+
+function TProveedoresDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_ProveedoresFECHA_ALTA].AsDateTime;
+end;
+
+procedure TProveedoresDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_ProveedoresFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TProveedoresDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresFECHA_ALTA].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresFECHA_ALTA].AsVariant := Null;
+end;
+
+function TProveedoresDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_ProveedoresFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TProveedoresDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_ProveedoresFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TProveedoresDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresFECHA_MODIFICACION].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetUSUARIOValue: String;
@@ -2356,6 +4442,17 @@ begin
DataTable.Fields[idx_ProveedoresUSUARIO].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresUSUARIO].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresUSUARIO].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresID_EMPRESA].AsInteger;
@@ -2366,6 +4463,17 @@ begin
DataTable.Fields[idx_ProveedoresID_EMPRESA].AsInteger := aValue;
end;
+function TProveedoresDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresID_EMPRESA].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresID_EMPRESA].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ProveedoresREFERENCIA].AsString;
@@ -2376,44 +4484,15 @@ begin
DataTable.Fields[idx_ProveedoresREFERENCIA].AsString := aValue;
end;
-function TProveedoresDataTableRules.GetID_TIPO_IVAValue: Integer;
+function TProveedoresDataTableRules.GetREFERENCIAIsNull: boolean;
begin
- result := DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger;
+ result := DataTable.Fields[idx_ProveedoresREFERENCIA].IsNull;
end;
-procedure TProveedoresDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
+procedure TProveedoresDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger := aValue;
-end;
-
-function TProveedoresDataTableRules.GetREGIMEN_IVAValue: String;
-begin
- result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
-end;
-
-procedure TProveedoresDataTableRules.SetREGIMEN_IVAValue(const aValue: String);
-begin
- DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;
-end;
-
-function TProveedoresDataTableRules.GetID_FORMA_PAGOValue: Integer;
-begin
- result := DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger;
-end;
-
-procedure TProveedoresDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger := aValue;
-end;
-
-function TProveedoresDataTableRules.GetTIENDA_WEBValue: Integer;
-begin
- result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger;
-end;
-
-procedure TProveedoresDataTableRules.SetTIENDA_WEBValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue;
+ if aValue then
+ DataTable.Fields[idx_ProveedoresREFERENCIA].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetDESCUENTOValue: Float;
@@ -2426,6 +4505,17 @@ begin
DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat := aValue;
end;
+function TProveedoresDataTableRules.GetDESCUENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresDESCUENTO].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresDESCUENTO].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetDESCRIPCION_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsString;
@@ -2436,6 +4526,17 @@ begin
DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetDESCRIPCION_PROVEEDORIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsVariant := Null;
+end;
+
function TProveedoresDataTableRules.GetCODIGO_ASIGNADOValue: String;
begin
result := DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsString;
@@ -2446,24 +4547,15 @@ begin
DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsString := aValue;
end;
-function TProveedoresDataTableRules.GetHOMOLOGADOValue: Integer;
+function TProveedoresDataTableRules.GetCODIGO_ASIGNADOIsNull: boolean;
begin
- result := DataTable.Fields[idx_ProveedoresHOMOLOGADO].AsInteger;
+ result := DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].IsNull;
end;
-procedure TProveedoresDataTableRules.SetHOMOLOGADOValue(const aValue: Integer);
+procedure TProveedoresDataTableRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_ProveedoresHOMOLOGADO].AsInteger := aValue;
-end;
-
-function TProveedoresDataTableRules.GetCERTIFICACIONValue: String;
-begin
- result := DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString;
-end;
-
-procedure TProveedoresDataTableRules.SetCERTIFICACIONValue(const aValue: String);
-begin
- DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString := aValue;
+ if aValue then
+ DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetGRUPO_PROVEEDORValue: String;
@@ -2476,11 +4568,170 @@ begin
DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].AsString := aValue;
end;
+function TProveedoresDataTableRules.GetGRUPO_PROVEEDORIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetGRUPO_PROVEEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].AsVariant := Null;
+end;
+
+function TProveedoresDataTableRules.GetREGIMEN_IVAValue: String;
+begin
+ result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
+end;
+
+procedure TProveedoresDataTableRules.SetREGIMEN_IVAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;
+end;
+
+function TProveedoresDataTableRules.GetREGIMEN_IVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsVariant := Null;
+end;
+
+function TProveedoresDataTableRules.GetID_TIPO_IVAValue: Integer;
+begin
+ result := DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger;
+end;
+
+procedure TProveedoresDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger := aValue;
+end;
+
+function TProveedoresDataTableRules.GetID_TIPO_IVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresID_TIPO_IVA].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsVariant := Null;
+end;
+
+function TProveedoresDataTableRules.GetID_FORMA_PAGOValue: Integer;
+begin
+ result := DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger;
+end;
+
+procedure TProveedoresDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsInteger := aValue;
+end;
+
+function TProveedoresDataTableRules.GetID_FORMA_PAGOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresID_FORMA_PAGO].AsVariant := Null;
+end;
+
+function TProveedoresDataTableRules.GetTIENDA_WEBValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsSmallInt;
+end;
+
+procedure TProveedoresDataTableRules.SetTIENDA_WEBValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsSmallInt := aValue;
+end;
+
+function TProveedoresDataTableRules.GetTIENDA_WEBIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsVariant := Null;
+end;
+
+function TProveedoresDataTableRules.GetHOMOLOGADOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_ProveedoresHOMOLOGADO].AsSmallInt;
+end;
+
+procedure TProveedoresDataTableRules.SetHOMOLOGADOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ProveedoresHOMOLOGADO].AsSmallInt := aValue;
+end;
+
+function TProveedoresDataTableRules.GetHOMOLOGADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresHOMOLOGADO].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetHOMOLOGADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresHOMOLOGADO].AsVariant := Null;
+end;
+
+function TProveedoresDataTableRules.GetCERTIFICACIONValue: String;
+begin
+ result := DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString;
+end;
+
+procedure TProveedoresDataTableRules.SetCERTIFICACIONValue(const aValue: String);
+begin
+ DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString := aValue;
+end;
+
+function TProveedoresDataTableRules.GetCERTIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ProveedoresCERTIFICACION].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetCERTIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ProveedoresCERTIFICACION].AsVariant := Null;
+end;
+
{ TEmpleadosDataTableRules }
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := NOTAS_OnChange;
+ f_NOTAS := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := FORMACION_BASE_OnChange;
+ f_FORMACION_BASE := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := FORMACION_COMPLE_OnChange;
+ f_FORMACION_COMPLE := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := FORMACION_RECIBIDA_OnChange;
+ f_FORMACION_RECIBIDA := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := EXPERIENCIA_OnChange;
+ f_EXPERIENCIA := NewROStrings(StrList,True);
end;
destructor TEmpleadosDataTableRules.Destroy;
@@ -2488,6 +4739,31 @@ begin
inherited;
end;
+procedure TEmpleadosDataTableRules.NOTAS_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_EmpleadosNOTAS].AsVariant := TStringList(Sender).Text;
+end;
+
+procedure TEmpleadosDataTableRules.FORMACION_BASE_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_EmpleadosFORMACION_BASE].AsVariant := TStringList(Sender).Text;
+end;
+
+procedure TEmpleadosDataTableRules.FORMACION_COMPLE_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].AsVariant := TStringList(Sender).Text;
+end;
+
+procedure TEmpleadosDataTableRules.FORMACION_RECIBIDA_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].AsVariant := TStringList(Sender).Text;
+end;
+
+procedure TEmpleadosDataTableRules.EXPERIENCIA_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsVariant := TStringList(Sender).Text;
+end;
+
function TEmpleadosDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_EmpleadosID].AsInteger;
@@ -2498,6 +4774,17 @@ begin
DataTable.Fields[idx_EmpleadosID].AsInteger := aValue;
end;
+function TEmpleadosDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosID].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosID].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetID_CATEGORIAValue: Integer;
begin
result := DataTable.Fields[idx_EmpleadosID_CATEGORIA].AsInteger;
@@ -2508,6 +4795,17 @@ begin
DataTable.Fields[idx_EmpleadosID_CATEGORIA].AsInteger := aValue;
end;
+function TEmpleadosDataTableRules.GetID_CATEGORIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosID_CATEGORIA].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosID_CATEGORIA].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetNIF_CIFValue: String;
begin
result := DataTable.Fields[idx_EmpleadosNIF_CIF].AsString;
@@ -2518,6 +4816,17 @@ begin
DataTable.Fields[idx_EmpleadosNIF_CIF].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetNIF_CIFIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosNIF_CIF].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosNIF_CIF].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_EmpleadosNOMBRE].AsString;
@@ -2528,14 +4837,15 @@ begin
DataTable.Fields[idx_EmpleadosNOMBRE].AsString := aValue;
end;
-function TEmpleadosDataTableRules.GetCALLEValue: String;
+function TEmpleadosDataTableRules.GetNOMBREIsNull: boolean;
begin
- result := DataTable.Fields[idx_EmpleadosCALLE].AsString;
+ result := DataTable.Fields[idx_EmpleadosNOMBRE].IsNull;
end;
-procedure TEmpleadosDataTableRules.SetCALLEValue(const aValue: String);
+procedure TEmpleadosDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_EmpleadosCALLE].AsString := aValue;
+ if aValue then
+ DataTable.Fields[idx_EmpleadosNOMBRE].AsVariant := Null;
end;
function TEmpleadosDataTableRules.GetPERSONA_CONTACTOValue: String;
@@ -2548,6 +4858,38 @@ begin
DataTable.Fields[idx_EmpleadosPERSONA_CONTACTO].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosPERSONA_CONTACTO].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosPERSONA_CONTACTO].AsVariant := Null;
+end;
+
+function TEmpleadosDataTableRules.GetCALLEValue: String;
+begin
+ result := DataTable.Fields[idx_EmpleadosCALLE].AsString;
+end;
+
+procedure TEmpleadosDataTableRules.SetCALLEValue(const aValue: String);
+begin
+ DataTable.Fields[idx_EmpleadosCALLE].AsString := aValue;
+end;
+
+function TEmpleadosDataTableRules.GetCALLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosCALLE].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosCALLE].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_EmpleadosPOBLACION].AsString;
@@ -2558,6 +4900,17 @@ begin
DataTable.Fields[idx_EmpleadosPOBLACION].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetPOBLACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosPOBLACION].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosPOBLACION].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_EmpleadosPROVINCIA].AsString;
@@ -2568,6 +4921,17 @@ begin
DataTable.Fields[idx_EmpleadosPROVINCIA].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetPROVINCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosPROVINCIA].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosPROVINCIA].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_EmpleadosCODIGO_POSTAL].AsString;
@@ -2578,6 +4942,17 @@ begin
DataTable.Fields[idx_EmpleadosCODIGO_POSTAL].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetCODIGO_POSTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosCODIGO_POSTAL].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosCODIGO_POSTAL].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetTELEFONO_1Value: String;
begin
result := DataTable.Fields[idx_EmpleadosTELEFONO_1].AsString;
@@ -2588,6 +4963,17 @@ begin
DataTable.Fields[idx_EmpleadosTELEFONO_1].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetTELEFONO_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosTELEFONO_1].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosTELEFONO_1].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetTELEFONO_2Value: String;
begin
result := DataTable.Fields[idx_EmpleadosTELEFONO_2].AsString;
@@ -2598,6 +4984,17 @@ begin
DataTable.Fields[idx_EmpleadosTELEFONO_2].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetTELEFONO_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosTELEFONO_2].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosTELEFONO_2].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetMOVIL_1Value: String;
begin
result := DataTable.Fields[idx_EmpleadosMOVIL_1].AsString;
@@ -2608,6 +5005,17 @@ begin
DataTable.Fields[idx_EmpleadosMOVIL_1].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetMOVIL_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosMOVIL_1].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosMOVIL_1].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetMOVIL_2Value: String;
begin
result := DataTable.Fields[idx_EmpleadosMOVIL_2].AsString;
@@ -2618,6 +5026,17 @@ begin
DataTable.Fields[idx_EmpleadosMOVIL_2].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetMOVIL_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosMOVIL_2].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosMOVIL_2].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_EmpleadosFAX].AsString;
@@ -2628,6 +5047,17 @@ begin
DataTable.Fields[idx_EmpleadosFAX].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetFAXIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosFAX].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetFAXIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosFAX].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetEMAIL_1Value: String;
begin
result := DataTable.Fields[idx_EmpleadosEMAIL_1].AsString;
@@ -2638,6 +5068,17 @@ begin
DataTable.Fields[idx_EmpleadosEMAIL_1].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetEMAIL_1IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosEMAIL_1].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosEMAIL_1].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetEMAIL_2Value: String;
begin
result := DataTable.Fields[idx_EmpleadosEMAIL_2].AsString;
@@ -2648,6 +5089,17 @@ begin
DataTable.Fields[idx_EmpleadosEMAIL_2].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetEMAIL_2IsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosEMAIL_2].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosEMAIL_2].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetPAGINA_WEBValue: String;
begin
result := DataTable.Fields[idx_EmpleadosPAGINA_WEB].AsString;
@@ -2658,15 +5110,74 @@ begin
DataTable.Fields[idx_EmpleadosPAGINA_WEB].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetPAGINA_WEBIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosPAGINA_WEB].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosPAGINA_WEB].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetNOTASValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_NOTAS;
result.Text := DataTable.Fields[idx_EmpleadosNOTAS].AsString;
end;
-procedure TEmpleadosDataTableRules.SetNOTASValue(const aValue: IROStrings);
+function TEmpleadosDataTableRules.GetNOTASIsNull: boolean;
begin
- DataTable.Fields[idx_EmpleadosNOTAS].AsString := aValue.Text;
+ result := DataTable.Fields[idx_EmpleadosNOTAS].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosNOTAS].AsVariant := Null;
+end;
+
+function TEmpleadosDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_EmpleadosFECHA_ALTA].AsDateTime;
+end;
+
+procedure TEmpleadosDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_EmpleadosFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TEmpleadosDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosFECHA_ALTA].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosFECHA_ALTA].AsVariant := Null;
+end;
+
+function TEmpleadosDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_EmpleadosFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TEmpleadosDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_EmpleadosFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TEmpleadosDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosFECHA_MODIFICACION].AsVariant := Null;
end;
function TEmpleadosDataTableRules.GetUSUARIOValue: String;
@@ -2679,6 +5190,17 @@ begin
DataTable.Fields[idx_EmpleadosUSUARIO].AsString := aValue;
end;
+function TEmpleadosDataTableRules.GetUSUARIOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosUSUARIO].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosUSUARIO].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_EmpleadosID_EMPRESA].AsInteger;
@@ -2689,6 +5211,17 @@ begin
DataTable.Fields[idx_EmpleadosID_EMPRESA].AsInteger := aValue;
end;
+function TEmpleadosDataTableRules.GetID_EMPRESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosID_EMPRESA].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosID_EMPRESA].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_EmpleadosREFERENCIA].AsString;
@@ -2699,14 +5232,15 @@ begin
DataTable.Fields[idx_EmpleadosREFERENCIA].AsString := aValue;
end;
-function TEmpleadosDataTableRules.GetCATEGORIAValue: String;
+function TEmpleadosDataTableRules.GetREFERENCIAIsNull: boolean;
begin
- result := DataTable.Fields[idx_EmpleadosCATEGORIA].AsString;
+ result := DataTable.Fields[idx_EmpleadosREFERENCIA].IsNull;
end;
-procedure TEmpleadosDataTableRules.SetCATEGORIAValue(const aValue: String);
+procedure TEmpleadosDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_EmpleadosCATEGORIA].AsString := aValue;
+ if aValue then
+ DataTable.Fields[idx_EmpleadosREFERENCIA].AsVariant := Null;
end;
function TEmpleadosDataTableRules.GetFECHA_NACIMIENTOValue: DateTime;
@@ -2719,6 +5253,38 @@ begin
DataTable.Fields[idx_EmpleadosFECHA_NACIMIENTO].AsDateTime := aValue;
end;
+function TEmpleadosDataTableRules.GetFECHA_NACIMIENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosFECHA_NACIMIENTO].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetFECHA_NACIMIENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosFECHA_NACIMIENTO].AsVariant := Null;
+end;
+
+function TEmpleadosDataTableRules.GetCATEGORIAValue: String;
+begin
+ result := DataTable.Fields[idx_EmpleadosCATEGORIA].AsString;
+end;
+
+procedure TEmpleadosDataTableRules.SetCATEGORIAValue(const aValue: String);
+begin
+ DataTable.Fields[idx_EmpleadosCATEGORIA].AsString := aValue;
+end;
+
+function TEmpleadosDataTableRules.GetCATEGORIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosCATEGORIA].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetCATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosCATEGORIA].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetFECHA_ALTA_EMPRESAValue: DateTime;
begin
result := DataTable.Fields[idx_EmpleadosFECHA_ALTA_EMPRESA].AsDateTime;
@@ -2729,55 +5295,96 @@ begin
DataTable.Fields[idx_EmpleadosFECHA_ALTA_EMPRESA].AsDateTime := aValue;
end;
+function TEmpleadosDataTableRules.GetFECHA_ALTA_EMPRESAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpleadosFECHA_ALTA_EMPRESA].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosFECHA_ALTA_EMPRESA].AsVariant := Null;
+end;
+
function TEmpleadosDataTableRules.GetFORMACION_BASEValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_FORMACION_BASE;
result.Text := DataTable.Fields[idx_EmpleadosFORMACION_BASE].AsString;
end;
-procedure TEmpleadosDataTableRules.SetFORMACION_BASEValue(const aValue: IROStrings);
+function TEmpleadosDataTableRules.GetFORMACION_BASEIsNull: boolean;
begin
- DataTable.Fields[idx_EmpleadosFORMACION_BASE].AsString := aValue.Text;
+ result := DataTable.Fields[idx_EmpleadosFORMACION_BASE].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetFORMACION_BASEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosFORMACION_BASE].AsVariant := Null;
end;
function TEmpleadosDataTableRules.GetFORMACION_COMPLEValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_FORMACION_COMPLE;
result.Text := DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].AsString;
end;
-procedure TEmpleadosDataTableRules.SetFORMACION_COMPLEValue(const aValue: IROStrings);
+function TEmpleadosDataTableRules.GetFORMACION_COMPLEIsNull: boolean;
begin
- DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].AsString := aValue.Text;
+ result := DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetFORMACION_COMPLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosFORMACION_COMPLE].AsVariant := Null;
end;
function TEmpleadosDataTableRules.GetFORMACION_RECIBIDAValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_FORMACION_RECIBIDA;
result.Text := DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].AsString;
end;
-procedure TEmpleadosDataTableRules.SetFORMACION_RECIBIDAValue(const aValue: IROStrings);
+function TEmpleadosDataTableRules.GetFORMACION_RECIBIDAIsNull: boolean;
begin
- DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].AsString := aValue.Text;
+ result := DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetFORMACION_RECIBIDAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosFORMACION_RECIBIDA].AsVariant := Null;
end;
function TEmpleadosDataTableRules.GetEXPERIENCIAValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_EXPERIENCIA;
result.Text := DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsString;
end;
-procedure TEmpleadosDataTableRules.SetEXPERIENCIAValue(const aValue: IROStrings);
+function TEmpleadosDataTableRules.GetEXPERIENCIAIsNull: boolean;
begin
- DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsString := aValue.Text;
+ result := DataTable.Fields[idx_EmpleadosEXPERIENCIA].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetEXPERIENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsVariant := Null;
end;
{ TDireccionesContactoDataTableRules }
constructor TDireccionesContactoDataTableRules.Create(aDataTable: TDADataTable);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := NOTAS_OnChange;
+ f_NOTAS := NewROStrings(StrList,True);
end;
destructor TDireccionesContactoDataTableRules.Destroy;
@@ -2785,6 +5392,11 @@ begin
inherited;
end;
+procedure TDireccionesContactoDataTableRules.NOTAS_OnChange(Sender: TObject);
+begin
+ if DataTable.Editing then DataTable.Fields[idx_DireccionesContactoNOTAS].AsVariant := TStringList(Sender).Text;
+end;
+
function TDireccionesContactoDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_DireccionesContactoID].AsInteger;
@@ -2795,6 +5407,17 @@ begin
DataTable.Fields[idx_DireccionesContactoID].AsInteger := aValue;
end;
+function TDireccionesContactoDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoID].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoID].AsVariant := Null;
+end;
+
function TDireccionesContactoDataTableRules.GetID_CONTACTOValue: Integer;
begin
result := DataTable.Fields[idx_DireccionesContactoID_CONTACTO].AsInteger;
@@ -2805,14 +5428,15 @@ begin
DataTable.Fields[idx_DireccionesContactoID_CONTACTO].AsInteger := aValue;
end;
-function TDireccionesContactoDataTableRules.GetNOMBREValue: String;
+function TDireccionesContactoDataTableRules.GetID_CONTACTOIsNull: boolean;
begin
- result := DataTable.Fields[idx_DireccionesContactoNOMBRE].AsString;
+ result := DataTable.Fields[idx_DireccionesContactoID_CONTACTO].IsNull;
end;
-procedure TDireccionesContactoDataTableRules.SetNOMBREValue(const aValue: String);
+procedure TDireccionesContactoDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
- DataTable.Fields[idx_DireccionesContactoNOMBRE].AsString := aValue;
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoID_CONTACTO].AsVariant := Null;
end;
function TDireccionesContactoDataTableRules.GetCALLEValue: String;
@@ -2825,6 +5449,17 @@ begin
DataTable.Fields[idx_DireccionesContactoCALLE].AsString := aValue;
end;
+function TDireccionesContactoDataTableRules.GetCALLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoCALLE].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoCALLE].AsVariant := Null;
+end;
+
function TDireccionesContactoDataTableRules.GetPOBLACIONValue: String;
begin
result := DataTable.Fields[idx_DireccionesContactoPOBLACION].AsString;
@@ -2835,6 +5470,17 @@ begin
DataTable.Fields[idx_DireccionesContactoPOBLACION].AsString := aValue;
end;
+function TDireccionesContactoDataTableRules.GetPOBLACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoPOBLACION].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoPOBLACION].AsVariant := Null;
+end;
+
function TDireccionesContactoDataTableRules.GetPROVINCIAValue: String;
begin
result := DataTable.Fields[idx_DireccionesContactoPROVINCIA].AsString;
@@ -2845,6 +5491,17 @@ begin
DataTable.Fields[idx_DireccionesContactoPROVINCIA].AsString := aValue;
end;
+function TDireccionesContactoDataTableRules.GetPROVINCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoPROVINCIA].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoPROVINCIA].AsVariant := Null;
+end;
+
function TDireccionesContactoDataTableRules.GetCODIGO_POSTALValue: String;
begin
result := DataTable.Fields[idx_DireccionesContactoCODIGO_POSTAL].AsString;
@@ -2855,6 +5512,17 @@ begin
DataTable.Fields[idx_DireccionesContactoCODIGO_POSTAL].AsString := aValue;
end;
+function TDireccionesContactoDataTableRules.GetCODIGO_POSTALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoCODIGO_POSTAL].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoCODIGO_POSTAL].AsVariant := Null;
+end;
+
function TDireccionesContactoDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_DireccionesContactoPERSONA_CONTACTO].AsString;
@@ -2865,6 +5533,38 @@ begin
DataTable.Fields[idx_DireccionesContactoPERSONA_CONTACTO].AsString := aValue;
end;
+function TDireccionesContactoDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoPERSONA_CONTACTO].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoPERSONA_CONTACTO].AsVariant := Null;
+end;
+
+function TDireccionesContactoDataTableRules.GetNOMBREValue: String;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoNOMBRE].AsString;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetNOMBREValue(const aValue: String);
+begin
+ DataTable.Fields[idx_DireccionesContactoNOMBRE].AsString := aValue;
+end;
+
+function TDireccionesContactoDataTableRules.GetNOMBREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoNOMBRE].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoNOMBRE].AsVariant := Null;
+end;
+
function TDireccionesContactoDataTableRules.GetTELEFONOValue: String;
begin
result := DataTable.Fields[idx_DireccionesContactoTELEFONO].AsString;
@@ -2875,6 +5575,17 @@ begin
DataTable.Fields[idx_DireccionesContactoTELEFONO].AsString := aValue;
end;
+function TDireccionesContactoDataTableRules.GetTELEFONOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoTELEFONO].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetTELEFONOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoTELEFONO].AsVariant := Null;
+end;
+
function TDireccionesContactoDataTableRules.GetMOVILValue: String;
begin
result := DataTable.Fields[idx_DireccionesContactoMOVIL].AsString;
@@ -2885,6 +5596,17 @@ begin
DataTable.Fields[idx_DireccionesContactoMOVIL].AsString := aValue;
end;
+function TDireccionesContactoDataTableRules.GetMOVILIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoMOVIL].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetMOVILIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoMOVIL].AsVariant := Null;
+end;
+
function TDireccionesContactoDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_DireccionesContactoFAX].AsString;
@@ -2895,6 +5617,17 @@ begin
DataTable.Fields[idx_DireccionesContactoFAX].AsString := aValue;
end;
+function TDireccionesContactoDataTableRules.GetFAXIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoFAX].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetFAXIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoFAX].AsVariant := Null;
+end;
+
function TDireccionesContactoDataTableRules.GetEMAILValue: String;
begin
result := DataTable.Fields[idx_DireccionesContactoEMAIL].AsString;
@@ -2905,15 +5638,32 @@ begin
DataTable.Fields[idx_DireccionesContactoEMAIL].AsString := aValue;
end;
+function TDireccionesContactoDataTableRules.GetEMAILIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoEMAIL].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetEMAILIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoEMAIL].AsVariant := Null;
+end;
+
function TDireccionesContactoDataTableRules.GetNOTASValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_NOTAS;
result.Text := DataTable.Fields[idx_DireccionesContactoNOTAS].AsString;
end;
-procedure TDireccionesContactoDataTableRules.SetNOTASValue(const aValue: IROStrings);
+function TDireccionesContactoDataTableRules.GetNOTASIsNull: boolean;
begin
- DataTable.Fields[idx_DireccionesContactoNOTAS].AsString := aValue.Text;
+ result := DataTable.Fields[idx_DireccionesContactoNOTAS].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoNOTAS].AsVariant := Null;
end;
function TDireccionesContactoDataTableRules.GetPORTEValue: Float;
@@ -2926,6 +5676,59 @@ begin
DataTable.Fields[idx_DireccionesContactoPORTE].AsFloat := aValue;
end;
+function TDireccionesContactoDataTableRules.GetPORTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoPORTE].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetPORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoPORTE].AsVariant := Null;
+end;
+
+function TDireccionesContactoDataTableRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoFECHA_ALTA].AsDateTime;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_DireccionesContactoFECHA_ALTA].AsDateTime := aValue;
+end;
+
+function TDireccionesContactoDataTableRules.GetFECHA_ALTAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoFECHA_ALTA].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoFECHA_ALTA].AsVariant := Null;
+end;
+
+function TDireccionesContactoDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoFECHA_MODIFICACION].AsDateTime;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ DataTable.Fields[idx_DireccionesContactoFECHA_MODIFICACION].AsDateTime := aValue;
+end;
+
+function TDireccionesContactoDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_DireccionesContactoFECHA_MODIFICACION].IsNull;
+end;
+
+procedure TDireccionesContactoDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_DireccionesContactoFECHA_MODIFICACION].AsVariant := Null;
+end;
+
{ TClientesDescuentosDataTableRules }
constructor TClientesDescuentosDataTableRules.Create(aDataTable: TDADataTable);
@@ -2948,6 +5751,17 @@ begin
DataTable.Fields[idx_ClientesDescuentosID].AsInteger := aValue;
end;
+function TClientesDescuentosDataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesDescuentosID].IsNull;
+end;
+
+procedure TClientesDescuentosDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesDescuentosID].AsVariant := Null;
+end;
+
function TClientesDescuentosDataTableRules.GetID_CLIENTEValue: Integer;
begin
result := DataTable.Fields[idx_ClientesDescuentosID_CLIENTE].AsInteger;
@@ -2958,6 +5772,17 @@ begin
DataTable.Fields[idx_ClientesDescuentosID_CLIENTE].AsInteger := aValue;
end;
+function TClientesDescuentosDataTableRules.GetID_CLIENTEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesDescuentosID_CLIENTE].IsNull;
+end;
+
+procedure TClientesDescuentosDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesDescuentosID_CLIENTE].AsVariant := Null;
+end;
+
function TClientesDescuentosDataTableRules.GetID_PROVEEDORValue: Integer;
begin
result := DataTable.Fields[idx_ClientesDescuentosID_PROVEEDOR].AsInteger;
@@ -2968,6 +5793,17 @@ begin
DataTable.Fields[idx_ClientesDescuentosID_PROVEEDOR].AsInteger := aValue;
end;
+function TClientesDescuentosDataTableRules.GetID_PROVEEDORIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesDescuentosID_PROVEEDOR].IsNull;
+end;
+
+procedure TClientesDescuentosDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesDescuentosID_PROVEEDOR].AsVariant := Null;
+end;
+
function TClientesDescuentosDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_ClientesDescuentosNOMBRE].AsString;
@@ -2978,6 +5814,17 @@ begin
DataTable.Fields[idx_ClientesDescuentosNOMBRE].AsString := aValue;
end;
+function TClientesDescuentosDataTableRules.GetNOMBREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesDescuentosNOMBRE].IsNull;
+end;
+
+procedure TClientesDescuentosDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesDescuentosNOMBRE].AsVariant := Null;
+end;
+
function TClientesDescuentosDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_ClientesDescuentosDESCUENTO].AsFloat;
@@ -2988,6 +5835,17 @@ begin
DataTable.Fields[idx_ClientesDescuentosDESCUENTO].AsFloat := aValue;
end;
+function TClientesDescuentosDataTableRules.GetDESCUENTOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ClientesDescuentosDESCUENTO].IsNull;
+end;
+
+procedure TClientesDescuentosDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ClientesDescuentosDESCUENTO].AsVariant := Null;
+end;
+
{ TGruposProveedorDataTableRules }
constructor TGruposProveedorDataTableRules.Create(aDataTable: TDADataTable);
@@ -3010,6 +5868,17 @@ begin
DataTable.Fields[idx_GruposProveedorDESCRIPCION].AsString := aValue;
end;
+function TGruposProveedorDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_GruposProveedorDESCRIPCION].IsNull;
+end;
+
+procedure TGruposProveedorDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_GruposProveedorDESCRIPCION].AsVariant := Null;
+end;
+
{ TGruposEmpleadoDataTableRules }
constructor TGruposEmpleadoDataTableRules.Create(aDataTable: TDADataTable);
@@ -3032,6 +5901,17 @@ begin
DataTable.Fields[idx_GruposEmpleadoDESCRIPCION].AsString := aValue;
end;
+function TGruposEmpleadoDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_GruposEmpleadoDESCRIPCION].IsNull;
+end;
+
+procedure TGruposEmpleadoDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_GruposEmpleadoDESCRIPCION].AsVariant := Null;
+end;
+
initialization
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
index bacbb9a3..182a36b8 100644
--- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
@@ -3,28 +3,28 @@ unit schContactosServer_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schContactosClient_Intf;
+ Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schContactosClient_Intf;
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 = '{AA1FED77-C1C8-4EA9-9B07-E74C63CBF307}';
- RID_GruposClienteDelta = '{4D46364E-1E11-4648-A9C7-AE4B81FB675C}';
- RID_DatosBancariosDelta = '{D4227F74-9431-45EA-8F09-20FFE80E34B1}';
- RID_ContactosCategoriasDelta = '{EB18171B-206D-4CFF-97FF-CB91350EAF4C}';
- RID_ClientesDelta = '{6C588001-84B7-4F1C-9C6B-84A254E1EA7D}';
- RID_ProveedoresDelta = '{168C19DE-0AD5-40CB-B737-628846E311FE}';
- RID_EmpleadosDelta = '{6544E069-D22D-49D4-AAFE-47DD92FA7744}';
- RID_DireccionesContactoDelta = '{D6123AD7-AA38-4AEF-9E89-E713C83A3DDC}';
- RID_ClientesDescuentosDelta = '{2E020115-E0E9-464F-B175-1BED0E2BF0B1}';
- RID_GruposProveedorDelta = '{14E46C85-BAAE-4A15-B868-EC579AF38A8A}';
- RID_GruposEmpleadoDelta = '{364591F3-D581-4104-9125-7CE465563DEB}';
+ RID_ContactosDelta = '{90C4A2E6-1054-4D36-A741-6A1BF52A25E7}';
+ RID_GruposClienteDelta = '{7A648188-AB7A-432A-ADFD-ADBBCB0BC3C0}';
+ RID_DatosBancariosDelta = '{2C4BC767-58D4-4D18-82CE-BF0D84C34C3F}';
+ RID_ContactosCategoriasDelta = '{B3364ABC-AD2A-4EBE-9779-3A7CDD2A5E30}';
+ RID_ClientesDelta = '{13F6AC62-4F2D-44CB-8434-5A767E4B76F9}';
+ RID_ProveedoresDelta = '{C4485AB1-1D9D-4D0D-92BB-EC12B5F0C442}';
+ RID_EmpleadosDelta = '{03EED035-3B00-4EC5-ACB5-AB59BC7459A2}';
+ RID_DireccionesContactoDelta = '{A9890AF4-313B-4379-B667-7C61575A5E7B}';
+ RID_ClientesDescuentosDelta = '{541FF616-E3D7-4B21-8F45-4EC12B42AD92}';
+ RID_GruposProveedorDelta = '{CF38615B-E679-4D09-A621-C90DFB4F4F10}';
+ RID_GruposEmpleadoDelta = '{57335A1E-F228-4448-85E4-3CFAC72FFD63}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
- ['{AA1FED77-C1C8-4EA9-9B07-E74C63CBF307}']
+ ['{90C4A2E6-1054-4D36-A741-6A1BF52A25E7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -44,6 +44,8 @@ type
function GetOldEMAIL_2Value : String;
function GetOldPAGINA_WEBValue : String;
function GetOldNOTASValue : IROStrings;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
@@ -67,6 +69,8 @@ type
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
@@ -75,115 +79,241 @@ type
{ TContactosBusinessProcessorRules }
TContactosBusinessProcessorRules = class(TDABusinessProcessorRules, IContactos, IContactosDelta)
private
+ f_NOTAS: IROStrings;
+ procedure NOTAS_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
+ function GetID_CATEGORIAIsNull: Boolean; virtual;
function GetOldID_CATEGORIAValue: Integer; virtual;
+ function GetOldID_CATEGORIAIsNull: Boolean; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
+ function GetOldNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
+ function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual;
+ function GetCALLEIsNull: Boolean; virtual;
function GetOldCALLEValue: String; virtual;
+ function GetOldCALLEIsNull: Boolean; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
function GetOldPOBLACIONValue: String; virtual;
+ function GetOldPOBLACIONIsNull: Boolean; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
function GetOldPROVINCIAValue: String; virtual;
+ function GetOldPROVINCIAIsNull: Boolean; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
+ function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONO_1Value: String; virtual;
+ function GetTELEFONO_1IsNull: Boolean; virtual;
function GetOldTELEFONO_1Value: String; virtual;
+ function GetOldTELEFONO_1IsNull: Boolean; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
function GetTELEFONO_2Value: String; virtual;
+ function GetTELEFONO_2IsNull: Boolean; virtual;
function GetOldTELEFONO_2Value: String; virtual;
+ function GetOldTELEFONO_2IsNull: Boolean; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
function GetMOVIL_1Value: String; virtual;
+ function GetMOVIL_1IsNull: Boolean; virtual;
function GetOldMOVIL_1Value: String; virtual;
+ function GetOldMOVIL_1IsNull: Boolean; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
function GetMOVIL_2Value: String; virtual;
+ function GetMOVIL_2IsNull: Boolean; virtual;
function GetOldMOVIL_2Value: String; virtual;
+ function GetOldMOVIL_2IsNull: Boolean; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
+ function GetFAXIsNull: Boolean; virtual;
function GetOldFAXValue: String; virtual;
+ function GetOldFAXIsNull: Boolean; virtual;
procedure SetFAXValue(const aValue: String); virtual;
+ procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAIL_1Value: String; virtual;
+ function GetEMAIL_1IsNull: Boolean; virtual;
function GetOldEMAIL_1Value: String; virtual;
+ function GetOldEMAIL_1IsNull: Boolean; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
function GetEMAIL_2Value: String; virtual;
+ function GetEMAIL_2IsNull: Boolean; virtual;
function GetOldEMAIL_2Value: String; virtual;
+ function GetOldEMAIL_2IsNull: Boolean; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
function GetPAGINA_WEBValue: String; virtual;
+ function GetPAGINA_WEBIsNull: Boolean; virtual;
function GetOldPAGINA_WEBValue: String; virtual;
+ function GetOldPAGINA_WEBIsNull: Boolean; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
function GetNOTASValue: IROStrings; virtual;
+ function GetNOTASIsNull: Boolean; virtual;
function GetOldNOTASValue: IROStrings; virtual;
- procedure SetNOTASValue(const aValue: IROStrings); virtual;
+ function GetOldNOTASIsNull: Boolean; virtual;
+ procedure SetNOTASIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
+ function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
+ property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
property CALLE : String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
property OldCALLE : String read GetOldCALLEValue;
+ property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
+ property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
+ property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
+ property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
+ property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
property FAX : String read GetFAXValue write SetFAXValue;
+ property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
property OldFAX : String read GetOldFAXValue;
+ property OldFAXIsNull : Boolean read GetOldFAXIsNull;
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
+ property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
+ property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
+ property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
- property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
+ property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
+ property NOTAS : IROStrings read GetNOTASValue;
+ property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
property OldNOTAS : IROStrings read GetOldNOTASValue;
+ property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -193,7 +323,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
- ['{4D46364E-1E11-4648-A9C7-AE4B81FB675C}']
+ ['{7A648188-AB7A-432A-ADFD-ADBBCB0BC3C0}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@@ -207,12 +337,17 @@ type
protected
{ Property getters and setters }
function GetDESCRIPCIONValue: String; virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
+ function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -222,7 +357,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
- ['{D4227F74-9431-45EA-8F09-20FFE80E34B1}']
+ ['{2C4BC767-58D4-4D18-82CE-BF0D84C34C3F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@@ -231,6 +366,8 @@ type
function GetOldSUCURSALValue : String;
function GetOldDCValue : String;
function GetOldCUENTAValue : String;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -240,6 +377,8 @@ type
property OldSUCURSAL : String read GetOldSUCURSALValue;
property OldDC : String read GetOldDCValue;
property OldCUENTA : String read GetOldCUENTAValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
end;
{ TDatosBancariosBusinessProcessorRules }
@@ -248,42 +387,97 @@ type
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CONTACTOValue: Integer; virtual;
+ function GetID_CONTACTOIsNull: Boolean; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
+ function GetOldID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
+ procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetTITULARValue: String; virtual;
+ function GetTITULARIsNull: Boolean; virtual;
function GetOldTITULARValue: String; virtual;
+ function GetOldTITULARIsNull: Boolean; virtual;
procedure SetTITULARValue(const aValue: String); virtual;
+ procedure SetTITULARIsNull(const aValue: Boolean); virtual;
function GetENTIDADValue: String; virtual;
+ function GetENTIDADIsNull: Boolean; virtual;
function GetOldENTIDADValue: String; virtual;
+ function GetOldENTIDADIsNull: Boolean; virtual;
procedure SetENTIDADValue(const aValue: String); virtual;
+ procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
function GetSUCURSALValue: String; virtual;
+ function GetSUCURSALIsNull: Boolean; virtual;
function GetOldSUCURSALValue: String; virtual;
+ function GetOldSUCURSALIsNull: Boolean; virtual;
procedure SetSUCURSALValue(const aValue: String); virtual;
+ procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
function GetDCValue: String; virtual;
+ function GetDCIsNull: Boolean; virtual;
function GetOldDCValue: String; virtual;
+ function GetOldDCIsNull: Boolean; virtual;
procedure SetDCValue(const aValue: String); virtual;
+ procedure SetDCIsNull(const aValue: Boolean); virtual;
function GetCUENTAValue: String; virtual;
+ function GetCUENTAIsNull: Boolean; virtual;
function GetOldCUENTAValue: String; virtual;
+ function GetOldCUENTAIsNull: Boolean; virtual;
procedure SetCUENTAValue(const aValue: String); virtual;
+ procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
+ property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
+ property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
property TITULAR : String read GetTITULARValue write SetTITULARValue;
+ property TITULARIsNull : Boolean read GetTITULARIsNull write SetTITULARIsNull;
property OldTITULAR : String read GetOldTITULARValue;
+ property OldTITULARIsNull : Boolean read GetOldTITULARIsNull;
property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
+ property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
property OldENTIDAD : String read GetOldENTIDADValue;
+ property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull;
property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
+ property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
property OldSUCURSAL : String read GetOldSUCURSALValue;
+ property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull;
property DC : String read GetDCValue write SetDCValue;
+ property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull;
property OldDC : String read GetOldDCValue;
+ property OldDCIsNull : Boolean read GetOldDCIsNull;
property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
+ property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
property OldCUENTA : String read GetOldCUENTAValue;
+ property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -293,7 +487,7 @@ type
{ IContactosCategoriasDelta }
IContactosCategoriasDelta = interface(IContactosCategorias)
- ['{EB18171B-206D-4CFF-97FF-CB91350EAF4C}']
+ ['{B3364ABC-AD2A-4EBE-9779-3A7CDD2A5E30}']
{ Property getters and setters }
function GetOldID_CONTACTOValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@@ -309,17 +503,27 @@ type
protected
{ Property getters and setters }
function GetID_CONTACTOValue: Integer; virtual;
+ function GetID_CONTACTOIsNull: Boolean; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
+ function GetOldID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
+ procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
+ function GetID_CATEGORIAIsNull: Boolean; virtual;
function GetOldID_CATEGORIAValue: Integer; virtual;
+ function GetOldID_CATEGORIAIsNull: Boolean; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
+ property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
+ property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
+ property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -329,14 +533,14 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
- ['{6C588001-84B7-4F1C-9C6B-84A254E1EA7D}']
+ ['{13F6AC62-4F2D-44CB-8434-5A767E4B76F9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
- function GetOldCALLEValue : String;
function GetOldPERSONA_CONTACTOValue : String;
+ function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
@@ -349,27 +553,29 @@ type
function GetOldEMAIL_2Value : String;
function GetOldPAGINA_WEBValue : String;
function GetOldNOTASValue : IROStrings;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
- function GetOldID_TIPO_IVAValue : Integer;
- function GetOldREGIMEN_IVAValue : String;
- function GetOldID_FORMA_PAGOValue : Integer;
- function GetOldTIENDA_WEBValue : Integer;
- function GetOldRECARGO_EQUIVALENCIAValue : Integer;
function GetOldGRUPO_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIALValue : String;
function GetOldVENCIMIENTO_FACTURASValue : Integer;
- function GetOldBLOQUEADOValue : Integer;
+ function GetOldBLOQUEADOValue : SmallInt;
+ function GetOldREGIMEN_IVAValue : String;
function GetOldMOTIVO_BLOQUEOValue : String;
+ function GetOldRECARGO_EQUIVALENCIAValue : Integer;
+ function GetOldID_TIPO_IVAValue : Integer;
+ function GetOldID_FORMA_PAGOValue : Integer;
+ function GetOldTIENDA_WEBValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
- property OldCALLE : String read GetOldCALLEValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
@@ -382,183 +588,361 @@ type
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
- property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
- property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
- property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
- property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
- property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
+ property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
+ property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
+ property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
+ 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;
end;
{ TClientesBusinessProcessorRules }
TClientesBusinessProcessorRules = class(TDABusinessProcessorRules, IClientes, IClientesDelta)
private
+ f_NOTAS: IROStrings;
+ procedure NOTAS_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
+ function GetID_CATEGORIAIsNull: Boolean; virtual;
function GetOldID_CATEGORIAValue: Integer; virtual;
+ function GetOldID_CATEGORIAIsNull: Boolean; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
+ function GetOldNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
- function GetCALLEValue: String; virtual;
- function GetOldCALLEValue: String; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
+ function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ function GetOldCALLEValue: String; virtual;
+ function GetOldCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
function GetOldPOBLACIONValue: String; virtual;
+ function GetOldPOBLACIONIsNull: Boolean; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
function GetOldPROVINCIAValue: String; virtual;
+ function GetOldPROVINCIAIsNull: Boolean; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
+ function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONO_1Value: String; virtual;
+ function GetTELEFONO_1IsNull: Boolean; virtual;
function GetOldTELEFONO_1Value: String; virtual;
+ function GetOldTELEFONO_1IsNull: Boolean; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
function GetTELEFONO_2Value: String; virtual;
+ function GetTELEFONO_2IsNull: Boolean; virtual;
function GetOldTELEFONO_2Value: String; virtual;
+ function GetOldTELEFONO_2IsNull: Boolean; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
function GetMOVIL_1Value: String; virtual;
+ function GetMOVIL_1IsNull: Boolean; virtual;
function GetOldMOVIL_1Value: String; virtual;
+ function GetOldMOVIL_1IsNull: Boolean; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
function GetMOVIL_2Value: String; virtual;
+ function GetMOVIL_2IsNull: Boolean; virtual;
function GetOldMOVIL_2Value: String; virtual;
+ function GetOldMOVIL_2IsNull: Boolean; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
+ function GetFAXIsNull: Boolean; virtual;
function GetOldFAXValue: String; virtual;
+ function GetOldFAXIsNull: Boolean; virtual;
procedure SetFAXValue(const aValue: String); virtual;
+ procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAIL_1Value: String; virtual;
+ function GetEMAIL_1IsNull: Boolean; virtual;
function GetOldEMAIL_1Value: String; virtual;
+ function GetOldEMAIL_1IsNull: Boolean; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
function GetEMAIL_2Value: String; virtual;
+ function GetEMAIL_2IsNull: Boolean; virtual;
function GetOldEMAIL_2Value: String; virtual;
+ function GetOldEMAIL_2IsNull: Boolean; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
function GetPAGINA_WEBValue: String; virtual;
+ function GetPAGINA_WEBIsNull: Boolean; virtual;
function GetOldPAGINA_WEBValue: String; virtual;
+ function GetOldPAGINA_WEBIsNull: Boolean; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
function GetNOTASValue: IROStrings; virtual;
+ function GetNOTASIsNull: Boolean; virtual;
function GetOldNOTASValue: IROStrings; virtual;
- procedure SetNOTASValue(const aValue: IROStrings); virtual;
+ function GetOldNOTASIsNull: Boolean; virtual;
+ procedure SetNOTASIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
+ function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetID_TIPO_IVAValue: Integer; virtual;
- function GetOldID_TIPO_IVAValue: Integer; virtual;
- procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
- function GetREGIMEN_IVAValue: String; virtual;
- function GetOldREGIMEN_IVAValue: String; virtual;
- procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
- function GetID_FORMA_PAGOValue: Integer; virtual;
- function GetOldID_FORMA_PAGOValue: Integer; virtual;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
- function GetTIENDA_WEBValue: Integer; virtual;
- function GetOldTIENDA_WEBValue: Integer; virtual;
- procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
- function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
- function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual;
- procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetGRUPO_CLIENTEValue: String; virtual;
+ function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
function GetOldGRUPO_CLIENTEValue: String; virtual;
+ function GetOldGRUPO_CLIENTEIsNull: Boolean; virtual;
procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
+ procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_COMERCIALValue: String; virtual;
+ function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
function GetOldNOMBRE_COMERCIALValue: String; virtual;
+ function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+ procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
function GetVENCIMIENTO_FACTURASValue: Integer; virtual;
+ function GetVENCIMIENTO_FACTURASIsNull: Boolean; virtual;
function GetOldVENCIMIENTO_FACTURASValue: Integer; virtual;
+ function GetOldVENCIMIENTO_FACTURASIsNull: Boolean; virtual;
procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual;
- function GetBLOQUEADOValue: Integer; virtual;
- function GetOldBLOQUEADOValue: Integer; virtual;
- procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
+ procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); virtual;
+ function GetBLOQUEADOValue: SmallInt; virtual;
+ function GetBLOQUEADOIsNull: Boolean; virtual;
+ function GetOldBLOQUEADOValue: SmallInt; virtual;
+ function GetOldBLOQUEADOIsNull: Boolean; virtual;
+ procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
+ procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual;
+ function GetREGIMEN_IVAValue: String; virtual;
+ function GetREGIMEN_IVAIsNull: Boolean; virtual;
+ function GetOldREGIMEN_IVAValue: String; virtual;
+ function GetOldREGIMEN_IVAIsNull: Boolean; virtual;
+ procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
+ procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual;
function GetMOTIVO_BLOQUEOValue: String; virtual;
+ function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual;
function GetOldMOTIVO_BLOQUEOValue: String; virtual;
+ function GetOldMOTIVO_BLOQUEOIsNull: Boolean; virtual;
procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual;
+ procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual;
+ function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
+ function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+ function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual;
+ function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
+ procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
+ procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_IVAValue: Integer; virtual;
+ function GetID_TIPO_IVAIsNull: Boolean; virtual;
+ function GetOldID_TIPO_IVAValue: Integer; virtual;
+ function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+ function GetID_FORMA_PAGOValue: Integer; virtual;
+ function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+ function GetOldID_FORMA_PAGOValue: Integer; virtual;
+ function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetTIENDA_WEBValue: SmallInt; virtual;
+ function GetTIENDA_WEBIsNull: Boolean; virtual;
+ function GetOldTIENDA_WEBValue: SmallInt; virtual;
+ function GetOldTIENDA_WEBIsNull: Boolean; virtual;
+ procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
+ procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
+ property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
- property CALLE : String read GetCALLEValue write SetCALLEValue;
- property OldCALLE : String read GetOldCALLEValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
+ property CALLE : String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
+ property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
+ property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
+ property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
+ property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
property FAX : String read GetFAXValue write SetFAXValue;
+ property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
property OldFAX : String read GetOldFAXValue;
+ property OldFAXIsNull : Boolean read GetOldFAXIsNull;
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
+ property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
+ property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
+ property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
- property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
+ property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
+ property NOTAS : IROStrings read GetNOTASValue;
+ property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
property OldNOTAS : IROStrings read GetOldNOTASValue;
+ property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
- property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
- property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
- property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
- property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
- property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
- property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
- property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
- property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
+ property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
+ property OldGRUPO_CLIENTEIsNull : Boolean read GetOldGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+ property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+ property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
property VENCIMIENTO_FACTURAS : Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
+ property VENCIMIENTO_FACTURASIsNull : Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull;
property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue;
- property BLOQUEADO : Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
- property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
+ property OldVENCIMIENTO_FACTURASIsNull : Boolean read GetOldVENCIMIENTO_FACTURASIsNull;
+ property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
+ property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
+ property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
+ property OldBLOQUEADOIsNull : Boolean read GetOldBLOQUEADOIsNull;
+ property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
+ property REGIMEN_IVAIsNull : Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
+ property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
+ property OldREGIMEN_IVAIsNull : Boolean read GetOldREGIMEN_IVAIsNull;
property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
+ property MOTIVO_BLOQUEOIsNull : Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
+ property OldMOTIVO_BLOQUEOIsNull : Boolean read GetOldMOTIVO_BLOQUEOIsNull;
+ property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
+ property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
+ property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
+ property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
+ property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+ property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
+ property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+ property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
+ property TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+ property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
+ property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
+ property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -568,14 +952,14 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
- ['{168C19DE-0AD5-40CB-B737-628846E311FE}']
+ ['{C4485AB1-1D9D-4D0D-92BB-EC12B5F0C442}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
- function GetOldCALLEValue : String;
function GetOldPERSONA_CONTACTOValue : String;
+ function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
@@ -588,27 +972,29 @@ type
function GetOldEMAIL_2Value : String;
function GetOldPAGINA_WEBValue : String;
function GetOldNOTASValue : IROStrings;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
- function GetOldID_TIPO_IVAValue : Integer;
- function GetOldREGIMEN_IVAValue : String;
- function GetOldID_FORMA_PAGOValue : Integer;
- function GetOldTIENDA_WEBValue : Integer;
function GetOldDESCUENTOValue : Float;
function GetOldDESCRIPCION_PROVEEDORValue : String;
function GetOldCODIGO_ASIGNADOValue : String;
- function GetOldHOMOLOGADOValue : Integer;
- function GetOldCERTIFICACIONValue : String;
function GetOldGRUPO_PROVEEDORValue : String;
+ function GetOldREGIMEN_IVAValue : String;
+ function GetOldID_TIPO_IVAValue : Integer;
+ function GetOldID_FORMA_PAGOValue : Integer;
+ function GetOldTIENDA_WEBValue : SmallInt;
+ function GetOldHOMOLOGADOValue : SmallInt;
+ function GetOldCERTIFICACIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
- property OldCALLE : String read GetOldCALLEValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
@@ -621,183 +1007,361 @@ type
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
- property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
- property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
- property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
- property OldHOMOLOGADO : Integer read GetOldHOMOLOGADOValue;
- property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue;
+ property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
+ 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 OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
+ property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
end;
{ TProveedoresBusinessProcessorRules }
TProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IProveedores, IProveedoresDelta)
private
+ f_NOTAS: IROStrings;
+ procedure NOTAS_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
+ function GetID_CATEGORIAIsNull: Boolean; virtual;
function GetOldID_CATEGORIAValue: Integer; virtual;
+ function GetOldID_CATEGORIAIsNull: Boolean; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
+ function GetOldNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
- function GetCALLEValue: String; virtual;
- function GetOldCALLEValue: String; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
+ function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ function GetOldCALLEValue: String; virtual;
+ function GetOldCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
function GetOldPOBLACIONValue: String; virtual;
+ function GetOldPOBLACIONIsNull: Boolean; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
function GetOldPROVINCIAValue: String; virtual;
+ function GetOldPROVINCIAIsNull: Boolean; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
+ function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONO_1Value: String; virtual;
+ function GetTELEFONO_1IsNull: Boolean; virtual;
function GetOldTELEFONO_1Value: String; virtual;
+ function GetOldTELEFONO_1IsNull: Boolean; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
function GetTELEFONO_2Value: String; virtual;
+ function GetTELEFONO_2IsNull: Boolean; virtual;
function GetOldTELEFONO_2Value: String; virtual;
+ function GetOldTELEFONO_2IsNull: Boolean; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
function GetMOVIL_1Value: String; virtual;
+ function GetMOVIL_1IsNull: Boolean; virtual;
function GetOldMOVIL_1Value: String; virtual;
+ function GetOldMOVIL_1IsNull: Boolean; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
function GetMOVIL_2Value: String; virtual;
+ function GetMOVIL_2IsNull: Boolean; virtual;
function GetOldMOVIL_2Value: String; virtual;
+ function GetOldMOVIL_2IsNull: Boolean; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
+ function GetFAXIsNull: Boolean; virtual;
function GetOldFAXValue: String; virtual;
+ function GetOldFAXIsNull: Boolean; virtual;
procedure SetFAXValue(const aValue: String); virtual;
+ procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAIL_1Value: String; virtual;
+ function GetEMAIL_1IsNull: Boolean; virtual;
function GetOldEMAIL_1Value: String; virtual;
+ function GetOldEMAIL_1IsNull: Boolean; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
function GetEMAIL_2Value: String; virtual;
+ function GetEMAIL_2IsNull: Boolean; virtual;
function GetOldEMAIL_2Value: String; virtual;
+ function GetOldEMAIL_2IsNull: Boolean; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
function GetPAGINA_WEBValue: String; virtual;
+ function GetPAGINA_WEBIsNull: Boolean; virtual;
function GetOldPAGINA_WEBValue: String; virtual;
+ function GetOldPAGINA_WEBIsNull: Boolean; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
function GetNOTASValue: IROStrings; virtual;
+ function GetNOTASIsNull: Boolean; virtual;
function GetOldNOTASValue: IROStrings; virtual;
- procedure SetNOTASValue(const aValue: IROStrings); virtual;
+ function GetOldNOTASIsNull: Boolean; virtual;
+ procedure SetNOTASIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
+ function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetID_TIPO_IVAValue: Integer; virtual;
- function GetOldID_TIPO_IVAValue: Integer; virtual;
- procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
- function GetREGIMEN_IVAValue: String; virtual;
- function GetOldREGIMEN_IVAValue: String; virtual;
- procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
- function GetID_FORMA_PAGOValue: Integer; virtual;
- function GetOldID_FORMA_PAGOValue: Integer; virtual;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
- function GetTIENDA_WEBValue: Integer; virtual;
- function GetOldTIENDA_WEBValue: Integer; virtual;
- procedure SetTIENDA_WEBValue(const aValue: Integer); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
+ function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCION_PROVEEDORValue: String; virtual;
+ function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
function GetOldDESCRIPCION_PROVEEDORValue: String; virtual;
+ function GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual;
+ procedure SetDESCRIPCION_PROVEEDORIsNull(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;
- function GetHOMOLOGADOValue: Integer; virtual;
- function GetOldHOMOLOGADOValue: Integer; virtual;
- procedure SetHOMOLOGADOValue(const aValue: Integer); virtual;
- function GetCERTIFICACIONValue: String; virtual;
- function GetOldCERTIFICACIONValue: String; virtual;
- procedure SetCERTIFICACIONValue(const aValue: String); virtual;
+ procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
function GetGRUPO_PROVEEDORValue: String; virtual;
+ function GetGRUPO_PROVEEDORIsNull: Boolean; virtual;
function GetOldGRUPO_PROVEEDORValue: String; virtual;
+ function GetOldGRUPO_PROVEEDORIsNull: Boolean; virtual;
procedure SetGRUPO_PROVEEDORValue(const aValue: String); virtual;
+ procedure SetGRUPO_PROVEEDORIsNull(const aValue: Boolean); virtual;
+ function GetREGIMEN_IVAValue: String; virtual;
+ function GetREGIMEN_IVAIsNull: Boolean; virtual;
+ function GetOldREGIMEN_IVAValue: String; virtual;
+ function GetOldREGIMEN_IVAIsNull: Boolean; virtual;
+ procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
+ procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual;
+ function GetID_TIPO_IVAValue: Integer; virtual;
+ function GetID_TIPO_IVAIsNull: Boolean; virtual;
+ function GetOldID_TIPO_IVAValue: Integer; virtual;
+ function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
+ procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
+ procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
+ function GetID_FORMA_PAGOValue: Integer; virtual;
+ function GetID_FORMA_PAGOIsNull: Boolean; virtual;
+ function GetOldID_FORMA_PAGOValue: Integer; virtual;
+ function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
+ procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
+ procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
+ function GetTIENDA_WEBValue: SmallInt; virtual;
+ function GetTIENDA_WEBIsNull: Boolean; virtual;
+ function GetOldTIENDA_WEBValue: SmallInt; virtual;
+ function GetOldTIENDA_WEBIsNull: Boolean; virtual;
+ procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
+ procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
+ function GetHOMOLOGADOValue: SmallInt; virtual;
+ function GetHOMOLOGADOIsNull: Boolean; virtual;
+ function GetOldHOMOLOGADOValue: SmallInt; virtual;
+ function GetOldHOMOLOGADOIsNull: Boolean; virtual;
+ procedure SetHOMOLOGADOValue(const aValue: SmallInt); virtual;
+ procedure SetHOMOLOGADOIsNull(const aValue: Boolean); virtual;
+ function GetCERTIFICACIONValue: String; virtual;
+ function GetCERTIFICACIONIsNull: Boolean; virtual;
+ function GetOldCERTIFICACIONValue: String; virtual;
+ function GetOldCERTIFICACIONIsNull: Boolean; virtual;
+ procedure SetCERTIFICACIONValue(const aValue: String); virtual;
+ procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
+ property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
- property CALLE : String read GetCALLEValue write SetCALLEValue;
- property OldCALLE : String read GetOldCALLEValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
+ property CALLE : String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
+ property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
+ property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
+ property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
+ property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
property FAX : String read GetFAXValue write SetFAXValue;
+ property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
property OldFAX : String read GetOldFAXValue;
+ property OldFAXIsNull : Boolean read GetOldFAXIsNull;
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
+ property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
+ property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
+ property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
- property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
+ property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
+ property NOTAS : IROStrings read GetNOTASValue;
+ property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
property OldNOTAS : IROStrings read GetOldNOTASValue;
+ property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
- property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
- property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
- property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
- property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
- property TIENDA_WEB : Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
- property OldTIENDA_WEB : Integer read GetOldTIENDA_WEBValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property DESCRIPCION_PROVEEDOR : String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
+ property DESCRIPCION_PROVEEDORIsNull : Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull;
property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
+ property OldDESCRIPCION_PROVEEDORIsNull : Boolean read GetOldDESCRIPCION_PROVEEDORIsNull;
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 HOMOLOGADO : Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
- property OldHOMOLOGADO : Integer read GetOldHOMOLOGADOValue;
- property CERTIFICACION : String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
- property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
+ property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
property GRUPO_PROVEEDOR : String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
+ property GRUPO_PROVEEDORIsNull : Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull;
property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue;
+ property OldGRUPO_PROVEEDORIsNull : Boolean read GetOldGRUPO_PROVEEDORIsNull;
+ property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
+ property REGIMEN_IVAIsNull : Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
+ property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
+ property OldREGIMEN_IVAIsNull : Boolean read GetOldREGIMEN_IVAIsNull;
+ property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
+ property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
+ property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
+ property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
+ property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
+ property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
+ property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
+ property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
+ property TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
+ 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 HOMOLOGADO : SmallInt read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
+ property HOMOLOGADOIsNull : Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
+ property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
+ property OldHOMOLOGADOIsNull : Boolean read GetOldHOMOLOGADOIsNull;
+ property CERTIFICACION : String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
+ property CERTIFICACIONIsNull : Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
+ property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
+ property OldCERTIFICACIONIsNull : Boolean read GetOldCERTIFICACIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -807,14 +1371,14 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
- ['{6544E069-D22D-49D4-AAFE-47DD92FA7744}']
+ ['{03EED035-3B00-4EC5-ACB5-AB59BC7459A2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
function GetOldNIF_CIFValue : String;
function GetOldNOMBREValue : String;
- function GetOldCALLEValue : String;
function GetOldPERSONA_CONTACTOValue : String;
+ function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
@@ -827,11 +1391,13 @@ type
function GetOldEMAIL_2Value : String;
function GetOldPAGINA_WEBValue : String;
function GetOldNOTASValue : IROStrings;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
- function GetOldCATEGORIAValue : String;
function GetOldFECHA_NACIMIENTOValue : DateTime;
+ function GetOldCATEGORIAValue : String;
function GetOldFECHA_ALTA_EMPRESAValue : DateTime;
function GetOldFORMACION_BASEValue : IROStrings;
function GetOldFORMACION_COMPLEValue : IROStrings;
@@ -843,8 +1409,8 @@ type
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
property OldNOMBRE : String read GetOldNOMBREValue;
- property OldCALLE : String read GetOldCALLEValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
@@ -857,11 +1423,13 @@ type
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldCATEGORIA : String read GetOldCATEGORIAValue;
property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue;
+ property OldCATEGORIA : String read GetOldCATEGORIAValue;
property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue;
property OldFORMACION_BASE : IROStrings read GetOldFORMACION_BASEValue;
property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue;
@@ -872,150 +1440,315 @@ type
{ TEmpleadosBusinessProcessorRules }
TEmpleadosBusinessProcessorRules = class(TDABusinessProcessorRules, IEmpleados, IEmpleadosDelta)
private
+ f_NOTAS: IROStrings;
+ f_FORMACION_BASE: IROStrings;
+ f_FORMACION_COMPLE: IROStrings;
+ f_FORMACION_RECIBIDA: IROStrings;
+ f_EXPERIENCIA: IROStrings;
+ procedure NOTAS_OnChange(Sender: TObject);
+ procedure FORMACION_BASE_OnChange(Sender: TObject);
+ procedure FORMACION_COMPLE_OnChange(Sender: TObject);
+ procedure FORMACION_RECIBIDA_OnChange(Sender: TObject);
+ procedure EXPERIENCIA_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CATEGORIAValue: Integer; virtual;
+ function GetID_CATEGORIAIsNull: Boolean; virtual;
function GetOldID_CATEGORIAValue: Integer; virtual;
+ function GetOldID_CATEGORIAIsNull: Boolean; virtual;
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
+ procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual;
function GetNIF_CIFValue: String; virtual;
+ function GetNIF_CIFIsNull: Boolean; virtual;
function GetOldNIF_CIFValue: String; virtual;
+ function GetOldNIF_CIFIsNull: Boolean; virtual;
procedure SetNIF_CIFValue(const aValue: String); virtual;
+ procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
- function GetCALLEValue: String; virtual;
- function GetOldCALLEValue: String; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
+ function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+ function GetCALLEValue: String; virtual;
+ function GetCALLEIsNull: Boolean; virtual;
+ function GetOldCALLEValue: String; virtual;
+ function GetOldCALLEIsNull: Boolean; virtual;
+ procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
function GetOldPOBLACIONValue: String; virtual;
+ function GetOldPOBLACIONIsNull: Boolean; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
function GetOldPROVINCIAValue: String; virtual;
+ function GetOldPROVINCIAIsNull: Boolean; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
+ function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetTELEFONO_1Value: String; virtual;
+ function GetTELEFONO_1IsNull: Boolean; virtual;
function GetOldTELEFONO_1Value: String; virtual;
+ function GetOldTELEFONO_1IsNull: Boolean; virtual;
procedure SetTELEFONO_1Value(const aValue: String); virtual;
+ procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
function GetTELEFONO_2Value: String; virtual;
+ function GetTELEFONO_2IsNull: Boolean; virtual;
function GetOldTELEFONO_2Value: String; virtual;
+ function GetOldTELEFONO_2IsNull: Boolean; virtual;
procedure SetTELEFONO_2Value(const aValue: String); virtual;
+ procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
function GetMOVIL_1Value: String; virtual;
+ function GetMOVIL_1IsNull: Boolean; virtual;
function GetOldMOVIL_1Value: String; virtual;
+ function GetOldMOVIL_1IsNull: Boolean; virtual;
procedure SetMOVIL_1Value(const aValue: String); virtual;
+ procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
function GetMOVIL_2Value: String; virtual;
+ function GetMOVIL_2IsNull: Boolean; virtual;
function GetOldMOVIL_2Value: String; virtual;
+ function GetOldMOVIL_2IsNull: Boolean; virtual;
procedure SetMOVIL_2Value(const aValue: String); virtual;
+ procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
+ function GetFAXIsNull: Boolean; virtual;
function GetOldFAXValue: String; virtual;
+ function GetOldFAXIsNull: Boolean; virtual;
procedure SetFAXValue(const aValue: String); virtual;
+ procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAIL_1Value: String; virtual;
+ function GetEMAIL_1IsNull: Boolean; virtual;
function GetOldEMAIL_1Value: String; virtual;
+ function GetOldEMAIL_1IsNull: Boolean; virtual;
procedure SetEMAIL_1Value(const aValue: String); virtual;
+ procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
function GetEMAIL_2Value: String; virtual;
+ function GetEMAIL_2IsNull: Boolean; virtual;
function GetOldEMAIL_2Value: String; virtual;
+ function GetOldEMAIL_2IsNull: Boolean; virtual;
procedure SetEMAIL_2Value(const aValue: String); virtual;
+ procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
function GetPAGINA_WEBValue: String; virtual;
+ function GetPAGINA_WEBIsNull: Boolean; virtual;
function GetOldPAGINA_WEBValue: String; virtual;
+ function GetOldPAGINA_WEBIsNull: Boolean; virtual;
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
+ procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
function GetNOTASValue: IROStrings; virtual;
+ function GetNOTASIsNull: Boolean; virtual;
function GetOldNOTASValue: IROStrings; virtual;
- procedure SetNOTASValue(const aValue: IROStrings); virtual;
+ function GetOldNOTASIsNull: Boolean; virtual;
+ procedure SetNOTASIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
+ function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
+ function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
+ procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
+ function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
+ function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
+ procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetCATEGORIAValue: String; virtual;
- function GetOldCATEGORIAValue: String; virtual;
- procedure SetCATEGORIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_NACIMIENTOValue: DateTime; virtual;
+ function GetFECHA_NACIMIENTOIsNull: Boolean; virtual;
function GetOldFECHA_NACIMIENTOValue: DateTime; virtual;
+ function GetOldFECHA_NACIMIENTOIsNull: Boolean; virtual;
procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_NACIMIENTOIsNull(const aValue: Boolean); virtual;
+ function GetCATEGORIAValue: String; virtual;
+ function GetCATEGORIAIsNull: Boolean; virtual;
+ function GetOldCATEGORIAValue: String; virtual;
+ function GetOldCATEGORIAIsNull: Boolean; virtual;
+ procedure SetCATEGORIAValue(const aValue: String); virtual;
+ procedure SetCATEGORIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTA_EMPRESAValue: DateTime; virtual;
+ function GetFECHA_ALTA_EMPRESAIsNull: Boolean; virtual;
function GetOldFECHA_ALTA_EMPRESAValue: DateTime; virtual;
+ function GetOldFECHA_ALTA_EMPRESAIsNull: Boolean; virtual;
procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetFORMACION_BASEValue: IROStrings; virtual;
+ function GetFORMACION_BASEIsNull: Boolean; virtual;
function GetOldFORMACION_BASEValue: IROStrings; virtual;
- procedure SetFORMACION_BASEValue(const aValue: IROStrings); virtual;
+ function GetOldFORMACION_BASEIsNull: Boolean; virtual;
+ procedure SetFORMACION_BASEIsNull(const aValue: Boolean); virtual;
function GetFORMACION_COMPLEValue: IROStrings; virtual;
+ function GetFORMACION_COMPLEIsNull: Boolean; virtual;
function GetOldFORMACION_COMPLEValue: IROStrings; virtual;
- procedure SetFORMACION_COMPLEValue(const aValue: IROStrings); virtual;
+ function GetOldFORMACION_COMPLEIsNull: Boolean; virtual;
+ procedure SetFORMACION_COMPLEIsNull(const aValue: Boolean); virtual;
function GetFORMACION_RECIBIDAValue: IROStrings; virtual;
+ function GetFORMACION_RECIBIDAIsNull: Boolean; virtual;
function GetOldFORMACION_RECIBIDAValue: IROStrings; virtual;
- procedure SetFORMACION_RECIBIDAValue(const aValue: IROStrings); virtual;
+ function GetOldFORMACION_RECIBIDAIsNull: Boolean; virtual;
+ procedure SetFORMACION_RECIBIDAIsNull(const aValue: Boolean); virtual;
function GetEXPERIENCIAValue: IROStrings; virtual;
+ function GetEXPERIENCIAIsNull: Boolean; virtual;
function GetOldEXPERIENCIAValue: IROStrings; virtual;
- procedure SetEXPERIENCIAValue(const aValue: IROStrings); virtual;
+ function GetOldEXPERIENCIAIsNull: Boolean; virtual;
+ procedure SetEXPERIENCIAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
+ property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
+ property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
+ property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
property OldNIF_CIF : String read GetOldNIF_CIFValue;
+ property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
- property CALLE : String read GetCALLEValue write SetCALLEValue;
- property OldCALLE : String read GetOldCALLEValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
+ property CALLE : String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
+ property OldCALLE : String read GetOldCALLEValue;
+ property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
+ property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
+ property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
+ property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
+ property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
+ property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
+ property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
+ property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
+ property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
property FAX : String read GetFAXValue write SetFAXValue;
+ property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
property OldFAX : String read GetOldFAXValue;
+ property OldFAXIsNull : Boolean read GetOldFAXIsNull;
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
+ property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
+ property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
+ property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
+ property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
+ property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
- property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
+ property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
+ property NOTAS : IROStrings read GetNOTASValue;
+ property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
property OldNOTAS : IROStrings read GetOldNOTASValue;
+ property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
+ property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
+ property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
+ property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+ property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property CATEGORIA : String read GetCATEGORIAValue write SetCATEGORIAValue;
- property OldCATEGORIA : String read GetOldCATEGORIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property FECHA_NACIMIENTO : DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue;
+ property FECHA_NACIMIENTOIsNull : Boolean read GetFECHA_NACIMIENTOIsNull write SetFECHA_NACIMIENTOIsNull;
property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue;
+ property OldFECHA_NACIMIENTOIsNull : Boolean read GetOldFECHA_NACIMIENTOIsNull;
+ property CATEGORIA : String read GetCATEGORIAValue write SetCATEGORIAValue;
+ property CATEGORIAIsNull : Boolean read GetCATEGORIAIsNull write SetCATEGORIAIsNull;
+ property OldCATEGORIA : String read GetOldCATEGORIAValue;
+ property OldCATEGORIAIsNull : Boolean read GetOldCATEGORIAIsNull;
property FECHA_ALTA_EMPRESA : DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue;
+ property FECHA_ALTA_EMPRESAIsNull : Boolean read GetFECHA_ALTA_EMPRESAIsNull write SetFECHA_ALTA_EMPRESAIsNull;
property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue;
- property FORMACION_BASE : IROStrings read GetFORMACION_BASEValue write SetFORMACION_BASEValue;
+ property OldFECHA_ALTA_EMPRESAIsNull : Boolean read GetOldFECHA_ALTA_EMPRESAIsNull;
+ property FORMACION_BASE : IROStrings read GetFORMACION_BASEValue;
+ property FORMACION_BASEIsNull : Boolean read GetFORMACION_BASEIsNull write SetFORMACION_BASEIsNull;
property OldFORMACION_BASE : IROStrings read GetOldFORMACION_BASEValue;
- property FORMACION_COMPLE : IROStrings read GetFORMACION_COMPLEValue write SetFORMACION_COMPLEValue;
+ property OldFORMACION_BASEIsNull : Boolean read GetOldFORMACION_BASEIsNull;
+ property FORMACION_COMPLE : IROStrings read GetFORMACION_COMPLEValue;
+ property FORMACION_COMPLEIsNull : Boolean read GetFORMACION_COMPLEIsNull write SetFORMACION_COMPLEIsNull;
property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue;
- property FORMACION_RECIBIDA : IROStrings read GetFORMACION_RECIBIDAValue write SetFORMACION_RECIBIDAValue;
+ property OldFORMACION_COMPLEIsNull : Boolean read GetOldFORMACION_COMPLEIsNull;
+ property FORMACION_RECIBIDA : IROStrings read GetFORMACION_RECIBIDAValue;
+ property FORMACION_RECIBIDAIsNull : Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull;
property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue;
- property EXPERIENCIA : IROStrings read GetEXPERIENCIAValue write SetEXPERIENCIAValue;
+ property OldFORMACION_RECIBIDAIsNull : Boolean read GetOldFORMACION_RECIBIDAIsNull;
+ property EXPERIENCIA : IROStrings read GetEXPERIENCIAValue;
+ property EXPERIENCIAIsNull : Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue;
+ property OldEXPERIENCIAIsNull : Boolean read GetOldEXPERIENCIAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1025,117 +1758,212 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
- ['{D6123AD7-AA38-4AEF-9E89-E713C83A3DDC}']
+ ['{A9890AF4-313B-4379-B667-7C61575A5E7B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
- function GetOldNOMBREValue : String;
function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldPERSONA_CONTACTOValue : String;
+ function GetOldNOMBREValue : String;
function GetOldTELEFONOValue : String;
function GetOldMOVILValue : String;
function GetOldFAXValue : String;
function GetOldEMAILValue : String;
function GetOldNOTASValue : IROStrings;
function GetOldPORTEValue : Float;
+ function GetOldFECHA_ALTAValue : DateTime;
+ function GetOldFECHA_MODIFICACIONValue : DateTime;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
- property OldNOMBRE : String read GetOldNOMBREValue;
property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldNOMBRE : String read GetOldNOMBREValue;
property OldTELEFONO : String read GetOldTELEFONOValue;
property OldMOVIL : String read GetOldMOVILValue;
property OldFAX : String read GetOldFAXValue;
property OldEMAIL : String read GetOldEMAILValue;
property OldNOTAS : IROStrings read GetOldNOTASValue;
property OldPORTE : Float read GetOldPORTEValue;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
end;
{ TDireccionesContactoBusinessProcessorRules }
TDireccionesContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IDireccionesContacto, IDireccionesContactoDelta)
private
+ f_NOTAS: IROStrings;
+ procedure NOTAS_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CONTACTOValue: Integer; virtual;
+ function GetID_CONTACTOIsNull: Boolean; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
+ function GetOldID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
- function GetNOMBREValue: String; virtual;
- function GetOldNOMBREValue: String; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual;
+ function GetCALLEIsNull: Boolean; virtual;
function GetOldCALLEValue: String; virtual;
+ function GetOldCALLEIsNull: Boolean; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
+ procedure SetCALLEIsNull(const aValue: Boolean); virtual;
function GetPOBLACIONValue: String; virtual;
+ function GetPOBLACIONIsNull: Boolean; virtual;
function GetOldPOBLACIONValue: String; virtual;
+ function GetOldPOBLACIONIsNull: Boolean; virtual;
procedure SetPOBLACIONValue(const aValue: String); virtual;
+ procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
function GetPROVINCIAValue: String; virtual;
+ function GetPROVINCIAIsNull: Boolean; virtual;
function GetOldPROVINCIAValue: String; virtual;
+ function GetOldPROVINCIAIsNull: Boolean; virtual;
procedure SetPROVINCIAValue(const aValue: String); virtual;
+ procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
function GetCODIGO_POSTALValue: String; virtual;
+ function GetCODIGO_POSTALIsNull: Boolean; virtual;
function GetOldCODIGO_POSTALValue: String; virtual;
+ function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
+ procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
+ function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
+ function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
+ procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
+ function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
+ function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
+ procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetTELEFONOValue: String; virtual;
+ function GetTELEFONOIsNull: Boolean; virtual;
function GetOldTELEFONOValue: String; virtual;
+ function GetOldTELEFONOIsNull: Boolean; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
+ procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
function GetMOVILValue: String; virtual;
+ function GetMOVILIsNull: Boolean; virtual;
function GetOldMOVILValue: String; virtual;
+ function GetOldMOVILIsNull: Boolean; virtual;
procedure SetMOVILValue(const aValue: String); virtual;
+ procedure SetMOVILIsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
+ function GetFAXIsNull: Boolean; virtual;
function GetOldFAXValue: String; virtual;
+ function GetOldFAXIsNull: Boolean; virtual;
procedure SetFAXValue(const aValue: String); virtual;
+ procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAILValue: String; virtual;
+ function GetEMAILIsNull: Boolean; virtual;
function GetOldEMAILValue: String; virtual;
+ function GetOldEMAILIsNull: Boolean; virtual;
procedure SetEMAILValue(const aValue: String); virtual;
+ procedure SetEMAILIsNull(const aValue: Boolean); virtual;
function GetNOTASValue: IROStrings; virtual;
+ function GetNOTASIsNull: Boolean; virtual;
function GetOldNOTASValue: IROStrings; virtual;
- procedure SetNOTASValue(const aValue: IROStrings); virtual;
+ function GetOldNOTASIsNull: Boolean; virtual;
+ procedure SetNOTASIsNull(const aValue: Boolean); virtual;
function GetPORTEValue: Float; virtual;
+ function GetPORTEIsNull: Boolean; virtual;
function GetOldPORTEValue: Float; virtual;
+ function GetOldPORTEIsNull: Boolean; virtual;
procedure SetPORTEValue(const aValue: Float); virtual;
+ procedure SetPORTEIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_ALTAValue: DateTime; virtual;
+ function GetFECHA_ALTAIsNull: Boolean; virtual;
+ function GetOldFECHA_ALTAValue: DateTime; virtual;
+ function GetOldFECHA_ALTAIsNull: Boolean; virtual;
+ procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
+ function GetFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
+ function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
+ procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
+ procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
+ property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
- property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
- property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
property CALLE : String read GetCALLEValue write SetCALLEValue;
+ property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
property OldCALLE : String read GetOldCALLEValue;
+ property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
+ property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
property OldPOBLACION : String read GetOldPOBLACIONValue;
+ property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
+ property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
+ property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
+ property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
+ property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
+ property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
+ property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
+ property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
+ property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
+ property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property OldTELEFONO : String read GetOldTELEFONOValue;
+ property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
property MOVIL : String read GetMOVILValue write SetMOVILValue;
+ property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
property OldMOVIL : String read GetOldMOVILValue;
+ property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
property FAX : String read GetFAXValue write SetFAXValue;
+ property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
property OldFAX : String read GetOldFAXValue;
+ property OldFAXIsNull : Boolean read GetOldFAXIsNull;
property EMAIL : String read GetEMAILValue write SetEMAILValue;
+ property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull;
property OldEMAIL : String read GetOldEMAILValue;
- property NOTAS : IROStrings read GetNOTASValue write SetNOTASValue;
+ property OldEMAILIsNull : Boolean read GetOldEMAILIsNull;
+ property NOTAS : IROStrings read GetNOTASValue;
+ property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
property OldNOTAS : IROStrings read GetOldNOTASValue;
+ property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
property PORTE : Float read GetPORTEValue write SetPORTEValue;
+ property PORTEIsNull : Boolean read GetPORTEIsNull write SetPORTEIsNull;
property OldPORTE : Float read GetOldPORTEValue;
+ property OldPORTEIsNull : Boolean read GetOldPORTEIsNull;
+ property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
+ property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
+ property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
+ property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
+ property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
+ property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+ property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+ property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1145,7 +1973,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
- ['{2E020115-E0E9-464F-B175-1BED0E2BF0B1}']
+ ['{541FF616-E3D7-4B21-8F45-4EC12B42AD92}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@@ -1167,32 +1995,57 @@ type
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_CLIENTEValue: Integer; virtual;
+ function GetID_CLIENTEIsNull: Boolean; virtual;
function GetOldID_CLIENTEValue: Integer; virtual;
+ function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
+ procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
+ function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual;
+ function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
+ procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
+ function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
+ function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
+ procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
+ function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
+ function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
+ procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
+ property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
+ property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
+ property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
+ property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
+ property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
+ property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
+ property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1202,7 +2055,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
- ['{14E46C85-BAAE-4A15-B868-EC579AF38A8A}']
+ ['{CF38615B-E679-4D09-A621-C90DFB4F4F10}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@@ -1216,12 +2069,17 @@ type
protected
{ Property getters and setters }
function GetDESCRIPCIONValue: String; virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
+ function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1231,7 +2089,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
- ['{364591F3-D581-4104-9125-7CE465563DEB}']
+ ['{57335A1E-F228-4448-85E4-3CFAC72FFD63}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@@ -1245,12 +2103,17 @@ type
protected
{ Property getters and setters }
function GetDESCRIPCIONValue: String; virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
+ function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1261,12 +2124,18 @@ type
implementation
uses
- Variants, uROBinaryHelpers;
+ Variants, uROBinaryHelpers, uDAInterfaces;
{ TContactosBusinessProcessorRules }
constructor TContactosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := NOTAS_OnChange;
+ f_NOTAS := NewROStrings(StrList,True);
end;
destructor TContactosBusinessProcessorRules.Destroy;
@@ -1274,276 +2143,626 @@ begin
inherited;
end;
+procedure TContactosBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := TStringList(Sender).Text;
+end;
+
function TContactosBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID];
end;
+function TContactosBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID]);
+end;
+
function TContactosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID];
end;
+function TContactosBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID]);
+end;
+
procedure TContactosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA];
end;
+function TContactosBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA]);
+end;
+
function TContactosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA];
end;
+function TContactosBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA]);
+end;
+
procedure TContactosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF];
end;
+function TContactosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF]);
+end;
+
function TContactosBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF];
end;
+function TContactosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF]);
+end;
+
procedure TContactosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE];
end;
+function TContactosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE]);
+end;
+
function TContactosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE];
end;
+function TContactosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE]);
+end;
+
procedure TContactosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO];
end;
+function TContactosBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO]);
+end;
+
function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO];
end;
+function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO]);
+end;
+
procedure TContactosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE];
end;
+function TContactosBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE]);
+end;
+
function TContactosBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE];
end;
+function TContactosBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE]);
+end;
+
procedure TContactosBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION];
end;
+function TContactosBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION]);
+end;
+
function TContactosBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION];
end;
+function TContactosBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION]);
+end;
+
procedure TContactosBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA];
end;
+function TContactosBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA]);
+end;
+
function TContactosBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA];
end;
+function TContactosBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA]);
+end;
+
procedure TContactosBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL];
end;
+function TContactosBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL]);
+end;
+
function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL];
end;
+function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL]);
+end;
+
procedure TContactosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1];
end;
+function TContactosBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1]);
+end;
+
function TContactosBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1];
end;
+function TContactosBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1]);
+end;
+
procedure TContactosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2];
end;
+function TContactosBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2]);
+end;
+
function TContactosBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2];
end;
+function TContactosBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2]);
+end;
+
procedure TContactosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1];
end;
+function TContactosBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1]);
+end;
+
function TContactosBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1];
end;
+function TContactosBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1]);
+end;
+
procedure TContactosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2];
end;
+function TContactosBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2]);
+end;
+
function TContactosBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2];
end;
+function TContactosBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2]);
+end;
+
procedure TContactosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX];
end;
+function TContactosBusinessProcessorRules.GetFAXIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX]);
+end;
+
function TContactosBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX];
end;
+function TContactosBusinessProcessorRules.GetOldFAXIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX]);
+end;
+
procedure TContactosBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1];
end;
+function TContactosBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1]);
+end;
+
function TContactosBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1];
end;
+function TContactosBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1]);
+end;
+
procedure TContactosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2];
end;
+function TContactosBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2]);
+end;
+
function TContactosBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2];
end;
+function TContactosBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2]);
+end;
+
procedure TContactosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB];
end;
+function TContactosBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB]);
+end;
+
function TContactosBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB];
end;
+function TContactosBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB]);
+end;
+
procedure TContactosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_NOTAS;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS];
end;
+function TContactosBusinessProcessorRules.GetNOTASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS]);
+end;
+
function TContactosBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS];
end;
-procedure TContactosBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
+function TContactosBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := aValue.Text;
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS]);
+end;
+
+procedure TContactosBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := Null;
+end;
+
+function TContactosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA];
+end;
+
+function TContactosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA]);
+end;
+
+function TContactosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA];
+end;
+
+function TContactosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA]);
+end;
+
+procedure TContactosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA] := aValue;
+end;
+
+procedure TContactosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA] := Null;
+end;
+
+function TContactosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION];
+end;
+
+function TContactosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION]);
+end;
+
+function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION];
+end;
+
+function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION]);
+end;
+
+procedure TContactosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TContactosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION] := Null;
end;
function TContactosBusinessProcessorRules.GetUSUARIOValue: String;
@@ -1551,46 +2770,94 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO];
end;
+function TContactosBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO]);
+end;
+
function TContactosBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO];
end;
+function TContactosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO]);
+end;
+
procedure TContactosBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA];
end;
+function TContactosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA]);
+end;
+
function TContactosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA];
end;
+function TContactosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA]);
+end;
+
procedure TContactosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA] := Null;
+end;
+
function TContactosBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA];
end;
+function TContactosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA]);
+end;
+
function TContactosBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA];
end;
+function TContactosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA]);
+end;
+
procedure TContactosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := aValue;
end;
+procedure TContactosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := Null;
+end;
+
{ TGruposClienteBusinessProcessorRules }
constructor TGruposClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1608,16 +2875,32 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION];
end;
+function TGruposClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION]);
+end;
+
function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION];
end;
+function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION]);
+end;
+
procedure TGruposClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION] := aValue;
end;
+procedure TGruposClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION] := Null;
+end;
+
{ TDatosBancariosBusinessProcessorRules }
constructor TDatosBancariosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1635,106 +2918,280 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID];
end;
+function TDatosBancariosBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID]);
+end;
+
function TDatosBancariosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID];
end;
+function TDatosBancariosBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID]);
+end;
+
procedure TDatosBancariosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID] := aValue;
end;
+procedure TDatosBancariosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID] := Null;
+end;
+
function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO];
end;
+function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO]);
+end;
+
function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO];
end;
+function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO]);
+end;
+
procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO] := aValue;
end;
+procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO] := Null;
+end;
+
function TDatosBancariosBusinessProcessorRules.GetTITULARValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR];
end;
+function TDatosBancariosBusinessProcessorRules.GetTITULARIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR]);
+end;
+
function TDatosBancariosBusinessProcessorRules.GetOldTITULARValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR];
end;
+function TDatosBancariosBusinessProcessorRules.GetOldTITULARIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR]);
+end;
+
procedure TDatosBancariosBusinessProcessorRules.SetTITULARValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR] := aValue;
end;
+procedure TDatosBancariosBusinessProcessorRules.SetTITULARIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR] := Null;
+end;
+
function TDatosBancariosBusinessProcessorRules.GetENTIDADValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD];
end;
+function TDatosBancariosBusinessProcessorRules.GetENTIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD]);
+end;
+
function TDatosBancariosBusinessProcessorRules.GetOldENTIDADValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD];
end;
+function TDatosBancariosBusinessProcessorRules.GetOldENTIDADIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD]);
+end;
+
procedure TDatosBancariosBusinessProcessorRules.SetENTIDADValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD] := aValue;
end;
+procedure TDatosBancariosBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD] := Null;
+end;
+
function TDatosBancariosBusinessProcessorRules.GetSUCURSALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL];
end;
+function TDatosBancariosBusinessProcessorRules.GetSUCURSALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL]);
+end;
+
function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL];
end;
+function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL]);
+end;
+
procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL] := aValue;
end;
+procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL] := Null;
+end;
+
function TDatosBancariosBusinessProcessorRules.GetDCValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC];
end;
+function TDatosBancariosBusinessProcessorRules.GetDCIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC]);
+end;
+
function TDatosBancariosBusinessProcessorRules.GetOldDCValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC];
end;
+function TDatosBancariosBusinessProcessorRules.GetOldDCIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC]);
+end;
+
procedure TDatosBancariosBusinessProcessorRules.SetDCValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC] := aValue;
end;
+procedure TDatosBancariosBusinessProcessorRules.SetDCIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC] := Null;
+end;
+
function TDatosBancariosBusinessProcessorRules.GetCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA];
end;
+function TDatosBancariosBusinessProcessorRules.GetCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA]);
+end;
+
function TDatosBancariosBusinessProcessorRules.GetOldCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA];
end;
+function TDatosBancariosBusinessProcessorRules.GetOldCUENTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA]);
+end;
+
procedure TDatosBancariosBusinessProcessorRules.SetCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA] := aValue;
end;
+procedure TDatosBancariosBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA] := Null;
+end;
+
+function TDatosBancariosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA];
+end;
+
+function TDatosBancariosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA]);
+end;
+
+function TDatosBancariosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_ALTA];
+end;
+
+function TDatosBancariosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_ALTA]);
+end;
+
+procedure TDatosBancariosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA] := aValue;
+end;
+
+procedure TDatosBancariosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA] := Null;
+end;
+
+function TDatosBancariosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION];
+end;
+
+function TDatosBancariosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION]);
+end;
+
+function TDatosBancariosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_MODIFICACION];
+end;
+
+function TDatosBancariosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_MODIFICACION]);
+end;
+
+procedure TDatosBancariosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TDatosBancariosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION] := Null;
+end;
+
{ TContactosCategoriasBusinessProcessorRules }
constructor TContactosCategoriasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1752,36 +3209,74 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CONTACTO];
end;
+function TContactosCategoriasBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CONTACTO]);
+end;
+
function TContactosCategoriasBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCategoriasID_CONTACTO];
end;
+function TContactosCategoriasBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCategoriasID_CONTACTO]);
+end;
+
procedure TContactosCategoriasBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CONTACTO] := aValue;
end;
+procedure TContactosCategoriasBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CONTACTO] := Null;
+end;
+
function TContactosCategoriasBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CATEGORIA];
end;
+function TContactosCategoriasBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CATEGORIA]);
+end;
+
function TContactosCategoriasBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCategoriasID_CATEGORIA];
end;
+function TContactosCategoriasBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCategoriasID_CATEGORIA]);
+end;
+
procedure TContactosCategoriasBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CATEGORIA] := aValue;
end;
+procedure TContactosCategoriasBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCategoriasID_CATEGORIA] := Null;
+end;
+
{ TClientesBusinessProcessorRules }
constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := NOTAS_OnChange;
+ f_NOTAS := NewROStrings(StrList,True);
end;
destructor TClientesBusinessProcessorRules.Destroy;
@@ -1789,79 +3284,133 @@ begin
inherited;
end;
+procedure TClientesBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := TStringList(Sender).Text;
+end;
+
function TClientesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID];
end;
+function TClientesBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID]);
+end;
+
function TClientesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID];
end;
+function TClientesBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID]);
+end;
+
procedure TClientesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA];
end;
+function TClientesBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA]);
+end;
+
function TClientesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA];
end;
+function TClientesBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA]);
+end;
+
procedure TClientesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF];
end;
+function TClientesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF]);
+end;
+
function TClientesBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF];
end;
+function TClientesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF]);
+end;
+
procedure TClientesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE];
end;
+function TClientesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE]);
+end;
+
function TClientesBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE];
end;
+function TClientesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE]);
+end;
+
procedure TClientesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE] := aValue;
end;
-function TClientesBusinessProcessorRules.GetCALLEValue: String;
+procedure TClientesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE];
-end;
-
-function TClientesBusinessProcessorRules.GetOldCALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE];
-end;
-
-procedure TClientesBusinessProcessorRules.SetCALLEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE] := aValue;
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE] := Null;
end;
function TClientesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
@@ -1869,196 +3418,492 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO];
end;
+function TClientesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO]);
+end;
+
function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO];
end;
+function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO]);
+end;
+
procedure TClientesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO] := Null;
+end;
+
+function TClientesBusinessProcessorRules.GetCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE];
+end;
+
+function TClientesBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE];
+end;
+
+function TClientesBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetCALLEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION];
end;
+function TClientesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION]);
+end;
+
function TClientesBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION];
end;
+function TClientesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION]);
+end;
+
procedure TClientesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA];
end;
+function TClientesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA]);
+end;
+
function TClientesBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA];
end;
+function TClientesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA]);
+end;
+
procedure TClientesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL];
end;
+function TClientesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL]);
+end;
+
function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL];
end;
+function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL]);
+end;
+
procedure TClientesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1];
end;
+function TClientesBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1]);
+end;
+
function TClientesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1];
end;
+function TClientesBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1]);
+end;
+
procedure TClientesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2];
end;
+function TClientesBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2]);
+end;
+
function TClientesBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2];
end;
+function TClientesBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2]);
+end;
+
procedure TClientesBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1];
end;
+function TClientesBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1]);
+end;
+
function TClientesBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1];
end;
+function TClientesBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1]);
+end;
+
procedure TClientesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2];
end;
+function TClientesBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2]);
+end;
+
function TClientesBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2];
end;
+function TClientesBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2]);
+end;
+
procedure TClientesBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX];
end;
+function TClientesBusinessProcessorRules.GetFAXIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX]);
+end;
+
function TClientesBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX];
end;
+function TClientesBusinessProcessorRules.GetOldFAXIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX]);
+end;
+
procedure TClientesBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1];
end;
+function TClientesBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1]);
+end;
+
function TClientesBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1];
end;
+function TClientesBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1]);
+end;
+
procedure TClientesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2];
end;
+function TClientesBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2]);
+end;
+
function TClientesBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2];
end;
+function TClientesBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2]);
+end;
+
procedure TClientesBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB];
end;
+function TClientesBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB]);
+end;
+
function TClientesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB];
end;
+function TClientesBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB]);
+end;
+
procedure TClientesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_NOTAS;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS];
end;
+function TClientesBusinessProcessorRules.GetNOTASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS]);
+end;
+
function TClientesBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS];
end;
-procedure TClientesBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
+function TClientesBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := aValue.Text;
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := Null;
+end;
+
+function TClientesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA];
+end;
+
+function TClientesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA];
+end;
+
+function TClientesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA] := Null;
+end;
+
+function TClientesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION];
+end;
+
+function TClientesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION];
+end;
+
+function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION] := Null;
end;
function TClientesBusinessProcessorRules.GetUSUARIOValue: String;
@@ -2066,119 +3911,92 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO];
end;
+function TClientesBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO]);
+end;
+
function TClientesBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO];
end;
+function TClientesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO]);
+end;
+
procedure TClientesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA];
end;
+function TClientesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA]);
+end;
+
function TClientesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA];
end;
+function TClientesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA]);
+end;
+
procedure TClientesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA];
end;
+function TClientesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA]);
+end;
+
function TClientesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA];
end;
+function TClientesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA]);
+end;
+
procedure TClientesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := aValue;
end;
-function TClientesBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
+procedure TClientesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA];
-end;
-
-function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA];
-end;
-
-procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA] := aValue;
-end;
-
-function TClientesBusinessProcessorRules.GetREGIMEN_IVAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA];
-end;
-
-function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA];
-end;
-
-procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA] := aValue;
-end;
-
-function TClientesBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
-end;
-
-function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO];
-end;
-
-procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO] := aValue;
-end;
-
-function TClientesBusinessProcessorRules.GetTIENDA_WEBValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB];
-end;
-
-function TClientesBusinessProcessorRules.GetOldTIENDA_WEBValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB];
-end;
-
-procedure TClientesBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := aValue;
-end;
-
-function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
-end;
-
-function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
-end;
-
-procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := aValue;
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := Null;
end;
function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String;
@@ -2186,81 +4004,322 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
end;
+function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]);
+end;
+
function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE];
end;
+function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE]);
+end;
+
procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
end;
+function TClientesBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]);
+end;
+
function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL];
end;
+function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL]);
+end;
+
procedure TClientesBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
end;
+function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]);
+end;
+
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS];
end;
+function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS]);
+end;
+
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := aValue;
end;
-function TClientesBusinessProcessorRules.GetBLOQUEADOValue: Integer;
+procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := Null;
+end;
+
+function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO];
end;
-function TClientesBusinessProcessorRules.GetOldBLOQUEADOValue: Integer;
+function TClientesBusinessProcessorRules.GetBLOQUEADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldBLOQUEADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO];
end;
-procedure TClientesBusinessProcessorRules.SetBLOQUEADOValue(const aValue: Integer);
+function TClientesBusinessProcessorRules.GetOldBLOQUEADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetBLOQUEADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetBLOQUEADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO] := Null;
+end;
+
+function TClientesBusinessProcessorRules.GetREGIMEN_IVAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA];
+end;
+
+function TClientesBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA];
+end;
+
+function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA] := Null;
+end;
+
function TClientesBusinessProcessorRules.GetMOTIVO_BLOQUEOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
end;
+function TClientesBusinessProcessorRules.GetMOTIVO_BLOQUEOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]);
+end;
+
function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO];
end;
+function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO]);
+end;
+
procedure TClientesBusinessProcessorRules.SetMOTIVO_BLOQUEOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO] := aValue;
end;
+procedure TClientesBusinessProcessorRules.SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO] := Null;
+end;
+
+function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
+end;
+
+function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
+end;
+
+function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := Null;
+end;
+
+function TClientesBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA];
+end;
+
+function TClientesBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA];
+end;
+
+function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA] := Null;
+end;
+
+function TClientesBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
+end;
+
+function TClientesBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO];
+end;
+
+function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO] := Null;
+end;
+
+function TClientesBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB];
+end;
+
+function TClientesBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB];
+end;
+
+function TClientesBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := Null;
+end;
+
{ TProveedoresBusinessProcessorRules }
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := NOTAS_OnChange;
+ f_NOTAS := NewROStrings(StrList,True);
end;
destructor TProveedoresBusinessProcessorRules.Destroy;
@@ -2268,79 +4327,133 @@ begin
inherited;
end;
+procedure TProveedoresBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := TStringList(Sender).Text;
+end;
+
function TProveedoresBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID];
end;
+function TProveedoresBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID];
end;
+function TProveedoresBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA];
end;
+function TProveedoresBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA];
end;
+function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF];
end;
+function TProveedoresBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF];
end;
+function TProveedoresBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE];
end;
+function TProveedoresBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE];
end;
+function TProveedoresBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE] := aValue;
end;
-function TProveedoresBusinessProcessorRules.GetCALLEValue: String;
+procedure TProveedoresBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE];
-end;
-
-function TProveedoresBusinessProcessorRules.GetOldCALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE];
-end;
-
-procedure TProveedoresBusinessProcessorRules.SetCALLEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE] := aValue;
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE] := Null;
end;
function TProveedoresBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
@@ -2348,196 +4461,492 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO];
end;
+function TProveedoresBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO];
end;
+function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO] := Null;
+end;
+
+function TProveedoresBusinessProcessorRules.GetCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE];
+end;
+
+function TProveedoresBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetCALLEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION];
end;
+function TProveedoresBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION];
end;
+function TProveedoresBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA];
end;
+function TProveedoresBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA];
end;
+function TProveedoresBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL];
end;
+function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL];
end;
+function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1];
end;
+function TProveedoresBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1];
end;
+function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2];
end;
+function TProveedoresBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2];
end;
+function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1];
end;
+function TProveedoresBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1];
end;
+function TProveedoresBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2];
end;
+function TProveedoresBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2];
end;
+function TProveedoresBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX];
end;
+function TProveedoresBusinessProcessorRules.GetFAXIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX];
end;
+function TProveedoresBusinessProcessorRules.GetOldFAXIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1];
end;
+function TProveedoresBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1];
end;
+function TProveedoresBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2];
end;
+function TProveedoresBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2];
end;
+function TProveedoresBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB];
end;
+function TProveedoresBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB];
end;
+function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_NOTAS;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS];
end;
+function TProveedoresBusinessProcessorRules.GetNOTASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS];
end;
-procedure TProveedoresBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
+function TProveedoresBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := aValue.Text;
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := Null;
+end;
+
+function TProveedoresBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA];
+end;
+
+function TProveedoresBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA] := Null;
+end;
+
+function TProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION];
+end;
+
+function TProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION] := Null;
end;
function TProveedoresBusinessProcessorRules.GetUSUARIOValue: String;
@@ -2545,104 +4954,92 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO];
end;
+function TProveedoresBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO];
end;
+function TProveedoresBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA];
end;
+function TProveedoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA];
end;
+function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA];
end;
+function TProveedoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA];
end;
+function TProveedoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := aValue;
end;
-function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
+procedure TProveedoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
-end;
-
-function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA];
-end;
-
-procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA] := aValue;
-end;
-
-function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
-end;
-
-function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA];
-end;
-
-procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := aValue;
-end;
-
-function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO];
-end;
-
-function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO];
-end;
-
-procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO] := aValue;
-end;
-
-function TProveedoresBusinessProcessorRules.GetTIENDA_WEBValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
-end;
-
-function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB];
-end;
-
-procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue;
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := Null;
end;
function TProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float;
@@ -2650,74 +5047,92 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO];
end;
+function TProveedoresBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO];
end;
+function TProveedoresBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR];
end;
+function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR];
end;
+function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := Null;
+end;
+
function TProveedoresBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO];
end;
+function TProveedoresBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_ASIGNADO];
end;
+function TProveedoresBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_ASIGNADO]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO] := aValue;
end;
-function TProveedoresBusinessProcessorRules.GetHOMOLOGADOValue: Integer;
+procedure TProveedoresBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
-end;
-
-function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO];
-end;
-
-procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO] := aValue;
-end;
-
-function TProveedoresBusinessProcessorRules.GetCERTIFICACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION];
-end;
-
-function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION];
-end;
-
-procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := aValue;
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO] := Null;
end;
function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORValue: String;
@@ -2725,21 +5140,245 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
end;
+function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]);
+end;
+
function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
end;
+function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR]);
+end;
+
procedure TProveedoresBusinessProcessorRules.SetGRUPO_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR] := aValue;
end;
+procedure TProveedoresBusinessProcessorRules.SetGRUPO_PROVEEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR] := Null;
+end;
+
+function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
+end;
+
+function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := Null;
+end;
+
+function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
+end;
+
+function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA] := Null;
+end;
+
+function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO];
+end;
+
+function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO] := Null;
+end;
+
+function TProveedoresBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
+end;
+
+function TProveedoresBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := Null;
+end;
+
+function TProveedoresBusinessProcessorRules.GetHOMOLOGADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
+end;
+
+function TProveedoresBusinessProcessorRules.GetHOMOLOGADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO] := Null;
+end;
+
+function TProveedoresBusinessProcessorRules.GetCERTIFICACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION];
+end;
+
+function TProveedoresBusinessProcessorRules.GetCERTIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := Null;
+end;
+
{ TEmpleadosBusinessProcessorRules }
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := NOTAS_OnChange;
+ f_NOTAS := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := FORMACION_BASE_OnChange;
+ f_FORMACION_BASE := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := FORMACION_COMPLE_OnChange;
+ f_FORMACION_COMPLE := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := FORMACION_RECIBIDA_OnChange;
+ f_FORMACION_RECIBIDA := NewROStrings(StrList,True);
+
+ StrList := TStringList.Create;
+ StrList.OnChange := EXPERIENCIA_OnChange;
+ f_EXPERIENCIA := NewROStrings(StrList,True);
end;
destructor TEmpleadosBusinessProcessorRules.Destroy;
@@ -2747,79 +5386,153 @@ begin
inherited;
end;
+procedure TEmpleadosBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS] := TStringList(Sender).Text;
+end;
+
+procedure TEmpleadosBusinessProcessorRules.FORMACION_BASE_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE] := TStringList(Sender).Text;
+end;
+
+procedure TEmpleadosBusinessProcessorRules.FORMACION_COMPLE_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE] := TStringList(Sender).Text;
+end;
+
+procedure TEmpleadosBusinessProcessorRules.FORMACION_RECIBIDA_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA] := TStringList(Sender).Text;
+end;
+
+procedure TEmpleadosBusinessProcessorRules.EXPERIENCIA_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := TStringList(Sender).Text;
+end;
+
function TEmpleadosBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID];
end;
+function TEmpleadosBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID];
end;
+function TEmpleadosBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA];
end;
+function TEmpleadosBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_CATEGORIA];
end;
+function TEmpleadosBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_CATEGORIA]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF];
end;
+function TEmpleadosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldNIF_CIFValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNIF_CIF];
end;
+function TEmpleadosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNIF_CIF]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE];
end;
+function TEmpleadosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOMBRE];
end;
+function TEmpleadosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOMBRE]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE] := aValue;
end;
-function TEmpleadosBusinessProcessorRules.GetCALLEValue: String;
+procedure TEmpleadosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE];
-end;
-
-function TEmpleadosBusinessProcessorRules.GetOldCALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE];
-end;
-
-procedure TEmpleadosBusinessProcessorRules.SetCALLEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE] := aValue;
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE] := Null;
end;
function TEmpleadosBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
@@ -2827,196 +5540,492 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO];
end;
+function TEmpleadosBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPERSONA_CONTACTO];
end;
+function TEmpleadosBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPERSONA_CONTACTO]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO] := Null;
+end;
+
+function TEmpleadosBusinessProcessorRules.GetCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE];
+end;
+
+function TEmpleadosBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE]);
+end;
+
+function TEmpleadosBusinessProcessorRules.GetOldCALLEValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE];
+end;
+
+function TEmpleadosBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE]);
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetCALLEValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE] := aValue;
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION];
end;
+function TEmpleadosBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPOBLACION];
end;
+function TEmpleadosBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPOBLACION]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA];
end;
+function TEmpleadosBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPROVINCIA];
end;
+function TEmpleadosBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPROVINCIA]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL];
end;
+function TEmpleadosBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCODIGO_POSTAL];
end;
+function TEmpleadosBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCODIGO_POSTAL]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1];
end;
+function TEmpleadosBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_1];
end;
+function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_1]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2];
end;
+function TEmpleadosBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_2];
end;
+function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_2]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1];
end;
+function TEmpleadosBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldMOVIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_1];
end;
+function TEmpleadosBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_1]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2];
end;
+function TEmpleadosBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldMOVIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_2];
end;
+function TEmpleadosBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_2]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX];
end;
+function TEmpleadosBusinessProcessorRules.GetFAXIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFAX];
end;
+function TEmpleadosBusinessProcessorRules.GetOldFAXIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFAX]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1];
end;
+function TEmpleadosBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldEMAIL_1Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_1];
end;
+function TEmpleadosBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_1]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2];
end;
+function TEmpleadosBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldEMAIL_2Value: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_2];
end;
+function TEmpleadosBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_2]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB];
end;
+function TEmpleadosBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAGINA_WEB];
end;
+function TEmpleadosBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAGINA_WEB]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_NOTAS;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS];
end;
+function TEmpleadosBusinessProcessorRules.GetNOTASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOTAS];
end;
-procedure TEmpleadosBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
+function TEmpleadosBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS] := aValue.Text;
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOTAS]);
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS] := Null;
+end;
+
+function TEmpleadosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA];
+end;
+
+function TEmpleadosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA]);
+end;
+
+function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA];
+end;
+
+function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA]);
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA] := aValue;
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA] := Null;
+end;
+
+function TEmpleadosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION];
+end;
+
+function TEmpleadosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION]);
+end;
+
+function TEmpleadosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_MODIFICACION];
+end;
+
+function TEmpleadosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_MODIFICACION]);
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION] := Null;
end;
function TEmpleadosBusinessProcessorRules.GetUSUARIOValue: String;
@@ -3024,59 +6033,92 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO];
end;
+function TEmpleadosBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosUSUARIO];
end;
+function TEmpleadosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosUSUARIO]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA];
end;
+function TEmpleadosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_EMPRESA];
end;
+function TEmpleadosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_EMPRESA]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA];
end;
+function TEmpleadosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosREFERENCIA];
end;
+function TEmpleadosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosREFERENCIA]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA] := aValue;
end;
-function TEmpleadosBusinessProcessorRules.GetCATEGORIAValue: String;
+procedure TEmpleadosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA];
-end;
-
-function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA];
-end;
-
-procedure TEmpleadosBusinessProcessorRules.SetCATEGORIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA] := aValue;
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA] := Null;
end;
function TEmpleadosBusinessProcessorRules.GetFECHA_NACIMIENTOValue: DateTime;
@@ -3084,104 +6126,217 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO];
end;
+function TEmpleadosBusinessProcessorRules.GetFECHA_NACIMIENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldFECHA_NACIMIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_NACIMIENTO];
end;
+function TEmpleadosBusinessProcessorRules.GetOldFECHA_NACIMIENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_NACIMIENTO]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetFECHA_NACIMIENTOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetFECHA_NACIMIENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO] := Null;
+end;
+
+function TEmpleadosBusinessProcessorRules.GetCATEGORIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA];
+end;
+
+function TEmpleadosBusinessProcessorRules.GetCATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA]);
+end;
+
+function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA];
+end;
+
+function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA]);
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetCATEGORIAValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA] := aValue;
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetCATEGORIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetFECHA_ALTA_EMPRESAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA];
end;
+function TEmpleadosBusinessProcessorRules.GetFECHA_ALTA_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA];
end;
+function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]);
+end;
+
procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA] := aValue;
end;
+procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA] := Null;
+end;
+
function TEmpleadosBusinessProcessorRules.GetFORMACION_BASEValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_FORMACION_BASE;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE];
end;
+function TEmpleadosBusinessProcessorRules.GetFORMACION_BASEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldFORMACION_BASEValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_BASE];
end;
-procedure TEmpleadosBusinessProcessorRules.SetFORMACION_BASEValue(const aValue: IROStrings);
+function TEmpleadosBusinessProcessorRules.GetOldFORMACION_BASEIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE] := aValue.Text;
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_BASE]);
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetFORMACION_BASEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE] := Null;
end;
function TEmpleadosBusinessProcessorRules.GetFORMACION_COMPLEValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_FORMACION_COMPLE;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE];
end;
+function TEmpleadosBusinessProcessorRules.GetFORMACION_COMPLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldFORMACION_COMPLEValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_COMPLE];
end;
-procedure TEmpleadosBusinessProcessorRules.SetFORMACION_COMPLEValue(const aValue: IROStrings);
+function TEmpleadosBusinessProcessorRules.GetOldFORMACION_COMPLEIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE] := aValue.Text;
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_COMPLE]);
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetFORMACION_COMPLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE] := Null;
end;
function TEmpleadosBusinessProcessorRules.GetFORMACION_RECIBIDAValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_FORMACION_RECIBIDA;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
end;
+function TEmpleadosBusinessProcessorRules.GetFORMACION_RECIBIDAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldFORMACION_RECIBIDAValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_RECIBIDA];
end;
-procedure TEmpleadosBusinessProcessorRules.SetFORMACION_RECIBIDAValue(const aValue: IROStrings);
+function TEmpleadosBusinessProcessorRules.GetOldFORMACION_RECIBIDAIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA] := aValue.Text;
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_RECIBIDA]);
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetFORMACION_RECIBIDAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA] := Null;
end;
function TEmpleadosBusinessProcessorRules.GetEXPERIENCIAValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_EXPERIENCIA;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
end;
+function TEmpleadosBusinessProcessorRules.GetEXPERIENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA]);
+end;
+
function TEmpleadosBusinessProcessorRules.GetOldEXPERIENCIAValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEXPERIENCIA];
end;
-procedure TEmpleadosBusinessProcessorRules.SetEXPERIENCIAValue(const aValue: IROStrings);
+function TEmpleadosBusinessProcessorRules.GetOldEXPERIENCIAIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := aValue.Text;
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEXPERIENCIA]);
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetEXPERIENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := Null;
end;
{ TDireccionesContactoBusinessProcessorRules }
constructor TDireccionesContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+var
+ StrList: TStringList;
begin
inherited;
+
+ StrList := TStringList.Create;
+ StrList.OnChange := NOTAS_OnChange;
+ f_NOTAS := NewROStrings(StrList,True);
end;
destructor TDireccionesContactoBusinessProcessorRules.Destroy;
@@ -3189,49 +6344,71 @@ begin
inherited;
end;
+procedure TDireccionesContactoBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := TStringList(Sender).Text;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID];
end;
+function TDireccionesContactoBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID] := Null;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO];
end;
+function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := aValue;
end;
-function TDireccionesContactoBusinessProcessorRules.GetNOMBREValue: String;
+procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE];
-end;
-
-function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE];
-end;
-
-procedure TDireccionesContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE] := aValue;
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := Null;
end;
function TDireccionesContactoBusinessProcessorRules.GetCALLEValue: String;
@@ -3239,151 +6416,337 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE];
end;
+function TDireccionesContactoBusinessProcessorRules.GetCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE] := Null;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION];
end;
+function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION] := Null;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA];
end;
+function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA] := Null;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL];
end;
+function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL] := Null;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO];
end;
+function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO] := Null;
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE];
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE]);
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE];
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE]);
+end;
+
+procedure TDireccionesContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE] := aValue;
+end;
+
+procedure TDireccionesContactoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE] := Null;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO];
end;
+function TDireccionesContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO] := Null;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL];
end;
+function TDireccionesContactoBusinessProcessorRules.GetMOVILIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetMOVILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL] := Null;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX];
end;
+function TDireccionesContactoBusinessProcessorRules.GetFAXIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX] := Null;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetEMAILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL];
end;
+function TDireccionesContactoBusinessProcessorRules.GetEMAILIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldEMAILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetEMAILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL] := Null;
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetNOTASValue: IROStrings;
begin
- result := NewROStrings();
+ result := f_NOTAS;
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS];
end;
+function TDireccionesContactoBusinessProcessorRules.GetNOTASIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldNOTASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS];
end;
-procedure TDireccionesContactoBusinessProcessorRules.SetNOTASValue(const aValue: IROStrings);
+function TDireccionesContactoBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := aValue.Text;
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS]);
+end;
+
+procedure TDireccionesContactoBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := Null;
end;
function TDireccionesContactoBusinessProcessorRules.GetPORTEValue: Float;
@@ -3391,16 +6754,94 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE];
end;
+function TDireccionesContactoBusinessProcessorRules.GetPORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE]);
+end;
+
function TDireccionesContactoBusinessProcessorRules.GetOldPORTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE];
end;
+function TDireccionesContactoBusinessProcessorRules.GetOldPORTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE]);
+end;
+
procedure TDireccionesContactoBusinessProcessorRules.SetPORTEValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := aValue;
end;
+procedure TDireccionesContactoBusinessProcessorRules.SetPORTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := Null;
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA];
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA]);
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA];
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA]);
+end;
+
+procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA] := aValue;
+end;
+
+procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA] := Null;
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION];
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION]);
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION];
+end;
+
+function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION]);
+end;
+
+procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION] := aValue;
+end;
+
+procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION] := Null;
+end;
+
{ TClientesDescuentosBusinessProcessorRules }
constructor TClientesDescuentosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -3418,76 +6859,156 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID];
end;
+function TClientesDescuentosBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID]);
+end;
+
function TClientesDescuentosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID];
end;
+function TClientesDescuentosBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID]);
+end;
+
procedure TClientesDescuentosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID] := aValue;
end;
+procedure TClientesDescuentosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID] := Null;
+end;
+
function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE];
end;
+function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE]);
+end;
+
function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE];
end;
+function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE]);
+end;
+
procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE] := aValue;
end;
+procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE] := Null;
+end;
+
function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR];
end;
+function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR]);
+end;
+
function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR];
end;
+function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR]);
+end;
+
procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR] := aValue;
end;
+procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR] := Null;
+end;
+
function TClientesDescuentosBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE];
end;
+function TClientesDescuentosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE]);
+end;
+
function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE];
end;
+function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE]);
+end;
+
procedure TClientesDescuentosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE] := aValue;
end;
+procedure TClientesDescuentosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE] := Null;
+end;
+
function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO];
end;
+function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO]);
+end;
+
function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO];
end;
+function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO]);
+end;
+
procedure TClientesDescuentosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO] := aValue;
end;
+procedure TClientesDescuentosBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO] := Null;
+end;
+
{ TGruposProveedorBusinessProcessorRules }
constructor TGruposProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -3505,16 +7026,32 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION];
end;
+function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION]);
+end;
+
function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION];
end;
+function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION]);
+end;
+
procedure TGruposProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION] := aValue;
end;
+procedure TGruposProveedorBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION] := Null;
+end;
+
{ TGruposEmpleadoBusinessProcessorRules }
constructor TGruposEmpleadoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -3532,16 +7069,32 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION];
end;
+function TGruposEmpleadoBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION]);
+end;
+
function TGruposEmpleadoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoDESCRIPCION];
end;
+function TGruposEmpleadoBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoDESCRIPCION]);
+end;
+
procedure TGruposEmpleadoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION] := aValue;
end;
+procedure TGruposEmpleadoBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION] := Null;
+end;
+
initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
index db5881c3..20dc7e87 100644
--- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
+++ b/Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf233.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Plugin\Contactos_plugin.drf */
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
index 42ecf53d..fef27cdd 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@@ -15,24 +15,12 @@ object srvContactos: TsrvContactos
Diagrams = Diagrams
Datasets = <
item
- Params = <
- item
- Name = 'ID_CATEGORIA'
- DataType = datInteger
- Value = '22'
- ParamType = daptInput
- end>
+ Params = <>
Statements = <
item
Connection = 'IBX'
- TargetTable = 'CONTACTOS'
- SQL =
- 'SELECT '#10' ID, ID_CATEGORIA, NIF_CIF, NOMBRE, PERSONA_CONTACTO,' +
- ' CALLE, POBLACION,'#10' PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TEL' +
- 'EFONO_2, MOVIL_1, '#10' MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WE' +
- 'B, NOTAS, '#10' USUARIO, ID_EMPRESA, REFERENCIA'#10' FROM'#10' V_CONT' +
- 'ACTOS'#10' WHERE'#10' ID_CATEGORIA = :ID_CATEGORIA'
- StatementType = stSQL
+ TargetTable = 'V_CONTACTOS'
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@@ -40,8 +28,7 @@ object srvContactos: TsrvContactos
end
item
DatasetField = 'ID_CATEGORIA'
- TableField = ''
- SQLOrigin = 'ID_CATEGORIA'
+ TableField = 'ID_CATEGORIA'
end
item
DatasetField = 'NIF_CIF'
@@ -107,14 +94,21 @@ object srvContactos: TsrvContactos
DatasetField = 'NOTAS'
TableField = 'NOTAS'
end
+ item
+ DatasetField = 'FECHA_ALTA'
+ TableField = 'FECHA_ALTA'
+ end
+ item
+ DatasetField = 'FECHA_MODIFICACION'
+ TableField = 'FECHA_MODIFICACION'
+ end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_EMPRESA'
- TableField = ''
- SQLOrigin = 'ID_EMPRESA'
+ TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
@@ -125,7 +119,10 @@ object srvContactos: TsrvContactos
Fields = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_ID'
+ ServerAutoRefresh = True
+ DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
item
@@ -136,85 +133,113 @@ object srvContactos: TsrvContactos
Name = 'NIF_CIF'
DataType = datString
Size = 15
+ DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
+ DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
+ DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
+ DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
+ DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
+ DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
+ DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
+ DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
+ DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
+ DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
+ DictionaryEntry = 'Contactos_MOVIL_2'
end
item
Name = 'FAX'
DataType = datString
Size = 25
+ DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
+ DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
+ DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
+ DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
+ BlobType = dabtMemo
+ DictionaryEntry = 'Contactos_NOTAS'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DictionaryEntry = 'Contactos_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
+ DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
@@ -224,6 +249,7 @@ object srvContactos: TsrvContactos
Name = 'REFERENCIA'
DataType = datString
Size = 255
+ DictionaryEntry = 'Contactos_REFERENCIA'
end>
end
item
@@ -232,8 +258,7 @@ object srvContactos: TsrvContactos
item
Connection = 'IBX'
TargetTable = 'CLIENTES_GRUPOS'
- SQL = 'SELECT DESCRIPCION'#10'FROM CLIENTES_GRUPOS'
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'DESCRIPCION'
@@ -246,25 +271,16 @@ object srvContactos: TsrvContactos
Name = 'DESCRIPCION'
DataType = datString
Size = 255
+ DisplayLabel = 'Descripci'#243'n'
end>
end
item
- Params = <
- item
- Name = 'ID_CONTACTO'
- DataType = datInteger
- Value = '1'
- ParamType = daptInput
- end>
+ Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DATOS_BANCO'
- SQL =
- 'SELECT'#10' ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUEN' +
- 'TA'#10' FROM'#10' CONTACTOS_DATOS_BANCO'#10' WHERE ID_CONTACTO = :ID_CO' +
- 'NTACTO'
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@@ -293,6 +309,14 @@ object srvContactos: TsrvContactos
item
DatasetField = 'CUENTA'
TableField = 'CUENTA'
+ end
+ item
+ DatasetField = 'FECHA_ALTA'
+ TableField = 'FECHA_ALTA'
+ end
+ item
+ DatasetField = 'FECHA_MODIFICACION'
+ TableField = 'FECHA_MODIFICACION'
end>
end>
Name = 'DatosBancarios'
@@ -300,6 +324,8 @@ object srvContactos: TsrvContactos
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'DatosBancarios_ID'
InPrimaryKey = True
end
@@ -337,24 +363,23 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 15
DictionaryEntry = 'DatosBancarios_CUENTA'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
end>
end
item
- Params = <
- item
- Name = 'ID_CONTACTO'
- DataType = datInteger
- Value = '444'
- ParamType = daptInput
- end>
+ Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_CATEGORIAS'
- SQL =
- 'SELECT '#10' ID_CONTACTO, ID_CATEGORIA'#10' FROM'#10' CONTACTOS_CATEG' +
- 'ORIAS'#10' WHERE'#10' ID_CONTACTO = :ID_CONTACTO'
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID_CONTACTO'
@@ -384,15 +409,7 @@ object srvContactos: TsrvContactos
item
Connection = 'IBX'
TargetTable = 'V_CLIENTES'
- SQL =
- 'SELECT '#10' ID, ID_CATEGORIA, REFERENCIA, NIF_CIF, NOMBRE, PERSO' +
- 'NA_CONTACTO, CALLE,'#10' POBLACION, PROVINCIA, CODIGO_POSTAL, TEL' +
- 'EFONO_1, TELEFONO_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_' +
- '2, PAGINA_WEB, '#10' NOTAS, USUARIO, ID_EMPRESA,'#10#10' GRUPO_CLIEN' +
- 'TE, NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, BLOQUEADO,'#10' MOTIV' +
- 'O_BLOQUEO, RECARGO_EQUIVALENCIA, REGIMEN_IVA, ID_TIPO_IVA,'#10' I' +
- 'D_FORMA_PAGO, TIENDA_WEB'#10' FROM'#10' V_CLIENTES'
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@@ -410,14 +427,14 @@ object srvContactos: TsrvContactos
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
- item
- DatasetField = 'CALLE'
- TableField = 'CALLE'
- end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
+ item
+ DatasetField = 'CALLE'
+ TableField = 'CALLE'
+ end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
@@ -466,6 +483,14 @@ object srvContactos: TsrvContactos
DatasetField = 'NOTAS'
TableField = 'NOTAS'
end
+ item
+ DatasetField = 'FECHA_ALTA'
+ TableField = 'FECHA_ALTA'
+ end
+ item
+ DatasetField = 'FECHA_MODIFICACION'
+ TableField = 'FECHA_MODIFICACION'
+ end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
@@ -478,26 +503,6 @@ object srvContactos: TsrvContactos
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
- item
- DatasetField = 'ID_TIPO_IVA'
- TableField = 'ID_TIPO_IVA'
- end
- item
- DatasetField = 'REGIMEN_IVA'
- TableField = 'REGIMEN_IVA'
- end
- item
- DatasetField = 'ID_FORMA_PAGO'
- TableField = 'ID_FORMA_PAGO'
- end
- item
- DatasetField = 'TIENDA_WEB'
- TableField = 'TIENDA_WEB'
- end
- item
- DatasetField = 'RECARGO_EQUIVALENCIA'
- TableField = 'RECARGO_EQUIVALENCIA'
- end
item
DatasetField = 'GRUPO_CLIENTE'
TableField = 'GRUPO_CLIENTE'
@@ -514,9 +519,29 @@ object srvContactos: TsrvContactos
DatasetField = 'BLOQUEADO'
TableField = 'BLOQUEADO'
end
+ item
+ DatasetField = 'REGIMEN_IVA'
+ TableField = 'REGIMEN_IVA'
+ end
item
DatasetField = 'MOTIVO_BLOQUEO'
TableField = 'MOTIVO_BLOQUEO'
+ end
+ item
+ DatasetField = 'RECARGO_EQUIVALENCIA'
+ TableField = 'RECARGO_EQUIVALENCIA'
+ end
+ item
+ DatasetField = 'ID_TIPO_IVA'
+ TableField = 'ID_TIPO_IVA'
+ end
+ item
+ DatasetField = 'ID_FORMA_PAGO'
+ TableField = 'ID_FORMA_PAGO'
+ end
+ item
+ DatasetField = 'TIENDA_WEB'
+ TableField = 'TIENDA_WEB'
end>
end>
Name = 'Clientes'
@@ -524,6 +549,8 @@ object srvContactos: TsrvContactos
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
@@ -544,18 +571,18 @@ object srvContactos: TsrvContactos
Size = 255
DictionaryEntry = 'Contactos_NOMBRE'
end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Contactos_CALLE'
- end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Contactos_CALLE'
+ end
item
Name = 'POBLACION'
DataType = datString
@@ -628,6 +655,14 @@ object srvContactos: TsrvContactos
BlobType = dabtMemo
DictionaryEntry = 'Contactos_NOTAS'
end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ end
item
Name = 'USUARIO'
DataType = datString
@@ -645,32 +680,6 @@ object srvContactos: TsrvContactos
Size = 255
DictionaryEntry = 'Clientes_REFERENCIA'
end
- item
- Name = 'ID_TIPO_IVA'
- DataType = datInteger
- DictionaryEntry = 'Clientes_ID_TIPO_IVA'
- end
- item
- Name = 'REGIMEN_IVA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Clientes_REGIMEN_IVA'
- end
- item
- Name = 'ID_FORMA_PAGO'
- DataType = datInteger
- DictionaryEntry = 'Clientes_ID_FORMA_PAGO'
- end
- item
- Name = 'TIENDA_WEB'
- DataType = datInteger
- DictionaryEntry = 'Clientes_TIENDA_WEB'
- end
- item
- Name = 'RECARGO_EQUIVALENCIA'
- DataType = datInteger
- DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
- end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
@@ -690,14 +699,40 @@ object srvContactos: TsrvContactos
end
item
Name = 'BLOQUEADO'
- DataType = datInteger
+ DataType = datSmallInt
DictionaryEntry = 'Clientes_BLOQUEADO'
end
+ item
+ Name = 'REGIMEN_IVA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Clientes_REGIMEN_IVA'
+ end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_MOTIVO_BLOQUEO'
+ end
+ item
+ Name = 'RECARGO_EQUIVALENCIA'
+ DataType = datInteger
+ DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
+ end
+ item
+ Name = 'ID_TIPO_IVA'
+ DataType = datInteger
+ DictionaryEntry = 'Clientes_ID_TIPO_IVA'
+ end
+ item
+ Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
+ DictionaryEntry = 'Clientes_ID_FORMA_PAGO'
+ end
+ item
+ Name = 'TIENDA_WEB'
+ DataType = datSmallInt
+ DictionaryEntry = 'Clientes_TIENDA_WEB'
end>
end
item
@@ -706,15 +741,7 @@ object srvContactos: TsrvContactos
item
Connection = 'IBX'
TargetTable = 'V_PROVEEDORES'
- SQL =
- 'SELECT '#10' ID, ID_CATEGORIA, REFERENCIA, NIF_CIF, NOMBRE, PERSO' +
- 'NA_CONTACTO, CALLE,'#10' POBLACION, PROVINCIA, CODIGO_POSTAL, TEL' +
- 'EFONO_1, TELEFONO_2, '#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_' +
- '2, PAGINA_WEB,'#10' NOTAS, USUARIO, ID_EMPRESA,'#10#10#10' REGIMEN_IVA' +
- ', DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO' +
- '_IVA, ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION,'#10' ' +
- 'GRUPO_PROVEEDOR'#10#10' FROM'#10' V_PROVEEDORES'
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@@ -732,14 +759,14 @@ object srvContactos: TsrvContactos
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
- item
- DatasetField = 'CALLE'
- TableField = 'CALLE'
- end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
+ item
+ DatasetField = 'CALLE'
+ TableField = 'CALLE'
+ end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
@@ -788,6 +815,14 @@ object srvContactos: TsrvContactos
DatasetField = 'NOTAS'
TableField = 'NOTAS'
end
+ item
+ DatasetField = 'FECHA_ALTA'
+ TableField = 'FECHA_ALTA'
+ end
+ item
+ DatasetField = 'FECHA_MODIFICACION'
+ TableField = 'FECHA_MODIFICACION'
+ end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
@@ -800,22 +835,6 @@ object srvContactos: TsrvContactos
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
- item
- DatasetField = 'ID_TIPO_IVA'
- TableField = 'ID_TIPO_IVA'
- end
- item
- DatasetField = 'REGIMEN_IVA'
- TableField = 'REGIMEN_IVA'
- end
- item
- DatasetField = 'ID_FORMA_PAGO'
- TableField = 'ID_FORMA_PAGO'
- end
- item
- DatasetField = 'TIENDA_WEB'
- TableField = 'TIENDA_WEB'
- end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
@@ -828,6 +847,26 @@ object srvContactos: TsrvContactos
DatasetField = 'CODIGO_ASIGNADO'
TableField = 'CODIGO_ASIGNADO'
end
+ item
+ DatasetField = 'GRUPO_PROVEEDOR'
+ TableField = 'GRUPO_PROVEEDOR'
+ end
+ item
+ DatasetField = 'REGIMEN_IVA'
+ TableField = 'REGIMEN_IVA'
+ end
+ item
+ DatasetField = 'ID_TIPO_IVA'
+ TableField = 'ID_TIPO_IVA'
+ end
+ item
+ DatasetField = 'ID_FORMA_PAGO'
+ TableField = 'ID_FORMA_PAGO'
+ end
+ item
+ DatasetField = 'TIENDA_WEB'
+ TableField = 'TIENDA_WEB'
+ end
item
DatasetField = 'HOMOLOGADO'
TableField = 'HOMOLOGADO'
@@ -835,10 +874,6 @@ object srvContactos: TsrvContactos
item
DatasetField = 'CERTIFICACION'
TableField = 'CERTIFICACION'
- end
- item
- DatasetField = 'GRUPO_PROVEEDOR'
- TableField = 'GRUPO_PROVEEDOR'
end>
end>
Name = 'Proveedores'
@@ -846,6 +881,8 @@ object srvContactos: TsrvContactos
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
@@ -866,18 +903,18 @@ object srvContactos: TsrvContactos
Size = 255
DictionaryEntry = 'Contactos_NOMBRE'
end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Contactos_CALLE'
- end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Contactos_CALLE'
+ end
item
Name = 'POBLACION'
DataType = datString
@@ -950,6 +987,14 @@ object srvContactos: TsrvContactos
BlobType = dabtMemo
DictionaryEntry = 'Contactos_NOTAS'
end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ end
item
Name = 'USUARIO'
DataType = datString
@@ -967,27 +1012,6 @@ object srvContactos: TsrvContactos
Size = 255
DictionaryEntry = 'Proveedores_REFERENCIA'
end
- item
- Name = 'ID_TIPO_IVA'
- DataType = datInteger
- DictionaryEntry = 'Proveedores_ID_TIPO_IVA'
- end
- item
- Name = 'REGIMEN_IVA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Proveedores_REGIMEN_IVA'
- end
- item
- Name = 'ID_FORMA_PAGO'
- DataType = datInteger
- DictionaryEntry = 'Proveedores_ID_FORMA_PAGO'
- end
- item
- Name = 'TIENDA_WEB'
- DataType = datInteger
- DictionaryEntry = 'Proveedores_TIENDA_WEB'
- end
item
Name = 'DESCUENTO'
DataType = datFloat
@@ -1006,8 +1030,34 @@ object srvContactos: TsrvContactos
DictionaryEntry = 'Proveedores_CODIGO_ASIGNADO'
end
item
- Name = 'HOMOLOGADO'
+ Name = 'GRUPO_PROVEEDOR'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'REGIMEN_IVA'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Proveedores_REGIMEN_IVA'
+ end
+ item
+ Name = 'ID_TIPO_IVA'
DataType = datInteger
+ DictionaryEntry = 'Proveedores_ID_TIPO_IVA'
+ end
+ item
+ Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
+ DictionaryEntry = 'Proveedores_ID_FORMA_PAGO'
+ end
+ item
+ Name = 'TIENDA_WEB'
+ DataType = datSmallInt
+ DictionaryEntry = 'Proveedores_TIENDA_WEB'
+ end
+ item
+ Name = 'HOMOLOGADO'
+ DataType = datSmallInt
DictionaryEntry = 'Proveedores_HOMOLOGADO'
end
item
@@ -1015,11 +1065,6 @@ object srvContactos: TsrvContactos
DataType = datString
Size = 255
DictionaryEntry = 'Proveedores_CERTIFICACION'
- end
- item
- Name = 'GRUPO_PROVEEDOR'
- DataType = datString
- Size = 255
end>
end
item
@@ -1028,15 +1073,7 @@ object srvContactos: TsrvContactos
item
Connection = 'IBX'
TargetTable = 'V_EMPLEADOS'
- SQL =
- 'SELECT '#10' ID, ID_CATEGORIA, REFERENCIA, NIF_CIF, NOMBRE, PERSO' +
- 'NA_CONTACTO, CALLE,'#10' POBLACION, PROVINCIA, CODIGO_POSTAL, TEL' +
- 'EFONO_1, TELEFONO_2,'#10' MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2' +
- ', PAGINA_WEB,'#10' NOTAS, USUARIO, ID_EMPRESA,'#10' '#10' '#10' CATE' +
- 'GORIA, FECHA_NACIMIENTO, FECHA_ALTA_EMPRESA, FORMACION_BASE,'#10' ' +
- ' FORMACION_COMPLE, FORMACION_RECIBIDA, EXPERIENCIA'#10' '#10'FROM V_E' +
- 'MPLEADOS'
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@@ -1149,6 +1186,14 @@ object srvContactos: TsrvContactos
item
DatasetField = 'EXPERIENCIA'
TableField = 'EXPERIENCIA'
+ end
+ item
+ DatasetField = 'FECHA_ALTA'
+ TableField = 'FECHA_ALTA'
+ end
+ item
+ DatasetField = 'FECHA_MODIFICACION'
+ TableField = 'FECHA_MODIFICACION'
end>
end>
Name = 'Empleados'
@@ -1156,6 +1201,8 @@ object srvContactos: TsrvContactos
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
@@ -1176,18 +1223,18 @@ object srvContactos: TsrvContactos
Size = 255
DictionaryEntry = 'Contactos_NOMBRE'
end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'Contactos_CALLE'
- end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'Contactos_CALLE'
+ end
item
Name = 'POBLACION'
DataType = datString
@@ -1260,6 +1307,14 @@ object srvContactos: TsrvContactos
BlobType = dabtMemo
DictionaryEntry = 'Contactos_NOTAS'
end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ end
item
Name = 'USUARIO'
DataType = datString
@@ -1277,17 +1332,17 @@ object srvContactos: TsrvContactos
Size = 255
DictionaryEntry = 'Agentes_REFERENCIA'
end
+ item
+ Name = 'FECHA_NACIMIENTO'
+ DataType = datDateTime
+ DictionaryEntry = 'Empleados_FECHA_NACIMIENTO'
+ end
item
Name = 'CATEGORIA'
DataType = datString
Size = 255
DictionaryEntry = 'Empleados_CATEGORIA'
end
- item
- Name = 'FECHA_NACIMIENTO'
- DataType = datDateTime
- DictionaryEntry = 'Empleados_FECHA_NACIMIENTO'
- end
item
Name = 'FECHA_ALTA_EMPRESA'
DataType = datDateTime
@@ -1315,23 +1370,12 @@ object srvContactos: TsrvContactos
end>
end
item
- Params = <
- item
- Name = 'ID_CONTACTO'
- DataType = datInteger
- Value = '9'
- ParamType = daptInput
- end>
+ Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DIRECCIONES'
- SQL =
- 'SELECT'#10' ID, ID_CONTACTO, NOMBRE, CALLE, POBLACION, PROVINCIA,' +
- ' CODIGO_POSTAL, PERSONA_CONTACTO,'#10' TELEFONO, MOVIL, FAX, EMAI' +
- 'L, NOTAS, PORTE'#10' FROM'#10' CONTACTOS_DIRECCIONES'#10' WHERE ID_CONT' +
- 'ACTO = :ID_CONTACTO'
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@@ -1369,6 +1413,14 @@ object srvContactos: TsrvContactos
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
+ item
+ DatasetField = 'MOVIL'
+ TableField = 'MOVIL'
+ end
+ item
+ DatasetField = 'FAX'
+ TableField = 'FAX'
+ end
item
DatasetField = 'EMAIL'
TableField = 'EMAIL'
@@ -1382,12 +1434,12 @@ object srvContactos: TsrvContactos
TableField = 'PORTE'
end
item
- DatasetField = 'MOVIL'
- TableField = 'MOVIL'
+ DatasetField = 'FECHA_ALTA'
+ TableField = 'FECHA_ALTA'
end
item
- DatasetField = 'FAX'
- TableField = 'FAX'
+ DatasetField = 'FECHA_MODIFICACION'
+ TableField = 'FECHA_MODIFICACION'
end>
end>
Name = 'DireccionesContacto'
@@ -1395,6 +1447,8 @@ object srvContactos: TsrvContactos
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_DIR_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'DireccionesContacto_ID'
InPrimaryKey = True
end
@@ -1403,12 +1457,6 @@ object srvContactos: TsrvContactos
DataType = datInteger
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'DireccionesContacto_NOMBRE'
- end
item
Name = 'CALLE'
DataType = datString
@@ -1439,6 +1487,12 @@ object srvContactos: TsrvContactos
Size = 255
DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ DictionaryEntry = 'DireccionesContacto_NOMBRE'
+ end
item
Name = 'TELEFONO'
DataType = datString
@@ -1472,27 +1526,28 @@ object srvContactos: TsrvContactos
Name = 'PORTE'
DataType = datFloat
DictionaryEntry = 'DireccionesContacto_PORTE'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
end>
end
item
- Params = <
- item
- Name = 'ID_CLIENTE'
- DataType = datInteger
- Value = '1'
- ParamType = daptInput
- end>
+ Params = <>
Statements = <
item
Connection = 'IBX'
- TargetTable = 'CLIENTES_DTOS_PROVEEDORES'
SQL =
'SELECT '#10' CLIENTES_DTOS_PROVEEDORES.ID,'#10' CLIENTES_DTOS_PROV' +
'EEDORES.ID_CLIENTE,'#10' CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR,'#10 +
' CONTACTOS.NOMBRE,'#10' CLIENTES_DTOS_PROVEEDORES.DESCUENTO'#10' ' +
'FROM'#10' CLIENTES_DTOS_PROVEEDORES'#10' LEFT JOIN CONTACTOS ON (CON' +
- 'TACTOS.ID = CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR)'#10'WHERE CLIENT' +
- 'ES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE'
+ 'TACTOS.ID = CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR)'#10'WHERE {Where' +
+ '}'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -1507,20 +1562,22 @@ object srvContactos: TsrvContactos
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
- item
- DatasetField = 'DESCUENTO'
- TableField = 'DESCUENTO'
- end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
+ end
+ item
+ DatasetField = 'DESCUENTO'
+ TableField = 'DESCUENTO'
end>
end>
Name = 'ClientesDescuentos'
Fields = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_CLIENTES_DTOS_PROV_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'ClientesDescuentos_ID'
InPrimaryKey = True
end
@@ -1553,8 +1610,7 @@ object srvContactos: TsrvContactos
item
Connection = 'IBX'
TargetTable = 'PROVEEDORES_GRUPOS'
- SQL = 'SELECT DESCRIPCION'#10'FROM PROVEEDORES_GRUPOS'
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'DESCRIPCION'
@@ -1567,6 +1623,7 @@ object srvContactos: TsrvContactos
Name = 'DESCRIPCION'
DataType = datString
Size = 255
+ DisplayLabel = 'Descripci'#243'n'
end>
end
item
@@ -1575,8 +1632,7 @@ object srvContactos: TsrvContactos
item
Connection = 'IBX'
TargetTable = 'EMPLEADOS_GRUPOS'
- SQL = 'SELECT DESCRIPCION'#10'FROM EMPLEADOS_GRUPOS'
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'DESCRIPCION'
@@ -1589,6 +1645,7 @@ object srvContactos: TsrvContactos
Name = 'DESCRIPCION'
DataType = datString
Size = 255
+ DisplayLabel = 'Descripci'#243'n'
end>
end>
JoinDataTables = <>
@@ -3180,7 +3237,39 @@ object srvContactos: TsrvContactos
end>
Name = 'Delete_ContactoEmpresa'
end>
- RelationShips = <>
+ RelationShips = <
+ item
+ Name = 'FK_ClientesDescuentos_Clientes'
+ MasterDatasetName = 'Clientes'
+ MasterFields = 'ID'
+ DetailDatasetName = 'ClientesDescuentos'
+ DetailFields = 'ID_CLIENTE'
+ RelationshipType = rtForeignKey
+ end
+ item
+ Name = 'FK_DatosBancarios_Contactos'
+ MasterDatasetName = 'Contactos'
+ MasterFields = 'ID'
+ DetailDatasetName = 'DatosBancarios'
+ DetailFields = 'ID_CONTACTO'
+ RelationshipType = rtForeignKey
+ end
+ item
+ Name = 'FK_ContactosCategorias_Contactos'
+ MasterDatasetName = 'Contactos'
+ MasterFields = 'ID'
+ DetailDatasetName = 'ContactosCategorias'
+ DetailFields = 'ID_CONTACTO'
+ RelationshipType = rtForeignKey
+ end
+ item
+ Name = 'FK_DireccionesContacto_Contactos'
+ MasterDatasetName = 'Contactos'
+ MasterFields = 'ID'
+ DetailDatasetName = 'DireccionesContacto'
+ DetailFields = 'ID_CONTACTO'
+ RelationshipType = rtForeignKey
+ end>
UpdateRules = <
item
Name = 'Insert Contactos'
@@ -3317,6 +3406,7 @@ object srvContactos: TsrvContactos
item
Name = 'DatosBancarios_ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
DisplayLabel = 'ID'
end
item
@@ -3357,6 +3447,7 @@ object srvContactos: TsrvContactos
item
Name = 'Contactos_ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_ID'
DisplayLabel = 'ID'
end
item
@@ -3365,12 +3456,6 @@ object srvContactos: TsrvContactos
Size = 15
DisplayLabel = 'NIF/CIF'
end
- item
- Name = 'Contactos_NOMBRE'
- DataType = datString
- Size = 255
- DisplayLabel = 'Nombre'
- end
item
Name = 'Contactos_CALLE'
DataType = datString
@@ -3534,6 +3619,7 @@ object srvContactos: TsrvContactos
item
Name = 'DireccionesContacto_ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_CONTACTOS_DIR_ID'
DisplayLabel = 'ID'
end
item
@@ -3554,7 +3640,7 @@ object srvContactos: TsrvContactos
end
item
Name = 'Clientes_BLOQUEADO'
- DataType = datInteger
+ DataType = datSmallInt
DisplayLabel = #191'Bloqueado?'
end
item
@@ -3595,7 +3681,8 @@ object srvContactos: TsrvContactos
end
item
Name = 'ClientesDescuentos_ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_CLIENTES_DTOS_PROV_ID'
DisplayLabel = 'ID'
end
item
@@ -3690,7 +3777,7 @@ object srvContactos: TsrvContactos
end
item
Name = 'Clientes_TIENDA_WEB'
- DataType = datInteger
+ DataType = datSmallInt
DisplayLabel = 'TIENDA_WEB'
end
item
@@ -3711,12 +3798,12 @@ object srvContactos: TsrvContactos
end
item
Name = 'Proveedores_TIENDA_WEB'
- DataType = datInteger
+ DataType = datSmallInt
DisplayLabel = 'TIENDA_WEB'
end
item
Name = 'Proveedores_HOMOLOGADO'
- DataType = datInteger
+ DataType = datSmallInt
DisplayLabel = 'Homologado'
end
item
@@ -3772,6 +3859,13 @@ object srvContactos: TsrvContactos
Name = 'Empleados_EXPERIENCIA'
DataType = datMemo
DisplayLabel = 'Experiencia'
+ end
+ item
+ Name = 'Contactos_NOMBRE'
+ DataType = datString
+ Size = 255
+ Required = True
+ DisplayLabel = 'Nombre'
end>
Left = 126
Top = 14
@@ -3781,10 +3875,15 @@ object srvContactos: TsrvContactos
Top = 82
DiagramData =
''#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10
+ 'idth="400" Height="300">'#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10
end
object bpContactos: TDABusinessProcessor
Schema = schContactos
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
index e3434e66..84e489bc 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
@@ -40,7 +40,6 @@ type
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
public
- function GetNextAutoInc(const GeneratorName: string): Integer;
function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
function GenerateEtiquetasReport(const ContactosID: String): Binary;
end;
@@ -124,11 +123,6 @@ begin
}
end;
-function TsrvContactos.GetNextAutoInc(const GeneratorName: string): Integer;
-begin
- Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
-end;
-
initialization
TROClassFactory.Create('srvContactos', Create_srvContactos, TsrvContactos_Invoker);
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.drc b/Source/Modulos/Contactos/Views/Contactos_view.drc
index 25a892d4..3413fedc 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.drc
+++ b/Source/Modulos/Contactos/Views/Contactos_view.drc
@@ -45,4 +45,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf231.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.drf */
diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.drc b/Source/Modulos/Empresas/Controller/Empresas_controller.drc
index cf1b60c2..fccdf2aa 100644
--- a/Source/Modulos/Empresas/Controller/Empresas_controller.drc
+++ b/Source/Modulos/Empresas/Controller/Empresas_controller.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Controller\Empresas_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf20F.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Controller\Empresas_controller.drf */
diff --git a/Source/Modulos/Empresas/Controller/uDatosBancariosEmpresaController.pas b/Source/Modulos/Empresas/Controller/uDatosBancariosEmpresaController.pas
index a16c804e..64e6b6a7 100644
--- a/Source/Modulos/Empresas/Controller/uDatosBancariosEmpresaController.pas
+++ b/Source/Modulos/Empresas/Controller/uDatosBancariosEmpresaController.pas
@@ -9,7 +9,6 @@ uses
type
IDatosBancariosEmpresaController = interface
['{E9B0313E-7B16-420A-B47E-20E42E96BAC6}']
- procedure AsignarID(ADetalles: IBizEmpresasDatosBancarios; IDCabecera: Integer; AEsNuevo:Boolean);
procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
end;
@@ -18,7 +17,6 @@ type
FDataModule : IDataModuleEmpresas;
public
procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
- procedure AsignarID(ADetalles: IBizEmpresasDatosBancarios; IDCabecera : Integer; AEsNuevo : Boolean);
constructor Create; virtual;
destructor Destroy; override;
end;
@@ -31,75 +29,6 @@ uses
uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa,
uEditorRegistryUtils, cxControls;
-procedure TDatosBancariosEmpresaController.AsignarID(
- ADetalles: IBizEmpresasDatosBancarios; IDCabecera: Integer;
- AEsNuevo:Boolean);
-begin
- with ADetalles do
- begin
- DataTable.DisableControls;
- try
- if not DataTable.Active then
- DataTable.Active := True;
-
-// AuxPosicion := POSICION;
-
- { ¡¡¡¡ OJO !!!!
- Para asignar el ID en los detalles hay
- que tener en cuenta una cosa:
- Si se cambia el ID, ese detalle ya no
- pertenece a esa cabecera porque ya no se
- cumple la condición de la relacion:
- Master.ID = Detail.ID_PRESUPUESTO.
-
- Por esa razón no sirve hacer un recorrido
- desde el principio hasta el final porque
- las detalles van desapareciendo según asignamos
- el valor al campo ID y nos mueve aleatoriamente
- la posición del registro actual.
-
- Es mejor hacer un bucle sencillo hasta que
- "se gasten" todos los detalles. Cuando el
- RecordCount llegue a 0 quiere decir que hemos
- tratado todos los detalles.
-
- El bucle cambia en el caso de ser llamada esta funcion desde modificar
- un presupuesto ya que en ese caso si que hay que hacer un recorrido
- total de las tuplas de detalle.
- }
-
- if AEsNuevo then
- begin
- while RecordCount > 0 do
- begin
- DataTable.First;
- Edit;
- ID := FDataModule.GetNextID(DataTable.LogicalName);
- ID_EMPRESA := IDCabecera;
- Post
- end
- end
- else
- begin
- DataTable.First;
- while not DataTable.EOF do
- begin
- if AEsNuevo then
- begin
- Edit;
- ID := FDataModule.GetNextID(DataTable.LogicalName);
- ID_EMPRESA := IDCabecera;
- Post
- end;
- DataTable.Next
- end;
- end;
- finally
- DataTable.EnableControls;
- end;
- end;
-end;
-
constructor TDatosBancariosEmpresaController.Create;
begin
inherited;
diff --git a/Source/Modulos/Empresas/Controller/uEmpresasController.pas b/Source/Modulos/Empresas/Controller/uEmpresasController.pas
index 5e8bc077..799f8852 100644
--- a/Source/Modulos/Empresas/Controller/uEmpresasController.pas
+++ b/Source/Modulos/Empresas/Controller/uEmpresasController.pas
@@ -27,10 +27,6 @@ type
TEmpresasController = class(TInterfacedObject, IEmpresasController)
protected
FDataModule : IDataModuleEmpresas;
- procedure AsignarID(AEmpresa: IBizEmpresa;
- const IDNuevo : Integer); virtual;
- procedure AsignarIDDetalles(AEmpresa: IBizEmpresa;
- const IDCabecera : Integer; ADataTable : TDADataTable);
function ValidarEmpresa(AEmpresa : IBizEmpresa): Boolean; virtual;
public
constructor Create; virtual;
@@ -64,87 +60,6 @@ begin
AEmpresa.Insert;
end;
-procedure TEmpresasController.AsignarID(AEmpresa: IBizEmpresa;
- const IDNuevo: Integer);
-var
- AContador : Integer;
-begin
- if not Assigned(AEmpresa) then
- raise Exception.Create ('Empresa no asignada');
-
- { Los datos bancarios hay que comprobarlos siempre
- tanto en inserción como en modificación. }
- if Assigned(AEmpresa.DatosBancarios) then
- AsignarIDDetalles(AEmpresa, IDNuevo, AEmpresa.DatosBancarios.DataTable);
-
-
- if AEmpresa.EsNuevo then
- begin
- AEmpresa.Edit;
- AEmpresa.ID := IDNuevo;
- AEmpresa.Post;
- end;
-end;
-
-procedure TEmpresasController.AsignarIDDetalles(AEmpresa: IBizEmpresa;
- const IDCabecera: Integer; ADataTable: TDADataTable);
-var
- AContador : Integer;
-begin
- if not ADataTable.Active then
- ADataTable.Active := True;
-
- if AEmpresa.EsNuevo then
- begin
- { ¡¡¡¡ OJO !!!!
- Para asignar el ID en los detalles hay
- que tener en cuenta una cosa:
- Si se cambia el ID, ese detalle ya no
- pertenece AEmpresa esa cabecera porque ya no se
- cumple la condición de la relacion:
- Master.ID = Detail.ID_CONTACTO.
-
- Por esa razón no sirve hacer un recorrido
- desde el principio hasta el final porque
- las detalles van desapareciendo según asignamos
- el valor al campo ID y nos mueve aleatoriamente
- la posición del registro actual.
-
- Es mejor hacer un bucle sencillo hasta que
- "se gasten" todos los detalles. Cuando el
- RecordCount llegue AEmpresa 0 quiere decir que hemos
- tratado todos los detalles.
- }
- while ADataTable.RecordCount > 0 do
- begin
- ADataTable.First;
- ADataTable.Edit;
- ADataTable.FieldByName('ID').AsInteger := FDataModule.GetNextID(ADataTable.LogicalName);
- ADataTable.FieldByName('ID_EMPRESA').AsInteger := IDCabecera;
- ADataTable.Post;
- end;
- end
- else begin
- { En este caso es un recorrido normal y corriente. }
- ADataTable.First;
- AContador := ADataTable.RecordCount;
-
- while (AContador > 0) do
- begin
- // ¿Es nuevo?
- if (ADataTable.FieldByName('ID').AsInteger < 0) then
- begin
- ADataTable.Edit;
- ADataTable.FieldByName('ID').AsInteger := FDataModule.GetNextID(ADataTable.LogicalName);
- ADataTable.Post;
- end;
- AContador := AContador - 1;
- ADataTable.Next;
- end;
- ADataTable.First;
- end;
-end;
-
function TEmpresasController.Buscar(const ID: Integer): IBizEmpresa;
begin
Result := FDataModule.GetItem(ID)
@@ -229,8 +144,6 @@ begin
end;
function TEmpresasController.Guardar(AEmpresa: IBizEmpresa): Boolean;
-var
- NuevoID : Integer;
begin
Result := False;
@@ -238,14 +151,7 @@ begin
begin
ShowHourglassCursor;
try
- if AEmpresa.EsNuevo then
- NuevoID := FDataModule.GetNextID(AEmpresa.DataTable.LogicalName)
- else
- NuevoID := AEmpresa.ID;
-
- AsignarID(AEmpresa, NuevoID);
AEmpresa.DataTable.ApplyUpdates;
-
Result := True;
finally
HideHourglassCursor;
diff --git a/Source/Modulos/Empresas/Data/Empresas_data.drc b/Source/Modulos/Empresas/Data/Empresas_data.drc
index 6e295dc2..4726c4a4 100644
--- a/Source/Modulos/Empresas/Data/Empresas_data.drc
+++ b/Source/Modulos/Empresas/Data/Empresas_data.drc
@@ -12,6 +12,6 @@ STRINGTABLE
BEGIN
END
-/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Data\uDataModuleEmpresas.dfm */
+/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Data\uDataModuleEmpresas.DFM */
/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Data\Empresas_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf20D.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Data\Empresas_data.drf */
diff --git a/Source/Modulos/Empresas/Data/uDataModuleEmpresas.dfm b/Source/Modulos/Empresas/Data/uDataModuleEmpresas.dfm
index de9e92fb..c0305bb9 100644
--- a/Source/Modulos/Empresas/Data/uDataModuleEmpresas.dfm
+++ b/Source/Modulos/Empresas/Data/uDataModuleEmpresas.dfm
@@ -29,116 +29,163 @@ object DataModuleEmpresas: TDataModuleEmpresas
Fields = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_EMPRESAS_ID'
LogChanges = False
Required = True
ReadOnly = True
+ ServerAutoRefresh = True
+ DictionaryEntry = 'Empresas_ID'
InPrimaryKey = True
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
+ DisplayLabel = 'CIF'
+ DictionaryEntry = 'Empresas_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
+ DisplayLabel = 'Nombre'
+ DictionaryEntry = 'Empresas_NOMBRE'
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
+ DisplayLabel = 'Raz'#243'n Social'
+ DictionaryEntry = 'Empresas_RAZON_SOCIAL'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
+ DisplayLabel = 'Calle'
+ DictionaryEntry = 'Empresas_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
+ DisplayLabel = 'Poblaci'#243'n'
+ DictionaryEntry = 'Empresas_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
+ DisplayLabel = 'Provincia'
+ DictionaryEntry = 'Empresas_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
+ DisplayLabel = 'C'#243'd. postal'
+ DictionaryEntry = 'Empresas_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
+ DisplayLabel = 'Tel'#233'fono 1'
+ DictionaryEntry = 'Empresas_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
+ DisplayLabel = 'Tel'#233'fono 2'
+ DictionaryEntry = 'Empresas_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
+ DisplayLabel = 'M'#243'vil 1'
+ DictionaryEntry = 'Empresas_MOVIL_1'
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
+ DisplayLabel = 'M'#243'vil 2'
+ DictionaryEntry = 'Empresas_MOVIL_2'
end
item
Name = 'FAX'
DataType = datString
Size = 25
+ DisplayLabel = 'Fax'
+ DictionaryEntry = 'Empresas_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
+ DisplayLabel = 'E-mail 1'
+ DictionaryEntry = 'Empresas_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
+ DisplayLabel = 'E-mail 2'
+ DictionaryEntry = 'Empresas_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
+ DisplayLabel = 'P'#225'gina web'
+ DictionaryEntry = 'Empresas_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
+ DisplayLabel = 'Notas'
+ DictionaryEntry = 'Empresas_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
+ DisplayLabel = 'Empresas_FECHA_ALTA'
+ DictionaryEntry = 'Empresas_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
+ DisplayLabel = 'Empresas_FECHA_MODIFICACION'
+ DictionaryEntry = 'Empresas_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
+ DisplayLabel = 'Empresas_USUARIO'
+ DictionaryEntry = 'Empresas_USUARIO'
end
item
Name = 'LOGOTIPO'
DataType = datBlob
+ BlobType = dabtBlob
+ DisplayLabel = 'Logotipo'
+ DictionaryEntry = 'Empresas_LOGOTIPO'
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
+ DisplayLabel = 'Registro mercantil'
+ DictionaryEntry = 'Empresas_REGISTRO_MERCANTIL'
end
item
Name = 'IVA'
DataType = datFloat
+ DictionaryEntry = 'Empresas_IVA'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@@ -160,53 +207,68 @@ object DataModuleEmpresas: TDataModuleEmpresas
Fields = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID'
LogChanges = False
Required = True
ReadOnly = True
+ ServerAutoRefresh = True
+ DictionaryEntry = 'EmpresasDatosBanco_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
- LogChanges = False
- Required = True
- ReadOnly = True
+ DisplayLabel = 'EmpresasDatosBanco_ID_EMPRESA'
+ DictionaryEntry = 'EmpresasDatosBanco_ID_EMPRESA'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
+ DisplayLabel = 'Nombre del banco'
+ DictionaryEntry = 'EmpresasDatosBanco_NOMBRE'
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
+ DisplayLabel = 'Entidad'
+ DictionaryEntry = 'EmpresasDatosBanco_ENTIDAD'
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
+ DisplayLabel = 'Sucursal'
+ DictionaryEntry = 'EmpresasDatosBanco_SUCURSAL'
end
item
Name = 'DC'
DataType = datString
Size = 15
+ DictionaryEntry = 'EmpresasDatosBanco_DC'
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
+ DisplayLabel = 'Cuenta'
+ DictionaryEntry = 'EmpresasDatosBanco_CUENTA'
end
item
Name = 'SUFIJO_N19'
DataType = datString
Size = 3
+ DisplayLabel = 'Sufijo 19'
+ DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N19'
end
item
Name = 'SUFIJO_N58'
DataType = datString
Size = 3
+ DisplayLabel = 'Sufijo 58'
+ DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N58'
end>
Params = <>
MasterMappingMode = mmWhere
diff --git a/Source/Modulos/Empresas/Data/uDataModuleEmpresas.pas b/Source/Modulos/Empresas/Data/uDataModuleEmpresas.pas
index 5bc2dd2a..7014165b 100644
--- a/Source/Modulos/Empresas/Data/uDataModuleEmpresas.pas
+++ b/Source/Modulos/Empresas/Data/uDataModuleEmpresas.pas
@@ -26,7 +26,6 @@ type
function GetItem(const ID : Integer) : IBizEmpresa;
function NewItem : IBizEmpresa;
function GetItems : IBizEmpresa;
- function GetNextID(const DataSetName : String) : Integer;
end;
@@ -57,12 +56,6 @@ begin
Expression := NewBinaryExpression(NewField('', fld_EmpresasID),
NewConstant(ID, datInteger), dboEqual);
end;
-
-{ if NotEmpty then
- AddOperator(opAND);
- OpenBraket;
- AddText('EMPRESAS.' + fld_EmpresasID + ' = ' + IntToStr(ID));
- CloseBraket;}
finally
HideHourglassCursor;
end;
@@ -70,24 +63,8 @@ end;
function TDataModuleEmpresas.GetItems: IBizEmpresa;
var
- //AEmpresa : TDACDSDataTable;
AEmpresa : TDAMemDataTable;
begin
- {ShowHourglassCursor;
- try
- AEmpresa := _CloneDataTable(tbl_Empresas);
- AEmpresa.BusinessRulesID := BIZ_CLIENT_EMPRESA;
-
- with TBizEmpresa(AEmpresa.BusinessEventsObj) do
- begin
- DatosBancarios := _GetDatosBancarios;
- end;
-
- Result := (AEmpresa as IBizEmpresa);
- finally
- HideHourglassCursor;
- end;}
-
ShowHourglassCursor;
try
AEmpresa := CloneDataTable(tbl_Empresas);
@@ -104,19 +81,6 @@ begin
end;
end;
-function TDataModuleEmpresas.GetNextID(const DataSetName: String): Integer;
-var
- aGeneratorName : String;
-begin
- if DataSetName = nme_Empresas then
- aGeneratorName := 'GEN_EMPRESAS_ID';
-
- if DataSetName = nme_EmpresasDatosBanco then
- aGeneratorName := 'GEN_EMPRESAS_DATOS_BANCO_ID';
-
- Result := (RORemoteService as IsrvEmpresas).GetNextAutoInc(aGeneratorName)
-end;
-
function TDataModuleEmpresas.NewItem: IBizEmpresa;
begin
Result := GetItem(ID_NULO)
@@ -124,23 +88,8 @@ end;
function TDataModuleEmpresas._GetDatosBancarios: IBizEmpresasDatosBancarios;
var
-// ADatosBancarios : TDACDSDataTable;
ADatosBancarios : TDAMemDataTable;
begin
-{ ShowHourglassCursor;
- try
- ADatosBancarios := _CloneDataTable(tbl_EmpresasDatosBanco);
- with ADatosBancarios do
- begin
- BusinessRulesID := BIZ_CLIENT_EMPRESAS_DATOS_BANCARIOS;
- DetailOptions := DetailOptions -
- [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
- end;
- Result := (ADatosBancarios as IBizEmpresasDatosBancarios);
- finally
- HideHourglassCursor;
- end;}
-
ShowHourglassCursor;
try
ADatosBancarios := CloneDataTable(tbl_EmpresasDatosBanco);
diff --git a/Source/Modulos/Empresas/Empresas_Group.groupproj b/Source/Modulos/Empresas/Empresas_Group.groupproj
new file mode 100644
index 00000000..57016711
--- /dev/null
+++ b/Source/Modulos/Empresas/Empresas_Group.groupproj
@@ -0,0 +1,106 @@
+
+
+ {f8b3d728-de77-47ab-94ad-f92e28df9e6b}
+
+
+
+
+
+
+
+
+
+ Model\Empresas_model.dproj;Data\Empresas_data.dproj;Controller\Empresas_controller.dproj
+
+
+
+
+
+ Default.Personality
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Source/Modulos/Empresas/Model/Data/uIDataModuleEmpresas.pas b/Source/Modulos/Empresas/Model/Data/uIDataModuleEmpresas.pas
index 628a7bef..e87571fa 100644
--- a/Source/Modulos/Empresas/Model/Data/uIDataModuleEmpresas.pas
+++ b/Source/Modulos/Empresas/Model/Data/uIDataModuleEmpresas.pas
@@ -12,7 +12,6 @@ type
function GetItem(const ID : Integer) : IBizEmpresa;
function NewItem : IBizEmpresa;
function GetItems : IBizEmpresa;
- function GetNextID(const DataSetName : String) : Integer;
end;
implementation
diff --git a/Source/Modulos/Empresas/Model/Empresas_model.dproj b/Source/Modulos/Empresas/Model/Empresas_model.dproj
index be15e971..20021a77 100644
--- a/Source/Modulos/Empresas/Model/Empresas_model.dproj
+++ b/Source/Modulos/Empresas/Model/Empresas_model.dproj
@@ -42,7 +42,10 @@
Delphi.Personality
Package
-FalseTrueFalseEmpresasFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+FalseTrueFalseEmpresasTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
JCL Debug IDE extension
JCL Project Analyzer
JCL Open and Save IDE dialogs with favorite folders
diff --git a/Source/Modulos/Empresas/Model/Empresas_model.drc b/Source/Modulos/Empresas/Model/Empresas_model.drc
index cd5e870f..82183bfb 100644
--- a/Source/Modulos/Empresas/Model/Empresas_model.drc
+++ b/Source/Modulos/Empresas/Model/Empresas_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Model\Empresas_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf20B.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Model\Empresas_model.drf */
diff --git a/Source/Modulos/Empresas/Model/Empresas_model.res b/Source/Modulos/Empresas/Model/Empresas_model.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Empresas/Model/Empresas_model.res and b/Source/Modulos/Empresas/Model/Empresas_model.res differ
diff --git a/Source/Modulos/Empresas/Model/schEmpresasClient_Intf.pas b/Source/Modulos/Empresas/Model/schEmpresasClient_Intf.pas
index c4af1102..e75719a7 100644
--- a/Source/Modulos/Empresas/Model/schEmpresasClient_Intf.pas
+++ b/Source/Modulos/Empresas/Model/schEmpresasClient_Intf.pas
@@ -9,16 +9,12 @@ 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_Empresas = '{B9A9EE41-94AF-448E-9982-AF22968F641E}';
- RID_EmpresasDatosBanco = '{9BE7F2A6-C031-4197-AA2B-F9BA5363D86F}';
- RID_Copy_of_Empresas = '{6FF84ED6-3675-4F12-BE51-A265C8740201}';
- RID_Copy_of_EmpresasDatosBanco = '{6E0361D1-4CDD-4B2B-8770-EE0990A5CBBF}';
+ RID_Empresas = '{339ECEE2-0E9D-4AFD-9CCF-7991FCAFFC44}';
+ RID_EmpresasDatosBanco = '{97535864-08DF-42D3-9334-2009E15B6DE5}';
{ Data table names }
nme_Empresas = 'Empresas';
nme_EmpresasDatosBanco = 'EmpresasDatosBanco';
- nme_Copy_of_Empresas = 'Copy of Empresas';
- nme_Copy_of_EmpresasDatosBanco = 'Copy of EmpresasDatosBanco';
{ Empresas fields }
fld_EmpresasID = 'ID';
@@ -92,82 +88,10 @@ const
idx_EmpresasDatosBancoSUFIJO_N19 = 7;
idx_EmpresasDatosBancoSUFIJO_N58 = 8;
- { Copy of Empresas fields }
- fld_Copy_of_EmpresasID = 'ID';
- fld_Copy_of_EmpresasNIF_CIF = 'NIF_CIF';
- fld_Copy_of_EmpresasNOMBRE = 'NOMBRE';
- fld_Copy_of_EmpresasRAZON_SOCIAL = 'RAZON_SOCIAL';
- fld_Copy_of_EmpresasCALLE = 'CALLE';
- fld_Copy_of_EmpresasPOBLACION = 'POBLACION';
- fld_Copy_of_EmpresasPROVINCIA = 'PROVINCIA';
- fld_Copy_of_EmpresasCODIGO_POSTAL = 'CODIGO_POSTAL';
- fld_Copy_of_EmpresasTELEFONO_1 = 'TELEFONO_1';
- fld_Copy_of_EmpresasTELEFONO_2 = 'TELEFONO_2';
- fld_Copy_of_EmpresasMOVIL_1 = 'MOVIL_1';
- fld_Copy_of_EmpresasMOVIL_2 = 'MOVIL_2';
- fld_Copy_of_EmpresasFAX = 'FAX';
- fld_Copy_of_EmpresasEMAIL_1 = 'EMAIL_1';
- fld_Copy_of_EmpresasEMAIL_2 = 'EMAIL_2';
- fld_Copy_of_EmpresasPAGINA_WEB = 'PAGINA_WEB';
- fld_Copy_of_EmpresasNOTAS = 'NOTAS';
- fld_Copy_of_EmpresasFECHA_ALTA = 'FECHA_ALTA';
- fld_Copy_of_EmpresasFECHA_MODIFICACION = 'FECHA_MODIFICACION';
- fld_Copy_of_EmpresasUSUARIO = 'USUARIO';
- fld_Copy_of_EmpresasLOGOTIPO = 'LOGOTIPO';
- fld_Copy_of_EmpresasREGISTRO_MERCANTIL = 'REGISTRO_MERCANTIL';
- fld_Copy_of_EmpresasIVA = 'IVA';
-
- { Copy of Empresas field indexes }
- idx_Copy_of_EmpresasID = 0;
- idx_Copy_of_EmpresasNIF_CIF = 1;
- idx_Copy_of_EmpresasNOMBRE = 2;
- idx_Copy_of_EmpresasRAZON_SOCIAL = 3;
- idx_Copy_of_EmpresasCALLE = 4;
- idx_Copy_of_EmpresasPOBLACION = 5;
- idx_Copy_of_EmpresasPROVINCIA = 6;
- idx_Copy_of_EmpresasCODIGO_POSTAL = 7;
- idx_Copy_of_EmpresasTELEFONO_1 = 8;
- idx_Copy_of_EmpresasTELEFONO_2 = 9;
- idx_Copy_of_EmpresasMOVIL_1 = 10;
- idx_Copy_of_EmpresasMOVIL_2 = 11;
- idx_Copy_of_EmpresasFAX = 12;
- idx_Copy_of_EmpresasEMAIL_1 = 13;
- idx_Copy_of_EmpresasEMAIL_2 = 14;
- idx_Copy_of_EmpresasPAGINA_WEB = 15;
- idx_Copy_of_EmpresasNOTAS = 16;
- idx_Copy_of_EmpresasFECHA_ALTA = 17;
- idx_Copy_of_EmpresasFECHA_MODIFICACION = 18;
- idx_Copy_of_EmpresasUSUARIO = 19;
- idx_Copy_of_EmpresasLOGOTIPO = 20;
- idx_Copy_of_EmpresasREGISTRO_MERCANTIL = 21;
- idx_Copy_of_EmpresasIVA = 22;
-
- { Copy of EmpresasDatosBanco fields }
- fld_Copy_of_EmpresasDatosBancoID = 'ID';
- fld_Copy_of_EmpresasDatosBancoID_EMPRESA = 'ID_EMPRESA';
- fld_Copy_of_EmpresasDatosBancoNOMBRE = 'NOMBRE';
- fld_Copy_of_EmpresasDatosBancoENTIDAD = 'ENTIDAD';
- fld_Copy_of_EmpresasDatosBancoSUCURSAL = 'SUCURSAL';
- fld_Copy_of_EmpresasDatosBancoDC = 'DC';
- fld_Copy_of_EmpresasDatosBancoCUENTA = 'CUENTA';
- fld_Copy_of_EmpresasDatosBancoSUFIJO_N19 = 'SUFIJO_N19';
- fld_Copy_of_EmpresasDatosBancoSUFIJO_N58 = 'SUFIJO_N58';
-
- { Copy of EmpresasDatosBanco field indexes }
- idx_Copy_of_EmpresasDatosBancoID = 0;
- idx_Copy_of_EmpresasDatosBancoID_EMPRESA = 1;
- idx_Copy_of_EmpresasDatosBancoNOMBRE = 2;
- idx_Copy_of_EmpresasDatosBancoENTIDAD = 3;
- idx_Copy_of_EmpresasDatosBancoSUCURSAL = 4;
- idx_Copy_of_EmpresasDatosBancoDC = 5;
- idx_Copy_of_EmpresasDatosBancoCUENTA = 6;
- idx_Copy_of_EmpresasDatosBancoSUFIJO_N19 = 7;
- idx_Copy_of_EmpresasDatosBancoSUFIJO_N58 = 8;
-
type
{ IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable)
- ['{959570E0-F60E-4C3A-BF84-7494D07947C8}']
+ ['{96DF5DB9-5264-4B33-BC6D-F6A8119C40F2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -466,7 +390,7 @@ type
{ IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
- ['{2DBA1931-66F1-44D7-9153-C1B5955A73CD}']
+ ['{5653808F-F011-430B-935F-451A93D817DA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -595,436 +519,6 @@ type
end;
- { ICopy_of_Empresas }
- ICopy_of_Empresas = interface(IDAStronglyTypedDataTable)
- ['{7E7E2530-0F6F-4AF8-A0B8-DE8FB4798C76}']
- { Property getters and setters }
- function GetIDValue: Integer;
- procedure SetIDValue(const aValue: Integer);
- function GetIDIsNull: Boolean;
- procedure SetIDIsNull(const aValue: Boolean);
- function GetNIF_CIFValue: String;
- procedure SetNIF_CIFValue(const aValue: String);
- function GetNIF_CIFIsNull: Boolean;
- procedure SetNIF_CIFIsNull(const aValue: Boolean);
- function GetNOMBREValue: String;
- procedure SetNOMBREValue(const aValue: String);
- function GetNOMBREIsNull: Boolean;
- procedure SetNOMBREIsNull(const aValue: Boolean);
- function GetRAZON_SOCIALValue: String;
- procedure SetRAZON_SOCIALValue(const aValue: String);
- function GetRAZON_SOCIALIsNull: Boolean;
- procedure SetRAZON_SOCIALIsNull(const aValue: Boolean);
- function GetCALLEValue: String;
- procedure SetCALLEValue(const aValue: String);
- function GetCALLEIsNull: Boolean;
- procedure SetCALLEIsNull(const aValue: Boolean);
- function GetPOBLACIONValue: String;
- procedure SetPOBLACIONValue(const aValue: String);
- function GetPOBLACIONIsNull: Boolean;
- procedure SetPOBLACIONIsNull(const aValue: Boolean);
- function GetPROVINCIAValue: String;
- procedure SetPROVINCIAValue(const aValue: String);
- function GetPROVINCIAIsNull: Boolean;
- procedure SetPROVINCIAIsNull(const aValue: Boolean);
- function GetCODIGO_POSTALValue: String;
- procedure SetCODIGO_POSTALValue(const aValue: String);
- function GetCODIGO_POSTALIsNull: Boolean;
- procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
- function GetTELEFONO_1Value: String;
- procedure SetTELEFONO_1Value(const aValue: String);
- function GetTELEFONO_1IsNull: Boolean;
- procedure SetTELEFONO_1IsNull(const aValue: Boolean);
- function GetTELEFONO_2Value: String;
- procedure SetTELEFONO_2Value(const aValue: String);
- function GetTELEFONO_2IsNull: Boolean;
- procedure SetTELEFONO_2IsNull(const aValue: Boolean);
- function GetMOVIL_1Value: String;
- procedure SetMOVIL_1Value(const aValue: String);
- function GetMOVIL_1IsNull: Boolean;
- procedure SetMOVIL_1IsNull(const aValue: Boolean);
- function GetMOVIL_2Value: String;
- procedure SetMOVIL_2Value(const aValue: String);
- function GetMOVIL_2IsNull: Boolean;
- procedure SetMOVIL_2IsNull(const aValue: Boolean);
- function GetFAXValue: String;
- procedure SetFAXValue(const aValue: String);
- function GetFAXIsNull: Boolean;
- procedure SetFAXIsNull(const aValue: Boolean);
- function GetEMAIL_1Value: String;
- procedure SetEMAIL_1Value(const aValue: String);
- function GetEMAIL_1IsNull: Boolean;
- procedure SetEMAIL_1IsNull(const aValue: Boolean);
- function GetEMAIL_2Value: String;
- procedure SetEMAIL_2Value(const aValue: String);
- function GetEMAIL_2IsNull: Boolean;
- procedure SetEMAIL_2IsNull(const aValue: Boolean);
- function GetPAGINA_WEBValue: String;
- procedure SetPAGINA_WEBValue(const aValue: String);
- function GetPAGINA_WEBIsNull: Boolean;
- procedure SetPAGINA_WEBIsNull(const aValue: Boolean);
- function GetNOTASValue: IROStrings;
- function GetNOTASIsNull: Boolean;
- procedure SetNOTASIsNull(const aValue: Boolean);
- function GetFECHA_ALTAValue: DateTime;
- procedure SetFECHA_ALTAValue(const aValue: DateTime);
- function GetFECHA_ALTAIsNull: Boolean;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
- function GetFECHA_MODIFICACIONValue: DateTime;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
- function GetFECHA_MODIFICACIONIsNull: Boolean;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
- function GetUSUARIOValue: String;
- procedure SetUSUARIOValue(const aValue: String);
- function GetUSUARIOIsNull: Boolean;
- procedure SetUSUARIOIsNull(const aValue: Boolean);
- function GetLOGOTIPOValue: IROStream;
- function GetLOGOTIPOIsNull: Boolean;
- procedure SetLOGOTIPOIsNull(const aValue: Boolean);
- function GetREGISTRO_MERCANTILValue: String;
- procedure SetREGISTRO_MERCANTILValue(const aValue: String);
- function GetREGISTRO_MERCANTILIsNull: Boolean;
- procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean);
- function GetIVAValue: Float;
- procedure SetIVAValue(const aValue: Float);
- function GetIVAIsNull: Boolean;
- procedure SetIVAIsNull(const aValue: Boolean);
-
-
- { Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
- property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
- property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property RAZON_SOCIAL: String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue;
- property RAZON_SOCIALIsNull: Boolean read GetRAZON_SOCIALIsNull write SetRAZON_SOCIALIsNull;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
- property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
- property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
- property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
- property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
- property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
- property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
- property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
- property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
- property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
- property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
- property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
- property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
- property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
- property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
- property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
- property FAX: String read GetFAXValue write SetFAXValue;
- property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
- property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
- property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
- property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
- property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
- property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
- property NOTAS: IROStrings read GetNOTASValue;
- property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
- property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
- property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
- property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
- property LOGOTIPO: IROStream read GetLOGOTIPOValue;
- property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull;
- property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
- property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
- property IVA: Float read GetIVAValue write SetIVAValue;
- property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
- end;
-
- { TCopy_of_EmpresasDataTableRules }
- TCopy_of_EmpresasDataTableRules = class(TDADataTableRules, ICopy_of_Empresas)
- private
- f_NOTAS: IROStrings;
- f_LOGOTIPO: IROStream;
- procedure NOTAS_OnChange(Sender: TObject);
- procedure LOGOTIPO_OnChange(Sender: TObject);
- protected
- { Property getters and setters }
- function GetIDValue: Integer; virtual;
- procedure SetIDValue(const aValue: Integer); virtual;
- function GetIDIsNull: Boolean; virtual;
- procedure SetIDIsNull(const aValue: Boolean); virtual;
- function GetNIF_CIFValue: String; virtual;
- procedure SetNIF_CIFValue(const aValue: String); virtual;
- function GetNIF_CIFIsNull: Boolean; virtual;
- procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
- function GetNOMBREValue: String; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
- function GetNOMBREIsNull: Boolean; virtual;
- procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
- function GetRAZON_SOCIALValue: String; virtual;
- procedure SetRAZON_SOCIALValue(const aValue: String); virtual;
- function GetRAZON_SOCIALIsNull: Boolean; virtual;
- procedure SetRAZON_SOCIALIsNull(const aValue: Boolean); virtual;
- function GetCALLEValue: String; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
- function GetCALLEIsNull: Boolean; virtual;
- procedure SetCALLEIsNull(const aValue: Boolean); virtual;
- function GetPOBLACIONValue: String; virtual;
- procedure SetPOBLACIONValue(const aValue: String); virtual;
- function GetPOBLACIONIsNull: Boolean; virtual;
- procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
- function GetPROVINCIAValue: String; virtual;
- procedure SetPROVINCIAValue(const aValue: String); virtual;
- function GetPROVINCIAIsNull: Boolean; virtual;
- procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
- function GetCODIGO_POSTALValue: String; virtual;
- procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
- function GetCODIGO_POSTALIsNull: Boolean; virtual;
- procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
- function GetTELEFONO_1Value: String; virtual;
- procedure SetTELEFONO_1Value(const aValue: String); virtual;
- function GetTELEFONO_1IsNull: Boolean; virtual;
- procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
- function GetTELEFONO_2Value: String; virtual;
- procedure SetTELEFONO_2Value(const aValue: String); virtual;
- function GetTELEFONO_2IsNull: Boolean; virtual;
- procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
- function GetMOVIL_1Value: String; virtual;
- procedure SetMOVIL_1Value(const aValue: String); virtual;
- function GetMOVIL_1IsNull: Boolean; virtual;
- procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
- function GetMOVIL_2Value: String; virtual;
- procedure SetMOVIL_2Value(const aValue: String); virtual;
- function GetMOVIL_2IsNull: Boolean; virtual;
- procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
- function GetFAXValue: String; virtual;
- procedure SetFAXValue(const aValue: String); virtual;
- function GetFAXIsNull: Boolean; virtual;
- procedure SetFAXIsNull(const aValue: Boolean); virtual;
- function GetEMAIL_1Value: String; virtual;
- procedure SetEMAIL_1Value(const aValue: String); virtual;
- function GetEMAIL_1IsNull: Boolean; virtual;
- procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
- function GetEMAIL_2Value: String; virtual;
- procedure SetEMAIL_2Value(const aValue: String); virtual;
- function GetEMAIL_2IsNull: Boolean; virtual;
- procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
- function GetPAGINA_WEBValue: String; virtual;
- procedure SetPAGINA_WEBValue(const aValue: String); virtual;
- function GetPAGINA_WEBIsNull: Boolean; virtual;
- procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
- function GetNOTASValue: IROStrings; virtual;
- function GetNOTASIsNull: Boolean; virtual;
- procedure SetNOTASIsNull(const aValue: Boolean); virtual;
- function GetFECHA_ALTAValue: DateTime; virtual;
- procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
- function GetFECHA_ALTAIsNull: Boolean; virtual;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
- function GetFECHA_MODIFICACIONValue: DateTime; virtual;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
- function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
- function GetUSUARIOValue: String; virtual;
- procedure SetUSUARIOValue(const aValue: String); virtual;
- function GetUSUARIOIsNull: Boolean; virtual;
- procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
- function GetLOGOTIPOValue: IROStream; virtual;
- function GetLOGOTIPOIsNull: Boolean; virtual;
- procedure SetLOGOTIPOIsNull(const aValue: Boolean); virtual;
- function GetREGISTRO_MERCANTILValue: String; virtual;
- procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
- function GetREGISTRO_MERCANTILIsNull: Boolean; virtual;
- procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual;
- function GetIVAValue: Float; virtual;
- procedure SetIVAValue(const aValue: Float); virtual;
- function GetIVAIsNull: Boolean; virtual;
- procedure SetIVAIsNull(const aValue: Boolean); virtual;
-
- { Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
- property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
- property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property RAZON_SOCIAL: String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue;
- property RAZON_SOCIALIsNull: Boolean read GetRAZON_SOCIALIsNull write SetRAZON_SOCIALIsNull;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
- property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
- property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
- property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
- property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
- property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
- property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
- property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
- property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value;
- property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
- property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value;
- property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
- property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value;
- property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
- property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value;
- property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
- property FAX: String read GetFAXValue write SetFAXValue;
- property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
- property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value;
- property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
- property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value;
- property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
- property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
- property NOTAS: IROStrings read GetNOTASValue;
- property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull;
- property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
- property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
- property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
- property LOGOTIPO: IROStream read GetLOGOTIPOValue;
- property LOGOTIPOIsNull: Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull;
- property REGISTRO_MERCANTIL: String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
- property REGISTRO_MERCANTILIsNull: Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
- property IVA: Float read GetIVAValue write SetIVAValue;
- property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
-
- public
- constructor Create(aDataTable: TDADataTable); override;
- destructor Destroy; override;
-
- end;
-
- { ICopy_of_EmpresasDatosBanco }
- ICopy_of_EmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
- ['{AAAC554F-1FEF-4B4B-8190-869CD2350106}']
- { Property getters and setters }
- function GetIDValue: Integer;
- procedure SetIDValue(const aValue: Integer);
- function GetIDIsNull: Boolean;
- procedure SetIDIsNull(const aValue: Boolean);
- function GetID_EMPRESAValue: Integer;
- procedure SetID_EMPRESAValue(const aValue: Integer);
- function GetID_EMPRESAIsNull: Boolean;
- procedure SetID_EMPRESAIsNull(const aValue: Boolean);
- function GetNOMBREValue: String;
- procedure SetNOMBREValue(const aValue: String);
- function GetNOMBREIsNull: Boolean;
- procedure SetNOMBREIsNull(const aValue: Boolean);
- function GetENTIDADValue: String;
- procedure SetENTIDADValue(const aValue: String);
- function GetENTIDADIsNull: Boolean;
- procedure SetENTIDADIsNull(const aValue: Boolean);
- function GetSUCURSALValue: String;
- procedure SetSUCURSALValue(const aValue: String);
- function GetSUCURSALIsNull: Boolean;
- procedure SetSUCURSALIsNull(const aValue: Boolean);
- function GetDCValue: String;
- procedure SetDCValue(const aValue: String);
- function GetDCIsNull: Boolean;
- procedure SetDCIsNull(const aValue: Boolean);
- function GetCUENTAValue: String;
- procedure SetCUENTAValue(const aValue: String);
- function GetCUENTAIsNull: Boolean;
- procedure SetCUENTAIsNull(const aValue: Boolean);
- function GetSUFIJO_N19Value: String;
- procedure SetSUFIJO_N19Value(const aValue: String);
- function GetSUFIJO_N19IsNull: Boolean;
- procedure SetSUFIJO_N19IsNull(const aValue: Boolean);
- function GetSUFIJO_N58Value: String;
- procedure SetSUFIJO_N58Value(const aValue: String);
- function GetSUFIJO_N58IsNull: Boolean;
- procedure SetSUFIJO_N58IsNull(const aValue: Boolean);
-
-
- { Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
- property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
- property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
- property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
- property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
- property DC: String read GetDCValue write SetDCValue;
- property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
- property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
- property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
- property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
- property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull;
- property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
- property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull;
- end;
-
- { TCopy_of_EmpresasDatosBancoDataTableRules }
- TCopy_of_EmpresasDatosBancoDataTableRules = class(TDADataTableRules, ICopy_of_EmpresasDatosBanco)
- private
- protected
- { Property getters and setters }
- function GetIDValue: Integer; virtual;
- procedure SetIDValue(const aValue: Integer); virtual;
- function GetIDIsNull: Boolean; virtual;
- procedure SetIDIsNull(const aValue: Boolean); virtual;
- function GetID_EMPRESAValue: Integer; virtual;
- procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- function GetID_EMPRESAIsNull: Boolean; virtual;
- procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
- function GetNOMBREValue: String; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
- function GetNOMBREIsNull: Boolean; virtual;
- procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
- function GetENTIDADValue: String; virtual;
- procedure SetENTIDADValue(const aValue: String); virtual;
- function GetENTIDADIsNull: Boolean; virtual;
- procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
- function GetSUCURSALValue: String; virtual;
- procedure SetSUCURSALValue(const aValue: String); virtual;
- function GetSUCURSALIsNull: Boolean; virtual;
- procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
- function GetDCValue: String; virtual;
- procedure SetDCValue(const aValue: String); virtual;
- function GetDCIsNull: Boolean; virtual;
- procedure SetDCIsNull(const aValue: Boolean); virtual;
- function GetCUENTAValue: String; virtual;
- procedure SetCUENTAValue(const aValue: String); virtual;
- function GetCUENTAIsNull: Boolean; virtual;
- procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
- function GetSUFIJO_N19Value: String; virtual;
- procedure SetSUFIJO_N19Value(const aValue: String); virtual;
- function GetSUFIJO_N19IsNull: Boolean; virtual;
- procedure SetSUFIJO_N19IsNull(const aValue: Boolean); virtual;
- function GetSUFIJO_N58Value: String; virtual;
- procedure SetSUFIJO_N58Value(const aValue: String); virtual;
- function GetSUFIJO_N58IsNull: Boolean; virtual;
- procedure SetSUFIJO_N58IsNull(const aValue: Boolean); virtual;
-
- { Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
- property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
- property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
- property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
- property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
- property DC: String read GetDCValue write SetDCValue;
- property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull;
- property CUENTA: String read GetCUENTAValue write SetCUENTAValue;
- property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
- property SUFIJO_N19: String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
- property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull;
- property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
- property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull;
-
- public
- constructor Create(aDataTable: TDADataTable); override;
- destructor Destroy; override;
-
- end;
-
implementation
uses Variants, uROBinaryHelpers;
@@ -1742,723 +1236,8 @@ begin
end;
-{ TCopy_of_EmpresasDataTableRules }
-constructor TCopy_of_EmpresasDataTableRules.Create(aDataTable: TDADataTable);
-var
- StrList: TStringList;
- ROStream: TROStream;
-begin
- inherited;
-
- StrList := TStringList.Create;
- StrList.OnChange := NOTAS_OnChange;
- f_NOTAS := NewROStrings(StrList,True);
-
- ROStream := TROStream.Create;
- ROStream.OnChange := LOGOTIPO_OnChange;
- f_LOGOTIPO := ROStream;
-end;
-
-destructor TCopy_of_EmpresasDataTableRules.Destroy;
-begin
- inherited;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.NOTAS_OnChange(Sender: TObject);
-begin
- if DataTable.Editing then DataTable.Fields[idx_Copy_of_EmpresasNOTAS].AsVariant := TStringList(Sender).Text;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.LOGOTIPO_OnChange(Sender: TObject);
-begin
- if DataTable.Editing then DataTable.Fields[idx_Copy_of_EmpresasLOGOTIPO].LoadFromStream(TROStream(Sender));
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetIDValue: Integer;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasID].AsInteger;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetIDValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasID].AsInteger := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetIDIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasID].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetIDIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasID].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetNIF_CIFValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasNIF_CIF].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetNIF_CIFValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasNIF_CIF].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetNIF_CIFIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasNIF_CIF].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasNIF_CIF].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetNOMBREValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasNOMBRE].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetNOMBREValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasNOMBRE].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetNOMBREIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasNOMBRE].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasNOMBRE].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetRAZON_SOCIALValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasRAZON_SOCIAL].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetRAZON_SOCIALValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasRAZON_SOCIAL].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetRAZON_SOCIALIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasRAZON_SOCIAL].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetRAZON_SOCIALIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasRAZON_SOCIAL].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetCALLEValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasCALLE].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetCALLEValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasCALLE].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetCALLEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasCALLE].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetCALLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasCALLE].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetPOBLACIONValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasPOBLACION].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetPOBLACIONValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasPOBLACION].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetPOBLACIONIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasPOBLACION].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasPOBLACION].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetPROVINCIAValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasPROVINCIA].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetPROVINCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasPROVINCIA].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetPROVINCIAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasPROVINCIA].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasPROVINCIA].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetCODIGO_POSTALValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasCODIGO_POSTAL].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasCODIGO_POSTAL].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetCODIGO_POSTALIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasCODIGO_POSTAL].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasCODIGO_POSTAL].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetTELEFONO_1Value: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasTELEFONO_1].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetTELEFONO_1Value(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasTELEFONO_1].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetTELEFONO_1IsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasTELEFONO_1].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasTELEFONO_1].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetTELEFONO_2Value: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasTELEFONO_2].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetTELEFONO_2Value(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasTELEFONO_2].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetTELEFONO_2IsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasTELEFONO_2].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasTELEFONO_2].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetMOVIL_1Value: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasMOVIL_1].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetMOVIL_1Value(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasMOVIL_1].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetMOVIL_1IsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasMOVIL_1].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasMOVIL_1].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetMOVIL_2Value: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasMOVIL_2].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetMOVIL_2Value(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasMOVIL_2].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetMOVIL_2IsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasMOVIL_2].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasMOVIL_2].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetFAXValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasFAX].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetFAXValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasFAX].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetFAXIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasFAX].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetFAXIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasFAX].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetEMAIL_1Value: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasEMAIL_1].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetEMAIL_1Value(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasEMAIL_1].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetEMAIL_1IsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasEMAIL_1].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasEMAIL_1].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetEMAIL_2Value: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasEMAIL_2].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetEMAIL_2Value(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasEMAIL_2].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetEMAIL_2IsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasEMAIL_2].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasEMAIL_2].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetPAGINA_WEBValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasPAGINA_WEB].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetPAGINA_WEBValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasPAGINA_WEB].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetPAGINA_WEBIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasPAGINA_WEB].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasPAGINA_WEB].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetNOTASValue: IROStrings;
-begin
- result := f_NOTAS;
- result.Text := DataTable.Fields[idx_Copy_of_EmpresasNOTAS].AsString;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetNOTASIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasNOTAS].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetNOTASIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasNOTAS].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetFECHA_ALTAValue: DateTime;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasFECHA_ALTA].AsDateTime;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasFECHA_ALTA].AsDateTime := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetFECHA_ALTAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasFECHA_ALTA].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasFECHA_ALTA].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasFECHA_MODIFICACION].AsDateTime;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasFECHA_MODIFICACION].AsDateTime := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasFECHA_MODIFICACION].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasFECHA_MODIFICACION].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetUSUARIOValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasUSUARIO].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetUSUARIOValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasUSUARIO].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetUSUARIOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasUSUARIO].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasUSUARIO].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetLOGOTIPOValue: IROStream;
-begin
- result := f_LOGOTIPO;
- result.Position := 0;
- if not Result.InUpdateMode then begin
- DataTable.Fields[idx_Copy_of_EmpresasLOGOTIPO].SaveToStream(result);
- result.Position := 0;
- end;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetLOGOTIPOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasLOGOTIPO].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetLOGOTIPOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasLOGOTIPO].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetREGISTRO_MERCANTILValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasREGISTRO_MERCANTIL].AsString;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetREGISTRO_MERCANTILValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasREGISTRO_MERCANTIL].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetREGISTRO_MERCANTILIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasREGISTRO_MERCANTIL].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetREGISTRO_MERCANTILIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasREGISTRO_MERCANTIL].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetIVAValue: Float;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasIVA].AsFloat;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetIVAValue(const aValue: Float);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasIVA].AsFloat := aValue;
-end;
-
-function TCopy_of_EmpresasDataTableRules.GetIVAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasIVA].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDataTableRules.SetIVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasIVA].AsVariant := Null;
-end;
-
-
-{ TCopy_of_EmpresasDatosBancoDataTableRules }
-constructor TCopy_of_EmpresasDatosBancoDataTableRules.Create(aDataTable: TDADataTable);
-begin
- inherited;
-end;
-
-destructor TCopy_of_EmpresasDatosBancoDataTableRules.Destroy;
-begin
- inherited;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetIDValue: Integer;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoID].AsInteger;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetIDValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoID].AsInteger := aValue;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetIDIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoID].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetIDIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoID].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetID_EMPRESAValue: Integer;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoID_EMPRESA].AsInteger;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoID_EMPRESA].AsInteger := aValue;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetID_EMPRESAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoID_EMPRESA].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoID_EMPRESA].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetNOMBREValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoNOMBRE].AsString;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetNOMBREValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoNOMBRE].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetNOMBREIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoNOMBRE].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoNOMBRE].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetENTIDADValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoENTIDAD].AsString;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetENTIDADValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoENTIDAD].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetENTIDADIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoENTIDAD].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetENTIDADIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoENTIDAD].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetSUCURSALValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUCURSAL].AsString;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetSUCURSALValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUCURSAL].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetSUCURSALIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUCURSAL].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetSUCURSALIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUCURSAL].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetDCValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoDC].AsString;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetDCValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoDC].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetDCIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoDC].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetDCIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoDC].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetCUENTAValue: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoCUENTA].AsString;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetCUENTAValue(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoCUENTA].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetCUENTAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoCUENTA].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetCUENTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoCUENTA].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetSUFIJO_N19Value: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUFIJO_N19].AsString;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetSUFIJO_N19Value(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUFIJO_N19].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetSUFIJO_N19IsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUFIJO_N19].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetSUFIJO_N19IsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUFIJO_N19].AsVariant := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetSUFIJO_N58Value: String;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUFIJO_N58].AsString;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetSUFIJO_N58Value(const aValue: String);
-begin
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUFIJO_N58].AsString := aValue;
-end;
-
-function TCopy_of_EmpresasDatosBancoDataTableRules.GetSUFIJO_N58IsNull: boolean;
-begin
- result := DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUFIJO_N58].IsNull;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoDataTableRules.SetSUFIJO_N58IsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_Copy_of_EmpresasDatosBancoSUFIJO_N58].AsVariant := Null;
-end;
-
-
initialization
RegisterDataTableRules(RID_Empresas, TEmpresasDataTableRules);
RegisterDataTableRules(RID_EmpresasDatosBanco, TEmpresasDatosBancoDataTableRules);
- RegisterDataTableRules(RID_Copy_of_Empresas, TCopy_of_EmpresasDataTableRules);
- RegisterDataTableRules(RID_Copy_of_EmpresasDatosBanco, TCopy_of_EmpresasDatosBancoDataTableRules);
end.
diff --git a/Source/Modulos/Empresas/Model/schEmpresasServer_Intf.pas b/Source/Modulos/Empresas/Model/schEmpresasServer_Intf.pas
index e30b83d9..6f076fb5 100644
--- a/Source/Modulos/Empresas/Model/schEmpresasServer_Intf.pas
+++ b/Source/Modulos/Empresas/Model/schEmpresasServer_Intf.pas
@@ -9,15 +9,13 @@ 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_EmpresasDelta = '{1C8B2497-5495-4C45-8415-A71E9CA91FEC}';
- RID_EmpresasDatosBancoDelta = '{28F19E2B-A62A-4BFE-B8FE-DE3C83F99FD1}';
- RID_Copy_of_EmpresasDelta = '{56BEAD80-66D6-4FD8-91A3-5675EE00E943}';
- RID_Copy_of_EmpresasDatosBancoDelta = '{9C867B3F-96A6-4EE7-A2AA-622ABD88B279}';
+ RID_EmpresasDelta = '{AA5637FC-EFD6-42DE-BDA1-C31464CB14D3}';
+ RID_EmpresasDatosBancoDelta = '{9C692459-7C4C-4403-8747-2D651CC6D3A2}';
type
{ IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas)
- ['{1C8B2497-5495-4C45-8415-A71E9CA91FEC}']
+ ['{AA5637FC-EFD6-42DE-BDA1-C31464CB14D3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@@ -317,7 +315,7 @@ type
{ IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
- ['{28F19E2B-A62A-4BFE-B8FE-DE3C83F99FD1}']
+ ['{9C692459-7C4C-4403-8747-2D651CC6D3A2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -445,436 +443,6 @@ type
end;
- { ICopy_of_EmpresasDelta }
- ICopy_of_EmpresasDelta = interface(ICopy_of_Empresas)
- ['{56BEAD80-66D6-4FD8-91A3-5675EE00E943}']
- { Property getters and setters }
- function GetOldIDValue : Integer;
- function GetOldNIF_CIFValue : String;
- function GetOldNOMBREValue : String;
- function GetOldRAZON_SOCIALValue : String;
- function GetOldCALLEValue : String;
- function GetOldPOBLACIONValue : String;
- function GetOldPROVINCIAValue : String;
- function GetOldCODIGO_POSTALValue : String;
- function GetOldTELEFONO_1Value : String;
- function GetOldTELEFONO_2Value : String;
- function GetOldMOVIL_1Value : String;
- function GetOldMOVIL_2Value : String;
- function GetOldFAXValue : String;
- function GetOldEMAIL_1Value : String;
- function GetOldEMAIL_2Value : String;
- function GetOldPAGINA_WEBValue : String;
- function GetOldNOTASValue : IROStrings;
- function GetOldFECHA_ALTAValue : DateTime;
- function GetOldFECHA_MODIFICACIONValue : DateTime;
- function GetOldUSUARIOValue : String;
- function GetOldLOGOTIPOValue : IROStream;
- function GetOldREGISTRO_MERCANTILValue : String;
- function GetOldIVAValue : Float;
-
- { Properties }
- property OldID : Integer read GetOldIDValue;
- property OldNIF_CIF : String read GetOldNIF_CIFValue;
- property OldNOMBRE : String read GetOldNOMBREValue;
- property OldRAZON_SOCIAL : String read GetOldRAZON_SOCIALValue;
- property OldCALLE : String read GetOldCALLEValue;
- property OldPOBLACION : String read GetOldPOBLACIONValue;
- property OldPROVINCIA : String read GetOldPROVINCIAValue;
- property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
- property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
- property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
- property OldMOVIL_1 : String read GetOldMOVIL_1Value;
- property OldMOVIL_2 : String read GetOldMOVIL_2Value;
- property OldFAX : String read GetOldFAXValue;
- property OldEMAIL_1 : String read GetOldEMAIL_1Value;
- property OldEMAIL_2 : String read GetOldEMAIL_2Value;
- property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
- property OldNOTAS : IROStrings read GetOldNOTASValue;
- property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
- property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
- property OldUSUARIO : String read GetOldUSUARIOValue;
- property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue;
- property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
- property OldIVA : Float read GetOldIVAValue;
- end;
-
- { TCopy_of_EmpresasBusinessProcessorRules }
- TCopy_of_EmpresasBusinessProcessorRules = class(TDABusinessProcessorRules, ICopy_of_Empresas, ICopy_of_EmpresasDelta)
- private
- f_NOTAS: IROStrings;
- f_LOGOTIPO: IROStream;
- procedure NOTAS_OnChange(Sender: TObject);
- procedure LOGOTIPO_OnChange(Sender: Tobject);
- protected
- { Property getters and setters }
- function GetIDValue: Integer; virtual;
- function GetIDIsNull: Boolean; virtual;
- function GetOldIDValue: Integer; virtual;
- function GetOldIDIsNull: Boolean; virtual;
- procedure SetIDValue(const aValue: Integer); virtual;
- procedure SetIDIsNull(const aValue: Boolean); virtual;
- function GetNIF_CIFValue: String; virtual;
- function GetNIF_CIFIsNull: Boolean; virtual;
- function GetOldNIF_CIFValue: String; virtual;
- function GetOldNIF_CIFIsNull: Boolean; virtual;
- procedure SetNIF_CIFValue(const aValue: String); virtual;
- procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
- function GetNOMBREValue: String; virtual;
- function GetNOMBREIsNull: Boolean; virtual;
- function GetOldNOMBREValue: String; virtual;
- function GetOldNOMBREIsNull: Boolean; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
- procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
- function GetRAZON_SOCIALValue: String; virtual;
- function GetRAZON_SOCIALIsNull: Boolean; virtual;
- function GetOldRAZON_SOCIALValue: String; virtual;
- function GetOldRAZON_SOCIALIsNull: Boolean; virtual;
- procedure SetRAZON_SOCIALValue(const aValue: String); virtual;
- procedure SetRAZON_SOCIALIsNull(const aValue: Boolean); virtual;
- function GetCALLEValue: String; virtual;
- function GetCALLEIsNull: Boolean; virtual;
- function GetOldCALLEValue: String; virtual;
- function GetOldCALLEIsNull: Boolean; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
- procedure SetCALLEIsNull(const aValue: Boolean); virtual;
- function GetPOBLACIONValue: String; virtual;
- function GetPOBLACIONIsNull: Boolean; virtual;
- function GetOldPOBLACIONValue: String; virtual;
- function GetOldPOBLACIONIsNull: Boolean; virtual;
- procedure SetPOBLACIONValue(const aValue: String); virtual;
- procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
- function GetPROVINCIAValue: String; virtual;
- function GetPROVINCIAIsNull: Boolean; virtual;
- function GetOldPROVINCIAValue: String; virtual;
- function GetOldPROVINCIAIsNull: Boolean; virtual;
- procedure SetPROVINCIAValue(const aValue: String); virtual;
- procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
- function GetCODIGO_POSTALValue: String; virtual;
- function GetCODIGO_POSTALIsNull: Boolean; virtual;
- function GetOldCODIGO_POSTALValue: String; virtual;
- function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
- procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
- procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
- function GetTELEFONO_1Value: String; virtual;
- function GetTELEFONO_1IsNull: Boolean; virtual;
- function GetOldTELEFONO_1Value: String; virtual;
- function GetOldTELEFONO_1IsNull: Boolean; virtual;
- procedure SetTELEFONO_1Value(const aValue: String); virtual;
- procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
- function GetTELEFONO_2Value: String; virtual;
- function GetTELEFONO_2IsNull: Boolean; virtual;
- function GetOldTELEFONO_2Value: String; virtual;
- function GetOldTELEFONO_2IsNull: Boolean; virtual;
- procedure SetTELEFONO_2Value(const aValue: String); virtual;
- procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
- function GetMOVIL_1Value: String; virtual;
- function GetMOVIL_1IsNull: Boolean; virtual;
- function GetOldMOVIL_1Value: String; virtual;
- function GetOldMOVIL_1IsNull: Boolean; virtual;
- procedure SetMOVIL_1Value(const aValue: String); virtual;
- procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
- function GetMOVIL_2Value: String; virtual;
- function GetMOVIL_2IsNull: Boolean; virtual;
- function GetOldMOVIL_2Value: String; virtual;
- function GetOldMOVIL_2IsNull: Boolean; virtual;
- procedure SetMOVIL_2Value(const aValue: String); virtual;
- procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
- function GetFAXValue: String; virtual;
- function GetFAXIsNull: Boolean; virtual;
- function GetOldFAXValue: String; virtual;
- function GetOldFAXIsNull: Boolean; virtual;
- procedure SetFAXValue(const aValue: String); virtual;
- procedure SetFAXIsNull(const aValue: Boolean); virtual;
- function GetEMAIL_1Value: String; virtual;
- function GetEMAIL_1IsNull: Boolean; virtual;
- function GetOldEMAIL_1Value: String; virtual;
- function GetOldEMAIL_1IsNull: Boolean; virtual;
- procedure SetEMAIL_1Value(const aValue: String); virtual;
- procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
- function GetEMAIL_2Value: String; virtual;
- function GetEMAIL_2IsNull: Boolean; virtual;
- function GetOldEMAIL_2Value: String; virtual;
- function GetOldEMAIL_2IsNull: Boolean; virtual;
- procedure SetEMAIL_2Value(const aValue: String); virtual;
- procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
- function GetPAGINA_WEBValue: String; virtual;
- function GetPAGINA_WEBIsNull: Boolean; virtual;
- function GetOldPAGINA_WEBValue: String; virtual;
- function GetOldPAGINA_WEBIsNull: Boolean; virtual;
- procedure SetPAGINA_WEBValue(const aValue: String); virtual;
- procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
- function GetNOTASValue: IROStrings; virtual;
- function GetNOTASIsNull: Boolean; virtual;
- function GetOldNOTASValue: IROStrings; virtual;
- function GetOldNOTASIsNull: Boolean; virtual;
- procedure SetNOTASIsNull(const aValue: Boolean); virtual;
- function GetFECHA_ALTAValue: DateTime; virtual;
- function GetFECHA_ALTAIsNull: Boolean; virtual;
- function GetOldFECHA_ALTAValue: DateTime; virtual;
- function GetOldFECHA_ALTAIsNull: Boolean; virtual;
- procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
- function GetFECHA_MODIFICACIONValue: DateTime; virtual;
- function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
- function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
- function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
- function GetUSUARIOValue: String; virtual;
- function GetUSUARIOIsNull: Boolean; virtual;
- function GetOldUSUARIOValue: String; virtual;
- function GetOldUSUARIOIsNull: Boolean; virtual;
- procedure SetUSUARIOValue(const aValue: String); virtual;
- procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
- function GetLOGOTIPOValue: IROStream; virtual;
- function GetLOGOTIPOIsNull: Boolean; virtual;
- function GetOldLOGOTIPOValue: IROStream; virtual;
- function GetOldLOGOTIPOIsNull: Boolean; virtual;
- procedure SetLOGOTIPOIsNull(const aValue: Boolean); virtual;
- function GetREGISTRO_MERCANTILValue: String; virtual;
- function GetREGISTRO_MERCANTILIsNull: Boolean; virtual;
- function GetOldREGISTRO_MERCANTILValue: String; virtual;
- function GetOldREGISTRO_MERCANTILIsNull: Boolean; virtual;
- procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
- procedure SetREGISTRO_MERCANTILIsNull(const aValue: Boolean); virtual;
- function GetIVAValue: Float; virtual;
- function GetIVAIsNull: Boolean; virtual;
- function GetOldIVAValue: Float; virtual;
- function GetOldIVAIsNull: Boolean; virtual;
- procedure SetIVAValue(const aValue: Float); virtual;
- procedure SetIVAIsNull(const aValue: Boolean); virtual;
-
- { Properties }
- property ID : Integer read GetIDValue write SetIDValue;
- property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
- property OldID : Integer read GetOldIDValue;
- property OldIDIsNull : Boolean read GetOldIDIsNull;
- property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue;
- property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
- property OldNIF_CIF : String read GetOldNIF_CIFValue;
- property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull;
- property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property OldNOMBRE : String read GetOldNOMBREValue;
- property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
- property RAZON_SOCIAL : String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue;
- property RAZON_SOCIALIsNull : Boolean read GetRAZON_SOCIALIsNull write SetRAZON_SOCIALIsNull;
- property OldRAZON_SOCIAL : String read GetOldRAZON_SOCIALValue;
- property OldRAZON_SOCIALIsNull : Boolean read GetOldRAZON_SOCIALIsNull;
- property CALLE : String read GetCALLEValue write SetCALLEValue;
- property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
- property OldCALLE : String read GetOldCALLEValue;
- property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
- property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
- property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
- property OldPOBLACION : String read GetOldPOBLACIONValue;
- property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
- property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
- property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
- property OldPROVINCIA : String read GetOldPROVINCIAValue;
- property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
- property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
- property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
- property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
- property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
- property TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
- property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
- property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
- property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
- property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
- property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
- property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
- property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
- property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
- property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
- property OldMOVIL_1 : String read GetOldMOVIL_1Value;
- property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
- property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
- property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
- property OldMOVIL_2 : String read GetOldMOVIL_2Value;
- property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
- property FAX : String read GetFAXValue write SetFAXValue;
- property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
- property OldFAX : String read GetOldFAXValue;
- property OldFAXIsNull : Boolean read GetOldFAXIsNull;
- property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
- property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
- property OldEMAIL_1 : String read GetOldEMAIL_1Value;
- property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
- property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
- property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
- property OldEMAIL_2 : String read GetOldEMAIL_2Value;
- property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
- property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
- property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
- property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
- property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
- property NOTAS : IROStrings read GetNOTASValue;
- property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
- property OldNOTAS : IROStrings read GetOldNOTASValue;
- property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
- property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
- property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
- property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
- property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
- property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
- property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
- property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
- property OldUSUARIO : String read GetOldUSUARIOValue;
- property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
- property LOGOTIPO : IROStream read GetLOGOTIPOValue;
- property LOGOTIPOIsNull : Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull;
- property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue;
- property OldLOGOTIPOIsNull : Boolean read GetOldLOGOTIPOIsNull;
- property REGISTRO_MERCANTIL : String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
- property REGISTRO_MERCANTILIsNull : Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
- property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
- property OldREGISTRO_MERCANTILIsNull : Boolean read GetOldREGISTRO_MERCANTILIsNull;
- property IVA : Float read GetIVAValue write SetIVAValue;
- property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull;
- property OldIVA : Float read GetOldIVAValue;
- property OldIVAIsNull : Boolean read GetOldIVAIsNull;
-
- public
- constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
- destructor Destroy; override;
-
- end;
-
- { ICopy_of_EmpresasDatosBancoDelta }
- ICopy_of_EmpresasDatosBancoDelta = interface(ICopy_of_EmpresasDatosBanco)
- ['{9C867B3F-96A6-4EE7-A2AA-622ABD88B279}']
- { Property getters and setters }
- function GetOldIDValue : Integer;
- function GetOldID_EMPRESAValue : Integer;
- function GetOldNOMBREValue : String;
- function GetOldENTIDADValue : String;
- function GetOldSUCURSALValue : String;
- function GetOldDCValue : String;
- function GetOldCUENTAValue : String;
- function GetOldSUFIJO_N19Value : String;
- function GetOldSUFIJO_N58Value : String;
-
- { Properties }
- property OldID : Integer read GetOldIDValue;
- property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property OldNOMBRE : String read GetOldNOMBREValue;
- property OldENTIDAD : String read GetOldENTIDADValue;
- property OldSUCURSAL : String read GetOldSUCURSALValue;
- property OldDC : String read GetOldDCValue;
- property OldCUENTA : String read GetOldCUENTAValue;
- property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
- property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
- end;
-
- { TCopy_of_EmpresasDatosBancoBusinessProcessorRules }
- TCopy_of_EmpresasDatosBancoBusinessProcessorRules = class(TDABusinessProcessorRules, ICopy_of_EmpresasDatosBanco, ICopy_of_EmpresasDatosBancoDelta)
- private
- protected
- { Property getters and setters }
- function GetIDValue: Integer; virtual;
- function GetIDIsNull: Boolean; virtual;
- function GetOldIDValue: Integer; virtual;
- function GetOldIDIsNull: Boolean; virtual;
- procedure SetIDValue(const aValue: Integer); virtual;
- procedure SetIDIsNull(const aValue: Boolean); virtual;
- function GetID_EMPRESAValue: Integer; virtual;
- function GetID_EMPRESAIsNull: Boolean; virtual;
- function GetOldID_EMPRESAValue: Integer; virtual;
- function GetOldID_EMPRESAIsNull: Boolean; virtual;
- procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
- function GetNOMBREValue: String; virtual;
- function GetNOMBREIsNull: Boolean; virtual;
- function GetOldNOMBREValue: String; virtual;
- function GetOldNOMBREIsNull: Boolean; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
- procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
- function GetENTIDADValue: String; virtual;
- function GetENTIDADIsNull: Boolean; virtual;
- function GetOldENTIDADValue: String; virtual;
- function GetOldENTIDADIsNull: Boolean; virtual;
- procedure SetENTIDADValue(const aValue: String); virtual;
- procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
- function GetSUCURSALValue: String; virtual;
- function GetSUCURSALIsNull: Boolean; virtual;
- function GetOldSUCURSALValue: String; virtual;
- function GetOldSUCURSALIsNull: Boolean; virtual;
- procedure SetSUCURSALValue(const aValue: String); virtual;
- procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
- function GetDCValue: String; virtual;
- function GetDCIsNull: Boolean; virtual;
- function GetOldDCValue: String; virtual;
- function GetOldDCIsNull: Boolean; virtual;
- procedure SetDCValue(const aValue: String); virtual;
- procedure SetDCIsNull(const aValue: Boolean); virtual;
- function GetCUENTAValue: String; virtual;
- function GetCUENTAIsNull: Boolean; virtual;
- function GetOldCUENTAValue: String; virtual;
- function GetOldCUENTAIsNull: Boolean; virtual;
- procedure SetCUENTAValue(const aValue: String); virtual;
- procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
- function GetSUFIJO_N19Value: String; virtual;
- function GetSUFIJO_N19IsNull: Boolean; virtual;
- function GetOldSUFIJO_N19Value: String; virtual;
- function GetOldSUFIJO_N19IsNull: Boolean; virtual;
- procedure SetSUFIJO_N19Value(const aValue: String); virtual;
- procedure SetSUFIJO_N19IsNull(const aValue: Boolean); virtual;
- function GetSUFIJO_N58Value: String; virtual;
- function GetSUFIJO_N58IsNull: Boolean; virtual;
- function GetOldSUFIJO_N58Value: String; virtual;
- function GetOldSUFIJO_N58IsNull: Boolean; virtual;
- procedure SetSUFIJO_N58Value(const aValue: String); virtual;
- procedure SetSUFIJO_N58IsNull(const aValue: Boolean); virtual;
-
- { Properties }
- property ID : Integer read GetIDValue write SetIDValue;
- property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
- property OldID : Integer read GetOldIDValue;
- property OldIDIsNull : Boolean read GetOldIDIsNull;
- property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
- property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
- property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property OldNOMBRE : String read GetOldNOMBREValue;
- property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
- property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
- property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
- property OldENTIDAD : String read GetOldENTIDADValue;
- property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull;
- property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
- property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
- property OldSUCURSAL : String read GetOldSUCURSALValue;
- property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull;
- property DC : String read GetDCValue write SetDCValue;
- property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull;
- property OldDC : String read GetOldDCValue;
- property OldDCIsNull : Boolean read GetOldDCIsNull;
- property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
- property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
- property OldCUENTA : String read GetOldCUENTAValue;
- property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull;
- property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
- property SUFIJO_N19IsNull : Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull;
- property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
- property OldSUFIJO_N19IsNull : Boolean read GetOldSUFIJO_N19IsNull;
- property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
- property SUFIJO_N58IsNull : Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull;
- property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
- property OldSUFIJO_N58IsNull : Boolean read GetOldSUFIJO_N58IsNull;
-
- public
- constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
- destructor Destroy; override;
-
- end;
-
implementation
uses
@@ -1915,1045 +1483,8 @@ begin
end;
-{ TCopy_of_EmpresasBusinessProcessorRules }
-constructor TCopy_of_EmpresasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
-var
- StrList: TStringList;
- ROStream: TROStream;
-begin
- inherited;
-
- StrList := TStringList.Create;
- StrList.OnChange := NOTAS_OnChange;
- f_NOTAS := NewROStrings(StrList,True);
-
- ROStream := TROStream.Create;
- ROStream.OnChange := LOGOTIPO_OnChange;
- f_LOGOTIPO := ROStream;
-end;
-
-destructor TCopy_of_EmpresasBusinessProcessorRules.Destroy;
-begin
- inherited;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNOTAS] := TStringList(Sender).Text;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.LOGOTIPO_OnChange(Sender: TObject);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasLOGOTIPO] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetIDValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasID];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetIDIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasID]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldIDValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasID];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldIDIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasID]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetIDValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasID] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasID] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetNIF_CIFValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNIF_CIF];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNIF_CIF]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldNIF_CIFValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasNIF_CIF];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasNIF_CIF]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNIF_CIF] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNIF_CIF] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNOMBRE];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetNOMBREIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNOMBRE]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasNOMBRE];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasNOMBRE]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetNOMBREValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNOMBRE] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNOMBRE] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetRAZON_SOCIALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasRAZON_SOCIAL];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetRAZON_SOCIALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasRAZON_SOCIAL]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldRAZON_SOCIALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasRAZON_SOCIAL];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldRAZON_SOCIALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasRAZON_SOCIAL]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetRAZON_SOCIALValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasRAZON_SOCIAL] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetRAZON_SOCIALIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasRAZON_SOCIAL] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetCALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasCALLE];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetCALLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasCALLE]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldCALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasCALLE];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasCALLE]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetCALLEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasCALLE] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasCALLE] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetPOBLACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPOBLACION];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPOBLACION]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldPOBLACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasPOBLACION];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasPOBLACION]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPOBLACION] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPOBLACION] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetPROVINCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPROVINCIA];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPROVINCIA]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldPROVINCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasPROVINCIA];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasPROVINCIA]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPROVINCIA] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPROVINCIA] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetCODIGO_POSTALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasCODIGO_POSTAL];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasCODIGO_POSTAL]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasCODIGO_POSTAL];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasCODIGO_POSTAL]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasCODIGO_POSTAL] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasCODIGO_POSTAL] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetTELEFONO_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasTELEFONO_1];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasTELEFONO_1]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldTELEFONO_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasTELEFONO_1];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasTELEFONO_1]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasTELEFONO_1] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasTELEFONO_1] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetTELEFONO_2Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasTELEFONO_2];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasTELEFONO_2]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldTELEFONO_2Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasTELEFONO_2];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasTELEFONO_2]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasTELEFONO_2] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasTELEFONO_2] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetMOVIL_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasMOVIL_1];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasMOVIL_1]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldMOVIL_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasMOVIL_1];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasMOVIL_1]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasMOVIL_1] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasMOVIL_1] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetMOVIL_2Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasMOVIL_2];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasMOVIL_2]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldMOVIL_2Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasMOVIL_2];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasMOVIL_2]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasMOVIL_2] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasMOVIL_2] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetFAXValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFAX];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetFAXIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFAX]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldFAXValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasFAX];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldFAXIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasFAX]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetFAXValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFAX] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFAX] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetEMAIL_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasEMAIL_1];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasEMAIL_1]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldEMAIL_1Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasEMAIL_1];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasEMAIL_1]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasEMAIL_1] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasEMAIL_1] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetEMAIL_2Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasEMAIL_2];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasEMAIL_2]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldEMAIL_2Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasEMAIL_2];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasEMAIL_2]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasEMAIL_2] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasEMAIL_2] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetPAGINA_WEBValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPAGINA_WEB];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPAGINA_WEB]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasPAGINA_WEB];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasPAGINA_WEB]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPAGINA_WEB] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasPAGINA_WEB] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetNOTASValue: IROStrings;
-begin
- result := f_NOTAS;
- result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNOTAS];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetNOTASIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNOTAS]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldNOTASValue: IROStrings;
-begin
- result := NewROStrings();
- result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasNOTAS];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasNOTAS]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasNOTAS] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFECHA_ALTA];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFECHA_ALTA]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasFECHA_ALTA];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasFECHA_ALTA]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFECHA_ALTA] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFECHA_ALTA] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFECHA_MODIFICACION];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFECHA_MODIFICACION]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasFECHA_MODIFICACION];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasFECHA_MODIFICACION]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFECHA_MODIFICACION] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasFECHA_MODIFICACION] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetUSUARIOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasUSUARIO];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasUSUARIO]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldUSUARIOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasUSUARIO];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasUSUARIO]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasUSUARIO] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasUSUARIO] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetLOGOTIPOValue: IROStream;
-begin
- result := f_LOGOTIPO;
- result.Position := 0;
- if not Result.InUpdateMode then begin
- WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasLOGOTIPO], result.Stream);
- result.Position := 0;
- end;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetLOGOTIPOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasLOGOTIPO]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldLOGOTIPOValue: IROStream;
-begin
- result := NewROStream();
- WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasLOGOTIPO], result.Stream);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldLOGOTIPOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasLOGOTIPO]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetLOGOTIPOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasLOGOTIPO] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetREGISTRO_MERCANTILValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasREGISTRO_MERCANTIL];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetREGISTRO_MERCANTILIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasREGISTRO_MERCANTIL]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldREGISTRO_MERCANTILValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasREGISTRO_MERCANTIL];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldREGISTRO_MERCANTILIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasREGISTRO_MERCANTIL]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetREGISTRO_MERCANTILValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasREGISTRO_MERCANTIL] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetREGISTRO_MERCANTILIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasREGISTRO_MERCANTIL] := Null;
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetIVAValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasIVA];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetIVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasIVA]);
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldIVAValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasIVA];
-end;
-
-function TCopy_of_EmpresasBusinessProcessorRules.GetOldIVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasIVA]);
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetIVAValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasIVA] := aValue;
-end;
-
-procedure TCopy_of_EmpresasBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasIVA] := Null;
-end;
-
-
-{ TCopy_of_EmpresasDatosBancoBusinessProcessorRules }
-constructor TCopy_of_EmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
-begin
- inherited;
-end;
-
-destructor TCopy_of_EmpresasDatosBancoBusinessProcessorRules.Destroy;
-begin
- inherited;
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetIDValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoID];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetIDIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoID]);
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldIDValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoID];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldIDIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoID]);
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetIDValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoID] := aValue;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoID] := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetID_EMPRESAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoID_EMPRESA];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoID_EMPRESA]);
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoID_EMPRESA];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoID_EMPRESA]);
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoID_EMPRESA] := aValue;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoID_EMPRESA] := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoNOMBRE];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetNOMBREIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoNOMBRE]);
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoNOMBRE];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoNOMBRE]);
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoNOMBRE] := aValue;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoNOMBRE] := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetENTIDADValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoENTIDAD];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetENTIDADIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoENTIDAD]);
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldENTIDADValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoENTIDAD];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldENTIDADIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoENTIDAD]);
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetENTIDADValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoENTIDAD] := aValue;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoENTIDAD] := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetSUCURSALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUCURSAL];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetSUCURSALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUCURSAL]);
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldSUCURSALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoSUCURSAL];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoSUCURSAL]);
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUCURSAL] := aValue;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUCURSAL] := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetDCValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoDC];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetDCIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoDC]);
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldDCValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoDC];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldDCIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoDC]);
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetDCValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoDC] := aValue;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetDCIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoDC] := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetCUENTAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoCUENTA];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetCUENTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoCUENTA]);
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldCUENTAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoCUENTA];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldCUENTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoCUENTA]);
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetCUENTAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoCUENTA] := aValue;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoCUENTA] := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N19Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N19];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N19IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N19]);
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N19Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N19];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N19IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N19]);
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N19] := aValue;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N19IsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N19] := Null;
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N58Value: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N58];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N58IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N58]);
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N58Value: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N58];
-end;
-
-function TCopy_of_EmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N58IsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N58]);
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N58] := aValue;
-end;
-
-procedure TCopy_of_EmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N58IsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_Copy_of_EmpresasDatosBancoSUFIJO_N58] := Null;
-end;
-
-
initialization
RegisterBusinessProcessorRules(RID_EmpresasDelta, TEmpresasBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_EmpresasDatosBancoDelta, TEmpresasDatosBancoBusinessProcessorRules);
- RegisterBusinessProcessorRules(RID_Copy_of_EmpresasDelta, TCopy_of_EmpresasBusinessProcessorRules);
- RegisterBusinessProcessorRules(RID_Copy_of_EmpresasDatosBancoDelta, TCopy_of_EmpresasDatosBancoBusinessProcessorRules);
end.
diff --git a/Source/Modulos/Empresas/Model/uBizEmpresas.pas b/Source/Modulos/Empresas/Model/uBizEmpresas.pas
index be05cd05..cc9eeb14 100644
--- a/Source/Modulos/Empresas/Model/uBizEmpresas.pas
+++ b/Source/Modulos/Empresas/Model/uBizEmpresas.pas
@@ -81,7 +81,6 @@ end;
procedure TBizEmpresa.OnNewRecord(Sender: TDADataTable);
begin
inherited;
- ID := GetRecNo; // -1, -2, -3...
IniciarValoresEmpresaNueva;
end;
diff --git a/Source/Modulos/Empresas/Model/uBizEmpresasDatosBancarios.pas b/Source/Modulos/Empresas/Model/uBizEmpresasDatosBancarios.pas
index d86524c7..54e810f8 100644
--- a/Source/Modulos/Empresas/Model/uBizEmpresasDatosBancarios.pas
+++ b/Source/Modulos/Empresas/Model/uBizEmpresasDatosBancarios.pas
@@ -18,7 +18,6 @@ type
TBizEmpresasDatosBancarios = class(TEmpresasDatosBancoDataTableRules, IBizEmpresasDatosBancarios)
protected
procedure BeforeInsert(Sender: TDADataTable); override;
- procedure OnNewRecord(Sender: TDADataTable); override;
public
function EsNuevo : Boolean;
end;
@@ -45,12 +44,6 @@ begin
Result := (ID < 0);
end;
-procedure TBizEmpresasDatosBancarios.OnNewRecord(Sender: TDADataTable);
-begin
- inherited;
- ID := GetRecNo; // -1, -2, -3...
-end;
-
initialization
RegisterDataTableRules(BIZ_CLIENT_EMPRESAS_DATOS_BANCARIOS, TBizEmpresasDatosBancarios);
diff --git a/Source/Modulos/Empresas/Plugin/Empresas_plugin.drc b/Source/Modulos/Empresas/Plugin/Empresas_plugin.drc
index bcdc68cf..3a8cb3c5 100644
--- a/Source/Modulos/Empresas/Plugin/Empresas_plugin.drc
+++ b/Source/Modulos/Empresas/Plugin/Empresas_plugin.drc
@@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Plugin\uPluginEmpresas.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Plugin\Empresas_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf215.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Plugin\Empresas_plugin.drf */
diff --git a/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.dfm b/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.dfm
index 4363260e..265163ef 100644
--- a/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.dfm
+++ b/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.dfm
@@ -7,6 +7,7 @@ object srvEmpresas: TsrvEmpresas
ServiceDataStreamer = DABin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
+ BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData
Height = 166
Width = 351
object schEmpresas: TDASchema
@@ -19,7 +20,6 @@ object srvEmpresas: TsrvEmpresas
Statements = <
item
Connection = 'IBX'
- ConnectionType = 'Interbase'
Default = True
TargetTable = 'EMPRESAS'
Name = 'IBX'
@@ -122,332 +122,9 @@ object srvEmpresas: TsrvEmpresas
Fields = <
item
Name = 'ID'
- DataType = datInteger
- LogChanges = False
- Required = True
- ReadOnly = True
- InPrimaryKey = True
- end
- item
- Name = 'NIF_CIF'
- DataType = datString
- Size = 15
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'RAZON_SOCIAL'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'POBLACION'
- DataType = datString
- Size = 255
- end
- item
- Name = 'PROVINCIA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
- end
- item
- Name = 'TELEFONO_1'
- DataType = datString
- Size = 25
- end
- item
- Name = 'TELEFONO_2'
- DataType = datString
- Size = 25
- end
- item
- Name = 'MOVIL_1'
- DataType = datString
- Size = 25
- end
- item
- Name = 'MOVIL_2'
- DataType = datString
- Size = 25
- end
- item
- Name = 'FAX'
- DataType = datString
- Size = 25
- end
- item
- Name = 'EMAIL_1'
- DataType = datString
- Size = 255
- end
- item
- Name = 'EMAIL_2'
- DataType = datString
- Size = 255
- end
- item
- Name = 'PAGINA_WEB'
- DataType = datString
- Size = 255
- end
- item
- Name = 'NOTAS'
- DataType = datMemo
- end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 20
- end
- item
- Name = 'LOGOTIPO'
- DataType = datBlob
- end
- item
- Name = 'REGISTRO_MERCANTIL'
- DataType = datString
- Size = 255
- end
- item
- Name = 'IVA'
- DataType = datFloat
- end>
- end
- item
- Params = <>
- Statements = <
- item
- Connection = 'IBX'
- ConnectionType = 'Interbase'
- Default = True
- TargetTable = 'EMPRESAS_DATOS_BANCO'
- Name = 'IBX'
- StatementType = stAutoSQL
- ColumnMappings = <
- item
- DatasetField = 'ID'
- TableField = 'ID'
- end
- item
- DatasetField = 'ID_EMPRESA'
- TableField = 'ID_EMPRESA'
- end
- item
- DatasetField = 'NOMBRE'
- TableField = 'NOMBRE'
- end
- item
- DatasetField = 'ENTIDAD'
- TableField = 'ENTIDAD'
- end
- item
- DatasetField = 'SUCURSAL'
- TableField = 'SUCURSAL'
- end
- item
- DatasetField = 'DC'
- TableField = 'DC'
- end
- item
- DatasetField = 'CUENTA'
- TableField = 'CUENTA'
- end
- item
- DatasetField = 'SUFIJO_N19'
- TableField = 'SUFIJO_N19'
- end
- item
- DatasetField = 'SUFIJO_N58'
- TableField = 'SUFIJO_N58'
- end>
- end>
- Name = 'EmpresasDatosBanco'
- Fields = <
- item
- Name = 'ID'
- DataType = datInteger
- LogChanges = False
- Required = True
- ReadOnly = True
- InPrimaryKey = True
- end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- LogChanges = False
- Required = True
- ReadOnly = True
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'ENTIDAD'
- DataType = datString
- Size = 15
- end
- item
- Name = 'SUCURSAL'
- DataType = datString
- Size = 15
- end
- item
- Name = 'DC'
- DataType = datString
- Size = 15
- end
- item
- Name = 'CUENTA'
- DataType = datString
- Size = 15
- end
- item
- Name = 'SUFIJO_N19'
- DataType = datString
- Size = 3
- end
- item
- Name = 'SUFIJO_N58'
- DataType = datString
- Size = 3
- end>
- end
- item
- IsPublic = False
- Params = <>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'EMPRESAS'
- SQL =
- 'SELECT'#10' ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, ' +
- #10' PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, ' +
- #10' MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, '#10' FEC' +
- 'HA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO,'#10' REGISTRO_MER' +
- 'CANTIL, IVA'#10' FROM'#10' EMPRESAS'#10' WHERE {Where}'#10
- StatementType = stSQL
- ColumnMappings = <
- item
- DatasetField = 'ID'
- TableField = 'ID'
- end
- item
- DatasetField = 'NIF_CIF'
- TableField = 'NIF_CIF'
- end
- item
- DatasetField = 'NOMBRE'
- TableField = 'NOMBRE'
- end
- item
- DatasetField = 'RAZON_SOCIAL'
- TableField = 'RAZON_SOCIAL'
- end
- item
- DatasetField = 'CALLE'
- TableField = 'CALLE'
- end
- item
- DatasetField = 'POBLACION'
- TableField = 'POBLACION'
- end
- item
- DatasetField = 'PROVINCIA'
- TableField = 'PROVINCIA'
- end
- item
- DatasetField = 'CODIGO_POSTAL'
- TableField = 'CODIGO_POSTAL'
- end
- item
- DatasetField = 'TELEFONO_1'
- TableField = 'TELEFONO_1'
- end
- item
- DatasetField = 'TELEFONO_2'
- TableField = 'TELEFONO_2'
- end
- item
- DatasetField = 'MOVIL_1'
- TableField = 'MOVIL_1'
- end
- item
- DatasetField = 'MOVIL_2'
- TableField = 'MOVIL_2'
- end
- item
- DatasetField = 'FAX'
- TableField = 'FAX'
- end
- item
- DatasetField = 'EMAIL_1'
- TableField = 'EMAIL_1'
- end
- item
- DatasetField = 'EMAIL_2'
- TableField = 'EMAIL_2'
- end
- item
- DatasetField = 'PAGINA_WEB'
- TableField = 'PAGINA_WEB'
- end
- item
- DatasetField = 'NOTAS'
- TableField = 'NOTAS'
- end
- item
- DatasetField = 'FECHA_ALTA'
- TableField = 'FECHA_ALTA'
- end
- item
- DatasetField = 'FECHA_MODIFICACION'
- TableField = 'FECHA_MODIFICACION'
- end
- item
- DatasetField = 'USUARIO'
- TableField = 'USUARIO'
- end
- item
- DatasetField = 'LOGOTIPO'
- TableField = 'LOGOTIPO'
- end
- item
- DatasetField = 'REGISTRO_MERCANTIL'
- TableField = 'REGISTRO_MERCANTIL'
- end
- item
- DatasetField = 'IVA'
- TableField = 'IVA'
- end>
- end>
- Name = 'Copy of Empresas'
- Fields = <
- item
- Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_EMPRESAS_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'Empresas_ID'
InPrimaryKey = True
end
@@ -581,22 +258,14 @@ object srvEmpresas: TsrvEmpresas
end>
end
item
- IsPublic = False
- Params = <
- item
- Name = 'ID_EMPRESA'
- Value = ''
- ParamType = daptInput
- end>
+ Params = <>
Statements = <
item
Connection = 'IBX'
+ Default = True
TargetTable = 'EMPRESAS_DATOS_BANCO'
- SQL =
- 'SELECT '#10' ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENT' +
- 'A, '#10' SUFIJO_N19, SUFIJO_N58'#10' FROM'#10' EMPRESAS_DATOS_BANCO'#10'W' +
- 'HERE ID_EMPRESA = :ID_EMPRESA'#10' AND {Where}'#10
- StatementType = stSQL
+ Name = 'IBX'
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@@ -635,11 +304,13 @@ object srvEmpresas: TsrvEmpresas
TableField = 'SUFIJO_N58'
end>
end>
- Name = 'Copy of EmpresasDatosBanco'
+ Name = 'EmpresasDatosBanco'
Fields = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'EmpresasDatosBanco_ID'
InPrimaryKey = True
end
@@ -693,555 +364,7 @@ object srvEmpresas: TsrvEmpresas
end>
JoinDataTables = <>
UnionDataTables = <>
- Commands = <
- item
- Params = <
- item
- Name = 'ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'NIF_CIF'
- DataType = datString
- Size = 15
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'RAZON_SOCIAL'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'POBLACION'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'PROVINCIA'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'TELEFONO_1'
- DataType = datString
- Size = 25
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'TELEFONO_2'
- DataType = datString
- Size = 25
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'MOVIL_1'
- DataType = datString
- Size = 25
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'MOVIL_2'
- DataType = datString
- Size = 25
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'FAX'
- DataType = datString
- Size = 25
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'EMAIL_1'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'EMAIL_2'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'PAGINA_WEB'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'NOTAS'
- DataType = datMemo
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 20
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'LOGOTIPO'
- DataType = datBlob
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'REGISTRO_MERCANTIL'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'IVA'
- DataType = datFloat
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'EMPRESAS'
- SQL =
- 'INSERT'#10' INTO EMPRESAS'#10' (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, C' +
- 'ALLE, POBLACION, '#10' PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TEL' +
- 'EFONO_2, MOVIL_1, '#10' MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_W' +
- 'EB, NOTAS, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTI' +
- 'PO, '#10' REGISTRO_MERCANTIL, IVA)'#10' VALUES'#10' (:ID, :NIF_CIF, ' +
- ':NOMBRE, :RAZON_SOCIAL, :CALLE, :POBLACION, '#10' :PROVINCIA, :C' +
- 'ODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, '#10' :MOVIL_1, :MOVIL_2' +
- ', :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, '#10' :NOTAS, :FECHA_AL' +
- 'TA, :FECHA_MODIFICACION, :USUARIO, '#10' :LOGOTIPO, :REGISTRO_ME' +
- 'RCANTIL, :IVA)'
- StatementType = stSQL
- ColumnMappings = <>
- end>
- Name = 'Insert_Empresas'
- end
- item
- Params = <
- item
- Name = 'OLD_ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'EMPRESAS'
- SQL = 'DELETE '#10' FROM'#10' EMPRESAS'#10' WHERE'#10' (ID = :OLD_ID)'
- StatementType = stSQL
- ColumnMappings = <>
- end>
- Name = 'Delete_Empresas'
- end
- item
- Params = <
- item
- Name = 'NIF_CIF'
- DataType = datString
- Size = 15
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'RAZON_SOCIAL'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'POBLACION'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'PROVINCIA'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'TELEFONO_1'
- DataType = datString
- Size = 25
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'TELEFONO_2'
- DataType = datString
- Size = 25
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'MOVIL_1'
- DataType = datString
- Size = 25
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'MOVIL_2'
- DataType = datString
- Size = 25
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'FAX'
- DataType = datString
- Size = 25
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'EMAIL_1'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'EMAIL_2'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'PAGINA_WEB'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'NOTAS'
- DataType = datMemo
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 20
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'LOGOTIPO'
- DataType = datBlob
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'REGISTRO_MERCANTIL'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'IVA'
- DataType = datFloat
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'OLD_ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'EMPRESAS'
- SQL =
- 'UPDATE EMPRESAS'#10' SET '#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NOM' +
- 'BRE, '#10' RAZON_SOCIAL = :RAZON_SOCIAL, '#10' CALLE = :CALLE, '#10' ' +
- ' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODI' +
- 'GO_POSTAL = :CODIGO_POSTAL, '#10' TELEFONO_1 = :TELEFONO_1, '#10' ' +
- 'TELEFONO_2 = :TELEFONO_2, '#10' MOVIL_1 = :MOVIL_1, '#10' MOVIL_2 ' +
- '= :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' EMAIL' +
- '_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS = :NOTA' +
- 'S, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FEC' +
- 'HA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' LOGOTIPO = :LOGOT' +
- 'IPO, '#10' REGISTRO_MERCANTIL = :REGISTRO_MERCANTIL, '#10' IVA = :' +
- 'IVA'#10' WHERE'#10' (ID = :OLD_ID)'
- StatementType = stSQL
- ColumnMappings = <>
- end>
- Name = 'Update_Empresas'
- end
- item
- Params = <
- item
- Name = 'ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'ENTIDAD'
- DataType = datString
- Size = 15
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'SUCURSAL'
- DataType = datString
- Size = 15
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'DC'
- DataType = datString
- Size = 15
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'CUENTA'
- DataType = datString
- Size = 15
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'SUFIJO_N19'
- DataType = datString
- Size = 3
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'SUFIJO_N58'
- DataType = datString
- Size = 3
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'EMPRESAS_DATOS_BANCO'
- SQL =
- 'INSERT'#10' INTO EMPRESAS_DATOS_BANCO'#10' (ID, ID_EMPRESA, NOMBRE, ' +
- 'ENTIDAD, SUCURSAL, DC, CUENTA, '#10' SUFIJO_N19, SUFIJO_N58)'#10' V' +
- 'ALUES'#10' (:ID, :ID_EMPRESA, :NOMBRE, :ENTIDAD, :SUCURSAL, :DC, ' +
- #10' :CUENTA, :SUFIJO_N19, :SUFIJO_N58)'
- StatementType = stSQL
- ColumnMappings = <>
- end>
- Name = 'Insert_EmpresasDatosBanco'
- end
- item
- Params = <
- item
- Name = 'OLD_ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'EMPRESAS_DATOS_BANCO'
- SQL =
- 'DELETE '#10' FROM'#10' EMPRESAS_DATOS_BANCO'#10' WHERE'#10' (ID = :OLD_I' +
- 'D)'
- StatementType = stSQL
- ColumnMappings = <>
- end>
- Name = 'Delete_EmpresasDatosBanco'
- end
- item
- Params = <
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'ENTIDAD'
- DataType = datString
- Size = 15
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'SUCURSAL'
- DataType = datString
- Size = 15
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'DC'
- DataType = datString
- Size = 15
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'CUENTA'
- DataType = datString
- Size = 15
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'SUFIJO_N19'
- DataType = datString
- Size = 3
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'SUFIJO_N58'
- DataType = datString
- Size = 3
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'OLD_ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'EMPRESAS_DATOS_BANCO'
- SQL =
- 'UPDATE EMPRESAS_DATOS_BANCO'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,' +
- #10' NOMBRE = :NOMBRE, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = ' +
- ':SUCURSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA, '#10' SUFIJO_N19' +
- ' = :SUFIJO_N19, '#10' SUFIJO_N58 = :SUFIJO_N58'#10' WHERE'#10' (ID = ' +
- ':OLD_ID)'
- StatementType = stSQL
- ColumnMappings = <>
- end>
- Name = 'Update_EmpresasDatosBanco'
- end>
+ Commands = <>
RelationShips = <
item
Name = 'FK_EmpresasDatosBanco_Empresas'
@@ -1300,11 +423,6 @@ object srvEmpresas: TsrvEmpresas
end
object DataDictionary: TDADataDictionary
Fields = <
- item
- Name = 'Empresas_ID'
- DataType = datInteger
- DisplayLabel = 'ID'
- end
item
Name = 'Empresas_NIF_CIF'
DataType = datString
@@ -1430,11 +548,6 @@ object srvEmpresas: TsrvEmpresas
DataType = datFloat
DisplayLabel = 'IVA'
end
- item
- Name = 'EmpresasDatosBanco_ID'
- DataType = datInteger
- DisplayLabel = 'ID'
- end
item
Name = 'EmpresasDatosBanco_ID_EMPRESA'
DataType = datInteger
@@ -1480,6 +593,26 @@ object srvEmpresas: TsrvEmpresas
DataType = datString
Size = 3
DisplayLabel = 'Sufijo 58'
+ end
+ item
+ Name = 'Empresas_ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_EMPRESAS_ID'
+ LogChanges = False
+ Required = True
+ DisplayLabel = 'ID'
+ ReadOnly = True
+ ServerAutoRefresh = True
+ end
+ item
+ Name = 'EmpresasDatosBanco_ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID'
+ LogChanges = False
+ Required = True
+ DisplayLabel = 'ID'
+ ReadOnly = True
+ ServerAutoRefresh = True
end>
Left = 158
Top = 22
@@ -1490,30 +623,8 @@ object srvEmpresas: TsrvEmpresas
DiagramData =
''#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10
- end
- object bpEmpresas: TDABusinessProcessor
- Schema = schEmpresas
- InsertCommandName = 'Insert_Empresas'
- DeleteCommandName = 'Delete_Empresas'
- UpdateCommandName = 'Update_Empresas'
- ReferencedDataset = 'Empresas'
- ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
- UpdateMode = updWhereKeyOnly
- Left = 264
- Top = 24
- end
- object bpEmpresasDatosBanco: TDABusinessProcessor
- Schema = schEmpresas
- InsertCommandName = 'Insert_EmpresasDatosBanco'
- DeleteCommandName = 'Delete_EmpresasDatosBanco'
- UpdateCommandName = 'Update_EmpresasDatosBanco'
- ReferencedDataset = 'EmpresasDatosBanco'
- ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
- UpdateMode = updWhereKeyOnly
- Left = 264
- Top = 88
+ 'Left="311,00" Top="2,00" />'#13#10' '#13#10' '#13#10''#13#10
end
object DABin2DataStreamer: TDABin2DataStreamer
Left = 48
diff --git a/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.pas b/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.pas
index 9c2ca8bd..68407ec0 100644
--- a/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.pas
+++ b/Source/Modulos/Empresas/Servidor/srvEmpresas_Impl.pas
@@ -21,20 +21,17 @@ type
{ TsrvEmpresas }
TsrvEmpresas = class(TDataAbstractService, IsrvEmpresas)
Diagrams: TDADiagrams;
- bpEmpresas: TDABusinessProcessor;
- bpEmpresasDatosBanco: TDABusinessProcessor;
DABin2DataStreamer: TDABin2DataStreamer;
schEmpresas: TDASchema;
DataDictionary: TDADataDictionary;
- procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
- const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
+ procedure DataAbstractServiceBeforeGetDatasetData(aSender: TObject;
+ const aDataset: IDADataset; const aIncludeSchema: Boolean;
+ const aMaxRecords: Integer);
private
protected
- { IsrvEmpresas methods }
- function GetNextAutoInc(const GeneratorName: String): Integer;
end;
implementation
@@ -52,20 +49,6 @@ begin
end;
{ srvEmpresas }
-procedure TsrvEmpresas.DARemoteServiceBeforeGetDatasetData(
- const Dataset: IDADataset; const IncludeSchema: Boolean;
- const MaxRecords: Integer);
-begin
- Exit;
-
- if (DataSet.Name <> nme_EmpresasDatosBanco) then
- begin
- { Aquí se asegura que el usuario sólo accede a las empresas a
- las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. }
- FiltrarAccesoUsuario(Session, Connection, schEmpresas, DataSet, fld_EmpresasID);
- end;
-end;
-
procedure TsrvEmpresas.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
@@ -77,9 +60,17 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
-function TsrvEmpresas.GetNextAutoInc(const GeneratorName: String): Integer;
+procedure TsrvEmpresas.DataAbstractServiceBeforeGetDatasetData(aSender: TObject;
+ const aDataset: IDADataset; const aIncludeSchema: Boolean;
+ const aMaxRecords: Integer);
begin
- Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
+ Exit;
+ if (aDataset.Name <> nme_EmpresasDatosBanco) then
+ begin
+ { Aquí se asegura que el usuario sólo accede a las empresas a
+ las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. }
+ FiltrarAccesoUsuario(Session, Connection, ServiceSchema, aDataset, fld_EmpresasID);
+ end;
end;
initialization
diff --git a/Source/Modulos/Empresas/Test/Empresas_Tests.dproj b/Source/Modulos/Empresas/Test/Empresas_Tests.dproj
new file mode 100644
index 00000000..97df5837
--- /dev/null
+++ b/Source/Modulos/Empresas/Test/Empresas_Tests.dproj
@@ -0,0 +1,579 @@
+
+
+ {a12ecf04-330a-4a69-9080-e0e6821e2fc3}
+ Empresas_Tests.dpr
+ Debug
+ AnyCPU
+ true
+ DataAbstract_D10;Base;GUIBase;Empresas_model;Empresas_controller
+ DCC32
+ ..\..\..\..\Output\Debug\Cliente\Empresas_Tests.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\..\..\Output\Debug\Cliente
+ .\
+ .\
+ .\
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ _CONSOLE_TESTRUNNER;EUREKALOG;EUREKALOG_VER5;RELEASE
+
+
+ 7.0
+ 3
+ ..\..\..\..\Output\Debug\Cliente
+ .\
+ .\
+ .\
+ ..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ ..\..\..\Lib;..\..\Lib
+ _CONSOLE_TESTRUNNER;EUREKALOG;EUREKALOG_VER5;DEBUG
+
+
+ Delphi.Personality
+
+
+
+ False
+ True
+ False
+
+
+ True
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 3082
+ 1252
+
+
+
+ Empresas (Test)
+ 1.0.0.0
+
+
+
+
+
+ 1.0.0.0
+
+
+
+ Empresas_Tests.dpr
+
+
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Empresas/Views/Empresas_view.drc b/Source/Modulos/Empresas/Views/Empresas_view.drc
index 83f3a192..08b60d23 100644
--- a/Source/Modulos/Empresas/Views/Empresas_view.drc
+++ b/Source/Modulos/Empresas/Views/Empresas_view.drc
@@ -17,4 +17,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Views\uEditorEmpresa.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Views\uEditorDatosBancariosEmpresa.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Views\Empresas_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf213.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Views\Empresas_view.drf */
diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
index 804915c6..5a868a5b 100644
--- a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
+++ b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
@@ -32,7 +32,6 @@ type
function ValidarFormaPago(AFormaPago: IBizFormaPago): Boolean;
procedure AsignarDataModule;
- procedure AsignarID(AFormaPago: IBizFormaPago; const IDNuevo: Integer);
public
constructor Create; virtual;
@@ -70,25 +69,6 @@ begin
FDataModule := TDataModuleFormasPago.Create(Nil);
end;
-procedure TFormasPagoController.AsignarID(AFormaPago: IBizFormaPago;
- const IDNuevo: Integer);
-begin
- if not Assigned(AFormaPago) then
- raise Exception.Create ('Forma de pago no asignada');
-
- { Los plazos hay que comprobarlos siempre
- tanto en inserción como en modificación. }
- if Assigned(AFormaPago.Plazos) then
- FPlazosController.AsignarID(AFormaPago.Plazos, IDNuevo, AFormaPago.EsNuevo);
-
- if AFormaPago.EsNuevo then
- begin
- AFormaPago.Edit;
- AFormaPago.ID := IDNuevo;
- AFormaPago.Post;
- end;
-end;
-
function TFormasPagoController.Buscar(ID: Integer): IBizFormaPago;
begin
ShowHourglassCursor;
@@ -184,11 +164,6 @@ begin
if Length(AFormaPago.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar una descripción para esta forma de pago.');
- if not Assigned(AFormaPago.Plazos)
- or (AFormaPago.Plazos.RecordCount = 0) then
- if (ShowConfirmMessage('¿La forma de pago no tiene plazos establecidos, por lo tanto no se generarán recibos para facturas con esta forma de pago, ¿desea continuar?', '') = IDNO) then
- Exit;
-
Result := True;
end;
@@ -266,8 +241,6 @@ begin
end;
function TFormasPagoController.Guardar(AFormaPago: IBizFormaPago): Boolean;
-var
- NuevoID : Integer;
begin
Result := False;
@@ -275,14 +248,7 @@ begin
begin
ShowHourglassCursor;
try
- if AFormaPago.EsNuevo then
- NuevoID := FDataModule.GetNextID(AFormaPago.DataTable.LogicalName)
- else
- NuevoID := AFormaPago.ID;
-
- AsignarID(AFormaPago, NuevoID);
AFormaPago.DataTable.ApplyUpdates;
-
Result := True;
finally
HideHourglassCursor;
diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas b/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas
index ddcb9c64..d0991d08 100644
--- a/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas
+++ b/Source/Modulos/Formas de pago/Controller/uFormasPagoPlazosController.pas
@@ -9,14 +9,12 @@ uses
type
IFormasPagoPlazosController = interface
['{3FCE2A31-9783-45F9-96D6-1157165AB8DB}']
- procedure AsignarID(ADetalles: IBizFormaPagoPlazos; IDCabecera: Integer; AEsNuevo:Boolean);
end;
TFormasPagoPlazosController = class(TInterfacedObject, IFormasPagoPlazosController)
private
FDataModule : IDataModuleFormasPago;
public
- procedure AsignarID(ADetalles: IBizFormaPagoPlazos; IDCabecera: Integer; AEsNuevo:Boolean);
constructor Create; virtual;
destructor Destroy; override;
end;
@@ -29,75 +27,6 @@ uses
uDataModuleFormasPago, uEditorRegistryUtils,
cxControls, schFormasPagoClient_Intf;
-procedure TFormasPagoPlazosController.AsignarID(
- ADetalles: IBizFormaPagoPlazos; IDCabecera: Integer;
- AEsNuevo: Boolean);
-begin
- with ADetalles do
- begin
- DataTable.DisableControls;
- try
- if not DataTable.Active then
- DataTable.Active := True;
-
-// AuxPosicion := POSICION;
-
- { ¡¡¡¡ OJO !!!!
- Para asignar el ID en los detalles hay
- que tener en cuenta una cosa:
- Si se cambia el ID, ese detalle ya no
- pertenece a esa cabecera porque ya no se
- cumple la condición de la relacion:
- Master.ID = Detail.ID_PRESUPUESTO.
-
- Por esa razón no sirve hacer un recorrido
- desde el principio hasta el final porque
- las detalles van desapareciendo según asignamos
- el valor al campo ID y nos mueve aleatoriamente
- la posición del registro actual.
-
- Es mejor hacer un bucle sencillo hasta que
- "se gasten" todos los detalles. Cuando el
- RecordCount llegue a 0 quiere decir que hemos
- tratado todos los detalles.
-
- El bucle cambia en el caso de ser llamada esta funcion desde modificar
- un presupuesto ya que en ese caso si que hay que hacer un recorrido
- total de las tuplas de detalle.
- }
-
- if AEsNuevo then
- begin
- while RecordCount > 0 do
- begin
- DataTable.First;
- Edit;
- ID := FDataModule.GetNextID(DataTable.LogicalName);
- ID_FORMA_PAGO := IDCabecera;
- Post
- end
- end
- else
- begin
- DataTable.First;
- while not DataTable.EOF do
- begin
- if ADetalles.EsNuevo then
- begin
- Edit;
- ID := FDataModule.GetNextID(DataTable.LogicalName);
- ID_FORMA_PAGO := IDCabecera;
- Post
- end;
- DataTable.Next
- end;
- end;
- finally
- DataTable.EnableControls;
- end;
- end;
-end;
-
constructor TFormasPagoPlazosController.Create;
begin
inherited;
diff --git a/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm b/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm
index a4ebbea7..1ebc2a36 100644
--- a/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm
+++ b/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm
@@ -29,9 +29,10 @@ object DataModuleFormasPago: TDataModuleFormasPago
Fields = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_FORMAS_PAGO_ID'
Required = True
- DisplayLabel = 'FormasPago_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'FormasPago_ID'
InPrimaryKey = True
end
@@ -46,7 +47,7 @@ object DataModuleFormasPago: TDataModuleFormasPago
Name = 'DESCRIPCION'
DataType = datString
Size = 255
- DisplayLabel = 'Descripci'#195#179'n'
+ DisplayLabel = 'Descripci'#243'n'
DictionaryEntry = 'FormasPago_DESCRIPCION'
end
item
@@ -60,14 +61,14 @@ object DataModuleFormasPago: TDataModuleFormasPago
Name = 'ENTIDAD'
DataType = datString
Size = 15
- DisplayLabel = 'C'#195#179'd. Entidad'
+ DisplayLabel = 'C'#243'd. Entidad'
DictionaryEntry = 'FormasPago_ENTIDAD'
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
- DisplayLabel = 'C'#195#179'd. Sucusal'
+ DisplayLabel = 'C'#243'd. Sucusal'
DictionaryEntry = 'FormasPago_SUCURSAL'
end
item
@@ -80,7 +81,7 @@ object DataModuleFormasPago: TDataModuleFormasPago
Name = 'CUENTA'
DataType = datString
Size = 15
- DisplayLabel = 'C'#195#179'd. Cuenta'
+ DisplayLabel = 'C'#243'd. Cuenta'
DictionaryEntry = 'FormasPago_CUENTA'
end>
Params = <>
@@ -103,9 +104,11 @@ object DataModuleFormasPago: TDataModuleFormasPago
Fields = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_FORMAS_PAGO_PLAZOS_ID'
Required = True
DisplayLabel = 'FormasPagoPlazos_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'FormasPagoPlazos_ID'
InPrimaryKey = True
end
@@ -119,7 +122,7 @@ object DataModuleFormasPago: TDataModuleFormasPago
item
Name = 'NUM_DIAS'
DataType = datSmallInt
- DisplayLabel = 'Num. d'#195#173'as'
+ DisplayLabel = 'Num. d'#237'as'
DictionaryEntry = 'FormasPagoPlazos_NUM_DIAS'
end
item
diff --git a/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.pas b/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.pas
index 80727427..15b5f82b 100644
--- a/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.pas
+++ b/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.pas
@@ -22,11 +22,9 @@ type
ds_FormasPagoPlazos: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
protected
- function DarNombreGenerador(DataSetName: String): String; virtual;
function _GetPlazos: IBizFormaPagoPlazos;
public
function GetItems: IBizFormaPago;
- function GetNextID(const DataSetName : String) : Integer;
end;
implementation
@@ -45,24 +43,6 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
-function TDataModuleFormasPago.DarNombreGenerador(DataSetName: String): String;
-begin
- Result := '';
- if DataSetName = nme_FormasPago then
- Result := 'GEN_FORMAS_PAGO_ID'
- else
- if DataSetName = nme_FormasPagoPlazos then
- Result := 'GEN_FORMAS_PAGO_PLAZOS_ID';
-end;
-
-function TDataModuleFormasPago.GetNextID(const DataSetName: String): Integer;
-var
- aGeneratorName : String;
-begin
- aGeneratorName := DarNombreGenerador(DataSetName);
- Result := (RORemoteService as IsrvFormasPago).GetNextAutoInc(aGeneratorName)
-end;
-
function TDataModuleFormasPago._GetPlazos: IBizFormaPagoPlazos;
var
APlazos : TDAMemDataTable;
diff --git a/Source/Modulos/Formas de pago/Model/Data/uIDataModuleFormasPago.pas b/Source/Modulos/Formas de pago/Model/Data/uIDataModuleFormasPago.pas
index 3e2ce2ce..c27c4c8e 100644
--- a/Source/Modulos/Formas de pago/Model/Data/uIDataModuleFormasPago.pas
+++ b/Source/Modulos/Formas de pago/Model/Data/uIDataModuleFormasPago.pas
@@ -9,7 +9,6 @@ type
IDataModuleFormasPago = interface
['{CC6A63E1-2AF2-40E5-B6DC-46CC1549AA56}']
function GetItems: IBizFormaPago;
- function GetNextID(const DataSetName : String) : Integer;
end;
implementation
diff --git a/Source/Modulos/Formas de pago/Model/FormasPago_model.dproj b/Source/Modulos/Formas de pago/Model/FormasPago_model.dproj
index 051bd612..d10da95c 100644
--- a/Source/Modulos/Formas de pago/Model/FormasPago_model.dproj
+++ b/Source/Modulos/Formas de pago/Model/FormasPago_model.dproj
@@ -40,7 +40,7 @@
Delphi.Personality
Package
-FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0FormasPago_model.dpk
+FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0FormasPago_model.dpk
@@ -61,7 +61,6 @@
-
diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc
index 9068ac95..79a33f19 100644
--- a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc
+++ b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc
@@ -12,6 +12,6 @@ STRINGTABLE
BEGIN
END
-/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */
+/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.DFM */
/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf223.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.drf */
diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.res b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.res and b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.res differ
diff --git a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm
index 117cff97..da3a06a0 100644
--- a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm
+++ b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.dfm
@@ -4,45 +4,35 @@ object DataModuleTiposIVA: TDataModuleTiposIVA
Height = 414
Width = 518
object RORemoteService: TRORemoteService
- Message = ROBinMessage1
- Channel = ROWinInetHTTPChannel1
+ Message = dmConexion.ROMessage
+ Channel = dmConexion.ROChannel
ServiceName = 'srvTiposIVA'
Left = 48
Top = 24
end
- object DADesigntimeCall1: TDADesigntimeCall
- RemoteService = LoginRemoteService
- Params = <>
- Left = 48
- Top = 160
+ object rda_TiposIVA: TDARemoteDataAdapter
+ GetSchemaCall.RemoteService = RORemoteService
+ GetDataCall.RemoteService = RORemoteService
+ UpdateDataCall.RemoteService = RORemoteService
+ GetScriptsCall.RemoteService = RORemoteService
+ RemoteService = RORemoteService
+ DataStreamer = Bin2DataStreamer
+ Left = 203
+ Top = 23
end
- object LoginRemoteService: TRORemoteService
- Message = ROBinMessage1
- Channel = ROWinInetHTTPChannel1
- ServiceName = 'srvLogin'
+ object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
- Top = 216
+ Top = 96
end
- object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
- UserAgent = 'RemObjects SDK'
- TargetURL = 'http://localhost:8099/bin'
- ServerLocators = <>
- DispatchOptions = []
- Left = 48
- Top = 272
- end
- object ROBinMessage1: TROBinMessage
- Left = 48
- Top = 324
- end
- object tbl_TiposIVA: TDACDSDataTable
+ object tbl_TiposIVA: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
- DataType = datInteger
- DisplayLabel = 'TIPOS_IVA_ID'
- DictionaryEntry = 'TIPOS_IVA_ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_TIPOS_IVA_ID'
+ ServerAutoRefresh = True
+ DictionaryEntry = 'TiposIVA_ID'
InPrimaryKey = True
end
item
@@ -56,14 +46,13 @@ object DataModuleTiposIVA: TDataModuleTiposIVA
Name = 'DESCRIPCION'
DataType = datString
Size = 255
- DisplayLabel = 'Descripci'#243'n'
+ DisplayLabel = 'Descripci'#195#179'n'
DictionaryEntry = 'TIPOS_IVA_DESCRIPCION'
end
item
Name = 'IVA'
DataType = datFloat
DisplayLabel = '% IVA'
- DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
DictionaryEntry = 'TIPOS_IVA_IVA'
end
@@ -71,38 +60,22 @@ object DataModuleTiposIVA: TDataModuleTiposIVA
Name = 'RE'
DataType = datFloat
DisplayLabel = '% RE'
- DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
DictionaryEntry = 'TIPOS_IVA_RE'
end>
Params = <>
- MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_TiposIVA
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'TiposIVA'
- IndexDefs = <>
- Left = 216
+ Left = 296
Top = 24
end
object ds_TiposIVA: TDADataSource
DataSet = tbl_TiposIVA.Dataset
DataTable = tbl_TiposIVA
- Left = 216
- Top = 88
- end
- object rda_TiposIVA: TDARemoteDataAdapter
- GetSchemaCall.RemoteService = RORemoteService
- GetDataCall.RemoteService = RORemoteService
- UpdateDataCall.RemoteService = RORemoteService
- GetScriptsCall.RemoteService = RORemoteService
- RemoteService = RORemoteService
- Left = 307
- Top = 23
- end
- object DataStreamer: TDABinDataStreamer
- Left = 48
- Top = 76
+ Left = 296
+ Top = 96
end
end
diff --git a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas
index 388b204e..78a33514 100644
--- a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas
+++ b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas
@@ -32,35 +32,20 @@ uses
uDADesigntimeCall,
uIDataModuleTiposIVA, uBizTiposIVA, uDADataStreamer, uDARemoteDataAdapter,
- uDAInterfaces, uRODynamicRequest;
+ uDAInterfaces, uRODynamicRequest, uDABin2DataStreamer, uDAMemDataTable;
type
TDataModuleTiposIVA = class(TDAClientDataModule, IDataModuleTiposIVA)
RORemoteService: TRORemoteService;
- DADesigntimeCall1: TDADesigntimeCall;
- LoginRemoteService: TRORemoteService;
- ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
- ROBinMessage1: TROBinMessage;
- tbl_TiposIVA: TDACDSDataTable;
- ds_TiposIVA: TDADataSource;
rda_TiposIVA: TDARemoteDataAdapter;
- DataStreamer: TDABinDataStreamer;
+ Bin2DataStreamer: TDABin2DataStreamer;
+ tbl_TiposIVA: TDAMemDataTable;
+ ds_TiposIVA: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
- protected
- function DarNombreGenerador(DataSetName: String): String; virtual;
- function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
-
- // Descomentar si tiene detalles
- // function _GetDetalles: IBizDetalles;
public
- function GetNextID(const DataSetName : String) : Integer;
function GetItems: IBizTipoIVA;
function GetItem(const ID : Integer) : IBizTipoIVA;
function NewItem : IBizTipoIVA;
-
- // Descomentar si tiene informe
- // function GetReport(const ATipoIVAID: Integer): Binary;
-
end;
implementation
@@ -73,80 +58,21 @@ uses
{ TDataModuleTiposIVA }
-
-// Descomentar si tiene informe
-// function TDataModuleTiposIVA.GetReport(const ATipoIVAID: Integer): Binary;
-// begin
-// Result := (RORemoteService as IsrvTiposIVA).GenerateReport(ATipoIVAID)
-// end;
-
procedure TDataModuleTiposIVA.DAClientDataModuleCreate(Sender: TObject);
begin
RORemoteService.Channel := dmConexion.Channel;
RORemoteService.Message := dmConexion.Message;
end;
-function TDataModuleTiposIVA.DarNombreGenerador(DataSetName: String): String;
-begin
- Result := '';
- if DataSetName = nme_TiposIVA then
- Result := 'GEN_TIPOS_IVA_ID'
-end;
-
-function TDataModuleTiposIVA.GetNextID(const DataSetName: String): Integer;
-var
- aGeneratorName : String;
-begin
- aGeneratorName := DarNombreGenerador(DataSetName);
- Result := (RORemoteService as IsrvTiposIVA).GetNextAutoInc(aGeneratorName)
-end;
-
-function TDataModuleTiposIVA._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
-begin
- Result := NIL;
-
- if not Assigned(ADataTable) then
- raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
-
- Result := TDACDSDataTable.Create(NIL);
- CloneDataTable(ADataTable, Result);
-end;
-
-
-// Descomentar si tiene detalles
-// function TDataModuleTiposIVA._GetDetalles: IBizTipoIVADetalles;
-// var
-// ADetalles : TDACDSDataTable;
-// begin
-// ShowHourglassCursor;
-// try
-// ADetalles := _CloneDataTable(tbl_TiposIVADetalles);
-// with ADetalles do
-// begin
-// BusinessRulesID := BIZ_CLIENT_TipoIVADETALLES;
-// DetailOptions := DetailOptions -
-// [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
-// end;
-// Result := (ADetalles as IBizTipoIVADetalles);
-// finally
-// HideHourglassCursor;
-// end;
-// end;
-
-
function TDataModuleTiposIVA.GetItems: IBizTipoIVA;
var
- ATipoIVA : TDACDSDataTable;
+ ATipoIVA : TDAMemDataTable;
begin
ShowHourglassCursor;
try
- ATipoIVA := _CloneDataTable(tbl_TiposIVA);
+ ATipoIVA := CloneDataTable(tbl_TiposIVA);
ATipoIVA.BusinessRulesID := BIZ_CLIENT_TipoIVA;
- // Descomentar si tiene detalles
- // with TBizTipoIVA(ATipoIVA.BusinessEventsObj) do
- // Detalles := _GetDetalles;
-
Result := (ATipoIVA as IBizTipoIVA);
finally
HideHourglassCursor;
@@ -163,14 +89,15 @@ begin
ShowHourglassCursor;
try
Result := Self.GetItems;
- with Result.DataTable.Where do
+
+ // (ID = :ID)
+ with Result.DataTable.DynamicWhere do
begin
- if NotEmpty then
- AddOperator(opAND);
- OpenBraket;
- AddText('TIPOS_IVA.' + fld_TiposIVAID + ' = ' + IntToStr(ID));
- CloseBraket;
+ Clear;
+ Expression := NewBinaryExpression(NewField('', fld_TiposIVAID),
+ NewConstant(ID, datInteger), dboEqual);
end;
+
finally
HideHourglassCursor;
end;
diff --git a/Source/Modulos/Tipos de IVA/Model/Data/uIDataModuleTiposIVA.pas b/Source/Modulos/Tipos de IVA/Model/Data/uIDataModuleTiposIVA.pas
index e14ffc76..a248d9b7 100644
--- a/Source/Modulos/Tipos de IVA/Model/Data/uIDataModuleTiposIVA.pas
+++ b/Source/Modulos/Tipos de IVA/Model/Data/uIDataModuleTiposIVA.pas
@@ -32,7 +32,6 @@ type
IDataModuleTiposIVA = interface
['{FF13E488-D185-4674-8A27-539BEC012B75}']
function GetItems: IBizTipoIVA;
- function GetNextID(const DataSetName : String) : Integer;
function GetItem(const ID : Integer) : IBizTipoIVA;
function NewItem : IBizTipoIVA;
diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dpk b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dpk
index b1945a9f..56062824 100644
--- a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dpk
+++ b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dpk
@@ -31,8 +31,8 @@ requires
contains
uIDataModuleTiposIVA in 'Data\uIDataModuleTiposIVA.pas',
+ uBizTiposIVA in 'uBizTiposIVA.pas',
schTiposIVAClient_Intf in 'schTiposIVAClient_Intf.pas',
- schTiposIVAServer_Intf in 'schTiposIVAServer_Intf.pas',
- uBizTiposIVA in 'uBizTiposIVA.pas';
+ schTiposIVAServer_Intf in 'schTiposIVAServer_Intf.pas';
end.
diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dproj b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dproj
index b7105572..76b7ac35 100644
--- a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dproj
+++ b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dproj
@@ -42,23 +42,503 @@
Delphi.Personality
Package
-FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposIVA_model.dpk
+FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposIVA_model.dpk
MainSource
-
-
-
-
-
-
+
+
+
+
diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc
index 03bda96e..464611e3 100644
--- a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc
+++ b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc
@@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf221.tmp */
+/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.drf */
diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.res b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.res and b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.res differ
diff --git a/Source/Modulos/Tipos de IVA/Model/schTiposIVAClient_Intf.pas b/Source/Modulos/Tipos de IVA/Model/schTiposIVAClient_Intf.pas
index 56bcd981..e970f8bf 100644
--- a/Source/Modulos/Tipos de IVA/Model/schTiposIVAClient_Intf.pas
+++ b/Source/Modulos/Tipos de IVA/Model/schTiposIVAClient_Intf.pas
@@ -3,13 +3,13 @@ unit schTiposIVAClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDADataTable;
+ Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
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_TiposIVA = '{D96E3FA9-3BEC-4A87-B5A6-F8A8AEF73D87}';
+ RID_TiposIVA = '{700B374C-AA68-4A5B-9ACA-A0704A82A98D}';
{ Data table names }
nme_TiposIVA = 'TiposIVA';
@@ -31,26 +31,41 @@ const
type
{ ITiposIVA }
ITiposIVA = interface(IDAStronglyTypedDataTable)
- ['{DEFBEA87-112C-4BFB-86E8-40085D5D6328}']
+ ['{342A3165-77DD-40FB-8154-0D79346AC9D1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
+ function GetIDIsNull: Boolean;
+ procedure SetIDIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
+ function GetDESCRIPCIONIsNull: Boolean;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetIVAValue: Float;
procedure SetIVAValue(const aValue: Float);
+ function GetIVAIsNull: Boolean;
+ procedure SetIVAIsNull(const aValue: Boolean);
function GetREValue: Float;
procedure SetREValue(const aValue: Float);
+ function GetREIsNull: Boolean;
+ procedure SetREIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property IVA: Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
property RE: Float read GetREValue write SetREValue;
+ property REIsNull: Boolean read GetREIsNull write SetREIsNull;
end;
{ TTiposIVADataTableRules }
@@ -60,21 +75,36 @@ type
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ function GetIDIsNull: Boolean; virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual;
+ function GetIVAIsNull: Boolean; virtual;
+ procedure SetIVAIsNull(const aValue: Boolean); virtual;
function GetREValue: Float; virtual;
procedure SetREValue(const aValue: Float); virtual;
+ function GetREIsNull: Boolean; virtual;
+ procedure SetREIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
+ property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property IVA: Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
property RE: Float read GetREValue write SetREValue;
+ property REIsNull: Boolean read GetREIsNull write SetREIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -84,7 +114,7 @@ type
implementation
-uses Variants;
+uses Variants, uROBinaryHelpers;
{ TTiposIVADataTableRules }
constructor TTiposIVADataTableRules.Create(aDataTable: TDADataTable);
@@ -107,6 +137,17 @@ begin
DataTable.Fields[idx_TiposIVAID].AsInteger := aValue;
end;
+function TTiposIVADataTableRules.GetIDIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_TiposIVAID].IsNull;
+end;
+
+procedure TTiposIVADataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_TiposIVAID].AsVariant := Null;
+end;
+
function TTiposIVADataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_TiposIVAREFERENCIA].AsString;
@@ -117,6 +158,17 @@ begin
DataTable.Fields[idx_TiposIVAREFERENCIA].AsString := aValue;
end;
+function TTiposIVADataTableRules.GetREFERENCIAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_TiposIVAREFERENCIA].IsNull;
+end;
+
+procedure TTiposIVADataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_TiposIVAREFERENCIA].AsVariant := Null;
+end;
+
function TTiposIVADataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_TiposIVADESCRIPCION].AsString;
@@ -127,6 +179,17 @@ begin
DataTable.Fields[idx_TiposIVADESCRIPCION].AsString := aValue;
end;
+function TTiposIVADataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_TiposIVADESCRIPCION].IsNull;
+end;
+
+procedure TTiposIVADataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_TiposIVADESCRIPCION].AsVariant := Null;
+end;
+
function TTiposIVADataTableRules.GetIVAValue: Float;
begin
result := DataTable.Fields[idx_TiposIVAIVA].AsFloat;
@@ -137,6 +200,17 @@ begin
DataTable.Fields[idx_TiposIVAIVA].AsFloat := aValue;
end;
+function TTiposIVADataTableRules.GetIVAIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_TiposIVAIVA].IsNull;
+end;
+
+procedure TTiposIVADataTableRules.SetIVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_TiposIVAIVA].AsVariant := Null;
+end;
+
function TTiposIVADataTableRules.GetREValue: Float;
begin
result := DataTable.Fields[idx_TiposIVARE].AsFloat;
@@ -147,6 +221,17 @@ begin
DataTable.Fields[idx_TiposIVARE].AsFloat := aValue;
end;
+function TTiposIVADataTableRules.GetREIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_TiposIVARE].IsNull;
+end;
+
+procedure TTiposIVADataTableRules.SetREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_TiposIVARE].AsVariant := Null;
+end;
+
initialization
RegisterDataTableRules(RID_TiposIVA, TTiposIVADataTableRules);
diff --git a/Source/Modulos/Tipos de IVA/Model/schTiposIVAServer_Intf.pas b/Source/Modulos/Tipos de IVA/Model/schTiposIVAServer_Intf.pas
index 9c626a44..2d8e0206 100644
--- a/Source/Modulos/Tipos de IVA/Model/schTiposIVAServer_Intf.pas
+++ b/Source/Modulos/Tipos de IVA/Model/schTiposIVAServer_Intf.pas
@@ -3,18 +3,18 @@ unit schTiposIVAServer_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schTiposIVAClient_Intf;
+ Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schTiposIVAClient_Intf;
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_TiposIVADelta = '{2A97AB6B-F1E7-4CEF-BB65-E0155C2C9A47}';
+ RID_TiposIVADelta = '{22B67F19-4406-4659-A4A0-F4894916A1C1}';
type
{ ITiposIVADelta }
ITiposIVADelta = interface(ITiposIVA)
- ['{2A97AB6B-F1E7-4CEF-BB65-E0155C2C9A47}']
+ ['{22B67F19-4406-4659-A4A0-F4894916A1C1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@@ -36,32 +36,57 @@ type
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
+ function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
+ function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
+ procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
+ function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
+ function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+ procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetIVAValue: Float; virtual;
+ function GetIVAIsNull: Boolean; virtual;
function GetOldIVAValue: Float; virtual;
+ function GetOldIVAIsNull: Boolean; virtual;
procedure SetIVAValue(const aValue: Float); virtual;
+ procedure SetIVAIsNull(const aValue: Boolean); virtual;
function GetREValue: Float; virtual;
+ function GetREIsNull: Boolean; virtual;
function GetOldREValue: Float; virtual;
+ function GetOldREIsNull: Boolean; virtual;
procedure SetREValue(const aValue: Float); virtual;
+ procedure SetREIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
+ property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
+ property OldIDIsNull : Boolean read GetOldIDIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+ property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+ property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property IVA : Float read GetIVAValue write SetIVAValue;
+ property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull;
property OldIVA : Float read GetOldIVAValue;
+ property OldIVAIsNull : Boolean read GetOldIVAIsNull;
property RE : Float read GetREValue write SetREValue;
+ property REIsNull : Boolean read GetREIsNull write SetREIsNull;
property OldRE : Float read GetOldREValue;
+ property OldREIsNull : Boolean read GetOldREIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -72,7 +97,7 @@ type
implementation
uses
- Variants, uROBinaryHelpers;
+ Variants, uROBinaryHelpers, uDAInterfaces;
{ TTiposIVABusinessProcessorRules }
constructor TTiposIVABusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -90,76 +115,156 @@ begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAID];
end;
+function TTiposIVABusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAID]);
+end;
+
function TTiposIVABusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposIVAID];
end;
+function TTiposIVABusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposIVAID]);
+end;
+
procedure TTiposIVABusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAID] := aValue;
end;
+procedure TTiposIVABusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAID] := Null;
+end;
+
function TTiposIVABusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAREFERENCIA];
end;
+function TTiposIVABusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAREFERENCIA]);
+end;
+
function TTiposIVABusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposIVAREFERENCIA];
end;
+function TTiposIVABusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposIVAREFERENCIA]);
+end;
+
procedure TTiposIVABusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAREFERENCIA] := aValue;
end;
+procedure TTiposIVABusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAREFERENCIA] := Null;
+end;
+
function TTiposIVABusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVADESCRIPCION];
end;
+function TTiposIVABusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVADESCRIPCION]);
+end;
+
function TTiposIVABusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposIVADESCRIPCION];
end;
+function TTiposIVABusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposIVADESCRIPCION]);
+end;
+
procedure TTiposIVABusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVADESCRIPCION] := aValue;
end;
+procedure TTiposIVABusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVADESCRIPCION] := Null;
+end;
+
function TTiposIVABusinessProcessorRules.GetIVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAIVA];
end;
+function TTiposIVABusinessProcessorRules.GetIVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAIVA]);
+end;
+
function TTiposIVABusinessProcessorRules.GetOldIVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposIVAIVA];
end;
+function TTiposIVABusinessProcessorRules.GetOldIVAIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposIVAIVA]);
+end;
+
procedure TTiposIVABusinessProcessorRules.SetIVAValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAIVA] := aValue;
end;
+procedure TTiposIVABusinessProcessorRules.SetIVAIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVAIVA] := Null;
+end;
+
function TTiposIVABusinessProcessorRules.GetREValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVARE];
end;
+function TTiposIVABusinessProcessorRules.GetREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVARE]);
+end;
+
function TTiposIVABusinessProcessorRules.GetOldREValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposIVARE];
end;
+function TTiposIVABusinessProcessorRules.GetOldREIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposIVARE]);
+end;
+
procedure TTiposIVABusinessProcessorRules.SetREValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVARE] := aValue;
end;
+procedure TTiposIVABusinessProcessorRules.SetREIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_TiposIVARE] := Null;
+end;
+
initialization
RegisterBusinessProcessorRules(RID_TiposIVADelta, TTiposIVABusinessProcessorRules);
diff --git a/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm b/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm
index 84c17173..f1931b92 100644
--- a/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm
+++ b/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm
@@ -16,10 +16,6 @@ object srvTiposIVA: TsrvTiposIVA
end
object DataDictionary: TDADataDictionary
Fields = <
- item
- Name = 'TIPOS_IVA_ID'
- DataType = datInteger
- end
item
Name = 'TIPOS_IVA_REFERENCIA'
DataType = datString
@@ -43,6 +39,13 @@ object srvTiposIVA: TsrvTiposIVA
DataType = datFloat
DisplayLabel = '% RE'
Alignment = taRightJustify
+ end
+ item
+ Name = 'TiposIVA_ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_TIPOS_IVA_ID'
+ DisplayLabel = 'ID'
+ ServerAutoRefresh = True
end>
Left = 150
Top = 24
@@ -58,10 +61,7 @@ object srvTiposIVA: TsrvTiposIVA
item
Connection = 'IBX'
TargetTable = 'TIPOS_IVA'
- SQL =
- 'SELECT '#10' ID, REFERENCIA, DESCRIPCION, IVA, RE'#10' FROM'#10' TIPO' +
- 'S_IVA'
- StatementType = stSQL
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@@ -88,8 +88,10 @@ object srvTiposIVA: TsrvTiposIVA
Fields = <
item
Name = 'ID'
- DataType = datInteger
- DictionaryEntry = 'TIPOS_IVA_ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_TIPOS_IVA_ID'
+ ServerAutoRefresh = True
+ DictionaryEntry = 'TiposIVA_ID'
InPrimaryKey = True
end
item
@@ -117,156 +119,13 @@ object srvTiposIVA: TsrvTiposIVA
end>
JoinDataTables = <>
UnionDataTables = <>
- Commands = <
- item
- Params = <
- item
- Name = 'ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'IVA'
- DataType = datFloat
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'RE'
- DataType = datFloat
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'TIPOS_IVA'
- SQL =
- 'INSERT'#10' INTO TIPOS_IVA'#10' (ID, REFERENCIA, DESCRIPCION, IVA, R' +
- 'E)'#10' VALUES'#10' (:ID, :REFERENCIA, :DESCRIPCION, :IVA, :RE)'
- StatementType = stSQL
- ColumnMappings = <>
- end>
- Name = 'Insert_TiposIVA'
- end
- item
- Params = <
- item
- Name = 'OLD_ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'TIPOS_IVA'
- SQL = 'DELETE '#10' FROM'#10' TIPOS_IVA'#10' WHERE'#10' (ID = :OLD_ID)'
- StatementType = stSQL
- ColumnMappings = <>
- end>
- Name = 'Delete_TiposIVA'
- end
- item
- Params = <
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'DESCRIPCION'
- DataType = datString
- Size = 255
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'IVA'
- DataType = datFloat
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'RE'
- DataType = datFloat
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'OLD_ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'TIPOS_IVA'
- SQL =
- 'UPDATE TIPOS_IVA'#10' SET '#10' REFERENCIA = :REFERENCIA,'#10' DESCRI' +
- 'PCION = :DESCRIPCION, '#10' IVA = :IVA, '#10' RE = :RE'#10' WHERE'#10' ' +
- ' (ID = :OLD_ID)'
- StatementType = stSQL
- ColumnMappings = <>
- end>
- Name = 'Update_TiposIVA'
- end>
+ Commands = <>
RelationShips = <>
- UpdateRules = <
- item
- Name = 'Insert Familias'
- DoUpdate = False
- DoDelete = False
- DatasetName = 'Familias'
- FailureBehavior = fbRaiseException
- end
- item
- Name = 'Update Familias'
- DoInsert = False
- DoDelete = False
- DatasetName = 'Familias'
- FailureBehavior = fbRaiseException
- end
- item
- Name = 'Delete Familias'
- DoUpdate = False
- DoInsert = False
- DatasetName = 'Familias'
- FailureBehavior = fbRaiseException
- end>
+ UpdateRules = <>
Version = 0
Left = 48
Top = 24
end
- object bpTiposIVA: TDABusinessProcessor
- Schema = schTiposIVA
- InsertCommandName = 'Insert_TiposIVA'
- DeleteCommandName = 'Delete_TiposIVA'
- UpdateCommandName = 'Update_TiposIVA'
- ReferencedDataset = 'TiposIVA'
- ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
- UpdateMode = updWhereKeyOnly
- Left = 251
- Top = 24
- end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
diff --git a/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas b/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas
index 64d268f9..8520cf15 100644
--- a/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas
+++ b/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas
@@ -22,17 +22,14 @@ type
{ TsrvTiposIVA }
TsrvTiposIVA = class(TDataAbstractService, IsrvTiposIVA)
Diagrams: TDADiagrams;
+ Bin2DataStreamer: TDABin2DataStreamer;
schTiposIVA: TDASchema;
DataDictionary: TDADataDictionary;
- bpTiposIVA: TDABusinessProcessor;
- Bin2DataStreamer: TDABin2DataStreamer;
procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
private
protected
- { IsrvTiposIVA methods }
- function GetNextAutoInc(const GeneratorName: String): Integer;
end;
implementation
@@ -58,11 +55,6 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
-function TsrvTiposIVA.GetNextAutoInc(const GeneratorName: String): Integer;
-begin
- Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
-end;
-
initialization
TROClassFactory.Create('srvTiposIVA', Create_srvTiposIVA, TsrvTiposIVA_Invoker);
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index 4182462e..0fc95395 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -5,14 +5,6 @@
-
-
-
-
-
-
-
-
@@ -67,14 +59,6 @@
-
-
-
-
-
-
-
-
@@ -107,14 +91,6 @@
-
-
-
-
-
-
-
-
@@ -123,14 +99,6 @@
-
-
-
-
-
-
-
-
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index 04aa2b4a..44667495 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -117,7 +117,6 @@ type
{ IsrvContactos }
IsrvContactos = interface(IDataAbstractService)
['{28CCDC07-A3A4-4917-89B4-64423DC70C9D}']
- function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
function GenerateEtiquetasReport(const ContactosID: String): Binary;
end;
@@ -132,7 +131,6 @@ type
protected
function __GetInterfaceName:string; override;
- function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
function GenerateEtiquetasReport(const ContactosID: String): Binary;
end;
@@ -163,7 +161,6 @@ type
{ IsrvEmpresas }
IsrvEmpresas = interface(IDataAbstractService)
['{590F06D1-26B4-435B-B636-50CB8FFE6353}']
- function GetNextAutoInc(const GeneratorName: String): Integer;
end;
{ CosrvEmpresas }
@@ -176,7 +173,6 @@ type
protected
function __GetInterfaceName:string; override;
- function GetNextAutoInc(const GeneratorName: String): Integer;
end;
{ IsrvConfiguracion }
@@ -218,7 +214,6 @@ type
{ IsrvFormasPago }
IsrvFormasPago = interface(IDataAbstractService)
['{38AA9F85-B454-4A87-B6E8-E9C8BB2A17D9}']
- function GetNextAutoInc(const GeneratorName: String): Integer;
end;
{ CosrvFormasPago }
@@ -231,13 +226,11 @@ type
protected
function __GetInterfaceName:string; override;
- function GetNextAutoInc(const GeneratorName: String): Integer;
end;
{ IsrvTiposIVA }
IsrvTiposIVA = interface(IDataAbstractService)
['{09B44AB5-6212-448A-8DF2-A503E3F2C9B1}']
- function GetNextAutoInc(const GeneratorName: String): Integer;
end;
{ CosrvTiposIVA }
@@ -250,7 +243,6 @@ type
protected
function __GetInterfaceName:string; override;
- function GetNextAutoInc(const GeneratorName: String): Integer;
end;
implementation
@@ -534,22 +526,6 @@ begin
result := 'srvContactos';
end;
-function TsrvContactos_Proxy.GetNextAutoInc(const GeneratorName: String): Integer;
-begin
- try
- __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoInc');
- __Message.Write('GeneratorName', TypeInfo(String), GeneratorName, []);
- __Message.Finalize;
-
- __TransportChannel.Dispatch(__Message);
-
- __Message.Read('Result', TypeInfo(Integer), result, []);
- finally
- __Message.UnsetAttributes(__TransportChannel);
- __Message.FreeStream;
- end
-end;
-
function TsrvContactos_Proxy.GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
begin
try
@@ -652,29 +628,11 @@ begin
result := TsrvEmpresas_Proxy.Create(aMessage, aTransportChannel);
end;
-{ TsrvEmpresas_Proxy }
-
function TsrvEmpresas_Proxy.__GetInterfaceName:string;
begin
result := 'srvEmpresas';
end;
-function TsrvEmpresas_Proxy.GetNextAutoInc(const GeneratorName: String): Integer;
-begin
- try
- __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoInc');
- __Message.Write('GeneratorName', TypeInfo(String), GeneratorName, []);
- __Message.Finalize;
-
- __TransportChannel.Dispatch(__Message);
-
- __Message.Read('Result', TypeInfo(Integer), result, []);
- finally
- __Message.UnsetAttributes(__TransportChannel);
- __Message.FreeStream;
- end
-end;
-
{ CosrvConfiguracion }
class function CosrvConfiguracion.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvConfiguracion;
@@ -724,29 +682,11 @@ begin
result := TsrvFormasPago_Proxy.Create(aMessage, aTransportChannel);
end;
-{ TsrvFormasPago_Proxy }
-
function TsrvFormasPago_Proxy.__GetInterfaceName:string;
begin
result := 'srvFormasPago';
end;
-function TsrvFormasPago_Proxy.GetNextAutoInc(const GeneratorName: String): Integer;
-begin
- try
- __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoInc');
- __Message.Write('GeneratorName', TypeInfo(String), GeneratorName, []);
- __Message.Finalize;
-
- __TransportChannel.Dispatch(__Message);
-
- __Message.Read('Result', TypeInfo(Integer), result, []);
- finally
- __Message.UnsetAttributes(__TransportChannel);
- __Message.FreeStream;
- end
-end;
-
{ CosrvTiposIVA }
class function CosrvTiposIVA.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTiposIVA;
@@ -754,29 +694,11 @@ begin
result := TsrvTiposIVA_Proxy.Create(aMessage, aTransportChannel);
end;
-{ TsrvTiposIVA_Proxy }
-
function TsrvTiposIVA_Proxy.__GetInterfaceName:string;
begin
result := 'srvTiposIVA';
end;
-function TsrvTiposIVA_Proxy.GetNextAutoInc(const GeneratorName: String): Integer;
-begin
- try
- __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoInc');
- __Message.Write('GeneratorName', TypeInfo(String), GeneratorName, []);
- __Message.Finalize;
-
- __TransportChannel.Dispatch(__Message);
-
- __Message.Read('Result', TypeInfo(Integer), result, []);
- finally
- __Message.UnsetAttributes(__TransportChannel);
- __Message.FreeStream;
- end
-end;
-
initialization
RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray);
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index 5de2c579..a1739e5f 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -25,7 +25,6 @@ type
private
protected
published
- procedure Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerateFichaEmpleadoReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerateEtiquetasReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
@@ -47,7 +46,6 @@ type
private
protected
published
- procedure Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
{$M-}
@@ -73,7 +71,6 @@ type
private
protected
published
- procedure Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
{$M-}
@@ -82,7 +79,6 @@ type
private
protected
published
- procedure Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
{$M-}
@@ -93,26 +89,6 @@ uses
{ TsrvContactos_Invoker }
-procedure TsrvContactos_Invoker.Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GetNextAutoInc(const GeneratorName: String): Integer; }
-var
- GeneratorName: String;
- lResult: Integer;
-begin
- try
- __Message.Read('GeneratorName', TypeInfo(String), GeneratorName, []);
-
- lResult := (__Instance as IsrvContactos).GetNextAutoInc(GeneratorName);
-
- __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'GetNextAutoIncResponse');
- __Message.Write('Result', TypeInfo(Integer), lResult, []);
- __Message.Finalize;
- __Message.UnsetAttributes(__Transport);
-
- finally
- end;
-end;
-
procedure TsrvContactos_Invoker.Invoke_GenerateFichaEmpleadoReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary; }
var
@@ -235,28 +211,6 @@ begin
end;
end;
-{ TsrvEmpresas_Invoker }
-
-procedure TsrvEmpresas_Invoker.Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GetNextAutoInc(const GeneratorName: String): Integer; }
-var
- GeneratorName: String;
- lResult: Integer;
-begin
- try
- __Message.Read('GeneratorName', TypeInfo(String), GeneratorName, []);
-
- lResult := (__Instance as IsrvEmpresas).GetNextAutoInc(GeneratorName);
-
- __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvEmpresas', 'GetNextAutoIncResponse');
- __Message.Write('Result', TypeInfo(Integer), lResult, []);
- __Message.Finalize;
- __Message.UnsetAttributes(__Transport);
-
- finally
- end;
-end;
-
{ TsrvConfiguracion_Invoker }
procedure TsrvConfiguracion_Invoker.Invoke_darValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -279,48 +233,4 @@ begin
end;
end;
-{ TsrvFormasPago_Invoker }
-
-procedure TsrvFormasPago_Invoker.Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GetNextAutoInc(const GeneratorName: String): Integer; }
-var
- GeneratorName: String;
- lResult: Integer;
-begin
- try
- __Message.Read('GeneratorName', TypeInfo(String), GeneratorName, []);
-
- lResult := (__Instance as IsrvFormasPago).GetNextAutoInc(GeneratorName);
-
- __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFormasPago', 'GetNextAutoIncResponse');
- __Message.Write('Result', TypeInfo(Integer), lResult, []);
- __Message.Finalize;
- __Message.UnsetAttributes(__Transport);
-
- finally
- end;
-end;
-
-{ TsrvTiposIVA_Invoker }
-
-procedure TsrvTiposIVA_Invoker.Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GetNextAutoInc(const GeneratorName: String): Integer; }
-var
- GeneratorName: String;
- lResult: Integer;
-begin
- try
- __Message.Read('GeneratorName', TypeInfo(String), GeneratorName, []);
-
- lResult := (__Instance as IsrvTiposIVA).GetNextAutoInc(GeneratorName);
-
- __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvTiposIVA', 'GetNextAutoIncResponse');
- __Message.Write('Result', TypeInfo(Integer), lResult, []);
- __Message.Finalize;
- __Message.UnsetAttributes(__Transport);
-
- finally
- end;
-end;
-
end.
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 7d450b11..25014c94 100644
Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 0115a095..f1bed66f 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index b08d6ac2..402ee894 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -41,9 +41,9 @@ uses
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
+ RegExpr in 'Utiles\RegExpr.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
- schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
- RegExpr in 'Utiles\RegExpr.pas';
+ schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index aaded3e9..0f3a4f15 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,124 +1,124 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Relase\Servidor
- ..\Lib;..\Base
- ..\Lib;..\Base
- ..\Lib;..\Base
- ..\Lib;..\Base
- RELEASE
- .\
- .\
- .\
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- ..\Lib;..\Base
- ..\Lib;..\Base
- ..\Lib;..\Base
- ..\Lib;..\Base
- DEBUG;
- .\
- .\
- .\
-
-
- Delphi.Personality
-
-
- FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0lunes, 17 de septiembre de 2007 12:28
- CodeGear WebSnap Components
- CodeGear SOAP Components
- Microsoft Office XP Sample Automation Server Wrapper Components
- Microsoft Office 2000 Sample Automation Server Wrapper Components
- CodeGear C++Builder Office 2000 Servers Package
- CodeGear C++Builder Office XP Servers Package
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Relase\Servidor
+ ..\Lib;..\Base
+ ..\Lib;..\Base
+ ..\Lib;..\Base
+ ..\Lib;..\Base
+ RELEASE
+ .\
+ .\
+ .\
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ ..\Lib;..\Base
+ ..\Lib;..\Base
+ ..\Lib;..\Base
+ ..\Lib;..\Base
+ DEBUG;
+ .\
+ .\
+ .\
+
+
+ Delphi.Personality
+
+
+FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0lunes, 17 de septiembre de 2007 12:28
+ CodeGear WebSnap Components
+ CodeGear SOAP Components
+ Microsoft Office XP Sample Automation Server Wrapper Components
+ Microsoft Office 2000 Sample Automation Server Wrapper Components
+ CodeGear C++Builder Office 2000 Servers Package
+ CodeGear C++Builder Office XP Servers Package
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+