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

- Proveedores: indicar si es subcontrata o no.

Browse Source 
- Contactos: lista de personal asociado a un contacto (en clientes y proveedores).
- Obras: poder indicar una subcontrata
- Pedidos a proveedor: usar obras como destino del pedido.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@350 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-03-24 20:50:41 +00:00
parent acd42ab3a2
commit e94ba43e81
88 changed files with 4795 additions and 1013 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
Build/Build.fbp5
View File

@ -6680,7 +6680,7 @@ Comments=
<Property name="IgnoreFailure" type="WordBool">False</Property> <Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">False</Property> <Property name="IncludeCompileDate" type="WordBool">False</Property>
<Property name="IncludeManifest" type="Boolean">False</Property> <Property name="IncludeManifest" type="Boolean">False</Property>
<Property name="IncludeVerInfo" type="WordBool">False</Property> <Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property> <Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property> <Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="IsDebug" type="WordBool">False</Property> <Property name="IsDebug" type="WordBool">False</Property>
@ -6690,7 +6690,7 @@ Comments=
<Property name="IsSpecial" type="WordBool">False</Property> <Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property> <Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property> <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
<Property name="Locale" type="Integer">3081</Property> <Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property> <Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">1</Property> <Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property> <Property MultiValue="0" name="ManifestFile" type="string"></Property>
@ -6713,7 +6713,16 @@ Comments=
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property> <Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property> <Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">False</Property> <Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[FileVersion=1.0.0.0 <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
]]> ]]>
</Property> </Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property> <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@ -6798,7 +6807,7 @@ Comments=
<Property name="IgnoreFailure" type="WordBool">False</Property> <Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">False</Property> <Property name="IncludeCompileDate" type="WordBool">False</Property>
<Property name="IncludeManifest" type="Boolean">False</Property> <Property name="IncludeManifest" type="Boolean">False</Property>
<Property name="IncludeVerInfo" type="WordBool">False</Property> <Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property> <Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property> <Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="IsDebug" type="WordBool">False</Property> <Property name="IsDebug" type="WordBool">False</Property>
@ -6808,7 +6817,7 @@ Comments=
<Property name="IsSpecial" type="WordBool">False</Property> <Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property> <Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property> <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
<Property name="Locale" type="Integer">3081</Property> <Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property> <Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">1</Property> <Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property> <Property MultiValue="0" name="ManifestFile" type="string"></Property>
@ -6831,7 +6840,16 @@ Comments=
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property> <Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property> <Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">False</Property> <Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[FileVersion=1.0.0.0 <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
]]> ]]>
</Property> </Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property> <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@ -16687,7 +16705,7 @@ Comments=
<Property name="IgnoreFailure" type="WordBool">False</Property> <Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">False</Property> <Property name="IncludeCompileDate" type="WordBool">False</Property>
<Property name="IncludeManifest" type="Boolean">False</Property> <Property name="IncludeManifest" type="Boolean">False</Property>
<Property name="IncludeVerInfo" type="WordBool">False</Property> <Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property> <Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property> <Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="IsDebug" type="WordBool">False</Property> <Property name="IsDebug" type="WordBool">False</Property>
@ -16697,7 +16715,7 @@ Comments=
<Property name="IsSpecial" type="WordBool">False</Property> <Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property> <Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property> <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
<Property name="Locale" type="Integer">3081</Property> <Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property> <Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">1</Property> <Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property> <Property MultiValue="0" name="ManifestFile" type="string"></Property>
@ -16721,7 +16739,16 @@ Comments=
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property> <Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property> <Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">False</Property> <Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[FileVersion=1.0.0.0 <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
]]> ]]>
</Property> </Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property> <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>

103
Database/scripts/factuges.sql
View File

@ -115,6 +115,9 @@ SET GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID TO 1;
CREATE GENERATOR GEN_CONTACTOS_DIR_ID; CREATE GENERATOR GEN_CONTACTOS_DIR_ID;
SET GENERATOR GEN_CONTACTOS_DIR_ID TO 1; SET GENERATOR GEN_CONTACTOS_DIR_ID TO 1;
CREATE GENERATOR GEN_CONTACTOS_PERSONAL_ID;
SET GENERATOR GEN_CONTACTOS_PERSONAL_ID TO 1;
CREATE GENERATOR GEN_CONTACTOS_ID; CREATE GENERATOR GEN_CONTACTOS_ID;
SET GENERATOR GEN_CONTACTOS_ID TO 1; SET GENERATOR GEN_CONTACTOS_ID TO 1;
@ -392,7 +395,7 @@ CREATE TABLE ARTICULOS (
PRECIO_NETO TIPO_IMPORTE, PRECIO_NETO TIPO_IMPORTE,
PRECIO_PORTE TIPO_IMPORTE, PRECIO_PORTE TIPO_IMPORTE,
FABRICANTE VARCHAR(255), FABRICANTE VARCHAR(255),
REFERENCIA_FABR VARCHAR(255), REFERENCIA_FABR VARCHAR(255),
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP, FECHA_MODIFICACION TIMESTAMP,
USUARIO TIPO_USUARIO, USUARIO TIPO_USUARIO,
@ -524,6 +527,18 @@ CREATE TABLE CONTACTOS_DIRECCIONES (
FECHA_MODIFICACION TIMESTAMP FECHA_MODIFICACION TIMESTAMP
); );
CREATE TABLE CONTACTOS_DATOS_PERSONAL (
ID TIPO_ID NOT NULL,
ID_CONTACTO TIPO_ID NOT NULL,
NOMBRE VARCHAR(255),
PUESTO VARCHAR(255),
TELEFONO VARCHAR(25),
MOVIL VARCHAR(25),
FAX VARCHAR(25),
EMAIL VARCHAR(255),
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP
);
CREATE TABLE EMPLEADOS_DATOS ( CREATE TABLE EMPLEADOS_DATOS (
ID_EMPLEADO TIPO_ID NOT NULL, ID_EMPLEADO TIPO_ID NOT NULL,
@ -790,7 +805,8 @@ CREATE TABLE OBRAS (
FAX VARCHAR(25), FAX VARCHAR(25),
PERSONA_CONTACTO VARCHAR(255), PERSONA_CONTACTO VARCHAR(255),
OBSERVACIONES TIPO_NOTAS, OBSERVACIONES TIPO_NOTAS,
ID_CLIENTE TIPO_ID, ID_CLIENTE TIPO_ID,
ID_SUBCONTRATA TIPO_ID,
FECHA_ALTA TIMESTAMP, FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP, FECHA_MODIFICACION TIMESTAMP,
USUARIO TIPO_USUARIO USUARIO TIPO_USUARIO
@ -889,6 +905,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR (
FECHA_CONFIRMACION DATE, FECHA_CONFIRMACION DATE,
FECHA_ENTREGA DATE, FECHA_ENTREGA DATE,
ID_ALMACEN TIPO_ID, ID_ALMACEN TIPO_ID,
ID_OBRA TIPO_ID,
OBSERVACIONES TIPO_NOTAS, OBSERVACIONES TIPO_NOTAS,
INCIDENCIAS TIPO_NOTAS, INCIDENCIAS TIPO_NOTAS,
INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL, INCIDENCIAS_ACTIVAS SMALLINT DEFAULT 0 NOT NULL,
@ -923,7 +940,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
ID_ARTICULO TIPO_ID, ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO, CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER, CANTIDAD INTEGER,
UNIDAD_MEDIDA VARCHAR(255), UNIDAD_MEDIDA VARCHAR(255),
IMPORTE_UNIDAD TIPO_IMPORTE, IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE, DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_PORTE TIPO_IMPORTE,
@ -992,7 +1009,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
ID_ARTICULO TIPO_ID, ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO, CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER, CANTIDAD INTEGER,
UNIDAD_MEDIDA VARCHAR(255), UNIDAD_MEDIDA VARCHAR(255),
IMPORTE_UNIDAD TIPO_IMPORTE, IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE, DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE, IMPORTE_PORTE TIPO_IMPORTE,
@ -1014,7 +1031,8 @@ CREATE TABLE PROVEEDORES_DATOS (
DESCRIPCION_PROVEEDOR VARCHAR(255), DESCRIPCION_PROVEEDOR VARCHAR(255),
CODIGO_ASIGNADO VARCHAR(255), CODIGO_ASIGNADO VARCHAR(255),
CERTIFICACION VARCHAR(255), CERTIFICACION VARCHAR(255),
HOMOLOGADO SMALLINT HOMOLOGADO SMALLINT,
SUBCONTRATA TIPO_BOOLEANO
); );
@ -1426,7 +1444,7 @@ CREATE VIEW V_ARTICULOS(
NOMBRE_PROVEEDOR, NOMBRE_PROVEEDOR,
ELIMINADO, ELIMINADO,
FABRICANTE, FABRICANTE,
REFERENCIA_FABR) REFERENCIA_FABR)
AS AS
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION, SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN,
@ -1442,7 +1460,7 @@ SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCR
CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR, CONTACTOS.NOMBRE AS NOMBRE_PROVEEDOR,
ARTICULOS.ELIMINADO, ARTICULOS.ELIMINADO,
ARTICULOS.FABRICANTE, ARTICULOS.FABRICANTE,
ARTICULOS.REFERENCIA_FABR ARTICULOS.REFERENCIA_FABR
FROM ARTICULOS FROM ARTICULOS
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR) LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ARTICULOS.ID_PROVEEDOR)
WHERE (ARTICULOS.ELIMINADO = 0) WHERE (ARTICULOS.ELIMINADO = 0)
@ -1668,31 +1686,36 @@ WHERE V_CONTACTOS.ID_CATEGORIA = 3
CREATE VIEW V_OBRAS ( CREATE VIEW V_OBRAS (
ID, ID,
ID_EMPRESA, ID_EMPRESA,
NOMBRE, NOMBRE,
CALLE, CALLE,
PROVINCIA, PROVINCIA,
POBLACION, POBLACION,
CODIGO_POSTAL, CODIGO_POSTAL,
TELEFONO, TELEFONO,
MOVIL, MOVIL,
FAX, FAX,
PERSONA_CONTACTO, PERSONA_CONTACTO,
OBSERVACIONES, OBSERVACIONES,
ID_CLIENTE, ID_CLIENTE,
NOMBRE_CLIENTE, NOMBRE_CLIENTE,
FECHA_ALTA, ID_SUBCONTRATA,
FECHA_MODIFICACION, NOMBRE_SUBCONTRATA,
USUARIO) FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO)
AS AS
SELECT OBRAS.ID, OBRAS.ID_EMPRESA, OBRAS.NOMBRE, SELECT OBRAS.ID, OBRAS.ID_EMPRESA, OBRAS.NOMBRE,
OBRAS.CALLE, OBRAS.PROVINCIA, OBRAS.POBLACION, OBRAS.CODIGO_POSTAL, OBRAS.CALLE, OBRAS.PROVINCIA, OBRAS.POBLACION, OBRAS.CODIGO_POSTAL,
OBRAS.TELEFONO, OBRAS.MOVIL, OBRAS.FAX, OBRAS.PERSONA_CONTACTO, OBRAS.TELEFONO, OBRAS.MOVIL, OBRAS.FAX, OBRAS.PERSONA_CONTACTO,
OBRAS.OBSERVACIONES, OBRAS.ID_CLIENTE, V_CLIENTES.NOMBRE AS NOMBRE_CLIENTE, OBRAS.FECHA_ALTA, OBRAS.OBSERVACIONES, OBRAS.ID_CLIENTE, CLIENTES.NOMBRE AS NOMBRE_CLIENTE,
OBRAS.FECHA_MODIFICACION, OBRAS.USUARIO OBRAS.ID_SUBCONTRATA, SUBCONTRATAS.NOMBRE AS NOMBRE_SUBCONTRATA,
OBRAS.FECHA_ALTA, OBRAS.FECHA_MODIFICACION, OBRAS.USUARIO
FROM OBRAS FROM OBRAS
LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = OBRAS.ID_CLIENTE); LEFT OUTER JOIN CONTACTOS AS CLIENTES ON (CLIENTES .ID = OBRAS.ID_CLIENTE)
LEFT OUTER JOIN CONTACTOS AS SUBCONTRATAS ON (SUBCONTRATAS.ID = OBRAS.ID_SUBCONTRATA)
;
/* View: V_REC_FAC_CLI */ /* View: V_REC_FAC_CLI */
@ -2138,7 +2161,8 @@ CREATE VIEW V_PROVEEDORES(
ID_FORMA_PAGO, ID_FORMA_PAGO,
TIENDA_WEB, TIENDA_WEB,
HOMOLOGADO, HOMOLOGADO,
CERTIFICACION) CERTIFICACION,
SUBCONTRATA)
AS AS
SELECT SELECT
V_CONTACTOS.ID, V_CONTACTOS.ID,
@ -2173,16 +2197,16 @@ SELECT
PROVEEDORES_DATOS.ID_FORMA_PAGO, PROVEEDORES_DATOS.ID_FORMA_PAGO,
PROVEEDORES_DATOS.TIENDA_WEB, PROVEEDORES_DATOS.TIENDA_WEB,
PROVEEDORES_DATOS.HOMOLOGADO, PROVEEDORES_DATOS.HOMOLOGADO,
PROVEEDORES_DATOS.CERTIFICACION PROVEEDORES_DATOS.CERTIFICACION,
PROVEEDORES_DATOS.SUBCONTRATA
FROM FROM
PROVEEDORES_DATOS V_CONTACTOS
INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID) INNER JOIN PROVEEDORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)
WHERE WHERE
V_CONTACTOS.ID_CATEGORIA = 2 V_CONTACTOS.ID_CATEGORIA = 2
; ;
/* View: V_PEDIDOS_PROVEEDOR */ /* View: V_PEDIDOS_PROVEEDOR */
CREATE VIEW V_PEDIDOS_PROVEEDOR( CREATE VIEW V_PEDIDOS_PROVEEDOR(
ID, ID,
@ -2197,6 +2221,8 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
FECHA_ENTREGA, FECHA_ENTREGA,
ID_ALMACEN, ID_ALMACEN,
NOMBRE_ALMACEN, NOMBRE_ALMACEN,
ID_OBRA,
NOMBRE_OBRA,
OBSERVACIONES, OBSERVACIONES,
IMPORTE_TOTAL, IMPORTE_TOTAL,
INCIDENCIAS, INCIDENCIAS,
@ -2234,6 +2260,8 @@ SELECT
PEDIDOS_PROVEEDOR.FECHA_ENTREGA, PEDIDOS_PROVEEDOR.FECHA_ENTREGA,
PEDIDOS_PROVEEDOR.ID_ALMACEN, PEDIDOS_PROVEEDOR.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN, ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
PEDIDOS_PROVEEDOR.ID_OBRA,
OBRAS.NOMBRE AS NOMBRE_OBRA,
PEDIDOS_PROVEEDOR.OBSERVACIONES, PEDIDOS_PROVEEDOR.OBSERVACIONES,
PEDIDOS_PROVEEDOR.IMPORTE_TOTAL, PEDIDOS_PROVEEDOR.IMPORTE_TOTAL,
PEDIDOS_PROVEEDOR.INCIDENCIAS, PEDIDOS_PROVEEDOR.INCIDENCIAS,
@ -2262,6 +2290,7 @@ FROM
INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID) INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN) LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
LEFT OUTER JOIN OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE) LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
; ;
@ -2546,6 +2575,7 @@ ALTER TABLE CONTACTOS ADD CONSTRAINT PK_CONTACTOS PRIMARY KEY (ID);
ALTER TABLE CONTACTOS_CATEGORIAS ADD CONSTRAINT PK_CONTACTOS_CATEGORIAS PRIMARY KEY (ID_CONTACTO, ID_CATEGORIA); ALTER TABLE CONTACTOS_CATEGORIAS ADD CONSTRAINT PK_CONTACTOS_CATEGORIAS PRIMARY KEY (ID_CONTACTO, ID_CATEGORIA);
ALTER TABLE CONTACTOS_DATOS_BANCO ADD CONSTRAINT PK_CONTACTOS_DATOS_BANCO PRIMARY KEY (ID); ALTER TABLE CONTACTOS_DATOS_BANCO ADD CONSTRAINT PK_CONTACTOS_DATOS_BANCO PRIMARY KEY (ID);
ALTER TABLE CONTACTOS_DIRECCIONES ADD CONSTRAINT PK_CONTACTOS_DIR PRIMARY KEY (ID); ALTER TABLE CONTACTOS_DIRECCIONES ADD CONSTRAINT PK_CONTACTOS_DIR PRIMARY KEY (ID);
ALTER TABLE CONTACTOS_DATOS_PERSONAL ADD CONSTRAINT PK_CONTACTOS_DATOS_PER PRIMARY KEY (ID);
ALTER TABLE EMPLEADOS_DATOS ADD CONSTRAINT PK_EMPLEADOS_DATOS PRIMARY KEY (ID_EMPLEADO); ALTER TABLE EMPLEADOS_DATOS ADD CONSTRAINT PK_EMPLEADOS_DATOS PRIMARY KEY (ID_EMPLEADO);
ALTER TABLE EMPRESAS ADD CONSTRAINT PK_EMPRESAS PRIMARY KEY (ID); ALTER TABLE EMPRESAS ADD CONSTRAINT PK_EMPRESAS PRIMARY KEY (ID);
ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY (ID); ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY (ID);
@ -2654,6 +2684,7 @@ CREATE INDEX IDX_CONTACTOS_CATEGORIAS ON CONTACTOS_CATEGORIAS (ID_CONTACTO);
CREATE INDEX IDX_CONTACTOS_CATEGORIAS1 ON CONTACTOS_CATEGORIAS (ID_CATEGORIA); 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_DATOS_BANCO ON CONTACTOS_DATOS_BANCO (ID_CONTACTO);
CREATE INDEX IDX_CONTACTOS_DIR_ID_CONTACTO ON CONTACTOS_DIRECCIONES (ID_CONTACTO); CREATE INDEX IDX_CONTACTOS_DIR_ID_CONTACTO ON CONTACTOS_DIRECCIONES (ID_CONTACTO);
CREATE INDEX IDX_CONTACTOS_PER_ID_CONTACTO ON CONTACTOS_DATOS_PERSONAL (ID_CONTACTO);
CREATE INDEX IDX_EMPRESAS_CONTACTOS ON EMPRESAS_CONTACTOS (ID_EMPRESA, ID_CONTACTO); CREATE INDEX IDX_EMPRESAS_CONTACTOS ON EMPRESAS_CONTACTOS (ID_EMPRESA, ID_CONTACTO);
CREATE INDEX IDX_EMPRESAS_USUARIOS ON EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO); CREATE INDEX IDX_EMPRESAS_USUARIOS ON EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO);
CREATE INDEX IDX_FACTURAS_CLIENTE ON FACTURAS_CLIENTE (ID_FORMA_PAGO); CREATE INDEX IDX_FACTURAS_CLIENTE ON FACTURAS_CLIENTE (ID_FORMA_PAGO);
@ -2675,6 +2706,8 @@ CREATE INDEX IDX_PEDIDOS_CLIENTE_DETALLES1 ON PEDIDOS_CLIENTE_DETALLES (ID_ARTIC
CREATE INDEX IDX_PEDIDOS_PROVEEDOR ON PEDIDOS_PROVEEDOR (ID_PEDIDO_CLIENTE); 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_PROVEEDOR1 ON PEDIDOS_PROVEEDOR (ID_ALMACEN);
CREATE INDEX IDX_PEDIDOS_PROVEEDOR2 ON PEDIDOS_PROVEEDOR (ID_FORMA_PAGO); CREATE INDEX IDX_PEDIDOS_PROVEEDOR2 ON PEDIDOS_PROVEEDOR (ID_FORMA_PAGO);
CREATE INDEX IDX_PEDIDOS_PROVEEDOR3 ON PEDIDOS_PROVEEDOR (ID_OBRA);
CREATE INDEX IDX_PEDIDOS_PROVEEDOR4 ON PEDIDOS_PROVEEDOR (ID_PROVEEDOR);
CREATE INDEX IDX_PEDIDOS_PROVEEDOR_DETALLES ON PEDIDOS_PROVEEDOR_DETALLES (ID_ARTICULO); 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_DATOS ON PROVEEDORES_DATOS (ID_TIPO_IVA);
CREATE INDEX IDX_PROVEEDORES_DATOS1 ON PROVEEDORES_DATOS (ID_FORMA_PAGO); CREATE INDEX IDX_PROVEEDORES_DATOS1 ON PROVEEDORES_DATOS (ID_FORMA_PAGO);
@ -2799,7 +2832,7 @@ returns (
referencia varchar(255), referencia varchar(255),
concepto varchar(2000), concepto varchar(2000),
cantidad integer, cantidad integer,
unidad_medida varchar(255), unidad_medida varchar(255),
importe_unidad numeric(11,2), importe_unidad numeric(11,2),
descuento float, descuento float,
importe_porte numeric(11,2), importe_porte numeric(11,2),

8
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Empresas = '{4D4B7384-254D-4DEE-A7C6-15C6D95FE62C}'; RID_Empresas = '{C3D4A098-DEBE-4C2B-B91E-7371A6FA2608}';
RID_EmpresasDatosBanco = '{A13C092F-8B20-475E-AB73-BC64846EC069}'; RID_EmpresasDatosBanco = '{30C8046D-7C1C-4CFB-B7F3-CEA665F701F5}';
{ Data table names } { Data table names }
nme_Empresas = 'Empresas'; nme_Empresas = 'Empresas';
@ -91,7 +91,7 @@ const
type type
{ IEmpresas } { IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable) IEmpresas = interface(IDAStronglyTypedDataTable)
['{94D82008-5773-4226-8E6F-8F86C4BC613C}'] ['{1D920893-489E-4359-A55A-9146247372EF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -390,7 +390,7 @@ type
{ IEmpresasDatosBanco } { IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{3FB044E3-CC5B-45D7-BE74-941172D25782}'] ['{DB4CAAE0-5E1D-41E0-9B92-3F41A237F812}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

8
Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_EmpresasDelta = '{B5530DFB-2CAF-472C-9946-BADA26FF23FA}'; RID_EmpresasDelta = '{6F02EFDD-030E-4464-B393-8062C40DA26A}';
RID_EmpresasDatosBancoDelta = '{0F24EA86-6CBB-49BD-BCC2-9B48AC059D72}'; RID_EmpresasDatosBancoDelta = '{601F0536-A7EC-45DF-8E25-B741AB86A055}';
type type
{ IEmpresasDelta } { IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas) IEmpresasDelta = interface(IEmpresas)
['{B5530DFB-2CAF-472C-9946-BADA26FF23FA}'] ['{6F02EFDD-030E-4464-B393-8062C40DA26A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -315,7 +315,7 @@ type
{ IEmpresasDatosBancoDelta } { IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{0F24EA86-6CBB-49BD-BCC2-9B48AC059D72}'] ['{601F0536-A7EC-45DF-8E25-B741AB86A055}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;

102
Source/Base/Base.dproj
View File

@ -53,58 +53,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\adortl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\designide.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dsnap.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\Jcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\vclx.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas
View File

Binary file not shown.

4
Source/Modulos/Contactos/Controller/Contactos_controller.dpk
View File

@ -63,6 +63,8 @@ contains
uEtiquetasContactosReportController in 'uEtiquetasContactosReportController.pas', uEtiquetasContactosReportController in 'uEtiquetasContactosReportController.pas',
uIEditorEtiquetasContactosPreview in 'View\uIEditorEtiquetasContactosPreview.pas', uIEditorEtiquetasContactosPreview in 'View\uIEditorEtiquetasContactosPreview.pas',
uDatosBancariosContactoController in 'uDatosBancariosContactoController.pas', uDatosBancariosContactoController in 'uDatosBancariosContactoController.pas',
uIEditorDatoBancarioContacto in 'View\uIEditorDatoBancarioContacto.pas'; uIEditorDatoBancarioContacto in 'View\uIEditorDatoBancarioContacto.pas',
uPersonalContactoController in 'uPersonalContactoController.pas',
uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas';
end. end.

23
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -49,27 +49,6 @@
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@ -90,6 +69,7 @@
<DCCReference Include="uGruposClienteController.pas" /> <DCCReference Include="uGruposClienteController.pas" />
<DCCReference Include="uGruposEmpleadoController.pas" /> <DCCReference Include="uGruposEmpleadoController.pas" />
<DCCReference Include="uGruposProveedorController.pas" /> <DCCReference Include="uGruposProveedorController.pas" />
<DCCReference Include="uPersonalContactoController.pas" />
<DCCReference Include="uProveedoresController.pas" /> <DCCReference Include="uProveedoresController.pas" />
<DCCReference Include="View\ApplicationBase.dcp" /> <DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" /> <DCCReference Include="View\Base.dcp" />
@ -114,6 +94,7 @@
<DCCReference Include="View\uIEditorGruposCliente.pas" /> <DCCReference Include="View\uIEditorGruposCliente.pas" />
<DCCReference Include="View\uIEditorGruposEmpleado.pas" /> <DCCReference Include="View\uIEditorGruposEmpleado.pas" />
<DCCReference Include="View\uIEditorGruposProveedor.pas" /> <DCCReference Include="View\uIEditorGruposProveedor.pas" />
<DCCReference Include="View\uIEditorPersonalContacto.pas" />
<DCCReference Include="View\uIEditorProveedor.pas" /> <DCCReference Include="View\uIEditorProveedor.pas" />
<DCCReference Include="View\uIEditorProveedores.pas" /> <DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\vcl.dcp" /> <DCCReference Include="View\vcl.dcp" />

28
Source/Modulos/Contactos/Controller/View/uIEditorPersonalContacto.pas Normal file
View File

@ -0,0 +1,28 @@
unit uIEditorPersonalContacto;
interface
uses
uBizContactosPersonal, uPersonalContactoController;
type
IEditorPersonalContacto = interface
['{2221A124-2ECF-426A-A462-24CC87AC26EC}']
function GetController : IPersonalContactoController;
procedure SetController (const Value : IPersonalContactoController);
property Controller : IPersonalContactoController read GetController
write SetController;
function GetPersonal: IBizContactoPersonal;
procedure SetPersonal(const Value: IBizContactoPersonal);
property Personal: IBizContactoPersonal read GetPersonal write SetPersonal;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

89
Source/Modulos/Contactos/Controller/uPersonalContactoController.pas Normal file
View File

@ -0,0 +1,89 @@
unit uPersonalContactoController;
interface
uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosPersonal, uIDataModuleContactos,
uControllerBase;
type
IPersonalContactoController = interface(IControllerBase)
['{2A848939-9558-40DA-9886-F34D72331DA9}']
procedure Ver(APersonal : IBizContactoPersonal);
function Localizar(APersonal: IBizContactoPersonal; const ID : Integer): Boolean;
end;
TPersonalContactoController = class(TControllerBase, IPersonalContactoController)
private
FDataModule : IDataModuleContactos;
public
procedure Ver(APersonal : IBizContactoPersonal);
function Localizar(APersonal: IBizContactoPersonal; const ID : Integer): Boolean;
constructor Create; virtual;
destructor Destroy; override;
end;
implementation
{ TPersonalContactoController }
uses
uDataModuleContactos, schContactosClient_Intf, uIEditorPersonalContacto,
uEditorRegistryUtils, cxControls;
constructor TPersonalContactoController.Create;
begin
inherited;
FDataModule := TDataModuleContactos.Create(Nil);
end;
destructor TPersonalContactoController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TPersonalContactoController.Localizar(
APersonal: IBizContactoPersonal; const ID: Integer): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with APersonal.DataTable do
begin
DisableControls;
First;
if not Locate(fld_PersonalContactoID, ID, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
procedure TPersonalContactoController.Ver(
APersonal: IBizContactoPersonal);
var
AEditor : IEditorPersonalContacto;
begin
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorPersonalContacto', IEditorPersonalContacto, AEditor);
if Assigned(AEditor) then
with AEditor do
begin
Personal := APersonal;
Controller := Self;
ShowModal;
Release;
end;
finally
AEditor := NIL;
HideHourglassCursor;
end;
end;
end.

17
Source/Modulos/Contactos/Controller/uProveedoresController.pas
View File

@ -9,6 +9,7 @@ uses
type type
IProveedoresController = interface(IContactosController) IProveedoresController = interface(IContactosController)
['{50F10D01-5120-470D-A61D-99FE8A76DF93}'] ['{50F10D01-5120-470D-A61D-99FE8A76DF93}']
function BuscarSubcontratas: IBizProveedor;
function BuscarTodosTiendaWeb: IBizProveedor; function BuscarTodosTiendaWeb: IBizProveedor;
function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; AMensaje: String): IBizDireccionesContacto; function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; AMensaje: String): IBizDireccionesContacto;
function EsEliminable(AProveedor: IBizContacto): Boolean; function EsEliminable(AProveedor: IBizContacto): Boolean;
@ -29,6 +30,7 @@ type
function Buscar(const ID: Integer): IBizContacto; override; function Buscar(const ID: Integer): IBizContacto; override;
function BuscarTodos: IBizContacto; override; function BuscarTodos: IBizContacto; override;
function BuscarTodosTiendaWeb: IBizProveedor; function BuscarTodosTiendaWeb: IBizProveedor;
function BuscarSubcontratas: IBizProveedor;
function Nuevo : IBizContacto; override; function Nuevo : IBizContacto; override;
procedure Ver(AContacto : IBizContacto); override; procedure Ver(AContacto : IBizContacto); override;
procedure VerTodos(AContactos: IBizContacto); override; procedure VerTodos(AContactos: IBizContacto); override;
@ -49,7 +51,7 @@ uses
SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils, SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils,
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController, uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
uIEditorElegirProveedores, Controls, uIEditorElegirDireccionEntrega, uIEditorElegirProveedores, Controls, uIEditorElegirDireccionEntrega,
uEditorGridBase; uEditorGridBase, uDAInterfaces;
{ TProveedoresController } { TProveedoresController }
@ -59,6 +61,19 @@ begin
FiltrarEmpresa(Result); FiltrarEmpresa(Result);
end; end;
function TProveedoresController.BuscarSubcontratas: IBizProveedor;
var
Condicion: TDAWhereExpression;
begin
Result := BuscarTodos as IBizProveedor;
with Result.DataTable.DynamicWhere do
begin
Condicion := NewBinaryExpression(NewField('', fld_ProveedoresSUBCONTRATA), NewConstant(1, datInteger), dboEqual);
Clear;
Expression := Condicion
end;
end;
function TProveedoresController.BuscarTodos: IBizContacto; function TProveedoresController.BuscarTodos: IBizContacto;
begin begin
Result := (FDataModule as IDataModuleProveedores).GetItems; Result := (FDataModule as IDataModuleProveedores).GetItems;

14
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -49,12 +49,12 @@
<DelphiCompile Include="Contactos_data.dpk"> <DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="uDataModuleClientes.pas"> <DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form> <Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass> <DesignClass>TDAClientDataModule</DesignClass>
@ -76,7 +76,7 @@
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

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

@ -174,6 +174,13 @@ inherited DataModuleClientes: TDataModuleClientes
inherited ds_DatosBancarios: TDADataSource inherited ds_DatosBancarios: TDADataSource
DataSet = tbl_DatosBancarios.Dataset DataSet = tbl_DatosBancarios.Dataset
end end
inherited tbl_PersonalContacto: TDAMemDataTable
Left = 440
end
inherited ds_PersonalContacto: TDADataSource
DataSet = tbl_PersonalContacto.Dataset
Left = 440
end
object tbl_Clientes: TDAMemDataTable object tbl_Clientes: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -202,7 +209,6 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Required = True
DisplayLabel = 'Nombre' DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE' DictionaryEntry = 'Contactos_NOMBRE'
end end
@ -266,6 +272,7 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'MOVIL_2' Name = 'MOVIL_2'
DataType = datString DataType = datString
Size = 25 Size = 25
DisplayLabel = 'M'#243'vil 2'
DictionaryEntry = 'Contactos_MOVIL_2' DictionaryEntry = 'Contactos_MOVIL_2'
end end
item item

1
Source/Modulos/Contactos/Data/uDataModuleClientes.pas
View File

@ -93,6 +93,7 @@ begin
DatosBancarios := _GetDatosBancarios; DatosBancarios := _GetDatosBancarios;
Direcciones := _GetDirecciones; Direcciones := _GetDirecciones;
Descuentos := _GetDescuentos; Descuentos := _GetDescuentos;
Personal := _GetPersonal;
end; end;
Result := (AContacto as IBizCliente); Result := (AContacto as IBizCliente);

102
Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
View File

@ -2,7 +2,7 @@ inherited DataModuleContactos: TDataModuleContactos
OnCreate = DAClientDataModuleCreate OnCreate = DAClientDataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Height = 306 Height = 306
Width = 595 Width = 561
object RORemoteService: TRORemoteService object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel Channel = dmConexion.ROChannel
@ -50,7 +50,6 @@ inherited DataModuleContactos: TDataModuleContactos
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Required = True
DisplayLabel = 'Nombre' DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE' DictionaryEntry = 'Contactos_NOMBRE'
end end
@ -114,6 +113,7 @@ inherited DataModuleContactos: TDataModuleContactos
Name = 'MOVIL_2' Name = 'MOVIL_2'
DataType = datString DataType = datString
Size = 25 Size = 25
DisplayLabel = 'M'#243'vil 2'
DictionaryEntry = 'Contactos_MOVIL_2' DictionaryEntry = 'Contactos_MOVIL_2'
end end
item item
@ -179,6 +179,7 @@ inherited DataModuleContactos: TDataModuleContactos
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_REFERENCIA' DictionaryEntry = 'Contactos_REFERENCIA'
end> end>
Params = <> Params = <>
@ -316,13 +317,13 @@ inherited DataModuleContactos: TDataModuleContactos
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DireccionesContacto' LogicalName = 'DireccionesContacto'
IndexDefs = <> IndexDefs = <>
Left = 448 Left = 320
Top = 16 Top = 16
end end
object ds_DireccionesContacto: TDADataSource object ds_DireccionesContacto: TDADataSource
DataSet = tbl_DireccionesContacto.Dataset DataSet = tbl_DireccionesContacto.Dataset
DataTable = tbl_DireccionesContacto DataTable = tbl_DireccionesContacto
Left = 448 Left = 320
Top = 80 Top = 80
end end
object tbl_DatosBancarios: TDAMemDataTable object tbl_DatosBancarios: TDAMemDataTable
@ -405,4 +406,97 @@ inherited DataModuleContactos: TDataModuleContactos
Left = 176 Left = 176
Top = 232 Top = 232
end end
object tbl_PersonalContacto: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
Required = True
DisplayLabel = 'PersonalContacto_ID'
DictionaryEntry = 'PersonalContacto_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DisplayLabel = 'PersonalContacto_ID_CONTACTO'
DictionaryEntry = 'PersonalContacto_ID_CONTACTO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
DictionaryEntry = 'PersonalContacto_NOMBRE'
end
item
Name = 'PUESTO'
DataType = datString
Size = 255
DisplayLabel = 'Puesto'
DictionaryEntry = 'PersonalContacto_PUESTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'PersonalContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'PersonalContacto_MOVIL'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'PersonalContacto_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'E-mail'
DictionaryEntry = 'PersonalContacto_EMAIL'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'PersonalContacto_FECHA_ALTA'
DictionaryEntry = 'PersonalContacto_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'PersonalContacto_FECHA_MODIFICACION'
DictionaryEntry = 'PersonalContacto_FECHA_MODIFICACION'
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer
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 = 'PersonalContacto'
IndexDefs = <>
Left = 456
Top = 16
end
object ds_PersonalContacto: TDADataSource
DataSet = tbl_PersonalContacto.Dataset
DataTable = tbl_PersonalContacto
Left = 456
Top = 80
end
end end

25
Source/Modulos/Contactos/Data/uDataModuleContactos.pas
View File

@ -11,7 +11,7 @@ uses
uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport, uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport,
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest, uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer, uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
uDAMemDataTable, uDataModuleBase; uDAMemDataTable, uDataModuleBase, uBizContactosPersonal;
type type
TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport) TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)
@ -24,12 +24,15 @@ type
ds_DireccionesContacto: TDADataSource; ds_DireccionesContacto: TDADataSource;
tbl_DatosBancarios: TDAMemDataTable; tbl_DatosBancarios: TDAMemDataTable;
ds_DatosBancarios: TDADataSource; ds_DatosBancarios: TDADataSource;
tbl_PersonalContacto: TDAMemDataTable;
ds_PersonalContacto: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
public public
function _GetDatosBancarios : IBizContactosDatosBancarios; function _GetDatosBancarios : IBizContactosDatosBancarios;
function _GetDirecciones: IBizDireccionesContacto; function _GetDirecciones: IBizDireccionesContacto;
function _GetItems (IDCategoria : Integer): IBizContacto; virtual; function _GetItems (IDCategoria : Integer): IBizContacto; virtual;
function _GetPersonal: IBizContactoPersonal;
// Report // Report
function GetReport(const AContactosID: String): Binary; function GetReport(const AContactosID: String): Binary;
@ -118,6 +121,7 @@ begin
begin begin
DatosBancarios := _GetDatosBancarios; DatosBancarios := _GetDatosBancarios;
Direcciones := _GetDirecciones; Direcciones := _GetDirecciones;
Personal := _GetPersonal;
end; end;
Result := (AContacto as IBizContacto); Result := (AContacto as IBizContacto);
@ -126,4 +130,23 @@ begin
end; end;
end; end;
function TDataModuleContactos._GetPersonal: IBizContactoPersonal;
var
APersonal : TDAMemDataTable;
begin
ShowHourglassCursor;
try
APersonal := CloneDataTable(tbl_PersonalContacto);
with APersonal do
begin
BusinessRulesID := BIZ_CLIENT_CONTACTO_PERSONAL;
DetailOptions := DetailOptions -
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
end;
Result := (APersonal as IBizContactoPersonal);
finally
HideHourglassCursor;
end;
end;
end. end.

6
Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
View File

@ -1,4 +1,6 @@
inherited DataModuleEmpleados: TDataModuleEmpleados inherited DataModuleEmpleados: TDataModuleEmpleados
Height = 302
Width = 543
inherited tbl_Contactos: TDAMemDataTable inherited tbl_Contactos: TDAMemDataTable
Fields = < Fields = <
item item
@ -166,6 +168,9 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
inherited ds_DatosBancarios: TDADataSource inherited ds_DatosBancarios: TDADataSource
DataSet = tbl_DatosBancarios.Dataset DataSet = tbl_DatosBancarios.Dataset
end end
inherited ds_PersonalContacto: TDADataSource
DataSet = tbl_PersonalContacto.Dataset
end
object tbl_Empleados: TDAMemDataTable object tbl_Empleados: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -194,7 +199,6 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Required = True
DisplayLabel = 'Nombre' DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE' DictionaryEntry = 'Contactos_NOMBRE'
end end

34
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -1,6 +1,6 @@
inherited DataModuleProveedores: TDataModuleProveedores inherited DataModuleProveedores: TDataModuleProveedores
Height = 311 Height = 311
Width = 550 Width = 632
inherited ds_Contactos: TDADataSource inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset DataSet = tbl_Contactos.Dataset
end end
@ -10,6 +10,15 @@ inherited DataModuleProveedores: TDataModuleProveedores
inherited ds_DatosBancarios: TDADataSource inherited ds_DatosBancarios: TDADataSource
DataSet = tbl_DatosBancarios.Dataset DataSet = tbl_DatosBancarios.Dataset
end end
inherited tbl_PersonalContacto: TDAMemDataTable
Left = 408
Top = 176
end
inherited ds_PersonalContacto: TDADataSource
DataSet = tbl_PersonalContacto.Dataset
Left = 408
Top = 240
end
object tbl_GruposProveedor: TDAMemDataTable object tbl_GruposProveedor: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -36,14 +45,14 @@ inherited DataModuleProveedores: TDataModuleProveedores
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'GruposProveedor' LogicalName = 'GruposProveedor'
IndexDefs = <> IndexDefs = <>
Left = 448 Left = 536
Top = 168 Top = 176
end end
object ds_GruposProveedor: TDADataSource object ds_GruposProveedor: TDADataSource
DataSet = tbl_GruposProveedor.Dataset DataSet = tbl_GruposProveedor.Dataset
DataTable = tbl_GruposProveedor DataTable = tbl_GruposProveedor
Left = 448 Left = 536
Top = 232 Top = 240
end end
object tbl_Proveedores: TDAMemDataTable object tbl_Proveedores: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
@ -73,7 +82,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Required = True
DisplayLabel = 'Nombre' DisplayLabel = 'Nombre'
DictionaryEntry = 'Contactos_NOMBRE' DictionaryEntry = 'Contactos_NOMBRE'
end end
@ -137,6 +145,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
Name = 'MOVIL_2' Name = 'MOVIL_2'
DataType = datString DataType = datString
Size = 25 Size = 25
DisplayLabel = 'M'#243'vil 2'
DictionaryEntry = 'Contactos_MOVIL_2' DictionaryEntry = 'Contactos_MOVIL_2'
end end
item item
@ -177,10 +186,14 @@ inherited DataModuleProveedores: TDataModuleProveedores
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Proveedores_FECHA_ALTA'
DictionaryEntry = 'Proveedores_FECHA_ALTA'
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Proveedores_FECHA_MODIFICACION'
DictionaryEntry = 'Proveedores_FECHA_MODIFICACION'
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
@ -225,7 +238,8 @@ inherited DataModuleProveedores: TDataModuleProveedores
item item
Name = 'GRUPO_PROVEEDOR' Name = 'GRUPO_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 DisplayLabel = 'Grupo proveedor'
DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
end end
item item
Name = 'REGIMEN_IVA' Name = 'REGIMEN_IVA'
@ -261,6 +275,12 @@ inherited DataModuleProveedores: TDataModuleProveedores
Size = 255 Size = 255
DisplayLabel = 'Certificaciones' DisplayLabel = 'Certificaciones'
DictionaryEntry = 'Proveedores_CERTIFICACION' DictionaryEntry = 'Proveedores_CERTIFICACION'
end
item
Name = 'SUBCONTRATA'
DataType = datSmallInt
DisplayLabel = 'Subcontrata'
DictionaryEntry = 'Proveedores_SUBCONTRATA'
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

1
Source/Modulos/Contactos/Data/uDataModuleProveedores.pas
View File

@ -93,6 +93,7 @@ begin
begin begin
DatosBancarios := _GetDatosBancarios; DatosBancarios := _GetDatosBancarios;
Direcciones := _GetDirecciones; Direcciones := _GetDirecciones;
Personal := _GetPersonal;
end; end;
Result := (AContacto as IBizProveedor); Result := (AContacto as IBizProveedor);

3
Source/Modulos/Contactos/Model/Contactos_model.dpk
View File

@ -47,6 +47,7 @@ contains
uIDataModuleFichasEmpleadoReport in 'Data\uIDataModuleFichasEmpleadoReport.pas', uIDataModuleFichasEmpleadoReport in 'Data\uIDataModuleFichasEmpleadoReport.pas',
uIDataModuleEtiquetasContactosReport in 'Data\uIDataModuleEtiquetasContactosReport.pas', uIDataModuleEtiquetasContactosReport in 'Data\uIDataModuleEtiquetasContactosReport.pas',
schContactosClient_Intf in 'schContactosClient_Intf.pas', schContactosClient_Intf in 'schContactosClient_Intf.pas',
schContactosServer_Intf in 'schContactosServer_Intf.pas'; schContactosServer_Intf in 'schContactosServer_Intf.pas',
uBizContactosPersonal in 'uBizContactosPersonal.pas';
end. end.

1
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -65,6 +65,7 @@
<DCCReference Include="uBizClientesDescuentos.pas" /> <DCCReference Include="uBizClientesDescuentos.pas" />
<DCCReference Include="uBizContactos.pas" /> <DCCReference Include="uBizContactos.pas" />
<DCCReference Include="uBizContactosDatosBancarios.pas" /> <DCCReference Include="uBizContactosDatosBancarios.pas" />
<DCCReference Include="uBizContactosPersonal.pas" />
<DCCReference Include="uBizDireccionesContacto.pas" /> <DCCReference Include="uBizDireccionesContacto.pas" />
<DCCReference Include="uBizGruposCliente.pas" /> <DCCReference Include="uBizGruposCliente.pas" />
<DCCReference Include="uBizGruposEmpleado.pas" /> <DCCReference Include="uBizGruposEmpleado.pas" />

5
Source/Modulos/Contactos/Model/Data/uIDataModuleContactos.pas
View File

@ -4,13 +4,16 @@ interface
uses uses
SysUtils, Classes, SysUtils, Classes,
uBizContactos, uBizContactosDatosBancarios; uBizContactos, uBizContactosDatosBancarios, uBizDireccionesContacto,
uBizContactosPersonal;
type type
IDataModuleContactos = interface IDataModuleContactos = interface
['{835FFC4D-1AE9-4020-A042-C9D84EC25A2C}'] ['{835FFC4D-1AE9-4020-A042-C9D84EC25A2C}']
function _GetItems (IDCategoria : Integer): IBizContacto; function _GetItems (IDCategoria : Integer): IBizContacto;
function _GetDatosBancarios : IBizContactosDatosBancarios; function _GetDatosBancarios : IBizContactosDatosBancarios;
function _GetDirecciones: IBizDireccionesContacto;
function _GetPersonal: IBizContactoPersonal;
end; end;
implementation implementation

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

@ -9,19 +9,20 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{A4D7F874-9AA6-478C-AAB9-8C72B89D5587}'; RID_Contactos = '{93EE37EB-EC83-4592-8FE0-7213976D576D}';
RID_GruposCliente = '{1C96451B-7D16-472A-8A32-1980C73168F1}'; RID_GruposCliente = '{405EBA8C-423C-4F5C-A73D-C2ED7FADCF50}';
RID_DatosBancarios = '{17AE17CD-D4F4-49B3-8EB5-001FAC1E35A9}'; RID_DatosBancarios = '{553F9CFD-FE58-4438-A870-320A6710FCBB}';
RID_Clientes = '{DF344842-83AC-4CD8-BF84-C4AD0BF0BC4C}'; RID_Clientes = '{E6D1F0FB-258F-418D-A500-D78BFF26BDD9}';
RID_Proveedores = '{FEC4E64E-F9A3-4CCC-8FF4-95D40EF5D976}'; RID_Proveedores = '{4A0F6766-6036-4C05-8C74-5353D2DA1E2B}';
RID_Empleados = '{60C35CF4-7BCF-4B5F-B49B-97C322134C9F}'; RID_Empleados = '{5D29F2D4-A1FA-491F-A55F-E0FD6580AF8D}';
RID_DireccionesContacto = '{9A84C7A3-D210-451C-A3C6-4E68505DCC05}'; RID_DireccionesContacto = '{FBCF230B-6E4D-41E0-A1AA-32B8974AFA2D}';
RID_ClientesDescuentos = '{064EFA39-B948-4B38-BB8B-D2BDF7A9A889}'; RID_ClientesDescuentos = '{492B1649-7148-4F9C-AAAD-779E432AAA55}';
RID_GruposProveedor = '{AAA36EB6-1D98-4A1E-B26C-70DB3B6970D4}'; RID_GruposProveedor = '{F1D82002-96A0-4752-BC1B-094DE5333C26}';
RID_GruposEmpleado = '{F3EC9B3B-3E20-4A89-89BD-78CF3DDC024A}'; RID_GruposEmpleado = '{99BFA415-6A6F-4FAD-9BA4-1CA0C43C8703}';
RID_Contactos_Refresh = '{8A0B1D05-EF34-47A3-B06C-2AA9942097E2}'; RID_Contactos_Refresh = '{2E88E5F4-9D4C-41EB-8124-B7E11F35EC30}';
RID_ContratosEmpleados = '{048968BF-970A-4A6E-B42D-C2083E283280}'; RID_ContratosEmpleados = '{EAC10CE6-2393-438D-B2EC-6B42270C7A54}';
RID_DescripcionesProveedores = '{505162D5-88A0-4873-8205-7BD33AE36269}'; RID_DescripcionesProveedores = '{B54CE8F6-BE2F-4585-8FD2-74C9F174B767}';
RID_PersonalContacto = '{E684C573-A7E7-48C0-BA69-47291498ED5B}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -37,6 +38,7 @@ const
nme_Contactos_Refresh = 'Contactos_Refresh'; nme_Contactos_Refresh = 'Contactos_Refresh';
nme_ContratosEmpleados = 'ContratosEmpleados'; nme_ContratosEmpleados = 'ContratosEmpleados';
nme_DescripcionesProveedores = 'DescripcionesProveedores'; nme_DescripcionesProveedores = 'DescripcionesProveedores';
nme_PersonalContacto = 'PersonalContacto';
{ Contactos fields } { Contactos fields }
fld_ContactosID = 'ID'; fld_ContactosID = 'ID';
@ -226,6 +228,7 @@ const
fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB'; fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB';
fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO'; fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO';
fld_ProveedoresCERTIFICACION = 'CERTIFICACION'; fld_ProveedoresCERTIFICACION = 'CERTIFICACION';
fld_ProveedoresSUBCONTRATA = 'SUBCONTRATA';
{ Proveedores field indexes } { Proveedores field indexes }
idx_ProveedoresID = 0; idx_ProveedoresID = 0;
@ -261,6 +264,7 @@ const
idx_ProveedoresTIENDA_WEB = 30; idx_ProveedoresTIENDA_WEB = 30;
idx_ProveedoresHOMOLOGADO = 31; idx_ProveedoresHOMOLOGADO = 31;
idx_ProveedoresCERTIFICACION = 32; idx_ProveedoresCERTIFICACION = 32;
idx_ProveedoresSUBCONTRATA = 33;
{ Empleados fields } { Empleados fields }
fld_EmpleadosID = 'ID'; fld_EmpleadosID = 'ID';
@ -454,10 +458,34 @@ const
{ DescripcionesProveedores field indexes } { DescripcionesProveedores field indexes }
idx_DescripcionesProveedoresDESCRIPCION_PROVEEDOR = 0; idx_DescripcionesProveedoresDESCRIPCION_PROVEEDOR = 0;
{ PersonalContacto fields }
fld_PersonalContactoID = 'ID';
fld_PersonalContactoID_CONTACTO = 'ID_CONTACTO';
fld_PersonalContactoNOMBRE = 'NOMBRE';
fld_PersonalContactoPUESTO = 'PUESTO';
fld_PersonalContactoTELEFONO = 'TELEFONO';
fld_PersonalContactoMOVIL = 'MOVIL';
fld_PersonalContactoFAX = 'FAX';
fld_PersonalContactoEMAIL = 'EMAIL';
fld_PersonalContactoFECHA_ALTA = 'FECHA_ALTA';
fld_PersonalContactoFECHA_MODIFICACION = 'FECHA_MODIFICACION';
{ PersonalContacto field indexes }
idx_PersonalContactoID = 0;
idx_PersonalContactoID_CONTACTO = 1;
idx_PersonalContactoNOMBRE = 2;
idx_PersonalContactoPUESTO = 3;
idx_PersonalContactoTELEFONO = 4;
idx_PersonalContactoMOVIL = 5;
idx_PersonalContactoFAX = 6;
idx_PersonalContactoEMAIL = 7;
idx_PersonalContactoFECHA_ALTA = 8;
idx_PersonalContactoFECHA_MODIFICACION = 9;
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{9BC70D6F-DDBB-455A-8ED6-277F6F015990}'] ['{E59305EA-4E84-419D-BD85-09D7CCE228B0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -756,7 +784,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{CD452866-91FC-4B57-AF2E-51EFC32955CA}'] ['{A5E9E3A7-70E6-497D-A259-BA3D053DFC4E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -803,7 +831,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{634A6F68-7F67-4E95-96CF-79E555FD64B4}'] ['{8099114C-D422-4D38-922C-E8A3D6AC04DD}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -934,7 +962,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{D56F28C2-CEFE-4755-9092-F7D740DED9C9}'] ['{F0AA957B-22FD-410C-8BDD-7E51344DDA81}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1377,7 +1405,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{6DF906CE-7A60-4F70-B2E1-EF3B18FE5785}'] ['{B87D9D38-E5EF-48AE-8462-2651C12521D7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1510,6 +1538,10 @@ type
procedure SetCERTIFICACIONValue(const aValue: String); procedure SetCERTIFICACIONValue(const aValue: String);
function GetCERTIFICACIONIsNull: Boolean; function GetCERTIFICACIONIsNull: Boolean;
procedure SetCERTIFICACIONIsNull(const aValue: Boolean); procedure SetCERTIFICACIONIsNull(const aValue: Boolean);
function GetSUBCONTRATAValue: SmallInt;
procedure SetSUBCONTRATAValue(const aValue: SmallInt);
function GetSUBCONTRATAIsNull: Boolean;
procedure SetSUBCONTRATAIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -1579,6 +1611,8 @@ type
property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull; property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull; property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
property SUBCONTRATAIsNull: Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull;
end; end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
@ -1719,6 +1753,10 @@ type
procedure SetCERTIFICACIONValue(const aValue: String); virtual; procedure SetCERTIFICACIONValue(const aValue: String); virtual;
function GetCERTIFICACIONIsNull: Boolean; virtual; function GetCERTIFICACIONIsNull: Boolean; virtual;
procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual; procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual;
function GetSUBCONTRATAValue: SmallInt; virtual;
procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual;
function GetSUBCONTRATAIsNull: Boolean; virtual;
procedure SetSUBCONTRATAIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1787,6 +1825,8 @@ type
property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull; property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull; property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
property SUBCONTRATAIsNull: Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1796,7 +1836,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{CB027BF3-E930-4108-8992-BC7CB8F78B34}'] ['{F05CFAAA-AFD5-4EEA-9153-CCAC4226505B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2203,7 +2243,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{9BFD1F3F-13FE-40FC-A5DD-236EBCC45998}'] ['{18FB7335-FF1C-4630-8854-17884DC46240}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2418,7 +2458,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{C0E7C4E7-306A-441E-A310-31D2C8801423}'] ['{E5432957-80FF-4189-BB6C-FC5AFF168B06}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2501,7 +2541,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{B0E72900-9B72-4A0A-9DB9-F87C56E6A002}'] ['{4E1C83AD-248C-4770-8423-06D6781FAD25}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2548,7 +2588,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{425C3BF6-7FB4-41CE-AB81-CE7220B030ED}'] ['{9A44FB5F-D13D-4E10-8C49-288C227EAD86}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2595,7 +2635,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{BE66BA4F-21CD-4F00-9640-6D2A7C8BC2CA}'] ['{4A0B8556-7E34-434D-9A0E-B0C9D491CE4D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2870,7 +2910,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{23DC52D6-E760-444F-BB2D-134398ECCB26}'] ['{87553D29-875F-488F-861C-29563ABC962F}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -2905,7 +2945,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{A512DEBE-E8E2-4E28-852A-E89484CEA0B3}'] ['{7F14E7C1-A3ED-4F13-9C58-2375D3663AFC}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -2938,6 +2978,149 @@ type
end; end;
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{B0636C03-3DAC-4019-974C-EE81DAB0BA70}']
{ 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 GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
function GetPUESTOValue: String;
procedure SetPUESTOValue(const aValue: String);
function GetPUESTOIsNull: Boolean;
procedure SetPUESTOIsNull(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 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 NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PUESTO: String read GetPUESTOValue write SetPUESTOValue;
property PUESTOIsNull: Boolean read GetPUESTOIsNull write SetPUESTOIsNull;
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 EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull;
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;
{ TPersonalContactoDataTableRules }
TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto)
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_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
function GetID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_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 GetPUESTOValue: String; virtual;
procedure SetPUESTOValue(const aValue: String); virtual;
function GetPUESTOIsNull: Boolean; virtual;
procedure SetPUESTOIsNull(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 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 NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PUESTO: String read GetPUESTOValue write SetPUESTOValue;
property PUESTOIsNull: Boolean read GetPUESTOIsNull write SetPUESTOIsNull;
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 EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull;
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;
destructor Destroy; override;
end;
implementation implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
@ -5164,6 +5347,27 @@ begin
DataTable.Fields[idx_ProveedoresCERTIFICACION].AsVariant := Null; DataTable.Fields[idx_ProveedoresCERTIFICACION].AsVariant := Null;
end; end;
function TProveedoresDataTableRules.GetSUBCONTRATAValue: SmallInt;
begin
result := DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsSmallInt;
end;
procedure TProveedoresDataTableRules.SetSUBCONTRATAValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsSmallInt := aValue;
end;
function TProveedoresDataTableRules.GetSUBCONTRATAIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresSUBCONTRATA].IsNull;
end;
procedure TProveedoresDataTableRules.SetSUBCONTRATAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsVariant := Null;
end;
{ TEmpleadosDataTableRules } { TEmpleadosDataTableRules }
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable); constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);
@ -6982,6 +7186,228 @@ begin
end; end;
{ TPersonalContactoDataTableRules }
constructor TPersonalContactoDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPersonalContactoDataTableRules.Destroy;
begin
inherited;
end;
function TPersonalContactoDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_PersonalContactoID].AsInteger;
end;
procedure TPersonalContactoDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_PersonalContactoID].AsInteger := aValue;
end;
function TPersonalContactoDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoID].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoID].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetID_CONTACTOValue: Integer;
begin
result := DataTable.Fields[idx_PersonalContactoID_CONTACTO].AsInteger;
end;
procedure TPersonalContactoDataTableRules.SetID_CONTACTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PersonalContactoID_CONTACTO].AsInteger := aValue;
end;
function TPersonalContactoDataTableRules.GetID_CONTACTOIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoID_CONTACTO].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoID_CONTACTO].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoNOMBRE].AsString;
end;
procedure TPersonalContactoDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoNOMBRE].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoNOMBRE].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoNOMBRE].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetPUESTOValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoPUESTO].AsString;
end;
procedure TPersonalContactoDataTableRules.SetPUESTOValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoPUESTO].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetPUESTOIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoPUESTO].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetPUESTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoPUESTO].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetTELEFONOValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoTELEFONO].AsString;
end;
procedure TPersonalContactoDataTableRules.SetTELEFONOValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoTELEFONO].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetTELEFONOIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoTELEFONO].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoTELEFONO].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetMOVILValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoMOVIL].AsString;
end;
procedure TPersonalContactoDataTableRules.SetMOVILValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoMOVIL].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetMOVILIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoMOVIL].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoMOVIL].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoFAX].AsString;
end;
procedure TPersonalContactoDataTableRules.SetFAXValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoFAX].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetFAXIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoFAX].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetFAXIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoFAX].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetEMAILValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoEMAIL].AsString;
end;
procedure TPersonalContactoDataTableRules.SetEMAILValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoEMAIL].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetEMAILIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoEMAIL].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetEMAILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoEMAIL].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_PersonalContactoFECHA_ALTA].AsDateTime;
end;
procedure TPersonalContactoDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PersonalContactoFECHA_ALTA].AsDateTime := aValue;
end;
function TPersonalContactoDataTableRules.GetFECHA_ALTAIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoFECHA_ALTA].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoFECHA_ALTA].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].AsDateTime;
end;
procedure TPersonalContactoDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].AsDateTime := aValue;
end;
function TPersonalContactoDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].AsVariant := Null;
end;
initialization initialization
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules); RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
@ -6996,5 +7422,6 @@ initialization
RegisterDataTableRules(RID_Contactos_Refresh, TContactos_RefreshDataTableRules); RegisterDataTableRules(RID_Contactos_Refresh, TContactos_RefreshDataTableRules);
RegisterDataTableRules(RID_ContratosEmpleados, TContratosEmpleadosDataTableRules); RegisterDataTableRules(RID_ContratosEmpleados, TContratosEmpleadosDataTableRules);
RegisterDataTableRules(RID_DescripcionesProveedores, TDescripcionesProveedoresDataTableRules); RegisterDataTableRules(RID_DescripcionesProveedores, TDescripcionesProveedoresDataTableRules);
RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules);
end. end.

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

@ -9,24 +9,25 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{D88BCAA7-5886-4CD4-BECA-2B4D8D21D8A6}'; RID_ContactosDelta = '{DC6F6461-F577-4A1C-A1BB-EC1E73A19C7E}';
RID_GruposClienteDelta = '{24C81A94-CB18-447A-8456-93B88582D6EE}'; RID_GruposClienteDelta = '{B8209C23-AEBA-42A5-A5BC-459C0774043A}';
RID_DatosBancariosDelta = '{B8CD12A2-4C6A-497F-A846-DD30666F98EB}'; RID_DatosBancariosDelta = '{BFD56656-7A74-44F2-A4DF-2101321A9BA5}';
RID_ClientesDelta = '{25F17FB7-C487-4575-8923-DDB43C061A63}'; RID_ClientesDelta = '{F68DC47E-1F6C-4AB6-9F4D-58DA04D34466}';
RID_ProveedoresDelta = '{E8A7D090-1BE0-4634-89FB-68667B108276}'; RID_ProveedoresDelta = '{1773D482-A165-4F3C-963F-04057C33EC5F}';
RID_EmpleadosDelta = '{EAD95E6C-4119-43F9-9511-00EABC406D71}'; RID_EmpleadosDelta = '{93D28665-986C-4574-BB95-2E129DF0EF59}';
RID_DireccionesContactoDelta = '{E0D5C7C8-B321-4931-9AB1-6006701F5E74}'; RID_DireccionesContactoDelta = '{2DB84B28-7422-43C3-8D75-53D31444CA9D}';
RID_ClientesDescuentosDelta = '{C8D3CE65-0FD7-4E5C-8CB4-6C726AEF3915}'; RID_ClientesDescuentosDelta = '{C9C2DF04-9907-4B61-90A4-F44243B0E952}';
RID_GruposProveedorDelta = '{B7B504ED-0204-492C-A44E-B3E06C143342}'; RID_GruposProveedorDelta = '{EC035096-E936-4A1D-8160-C602BFF6AD1A}';
RID_GruposEmpleadoDelta = '{7EF7BDCC-C559-4C6B-A4A3-C179D2ED2C17}'; RID_GruposEmpleadoDelta = '{938B3E8F-B9BE-42C1-8451-D1ACE543035C}';
RID_Contactos_RefreshDelta = '{1F66DD99-4349-4931-87A9-9245408B5EBC}'; RID_Contactos_RefreshDelta = '{F1258795-69A3-4A08-87A0-E9E0A3E82FA0}';
RID_ContratosEmpleadosDelta = '{901039B3-7FD1-45A7-8262-B946DD38E534}'; RID_ContratosEmpleadosDelta = '{DDEB329D-3B2C-49FF-A10F-DA282E098379}';
RID_DescripcionesProveedoresDelta = '{6C4014E7-35BD-4C80-8AFD-CF99C24D9787}'; RID_DescripcionesProveedoresDelta = '{845273A7-ABAD-460B-8079-150C94E427AC}';
RID_PersonalContactoDelta = '{47E745DC-106B-473F-9CB1-BC3193862428}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{D88BCAA7-5886-4CD4-BECA-2B4D8D21D8A6}'] ['{DC6F6461-F577-4A1C-A1BB-EC1E73A19C7E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -325,7 +326,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{24C81A94-CB18-447A-8456-93B88582D6EE}'] ['{B8209C23-AEBA-42A5-A5BC-459C0774043A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -371,7 +372,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{B8CD12A2-4C6A-497F-A846-DD30666F98EB}'] ['{BFD56656-7A74-44F2-A4DF-2101321A9BA5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -501,7 +502,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{25F17FB7-C487-4575-8923-DDB43C061A63}'] ['{F68DC47E-1F6C-4AB6-9F4D-58DA04D34466}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -944,7 +945,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{E8A7D090-1BE0-4634-89FB-68667B108276}'] ['{1773D482-A165-4F3C-963F-04057C33EC5F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -979,6 +980,7 @@ type
function GetOldTIENDA_WEBValue : SmallInt; function GetOldTIENDA_WEBValue : SmallInt;
function GetOldHOMOLOGADOValue : SmallInt; function GetOldHOMOLOGADOValue : SmallInt;
function GetOldCERTIFICACIONValue : String; function GetOldCERTIFICACIONValue : String;
function GetOldSUBCONTRATAValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -1014,6 +1016,7 @@ type
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue; property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue; property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue;
end; end;
{ TProveedoresBusinessProcessorRules } { TProveedoresBusinessProcessorRules }
@ -1220,6 +1223,12 @@ type
function GetOldCERTIFICACIONIsNull: Boolean; virtual; function GetOldCERTIFICACIONIsNull: Boolean; virtual;
procedure SetCERTIFICACIONValue(const aValue: String); virtual; procedure SetCERTIFICACIONValue(const aValue: String); virtual;
procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual; procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual;
function GetSUBCONTRATAValue: SmallInt; virtual;
function GetSUBCONTRATAIsNull: Boolean; virtual;
function GetOldSUBCONTRATAValue: SmallInt; virtual;
function GetOldSUBCONTRATAIsNull: Boolean; virtual;
procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual;
procedure SetSUBCONTRATAIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -1354,6 +1363,10 @@ type
property CERTIFICACIONIsNull : Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull; property CERTIFICACIONIsNull : Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue; property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
property OldCERTIFICACIONIsNull : Boolean read GetOldCERTIFICACIONIsNull; property OldCERTIFICACIONIsNull : Boolean read GetOldCERTIFICACIONIsNull;
property SUBCONTRATA : SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
property SUBCONTRATAIsNull : Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull;
property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue;
property OldSUBCONTRATAIsNull : Boolean read GetOldSUBCONTRATAIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1363,7 +1376,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{EAD95E6C-4119-43F9-9511-00EABC406D71}'] ['{93D28665-986C-4574-BB95-2E129DF0EF59}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1774,7 +1787,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{E0D5C7C8-B321-4931-9AB1-6006701F5E74}'] ['{2DB84B28-7422-43C3-8D75-53D31444CA9D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -1989,7 +2002,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{C8D3CE65-0FD7-4E5C-8CB4-6C726AEF3915}'] ['{C9C2DF04-9907-4B61-90A4-F44243B0E952}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2071,7 +2084,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{B7B504ED-0204-492C-A44E-B3E06C143342}'] ['{EC035096-E936-4A1D-8160-C602BFF6AD1A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2117,7 +2130,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{7EF7BDCC-C559-4C6B-A4A3-C179D2ED2C17}'] ['{938B3E8F-B9BE-42C1-8451-D1ACE543035C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2163,7 +2176,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{1F66DD99-4349-4931-87A9-9245408B5EBC}'] ['{F1258795-69A3-4A08-87A0-E9E0A3E82FA0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2438,7 +2451,7 @@ type
{ IContratosEmpleadosDelta } { IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados) IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{901039B3-7FD1-45A7-8262-B946DD38E534}'] ['{DDEB329D-3B2C-49FF-A10F-DA282E098379}']
{ Property getters and setters } { Property getters and setters }
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
@ -2472,7 +2485,7 @@ type
{ IDescripcionesProveedoresDelta } { IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{6C4014E7-35BD-4C80-8AFD-CF99C24D9787}'] ['{845273A7-ABAD-460B-8079-150C94E427AC}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2504,6 +2517,148 @@ type
end; end;
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
['{47E745DC-106B-473F-9CB1-BC3193862428}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
function GetOldNOMBREValue : String;
function GetOldPUESTOValue : String;
function GetOldTELEFONOValue : String;
function GetOldMOVILValue : String;
function GetOldFAXValue : String;
function GetOldEMAILValue : String;
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 OldPUESTO : String read GetOldPUESTOValue;
property OldTELEFONO : String read GetOldTELEFONOValue;
property OldMOVIL : String read GetOldMOVILValue;
property OldFAX : String read GetOldFAXValue;
property OldEMAIL : String read GetOldEMAILValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
end;
{ TPersonalContactoBusinessProcessorRules }
TPersonalContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IPersonalContacto, IPersonalContactoDelta)
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_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 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 GetPUESTOValue: String; virtual;
function GetPUESTOIsNull: Boolean; virtual;
function GetOldPUESTOValue: String; virtual;
function GetOldPUESTOIsNull: Boolean; virtual;
procedure SetPUESTOValue(const aValue: String); virtual;
procedure SetPUESTOIsNull(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 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 NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property PUESTO : String read GetPUESTOValue write SetPUESTOValue;
property PUESTOIsNull : Boolean read GetPUESTOIsNull write SetPUESTOIsNull;
property OldPUESTO : String read GetOldPUESTOValue;
property OldPUESTOIsNull : Boolean read GetOldPUESTOIsNull;
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 OldEMAILIsNull : Boolean read GetOldEMAILIsNull;
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;
destructor Destroy; override;
end;
implementation implementation
uses uses
@ -5754,6 +5909,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := Null;
end; end;
function TProveedoresBusinessProcessorRules.GetSUBCONTRATAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA];
end;
function TProveedoresBusinessProcessorRules.GetSUBCONTRATAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA]);
end;
function TProveedoresBusinessProcessorRules.GetOldSUBCONTRATAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresSUBCONTRATA];
end;
function TProveedoresBusinessProcessorRules.GetOldSUBCONTRATAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresSUBCONTRATA]);
end;
procedure TProveedoresBusinessProcessorRules.SetSUBCONTRATAValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA] := aValue;
end;
procedure TProveedoresBusinessProcessorRules.SetSUBCONTRATAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA] := Null;
end;
{ TEmpleadosBusinessProcessorRules } { TEmpleadosBusinessProcessorRules }
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -8379,6 +8565,328 @@ begin
end; end;
{ TPersonalContactoBusinessProcessorRules }
constructor TPersonalContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TPersonalContactoBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TPersonalContactoBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID];
end;
function TPersonalContactoBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID];
end;
function TPersonalContactoBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO];
end;
function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO];
end;
function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE];
end;
function TPersonalContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE];
end;
function TPersonalContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetPUESTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO];
end;
function TPersonalContactoBusinessProcessorRules.GetPUESTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldPUESTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO];
end;
function TPersonalContactoBusinessProcessorRules.GetOldPUESTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetPUESTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetPUESTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO];
end;
function TPersonalContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO];
end;
function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL];
end;
function TPersonalContactoBusinessProcessorRules.GetMOVILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL];
end;
function TPersonalContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetMOVILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX];
end;
function TPersonalContactoBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX];
end;
function TPersonalContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetEMAILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL];
end;
function TPersonalContactoBusinessProcessorRules.GetEMAILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldEMAILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL];
end;
function TPersonalContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetEMAILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA];
end;
function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA];
end;
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION];
end;
function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION];
end;
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION] := Null;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
@ -8393,5 +8901,6 @@ initialization
RegisterBusinessProcessorRules(RID_Contactos_RefreshDelta, TContactos_RefreshBusinessProcessorRules); RegisterBusinessProcessorRules(RID_Contactos_RefreshDelta, TContactos_RefreshBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContratosEmpleadosDelta, TContratosEmpleadosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContratosEmpleadosDelta, TContratosEmpleadosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DescripcionesProveedoresDelta, TDescripcionesProveedoresBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DescripcionesProveedoresDelta, TDescripcionesProveedoresBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
end. end.

49
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -4,7 +4,7 @@ interface
uses uses
uDAInterfaces, uDADataTable, uROClasses, uDAInterfaces, uDADataTable, uROClasses,
schContactosClient_Intf, uBizContactosDatosBancarios, schContactosClient_Intf, uBizContactosDatosBancarios, uBizContactosPersonal,
uDBSelectionListUtils, uBizDireccionesContacto, uBizClientesDescuentos; uDBSelectionListUtils, uBizDireccionesContacto, uBizClientesDescuentos;
const const
@ -30,6 +30,11 @@ type
property DatosBancarios : IBizContactosDatosBancarios read GetDatosBancarios property DatosBancarios : IBizContactosDatosBancarios read GetDatosBancarios
write SetDatosBancarios; write SetDatosBancarios;
procedure SetPersonal(AValue : IBizContactoPersonal);
function GetPersonal : IBizContactoPersonal;
property Personal : IBizContactoPersonal read GetPersonal
write SetPersonal;
function GetCategoria : String; function GetCategoria : String;
property Categoria : String read GetCategoria; property Categoria : String read GetCategoria;
@ -123,6 +128,9 @@ type
function GetGRUPO_PROVEEDORValue: String; function GetGRUPO_PROVEEDORValue: String;
procedure SetGRUPO_PROVEEDORValue(const aValue: String); procedure SetGRUPO_PROVEEDORValue(const aValue: String);
function GetSUBCONTRATAValue: SmallInt;
procedure SetSUBCONTRATAValue(const aValue: SmallInt);
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
@ -133,6 +141,7 @@ type
property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
end; end;
IBizEmpleado = interface (IBizContacto) IBizEmpleado = interface (IBizContacto)
@ -177,6 +186,8 @@ type
FDatosBancariosLink : TDADataSource; FDatosBancariosLink : TDADataSource;
FDirecciones : IBizDireccionesContacto; FDirecciones : IBizDireccionesContacto;
FDireccionesLink : TDADataSource; FDireccionesLink : TDADataSource;
FPersonal : IBizContactoPersonal;
FPersonalLink : TDADataSource;
FSeleccionableInterface : ISeleccionable; FSeleccionableInterface : ISeleccionable;
@ -188,6 +199,9 @@ type
function GetCategoria : String; function GetCategoria : String;
procedure SetPersonal(AValue : IBizContactoPersonal);
function GetPersonal : IBizContactoPersonal;
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
public public
function EsNuevo : Boolean; function EsNuevo : Boolean;
@ -196,6 +210,9 @@ type
destructor Destroy; override; destructor Destroy; override;
property Categoria : String read GetCategoria; property Categoria : String read GetCategoria;
property Personal : IBizContactoPersonal read GetPersonal
write SetPersonal;
property DatosBancarios : IBizContactosDatosBancarios read GetDatosBancarios property DatosBancarios : IBizContactosDatosBancarios read GetDatosBancarios
write SetDatosBancarios; write SetDatosBancarios;
@ -294,6 +311,8 @@ type
function GetGRUPO_PROVEEDORValue: String; function GetGRUPO_PROVEEDORValue: String;
procedure SetGRUPO_PROVEEDORValue(const aValue: String); procedure SetGRUPO_PROVEEDORValue(const aValue: String);
function GetSUBCONTRATAValue: SmallInt;
procedure SetSUBCONTRATAValue(const aValue: SmallInt);
public public
procedure IniciarValoresContactoNuevo; override; procedure IniciarValoresContactoNuevo; override;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
@ -306,6 +325,7 @@ type
property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
end; end;
@ -361,6 +381,9 @@ begin
FDireccionesLink := TDADataSource.Create(NIL); FDireccionesLink := TDADataSource.Create(NIL);
FDireccionesLink.DataTable := aDataTable; FDireccionesLink.DataTable := aDataTable;
FPersonalLink := TDADataSource.Create(NIL);
FPersonalLink.DataTable := aDataTable;
FSeleccionableInterface := TSeleccionable.Create(aDataTable); FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end; end;
@ -372,6 +395,9 @@ begin
FDirecciones := NIL; FDirecciones := NIL;
FDireccionesLink.Free; FDireccionesLink.Free;
FPersonal := NIL;
FPersonalLink.Free;
FSeleccionableInterface := NIL; FSeleccionableInterface := NIL;
inherited; inherited;
end; end;
@ -400,6 +426,11 @@ begin
Result := FDirecciones; Result := FDirecciones;
end; end;
function TBizContacto.GetPersonal: IBizContactoPersonal;
begin
Result := FPersonal;
end;
procedure TBizContacto.IniciarValoresContactoNuevo; procedure TBizContacto.IniciarValoresContactoNuevo;
begin begin
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
@ -425,6 +456,12 @@ begin
end; end;
procedure TBizContacto.SetPersonal(AValue: IBizContactoPersonal);
begin
FPersonal := AValue;
EnlazarMaestroDetalle(FPersonalLink, FPersonal);
end;
{ TBizCliente } { TBizCliente }
constructor TBizCliente.Create(aDataTable: TDADataTable); constructor TBizCliente.Create(aDataTable: TDADataTable);
@ -590,6 +627,11 @@ begin
result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString; result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
end; end;
function TBizProveedor.GetSUBCONTRATAValue: SmallInt;
begin
result := DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsSmallInt;
end;
function TBizProveedor.GetTIENDA_WEBValue: Integer; function TBizProveedor.GetTIENDA_WEBValue: Integer;
begin begin
result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger; result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger;
@ -667,6 +709,11 @@ begin
DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue; DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;
end; end;
procedure TBizProveedor.SetSUBCONTRATAValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsSmallInt := aValue;
end;
procedure TBizProveedor.SetTIENDA_WEBValue(const aValue: Integer); procedure TBizProveedor.SetTIENDA_WEBValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue; DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue;

61
Source/Modulos/Contactos/Model/uBizContactosPersonal.pas Normal file
View File

@ -0,0 +1,61 @@
unit uBizContactosPersonal;
interface
uses
uDAInterfaces, uDADataTable,
schContactosClient_Intf;
const
BIZ_CLIENT_CONTACTO_PERSONAL = 'Client.ContactosPersonal';
type
IBizContactoPersonal = interface (IPersonalContacto)
['{9FFEFD2E-1EED-4FA2-80D7-81B1541B122C}']
end;
TBizContactoPersonal = class(TPersonalContactoDataTableRules, IBizContactoPersonal)
private
ContIdAux: Integer;
protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
public
constructor Create(aDataTable: TDADataTable); override;
end;
implementation
{ TBizContactoPersonal }
uses
DB;
procedure TBizContactoPersonal.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State in dsEditModes) then
AMasterTable.Post;
end;
constructor TBizContactoPersonal.Create(aDataTable: TDADataTable);
begin
inherited;
ContIdAux := -1;
end;
procedure TBizContactoPersonal.OnNewRecord(Sender: TDADataTable);
begin
inherited;
ID := ContIdAux; // -1, -2, -3...
Dec(ContIdAux);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_CONTACTO_PERSONAL, TBizContactoPersonal);
end.

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

@ -100,6 +100,7 @@ begin
ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO]; ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION]; ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('SUBCONTRATA').Value := aChange.NewValueByName[fld_ProveedoresSUBCONTRATA];
Execute; Execute;
end; end;
finally finally
@ -135,6 +136,7 @@ begin
ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO]; ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION]; ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('SUBCONTRATA').Value := aChange.NewValueByName[fld_ProveedoresSUBCONTRATA];
Execute; Execute;
end; end;
finally finally

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

@ -874,6 +874,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'CERTIFICACION' DatasetField = 'CERTIFICACION'
TableField = 'CERTIFICACION' TableField = 'CERTIFICACION'
end
item
DatasetField = 'SUBCONTRATA'
TableField = 'SUBCONTRATA'
end> end>
end> end>
Name = 'Proveedores' Name = 'Proveedores'
@ -990,10 +994,12 @@ object srvContactos: TsrvContactos
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'Proveedores_FECHA_ALTA'
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'Proveedores_FECHA_MODIFICACION'
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
@ -1033,7 +1039,7 @@ object srvContactos: TsrvContactos
item item
Name = 'GRUPO_PROVEEDOR' Name = 'GRUPO_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
end end
item item
Name = 'REGIMEN_IVA' Name = 'REGIMEN_IVA'
@ -1066,6 +1072,11 @@ object srvContactos: TsrvContactos
DataType = datString DataType = datString
Size = 255 Size = 255
DictionaryEntry = 'Proveedores_CERTIFICACION' DictionaryEntry = 'Proveedores_CERTIFICACION'
end
item
Name = 'SUBCONTRATA'
DataType = datSmallInt
DictionaryEntry = 'Proveedores_SUBCONTRATA'
end> end>
end end
item item
@ -1960,6 +1971,117 @@ object srvContactos: TsrvContactos
Size = 255 Size = 255
DictionaryEntry = 'Proveedores_DESCRIPCION_PROVEEDOR' DictionaryEntry = 'Proveedores_DESCRIPCION_PROVEEDOR'
end> end>
end
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CONTACTO'
TableField = 'ID_CONTACTO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'PUESTO'
TableField = 'PUESTO'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL'
TableField = 'EMAIL'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end>
end>
Name = 'PersonalContacto'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
DictionaryEntry = 'PersonalContacto_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DictionaryEntry = 'PersonalContacto_ID_CONTACTO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'PersonalContacto_NOMBRE'
end
item
Name = 'PUESTO'
DataType = datString
Size = 255
DictionaryEntry = 'PersonalContacto_PUESTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DictionaryEntry = 'PersonalContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DictionaryEntry = 'PersonalContacto_MOVIL'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DictionaryEntry = 'PersonalContacto_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DictionaryEntry = 'PersonalContacto_EMAIL'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'PersonalContacto_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'PersonalContacto_FECHA_MODIFICACION'
end>
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>
@ -2136,12 +2258,6 @@ object srvContactos: TsrvContactos
end end
item item
Params = < Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString
@ -2278,15 +2394,15 @@ object srvContactos: TsrvContactos
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'CONTACTOS' TargetTable = 'CONTACTOS'
SQL = SQL =
'UPDATE CONTACTOS'#10' SET '#10' ID = :ID,'#10' NIF_CIF = :NIF_CIF, '#10' ' + 'UPDATE CONTACTOS'#10' SET '#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NO' +
' NOMBRE = :NOMBRE, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10 + 'MBRE, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' CALLE = :CA' +
' CALLE = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA ' + 'LLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10 +
'= :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' TELEFONO' + ' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' TELEFONO_1 = :TELEFONO_' +
'_1 = :TELEFONO_1, '#10' TELEFONO_2 = :TELEFONO_2, '#10' MOVIL_1 = ' + '1, '#10' TELEFONO_2 = :TELEFONO_2, '#10' MOVIL_1 = :MOVIL_1, '#10' ' +
':MOVIL_1, '#10' MOVIL_2 = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1' + 'MOVIL_2 = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' ' +
' = :EMAIL_1, '#10' EMAIL_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_' + ' EMAIL_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS' +
'WEB, '#10' NOTAS = :NOTAS, '#10' USUARIO = :USUARIO,'#10' REFERENCI' + ' = :NOTAS, '#10' USUARIO = :USUARIO,'#10' REFERENCIA = :REFERENCIA' +
'A = :REFERENCIA'#10' WHERE'#10' (ID = :OLD_ID)' #10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -2780,74 +2896,51 @@ object srvContactos: TsrvContactos
Params = < Params = <
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REGIMEN_IVA' Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCRIPCION_PROVEEDOR' Name = 'DESCRIPCION_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_ASIGNADO' Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'SUBCONTRATA'
Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TIENDA_WEB' Name = 'TIENDA_WEB'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'HOMOLOGADO' Name = 'HOMOLOGADO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CERTIFICACION' Name = 'CERTIFICACION'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'GRUPO_PROVEEDOR' Name = 'GRUPO_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -2856,11 +2949,11 @@ object srvContactos: TsrvContactos
SQL = SQL =
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' + 'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' + 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' + 'VA, SUBCONTRATA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERT' +
'UPO_PROVEEDOR)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCU' + 'IFICACION, GRUPO_PROVEEDOR)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIME' +
'ENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA' + 'N_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO,' +
','#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, ' + ' :ID_TIPO_IVA, :SUBCONTRATA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :H' +
':GRUPO_PROVEEDOR)' 'OMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -2890,80 +2983,55 @@ object srvContactos: TsrvContactos
Params = < Params = <
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REGIMEN_IVA' Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'DESCRIPCION_PROVEEDOR' Name = 'DESCRIPCION_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_ASIGNADO' Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TIENDA_WEB' Name = 'TIENDA_WEB'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'HOMOLOGADO' Name = 'HOMOLOGADO'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CERTIFICACION' Name = 'CERTIFICACION'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'GRUPO_PROVEEDOR' Name = 'GRUPO_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'SUBCONTRATA'
Value = ''
end end
item item
Name = 'OLD_ID_PROVEEDOR' Name = 'OLD_ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -2976,8 +3044,8 @@ object srvContactos: TsrvContactos
'IGNADO = :CODIGO_ASIGNADO,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' I' + 'IGNADO = :CODIGO_ASIGNADO,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' I' +
'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' + 'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' +
' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' + ' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' +
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR'#10' WHERE'#10' (ID_PROVEEDOR ' + ' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' SUBCONTRATA = :SUBCON' +
'= :OLD_ID_PROVEEDOR)' 'TRATA'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3518,8 +3586,165 @@ object srvContactos: TsrvContactos
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Delete_ContactoEmpresa' Name = 'Delete_ContactoEmpresa'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
Value = ''
end
item
Name = 'ID_CONTACTO'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'PUESTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'MOVIL'
Value = ''
end
item
Name = 'FAX'
Value = ''
end
item
Name = 'EMAIL'
Value = ''
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
SQL =
'INSERT'#10' INTO CONTACTOS_DATOS_PERSONAL'#10' (ID, ID_CONTACTO, NOM' +
'BRE, PUESTO, TELEFONO, MOVIL, FAX,'#10' EMAIL, FECHA_ALTA)'#10' VAL' +
'UES'#10' (:ID, :ID_CONTACTO, :NOMBRE, :PUESTO, :TELEFONO, :MOVIL,' +
#10' :FAX, :EMAIL, CURRENT_TIME)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_PersonalContacto'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
SQL =
'DELETE '#10' FROM'#10' CONTACTOS_DATOS_PERSONAL'#10' WHERE'#10' (ID = :O' +
'LD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_PersonalContacto'
end
item
Params = <
item
Name = 'ID_CONTACTO'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'PUESTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'MOVIL'
Value = ''
end
item
Name = 'FAX'
Value = ''
end
item
Name = 'EMAIL'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
SQL =
'UPDATE CONTACTOS_DATOS_PERSONAL'#10' SET '#10' ID_CONTACTO = :ID_CON' +
'TACTO, '#10' NOMBRE = :NOMBRE, '#10' PUESTO = :PUESTO, '#10' TELEFO' +
'NO = :TELEFONO, '#10' MOVIL = :MOVIL, '#10' FAX = :FAX, '#10' EMAIL' +
' = :EMAIL, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE' +
#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_PersonalContacto'
end> end>
RelationShips = < RelationShips = <
item
Name = 'FK_PersonalContacto_Empleados'
MasterDatasetName = 'Empleados'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_PersonalContacto_Proveedores'
MasterDatasetName = 'Proveedores'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_PersonalContacto_Clientes'
MasterDatasetName = 'Clientes'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_PersonalContacto_Contactos'
MasterDatasetName = 'Contactos'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item item
Name = 'FK_ClientesDescuentos_Clientes' Name = 'FK_ClientesDescuentos_Clientes'
MasterDatasetName = 'Clientes' MasterDatasetName = 'Clientes'
@ -3663,6 +3888,20 @@ object srvContactos: TsrvContactos
DatasetName = 'DatosBancarios' DatasetName = 'DatosBancarios'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item
Name = 'Insert PersonalContacto'
DoUpdate = False
DoDelete = False
DatasetName = 'PersonalContacto'
FailureBehavior = fbRaiseException
end
item
Name = 'Update PersonalContacto'
DoInsert = False
DoDelete = False
DatasetName = 'PersonalContacto'
FailureBehavior = fbRaiseException
end
item item
Name = 'Insert DireccionesContacto' Name = 'Insert DireccionesContacto'
DoUpdate = False DoUpdate = False
@ -3726,6 +3965,13 @@ object srvContactos: TsrvContactos
DatasetName = 'AgentesComisiones' DatasetName = 'AgentesComisiones'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item
Name = 'Delete PersonalContacto'
DoUpdate = False
DoInsert = False
DatasetName = 'PersonalContacto'
FailureBehavior = fbRaiseException
end
item item
Name = 'Delete DireccionesContacto' Name = 'Delete DireccionesContacto'
DoUpdate = False DoUpdate = False
@ -3762,7 +4008,7 @@ object srvContactos: TsrvContactos
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end> end>
Version = 0 Version = 0
Left = 30 Left = 38
Top = 14 Top = 14
end end
object DataDictionary: TDADataDictionary object DataDictionary: TDADataDictionary
@ -3866,7 +4112,7 @@ object srvContactos: TsrvContactos
Name = 'Contactos_MOVIL_2' Name = 'Contactos_MOVIL_2'
DataType = datString DataType = datString
Size = 25 Size = 25
DisplayLabel = 'MOVIL_2' DisplayLabel = 'M'#243'vil 2'
end end
item item
Name = 'Contactos_FAX' Name = 'Contactos_FAX'
@ -4204,7 +4450,6 @@ object srvContactos: TsrvContactos
Name = 'Contactos_NOMBRE' Name = 'Contactos_NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Required = True
DisplayLabel = 'Nombre' DisplayLabel = 'Nombre'
end end
item item
@ -4266,6 +4511,73 @@ object srvContactos: TsrvContactos
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Contrato' DisplayLabel = 'Contrato'
end
item
Name = 'Proveedores_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'Proveedores_FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'Proveedores_SUBCONTRATA'
DataType = datSmallInt
DisplayLabel = 'Subcontrata'
end
item
Name = 'PersonalContacto_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
Required = True
end
item
Name = 'PersonalContacto_ID_CONTACTO'
DataType = datInteger
end
item
Name = 'PersonalContacto_NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
end
item
Name = 'PersonalContacto_PUESTO'
DataType = datString
Size = 255
DisplayLabel = 'Puesto'
end
item
Name = 'PersonalContacto_TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
end
item
Name = 'PersonalContacto_MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
end
item
Name = 'PersonalContacto_FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
end
item
Name = 'PersonalContacto_EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'E-mail'
end
item
Name = 'PersonalContacto_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'PersonalContacto_FECHA_MODIFICACION'
DataType = datDateTime
end> end>
Left = 126 Left = 126
Top = 14 Top = 14
@ -4357,7 +4669,18 @@ object srvContactos: TsrvContactos
Top = 207 Top = 207
end end
object Bin2DataStreamer: TDABin2DataStreamer object Bin2DataStreamer: TDABin2DataStreamer
Left = 32 Left = 40
Top = 80 Top = 80
end end
object bpPersonalContacto: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_PersonalContacto'
DeleteCommandName = 'Delete_PersonalContacto'
UpdateCommandName = 'Update_PersonalContacto'
ReferencedDataset = 'PersonalContacto'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 224
Top = 143
end
end end

8
Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
View File

@ -31,6 +31,7 @@ type
bpDireccionesContacto: TDABusinessProcessor; bpDireccionesContacto: TDABusinessProcessor;
bpClientesDescuentos: TDABusinessProcessor; bpClientesDescuentos: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
bpPersonalContacto: TDABusinessProcessor;
schContactos: TDASchema; schContactos: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
@ -67,12 +68,7 @@ procedure TsrvContactos.DARemoteServiceBeforeGetDatasetData(
const Dataset: IDADataset; const IncludeSchema: Boolean; const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer); const MaxRecords: Integer);
begin begin
if (DataSet.Name <> nme_DatosBancarios) and if Assigned(Dataset.FindField(fld_ContactosID_EMPRESA)) then
(DataSet.Name <> nme_DireccionesContacto) and
(DataSet.Name <> nme_GruposCliente) and
(DataSet.Name <> nme_GruposProveedor) and
(DataSet.Name <> nme_GruposEmpleado) and
(DataSet.Name <> nme_ClientesDescuentos) then
begin begin
{ Aquí se asegura que el usuario sólo accede a contactos { Aquí se asegura que el usuario sólo accede a contactos
de las empresas a las que tiene permiso para acceder de las empresas a las que tiene permiso para acceder

4
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

@ -93,6 +93,8 @@ contains
uEditorGruposEmpleado in 'uEditorGruposEmpleado.pas' {fEditorGruposEmpleado: TCustomEditor}, uEditorGruposEmpleado in 'uEditorGruposEmpleado.pas' {fEditorGruposEmpleado: TCustomEditor},
uEditorFichasEmpleadoReport in 'uEditorFichasEmpleadoReport.pas' {fEditorFichasEmpleadoReport: TCustomEditor}, uEditorFichasEmpleadoReport in 'uEditorFichasEmpleadoReport.pas' {fEditorFichasEmpleadoReport: TCustomEditor},
uEditorEtiquetasContactosReport in 'uEditorEtiquetasContactosReport.pas' {fEditorEtiquetasContactosReport: TCustomEditor}, uEditorEtiquetasContactosReport in 'uEditorEtiquetasContactosReport.pas' {fEditorEtiquetasContactosReport: TCustomEditor},
uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion: TForm}; uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion: TCustomEditor},
uEditorPersonal in 'uEditorPersonal.pas' {fEditorPersonal: TCustomEditor},
uViewPersonalContacto in 'uViewPersonalContacto.pas' {frViewPersonalContacto: TFrame};
end. end.

72
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,38 +49,38 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" /> <DCCReference Include="..\..\Obras\Views\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" /> <DCCReference Include="..\..\Obras\Views\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\..\Obras\Views\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" /> <DCCReference Include="..\..\Obras\Views\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="..\..\Obras\Views\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\..\Obras\Views\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\..\Obras\Views\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="..\..\Obras\Views\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" /> <DCCReference Include="..\..\Obras\Views\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" /> <DCCReference Include="..\..\Obras\Views\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Obras\Views\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" /> <DCCReference Include="..\..\Obras\Views\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Obras\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\..\Obras\Views\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" /> <DCCReference Include="..\..\Obras\Views\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Obras\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\..\Obras\Views\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" /> <DCCReference Include="..\..\Obras\Views\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" /> <DCCReference Include="..\..\Obras\Views\FormasPago_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\Obras\Views\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\..\Obras\Views\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\..\Obras\Views\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\..\Obras\Views\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Obras\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\..\Obras\Views\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" /> <DCCReference Include="..\..\Obras\Views\TiposIVA_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" /> <DCCReference Include="..\..\Obras\Views\TiposIVA_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\..\Obras\Views\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\..\Obras\Views\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\..\Obras\Views\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\..\Obras\Views\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\..\Obras\Views\vclx.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>
@ -145,6 +145,10 @@
<Form>fEditorGruposProveedor</Form> <Form>fEditorGruposProveedor</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorPersonal.pas">
<Form>fEditorPersonal</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorProveedor.pas"> <DCCReference Include="uEditorProveedor.pas">
<Form>fEditorProveedor</Form> <Form>fEditorProveedor</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
@ -205,6 +209,10 @@
<Form>frViewEmpleados</Form> <Form>frViewEmpleados</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewPersonalContacto.pas">
<Form>frViewPersonalContacto</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewProveedor.pas"> <DCCReference Include="uViewProveedor.pas">
<Form>frViewProveedor</Form> <Form>frViewProveedor</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>

6
Source/Modulos/Contactos/Views/uContactosViewRegister.pas
View File

@ -15,7 +15,7 @@ uses
uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion, uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorGruposProveedor, uEditorGruposEmpleado, uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorGruposProveedor, uEditorGruposEmpleado,
uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport, uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport,
uEditorDatoBancario; uEditorDatoBancario, uEditorPersonal;
procedure RegisterViews; procedure RegisterViews;
begin begin
@ -33,6 +33,8 @@ begin
EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion'); EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion');
EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega'); EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega');
EditorRegistry.RegisterClass(TfEditorPersonal, 'EditorPersonalContacto');
EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente'); EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente');
EditorRegistry.RegisterClass(TfEditorGruposProveedor, 'EditorGruposProveedor'); EditorRegistry.RegisterClass(TfEditorGruposProveedor, 'EditorGruposProveedor');
EditorRegistry.RegisterClass(TfEditorGruposEmpleado, 'EditorGruposEmpleado'); EditorRegistry.RegisterClass(TfEditorGruposEmpleado, 'EditorGruposEmpleado');
@ -59,6 +61,8 @@ begin
EditorRegistry.UnRegisterClass(TfEditorDireccion); EditorRegistry.UnRegisterClass(TfEditorDireccion);
EditorRegistry.UnRegisterClass(TfEditorElegirDireccionEntrega); EditorRegistry.UnRegisterClass(TfEditorElegirDireccionEntrega);
EditorRegistry.UnRegisterClass(TfEditorPersonal);
EditorRegistry.UnRegisterClass(TfEditorGruposCliente); EditorRegistry.UnRegisterClass(TfEditorGruposCliente);
EditorRegistry.UnRegisterClass(TfEditorGruposProveedor); EditorRegistry.UnRegisterClass(TfEditorGruposProveedor);
EditorRegistry.UnRegisterClass(TfEditorGruposEmpleado); EditorRegistry.UnRegisterClass(TfEditorGruposEmpleado);

71
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -66,10 +66,10 @@ inherited fEditorCliente: TfEditorCliente
Width = 650 Width = 650
Height = 383 Height = 383
ExplicitWidth = 650 ExplicitWidth = 650
ExplicitHeight = 484 ExplicitHeight = 383
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 456 ExplicitHeight = 355
inline frViewCliente1: TfrViewCliente inline frViewCliente1: TfrViewCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -85,13 +85,13 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 456 ExplicitHeight = 355
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 642 Width = 642
Height = 355 Height = 355
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 456 ExplicitHeight = 355
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 581 Left = 581
Top = 218 Top = 218
@ -179,9 +179,9 @@ inherited fEditorCliente: TfEditorCliente
Top = 315 Top = 315
ExplicitLeft = 420 ExplicitLeft = 420
ExplicitTop = 315 ExplicitTop = 315
ExplicitWidth = 189 ExplicitWidth = 184
ExplicitHeight = 34 ExplicitHeight = 34
Width = 189 Width = 184
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 515 Left = 515
@ -282,18 +282,17 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 456 ExplicitHeight = 355
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
Width = 642 Width = 642
Height = 355 Height = 355
ExplicitTop = 0
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 456 ExplicitHeight = 355
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 642 Width = 642
Height = 330 Height = 330
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 431 ExplicitHeight = 330
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 642 Width = 642
@ -301,10 +300,9 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
end end
object pagDatosComerciales: TTabSheet object pagDatosComerciales: TTabSheet [2]
Caption = 'Datos comerciales' Caption = 'Datos comerciales'
ImageIndex = 4 ImageIndex = 4
ExplicitHeight = 456
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
@ -390,10 +388,9 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
end end
object pagDirecciones: TTabSheet object pagDirecciones: TTabSheet [3]
Caption = 'Direcciones' Caption = 'Direcciones'
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 456
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
@ -409,12 +406,12 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 456 ExplicitHeight = 355
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 642 Width = 642
Height = 330 Height = 330
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 431 ExplicitHeight = 330
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
SortIndex = 0 SortIndex = 0
@ -425,25 +422,12 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 642 Width = 642
ExplicitWidth = 642 ExplicitWidth = 642
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
object pagDescuentos: TTabSheet object pagDescuentos: TTabSheet [4]
Caption = 'Descuentos' Caption = 'Descuentos'
ImageIndex = 2 ImageIndex = 2
ExplicitHeight = 456
inline frViewClienteDescuentos1: TfrViewClienteDescuentos inline frViewClienteDescuentos1: TfrViewClienteDescuentos
Left = 0 Left = 0
Top = 0 Top = 0
@ -459,12 +443,12 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 456 ExplicitHeight = 355
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 642 Width = 642
Height = 330 Height = 330
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 431 ExplicitHeight = 330
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 642 Width = 642
@ -500,11 +484,32 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
end end
inherited pagPersonal: TTabSheet
ExplicitWidth = 642
ExplicitHeight = 355
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 642
Height = 355
ExplicitTop = 0
ExplicitWidth = 642
ExplicitHeight = 355
inherited cxGrid: TcxGrid
Width = 642
Height = 330
ExplicitWidth = 642
ExplicitHeight = 330
end
inherited ToolBar1: TToolBar
Width = 642
ExplicitWidth = 642
end
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 465 Top = 465
Width = 656 Width = 656
ExplicitTop = 566 ExplicitTop = 465
ExplicitWidth = 656 ExplicitWidth = 656
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList

3
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -14,7 +14,8 @@ uses
uIEditorCliente, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewEmpleado, uIEditorCliente, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewEmpleado,
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos, uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
uViewContactoDatosBancarios, dxLayoutLookAndFeels, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios; uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios,
uViewPersonalContacto;
type type
TfEditorCliente = class(TfEditorContacto, IEditorCliente) TfEditorCliente = class(TfEditorContacto, IEditorCliente)

46
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -69,7 +69,7 @@ inherited fEditorContacto: TfEditorContacto
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 626 Width = 626
ActivePage = pagDatosBancarios ActivePage = pagPersonal
ExplicitWidth = 626 ExplicitWidth = 626
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
@ -94,33 +94,63 @@ inherited fEditorContacto: TfEditorContacto
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitTop = 113
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 219 ExplicitHeight = 332
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 618 Width = 618
Height = 307 Height = 307
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 194 ExplicitHeight = 307
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 618 Width = 618
ExplicitWidth = 618 ExplicitWidth = 618
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 113
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
ExplicitWidth = 74 ExplicitWidth = 113
end end
inherited ToolButton2: TToolButton inherited ToolButton2: TToolButton
ExplicitWidth = 67 ExplicitWidth = 113
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
ExplicitWidth = 117 ExplicitWidth = 113
end end
end end
end end
end end
object pagPersonal: TTabSheet
Caption = 'Personal'
ImageIndex = 2
inline frViewPersonalContacto1: TfrViewPersonalContacto
Left = 0
Top = 0
Width = 618
Height = 332
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 618
ExplicitHeight = 332
inherited cxGrid: TcxGrid
Width = 618
Height = 307
ExplicitWidth = 618
ExplicitHeight = 307
end
inherited ToolBar1: TToolBar
Width = 618
ExplicitWidth = 618
end
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 632 Width = 632

7
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -14,7 +14,8 @@ uses
uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls, uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls,
JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel, JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel,
uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios; uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios,
uViewPersonalContacto;
type type
TfEditorContacto = class(TfEditorDBItem, IEditorContacto) TfEditorContacto = class(TfEditorDBItem, IEditorContacto)
@ -22,6 +23,8 @@ type
dxLayoutLookAndFeel: TdxLayoutLookAndFeelList; dxLayoutLookAndFeel: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel: TdxLayoutOfficeLookAndFeel;
frViewListaDatosBancarios: TfrViewListaDatosBancarios; frViewListaDatosBancarios: TfrViewListaDatosBancarios;
pagPersonal: TTabSheet;
frViewPersonalContacto1: TfrViewPersonalContacto;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
protected protected
@ -115,9 +118,11 @@ begin
begin begin
FViewContacto.Contacto := Contacto; FViewContacto.Contacto := Contacto;
frViewListaDatosBancarios.dsDetalles.DataTable := FContacto.DatosBancarios.DataTable; frViewListaDatosBancarios.dsDetalles.DataTable := FContacto.DatosBancarios.DataTable;
frViewPersonalContacto1.dsDetalles.DataTable := FContacto.Personal.DataTable;
end end
else begin else begin
frViewListaDatosBancarios.dsDetalles.DataTable := NIL; frViewListaDatosBancarios.dsDetalles.DataTable := NIL;
frViewPersonalContacto1.dsDetalles.DataTable := NIL;
end; end;
end; end;

57
Source/Modulos/Contactos/Views/uEditorEmpleado.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
Caption = 'fEditorEmpleado' Caption = 'fEditorEmpleado'
ClientHeight = 583 ClientHeight = 583
ClientWidth = 929 ClientWidth = 929
ExplicitTop = -46
ExplicitWidth = 937 ExplicitWidth = 937
ExplicitHeight = 610 ExplicitHeight = 610
PixelsPerInch = 96 PixelsPerInch = 96
@ -64,11 +63,12 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 923 Width = 923
Height = 482 Height = 482
ActivePage = pagFormacion
ExplicitWidth = 923 ExplicitWidth = 923
ExplicitHeight = 601 ExplicitHeight = 482
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 915 ExplicitWidth = 915
ExplicitHeight = 573 ExplicitHeight = 454
inline frViewEmpleado1: TfrViewEmpleado inline frViewEmpleado1: TfrViewEmpleado
Left = 0 Left = 0
Top = 0 Top = 0
@ -84,13 +84,13 @@ inherited fEditorEmpleado: TfEditorEmpleado
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 915 ExplicitWidth = 915
ExplicitHeight = 573 ExplicitHeight = 454
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 915 Width = 915
Height = 454 Height = 454
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 915 ExplicitWidth = 915
ExplicitHeight = 573 ExplicitHeight = 454
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 870 Left = 870
Top = 218 Top = 218
@ -268,18 +268,51 @@ inherited fEditorEmpleado: TfEditorEmpleado
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 915 ExplicitWidth = 915
ExplicitHeight = 573 ExplicitHeight = 454
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
Width = 915 Width = 915
Height = 454 Height = 454
ExplicitTop = 0
ExplicitWidth = 915 ExplicitWidth = 915
ExplicitHeight = 573 ExplicitHeight = 454
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 915 Width = 915
Height = 429 Height = 429
ExplicitWidth = 915 ExplicitWidth = 915
ExplicitHeight = 548 ExplicitHeight = 429
end
inherited ToolBar1: TToolBar
Width = 915
ExplicitWidth = 915
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end
inherited pagPersonal: TTabSheet
TabVisible = False
ExplicitWidth = 915
ExplicitHeight = 454
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 915
Height = 454
ExplicitTop = 0
ExplicitWidth = 915
ExplicitHeight = 454
inherited cxGrid: TcxGrid
Width = 915
Height = 429
ExplicitWidth = 915
ExplicitHeight = 429
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 915 Width = 915
@ -290,7 +323,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
object pagFormacion: TTabSheet object pagFormacion: TTabSheet
Caption = 'Formaci'#243'n' Caption = 'Formaci'#243'n'
ImageIndex = 2 ImageIndex = 2
ExplicitHeight = 573
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
@ -301,7 +333,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitHeight = 573
object eFormacionBasica: TcxDBMemo object eFormacionBasica: TcxDBMemo
Left = 22 Left = 22
Top = 30 Top = 30
@ -409,7 +440,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
object pagExperiencia: TTabSheet object pagExperiencia: TTabSheet
Caption = 'Experiencia' Caption = 'Experiencia'
ImageIndex = 3 ImageIndex = 3
ExplicitHeight = 573
object dxLayoutControl2: TdxLayoutControl object dxLayoutControl2: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
@ -420,7 +450,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitHeight = 573
object eExperiencia: TcxDBMemo object eExperiencia: TcxDBMemo
Left = 22 Left = 22
Top = 30 Top = 30
@ -466,7 +495,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 564 Top = 564
Width = 929 Width = 929
ExplicitTop = 683 ExplicitTop = 564
ExplicitWidth = 929 ExplicitWidth = 929
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList

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

@ -12,7 +12,7 @@ uses
uIEditorEmpleado, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar, uIEditorEmpleado, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels, uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls, dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls,
uDAInterfaces, uViewContactoListaDatosBancarios; uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto;
type type
TfEditorEmpleado = class(TfEditorContacto, IEditorEmpleado) TfEditorEmpleado = class(TfEditorContacto, IEditorEmpleado)

201
Source/Modulos/Contactos/Views/uEditorPersonal.dfm Normal file
View File

@ -0,0 +1,201 @@
object fEditorPersonal: TfEditorPersonal
Left = 227
Top = 108
ActiveControl = eNombre
BorderStyle = bsDialog
Caption = 'Datos de personal'
ClientHeight = 205
ClientWidth = 527
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
DesignSize = (
527
205)
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 8
Width = 430
Height = 185
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
ExplicitWidth = 329
end
object Label5: TLabel
Left = 20
Top = 27
Width = 110
Height = 13
AutoSize = False
Caption = 'Nombre completo:'
end
object Label6: TLabel
Left = 20
Top = 55
Width = 109
Height = 13
AutoSize = False
Caption = 'Puesto:'
end
object Label7: TLabel
Left = 20
Top = 90
Width = 109
Height = 13
AutoSize = False
Caption = 'Tel'#233'fono:'
end
object Label11: TLabel
Left = 20
Top = 113
Width = 109
Height = 13
AutoSize = False
Caption = 'Movil:'
end
object Label12: TLabel
Left = 20
Top = 137
Width = 109
Height = 13
AutoSize = False
Caption = 'Fax:'
end
object PngSpeedButton3: TPngSpeedButton
Left = 401
Top = 154
Width = 23
Height = 22
Anchors = [akTop, akRight]
OnClick = PngSpeedButton3Click
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001964944415478DA
63FCFFFF3F03232323033A58BCE9F87F647EAC9F258622B05E6C068034873B8A
80D92019C62F8F194C1356339CDF399D91A0014B361FFB1FE6208AA299E1F323
306D52F90CC5100C03566E3DFC3FD04E02A2F9F727064690462066006A66FC02
64FFFAC8603451096E088A01CB361FFDFF8F819981183077D11A86FDAB7B18E1
062CDD7CE27F14573FC3B2EF450CD13E86181ABE7DFFCDF0F5DB6F866FDFFE30
1CB97897218AB38FC1B85B98E1DC8E698C600396000D8861696058FAB7116CC0
94C5FBB0DAEC6CAECF70EED6238668E67AB057500CF8F0E10383A0A0208A0B90
6D06B1BF01D9379E3C67387AFE09C389A37BD15CE06B01B47907434EAC13C3EF
3F7F19662E3F8862BB898606C3EFDFFF1896EF3DCFA0A5C0CD306FE9265403FC
9D20362F5CB71F4CE7C47AA01890D5BC164C7716F980D56018606BAC0656B079
EF2986F82047AC6150DEB785A13CD911AC06C300234D05867DC72F30B8D818E1
8DC2494B0E63F702281075D455884A07576EDEC134404A5480E1DAED07441900
021806F44D5D44B46618801B400900007F4518F05E90AAF20000000049454E44
AE426082}
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
ExplicitLeft = 302
end
object Label8: TLabel
Left = 20
Top = 158
Width = 109
Height = 13
AutoSize = False
Caption = 'Correo electr'#243'nico:'
end
object OKBtn: TButton
Left = 444
Top = 7
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = '&Aceptar'
ModalResult = 1
TabOrder = 0
end
object CancelBtn: TButton
Left = 444
Top = 38
Width = 75
Height = 25
Anchors = [akTop, akRight]
Cancel = True
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 1
OnClick = CancelBtnClick
end
object eNombre: TDBEdit
Left = 135
Top = 24
Width = 290
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'NOMBRE'
DataSource = dsPersonal
TabOrder = 2
end
object ePuesto: TDBEdit
Left = 135
Top = 55
Width = 290
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'PUESTO'
DataSource = dsPersonal
TabOrder = 3
end
object eTelefono: TDBEdit
Left = 135
Top = 87
Width = 290
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'TELEFONO'
DataSource = dsPersonal
TabOrder = 4
end
object eMovil: TDBEdit
Left = 135
Top = 110
Width = 290
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'MOVIL'
DataSource = dsPersonal
TabOrder = 5
end
object eFax: TDBEdit
Left = 135
Top = 132
Width = 290
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'FAX'
DataSource = dsPersonal
TabOrder = 6
end
object eMail: TcxDBHyperLinkEdit
Left = 134
Top = 155
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'EMAIL'
DataBinding.DataSource = dsPersonal
Properties.OnEditValueChanged = eMailPropertiesEditValueChanged
Properties.OnValidate = eMailPropertiesValidate
Properties.Prefix = 'mailto:'
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 261
end
object dsPersonal: TDADataSource
Left = 440
Top = 72
end
end

124
Source/Modulos/Contactos/Views/uEditorPersonal.pas Normal file
View File

@ -0,0 +1,124 @@
unit uEditorPersonal;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton,
cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit,
uPersonalContactoController, uBizContactosPersonal,
uDAInterfaces, uIEditorPersonalContacto;
type
TfEditorPersonal = class(TForm, IEditorPersonalContacto)
OKBtn: TButton;
CancelBtn: TButton;
Bevel1: TBevel;
dsPersonal: TDADataSource;
Label5: TLabel;
eNombre: TDBEdit;
Label6: TLabel;
ePuesto: TDBEdit;
Label7: TLabel;
eTelefono: TDBEdit;
Label11: TLabel;
eMovil: TDBEdit;
Label12: TLabel;
eFax: TDBEdit;
eMail: TcxDBHyperLinkEdit;
PngSpeedButton3: TPngSpeedButton;
Label8: TLabel;
procedure PngSpeedButton3Click(Sender: TObject);
procedure eMailPropertiesEditValueChanged(Sender: TObject);
procedure eMailPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CancelBtnClick(Sender: TObject);
protected
FController : IPersonalContactoController;
FPersonal: IBizContactoPersonal;
function GetController : IPersonalContactoController;
procedure SetController (const Value : IPersonalContactoController);
function GetPersonal: IBizContactoPersonal;
procedure SetPersonal(const Value: IBizContactoPersonal);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Controller : IPersonalContactoController read GetController
write SetController;
property Personal: IBizContactoPersonal read GetPersonal write SetPersonal;
end;
implementation
uses
Variants;
type
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
{$R *.dfm}
{ TfEditorPersonal }
procedure TfEditorPersonal.CancelBtnClick(Sender: TObject);
begin
if FPersonal.DataTable.Editing then
FPersonal.Cancel;
end;
constructor TfEditorPersonal.Create(AOwner: TComponent);
begin
inherited;
FController := NIL;
end;
destructor TfEditorPersonal.Destroy;
begin
FController := NIL;
inherited;
end;
procedure TfEditorPersonal.eMailPropertiesEditValueChanged(Sender: TObject);
begin
if not VarIsNull((Sender as TcxDBHyperLinkEdit).EditValue) then
(Sender as TcxDBHyperLinkEdit).EditValue := StringReplace((Sender as TcxDBHyperLinkEdit).EditValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
end;
procedure TfEditorPersonal.eMailPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
if not VarIsNull(DisplayValue) then
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
end;
function TfEditorPersonal.GetController: IPersonalContactoController;
begin
Result := FController;
end;
function TfEditorPersonal.GetPersonal: IBizContactoPersonal;
begin
Result := FPersonal;
end;
procedure TfEditorPersonal.PngSpeedButton3Click(Sender: TObject);
begin
THackcxDBHyperLinkEdit(eMail).DoStart;
end;
procedure TfEditorPersonal.SetController(
const Value: IPersonalContactoController);
begin
FController := Value;
end;
procedure TfEditorPersonal.SetPersonal(const Value: IBizContactoPersonal);
begin
FPersonal := Value;
if Assigned(FPersonal) then
dsPersonal.DataTable := FPersonal.DataTable
else
dsPersonal.DataTable := NIL;
end;
end.

134
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -1,10 +1,10 @@
inherited fEditorProveedor: TfEditorProveedor inherited fEditorProveedor: TfEditorProveedor
Caption = 'fEditorProveedor' Caption = 'fEditorProveedor'
ClientHeight = 552 ClientHeight = 617
ClientWidth = 839 ClientWidth = 839
ExplicitTop = -15 ExplicitTop = -87
ExplicitWidth = 847 ExplicitWidth = 847
ExplicitHeight = 579 ExplicitHeight = 644
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -58,17 +58,18 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 833 Width = 833
Height = 451 Height = 516
ActivePage = pagGeneral
ExplicitWidth = 833 ExplicitWidth = 833
ExplicitHeight = 564 ExplicitHeight = 451
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 825 ExplicitWidth = 825
ExplicitHeight = 536 ExplicitHeight = 423
inline frViewProveedor1: TfrViewProveedor inline frViewProveedor1: TfrViewProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 825 Width = 825
Height = 423 Height = 488
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -79,36 +80,36 @@ inherited fEditorProveedor: TfEditorProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 825 ExplicitWidth = 825
ExplicitHeight = 536 ExplicitHeight = 423
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 825 Width = 825
Height = 423 Height = 488
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 825 ExplicitWidth = 825
ExplicitHeight = 536 ExplicitHeight = 423
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 764 Left = 780
Top = 218 Top = 218
ExplicitLeft = 764 ExplicitLeft = 780
ExplicitTop = 218 ExplicitTop = 218
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 764 Left = 780
Top = 190 Top = 190
ExplicitLeft = 764 ExplicitLeft = 780
ExplicitTop = 190 ExplicitTop = 190
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 764 Left = 780
Top = 162 Top = 162
ExplicitLeft = 764 ExplicitLeft = 780
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 495 Left = 504
Top = 297 Top = 297
Width = 342 Width = 342
ExplicitLeft = 495 ExplicitLeft = 504
ExplicitTop = 297 ExplicitTop = 297
ExplicitWidth = 342 ExplicitWidth = 342
end end
@ -131,9 +132,9 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 108 Width = 108
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 402 Left = 411
Top = 294 Top = 294
ExplicitLeft = 402 ExplicitLeft = 411
ExplicitTop = 294 ExplicitTop = 294
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
@ -145,9 +146,9 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 580 Width = 580
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 495 Left = 504
Top = 270 Top = 270
ExplicitLeft = 495 ExplicitLeft = 504
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 310 ExplicitWidth = 310
Width = 310 Width = 310
@ -183,33 +184,33 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 221 Width = 221
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 590 Left = 599
Top = 57 Top = 57
ExplicitLeft = 590 ExplicitLeft = 599
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 590 Left = 599
Top = 30 Top = 30
ExplicitLeft = 590 ExplicitLeft = 599
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 590 Left = 599
Top = 84 Top = 84
ExplicitLeft = 590 ExplicitLeft = 599
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 590 Left = 599
Top = 111 Top = 111
ExplicitLeft = 590 ExplicitLeft = 599
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
@ -221,35 +222,41 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 263 Width = 263
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 256 Left = 260
Top = 30 Top = 30
ExplicitLeft = 256 ExplicitLeft = 260
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 254 ExplicitWidth = 254
Width = 254 Width = 254
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 590 Left = 599
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 590 ExplicitLeft = 599
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 590 Left = 599
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 590 ExplicitLeft = 599
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited cxDBCheckBox3: TcxDBCheckBox
Left = 393
Top = 138
ExplicitLeft = 393
ExplicitTop = 138
end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 590 Left = 599
Top = 217 Top = 217
ExplicitLeft = 590 ExplicitLeft = 599
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
@ -271,18 +278,17 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 825 ExplicitWidth = 825
ExplicitHeight = 536 ExplicitHeight = 423
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
Width = 825 Width = 825
Height = 423 Height = 488
ExplicitTop = 0
ExplicitWidth = 825 ExplicitWidth = 825
ExplicitHeight = 536 ExplicitHeight = 423
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 825 Width = 825
Height = 398 Height = 463
ExplicitWidth = 825 ExplicitWidth = 825
ExplicitHeight = 511 ExplicitHeight = 398
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 825 Width = 825
@ -290,10 +296,10 @@ inherited fEditorProveedor: TfEditorProveedor
end end
end end
end end
object pagDatosComerciales: TTabSheet object pagDatosComerciales: TTabSheet [2]
Caption = 'Datos comerciales' Caption = 'Datos comerciales'
ImageIndex = 2 ImageIndex = 2
ExplicitHeight = 536 ExplicitHeight = 423
inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
@ -363,15 +369,15 @@ inherited fEditorProveedor: TfEditorProveedor
end end
end end
end end
object pagDirecciones: TTabSheet object pagDirecciones: TTabSheet [3]
Caption = 'Direcciones' Caption = 'Direcciones'
ImageIndex = 3 ImageIndex = 3
ExplicitHeight = 536 ExplicitHeight = 423
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
Width = 825 Width = 825
Height = 423 Height = 488
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -382,12 +388,12 @@ inherited fEditorProveedor: TfEditorProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 825 ExplicitWidth = 825
ExplicitHeight = 536 ExplicitHeight = 423
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 825 Width = 825
Height = 398 Height = 463
ExplicitWidth = 825 ExplicitWidth = 825
ExplicitHeight = 511 ExplicitHeight = 398
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 825 Width = 825
@ -407,11 +413,31 @@ inherited fEditorProveedor: TfEditorProveedor
end end
end end
end end
inherited pagPersonal: TTabSheet
ExplicitWidth = 825
ExplicitHeight = 423
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 825
Height = 488
ExplicitWidth = 825
ExplicitHeight = 423
inherited cxGrid: TcxGrid
Width = 825
Height = 463
ExplicitWidth = 825
ExplicitHeight = 398
end
inherited ToolBar1: TToolBar
Width = 825
ExplicitWidth = 825
end
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 533 Top = 598
Width = 839 Width = 839
ExplicitTop = 646 ExplicitTop = 533
ExplicitWidth = 839 ExplicitWidth = 839
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList

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

@ -14,7 +14,7 @@ uses
cxSpinEdit, cxDBEdit, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar, cxSpinEdit, cxDBEdit, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos, dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega, uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
uDAInterfaces, uViewContactoListaDatosBancarios; uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto;
type type
TfEditorProveedor = class(TfEditorContacto, IEditorProveedor) TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)

159
Source/Modulos/Contactos/Views/uViewDatosYSeleccionCliente.dfm
View File

@ -166,25 +166,40 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Caption = 'Elegir un cliente' Caption = 'Elegir un cliente'
TabOrder = 0 TabOrder = 0
Glyph.Data = { Glyph.Data = {
42020000424D4202000000000000420000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003 2000000000000004000000000000000000000000000000000000FF00FF00FF00
00001F0000001F7C1F7C1F7C1D74186055547450735054505554365C19641D74 FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
1F7C1F7C1F7C1F7C1F7C9658AA21091A281A481668164816481A091AC9190B29 AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
1A681F7C1F7C1F7C1F7C8C25091A481A68168716A71687166716481A091ACA1D FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
744C1F7C1F7C1F7C1F7CAB25291A6816A716C616E512C612A6166816291AEA19 3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
56581F7C1F7C1F7C1F7C3241291A6716A616C61A2F3FE516C6168716481AAA25 FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
1D741F7C1F7C1F7C1F7C3E78CB296716C616B0425A6BF042C6168716091E7860 2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
1F7C1F7C1F7C1F7C1F7C1F7C3D748F39461E2B56295E0952C51DAC2D5A681F7C FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
1F7C1F7C1F7C1F7C1F7C1F7C1F7C3D782C6A8A6E8A6A696A296253541F7C1F7C 2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
1F7C1F7C1F7C1F7C1F7C1F7C1F7C916DAB6EAB6E8B6E8A6E6A6A6A551D741F7C FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
1F7C1F7C1F7C1F7C1F7C1F7C3D788C6ECC72CC72AC72AB6E8A6E496618601F7C 28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
1F7C1F7C1F7C1F7C1F7C1F7CD874CC72CD76CD76CC72AC728B6E6A6A555C1F7C FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
1F7C1F7C1F7C1F7C1F7C1F7CF770295A09564B5ECD72CC72AB6E8A6A75601F7C 28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
1F7C1F7C1F7C1F7C1F7C1F7C99746A626A62495EE8514A5E6A62E75137601F7C FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
1F7C1F7C1F7C1F7C1F7C1F7C1F7C4D6AAC6E8B6A6A620856E7556A511E781F7C 3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1875EE76CD728B66495EE85558681F7C1F7C FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CF978306E2C668F615A701F7C1F7C1F7C C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
1F7C1F7C1F7C} FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end end
object Button2: TBitBtn object Button2: TBitBtn
Left = 131 Left = 131
@ -195,25 +210,40 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Caption = 'Dar de alta un cliente' Caption = 'Dar de alta un cliente'
TabOrder = 1 TabOrder = 1
Glyph.Data = { Glyph.Data = {
42020000424D4202000000000000420000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003 2000000000000004000000000000000000000000000000000000FF00FF00FF00
00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
1F7C1F7C1F7CFA5A0D190D190D190D190D190D190D190D190D190D190D190D19 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
0D190D190D19FA5ADE77964A964A964A964A964A964A964A964A964A964A964A 3100694731006947310069473100694731006947310069473100694731006947
964A964A0D19FA5A050EA205A205A205A205A205A205050E5C675C673B633B63 3100694731006947310069473100694731006947310069473100D5BFB100F6F2
3B5F964A0D19FA5AAB2A281687168612861267162816A2057C6BD42DD42DD42D EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
D42D964A0D19FA5AF03E48168612661A661A86124716A2059D6F7C6B5C6B5C67 9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
3B63964A0D19FA5AB96789224516AE4A8D46461AA205BD739D6FD42DD42DD42D 1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
D42D964A0D19FA5AFF7F776369526A66496229461557BE77BD739D6F9D6F7C6B CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
5C6B964A0D19FA5AFF7F3477AB6EAB6E8A6E6A66F466DE77BE77BD739D6F9D6F 5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
7C6B964A0D19FA5ADD7FED6ECC72CC72AB6E8A6A6D5EDE7BDE77BE7780018001 D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
8001964A0D19FA5ADD7FCB6A8B6AAC6EAC728B6E0652FF7BDE7B9E3A8001262B 790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
8001964A0D19FA5AFE7F0F6F8A666A666A66285E0652FF7F8001800180016833 DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
800180018001FA5AFF7FB97BCC6E8B6A495E06527873FF7F8001EC4FCB47893F CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
6833472F8001FA5AFF7FFF7FB97B34773477B97BFF7FFF7F800180018001CB47 DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
800180018001FA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5A8001EC4F FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
8001FA5AFA5A1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C80018001 E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
80011F7C1F7C} FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
ED00F2ECE800006000000060000000600000B7A2930069473100D5BFB100E9F6
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
F100F7A073000060000033CB510000600000B7A2930069473100D5BFB100F4FA
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB000060
0000006000000060000040D86500006000000060000000600000D5BFB100FFFF
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF000060
000060F898005AF28F004DE57A0040D865003AD25C0000600000D5BFB100FFFF
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF000060
000000600000006000005AF28F00006000000060000000600000D5BFB100D5BF
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
B100D5BFB1000060000060F8980000600000D5BFB100D5BFB100FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
end end
object Button3: TBitBtn object Button3: TBitBtn
Left = 148 Left = 148
@ -224,25 +254,40 @@ inherited frViewDatosYSeleccionCliente: TfrViewDatosYSeleccionCliente
Caption = 'Ver ficha completa del cliente...' Caption = 'Ver ficha completa del cliente...'
TabOrder = 8 TabOrder = 8
Glyph.Data = { Glyph.Data = {
42020000424D4202000000000000420000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003 2000000000000004000000000000000000000000000000000000FF00FF00FF00
00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
1F7C1F7C1F7CFA5A0D190D190D190D190D190D190D190D190D190D190D190D19 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
0D190D190D19FA5ADE77964A964A964A964A964A964A964A964A964A964A964A 3100694731006947310069473100694731006947310069473100694731006947
964A964A0D19FA5A050EA205A205A205A205A205A205050E5C675C673B633B63 3100694731006947310069473100694731006947310069473100D5BFB100F6F2
3B5F964A0D19FA5AAB2A281687168612861267162816A2057C6BD42DD42DD42D EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
D42D964A0D19FA5AF03E48168612661A661A86124716A2059D6F7C6B5C6B5C67 9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
3B63964A0D19FA5AB96789224516AE4A8D46461AA205BD739D6FD42DD42DD42D 1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
D42D964A0D19FA5AFF7F776369526A66496229461557BE77BD739D6F9D6F7C6B CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
5C6B964A0D19FA5AFF7F3477AB6EAB6E8A6E6A66F466DE77BE77BD739D6F9D6F 5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
7C6B964A0D19FA5ADD7FED6ECC72CC72AB6E8A6A6D5EDE7BDE77BE77BD739D6F D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
9D6F964A0D19FA5ADD7FCB6A8B6AAC6EAC728B6E0652FF7BDE7B9E3A9E3A9E3A 790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
9E3A964A0D19FA5AFE7F0F6F8A666A666A66285E0652FF7FFF7BDE7BDE77BE77 DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
BD73964A0D19FA5AFF7FB97BCC6E8B6A495E06527873FF7FFF7F9E3A9E3A9E3A CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
9E3A964A0D19FA5AFF7FFF7FB97B34773477B97BFF7FFF7FFF7FFF7FFF7FDF7B DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
DE77BE770D19FA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5AFA5A FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
FA5AFA5AFA5A1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
1F7C1F7C1F7C} FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
ED00F2ECE800EFE8E300EDE4DF00EAE0DA00B7A2930069473100D5BFB100E9F6
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
F100F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100F4FA
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB00FAF8
F600F7F4F100F5F0ED00F2ECE800EFE8E300B7A2930069473100D5BFB100FFFF
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF00FDFC
FB00F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100FFFF
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF00FFFF
FF00FEFEFD00FCFAF900F9F6F400F6F2EF00F3EEEA0069473100D5BFB100D5BF
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False

110
Source/Modulos/Contactos/Views/uViewDatosYSeleccionProveedor.pas
View File

@ -22,6 +22,10 @@ type
procedure SetProveedor(Value: IBizProveedor); procedure SetProveedor(Value: IBizProveedor);
property Proveedor: IBizProveedor read GetProveedor write SetProveedor; property Proveedor: IBizProveedor read GetProveedor write SetProveedor;
function GetID_Proveedor: integer;
procedure SetID_Proveedor(const Value: integer);
property ID_Proveedor: integer read GetID_Proveedor write SetID_Proveedor;
function GetOnProveedorChanged : TNotifyEvent; function GetOnProveedorChanged : TNotifyEvent;
procedure SetOnProveedorChanged (const Value : TNotifyEvent); procedure SetOnProveedorChanged (const Value : TNotifyEvent);
property OnProveedorChanged : TNotifyEvent read GetOnProveedorChanged property OnProveedorChanged : TNotifyEvent read GetOnProveedorChanged
@ -81,12 +85,19 @@ type
function GetMsgElegirProveedor: String; function GetMsgElegirProveedor: String;
procedure SetMsgElegirProveedor(const Value: String); procedure SetMsgElegirProveedor(const Value: String);
procedure SetReadOnly(Value: Boolean); override; procedure SetReadOnly(Value: Boolean); override;
function GetID_Proveedor: integer;
procedure SetID_Proveedor(const Value: integer);
procedure ElegirProveedorInternal; virtual;
procedure VerFichaProveedorInternal; virtual;
procedure NuevoProveedorInternal; virtual;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property MsgElegirProveedor : String read GetMsgElegirProveedor write SetMsgElegirProveedor; property MsgElegirProveedor : String read GetMsgElegirProveedor write SetMsgElegirProveedor;
property Controller: IProveedoresController read GetController write SetController; property Controller: IProveedoresController read GetController write SetController;
property Proveedor: IBizProveedor read GetProveedor write SetProveedor; property Proveedor: IBizProveedor read GetProveedor write SetProveedor;
property ID_Proveedor: integer read GetID_Proveedor write SetID_Proveedor;
property OnProveedorChanged : TNotifyEvent read GetOnProveedorChanged write SetOnProveedorChanged; property OnProveedorChanged : TNotifyEvent read GetOnProveedorChanged write SetOnProveedorChanged;
end; end;
@ -98,6 +109,44 @@ uses
uDataModuleProveedores, Math; uDataModuleProveedores, Math;
procedure TfrViewDatosYSeleccionProveedor.actElegirContactoExecute(Sender: TObject); procedure TfrViewDatosYSeleccionProveedor.actElegirContactoExecute(Sender: TObject);
begin
inherited;
ElegirProveedorInternal;
end;
procedure TfrViewDatosYSeleccionProveedor.actAnadirContactoExecute(
Sender: TObject);
begin
inherited;
NuevoProveedorInternal
end;
procedure TfrViewDatosYSeleccionProveedor.actVerContactoExecute(Sender: TObject);
begin
inherited;
VerFichaProveedorInternal;
end;
procedure TfrViewDatosYSeleccionProveedor.actVerContactoUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (Length(edtlNombre.Text) > 0);
end;
constructor TfrViewDatosYSeleccionProveedor.Create(AOwner: TComponent);
begin
inherited;
FMsgElegirProveedor := '';
FController := NIL;
end;
destructor TfrViewDatosYSeleccionProveedor.Destroy;
begin
FController := NIL;
inherited;
end;
procedure TfrViewDatosYSeleccionProveedor.ElegirProveedorInternal;
var var
AProveedor : IBizProveedor; AProveedor : IBizProveedor;
begin begin
@ -117,45 +166,35 @@ begin
end; end;
end; end;
procedure TfrViewDatosYSeleccionProveedor.actAnadirContactoExecute(
Sender: TObject);
var
AProveedor : IBizProveedor;
begin
inherited;
AProveedor := (FController.Nuevo as IBizProveedor);
FController.Ver(AProveedor);
Proveedor := AProveedor;
end;
procedure TfrViewDatosYSeleccionProveedor.actVerContactoExecute(Sender: TObject);
begin
inherited;
FController.Ver(Proveedor);
end;
procedure TfrViewDatosYSeleccionProveedor.actVerContactoUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (Length(edtlNombre.Text) > 0);
end;
constructor TfrViewDatosYSeleccionProveedor.Create(AOwner: TComponent);
begin
inherited;
FMsgElegirProveedor := '';
end;
function TfrViewDatosYSeleccionProveedor.GetProveedor: IBizProveedor; function TfrViewDatosYSeleccionProveedor.GetProveedor: IBizProveedor;
begin begin
Result := FProveedor; Result := FProveedor;
end; end;
procedure TfrViewDatosYSeleccionProveedor.NuevoProveedorInternal;
var
AProveedor : IBizProveedor;
begin
inherited;
AProveedor := (Controller.Nuevo as IBizProveedor);
Controller.Ver(AProveedor);
Proveedor := AProveedor;
end;
function TfrViewDatosYSeleccionProveedor.GetController: IProveedoresController; function TfrViewDatosYSeleccionProveedor.GetController: IProveedoresController;
begin begin
if not Assigned(FController) then
FController := TProveedoresController.Create;
Result := FController; Result := FController;
end; end;
function TfrViewDatosYSeleccionProveedor.GetID_Proveedor: integer;
begin
Result := -1;
if Assigned(FProveedor) then
Result := FProveedor.ID;
end;
function TfrViewDatosYSeleccionProveedor.GetMsgElegirProveedor: String; function TfrViewDatosYSeleccionProveedor.GetMsgElegirProveedor: String;
begin begin
Result := FMsgElegirProveedor; Result := FMsgElegirProveedor;
@ -188,11 +227,24 @@ begin
end; end;
end; end;
procedure TfrViewDatosYSeleccionProveedor.VerFichaProveedorInternal;
begin
Controller.Ver(Proveedor);
end;
procedure TfrViewDatosYSeleccionProveedor.SetController(Value: IProveedoresController); procedure TfrViewDatosYSeleccionProveedor.SetController(Value: IProveedoresController);
begin begin
if Assigned(FController) then
FController := NIL;
FController := Value; FController := Value;
end; end;
procedure TfrViewDatosYSeleccionProveedor.SetID_Proveedor(const Value: integer);
begin
Self.Proveedor := IBizProveedor(Controller.Buscar(Value));
end;
procedure TfrViewDatosYSeleccionProveedor.SetMsgElegirProveedor( procedure TfrViewDatosYSeleccionProveedor.SetMsgElegirProveedor(
const Value: String); const Value: String);
begin begin

88
Source/Modulos/Contactos/Views/uViewPersonalContacto.dfm Normal file
View File

@ -0,0 +1,88 @@
inherited frViewPersonalContacto: TfrViewPersonalContacto
Width = 583
Height = 464
ExplicitWidth = 583
ExplicitHeight = 464
inherited cxGrid: TcxGrid
Width = 583
Height = 439
ExplicitWidth = 583
ExplicitHeight = 439
inherited cxGridView: TcxGridDBTableView
OnDblClick = cxGridViewDblClick
OptionsData.Appending = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre'
DataBinding.FieldName = 'NOMBRE'
PropertiesClassName = 'TcxTextEditProperties'
Width = 88
end
object cxGridViewPUESTO: TcxGridDBColumn
Caption = 'Puesto'
DataBinding.FieldName = 'PUESTO'
PropertiesClassName = 'TcxTextEditProperties'
Width = 128
end
object cxGridViewTELEFONO: TcxGridDBColumn
Caption = 'Tel'#233'fono'
DataBinding.FieldName = 'TELEFONO'
PropertiesClassName = 'TcxTextEditProperties'
Width = 54
end
object cxGridViewMOVIL: TcxGridDBColumn
Caption = 'M'#243'vil'
DataBinding.FieldName = 'MOVIL'
PropertiesClassName = 'TcxTextEditProperties'
Width = 54
end
object cxGridViewFAX: TcxGridDBColumn
Caption = 'Fax'
DataBinding.FieldName = 'FAX'
PropertiesClassName = 'TcxTextEditProperties'
Width = 54
end
object cxGridViewEMAIL: TcxGridDBColumn
Caption = 'E-Mail'
DataBinding.FieldName = 'EMAIL'
PropertiesClassName = 'TcxTextEditProperties'
Width = 50
end
end
end
inherited ToolBar1: TToolBar
Width = 583
ExplicitWidth = 583
inherited ToolButton1: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 74
end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 67
end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 117
end
end
end

73
Source/Modulos/Contactos/Views/uViewPersonalContacto.pas Normal file
View File

@ -0,0 +1,73 @@
unit uViewPersonalContacto;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
uDADataTable, Grids, DBGrids, ActnList, ImgList, PngImageList, ComCtrls,
ToolWin, cxGridDBTableView, uViewDetallesGenerico,
uDAInterfaces, StdCtrls;
type
TfrViewPersonalContacto = class(TfrViewDetallesGenerico)
cxGridViewNOMBRE: TcxGridDBColumn;
cxGridViewPUESTO: TcxGridDBColumn;
cxGridViewTELEFONO: TcxGridDBColumn;
cxGridViewMOVIL: TcxGridDBColumn;
cxGridViewFAX: TcxGridDBColumn;
cxGridViewEMAIL: TcxGridDBColumn;
procedure cxGridViewDblClick(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
protected
procedure AnadirInterno; override;
procedure ModificarInterno; override;
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses
uDialogUtils, uPersonalContactoController, uBizContactosPersonal;
procedure TfrViewPersonalContacto.actEliminarExecute(Sender: TObject);
begin
if (ShowConfirmMessage('Eliminar un contacto de personal', '¿Desea eliminar este contacto de personal?') = IDYES) then
inherited;
end;
procedure TfrViewPersonalContacto.AnadirInterno;
begin
inherited;
try
with TPersonalContactoController.Create do
Ver((dsDetalles.DataTable) as IBizContactoPersonal);
finally
if (dsDetalles.DataTable.State in dsEditModes) then
dsDetalles.DataTable.Post;
end;
end;
procedure TfrViewPersonalContacto.cxGridViewDblClick(Sender: TObject);
begin
inherited;
actModificar.Execute;
end;
procedure TfrViewPersonalContacto.ModificarInterno;
begin
inherited;
with TPersonalContactoController.Create do
Ver((dsDetalles.DataTable) as IBizContactoPersonal);
end;
end.

121
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -23,7 +23,7 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitLeft = 738 ExplicitLeft = 738
end end
object Label1: TLabel [3] object Label1: TLabel [3]
Left = 438 Left = 446
Top = 307 Top = 307
Width = 342 Width = 342
Height = 26 Height = 26
@ -35,7 +35,7 @@ inherited frViewProveedor: TfrViewProveedor
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 134 Left = 134
Top = 277 Top = 277
TabOrder = 8 TabOrder = 9
ExplicitLeft = 134 ExplicitLeft = 134
ExplicitTop = 277 ExplicitTop = 277
ExplicitWidth = 264 ExplicitWidth = 264
@ -44,7 +44,7 @@ inherited frViewProveedor: TfrViewProveedor
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Left = 134 Left = 134
Top = 331 Top = 331
TabOrder = 11 TabOrder = 12
ExplicitLeft = 134 ExplicitLeft = 134
ExplicitTop = 331 ExplicitTop = 331
ExplicitWidth = 264 ExplicitWidth = 264
@ -53,28 +53,28 @@ inherited frViewProveedor: TfrViewProveedor
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Left = 134 Left = 134
Top = 304 Top = 304
TabOrder = 9 TabOrder = 10
ExplicitLeft = 134 ExplicitLeft = 134
ExplicitTop = 304 ExplicitTop = 304
ExplicitWidth = 163 ExplicitWidth = 163
Width = 163 Width = 163
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 343 Left = 351
Top = 304 Top = 304
TabOrder = 10 TabOrder = 11
ExplicitLeft = 343 ExplicitLeft = 351
ExplicitTop = 304 ExplicitTop = 304
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 415 Top = 415
TabOrder = 21 TabOrder = 22
ExplicitTop = 415 ExplicitTop = 415
ExplicitHeight = 20 ExplicitHeight = 20
Height = 20 Height = 20
end end
object cxDBCheckBox1: TcxDBCheckBox [9] object cxDBCheckBox1: TcxDBCheckBox [9]
Left = 438 Left = 446
Top = 280 Top = 280
Caption = 'Incluir este proveedor en la tienda web' Caption = 'Incluir este proveedor en la tienda web'
DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataField = 'TIENDA_WEB'
@ -95,8 +95,8 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 20 TabOrder = 21
Width = 310 Width = 236
end end
object cxDBCheckBox2: TcxDBCheckBox [10] object cxDBCheckBox2: TcxDBCheckBox [10]
Left = 22 Left = 22
@ -119,7 +119,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Width = 326 Width = 326
end end
object eCertificaciones: TcxDBTextEdit [11] object eCertificaciones: TcxDBTextEdit [11]
@ -138,7 +138,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 8
Width = 227 Width = 227
end end
object cbGrupoProveedor: TcxDBComboBox [12] object cbGrupoProveedor: TcxDBComboBox [12]
@ -207,30 +207,30 @@ inherited frViewProveedor: TfrViewProveedor
Width = 221 Width = 221
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 533 Left = 541
TabOrder = 14 TabOrder = 15
ExplicitLeft = 533 ExplicitLeft = 541
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 533 Left = 541
TabOrder = 13 TabOrder = 14
ExplicitLeft = 533 ExplicitLeft = 541
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 533 Left = 541
TabOrder = 15 TabOrder = 16
ExplicitLeft = 533 ExplicitLeft = 541
ExplicitWidth = 155 ExplicitWidth = 155
Width = 155 Width = 155
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 533 Left = 541
TabOrder = 16 TabOrder = 17
ExplicitLeft = 533 ExplicitLeft = 541
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
@ -241,31 +241,31 @@ inherited frViewProveedor: TfrViewProveedor
Width = 221 Width = 221
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 217 Left = 220
ExplicitLeft = 217 ExplicitLeft = 220
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 533 Left = 541
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 17 TabOrder = 18
ExplicitLeft = 533 ExplicitLeft = 541
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 533 Left = 541
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 18 TabOrder = 19
ExplicitLeft = 533 ExplicitLeft = 541
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 533 Left = 541
TabOrder = 19 TabOrder = 20
ExplicitLeft = 533 ExplicitLeft = 541
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
end end
@ -278,12 +278,36 @@ inherited frViewProveedor: TfrViewProveedor
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 134 Left = 134
Top = 358 Top = 358
TabOrder = 12 TabOrder = 13
ExplicitLeft = 134 ExplicitLeft = 134
ExplicitTop = 358 ExplicitTop = 358
ExplicitWidth = 256 ExplicitWidth = 256
Width = 256 Width = 256
end end
object cxDBCheckBox3: TcxDBCheckBox [26]
Left = 333
Top = 136
Caption = 'Subcontrata'
DataBinding.DataField = 'SUBCONTRATA'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 83
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -298,10 +322,25 @@ inherited frViewProveedor: TfrViewProveedor
Control = eCodigoAsignado Control = eCodigoAsignado
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem20: TdxLayoutItem object dxLayoutControlContactoGroup15: TdxLayoutGroup
Caption = 'Grupo de proveedor' ShowCaption = False
Control = cbGrupoProveedor Hidden = True
ControlOptions.ShowBorder = False LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControlContactoItem20: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Grupo de proveedor'
Control = cbGrupoProveedor
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem26: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = cxDBCheckBox3
ControlOptions.ShowBorder = False
end
end end
end end
object dxLayoutControlContactoGroup14: TdxLayoutGroup [1] object dxLayoutControlContactoGroup14: TdxLayoutGroup [1]

3
Source/Modulos/Contactos/Views/uViewProveedor.pas
View File

@ -32,6 +32,9 @@ type
cbDescripcionProveedor: TcxDBComboBox; cbDescripcionProveedor: TcxDBComboBox;
dxLayoutControlContactoItem24: TdxLayoutItem; dxLayoutControlContactoItem24: TdxLayoutItem;
eCodigoAsignado: TcxDBTextEdit; eCodigoAsignado: TcxDBTextEdit;
dxLayoutControlContactoItem26: TdxLayoutItem;
cxDBCheckBox3: TcxDBCheckBox;
dxLayoutControlContactoGroup15: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbGrupoProveedorPropertiesInitPopup(Sender: TObject); procedure cbGrupoProveedorPropertiesInitPopup(Sender: TObject);

13
Source/Modulos/Obras/Data/uDataModuleObras.dfm
View File

@ -122,6 +122,19 @@ inherited DataModuleObras: TDataModuleObras
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Obras_NOMBRE_CLIENTE' DictionaryEntry = 'Obras_NOMBRE_CLIENTE'
end end
item
Name = 'ID_SUBCONTRATA'
DataType = datInteger
DisplayLabel = 'Obras_ID_SUBCONTRATA'
DictionaryEntry = 'Obras_ID_SUBCONTRATA'
end
item
Name = 'NOMBRE_SUBCONTRATA'
DataType = datString
Size = 255
DisplayLabel = 'Subcontrata'
DictionaryEntry = 'Obras_NOMBRE_SUBCONTRATA'
end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime

3
Source/Modulos/Obras/Model/Obras_model.dpk
View File

@ -31,6 +31,7 @@ requires
contains contains
uBizObras in 'uBizObras.pas', uBizObras in 'uBizObras.pas',
uIDataModuleObras in 'Data\uIDataModuleObras.pas', uIDataModuleObras in 'Data\uIDataModuleObras.pas',
schObrasClient_Intf in 'schObrasClient_Intf.pas'; schObrasClient_Intf in 'schObrasClient_Intf.pas',
schObrasServer_Intf in 'schObrasServer_Intf.pas';
end. end.

3
Source/Modulos/Obras/Model/Obras_model.dproj
View File

@ -42,7 +42,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Obras_model.dpk</Source></Source><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Obras_model.dpk</Source></Source><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\applet100.bpl">CodeGear Control Panel Applet Package</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\applet100.bpl">CodeGear Control Panel Applet Package</Excluded_Packages>
</Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
@ -55,10 +54,10 @@
<DCCReference Include="Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="Data\uIDataModuleObras.pas" /> <DCCReference Include="Data\uIDataModuleObras.pas" />
<DCCReference Include="schObrasClient_Intf.pas" /> <DCCReference Include="schObrasClient_Intf.pas" />
<DCCReference Include="schObrasServer_Intf.pas" />
<DCCReference Include="uBizObras.pas" /> <DCCReference Include="uBizObras.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6011 EurekaLog Version=6011

80
Source/Modulos/Obras/Model/schObrasClient_Intf.pas
View File

@ -9,7 +9,7 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Obras = '{1DB0B399-5E0C-4F09-93D6-0774AEAD4B8D}'; RID_Obras = '{CCB7D10C-3660-4703-987A-0EBE16DB0AB8}';
{ Data table names } { Data table names }
nme_Obras = 'Obras'; nme_Obras = 'Obras';
@ -29,6 +29,8 @@ const
fld_ObrasOBSERVACIONES = 'OBSERVACIONES'; fld_ObrasOBSERVACIONES = 'OBSERVACIONES';
fld_ObrasID_CLIENTE = 'ID_CLIENTE'; fld_ObrasID_CLIENTE = 'ID_CLIENTE';
fld_ObrasNOMBRE_CLIENTE = 'NOMBRE_CLIENTE'; fld_ObrasNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
fld_ObrasID_SUBCONTRATA = 'ID_SUBCONTRATA';
fld_ObrasNOMBRE_SUBCONTRATA = 'NOMBRE_SUBCONTRATA';
fld_ObrasFECHA_ALTA = 'FECHA_ALTA'; fld_ObrasFECHA_ALTA = 'FECHA_ALTA';
fld_ObrasFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_ObrasFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ObrasUSUARIO = 'USUARIO'; fld_ObrasUSUARIO = 'USUARIO';
@ -48,14 +50,16 @@ const
idx_ObrasOBSERVACIONES = 11; idx_ObrasOBSERVACIONES = 11;
idx_ObrasID_CLIENTE = 12; idx_ObrasID_CLIENTE = 12;
idx_ObrasNOMBRE_CLIENTE = 13; idx_ObrasNOMBRE_CLIENTE = 13;
idx_ObrasFECHA_ALTA = 14; idx_ObrasID_SUBCONTRATA = 14;
idx_ObrasFECHA_MODIFICACION = 15; idx_ObrasNOMBRE_SUBCONTRATA = 15;
idx_ObrasUSUARIO = 16; idx_ObrasFECHA_ALTA = 16;
idx_ObrasFECHA_MODIFICACION = 17;
idx_ObrasUSUARIO = 18;
type type
{ IObras } { IObras }
IObras = interface(IDAStronglyTypedDataTable) IObras = interface(IDAStronglyTypedDataTable)
['{6CBD823A-08C6-412B-9484-9D7E22FE3939}'] ['{AEBE7430-B1DA-45EC-AD12-02499BF04C0C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -112,6 +116,14 @@ type
procedure SetNOMBRE_CLIENTEValue(const aValue: String); procedure SetNOMBRE_CLIENTEValue(const aValue: String);
function GetNOMBRE_CLIENTEIsNull: Boolean; function GetNOMBRE_CLIENTEIsNull: Boolean;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
function GetID_SUBCONTRATAValue: Integer;
procedure SetID_SUBCONTRATAValue(const aValue: Integer);
function GetID_SUBCONTRATAIsNull: Boolean;
procedure SetID_SUBCONTRATAIsNull(const aValue: Boolean);
function GetNOMBRE_SUBCONTRATAValue: String;
procedure SetNOMBRE_SUBCONTRATAValue(const aValue: String);
function GetNOMBRE_SUBCONTRATAIsNull: Boolean;
procedure SetNOMBRE_SUBCONTRATAIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime; function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime); procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean; function GetFECHA_ALTAIsNull: Boolean;
@ -155,6 +167,10 @@ type
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property ID_SUBCONTRATA: Integer read GetID_SUBCONTRATAValue write SetID_SUBCONTRATAValue;
property ID_SUBCONTRATAIsNull: Boolean read GetID_SUBCONTRATAIsNull write SetID_SUBCONTRATAIsNull;
property NOMBRE_SUBCONTRATA: String read GetNOMBRE_SUBCONTRATAValue write SetNOMBRE_SUBCONTRATAValue;
property NOMBRE_SUBCONTRATAIsNull: Boolean read GetNOMBRE_SUBCONTRATAIsNull write SetNOMBRE_SUBCONTRATAIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -225,6 +241,14 @@ type
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
function GetNOMBRE_CLIENTEIsNull: Boolean; virtual; function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_SUBCONTRATAValue: Integer; virtual;
procedure SetID_SUBCONTRATAValue(const aValue: Integer); virtual;
function GetID_SUBCONTRATAIsNull: Boolean; virtual;
procedure SetID_SUBCONTRATAIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_SUBCONTRATAValue: String; virtual;
procedure SetNOMBRE_SUBCONTRATAValue(const aValue: String); virtual;
function GetNOMBRE_SUBCONTRATAIsNull: Boolean; virtual;
procedure SetNOMBRE_SUBCONTRATAIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
@ -267,6 +291,10 @@ type
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property ID_SUBCONTRATA: Integer read GetID_SUBCONTRATAValue write SetID_SUBCONTRATAValue;
property ID_SUBCONTRATAIsNull: Boolean read GetID_SUBCONTRATAIsNull write SetID_SUBCONTRATAIsNull;
property NOMBRE_SUBCONTRATA: String read GetNOMBRE_SUBCONTRATAValue write SetNOMBRE_SUBCONTRATAValue;
property NOMBRE_SUBCONTRATAIsNull: Boolean read GetNOMBRE_SUBCONTRATAIsNull write SetNOMBRE_SUBCONTRATAIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -596,6 +624,48 @@ begin
DataTable.Fields[idx_ObrasNOMBRE_CLIENTE].AsVariant := Null; DataTable.Fields[idx_ObrasNOMBRE_CLIENTE].AsVariant := Null;
end; end;
function TObrasDataTableRules.GetID_SUBCONTRATAValue: Integer;
begin
result := DataTable.Fields[idx_ObrasID_SUBCONTRATA].AsInteger;
end;
procedure TObrasDataTableRules.SetID_SUBCONTRATAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ObrasID_SUBCONTRATA].AsInteger := aValue;
end;
function TObrasDataTableRules.GetID_SUBCONTRATAIsNull: boolean;
begin
result := DataTable.Fields[idx_ObrasID_SUBCONTRATA].IsNull;
end;
procedure TObrasDataTableRules.SetID_SUBCONTRATAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ObrasID_SUBCONTRATA].AsVariant := Null;
end;
function TObrasDataTableRules.GetNOMBRE_SUBCONTRATAValue: String;
begin
result := DataTable.Fields[idx_ObrasNOMBRE_SUBCONTRATA].AsString;
end;
procedure TObrasDataTableRules.SetNOMBRE_SUBCONTRATAValue(const aValue: String);
begin
DataTable.Fields[idx_ObrasNOMBRE_SUBCONTRATA].AsString := aValue;
end;
function TObrasDataTableRules.GetNOMBRE_SUBCONTRATAIsNull: boolean;
begin
result := DataTable.Fields[idx_ObrasNOMBRE_SUBCONTRATA].IsNull;
end;
procedure TObrasDataTableRules.SetNOMBRE_SUBCONTRATAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ObrasNOMBRE_SUBCONTRATA].AsVariant := Null;
end;
function TObrasDataTableRules.GetFECHA_ALTAValue: DateTime; function TObrasDataTableRules.GetFECHA_ALTAValue: DateTime;
begin begin
result := DataTable.Fields[idx_ObrasFECHA_ALTA].AsDateTime; result := DataTable.Fields[idx_ObrasFECHA_ALTA].AsDateTime;

90
Source/Modulos/Obras/Model/schObrasServer_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ObrasDelta = '{F492DD9C-B7CF-4C27-8901-850D71F32744}'; RID_ObrasDelta = '{F9AE7533-AB09-4DE5-BAC9-97D14691072A}';
type type
{ IObrasDelta } { IObrasDelta }
IObrasDelta = interface(IObras) IObrasDelta = interface(IObras)
['{F492DD9C-B7CF-4C27-8901-850D71F32744}'] ['{F9AE7533-AB09-4DE5-BAC9-97D14691072A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -30,6 +30,8 @@ type
function GetOldOBSERVACIONESValue : IROStrings; function GetOldOBSERVACIONESValue : IROStrings;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_CLIENTEValue : String;
function GetOldID_SUBCONTRATAValue : Integer;
function GetOldNOMBRE_SUBCONTRATAValue : String;
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
@ -49,6 +51,8 @@ type
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldID_SUBCONTRATA : Integer read GetOldID_SUBCONTRATAValue;
property OldNOMBRE_SUBCONTRATA : String read GetOldNOMBRE_SUBCONTRATAValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
@ -144,6 +148,18 @@ type
function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual; function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_SUBCONTRATAValue: Integer; virtual;
function GetID_SUBCONTRATAIsNull: Boolean; virtual;
function GetOldID_SUBCONTRATAValue: Integer; virtual;
function GetOldID_SUBCONTRATAIsNull: Boolean; virtual;
procedure SetID_SUBCONTRATAValue(const aValue: Integer); virtual;
procedure SetID_SUBCONTRATAIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_SUBCONTRATAValue: String; virtual;
function GetNOMBRE_SUBCONTRATAIsNull: Boolean; virtual;
function GetOldNOMBRE_SUBCONTRATAValue: String; virtual;
function GetOldNOMBRE_SUBCONTRATAIsNull: Boolean; virtual;
procedure SetNOMBRE_SUBCONTRATAValue(const aValue: String); virtual;
procedure SetNOMBRE_SUBCONTRATAIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual;
@ -220,6 +236,14 @@ type
property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull; property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull;
property ID_SUBCONTRATA : Integer read GetID_SUBCONTRATAValue write SetID_SUBCONTRATAValue;
property ID_SUBCONTRATAIsNull : Boolean read GetID_SUBCONTRATAIsNull write SetID_SUBCONTRATAIsNull;
property OldID_SUBCONTRATA : Integer read GetOldID_SUBCONTRATAValue;
property OldID_SUBCONTRATAIsNull : Boolean read GetOldID_SUBCONTRATAIsNull;
property NOMBRE_SUBCONTRATA : String read GetNOMBRE_SUBCONTRATAValue write SetNOMBRE_SUBCONTRATAValue;
property NOMBRE_SUBCONTRATAIsNull : Boolean read GetNOMBRE_SUBCONTRATAIsNull write SetNOMBRE_SUBCONTRATAIsNull;
property OldNOMBRE_SUBCONTRATA : String read GetOldNOMBRE_SUBCONTRATAValue;
property OldNOMBRE_SUBCONTRATAIsNull : Boolean read GetOldNOMBRE_SUBCONTRATAIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@ -697,6 +721,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_CLIENTE] := Null;
end; end;
function TObrasBusinessProcessorRules.GetID_SUBCONTRATAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_SUBCONTRATA];
end;
function TObrasBusinessProcessorRules.GetID_SUBCONTRATAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_SUBCONTRATA]);
end;
function TObrasBusinessProcessorRules.GetOldID_SUBCONTRATAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasID_SUBCONTRATA];
end;
function TObrasBusinessProcessorRules.GetOldID_SUBCONTRATAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasID_SUBCONTRATA]);
end;
procedure TObrasBusinessProcessorRules.SetID_SUBCONTRATAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_SUBCONTRATA] := aValue;
end;
procedure TObrasBusinessProcessorRules.SetID_SUBCONTRATAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasID_SUBCONTRATA] := Null;
end;
function TObrasBusinessProcessorRules.GetNOMBRE_SUBCONTRATAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_SUBCONTRATA];
end;
function TObrasBusinessProcessorRules.GetNOMBRE_SUBCONTRATAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_SUBCONTRATA]);
end;
function TObrasBusinessProcessorRules.GetOldNOMBRE_SUBCONTRATAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasNOMBRE_SUBCONTRATA];
end;
function TObrasBusinessProcessorRules.GetOldNOMBRE_SUBCONTRATAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasNOMBRE_SUBCONTRATA]);
end;
procedure TObrasBusinessProcessorRules.SetNOMBRE_SUBCONTRATAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_SUBCONTRATA] := aValue;
end;
procedure TObrasBusinessProcessorRules.SetNOMBRE_SUBCONTRATAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasNOMBRE_SUBCONTRATA] := Null;
end;
function TObrasBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; function TObrasBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasFECHA_ALTA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasFECHA_ALTA];

53
Source/Modulos/Obras/Servidor/srvObras_Impl.dfm
View File

@ -113,6 +113,16 @@ object srvObras: TsrvObras
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Cliente' DisplayLabel = 'Cliente'
end
item
Name = 'Obras_ID_SUBCONTRATA'
DataType = datInteger
end
item
Name = 'Obras_NOMBRE_SUBCONTRATA'
DataType = datString
Size = 255
DisplayLabel = 'Subcontrata'
end> end>
Left = 150 Left = 150
Top = 22 Top = 22
@ -197,6 +207,14 @@ object srvObras: TsrvObras
item item
DatasetField = 'USUARIO' DatasetField = 'USUARIO'
TableField = 'USUARIO' TableField = 'USUARIO'
end
item
DatasetField = 'ID_SUBCONTRATA'
TableField = 'ID_SUBCONTRATA'
end
item
DatasetField = 'NOMBRE_SUBCONTRATA'
TableField = 'NOMBRE_SUBCONTRATA'
end> end>
end> end>
Name = 'Obras' Name = 'Obras'
@ -284,6 +302,17 @@ object srvObras: TsrvObras
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Obras_NOMBRE_CLIENTE' DictionaryEntry = 'Obras_NOMBRE_CLIENTE'
end end
item
Name = 'ID_SUBCONTRATA'
DataType = datInteger
DictionaryEntry = 'Obras_ID_SUBCONTRATA'
end
item
Name = 'NOMBRE_SUBCONTRATA'
DataType = datString
Size = 255
DictionaryEntry = 'Obras_NOMBRE_SUBCONTRATA'
end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
@ -356,6 +385,10 @@ object srvObras: TsrvObras
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
Value = '' Value = ''
end end
item
Name = 'ID_SUBCONTRATA'
Value = ''
end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
Value = '' Value = ''
@ -372,11 +405,11 @@ object srvObras: TsrvObras
SQL = SQL =
'INSERT'#10' INTO OBRAS'#10' (ID, ID_EMPRESA, NOMBRE, CALLE, PROVINCI' + 'INSERT'#10' INTO OBRAS'#10' (ID, ID_EMPRESA, NOMBRE, CALLE, PROVINCI' +
'A, POBLACION, CODIGO_POSTAL,'#10' TELEFONO, MOVIL, FAX, PERSONA_' + 'A, POBLACION, CODIGO_POSTAL,'#10' TELEFONO, MOVIL, FAX, PERSONA_' +
'CONTACTO, OBSERVACIONES, '#10' ID_CLIENTE, FECHA_ALTA,'#10' USUA' + 'CONTACTO, OBSERVACIONES, '#10' ID_CLIENTE, ID_SUBCONTRATA, FECHA' +
'RIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :NOMBRE, :CALLE, :PROVINCIA' + '_ALTA,'#10' USUARIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :NOMBRE, :C' +
', :POBLACION,'#10' :CODIGO_POSTAL, :TELEFONO, :MOVIL, :FAX, :PER' + 'ALLE, :PROVINCIA, :POBLACION,'#10' :CODIGO_POSTAL, :TELEFONO, :M' +
'SONA_CONTACTO, '#10' :OBSERVACIONES, :ID_CLIENTE, CURRENT_DATE,'#10 + 'OVIL, :FAX, :PERSONA_CONTACTO, '#10' :OBSERVACIONES, :ID_CLIENTE' +
' :USUARIO)'#10 ', :ID_SUBCONTRATA, CURRENT_DATE,'#10' :USUARIO)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -401,6 +434,10 @@ object srvObras: TsrvObras
end end
item item
Params = < Params = <
item
Name = 'ID_SUBCONTRATA'
Value = ''
end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
Value = '' Value = ''
@ -472,9 +509,9 @@ object srvObras: TsrvObras
'POBLACION = :POBLACION, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' ' + 'POBLACION = :POBLACION, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' ' +
' TELEFONO = :TELEFONO, '#10' MOVIL = :MOVIL, '#10' FAX = :FAX, '#10' ' + ' TELEFONO = :TELEFONO, '#10' MOVIL = :MOVIL, '#10' FAX = :FAX, '#10' ' +
' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' OBSERVACIONES = :O' + ' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' OBSERVACIONES = :O' +
'BSERVACIONES, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' FECHA_MODIFICA' + 'BSERVACIONES, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ID_SUBCONTRATA' +
'CION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO'#10' WHERE'#10' (' + ' = :ID_SUBCONTRATA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION' +
'ID = :OLD_ID)'#10 ','#10' USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

8
Source/Modulos/Obras/Views/Obras_view.dpk
View File

@ -25,9 +25,11 @@ package Obras_view;
{$IMPLICITBUILD ON} {$IMPLICITBUILD ON}
requires requires
Base,
GUIBase,
ApplicationBase,
Obras_controller, Obras_controller,
Obras_model, Obras_model,
ApplicationBase,
Contactos_view; Contactos_view;
contains contains
@ -36,6 +38,8 @@ contains
uEditorObras in 'uEditorObras.pas' {fEditorObras: TfEditorObras}, uEditorObras in 'uEditorObras.pas' {fEditorObras: TfEditorObras},
uObrasViewRegister in 'uObrasViewRegister.pas', uObrasViewRegister in 'uObrasViewRegister.pas',
uEditorObra in 'uEditorObra.pas' {fEditorObra: TfEditorObra}, uEditorObra in 'uEditorObra.pas' {fEditorObra: TfEditorObra},
uEditorListaObras in 'uEditorListaObras.pas' {fEditorListaObras: TfListaObras}; uEditorListaObras in 'uEditorListaObras.pas' {fEditorListaObras: TfListaObras},
uViewSubcontrataObra in 'uViewSubcontrataObra.pas' {frViewSubcontrataObra: TFrame},
uViewClienteAsociadoObra in 'uViewClienteAsociadoObra.pas' {frViewClienteAsociadoObra: T};
end. end.

21
Source/Modulos/Obras/Views/Obras_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{09ecb9ec-6de2-404d-984b-cc7d73caea9a}</ProjectGuid> <ProjectGuid>{09ecb9ec-6de2-404d-984b-cc7d73caea9a}</ProjectGuid>
<MainSource>Obras_view.dpk</MainSource> <MainSource>Obras_view.dpk</MainSource>
@ -46,10 +47,12 @@
<DelphiCompile Include="Obras_view.dpk"> <DelphiCompile Include="Obras_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\Obras_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\Obras_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_model.dcp" />
<DCCReference Include="uEditorListaObras.pas"> <DCCReference Include="uEditorListaObras.pas">
<Form>fEditorListaObras</Form> <Form>fEditorListaObras</Form>
<DesignClass>TfListaObras</DesignClass> <DesignClass>TfListaObras</DesignClass>
@ -63,6 +66,10 @@
<DesignClass>TfEditorObras</DesignClass> <DesignClass>TfEditorObras</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uObrasViewRegister.pas" /> <DCCReference Include="uObrasViewRegister.pas" />
<DCCReference Include="uViewClienteAsociadoObra.pas">
<Form>frViewClienteAsociadoObra</Form>
<DesignClass>T</DesignClass>
</DCCReference>
<DCCReference Include="uViewObra.pas"> <DCCReference Include="uViewObra.pas">
<Form>frViewObra</Form> <Form>frViewObra</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
@ -71,6 +78,10 @@
<Form>frViewObras</Form> <Form>frViewObras</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewSubcontrataObra.pas">
<Form>frViewSubcontrataObra</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

74
Source/Modulos/Obras/Views/uViewClienteAsociadoObra.dfm Normal file
View File

@ -0,0 +1,74 @@
inherited frViewClienteAsociadoObra: TfrViewClienteAsociadoObra
Width = 420
Height = 247
ExplicitWidth = 420
ExplicitHeight = 247
inherited dxLayoutControl1: TdxLayoutControl
Width = 420
Height = 247
ExplicitWidth = 518
ExplicitHeight = 219
inherited edtNIFCIF: TcxDBTextEdit
Top = 99
TabOrder = 4
ExplicitTop = 99
end
inherited edtCalle: TcxDBTextEdit
Top = 126
TabOrder = 5
ExplicitTop = 126
end
inherited edtPoblacion: TcxDBTextEdit
Top = 153
TabOrder = 6
ExplicitTop = 153
end
inherited edtProvincia: TcxDBTextEdit
Top = 180
TabOrder = 8
ExplicitTop = 180
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 328
Top = 153
TabOrder = 7
ExplicitLeft = 328
ExplicitTop = 153
end
inherited Button3: TBitBtn
Left = 218
Top = 68
TabOrder = 3
ExplicitLeft = 218
ExplicitTop = 68
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item9: TdxLayoutItem [2]
end
inherited dxLayoutControl1Item2: TdxLayoutItem [3]
Visible = False
end
inherited dxLayoutControl1Item3: TdxLayoutItem [4]
Visible = False
end
inherited dxLayoutControl1Group2: TdxLayoutGroup [5]
Visible = False
end
inherited dxLayoutControl1Item5: TdxLayoutItem [6]
Visible = False
end
end
end
inherited DADataSource: TDADataSource
Left = 280
Top = 8
end
inherited ActionList1: TActionList
Left = 312
Top = 8
end
inherited PngImageList: TPngImageList
Left = 344
Top = 8
end
end

24
Source/Modulos/Obras/Views/uViewClienteAsociadoObra.pas Normal file
View File

@ -0,0 +1,24 @@
unit uViewClienteAsociadoObra;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
cxEdit, cxTextEdit, cxDBEdit, cxControls;
type
TfrViewClienteAsociadoObra = class(TfrViewDatosYSeleccionCliente)
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
end.

245
Source/Modulos/Obras/Views/uViewObra.dfm
View File

@ -1,6 +1,6 @@
inherited frViewObra: TfrViewObra inherited frViewObra: TfrViewObra
Width = 634 Width = 838
Height = 449 Height = 585
Align = alClient Align = alClient
AutoSize = True AutoSize = True
ExplicitWidth = 451 ExplicitWidth = 451
@ -8,8 +8,8 @@ inherited frViewObra: TfrViewObra
object dxLayoutControlObra: TdxLayoutControl object dxLayoutControlObra: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 634 Width = 838
Height = 449 Height = 585
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -17,11 +17,11 @@ inherited frViewObra: TfrViewObra
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
DesignSize = ( DesignSize = (
634 838
449) 585)
object eNombre: TcxDBTextEdit object eNombre: TcxDBTextEdit
Left = 130 Left = 130
Top = 28 Top = 34
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE' DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -39,7 +39,7 @@ inherited frViewObra: TfrViewObra
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 130 Left = 130
Top = 55 Top = 61
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -55,7 +55,7 @@ inherited frViewObra: TfrViewObra
end end
object eTlfTelefono: TcxDBTextEdit object eTlfTelefono: TcxDBTextEdit
Left = 130 Left = 130
Top = 193 Top = 199
DataBinding.DataField = 'TELEFONO' DataBinding.DataField = 'TELEFONO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -70,7 +70,7 @@ inherited frViewObra: TfrViewObra
end end
object eTlfMovil: TcxDBTextEdit object eTlfMovil: TcxDBTextEdit
Left = 130 Left = 130
Top = 220 Top = 226
DataBinding.DataField = 'MOVIL' DataBinding.DataField = 'MOVIL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -85,7 +85,7 @@ inherited frViewObra: TfrViewObra
end end
object eFax: TcxDBTextEdit object eFax: TcxDBTextEdit
Left = 130 Left = 130
Top = 247 Top = 253
DataBinding.DataField = 'FAX' DataBinding.DataField = 'FAX'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -100,7 +100,7 @@ inherited frViewObra: TfrViewObra
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 130 Left = 130
Top = 112 Top = 118
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -119,7 +119,7 @@ inherited frViewObra: TfrViewObra
end end
object ePoblacion: TcxDBTextEdit object ePoblacion: TcxDBTextEdit
Left = 130 Left = 130
Top = 139 Top = 145
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -137,8 +137,8 @@ inherited frViewObra: TfrViewObra
Width = 177 Width = 177
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 276 Left = 333
Top = 139 Top = 145
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -157,7 +157,7 @@ inherited frViewObra: TfrViewObra
end end
object eProvincia: TcxDBTextEdit object eProvincia: TcxDBTextEdit
Left = 130 Left = 130
Top = 166 Top = 172
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -174,56 +174,9 @@ inherited frViewObra: TfrViewObra
TabOrder = 5 TabOrder = 5
Width = 278 Width = 278
end end
inline frViewDatosYSeleccionCliente1: TfrViewDatosYSeleccionCliente
Left = 347
Top = 28
Width = 350
Height = 212
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
ReadOnly = False
ExplicitLeft = 347
ExplicitTop = 28
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 170
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 192
ExplicitLeft = 192
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
end
end
end
object eObservaciones: TcxDBMemo object eObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 304 Top = 355
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -237,14 +190,143 @@ inherited frViewObra: TfrViewObra
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 11
Height = 86 Height = 86
Width = 630 Width = 630
end end
inline frViewSubcontrataObra1: TfrViewSubcontrataObra
Left = 424
Top = 169
Width = 409
Height = 150
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 10
ReadOnly = False
ExplicitLeft = 424
ExplicitTop = 169
ExplicitWidth = 409
ExplicitHeight = 150
inherited dxLayoutControl1: TdxLayoutControl
Width = 409
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 300
ExplicitLeft = 300
end
inherited Button3: TBitBtn
Left = 159
ExplicitLeft = 159
end
inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 585
Width = 585
end
inherited edtReferenciaAsignada: TcxDBTextEdit
Left = 261
ExplicitLeft = 261
end
inherited edtTlf: TcxDBTextEdit
ExplicitWidth = 169
Width = 169
end
end
inherited DADataSource: TDADataSource
Left = 240
Top = 16
end
inherited ActionList1: TActionList
Left = 264
Top = 16
end
inherited PngImageList: TPngImageList
Left = 296
Top = 16
end
end
inline frViewClienteAsociadoObra1: TfrViewClienteAsociadoObra
Left = 424
Top = 34
Width = 392
Height = 99
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 9
ReadOnly = False
ExplicitLeft = 424
ExplicitTop = 34
ExplicitWidth = 392
ExplicitHeight = 99
inherited dxLayoutControl1: TdxLayoutControl
Width = 392
Height = 99
ExplicitWidth = 420
ExplicitHeight = 247
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 284
ExplicitLeft = 284
end
inherited Button3: TBitBtn
Left = 174
ExplicitLeft = 174
end
end
end
object dxLayoutControlObraGroup_Root: TdxLayoutGroup object dxLayoutControlObraGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlObraItem12: TdxLayoutItem
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControlObraGroup2: TdxLayoutGroup object dxLayoutControlObraGroup2: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -325,16 +407,31 @@ inherited frViewObra: TfrViewObra
end end
end end
end end
object dxLayoutControlObraGroup7: TdxLayoutGroup object dxLayoutControlObraGroup10: TdxLayoutGroup
AutoAligns = [] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Cliente asociado' ShowCaption = False
object dxLayoutControlObraItem8: TdxLayoutItem Hidden = True
Caption = 'New Item' ShowBorder = False
ShowCaption = False object dxLayoutControlObraGroup7: TdxLayoutGroup
Control = frViewDatosYSeleccionCliente1 AutoAligns = []
ControlOptions.AutoColor = True AlignHorz = ahClient
ControlOptions.ShowBorder = False Caption = 'Cliente asociado'
object dxLayoutControlObraItem13: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False
Control = frViewClienteAsociadoObra1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlObraGroup9: TdxLayoutGroup
Caption = 'Subcontrata'
object dxLayoutControlObraItem8: TdxLayoutItem
Control = frViewSubcontrataObra1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end end
end end
end end

37
Source/Modulos/Obras/Views/uViewObra.pas
View File

@ -7,7 +7,8 @@ uses
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable, Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
DBCtrls, Grids, DBGrids, uBizObras, Mask, ComCtrls, uCustomView, DBCtrls, Grids, DBGrids, uBizObras, Mask, ComCtrls, uCustomView,
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, uDAInterfaces, uViewDatosYSeleccionCliente, cxMemo; cxDBEdit, dxLayoutControl, uDAInterfaces, uViewDatosYSeleccionCliente, cxMemo,
uViewDatosYSeleccionProveedor, uViewSubcontrataObra, uViewClienteAsociadoObra;
type type
IViewObra = interface(IViewBase) IViewObra = interface(IViewBase)
@ -43,19 +44,25 @@ type
dxLayoutControlObraItem9: TdxLayoutItem; dxLayoutControlObraItem9: TdxLayoutItem;
dxLayoutControlObraGroup6: TdxLayoutGroup; dxLayoutControlObraGroup6: TdxLayoutGroup;
eProvincia: TcxDBTextEdit; eProvincia: TcxDBTextEdit;
frViewDatosYSeleccionCliente1: TfrViewDatosYSeleccionCliente;
dxLayoutControlObraGroup7: TdxLayoutGroup; dxLayoutControlObraGroup7: TdxLayoutGroup;
dxLayoutControlObraItem8: TdxLayoutItem;
dxLayoutControlObraGroup4: TdxLayoutGroup; dxLayoutControlObraGroup4: TdxLayoutGroup;
dxLayoutControlObraItem11: TdxLayoutItem; dxLayoutControlObraItem11: TdxLayoutItem;
eObservaciones: TcxDBMemo; eObservaciones: TcxDBMemo;
dxLayoutControlObraGroup2: TdxLayoutGroup; dxLayoutControlObraGroup2: TdxLayoutGroup;
dxLayoutControlObraGroup8: TdxLayoutGroup; dxLayoutControlObraGroup8: TdxLayoutGroup;
dxLayoutControlObraGroup9: TdxLayoutGroup;
dxLayoutControlObraGroup10: TdxLayoutGroup;
dxLayoutControlObraItem8: TdxLayoutItem;
frViewSubcontrataObra1: TfrViewSubcontrataObra;
frViewClienteAsociadoObra1: TfrViewClienteAsociadoObra;
dxLayoutControlObraItem12: TdxLayoutItem;
dxLayoutControlObraItem13: TdxLayoutItem;
protected protected
FObra: IBizObra; FObra: IBizObra;
function GetObra: IBizObra; function GetObra: IBizObra;
procedure SetObra(const Value: IBizObra); procedure SetObra(const Value: IBizObra);
procedure OnClienteChanged(Sender : TObject); procedure OnClienteChanged(Sender : TObject);
procedure OnSubcontrataChanged(Sender : TObject);
public public
property Obra: IBizObra read GetObra write SetObra; property Obra: IBizObra read GetObra write SetObra;
end; end;
@ -82,21 +89,37 @@ begin
if Assigned(FObra) then if Assigned(FObra) then
begin begin
FObra.Edit; FObra.Edit;
FObra.ID_CLIENTE := frViewDatosYSeleccionCliente1.ID_Cliente; FObra.ID_CLIENTE := frViewClienteAsociadoObra1.ID_Cliente;
end;
end;
procedure TfrViewObra.OnSubcontrataChanged(Sender: TObject);
begin
if Assigned(FObra) then
begin
FObra.Edit;
FObra.ID_SUBCONTRATA := frViewSubcontrataObra1.ID_Proveedor;
end; end;
end; end;
procedure TfrViewObra.SetObra(const Value: IBizObra); procedure TfrViewObra.SetObra(const Value: IBizObra);
begin begin
FObra := Value; FObra := Value;
frViewDatosYSeleccionCliente1.OnClienteChanged := NIL; frViewClienteAsociadoObra1.OnClienteChanged := NIL;
frViewSubcontrataObra1.OnProveedorChanged := NIL;
if Assigned(FObra) then if Assigned(FObra) then
begin begin
DADataSource.DataTable := FObra.DataTable; DADataSource.DataTable := FObra.DataTable;
if not FObra.ID_CLIENTEIsNull then if not FObra.ID_CLIENTEIsNull then
frViewDatosYSeleccionCliente1.ID_Cliente := FObra.ID_CLIENTE; frViewClienteAsociadoObra1.ID_Cliente := FObra.ID_CLIENTE;
frViewDatosYSeleccionCliente1.OnClienteChanged := OnClienteChanged; if not FObra.ID_SUBCONTRATAIsNull then
frViewSubcontrataObra1.ID_Proveedor := FObra.ID_SUBCONTRATA;
frViewClienteAsociadoObra1.OnClienteChanged := OnClienteChanged;
frViewSubcontrataObra1.OnProveedorChanged := OnSubcontrataChanged;
end end
else else
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;

195
Source/Modulos/Obras/Views/uViewSubcontrataObra.dfm Normal file
View File

@ -0,0 +1,195 @@
inherited frViewSubcontrataObra: TfrViewSubcontrataObra
Width = 473
Height = 287
ExplicitWidth = 473
ExplicitHeight = 287
inherited dxLayoutControl1: TdxLayoutControl
Width = 473
Height = 273
ExplicitWidth = 473
ExplicitHeight = 273
DesignSize = (
473
273)
inherited edtlNombre: TcxDBTextEdit
Left = 118
ExplicitLeft = 118
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 118
Top = 153
TabOrder = 7
ExplicitLeft = 118
ExplicitTop = 153
end
inherited edtCalle: TcxDBTextEdit
Left = 118
Top = 180
TabOrder = 8
ExplicitLeft = 118
ExplicitTop = 180
end
inherited edtPoblacion: TcxDBTextEdit
Left = 118
Top = 207
TabOrder = 9
ExplicitLeft = 118
ExplicitTop = 207
end
inherited edtProvincia: TcxDBTextEdit
Left = 118
Top = 234
TabOrder = 11
ExplicitLeft = 118
ExplicitTop = 234
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 381
Top = 207
TabOrder = 10
ExplicitLeft = 381
ExplicitTop = 207
end
inherited Button1: TBitBtn
Caption = 'Elegir subcontrata'
end
inherited Button3: TBitBtn
Left = 240
Top = 122
Width = 223
Caption = 'Ver ficha completa de la subcontrata...'
TabOrder = 6
ExplicitLeft = 240
ExplicitTop = 122
ExplicitWidth = 223
end
object edtPersonaContacto: TcxDBTextEdit [9]
Left = 118
Top = 95
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Height = 21
Width = 585
end
object edtReferenciaAsignada: TcxDBTextEdit [10]
Left = 342
Top = 68
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'CODIGO_ASIGNADO'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Height = 21
Width = 121
end
object edtTlf: TcxDBTextEdit [11]
Left = 118
Top = 68
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Height = 21
Width = 169
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
object dxLayoutControl1Group4: TdxLayoutGroup [2]
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Tel'#233'fono:'
Control = edtTlf
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item11: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'C'#243'd. cliente:'
Control = edtReferenciaAsignada
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item10: TdxLayoutItem [3]
Caption = 'Persona de contacto:'
Control = edtPersonaContacto
ControlOptions.ShowBorder = False
end
inherited dxLayoutControl1Item9: TdxLayoutItem [4]
end
inherited dxLayoutControl1Item2: TdxLayoutItem [5]
Visible = False
end
inherited dxLayoutControl1Item3: TdxLayoutItem [6]
Visible = False
end
inherited dxLayoutControl1Group2: TdxLayoutGroup [7]
Visible = False
end
inherited dxLayoutControl1Item5: TdxLayoutItem [8]
Visible = False
end
end
end
inherited DADataSource: TDADataSource
Left = 288
Top = 8
end
inherited ActionList1: TActionList
Left = 320
Top = 8
inherited actElegirContacto: TAction
Caption = 'Elegir subcontrata'
end
inherited actVerContacto: TAction
Caption = 'Ver ficha completa de la subcontrata...'
end
end
inherited PngImageList: TPngImageList
Left = 352
Top = 8
end
end

57
Source/Modulos/Obras/Views/uViewSubcontrataObra.pas Normal file
View File

@ -0,0 +1,57 @@
unit uViewSubcontrataObra;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
cxEdit, cxTextEdit, cxDBEdit, cxControls;
type
TfrViewSubcontrataObra = class(TfrViewDatosYSeleccionProveedor)
dxLayoutControl1Item10: TdxLayoutItem;
edtPersonaContacto: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem;
edtReferenciaAsignada: TcxDBTextEdit;
dxLayoutControl1Item13: TdxLayoutItem;
edtTlf: TcxDBTextEdit;
dxLayoutControl1Group4: TdxLayoutGroup;
protected
procedure ElegirProveedorInternal; override;
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses
uBizContactos;
{ TfrViewSubcontrataObra }
procedure TfrViewSubcontrataObra.ElegirProveedorInternal;
var
AProveedor : IBizProveedor;
begin
// inherited; <- No llamar al padre
MsgElegirProveedor := ' ';
AProveedor := (Controller.ElegirContacto(Controller.BuscarSubcontratas,
MsgElegirProveedor, False) as IBizProveedor);
if Assigned(AProveedor) then
begin
Self.Update;
ShowHourglassCursor;
try
Proveedor := AProveedor;
finally
HideHourglassCursor;
end;
end;
end;
end.

BIN
Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.cfg Normal file
View File

Binary file not shown.

2
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -324,7 +324,7 @@ begin
if (EsFechaVacia(APedido.FECHA_PEDIDO)) then if (EsFechaVacia(APedido.FECHA_PEDIDO)) then
raise Exception.Create('Debe indicar la fecha de este pedido'); raise Exception.Create('Debe indicar la fecha de este pedido');
if (Length(APedido.CALLE) = 0) and (APedido.ID_ALMACEN = 0) then if (Length(APedido.CALLE) = 0) and (APedido.ID_ALMACEN = 0) and (APedido.ID_OBRA = 0) then
raise Exception.Create('Debe indicar una dirección de entrega o almacén para este pedido'); raise Exception.Create('Debe indicar una dirección de entrega o almacén para este pedido');
if (APedido.Detalles.DataTable.RecordCount = 0) then if (APedido.Detalles.DataTable.RecordCount = 0) then

17
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -58,12 +58,14 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_REFERENCIA'
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Situaci'#243'n' DisplayLabel = 'Situaci'#243'n'
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_SITUACION' DictionaryEntry = 'PedidosProveedor_SITUACION'
end end
item item
@ -101,8 +103,23 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Almac'#233'n' DisplayLabel = 'Almac'#233'n'
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN' DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
end end
item
Name = 'ID_OBRA'
DataType = datInteger
DisplayLabel = 'PedidosProveedor_ID_OBRA'
DictionaryEntry = 'PedidosProveedor_ID_OBRA'
end
item
Name = 'NOMBRE_OBRA'
DataType = datString
Size = 255
DisplayLabel = 'Obra'
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE_OBRA'
end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo

163
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedor = '{2F38A1ED-3A7F-46F7-B320-466FB2BB4214}'; RID_PedidosProveedor = '{1CF81156-64C1-4FFB-9BA8-4A2F34CF3BB2}';
RID_PedidosProveedor_Detalles = '{32CF76F8-6744-4027-A852-5378F5D96C95}'; RID_PedidosProveedor_Detalles = '{E983623D-377F-457F-B248-BC3FE9E581B1}';
RID_PedidosProveedor_Articulos_Pendientes = '{276A7DCD-86B0-4816-A798-6DBDCFDE5152}'; RID_PedidosProveedor_Articulos_Pendientes = '{0948DD42-EC15-48E7-A5A4-0F3DF630BDEF}';
{ Data table names } { Data table names }
nme_PedidosProveedor = 'PedidosProveedor'; nme_PedidosProveedor = 'PedidosProveedor';
@ -31,6 +31,8 @@ const
fld_PedidosProveedorFECHA_ENTREGA = 'FECHA_ENTREGA'; fld_PedidosProveedorFECHA_ENTREGA = 'FECHA_ENTREGA';
fld_PedidosProveedorID_ALMACEN = 'ID_ALMACEN'; fld_PedidosProveedorID_ALMACEN = 'ID_ALMACEN';
fld_PedidosProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; fld_PedidosProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_PedidosProveedorID_OBRA = 'ID_OBRA';
fld_PedidosProveedorNOMBRE_OBRA = 'NOMBRE_OBRA';
fld_PedidosProveedorOBSERVACIONES = 'OBSERVACIONES'; fld_PedidosProveedorOBSERVACIONES = 'OBSERVACIONES';
fld_PedidosProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_PedidosProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PedidosProveedorINCIDENCIAS = 'INCIDENCIAS'; fld_PedidosProveedorINCIDENCIAS = 'INCIDENCIAS';
@ -68,29 +70,31 @@ const
idx_PedidosProveedorFECHA_ENTREGA = 9; idx_PedidosProveedorFECHA_ENTREGA = 9;
idx_PedidosProveedorID_ALMACEN = 10; idx_PedidosProveedorID_ALMACEN = 10;
idx_PedidosProveedorNOMBRE_ALMACEN = 11; idx_PedidosProveedorNOMBRE_ALMACEN = 11;
idx_PedidosProveedorOBSERVACIONES = 12; idx_PedidosProveedorID_OBRA = 12;
idx_PedidosProveedorIMPORTE_TOTAL = 13; idx_PedidosProveedorNOMBRE_OBRA = 13;
idx_PedidosProveedorINCIDENCIAS = 14; idx_PedidosProveedorOBSERVACIONES = 14;
idx_PedidosProveedorINCIDENCIAS_ACTIVAS = 15; idx_PedidosProveedorIMPORTE_TOTAL = 15;
idx_PedidosProveedorCALLE = 16; idx_PedidosProveedorINCIDENCIAS = 16;
idx_PedidosProveedorPOBLACION = 17; idx_PedidosProveedorINCIDENCIAS_ACTIVAS = 17;
idx_PedidosProveedorPROVINCIA = 18; idx_PedidosProveedorCALLE = 18;
idx_PedidosProveedorCODIGO_POSTAL = 19; idx_PedidosProveedorPOBLACION = 19;
idx_PedidosProveedorPERSONA_CONTACTO = 20; idx_PedidosProveedorPROVINCIA = 20;
idx_PedidosProveedorTELEFONO = 21; idx_PedidosProveedorCODIGO_POSTAL = 21;
idx_PedidosProveedorFECHA_ALTA = 22; idx_PedidosProveedorPERSONA_CONTACTO = 22;
idx_PedidosProveedorFECHA_MODIFICACION = 23; idx_PedidosProveedorTELEFONO = 23;
idx_PedidosProveedorUSUARIO = 24; idx_PedidosProveedorFECHA_ALTA = 24;
idx_PedidosProveedorID_PEDIDO_CLIENTE = 25; idx_PedidosProveedorFECHA_MODIFICACION = 25;
idx_PedidosProveedorREF_PED_CLIENTE = 26; idx_PedidosProveedorUSUARIO = 26;
idx_PedidosProveedorIMPORTE_NETO = 27; idx_PedidosProveedorID_PEDIDO_CLIENTE = 27;
idx_PedidosProveedorIMPORTE_PORTE = 28; idx_PedidosProveedorREF_PED_CLIENTE = 28;
idx_PedidosProveedorDESCUENTO = 29; idx_PedidosProveedorIMPORTE_NETO = 29;
idx_PedidosProveedorIMPORTE_DESCUENTO = 30; idx_PedidosProveedorIMPORTE_PORTE = 30;
idx_PedidosProveedorBASE_IMPONIBLE = 31; idx_PedidosProveedorDESCUENTO = 31;
idx_PedidosProveedorIVA = 32; idx_PedidosProveedorIMPORTE_DESCUENTO = 32;
idx_PedidosProveedorIMPORTE_IVA = 33; idx_PedidosProveedorBASE_IMPONIBLE = 33;
idx_PedidosProveedorID_FORMA_PAGO = 34; idx_PedidosProveedorIVA = 34;
idx_PedidosProveedorIMPORTE_IVA = 35;
idx_PedidosProveedorID_FORMA_PAGO = 36;
{ PedidosProveedor_Detalles fields } { PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID'; fld_PedidosProveedor_DetallesID = 'ID';
@ -108,6 +112,7 @@ const
fld_PedidosProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_PedidosProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_PedidosProveedor_DetallesREFERENCIA = 'REFERENCIA'; fld_PedidosProveedor_DetallesREFERENCIA = 'REFERENCIA';
fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_PedidosProveedor_DetallesREFERENCIA_FABRICANTE = 'REFERENCIA_FABRICANTE';
{ PedidosProveedor_Detalles field indexes } { PedidosProveedor_Detalles field indexes }
idx_PedidosProveedor_DetallesID = 0; idx_PedidosProveedor_DetallesID = 0;
@ -125,6 +130,7 @@ const
idx_PedidosProveedor_DetallesIMPORTE_PORTE = 12; idx_PedidosProveedor_DetallesIMPORTE_PORTE = 12;
idx_PedidosProveedor_DetallesREFERENCIA = 13; idx_PedidosProveedor_DetallesREFERENCIA = 13;
idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 14; idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
idx_PedidosProveedor_DetallesREFERENCIA_FABRICANTE = 15;
{ PedidosProveedor_Articulos_Pendientes fields } { PedidosProveedor_Articulos_Pendientes fields }
fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO'; fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO';
@ -145,7 +151,7 @@ const
type type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{333644C7-E17E-4FD7-BFD1-3078A5D13F1E}'] ['{C489C7DC-C83D-4A64-94D5-ADA513CD2C1E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -195,6 +201,14 @@ type
procedure SetNOMBRE_ALMACENValue(const aValue: String); procedure SetNOMBRE_ALMACENValue(const aValue: String);
function GetNOMBRE_ALMACENIsNull: Boolean; function GetNOMBRE_ALMACENIsNull: Boolean;
procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
function GetID_OBRAValue: Integer;
procedure SetID_OBRAValue(const aValue: Integer);
function GetID_OBRAIsNull: Boolean;
procedure SetID_OBRAIsNull(const aValue: Boolean);
function GetNOMBRE_OBRAValue: String;
procedure SetNOMBRE_OBRAValue(const aValue: String);
function GetNOMBRE_OBRAIsNull: Boolean;
procedure SetNOMBRE_OBRAIsNull(const aValue: Boolean);
function GetOBSERVACIONESValue: IROStrings; function GetOBSERVACIONESValue: IROStrings;
function GetOBSERVACIONESIsNull: Boolean; function GetOBSERVACIONESIsNull: Boolean;
procedure SetOBSERVACIONESIsNull(const aValue: Boolean); procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
@ -312,6 +326,10 @@ type
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
property ID_OBRA: Integer read GetID_OBRAValue write SetID_OBRAValue;
property ID_OBRAIsNull: Boolean read GetID_OBRAIsNull write SetID_OBRAIsNull;
property NOMBRE_OBRA: String read GetNOMBRE_OBRAValue write SetNOMBRE_OBRAValue;
property NOMBRE_OBRAIsNull: Boolean read GetNOMBRE_OBRAIsNull write SetNOMBRE_OBRAIsNull;
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
@ -417,6 +435,14 @@ type
procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual; procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
function GetNOMBRE_ALMACENIsNull: Boolean; virtual; function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual;
function GetID_OBRAValue: Integer; virtual;
procedure SetID_OBRAValue(const aValue: Integer); virtual;
function GetID_OBRAIsNull: Boolean; virtual;
procedure SetID_OBRAIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_OBRAValue: String; virtual;
procedure SetNOMBRE_OBRAValue(const aValue: String); virtual;
function GetNOMBRE_OBRAIsNull: Boolean; virtual;
procedure SetNOMBRE_OBRAIsNull(const aValue: Boolean); virtual;
function GetOBSERVACIONESValue: IROStrings; virtual; function GetOBSERVACIONESValue: IROStrings; virtual;
function GetOBSERVACIONESIsNull: Boolean; virtual; function GetOBSERVACIONESIsNull: Boolean; virtual;
procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
@ -533,6 +559,10 @@ type
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
property ID_OBRA: Integer read GetID_OBRAValue write SetID_OBRAValue;
property ID_OBRAIsNull: Boolean read GetID_OBRAIsNull write SetID_OBRAIsNull;
property NOMBRE_OBRA: String read GetNOMBRE_OBRAValue write SetNOMBRE_OBRAValue;
property NOMBRE_OBRAIsNull: Boolean read GetNOMBRE_OBRAIsNull write SetNOMBRE_OBRAIsNull;
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
@ -588,7 +618,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{109F0849-4B0E-4D32-BF3F-F6449B8D2CE5}'] ['{7E0C0A15-D909-4826-AE8E-7B10A4E20F96}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -650,6 +680,10 @@ type
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetREFERENCIA_PROVEEDORIsNull: Boolean; function GetREFERENCIA_PROVEEDORIsNull: Boolean;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
function GetREFERENCIA_FABRICANTEValue: String;
procedure SetREFERENCIA_FABRICANTEValue(const aValue: String);
function GetREFERENCIA_FABRICANTEIsNull: Boolean;
procedure SetREFERENCIA_FABRICANTEIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -683,6 +717,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property REFERENCIA_FABRICANTE: String read GetREFERENCIA_FABRICANTEValue write SetREFERENCIA_FABRICANTEValue;
property REFERENCIA_FABRICANTEIsNull: Boolean read GetREFERENCIA_FABRICANTEIsNull write SetREFERENCIA_FABRICANTEIsNull;
end; end;
{ TPedidosProveedor_DetallesDataTableRules } { TPedidosProveedor_DetallesDataTableRules }
@ -750,6 +786,10 @@ type
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FABRICANTEValue: String; virtual;
procedure SetREFERENCIA_FABRICANTEValue(const aValue: String); virtual;
function GetREFERENCIA_FABRICANTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRICANTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -782,6 +822,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property REFERENCIA_FABRICANTE: String read GetREFERENCIA_FABRICANTEValue write SetREFERENCIA_FABRICANTEValue;
property REFERENCIA_FABRICANTEIsNull: Boolean read GetREFERENCIA_FABRICANTEIsNull write SetREFERENCIA_FABRICANTEIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -791,7 +833,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes } { IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{0C6DE081-242A-4ADF-99BE-2AFE45A142B1}'] ['{F29B11FD-AB7A-4A83-AE4D-5C8BD44D8D38}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1171,6 +1213,48 @@ begin
DataTable.Fields[idx_PedidosProveedorNOMBRE_ALMACEN].AsVariant := Null; DataTable.Fields[idx_PedidosProveedorNOMBRE_ALMACEN].AsVariant := Null;
end; end;
function TPedidosProveedorDataTableRules.GetID_OBRAValue: Integer;
begin
result := DataTable.Fields[idx_PedidosProveedorID_OBRA].AsInteger;
end;
procedure TPedidosProveedorDataTableRules.SetID_OBRAValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosProveedorID_OBRA].AsInteger := aValue;
end;
function TPedidosProveedorDataTableRules.GetID_OBRAIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorID_OBRA].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetID_OBRAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorID_OBRA].AsVariant := Null;
end;
function TPedidosProveedorDataTableRules.GetNOMBRE_OBRAValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedorNOMBRE_OBRA].AsString;
end;
procedure TPedidosProveedorDataTableRules.SetNOMBRE_OBRAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedorNOMBRE_OBRA].AsString := aValue;
end;
function TPedidosProveedorDataTableRules.GetNOMBRE_OBRAIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorNOMBRE_OBRA].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetNOMBRE_OBRAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorNOMBRE_OBRA].AsVariant := Null;
end;
function TPedidosProveedorDataTableRules.GetOBSERVACIONESValue: IROStrings; function TPedidosProveedorDataTableRules.GetOBSERVACIONESValue: IROStrings;
begin begin
result := f_OBSERVACIONES; result := f_OBSERVACIONES;
@ -1973,6 +2057,27 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null;
end; end;
function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIA_FABRICANTEValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_FABRICANTE].AsString;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIA_FABRICANTEValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_FABRICANTE].AsString := aValue;
end;
function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIA_FABRICANTEIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_FABRICANTE].IsNull;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIA_FABRICANTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_FABRICANTE].AsVariant := Null;
end;
{ TPedidosProveedor_Articulos_PendientesDataTableRules } { TPedidosProveedor_Articulos_PendientesDataTableRules }
constructor TPedidosProveedor_Articulos_PendientesDataTableRules.Create(aDataTable: TDADataTable); constructor TPedidosProveedor_Articulos_PendientesDataTableRules.Create(aDataTable: TDADataTable);

141
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_PedidosProveedorDelta = '{E6771CAE-270F-4C79-BDF5-0C7EFC7CDF68}'; RID_PedidosProveedorDelta = '{196C6489-D928-4C44-9BF8-805217F34B48}';
RID_PedidosProveedor_DetallesDelta = '{A2EF2F8A-B1CB-4122-919F-06604309B1B8}'; RID_PedidosProveedor_DetallesDelta = '{164697E4-3417-4195-9B7B-5DD7D5FF5C2D}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{7AA8D557-941A-4B44-A8D2-35781BEBD144}'; RID_PedidosProveedor_Articulos_PendientesDelta = '{95000330-646B-489B-9300-A0B22EB9A7A6}';
type type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{E6771CAE-270F-4C79-BDF5-0C7EFC7CDF68}'] ['{196C6489-D928-4C44-9BF8-805217F34B48}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -30,6 +30,8 @@ type
function GetOldFECHA_ENTREGAValue : DateTime; function GetOldFECHA_ENTREGAValue : DateTime;
function GetOldID_ALMACENValue : Integer; function GetOldID_ALMACENValue : Integer;
function GetOldNOMBRE_ALMACENValue : String; function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_OBRAValue : Integer;
function GetOldNOMBRE_OBRAValue : String;
function GetOldOBSERVACIONESValue : IROStrings; function GetOldOBSERVACIONESValue : IROStrings;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldINCIDENCIASValue : IROStrings; function GetOldINCIDENCIASValue : IROStrings;
@ -67,6 +69,8 @@ type
property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue; property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_OBRA : Integer read GetOldID_OBRAValue;
property OldNOMBRE_OBRA : String read GetOldNOMBRE_OBRAValue;
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
@ -173,6 +177,18 @@ type
function GetOldNOMBRE_ALMACENIsNull: Boolean; virtual; function GetOldNOMBRE_ALMACENIsNull: Boolean; virtual;
procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual; procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual;
function GetID_OBRAValue: Integer; virtual;
function GetID_OBRAIsNull: Boolean; virtual;
function GetOldID_OBRAValue: Integer; virtual;
function GetOldID_OBRAIsNull: Boolean; virtual;
procedure SetID_OBRAValue(const aValue: Integer); virtual;
procedure SetID_OBRAIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_OBRAValue: String; virtual;
function GetNOMBRE_OBRAIsNull: Boolean; virtual;
function GetOldNOMBRE_OBRAValue: String; virtual;
function GetOldNOMBRE_OBRAIsNull: Boolean; virtual;
procedure SetNOMBRE_OBRAValue(const aValue: String); virtual;
procedure SetNOMBRE_OBRAIsNull(const aValue: Boolean); virtual;
function GetOBSERVACIONESValue: IROStrings; virtual; function GetOBSERVACIONESValue: IROStrings; virtual;
function GetOBSERVACIONESIsNull: Boolean; virtual; function GetOBSERVACIONESIsNull: Boolean; virtual;
function GetOldOBSERVACIONESValue: IROStrings; virtual; function GetOldOBSERVACIONESValue: IROStrings; virtual;
@ -359,6 +375,14 @@ type
property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldNOMBRE_ALMACENIsNull : Boolean read GetOldNOMBRE_ALMACENIsNull; property OldNOMBRE_ALMACENIsNull : Boolean read GetOldNOMBRE_ALMACENIsNull;
property ID_OBRA : Integer read GetID_OBRAValue write SetID_OBRAValue;
property ID_OBRAIsNull : Boolean read GetID_OBRAIsNull write SetID_OBRAIsNull;
property OldID_OBRA : Integer read GetOldID_OBRAValue;
property OldID_OBRAIsNull : Boolean read GetOldID_OBRAIsNull;
property NOMBRE_OBRA : String read GetNOMBRE_OBRAValue write SetNOMBRE_OBRAValue;
property NOMBRE_OBRAIsNull : Boolean read GetNOMBRE_OBRAIsNull write SetNOMBRE_OBRAIsNull;
property OldNOMBRE_OBRA : String read GetOldNOMBRE_OBRAValue;
property OldNOMBRE_OBRAIsNull : Boolean read GetOldNOMBRE_OBRAIsNull;
property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue; property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue;
property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
@ -460,7 +484,7 @@ type
{ IPedidosProveedor_DetallesDelta } { IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{A2EF2F8A-B1CB-4122-919F-06604309B1B8}'] ['{164697E4-3417-4195-9B7B-5DD7D5FF5C2D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -477,6 +501,7 @@ type
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldREFERENCIA_FABRICANTEValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -494,6 +519,7 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_FABRICANTE : String read GetOldREFERENCIA_FABRICANTEValue;
end; end;
{ TPedidosProveedor_DetallesBusinessProcessorRules } { TPedidosProveedor_DetallesBusinessProcessorRules }
@ -591,6 +617,12 @@ type
function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FABRICANTEValue: String; virtual;
function GetREFERENCIA_FABRICANTEIsNull: Boolean; virtual;
function GetOldREFERENCIA_FABRICANTEValue: String; virtual;
function GetOldREFERENCIA_FABRICANTEIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABRICANTEValue(const aValue: String); virtual;
procedure SetREFERENCIA_FABRICANTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -653,6 +685,10 @@ type
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
property REFERENCIA_FABRICANTE : String read GetREFERENCIA_FABRICANTEValue write SetREFERENCIA_FABRICANTEValue;
property REFERENCIA_FABRICANTEIsNull : Boolean read GetREFERENCIA_FABRICANTEIsNull write SetREFERENCIA_FABRICANTEIsNull;
property OldREFERENCIA_FABRICANTE : String read GetOldREFERENCIA_FABRICANTEValue;
property OldREFERENCIA_FABRICANTEIsNull : Boolean read GetOldREFERENCIA_FABRICANTEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -662,7 +698,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta } { IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{7AA8D557-941A-4B44-A8D2-35781BEBD144}'] ['{95000330-646B-489B-9300-A0B22EB9A7A6}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -1162,6 +1198,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN] := Null;
end; end;
function TPedidosProveedorBusinessProcessorRules.GetID_OBRAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_OBRA];
end;
function TPedidosProveedorBusinessProcessorRules.GetID_OBRAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_OBRA]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldID_OBRAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_OBRA];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldID_OBRAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_OBRA]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetID_OBRAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_OBRA] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetID_OBRAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_OBRA] := Null;
end;
function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_OBRAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_OBRA];
end;
function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_OBRAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_OBRA]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRE_OBRAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE_OBRA];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRE_OBRAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE_OBRA]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRE_OBRAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_OBRA] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRE_OBRAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_OBRA] := Null;
end;
function TPedidosProveedorBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings; function TPedidosProveedorBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
begin begin
result := f_OBSERVACIONES; result := f_OBSERVACIONES;
@ -2346,6 +2444,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR] := Null;
end; end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_FABRICANTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_FABRICANTE];
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_FABRICANTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_FABRICANTE]);
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIA_FABRICANTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA_FABRICANTE];
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIA_FABRICANTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA_FABRICANTE]);
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIA_FABRICANTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_FABRICANTE] := aValue;
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIA_FABRICANTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_FABRICANTE] := Null;
end;
{ TPedidosProveedor_Articulos_PendientesBusinessProcessorRules } { TPedidosProveedor_Articulos_PendientesBusinessProcessorRules }
constructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

4
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
View File

@ -201,10 +201,6 @@ begin
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
// ID_PEDIDO_CLIENTE := 0; // ID_PEDIDO_CLIENTE := 0;
REF_PED_CLIENTE := ''; REF_PED_CLIENTE := '';
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
ID_ALMACEN := 2;
end; end;
procedure TBizPedidoProveedor.IVAOnChange(Sender: TDACustomField); procedure TBizPedidoProveedor.IVAOnChange(Sender: TDACustomField);

83
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -161,6 +161,14 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
DatasetField = 'ID_FORMA_PAGO' DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'ID_OBRA'
TableField = 'ID_OBRA'
end
item
DatasetField = 'NOMBRE_OBRA'
TableField = 'NOMBRE_OBRA'
end> end>
end> end>
Name = 'PedidosProveedor' Name = 'PedidosProveedor'
@ -194,11 +202,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_REFERENCIA'
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_SITUACION' DictionaryEntry = 'PedidosProveedor_SITUACION'
end end
item item
@ -230,8 +240,21 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'NOMBRE_ALMACEN' Name = 'NOMBRE_ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN' DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
end end
item
Name = 'ID_OBRA'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_OBRA'
end
item
Name = 'NOMBRE_OBRA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE_OBRA'
end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
@ -865,6 +888,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
Value = '' Value = ''
end end
item
Name = 'ID_OBRA'
Value = ''
end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
Value = '' Value = ''
@ -938,18 +965,18 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'ERENCIA, ID, ID_EMPRESA,'#10' FECHA_ALTA, FECHA_MODIFICACION, ID' + 'ERENCIA, ID, ID_EMPRESA,'#10' FECHA_ALTA, FECHA_MODIFICACION, ID' +
'_PROVEEDOR, FECHA_ENVIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, ' + '_PROVEEDOR, FECHA_ENVIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, ' +
'FECHA_ENTREGA, INCIDENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACT' + 'FECHA_ENTREGA, INCIDENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACT' +
'IVAS, ID_ALMACEN, CALLE, '#10' POBLACION, PROVINCIA, CODIGO_POST' + 'IVAS, ID_ALMACEN, ID_OBRA, CALLE,'#10' POBLACION, PROVINCIA, COD' +
'AL, PERSONA_CONTACTO, '#10' TELEFONO, ID_PEDIDO_CLIENTE, IMPORTE' + 'IGO_POSTAL, PERSONA_CONTACTO, '#10' TELEFONO, ID_PEDIDO_CLIENTE,' +
'_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' + ' IMPORTE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO' +
'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO)'#10' VALUES'#10' (:' + ', BASE_IMPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO)'#10' VALUE' +
'USUARIO, :OBSERVACIONES, :REFERENCIA, :ID,'#10' :ID_EMPRESA, :FE' + 'S'#10' (:USUARIO, :OBSERVACIONES, :REFERENCIA, :ID,'#10' :ID_EMPR' +
'CHA_ALTA, :FECHA_MODIFICACION,'#10' :ID_PROVEEDOR, :FECHA_ENVIO,' + 'ESA, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :ID_PROVEEDOR, :FECH' +
' :FECHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTREGA, :INCID' + 'A_ENVIO, :FECHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTREGA' +
'ENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :ID_ALMACEN,' + ', :INCIDENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :ID_' +
' :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :PERSONA_' + 'ALMACEN, :ID_OBRA, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTA' +
'CONTACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, '#10' :I' + 'L,'#10' :PERSONA_CONTACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPOR' +
'MPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, '#10 + 'TE_NETO, '#10' :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :' +
' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO)' 'BASE_IMPONIBLE, '#10' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1017,6 +1044,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
Value = '' Value = ''
end end
item
Name = 'ID_OBRA'
Value = ''
end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
Value = '' Value = ''
@ -1099,15 +1130,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' + 'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' +
' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' + ' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' +
'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' + 'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' +
'EN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVI' + 'EN, '#10' ID_OBRA = :ID_OBRA,'#10' CALLE = :CALLE, '#10' POBLACION ' +
'NCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PER' + '= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = ' +
'SONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ' + ':CODIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' ' +
' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :' + 'TELEFONO = :TELEFONO, '#10' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENT' +
'IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENT' + 'E, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPO' +
'O = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' + 'RTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO =' +
' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORT' + ' :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' ' +
'E_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO'#10' WHER' + ' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO' +
'E'#10' (ID = :OLD_ID)'#10 ' = :ID_FORMA_PAGO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1485,6 +1516,16 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'Ref. fabricante' DisplayLabel = 'Ref. fabricante'
end
item
Name = 'PedidosProveedor_ID_OBRA'
DataType = datInteger
end
item
Name = 'PedidosProveedor_NOMBRE_OBRA'
DataType = datString
Size = 255
DisplayLabel = 'Obra'
end> end>
Left = 88 Left = 88
Top = 152 Top = 152

9
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk
View File

@ -31,8 +31,10 @@ requires
Almacenes_model, Almacenes_model,
Almacenes_controller, Almacenes_controller,
Contactos_view, Contactos_view,
Articulos_view; Articulos_view,
Obras_model,
Obras_controller;
contains contains
uPedidosProveedorViewRegister in 'uPedidosProveedorViewRegister.pas', uPedidosProveedorViewRegister in 'uPedidosProveedorViewRegister.pas',
uEditorPedidosProveedor in 'uEditorPedidosProveedor.pas' {fEditorPedidosProveedor: TfEditorPedidosProveedor}, uEditorPedidosProveedor in 'uEditorPedidosProveedor.pas' {fEditorPedidosProveedor: TfEditorPedidosProveedor},
@ -46,6 +48,7 @@ contains
uEditorDireccionEntregaPedidoProveedor in 'uEditorDireccionEntregaPedidoProveedor.pas' {fEditorDireccionEntregaPedidoProveedor : TfEditorDireccionEntregaPedidoProveedor}, uEditorDireccionEntregaPedidoProveedor in 'uEditorDireccionEntregaPedidoProveedor.pas' {fEditorDireccionEntregaPedidoProveedor : TfEditorDireccionEntregaPedidoProveedor},
uViewElegirArticulosPedidosProveedor in 'uViewElegirArticulosPedidosProveedor.pas' {frViewElegirArticulosPedidosProveedor: TFrame}, uViewElegirArticulosPedidosProveedor in 'uViewElegirArticulosPedidosProveedor.pas' {frViewElegirArticulosPedidosProveedor: TFrame},
uEditorElegirArticulosPedidoProveedor in 'uEditorElegirArticulosPedidoProveedor.pas' {fEditorElegirArticulosPedidoProveedor: TForm}, uEditorElegirArticulosPedidoProveedor in 'uEditorElegirArticulosPedidoProveedor.pas' {fEditorElegirArticulosPedidoProveedor: TForm},
uEditorSituacionPedidoProveedor in 'uEditorSituacionPedidoProveedor.pas' {fEditorSituacionPedidoProveedor: TfEditorSituacionPedidoProveedor}; uEditorSituacionPedidoProveedor in 'uEditorSituacionPedidoProveedor.pas' {fEditorSituacionPedidoProveedor: TfEditorSituacionPedidoProveedor},
uViewProveedorPedido in 'uViewProveedorPedido.pas' {frViewProveedorPedido: TFrame};
end. end.

66
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
View File

@ -41,60 +41,23 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PedidosProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">PedidosProveedor_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="PedidosProveedor_view.dpk"> <DelphiCompile Include="PedidosProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" /> <DCCReference Include="..\..\Contactos\Plugin\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" /> <DCCReference Include="..\..\Contactos\Plugin\Almacenes_model.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="..\..\Contactos\Plugin\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" /> <DCCReference Include="..\..\Contactos\Plugin\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\..\Contactos\Plugin\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" /> <DCCReference Include="..\..\Contactos\Plugin\Obras_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" /> <DCCReference Include="..\..\Contactos\Plugin\Obras_controllercontainsuPedidosProveedorViewRegisterin.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\Obras_model.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\PedidosProveedor_model.dcp" />
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas"> <DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
<Form>fEditorDireccionEntregaPedidoProveedor </Form> <Form>fEditorDireccionEntregaPedidoProveedor </Form>
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass> <DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>
@ -144,12 +107,15 @@
<Form>frViewPedidosProveedor</Form> <Form>frViewPedidosProveedor</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewProveedorPedido.pas">
<Form>frViewProveedorPedido</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

22
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res
View File

Binary file not shown.

70
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

@ -109,23 +109,25 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited ToolButton14: TToolButton [4]
Left = 334 Left = 334
Top = 0 Top = 0
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited FontName: TJvFontComboBox [5]
Left = 479 Left = 399
Top = 0 Top = 0
ExplicitLeft = 479 ExplicitLeft = 399
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 544 Left = 544
Top = 0 Top = 0
Width = 102
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 102
end end
inherited ToolButton13: TToolButton [7] inherited ToolButton13: TToolButton [7]
Left = 0 Left = 0
@ -141,49 +143,47 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton inherited ToolButton6: TToolButton [9]
Left = 17 Left = 17
Top = 27 Top = 27
ExplicitLeft = 17 ExplicitLeft = 17
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton inherited ToolButton7: TToolButton [10]
Left = 158 Left = 83
Top = 27 Top = 27
Wrap = False ExplicitLeft = 83
ExplicitLeft = 158 ExplicitTop = 27
end
inherited ToolButton8: TToolButton [11]
Left = 150
Top = 27
ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
Left = 233
Top = 27
ExplicitLeft = 233
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22 ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton [13]
Left = 166 Left = 241
Top = 27 Top = 27
ExplicitLeft = 166 ExplicitLeft = 241
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton [14]
Left = 311 Left = 386
Top = 27 Top = 27
ExplicitLeft = 311 ExplicitLeft = 386
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton inherited ToolButton11: TToolButton [15]
Left = 436 Left = 511
Top = 27 Top = 27
ExplicitLeft = 436 ExplicitLeft = 511
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
Left = 502
Top = 27
Wrap = False
ExplicitLeft = 502
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 569
Top = 27
ExplicitLeft = 569
ExplicitTop = 27 ExplicitTop = 27
end end
end end
@ -191,9 +191,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Top = 77 Top = 77
Width = 751 Width = 751
Height = 365 Height = 365
ExplicitTop = 77 ExplicitTop = 72
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 365 ExplicitHeight = 370
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewIMPORTENETO: TcxGridDBColumn inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Options.Editing = True Options.Editing = True
@ -203,7 +203,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 51 Top = 51
Width = 751 Width = 751
ExplicitTop = 51
ExplicitWidth = 751 ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 626 ExplicitWidth = 626
@ -233,6 +232,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 751 Width = 751
ExplicitWidth = 751 ExplicitWidth = 751
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21
end
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 751 Width = 751

1
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
View File

@ -176,7 +176,6 @@ var
bEsNuevo : Boolean; bEsNuevo : Boolean;
begin begin
inherited; inherited;
bEsNuevo := False;
ShowHourglassCursor; ShowHourglassCursor;
// frViewDetallesPedidoProveedor1.SaveGridStatus; // Para guardar estado del grid // frViewDetallesPedidoProveedor1.SaveGridStatus; // Para guardar estado del grid

15
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -251,28 +251,33 @@ begin
end; end;
procedure TfEditorPedidosProveedor.NuevoInterno; procedure TfEditorPedidosProveedor.NuevoInterno;
var {var
Respuesta : Integer; Respuesta : Integer;}
begin begin
inherited; inherited;
Respuesta := JsNuevoPedidoProveedorDialog.Execute; // Para Tecsitel: No preguntar si hacer el pedido de proveedor
// basado en pedido de cliente.
{ Respuesta := JsNuevoPedidoProveedorDialog.Execute;
if Respuesta <> IDCANCEL then if Respuesta <> IDCANCEL then
begin begin
case JsNuevoPedidoProveedorDialog.CustomButtonResult of case JsNuevoPedidoProveedorDialog.CustomButtonResult of
200 : begin // Utilizar un pedido 200 : begin // Utilizar un pedido
// GenerarPedidosProv; // GenerarPedidosProv;
actRefrescar.Execute; actRefrescar.Execute;
end; end;
100 : begin // Pedido nuevo vacio 100 : begin // Pedido nuevo vacio
FController.Anadir(Pedidos); FController.Anadir(Pedidos);
FController.Ver(Pedidos); FController.Ver(Pedidos);
end; end;
end; end;
end; end;}
// Pedido nuevo vacio
FController.Anadir(Pedidos);
FController.Ver(Pedidos);
end; end;
procedure TfEditorPedidosProveedor.PonerTitulos(const ATitulo: string); procedure TfEditorPedidosProveedor.PonerTitulos(const ATitulo: string);

93
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm
View File

@ -20,26 +20,25 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Top = 10 Top = 10
Width = 255 Width = 255
Height = 17 Height = 17
Action = actLista Action = actListaAlmacenes
TabOrder = 0 TabOrder = 0
TabStop = True TabStop = True
end end
object rdxDestino2: TRadioButton object rdxDestino2: TRadioButton
Left = 10 Left = 10
Top = 60 Top = 110
Width = 287 Width = 287
Height = 17 Height = 17
Action = actOtro Action = actOtro
TabOrder = 2 TabOrder = 4
end end
object cbLista: TcxDBLookupComboBox object cbListaAlmacenes: TcxDBLookupComboBox
Left = 25 Left = 25
Top = 33 Top = 33
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = dsPedido DataBinding.DataSource = dsPedido
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.ListOptions.SyncMode = True
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
@ -49,6 +48,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Properties.ListOptions.AnsiSort = True Properties.ListOptions.AnsiSort = True
Properties.ListOptions.GridLines = glNone Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsAlmacenes Properties.ListSource = dsAlmacenes
Properties.PostPopupValueOnTab = True Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -69,19 +69,59 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Width = 128 Width = 128
Height = 25 Height = 25
Caption = 'Modificar la direcci'#243'n...' Caption = 'Modificar la direcci'#243'n...'
TabOrder = 4 TabOrder = 6
OnClick = bModificarClick OnClick = bModificarClick
end end
object txtDireccion: TStaticText object txtDireccion: TStaticText
Left = 25 Left = 25
Top = 83 Top = 133
Width = 551 Width = 551
Height = 177 Height = 177
AutoSize = False AutoSize = False
BevelKind = bkFlat BevelKind = bkFlat
TabOrder = 3 TabOrder = 5
OnDblClick = txtDireccionDblClick OnDblClick = txtDireccionDblClick
end end
object RadioButton1: TRadioButton
Left = 10
Top = 60
Width = 566
Height = 17
Action = actListaObras
TabOrder = 2
end
object cbListaObras: TcxDBLookupComboBox
Left = 25
Top = 83
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ID_OBRA'
DataBinding.DataSource = dsPedido
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
FieldName = 'NOMBRE'
end>
Properties.ListOptions.AnsiSort = True
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsObras
Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbListaObrasPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 551
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -97,7 +137,19 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Caption = 'New Item' Caption = 'New Item'
Offsets.Left = 15 Offsets.Left = 15
ShowCaption = False ShowCaption = False
Control = cbLista Control = cbListaAlmacenes
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
ShowCaption = False
Control = RadioButton1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item6: TdxLayoutItem
Offsets.Left = 15
ShowCaption = False
Control = cbListaObras
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
@ -128,26 +180,35 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
end end
end end
object ActionList1: TActionList object ActionList1: TActionList
Left = 80 Left = 384
Top = 16 Top = 8
object actLista: TAction object actListaAlmacenes: TAction
Caption = 'Recibir el pedido en el almac'#233'n:' Caption = 'Recibir el pedido en el almac'#233'n:'
Checked = True Checked = True
GroupIndex = 1 GroupIndex = 1
OnExecute = actListaExecute OnExecute = actListaAlmacenesExecute
end end
object actOtro: TAction object actOtro: TAction
Caption = 'Recibir el pedido en esta otra direcci'#243'n:' Caption = 'Recibir el pedido en esta otra direcci'#243'n:'
GroupIndex = 1 GroupIndex = 1
OnExecute = actOtroExecute OnExecute = actOtroExecute
end end
object actListaObras: TAction
Caption = 'Recibir el pedido en la obra:'
GroupIndex = 1
OnExecute = actListaObrasExecute
end
end end
object dsPedido: TDADataSource object dsPedido: TDADataSource
Left = 40 Left = 352
Top = 8 Top = 8
end end
object dsAlmacenes: TDADataSource object dsAlmacenes: TDADataSource
Left = 8 Left = 320
Top = 40 Top = 8
end
object dsObras: TDADataSource
Left = 288
Top = 8
end end
end end

133
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas
View File

@ -8,7 +8,7 @@ uses
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable, cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController, ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController,
Buttons, uDAInterfaces; Buttons, uDAInterfaces, uBizObras, uObrasController;
type type
IViewDireccionEntregaPedidoProv = interface(IViewBase) IViewDireccionEntregaPedidoProv = interface(IViewBase)
@ -22,13 +22,13 @@ type
dxLayoutControl1: TdxLayoutControl; dxLayoutControl1: TdxLayoutControl;
rdxDestino1: TRadioButton; rdxDestino1: TRadioButton;
rdxDestino2: TRadioButton; rdxDestino2: TRadioButton;
cbLista: TcxDBLookupComboBox; cbListaAlmacenes: TcxDBLookupComboBox;
dxLayoutGroup1: TdxLayoutGroup; dxLayoutGroup1: TdxLayoutGroup;
dxLayoutItem1: TdxLayoutItem; dxLayoutItem1: TdxLayoutItem;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
ActionList1: TActionList; ActionList1: TActionList;
actLista: TAction; actListaAlmacenes: TAction;
actOtro: TAction; actOtro: TAction;
dsPedido: TDADataSource; dsPedido: TDADataSource;
dsAlmacenes: TDADataSource; dsAlmacenes: TDADataSource;
@ -36,19 +36,31 @@ type
bModificar: TBitBtn; bModificar: TBitBtn;
txtDireccion: TStaticText; txtDireccion: TStaticText;
dxLayoutControl1Item5: TdxLayoutItem; dxLayoutControl1Item5: TdxLayoutItem;
procedure actListaExecute(Sender: TObject); dxLayoutControl1Item4: TdxLayoutItem;
RadioButton1: TRadioButton;
dxLayoutControl1Item6: TdxLayoutItem;
cbListaObras: TcxDBLookupComboBox;
dsObras: TDADataSource;
actListaObras: TAction;
procedure actListaAlmacenesExecute(Sender: TObject);
procedure actOtroExecute(Sender: TObject); procedure actOtroExecute(Sender: TObject);
procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure cbListaAlmacenesPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbListaObrasPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure bModificarClick(Sender: TObject); procedure bModificarClick(Sender: TObject);
procedure txtDireccionDblClick(Sender: TObject); procedure txtDireccionDblClick(Sender: TObject);
procedure cbListaObrasPropertiesInitPopup(Sender: TObject);
procedure actListaObrasExecute(Sender: TObject);
protected protected
FAlmacenesController : IAlmacenesController; FAlmacenesController : IAlmacenesController;
FAlmacenes: IBizAlmacen; FAlmacenes: IBizAlmacen;
FObrasController : IObrasController;
FObras: IBizObra;
FPedido : IBizPedidoProveedor; FPedido : IBizPedidoProveedor;
FController : IPedidosProveedorController; FController : IPedidosProveedorController;
function GetPedidoProveedor: IBizPedidoProveedor; function GetPedidoProveedor: IBizPedidoProveedor;
procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); procedure SetPedidoProveedor(const Value: IBizPedidoProveedor);
procedure CambioDireccionAlmacen; procedure CambioDireccionAlmacen;
procedure CambioDireccionObra;
procedure RefrescarDireccion; procedure RefrescarDireccion;
procedure SetReadOnly(Value: Boolean); override; procedure SetReadOnly(Value: Boolean); override;
@ -65,9 +77,16 @@ implementation
uses uses
uEditorRegistryUtils, uCustomView; uEditorRegistryUtils, uCustomView;
procedure TfrViewDireccionEntregaPedidoProv.actListaExecute(Sender: TObject); procedure TfrViewDireccionEntregaPedidoProv.actListaAlmacenesExecute(Sender: TObject);
begin begin
actLista.Checked := True; actListaAlmacenes.Checked := True;
RefrescarDireccion;
end;
procedure TfrViewDireccionEntregaPedidoProv.actListaObrasExecute(
Sender: TObject);
begin
actListaObras.Checked := True;
RefrescarDireccion; RefrescarDireccion;
end; end;
@ -85,6 +104,11 @@ begin
FPedido.Edit; FPedido.Edit;
FPedido.ID_ALMACEN := 0; FPedido.ID_ALMACEN := 0;
end; end;
if (FPedido.ID_OBRA > 0) then
begin
FPedido.Edit;
FPedido.ID_OBRA := 0;
end;
end; end;
RefrescarDireccion; RefrescarDireccion;
end; end;
@ -97,8 +121,7 @@ end;
procedure TfrViewDireccionEntregaPedidoProv.CambioDireccionAlmacen; procedure TfrViewDireccionEntregaPedidoProv.CambioDireccionAlmacen;
begin begin
if Assigned(FPedido) if Assigned(FPedido) and Assigned(FAlmacenes) then
and Assigned(FAlmacenes) then
begin begin
FPedido.Edit; FPedido.Edit;
FPedido.CALLE := FAlmacenes.CALLE; FPedido.CALLE := FAlmacenes.CALLE;
@ -112,13 +135,46 @@ begin
end; end;
end; end;
procedure TfrViewDireccionEntregaPedidoProv.cbListaPropertiesValidate( procedure TfrViewDireccionEntregaPedidoProv.CambioDireccionObra;
begin
if Assigned(FPedido) and Assigned(FObras) then
begin
FPedido.Edit;
FPedido.CALLE := FObras.CALLE;
FPedido.POBLACION := FObras.POBLACION;
FPedido.POBLACION := FObras.POBLACION;
FPedido.PROVINCIA := FObras.PROVINCIA;
FPedido.CODIGO_POSTAL := FObras.CODIGO_POSTAL;
FPedido.PERSONA_CONTACTO := FObras.PERSONA_CONTACTO;
FPedido.TELEFONO := FObras.TELEFONO;
RefrescarDireccion;
end;
end;
procedure TfrViewDireccionEntregaPedidoProv.cbListaObrasPropertiesInitPopup(
Sender: TObject);
begin
inherited;
FObrasController := TObrasController.Create;
FObras := FObrasController.BuscarTodos;
FObras.DataTable.Active := True;
dsObras.DataTable := FObras.DataTable;
end;
procedure TfrViewDireccionEntregaPedidoProv.cbListaObrasPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); var Error: Boolean);
begin begin
if Assigned(FPedido) and Assigned(FAlmacenes) if Assigned(FPedido) and Assigned(FObras) and (FPedido.ID_OBRA <> FObras.ID) then
and (FPedido.ID_ALMACEN <> FAlmacenes.ID) then CambioDireccionObra;
CambioDireccionAlmacen; end;
procedure TfrViewDireccionEntregaPedidoProv.cbListaAlmacenesPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
if Assigned(FPedido) and Assigned(FAlmacenes) and (FPedido.ID_ALMACEN <> FAlmacenes.ID) then
CambioDireccionAlmacen;
end; end;
constructor TfrViewDireccionEntregaPedidoProv.Create(AOwner: TComponent); constructor TfrViewDireccionEntregaPedidoProv.Create(AOwner: TComponent);
@ -133,9 +189,15 @@ end;
destructor TfrViewDireccionEntregaPedidoProv.Destroy; destructor TfrViewDireccionEntregaPedidoProv.Destroy;
begin begin
cbLista.Properties.OnValidate := Nil; cbListaObras.Properties.OnValidate := Nil;
cbListaAlmacenes.Properties.OnValidate := Nil;
FAlmacenesController := Nil; FAlmacenesController := Nil;
FAlmacenes := Nil; FAlmacenes := Nil;
FObrasController := Nil;
FObras := Nil;
FController := NIL; FController := NIL;
inherited; inherited;
end; end;
@ -152,19 +214,35 @@ begin
begin begin
if (actOtro.Checked) then if (actOtro.Checked) then
begin begin
cbLista.Enabled := False; cbListaAlmacenes.Enabled := False;
cbLista.Text := ''; cbListaAlmacenes.Text := '';
cbListaObras.Enabled := False;
cbListaObras.Text := '';
txtDireccion.Enabled := True; txtDireccion.Enabled := True;
txtDireccion.Caption := FPedido.CALLE; txtDireccion.Caption := FPedido.CALLE;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.CODIGO_POSTAL + ' ' + FPedido.POBLACION; txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.CODIGO_POSTAL + ' ' + FPedido.POBLACION;
txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.PROVINCIA; txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.PROVINCIA;
bModificar.Enabled := True; bModificar.Enabled := True;
end end
else if (actListaAlmacenes.Checked) then
begin
txtDireccion.Enabled := False;
cbListaObras.Enabled := False;
cbListaObras.Text := '';
cbListaAlmacenes.Enabled := True;
cbListaAlmacenes.DroppedDown := True;
bModificar.Enabled := False;
end
else begin else begin
txtDireccion.Enabled := False; txtDireccion.Enabled := False;
cbLista.Enabled := True; cbListaAlmacenes.Enabled := False;
cbLista.DroppedDown := True; cbListaAlmacenes.Text := '';
bModificar.Enabled := False;
cbListaObras.Enabled := True;
cbListaObras.DroppedDown := True;
bModificar.Enabled := False;
end; end;
end; end;
end; end;
@ -172,19 +250,26 @@ end;
procedure TfrViewDireccionEntregaPedidoProv.SetPedidoProveedor( procedure TfrViewDireccionEntregaPedidoProv.SetPedidoProveedor(
const Value: IBizPedidoProveedor); const Value: IBizPedidoProveedor);
begin begin
cbLista.Properties.OnValidate := NIL; cbListaAlmacenes.Properties.OnValidate := NIL;
cbListaObras.Properties.OnValidate := NIL;
dsPedido.DataTable := nil; dsPedido.DataTable := nil;
FPedido := Value; FPedido := Value;
dsPedido.DataTable := FPedido.DataTable; dsPedido.DataTable := FPedido.DataTable;
cbLista.Properties.OnValidate := cbListaPropertiesValidate; cbListaAlmacenes.Properties.OnValidate := cbListaAlmacenesPropertiesValidate;
cbListaObras.Properties.OnValidate := cbListaObrasPropertiesValidate;
if (FPedido.EsNuevo) then if (FPedido.EsNuevo) then
CambioDireccionAlmacen CambioDireccionAlmacen
else else begin
if (FPedido.ID_ALMACEN < 1) then if (FPedido.ID_ALMACEN >= 1) then
actOtro.Checked := True; actListaAlmacenes.Checked := True
else if (FPedido.ID_OBRA >= 1) then
actListaObras.Checked := True
else
actOtro.Checked := True;
end;
RefrescarDireccion; RefrescarDireccion;
end; end;

194
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
View File

@ -1,77 +1,23 @@
inherited frViewPedidoProveedor: TfrViewPedidoProveedor inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 704 Width = 787
Height = 467 Height = 522
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 704 ExplicitWidth = 787
ExplicitHeight = 467 ExplicitHeight = 522
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 704 Width = 787
Height = 467 Height = 522
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 908
DesignSize = ( DesignSize = (
704 787
467) 522)
inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor
Left = 339
Top = 28
Width = 310
Height = 215
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 10
ReadOnly = False
ExplicitLeft = 339
ExplicitTop = 28
ExplicitWidth = 310
ExplicitHeight = 215
inherited dxLayoutControl1: TdxLayoutControl
Width = 310
Height = 215
Align = alClient
ExplicitWidth = 310
ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 185
Width = 185
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 46
Width = 46
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 262
ExplicitLeft = 262
ExplicitWidth = 71
Width = 71
end
inherited Button3: TBitBtn
Left = 135
ExplicitLeft = 135
end
end
end
object edtFechaPedido: TcxDBDateEdit object edtFechaPedido: TcxDBDateEdit
Left = 137 Left = 137
Top = 55 Top = 55
@ -135,8 +81,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 55 Width = 55
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 339 Left = 407
Top = 279 Top = 213
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -149,8 +95,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11 TabOrder = 11
Height = 133 Height = 287
Width = 530 Width = 333
end end
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 137 Left = 137
@ -177,8 +123,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
Left = 22 Left = 22
Top = 279 Top = 279
Width = 445 Width = 325
Height = 166 Height = 194
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -189,11 +135,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 279 ExplicitTop = 279
ExplicitWidth = 445 ExplicitWidth = 325
ExplicitHeight = 166 ExplicitHeight = 194
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 445 Width = 325
Height = 166 Height = 194
ExplicitWidth = 445 ExplicitWidth = 445
ExplicitHeight = 166 ExplicitHeight = 166
inherited rdxDestino1: TRadioButton inherited rdxDestino1: TRadioButton
@ -204,15 +150,19 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 287 Width = 287
ExplicitWidth = 287 ExplicitWidth = 287
end end
inherited cbLista: TcxDBLookupComboBox inherited cbListaAlmacenes: TcxDBLookupComboBox
ExplicitWidth = 112 ExplicitWidth = 425
Width = 112 Width = 425
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 149 Left = 217
Top = 131 Top = 159
ExplicitLeft = 149 ExplicitLeft = 217
ExplicitTop = 131 ExplicitTop = 159
end
inherited txtDireccion: TStaticText
Height = 177
ExplicitHeight = 177
end end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
@ -255,7 +205,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 32 Width = 32
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 177 Left = 245
Top = 82 Top = 82
Width = 132 Width = 132
Height = 21 Height = 21
@ -308,13 +258,77 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 78 Width = 78
end end
object bVerPedidoCliente: TButton object bVerPedidoCliente: TButton
Left = 177 Left = 245
Top = 109 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
Action = actVerPedidoCli Action = actVerPedidoCli
TabOrder = 5 TabOrder = 5
end end
inline frViewProveedorPedido1: TfrViewProveedorPedido
Left = 407
Top = 28
Width = 92
Height = 149
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 10
ReadOnly = False
ExplicitLeft = 407
ExplicitTop = 28
ExplicitWidth = 92
ExplicitHeight = 149
inherited dxLayoutControl1: TdxLayoutControl
Width = 92
Height = 266
ExplicitWidth = 454
ExplicitHeight = 266
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 266
ExplicitLeft = 266
end
inherited Button3: TBitBtn
Left = 150
ExplicitLeft = 150
end
inherited edtPersonaContacto: TcxDBTextEdit
ExplicitWidth = 585
Width = 585
end
inherited edtReferenciaAsignada: TcxDBTextEdit
Left = 227
ExplicitLeft = 227
end
inherited edtFax: TcxDBTextEdit
ExplicitWidth = 169
Width = 169
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -390,7 +404,6 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Situaci'#243'n del pedido' Caption = 'Situaci'#243'n del pedido'
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Enviado al prov. el d'#237'a:' Caption = 'Enviado al prov. el d'#237'a:'
@ -411,8 +424,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient Caption = 'Datos de la entrega'
Caption = 'Direcci'#243'n de entrega'
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
@ -433,11 +445,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos del proveedor' Caption = 'Datos del proveedor'
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaHorizontal] Control = frViewProveedorPedido1
AlignVert = avClient
Caption = 'frViewDatosYSeleccionProveedor1'
ShowCaption = False
Control = frViewProveedorPedido
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -458,15 +466,15 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
object DADataSource: TDADataSource object DADataSource: TDADataSource
Left = 24 Left = 24
Top = 40 Top = 8
end end
object dsFormaPago: TDADataSource object dsFormaPago: TDADataSource
Left = 56 Left = 56
Top = 8 Top = 8
end end
object ActionList1: TActionList object ActionList1: TActionList
Left = 24 Left = 88
Top = 72 Top = 8
object actVerPedidoCli: TAction object actVerPedidoCli: TAction
Caption = 'Ver pedido de cliente...' Caption = 'Ver pedido de cliente...'
OnExecute = actVerPedidoCliExecute OnExecute = actVerPedidoCliExecute

16
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
View File

@ -12,7 +12,8 @@ uses
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
uViewDireccionEntregaPedidoProv, cxLookupEdit, cxDBLookupEdit, uViewDireccionEntregaPedidoProv, cxLookupEdit, cxDBLookupEdit,
// uBizPedidosCliente, uPedidosClienteController, // uBizPedidosCliente, uPedidosClienteController,
cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago; cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago,
uViewProveedorPedido;
type type
IViewPedidoProveedor = interface(IViewBase) IViewPedidoProveedor = interface(IViewBase)
@ -28,10 +29,8 @@ type
TfrViewPedidoProveedor = class(TfrViewBase, IViewPedidoProveedor) TfrViewPedidoProveedor = class(TfrViewBase, IViewPedidoProveedor)
DADataSource: TDADataSource; DADataSource: TDADataSource;
frViewProveedorPedido: TfrViewDatosYSeleccionProveedor;
dxLayoutControl1Group_Root: TdxLayoutGroup; dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl; dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
edtFechaPedido: TcxDBDateEdit; edtFechaPedido: TcxDBDateEdit;
dxLayoutControl1Item4: TdxLayoutItem; dxLayoutControl1Item4: TdxLayoutItem;
@ -67,6 +66,8 @@ type
dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Group10: TdxLayoutGroup;
ActionList1: TActionList; ActionList1: TActionList;
actVerPedidoCli: TAction; actVerPedidoCli: TAction;
dxLayoutControl1Item1: TdxLayoutItem;
frViewProveedorPedido1: TfrViewProveedorPedido;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
@ -94,6 +95,7 @@ type
implementation implementation
{$R *.dfm} {$R *.dfm}
{ TfrViewPedidoProveedor } { TfrViewPedidoProveedor }
@ -123,7 +125,7 @@ begin
inherited; inherited;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
FViewProveedorPedido := frViewProveedorPedido; FViewProveedorPedido := frViewProveedorPedido1;
FViewProveedorPedido.MsgElegirProveedor := 'Elija el proveedor al que se le realizará el pedido.'; FViewProveedorPedido.MsgElegirProveedor := 'Elija el proveedor al que se le realizará el pedido.';
eReferencia.Enabled := False; eReferencia.Enabled := False;
// eReferenciaPedidoCli.Enabled := False; // eReferenciaPedidoCli.Enabled := False;
@ -147,7 +149,7 @@ begin
if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos del pedido actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos del pedido actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit; Exit;
end; end;
frViewProveedorPedido.actElegirContacto.Execute; frViewProveedorPedido1.actElegirContacto.Execute;
end; end;
procedure TfrViewPedidoProveedor.frViewProveedorPedidoButton2Click(Sender: TObject); procedure TfrViewPedidoProveedor.frViewProveedorPedidoButton2Click(Sender: TObject);
@ -158,7 +160,7 @@ begin
if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos del pedido actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos del pedido actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit; Exit;
end; end;
frViewProveedorPedido.actAnadirContacto.Execute; frViewProveedorPedido1.actAnadirContacto.Execute;
end; end;
function TfrViewPedidoProveedor.GetPedido: IBizPedidoProveedor; function TfrViewPedidoProveedor.GetPedido: IBizPedidoProveedor;
@ -204,7 +206,7 @@ begin
// FPedidoCliAsociado := NIL; // FPedidoCliAsociado := NIL;
end; end;
frViewProveedorPedido.Proveedor := FPedido.Proveedor; frViewProveedorPedido1.Proveedor := FPedido.Proveedor;
frViewDireccionEntregaPedidoProv1.PedidoProveedor := FPedido; frViewDireccionEntregaPedidoProv1.PedidoProveedor := FPedido;
end; end;

183
Source/Modulos/Pedidos a proveedor/Views/uViewProveedorPedido.dfm Normal file
View File

@ -0,0 +1,183 @@
inherited frViewProveedorPedido: TfrViewProveedorPedido
Width = 473
Height = 287
ExplicitWidth = 473
ExplicitHeight = 287
inherited dxLayoutControl1: TdxLayoutControl
Width = 473
Height = 273
ExplicitWidth = 473
ExplicitHeight = 273
DesignSize = (
473
273)
inherited edtlNombre: TcxDBTextEdit
Left = 118
ExplicitLeft = 118
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 118
Top = 153
TabOrder = 7
ExplicitLeft = 118
ExplicitTop = 153
end
inherited edtCalle: TcxDBTextEdit
Left = 118
Top = 180
TabOrder = 8
ExplicitLeft = 118
ExplicitTop = 180
end
inherited edtPoblacion: TcxDBTextEdit
Left = 118
Top = 207
TabOrder = 9
ExplicitLeft = 118
ExplicitTop = 207
end
inherited edtProvincia: TcxDBTextEdit
Left = 118
Top = 234
TabOrder = 11
ExplicitLeft = 118
ExplicitTop = 234
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 381
Top = 207
TabOrder = 10
ExplicitLeft = 381
ExplicitTop = 207
end
inherited Button3: TBitBtn
Left = 265
Top = 122
TabOrder = 6
ExplicitLeft = 265
ExplicitTop = 122
end
object edtPersonaContacto: TcxDBTextEdit [9]
Left = 118
Top = 95
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Height = 21
Width = 585
end
object edtReferenciaAsignada: TcxDBTextEdit [10]
Left = 342
Top = 68
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'CODIGO_ASIGNADO'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Height = 21
Width = 121
end
object edtFax: TcxDBTextEdit [11]
Left = 118
Top = 68
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'FAX'
DataBinding.DataSource = DADataSource
Enabled = False
ParentFont = False
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Height = 21
Width = 169
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
object dxLayoutControl1Group4: TdxLayoutGroup [2]
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'N'#250'mero de fax:'
Control = edtFax
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item11: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'C'#243'd. cliente:'
Control = edtReferenciaAsignada
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item10: TdxLayoutItem [3]
Caption = 'Persona de contacto:'
Control = edtPersonaContacto
ControlOptions.ShowBorder = False
end
inherited dxLayoutControl1Item9: TdxLayoutItem [4]
end
inherited dxLayoutControl1Item2: TdxLayoutItem [5]
Visible = False
end
inherited dxLayoutControl1Item3: TdxLayoutItem [6]
Visible = False
end
inherited dxLayoutControl1Group2: TdxLayoutGroup [7]
Visible = False
end
inherited dxLayoutControl1Item5: TdxLayoutItem [8]
Visible = False
end
end
end
inherited DADataSource: TDADataSource
Left = 288
Top = 8
end
inherited ActionList1: TActionList
Left = 320
Top = 8
end
inherited PngImageList: TPngImageList
Left = 352
Top = 8
end
end

31
Source/Modulos/Pedidos a proveedor/Views/uViewProveedorPedido.pas Normal file
View File

@ -0,0 +1,31 @@
unit uViewProveedorPedido;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB,
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
cxEdit, cxTextEdit, cxDBEdit, cxControls;
type
TfrViewProveedorPedido = class(TfrViewDatosYSeleccionProveedor)
dxLayoutControl1Item10: TdxLayoutItem;
edtPersonaContacto: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem;
edtReferenciaAsignada: TcxDBTextEdit;
dxLayoutControl1Item13: TdxLayoutItem;
edtFax: TcxDBTextEdit;
dxLayoutControl1Group4: TdxLayoutGroup;
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
end.

77
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -42,7 +42,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 276 Top = 220
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -58,7 +58,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 8
Height = 253 Height = 253
Width = 186 Width = 186
end end
@ -89,7 +89,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 122 Width = 122
end end
inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente
Left = 403 Left = 413
Top = 28 Top = 28
Width = 350 Width = 350
Height = 212 Height = 212
@ -101,7 +101,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 403 ExplicitLeft = 413
ExplicitTop = 28 ExplicitTop = 28
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
@ -124,14 +124,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
ExplicitWidth = 327 ExplicitWidth = 327
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 249
ExplicitLeft = 249
end
inherited Button3: TBitBtn
Left = 139
ExplicitLeft = 139
end
end end
inherited DADataSource: TDADataSource inherited DADataSource: TDADataSource
Top = 72 Top = 72
@ -145,7 +137,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 123 Left = 123
Top = 190 Top = 163
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -170,16 +162,16 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 6
Width = 101 Width = 101
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 241 Left = 251
Top = 190 Top = 163
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 8 TabOrder = 7
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object edtFechaDecision: TcxDBDateEdit object edtFechaDecision: TcxDBDateEdit
@ -230,8 +222,8 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 216 Width = 216
end end
object cbClienteFinal: TcxDBButtonEdit object cbClienteFinal: TcxDBButtonEdit
Left = 123 Left = 413
Top = 163 Top = 276
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CLIENTE_FINAL' DataBinding.DataField = 'CLIENTE_FINAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -256,7 +248,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 10
Width = 227 Width = 227
end end
object cbSituacion: TcxDBImageComboBox object cbSituacion: TcxDBImageComboBox
@ -287,7 +279,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 121 Width = 121
end end
object eReferenciaAux: TcxDBTextEdit object eReferenciaAux: TcxDBTextEdit
Left = 245 Left = 251
Top = 28 Top = 28
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_AUX' DataBinding.DataField = 'REFERENCIA_AUX'
@ -314,11 +306,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group10: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group1: TdxLayoutGroup object dxLayoutControl1Group1: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
@ -363,11 +355,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Control = cbSituacion Control = cbSituacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Cliente final:'
Control = cbClienteFinal
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Visible = False Visible = False
@ -390,6 +377,22 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
end end
end end
object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Control = memObservaciones
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControl1Group6: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
@ -400,16 +403,14 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end object dxLayoutControl1Group4: TdxLayoutGroup
object dxLayoutControl1Group7: TdxLayoutGroup Caption = 'Cliente final'
AutoAligns = [aaHorizontal] object dxLayoutControl1Item8: TdxLayoutItem
AlignVert = avClient Caption = 'Cliente final:'
Caption = 'Observaciones' ShowCaption = False
object dxLayoutControl1Item6: TdxLayoutItem Control = cbClienteFinal
AutoAligns = [aaHorizontal] ControlOptions.ShowBorder = False
AlignVert = avClient end
Control = memObservaciones
ControlOptions.ShowBorder = False
end end
end end
end end

4
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -49,7 +49,6 @@ type
bFormasPago: TButton; bFormasPago: TButton;
dxLayoutControl1Group5: TdxLayoutGroup; dxLayoutControl1Group5: TdxLayoutGroup;
dsFormaPago: TDADataSource; dsFormaPago: TDADataSource;
dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem; dxLayoutControl1Item7: TdxLayoutItem;
edtFechaDecision: TcxDBDateEdit; edtFechaDecision: TcxDBDateEdit;
dxLayoutControl1Item15: TdxLayoutItem; dxLayoutControl1Item15: TdxLayoutItem;
@ -61,6 +60,9 @@ type
dxLayoutControl1Item9: TdxLayoutItem; dxLayoutControl1Item9: TdxLayoutItem;
eReferenciaAux: TcxDBTextEdit; eReferenciaAux: TcxDBTextEdit;
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Group6: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject);

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -96,8 +96,6 @@ uses
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas', schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas', schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas' {RptAlbaranesCliente: TDataModule}, uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas' {RptAlbaranesCliente: TDataModule},
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
uStringsUtils in '..\Base\Utiles\uStringsUtils.pas', uStringsUtils in '..\Base\Utiles\uStringsUtils.pas',
FactuGES_Intf in '..\Servicios\FactuGES_Intf.pas', FactuGES_Intf in '..\Servicios\FactuGES_Intf.pas',
FactuGES_Invk in '..\Servicios\FactuGES_Invk.pas', FactuGES_Invk in '..\Servicios\FactuGES_Invk.pas',
@ -122,7 +120,9 @@ uses
uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule}, uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule},
srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas', srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas',
schObrasClient_Intf in '..\Modulos\Obras\Model\schObrasClient_Intf.pas', schObrasClient_Intf in '..\Modulos\Obras\Model\schObrasClient_Intf.pas',
schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas'; schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.2.0\0" VALUE "FileVersion", "1.0.2.0\0"
VALUE "ProductVersion", "1.0.2.0\0" VALUE "ProductVersion", "1.0.2.0\0"
VALUE "CompileDate", "domingo, 23 de marzo de 2008 20:42\0" VALUE "CompileDate", "lunes, 24 de marzo de 2008 21:33\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

13
Source/Servidor/uServerMainForm.dfm
View File

@ -3,8 +3,8 @@ object fServerForm: TfServerForm
Top = 611 Top = 611
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'FactuGES Server' Caption = 'FactuGES Server'
ClientHeight = 144 ClientHeight = 140
ClientWidth = 371 ClientWidth = 267
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -19,24 +19,26 @@ object fServerForm: TfServerForm
object JvGradient1: TJvGradient object JvGradient1: TJvGradient
Left = 0 Left = 0
Top = 57 Top = 57
Width = 371 Width = 267
Height = 4 Height = 4
Align = alTop Align = alTop
StartColor = 2971346 StartColor = 2971346
EndColor = 4828405 EndColor = 4828405
ExplicitWidth = 371
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 371 Width = 267
Height = 57 Height = 57
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 0 TabOrder = 0
ExplicitWidth = 371
object Image1: TImage object Image1: TImage
Left = 0 Left = 0
Top = 0 Top = 0
Width = 371 Width = 267
Height = 57 Height = 57
Align = alClient Align = alClient
Center = True Center = True
@ -986,6 +988,7 @@ object fServerForm: TfServerForm
1DEF98267859F0774F0B64071F444C5CA82B88274DE94A5B3AB02E58829BE11C 1DEF98267859F0774F0B64071F444C5CA82B88274DE94A5B3AB02E58829BE11C
5E82E499A42A46048B79C567620DE1092D0074043B9BCB781AFAD02151B07719 5E82E499A42A46048B79C567620DE1092D0074043B9BCB781AFAD02151B07719
0DE44000003B} 0DE44000003B}
ExplicitWidth = 371
end end
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu