Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo para que cuando se cambie de cliente o proveedor en los documentos las cantidades de los detalles no se modifiquen, y se recalule el importe total del nuevo documento. Se añade campo que informa si un documento se ha impreso y el numero de veces que se ha impreso. Ademas de otros fallos varios, como la recogida de pedidos de la tienda web

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@271 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2008-07-15 18:09:26 +00:00
parent fa50cd7e2a
commit 9f7d7df6d1
141 changed files with 5085 additions and 1336 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

846
Database/Script.txt
View File

@ -1,32 +1,828 @@
ALTER TABLE ALBARANES_CLIENTE_DETALLES CREATE TABLE IMPRESIONES(
ADD ID_PEDIDO TIPO_ID; ID TIPO_ID NOT NULL,
ID_TABLA TIPO_ID,
TABLA VARCHAR(50) COLLATE ES_ES,
NUM_COPIAS SMALLINT
);
update albaranes_cliente_detalles /* Create generator... */
set id_pedido = (select albaranes_cliente.id_pedido CREATE GENERATOR GEN_IMPRESIONES_ID;
from albaranes_cliente
where albaranes_cliente.id = albaranes_cliente_detalles.ID_ALBARAN);
ALTER TABLE ALBARANES_PROVEEDOR_DETALLES CREATE PROCEDURE PRO_ANADIR_MARCA_IMPRESION (
ADD ID_PEDIDO TIPO_ID; tabla varchar(255),
id_tabla integer)
update albaranes_proveedor_detalles as
set id_pedido = (select albaranes_proveedor.id_pedido declare variable id integer;
from albaranes_proveedor
where albaranes_proveedor.id = albaranes_proveedor_detalles.ID_ALBARAN);
CREATE TRIGGER FACTURAS_CLIENTE_DELETE FOR FACTURAS_CLIENTE
ACTIVE BEFORE DELETE POSITION 0
AS
begin begin
update albaranes_cliente select ID
set albaranes_cliente.fecha_recepcion = null from IMPRESIONES
where albaranes_cliente.id_factura = id_factura; where ID_TABLA = :ID_TABLA
and TABLA = UPPER(:TABLA)
into :ID;
/*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemetno*/
if (ID > 0) then
begin
update IMPRESIONES
set NUM_COPIAS = NUM_COPIAS + 1
where ID = :ID;
end end
^ else
begin
insert into IMPRESIONES (ID, TABLA, ID_TABLA, NUM_COPIAS)
values (GEN_ID(GEN_IMPRESIONES_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
end
suspend;
end;
SET TERM ; ^ DROP VIEW V_ALBARANES_CLIENTE;
/* Create altered view: V_ALBARANES_CLIENTE */
/* Create view: V_ALBARANES_CLIENTE (ViwData.CreateDependDef) */
CREATE VIEW V_ALBARANES_CLIENTE(
ID,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_CLIENTE,
TIPO,
SITUACION,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PEDIDO,
ID_FACTURA,
REF_FACTURA,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
FECHA_PREVISTA_ENVIO,
FECHA_ENVIO,
FECHA_RECEPCION,
ID_AGENTE,
AGENTE,
NUM_COPIAS)
AS
SELECT
ALBARANES_CLIENTE.ID,
ALBARANES_CLIENTE.ID_EMPRESA,
ALBARANES_CLIENTE.ID_CLIENTE,
CLIENTES.NOMBRE,
ALBARANES_CLIENTE.FECHA_ALBARAN,
ALBARANES_CLIENTE.REFERENCIA,
ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
ALBARANES_CLIENTE.TIPO,
V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_CLIENTE.ID_PEDIDO,
PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO,
ALBARANES_CLIENTE.ID_FACTURA,
FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA,
ALBARANES_CLIENTE.CALLE,
ALBARANES_CLIENTE.CODIGO_POSTAL,
ALBARANES_CLIENTE.POBLACION,
ALBARANES_CLIENTE.PROVINCIA,
ALBARANES_CLIENTE.PERSONA_CONTACTO,
ALBARANES_CLIENTE.TELEFONO,
ALBARANES_CLIENTE.IMPORTE_NETO,
ALBARANES_CLIENTE.IMPORTE_PORTE,
ALBARANES_CLIENTE.DESCUENTO,
ALBARANES_CLIENTE.IMPORTE_DESCUENTO,
ALBARANES_CLIENTE.BASE_IMPONIBLE,
ALBARANES_CLIENTE.IVA,
ALBARANES_CLIENTE.IMPORTE_IVA,
ALBARANES_CLIENTE.IMPORTE_TOTAL,
ALBARANES_CLIENTE.OBSERVACIONES,
ALBARANES_CLIENTE.INCIDENCIAS,
ALBARANES_CLIENTE.INCIDENCIAS_ACTIVAS,
ALBARANES_CLIENTE.FECHA_ALTA,
ALBARANES_CLIENTE.FECHA_MODIFICACION,
ALBARANES_CLIENTE.USUARIO,
ALBARANES_CLIENTE.ID_FORMA_PAGO,
ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,
ALBARANES_CLIENTE.FECHA_ENVIO,
ALBARANES_CLIENTE.FECHA_RECEPCION,
CLIENTES_DATOS.ID_AGENTE,
AGENTES.NOMBRE,
IMPRESIONES.NUM_COPIAS
FROM
ALBARANES_CLIENTE
INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID)
INNER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ALBARANES_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = ALBARANES_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'));
;
/* Drop altered view: V_ALBARANES_PROVEEDOR */
DROP VIEW V_ALBARANES_PROVEEDOR;
/* Create altered view: V_ALBARANES_PROVEEDOR */
/* Create view: V_ALBARANES_PROVEEDOR (ViwData.CreateDependDef) */
CREATE VIEW V_ALBARANES_PROVEEDOR(
ID,
ID_EMPRESA,
ID_PROVEEDOR,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_PROVEEDOR,
TIPO,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PED_PROVEEDOR,
ID_FACTURA,
REF_FACTURA,
REF_FACTURA_PROV,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
NUM_COPIAS)
AS
SELECT
ALBARANES_PROVEEDOR.ID,
ALBARANES_PROVEEDOR.ID_EMPRESA,
ALBARANES_PROVEEDOR.ID_PROVEEDOR,
CONTACTOS.NOMBRE,
ALBARANES_PROVEEDOR.FECHA_ALBARAN,
ALBARANES_PROVEEDOR.REFERENCIA,
ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
ALBARANES_PROVEEDOR.TIPO,
ALBARANES_PROVEEDOR.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_PROVEEDOR.ID_PEDIDO,
PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR,
ALBARANES_PROVEEDOR.ID_FACTURA,
FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA,
ALBARANES_PROVEEDOR.REF_FACTURA_PROV,
ALBARANES_PROVEEDOR.CALLE,
ALBARANES_PROVEEDOR.CODIGO_POSTAL,
ALBARANES_PROVEEDOR.POBLACION,
ALBARANES_PROVEEDOR.PROVINCIA,
ALBARANES_PROVEEDOR.PERSONA_CONTACTO,
ALBARANES_PROVEEDOR.TELEFONO,
ALBARANES_PROVEEDOR.IMPORTE_NETO,
ALBARANES_PROVEEDOR.IMPORTE_PORTE,
ALBARANES_PROVEEDOR.DESCUENTO,
ALBARANES_PROVEEDOR.IMPORTE_DESCUENTO,
ALBARANES_PROVEEDOR.BASE_IMPONIBLE,
ALBARANES_PROVEEDOR.IVA,
ALBARANES_PROVEEDOR.IMPORTE_IVA,
ALBARANES_PROVEEDOR.IMPORTE_TOTAL,
ALBARANES_PROVEEDOR.OBSERVACIONES,
ALBARANES_PROVEEDOR.INCIDENCIAS,
ALBARANES_PROVEEDOR.INCIDENCIAS_ACTIVAS,
ALBARANES_PROVEEDOR.FECHA_ALTA,
ALBARANES_PROVEEDOR.FECHA_MODIFICACION,
ALBARANES_PROVEEDOR.USUARIO,
ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
IMPRESIONES.NUM_COPIAS
FROM
ALBARANES_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR'));
;
/* Drop altered view: V_FACTURAS_CLIENTE */
DROP VIEW V_AGENTES_COMISIONES_DET_FAC;
DROP VIEW V_FACTURAS_CLIENTE;
/* Create altered view: V_FACTURAS_CLIENTE */
/* Create view: V_FACTURAS_CLIENTE (ViwData.CreateDependDef) */
CREATE VIEW V_FACTURAS_CLIENTE(
ID,
ID_EMPRESA,
REFERENCIA,
TIPO,
ID_COMISION_LIQUIDADA,
FECHA_FACTURA,
SITUACION,
BASE_IMPONIBLE,
DESCUENTO,
IMPORTE_DESCUENTO,
IVA,
IMPORTE_IVA,
RE,
IMPORTE_RE,
IMPORTE_TOTAL,
OBSERVACIONES,
ID_CLIENTE,
NIF_CIF,
NOMBRE,
CALLE,
POBLACION,
PROVINCIA,
CODIGO_POSTAL,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
RECARGO_EQUIVALENCIA,
ID_TIPO_IVA,
IMPORTE_NETO,
IMPORTE_PORTE,
ID_AGENTE,
REFERENCIA_COMISION,
NUM_COPIAS)
AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
FACTURAS_CLIENTE.REFERENCIA,
CASE WHEN (FACTURAS_CLIENTE.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,
FACTURAS_CLIENTE.FECHA_FACTURA,
V_FAC_CLI_SITUACION.SITUACION,
FACTURAS_CLIENTE.BASE_IMPONIBLE,
FACTURAS_CLIENTE.DESCUENTO,
FACTURAS_CLIENTE.IMPORTE_DESCUENTO,
FACTURAS_CLIENTE.IVA,
FACTURAS_CLIENTE.IMPORTE_IVA,
FACTURAS_CLIENTE.RE,
FACTURAS_CLIENTE.IMPORTE_RE,
FACTURAS_CLIENTE.IMPORTE_TOTAL,
FACTURAS_CLIENTE.OBSERVACIONES,
FACTURAS_CLIENTE.ID_CLIENTE,
FACTURAS_CLIENTE.NIF_CIF,
FACTURAS_CLIENTE.NOMBRE,
FACTURAS_CLIENTE.CALLE,
FACTURAS_CLIENTE.POBLACION,
FACTURAS_CLIENTE.PROVINCIA,
FACTURAS_CLIENTE.CODIGO_POSTAL,
FACTURAS_CLIENTE.FECHA_ALTA,
FACTURAS_CLIENTE.FECHA_MODIFICACION,
FACTURAS_CLIENTE.USUARIO,
FACTURAS_CLIENTE.ID_FORMA_PAGO,
FACTURAS_CLIENTE.RECARGO_EQUIVALENCIA,
FACTURAS_CLIENTE.ID_TIPO_IVA,
FACTURAS_CLIENTE.IMPORTE_NETO,
FACTURAS_CLIENTE.IMPORTE_PORTE,
CLIENTES_DATOS.ID_AGENTE,
COMISIONES_LIQUIDADAS.REFERENCIA,
IMPRESIONES.NUM_COPIAS
FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
LEFT JOIN COMISIONES_LIQUIDADAS
ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
LEFT JOIN CLIENTES_DATOS
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = FACTURAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'FACTURASCLIENTE'));
;
/* Drop altered view: V_FACTURAS_PROVEEDOR */
DROP VIEW V_FACTURAS_PROVEEDOR;
/* Create altered view: V_FACTURAS_PROVEEDOR */
/* Create view: V_FACTURAS_PROVEEDOR (ViwData.CreateDependDef) */
CREATE VIEW V_FACTURAS_PROVEEDOR(
ID,
ID_EMPRESA,
REFERENCIA,
TIPO,
REFERENCIA_PROVEEDOR,
FECHA_FACTURA,
SITUACION,
BASE_IMPONIBLE,
DESCUENTO,
IMPORTE_DESCUENTO,
IVA,
IMPORTE_IVA,
RE,
IMPORTE_RE,
IMPORTE_TOTAL,
OBSERVACIONES,
ID_PROVEEDOR,
NIF_CIF,
NOMBRE,
CALLE,
POBLACION,
PROVINCIA,
CODIGO_POSTAL,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
RECARGO_EQUIVALENCIA,
ID_TIPO_IVA,
IMPORTE_NETO,
IMPORTE_PORTE,
NUM_COPIAS)
AS
SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA,
FACTURAS_PROVEEDOR.REFERENCIA,
CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
FACTURAS_PROVEEDOR.FECHA_FACTURA,
V_FAC_PRO_SITUACION.SITUACION,
FACTURAS_PROVEEDOR.BASE_IMPONIBLE,
FACTURAS_PROVEEDOR.DESCUENTO,
FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO,
FACTURAS_PROVEEDOR.IVA,
FACTURAS_PROVEEDOR.IMPORTE_IVA,
FACTURAS_PROVEEDOR.RE,
FACTURAS_PROVEEDOR.IMPORTE_RE,
FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
FACTURAS_PROVEEDOR.OBSERVACIONES,
FACTURAS_PROVEEDOR.ID_PROVEEDOR,
FACTURAS_PROVEEDOR.NIF_CIF,
FACTURAS_PROVEEDOR.NOMBRE,
FACTURAS_PROVEEDOR.CALLE,
FACTURAS_PROVEEDOR.POBLACION,
FACTURAS_PROVEEDOR.PROVINCIA,
FACTURAS_PROVEEDOR.CODIGO_POSTAL,
FACTURAS_PROVEEDOR.FECHA_ALTA,
FACTURAS_PROVEEDOR.FECHA_MODIFICACION,
FACTURAS_PROVEEDOR.USUARIO,
FACTURAS_PROVEEDOR.ID_FORMA_PAGO,
FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA,
FACTURAS_PROVEEDOR.ID_TIPO_IVA,
FACTURAS_PROVEEDOR.IMPORTE_NETO,
FACTURAS_PROVEEDOR.IMPORTE_PORTE,
IMPRESIONES.NUM_COPIAS
FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
LEFT JOIN PROVEEDORES_DATOS
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'FACTURASPROVEEDOR'));
;
/* Drop altered view: V_PEDIDOS_CLIENTE */
DROP VIEW V_PEDIDOS_CLIENTE;
/* Create altered view: V_PEDIDOS_CLIENTE */
/* Create view: V_PEDIDOS_CLIENTE (ViwData.CreateDependDef) */
CREATE VIEW V_PEDIDOS_CLIENTE(
ID,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE,
REFERENCIA,
REFERENCIA_CLIENTE,
SITUACION,
FECHA_PEDIDO,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
ID_FORMA_PAGO,
REF_TIENDA_WEB,
FECHA_PREVISTA_ENVIO,
NUM_COPIAS)
AS
SELECT
PEDIDOS_CLIENTE.ID,
PEDIDOS_CLIENTE.ID_EMPRESA,
PEDIDOS_CLIENTE.ID_CLIENTE,
V_CLIENTES.NOMBRE,
PEDIDOS_CLIENTE.REFERENCIA,
PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,
V_PED_CLI_SITUACION.SITUACION,
PEDIDOS_CLIENTE.FECHA_PEDIDO,
PEDIDOS_CLIENTE.CALLE,
PEDIDOS_CLIENTE.CODIGO_POSTAL,
PEDIDOS_CLIENTE.POBLACION,
PEDIDOS_CLIENTE.PROVINCIA,
PEDIDOS_CLIENTE.PERSONA_CONTACTO,
PEDIDOS_CLIENTE.TELEFONO,
PEDIDOS_CLIENTE.OBSERVACIONES,
PEDIDOS_CLIENTE.INCIDENCIAS,
PEDIDOS_CLIENTE.INCIDENCIAS_ACTIVAS,
PEDIDOS_CLIENTE.FECHA_ALTA,
PEDIDOS_CLIENTE.FECHA_MODIFICACION,
PEDIDOS_CLIENTE.USUARIO,
PEDIDOS_CLIENTE.IMPORTE_NETO,
PEDIDOS_CLIENTE.IMPORTE_PORTE,
PEDIDOS_CLIENTE.DESCUENTO,
PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,
PEDIDOS_CLIENTE.BASE_IMPONIBLE,
PEDIDOS_CLIENTE.IVA,
PEDIDOS_CLIENTE.IMPORTE_IVA,
PEDIDOS_CLIENTE.IMPORTE_TOTAL,
PEDIDOS_CLIENTE.ID_FORMA_PAGO,
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
IMPRESIONES.NUM_COPIAS
FROM
V_PED_CLI_SITUACION
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'));
;
/* Drop altered view: V_PEDIDOS_PROVEEDOR */
DROP VIEW V_PEDIDOS_PROVEEDOR;
/* Create altered view: V_PEDIDOS_PROVEEDOR */
/* Create view: V_PEDIDOS_PROVEEDOR (ViwData.CreateDependDef) */
CREATE VIEW V_PEDIDOS_PROVEEDOR(
ID,
ID_EMPRESA,
ID_PROVEEDOR,
NOMBRE,
REFERENCIA,
SITUACION,
FECHA_ENVIO,
FECHA_PEDIDO,
FECHA_CONFIRMACION,
FECHA_ENTREGA,
ID_ALMACEN,
NOMBRE_ALMACEN,
OBSERVACIONES,
IMPORTE_TOTAL,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
CALLE,
POBLACION,
PROVINCIA,
CODIGO_POSTAL,
PERSONA_CONTACTO,
TELEFONO,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_PEDIDO_CLIENTE,
REF_PED_CLIENTE,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
ID_FORMA_PAGO,
NUM_COPIAS)
AS
SELECT
PEDIDOS_PROVEEDOR.ID,
PEDIDOS_PROVEEDOR.ID_EMPRESA,
PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
V_PROVEEDORES.NOMBRE,
PEDIDOS_PROVEEDOR.REFERENCIA,
V_PED_PROV_SITUACION.SITUACION,
PEDIDOS_PROVEEDOR.FECHA_ENVIO,
PEDIDOS_PROVEEDOR.FECHA_PEDIDO,
PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION,
PEDIDOS_PROVEEDOR.FECHA_ENTREGA,
PEDIDOS_PROVEEDOR.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
PEDIDOS_PROVEEDOR.OBSERVACIONES,
PEDIDOS_PROVEEDOR.IMPORTE_TOTAL,
PEDIDOS_PROVEEDOR.INCIDENCIAS,
PEDIDOS_PROVEEDOR.INCIDENCIAS_ACTIVAS,
PEDIDOS_PROVEEDOR.CALLE,
PEDIDOS_PROVEEDOR.POBLACION,
PEDIDOS_PROVEEDOR.PROVINCIA,
PEDIDOS_PROVEEDOR.CODIGO_POSTAL,
PEDIDOS_PROVEEDOR.PERSONA_CONTACTO,
PEDIDOS_PROVEEDOR.TELEFONO,
PEDIDOS_PROVEEDOR.FECHA_ALTA,
PEDIDOS_PROVEEDOR.FECHA_MODIFICACION,
PEDIDOS_PROVEEDOR.USUARIO,
PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE,
PEDIDOS_CLIENTE.REFERENCIA AS REF_PED_CLIENTE,
PEDIDOS_PROVEEDOR.IMPORTE_NETO,
PEDIDOS_PROVEEDOR.IMPORTE_PORTE,
PEDIDOS_PROVEEDOR.DESCUENTO,
PEDIDOS_PROVEEDOR.IMPORTE_DESCUENTO,
PEDIDOS_PROVEEDOR.BASE_IMPONIBLE,
PEDIDOS_PROVEEDOR.IVA,
PEDIDOS_PROVEEDOR.IMPORTE_IVA,
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
IMPRESIONES.NUM_COPIAS
FROM
PEDIDOS_PROVEEDOR
INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = PEDIDOS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSPROVEEDOR'));
;
/* Drop altered view: V_RECIBOS_CLIENTE */
DROP VIEW V_RECIBOS_CLIENTE;
/* Create altered view: V_RECIBOS_CLIENTE */
/* Create view: V_RECIBOS_CLIENTE (ViwData.CreateDependDef) */
CREATE VIEW V_RECIBOS_CLIENTE(
ID,
ID_RECIBO_COMPENSADO,
REFERENCIA_REC_COMPENSADO,
REFERENCIA,
SITUACION,
ID_FACTURA,
ID_REMESA,
REFERENCIA_REMESA,
FECHA_EMISION,
FECHA_VENCIMIENTO,
DESCRIPCION,
OBSERVACIONES,
IMPORTE,
OTROS_GASTOS,
IMPORTE_TOTAL,
FECHA_FACTURA,
FORMA_PAGO_FACTURA,
IMPORTE_FACTURA,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE_CLIENTE,
NIF_CIF_CLIENTE,
ENTIDAD_CLIENTE,
SUCURSAL_CLIENTE,
DC_CLIENTE,
CUENTA_CLIENTE,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
NUM_COPIAS)
AS
SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
RECIBO_COMPENSADO1.REFERENCIA,
RECIBOS_CLIENTE.REFERENCIA,
CASE
WHEN RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO IS NULL
THEN V_REC_CLI_SITUACION.SITUACION
ELSE RECIBO_COMPENSADO2.SITUACION
END,
RECIBOS_CLIENTE.ID_FACTURA,
RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA,
RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION,
RECIBOS_CLIENTE.OBSERVACIONES, RECIBOS_CLIENTE.IMPORTE, RECIBOS_CLIENTE.OTROS_GASTOS,
COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
FACTURAS_CLIENTE.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_CLIENTE.IMPORTE_TOTAL,
FACTURAS_CLIENTE.ID_EMPRESA,
CONTACTOS.ID as ID_CLIENTE, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD,
CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA,
RECIBOS_CLIENTE.FECHA_ALTA,
RECIBOS_CLIENTE.FECHA_MODIFICACION,
RECIBOS_CLIENTE.USUARIO,
IMPRESIONES.NUM_COPIAS
FROM RECIBOS_CLIENTE
LEFT JOIN V_REC_CLI_SITUACION
ON (V_REC_CLI_SITUACION.ID_RECIBO = RECIBOS_CLIENTE.ID)
LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_FACTURA)
LEFT JOIN FORMAS_PAGO
ON (FORMAS_PAGO.ID = FACTURAS_CLIENTE.ID_FORMA_PAGO)
LEFT JOIN CONTACTOS
ON (CONTACTOS.ID = FACTURAS_CLIENTE.ID_CLIENTE)
LEFT JOIN CONTACTOS_DATOS_BANCO
ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID)
LEFT JOIN REMESAS_CLIENTE
ON (REMESAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_REMESA)
LEFT JOIN V_REC_CLI_COMPENSADOS
ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
LEFT JOIN RECIBOS_CLIENTE RECIBO_COMPENSADO1
ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2
ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = RECIBOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'RECIBOSCLIENTE'));
;
/* Drop altered view: V_REMESAS_CLIENTE */
DROP VIEW V_REMESAS_CLIENTE;
/* Create altered view: V_REMESAS_CLIENTE */
/* Create view: V_REMESAS_CLIENTE (ViwData.CreateDependDef) */
CREATE VIEW V_REMESAS_CLIENTE(
ID,
ID_EMPRESA,
REFERENCIA,
TIPO,
FECHA_REMESA,
DESCRIPCION,
ID_DATOS_BANCO,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
NOMBRE,
ENTIDAD,
SUCURSAL,
DC,
CUENTA,
SUFIJO_N19,
SUFIJO_N58,
NUM_COPIAS,
IMPORTE_TOTAL)
AS
SELECT
REMESAS_CLIENTE.ID,
REMESAS_CLIENTE.ID_EMPRESA,
REMESAS_CLIENTE.REFERENCIA,
REMESAS_CLIENTE.TIPO,
REMESAS_CLIENTE.FECHA_REMESA,
REMESAS_CLIENTE.DESCRIPCION,
REMESAS_CLIENTE.ID_DATOS_BANCO,
REMESAS_CLIENTE.FECHA_ALTA,
REMESAS_CLIENTE.FECHA_MODIFICACION,
REMESAS_CLIENTE.USUARIO,
EMPRESAS_DATOS_BANCO.NOMBRE,
EMPRESAS_DATOS_BANCO.ENTIDAD,
EMPRESAS_DATOS_BANCO.SUCURSAL,
EMPRESAS_DATOS_BANCO.DC,
EMPRESAS_DATOS_BANCO.CUENTA,
EMPRESAS_DATOS_BANCO.SUFIJO_N19,
EMPRESAS_DATOS_BANCO.SUFIJO_N58,
IMPRESIONES.NUM_COPIAS,
SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
FROM
REMESAS_CLIENTE
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO)
LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID)
LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = REMESAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'REMESASCLIENTE'))
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
;
/* Drop altered view: V_REMESAS_PROVEEDOR */
DROP VIEW V_REMESAS_PROVEEDOR;
/* Create altered view: V_REMESAS_PROVEEDOR */
/* Create view: V_REMESAS_PROVEEDOR (ViwData.CreateDependDef) */
CREATE VIEW V_REMESAS_PROVEEDOR(
ID,
ID_EMPRESA,
REFERENCIA,
TIPO,
FECHA_REMESA,
DESCRIPCION,
ID_DATOS_BANCO,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
NOMBRE,
ENTIDAD,
SUCURSAL,
DC,
CUENTA,
SUFIJO_N19,
SUFIJO_N58,
NUM_COPIAS,
IMPORTE_TOTAL)
AS
SELECT
REMESAS_PROVEEDOR.ID,
REMESAS_PROVEEDOR.ID_EMPRESA,
REMESAS_PROVEEDOR.REFERENCIA,
REMESAS_PROVEEDOR.TIPO,
REMESAS_PROVEEDOR.FECHA_REMESA,
REMESAS_PROVEEDOR.DESCRIPCION,
REMESAS_PROVEEDOR.ID_DATOS_BANCO,
REMESAS_PROVEEDOR.FECHA_ALTA,
REMESAS_PROVEEDOR.FECHA_MODIFICACION,
REMESAS_PROVEEDOR.USUARIO,
EMPRESAS_DATOS_BANCO.NOMBRE,
EMPRESAS_DATOS_BANCO.ENTIDAD,
EMPRESAS_DATOS_BANCO.SUCURSAL,
EMPRESAS_DATOS_BANCO.DC,
EMPRESAS_DATOS_BANCO.CUENTA,
EMPRESAS_DATOS_BANCO.SUFIJO_N19,
EMPRESAS_DATOS_BANCO.SUFIJO_N58,
IMPRESIONES.NUM_COPIAS,
SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
FROM
REMESAS_PROVEEDOR
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO)
LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID)
LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = REMESAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'REMESASPROVEEDOR'))
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
;
/* Create index... */
CREATE INDEX IMPRESIONES_IDX1 ON IMPRESIONES(ID_TABLA);
CREATE INDEX IMPRESIONES_IDX2 ON IMPRESIONES(TABLA);
/* Create Primary Key... */
ALTER TABLE IMPRESIONES ADD CONSTRAINT PK_IMPRESIONES PRIMARY KEY (ID);
CREATE VIEW V_AGENTES_COMISIONES_DET_FAC(
ID_FACTURA,
ID_EMPRESA,
FECHA,
REFERENCIA,
SITUACION,
ID_COMISION_LIQUIDADA,
ID_CLIENTE,
ID_AGENTE,
ID_ARTICULO,
ID_PROVEEDOR,
IMPORTE_TOTAL,
COMISION,
IMPORTE_COMISION)
AS
SELECT V_FACTURAS_CLIENTE.ID,
V_FACTURAS_CLIENTE.ID_EMPRESA,
V_FACTURAS_CLIENTE.FECHA_FACTURA,
V_FACTURAS_CLIENTE.REFERENCIA,
V_FACTURAS_CLIENTE.SITUACION,
V_FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,
V_FACTURAS_CLIENTE.ID_CLIENTE,
V_FACTURAS_CLIENTE.ID_AGENTE,
FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.ID_PROVEEDOR,
FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL, COALESCE(AGENTES_COMISIONES.COMISION, 0) as COMISION,
(CASE COALESCE(AGENTES_COMISIONES.COMISION, 0) WHEN 0 THEN 0
ELSE ((FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL * AGENTES_COMISIONES.COMISION)/100) END) as IMPORTE_COMISION
FROM V_FACTURAS_CLIENTE
LEFT JOIN FACTURAS_CLIENTE_DETALLES ON (FACTURAS_CLIENTE_DETALLES.ID_FACTURA = V_FACTURAS_CLIENTE.ID)
LEFT JOIN ARTICULOS ON (ARTICULOS.ID = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO)
LEFT JOIN AGENTES_COMISIONES ON ((AGENTES_COMISIONES.ID_AGENTE = V_FACTURAS_CLIENTE.ID_AGENTE)
AND (AGENTES_COMISIONES.ID_PROVEEDOR = ARTICULOS.ID_PROVEEDOR))
WHERE (FACTURAS_CLIENTE_DETALLES.TIPO_DETALLE = 'Concepto')
AND (ARTICULOS.ID is not null)
AND (ARTICULOS.COMISIONABLE = 1);
;

98
Database/VISTAS.SQL
View File

@ -294,6 +294,7 @@ WHERE
V_CONTACTOS.ID_CATEGORIA = 2; V_CONTACTOS.ID_CATEGORIA = 2;
CREATE VIEW V_ALBARANES_PROVEEDOR( CREATE VIEW V_ALBARANES_PROVEEDOR(
ID, ID,
ID_EMPRESA, ID_EMPRESA,
@ -330,7 +331,8 @@ CREATE VIEW V_ALBARANES_PROVEEDOR(
FECHA_ALTA, FECHA_ALTA,
FECHA_MODIFICACION, FECHA_MODIFICACION,
USUARIO, USUARIO,
ID_FORMA_PAGO) ID_FORMA_PAGO,
NUM_COPIAS)
AS AS
SELECT SELECT
ALBARANES_PROVEEDOR.ID, ALBARANES_PROVEEDOR.ID,
@ -368,13 +370,15 @@ SELECT
ALBARANES_PROVEEDOR.FECHA_ALTA, ALBARANES_PROVEEDOR.FECHA_ALTA,
ALBARANES_PROVEEDOR.FECHA_MODIFICACION, ALBARANES_PROVEEDOR.FECHA_MODIFICACION,
ALBARANES_PROVEEDOR.USUARIO, ALBARANES_PROVEEDOR.USUARIO,
ALBARANES_PROVEEDOR.ID_FORMA_PAGO ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
IMPRESIONES.NUM_COPIAS
FROM FROM
ALBARANES_PROVEEDOR ALBARANES_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR) INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO) LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA) LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN); LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR'));
CREATE VIEW V_AGENTES( CREATE VIEW V_AGENTES(
@ -607,7 +611,8 @@ CREATE VIEW V_RECIBOS_CLIENTE(
CUENTA_CLIENTE, CUENTA_CLIENTE,
FECHA_ALTA, FECHA_ALTA,
FECHA_MODIFICACION, FECHA_MODIFICACION,
USUARIO) USUARIO,
NUM_COPIAS)
AS AS
SELECT RECIBOS_CLIENTE.ID, SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO, RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
@ -632,7 +637,8 @@ SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.FECHA_ALTA, RECIBOS_CLIENTE.FECHA_ALTA,
RECIBOS_CLIENTE.FECHA_MODIFICACION, RECIBOS_CLIENTE.FECHA_MODIFICACION,
RECIBOS_CLIENTE.USUARIO RECIBOS_CLIENTE.USUARIO,
IMPRESIONES.NUM_COPIAS
FROM RECIBOS_CLIENTE FROM RECIBOS_CLIENTE
LEFT JOIN V_REC_CLI_SITUACION LEFT JOIN V_REC_CLI_SITUACION
@ -652,7 +658,8 @@ ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
LEFT JOIN RECIBOS_CLIENTE RECIBO_COMPENSADO1 LEFT JOIN RECIBOS_CLIENTE RECIBO_COMPENSADO1
ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO) ON (RECIBO_COMPENSADO1.ID = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2 LEFT JOIN V_REC_CLI_SITUACION RECIBO_COMPENSADO2
ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO); ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = RECIBOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'RECIBOSCLIENTE'));
@ -674,6 +681,7 @@ CREATE VIEW V_REMESAS_CLIENTE(
CUENTA, CUENTA,
SUFIJO_N19, SUFIJO_N19,
SUFIJO_N58, SUFIJO_N58,
NUM_COPIAS,
IMPORTE_TOTAL) IMPORTE_TOTAL)
AS AS
SELECT SELECT
@ -694,6 +702,7 @@ SELECT
EMPRESAS_DATOS_BANCO.CUENTA, EMPRESAS_DATOS_BANCO.CUENTA,
EMPRESAS_DATOS_BANCO.SUFIJO_N19, EMPRESAS_DATOS_BANCO.SUFIJO_N19,
EMPRESAS_DATOS_BANCO.SUFIJO_N58, EMPRESAS_DATOS_BANCO.SUFIJO_N58,
IMPRESIONES.NUM_COPIAS,
SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL SUM(COALESCE(RECIBOS_CLIENTE.IMPORTE,0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS,0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
FROM FROM
@ -701,7 +710,8 @@ FROM
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO) LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO)
LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID) LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID)
LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID) LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17; LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = REMESAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'REMESASCLIENTE'))
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
@ -803,7 +813,8 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
RECARGO_EQUIVALENCIA, RECARGO_EQUIVALENCIA,
ID_TIPO_IVA, ID_TIPO_IVA,
IMPORTE_NETO, IMPORTE_NETO,
IMPORTE_PORTE) IMPORTE_PORTE,
NUM_COPIAS)
AS AS
SELECT FACTURAS_PROVEEDOR.ID, SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.ID_EMPRESA,
@ -835,12 +846,16 @@ SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA, FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA,
FACTURAS_PROVEEDOR.ID_TIPO_IVA, FACTURAS_PROVEEDOR.ID_TIPO_IVA,
FACTURAS_PROVEEDOR.IMPORTE_NETO, FACTURAS_PROVEEDOR.IMPORTE_NETO,
FACTURAS_PROVEEDOR.IMPORTE_PORTE FACTURAS_PROVEEDOR.IMPORTE_PORTE,
IMPRESIONES.NUM_COPIAS
FROM V_FAC_PRO_SITUACION FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR LEFT JOIN FACTURAS_PROVEEDOR
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
LEFT JOIN PROVEEDORES_DATOS LEFT JOIN PROVEEDORES_DATOS
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR); ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = FACTURAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'FACTURASPROVEEDOR'));
CREATE VIEW V_FACTURAS_CLIENTE( CREATE VIEW V_FACTURAS_CLIENTE(
@ -876,7 +891,8 @@ CREATE VIEW V_FACTURAS_CLIENTE(
IMPORTE_NETO, IMPORTE_NETO,
IMPORTE_PORTE, IMPORTE_PORTE,
ID_AGENTE, ID_AGENTE,
REFERENCIA_COMISION) REFERENCIA_COMISION,
NUM_COPIAS)
AS AS
SELECT FACTURAS_CLIENTE.ID, SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA, FACTURAS_CLIENTE.ID_EMPRESA,
@ -910,14 +926,18 @@ SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.IMPORTE_NETO, FACTURAS_CLIENTE.IMPORTE_NETO,
FACTURAS_CLIENTE.IMPORTE_PORTE, FACTURAS_CLIENTE.IMPORTE_PORTE,
CLIENTES_DATOS.ID_AGENTE, CLIENTES_DATOS.ID_AGENTE,
COMISIONES_LIQUIDADAS.REFERENCIA COMISIONES_LIQUIDADAS.REFERENCIA,
IMPRESIONES.NUM_COPIAS
FROM V_FAC_CLI_SITUACION FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
LEFT JOIN COMISIONES_LIQUIDADAS LEFT JOIN COMISIONES_LIQUIDADAS
ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA) ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
LEFT JOIN CLIENTES_DATOS LEFT JOIN CLIENTES_DATOS
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE); ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
LEFT JOIN IMPRESIONES
ON ((IMPRESIONES.ID_TABLA = FACTURAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'FACTURASCLIENTE'));
CREATE VIEW V_AGENTES_COMISIONES_DET_FAC( CREATE VIEW V_AGENTES_COMISIONES_DET_FAC(
@ -974,6 +994,7 @@ SELECT ALBARANES_CLIENTE.ID,
end as SITUACION end as SITUACION
FROM ALBARANES_CLIENTE; FROM ALBARANES_CLIENTE;
CREATE VIEW V_ALBARANES_CLIENTE( CREATE VIEW V_ALBARANES_CLIENTE(
ID, ID,
ID_EMPRESA, ID_EMPRESA,
@ -1015,7 +1036,8 @@ CREATE VIEW V_ALBARANES_CLIENTE(
FECHA_ENVIO, FECHA_ENVIO,
FECHA_RECEPCION, FECHA_RECEPCION,
ID_AGENTE, ID_AGENTE,
AGENTE) AGENTE,
NUM_COPIAS)
AS AS
SELECT SELECT
ALBARANES_CLIENTE.ID, ALBARANES_CLIENTE.ID,
@ -1058,7 +1080,8 @@ SELECT
ALBARANES_CLIENTE.FECHA_ENVIO, ALBARANES_CLIENTE.FECHA_ENVIO,
ALBARANES_CLIENTE.FECHA_RECEPCION, ALBARANES_CLIENTE.FECHA_RECEPCION,
CLIENTES_DATOS.ID_AGENTE, CLIENTES_DATOS.ID_AGENTE,
AGENTES.NOMBRE AGENTES.NOMBRE,
IMPRESIONES.NUM_COPIAS
FROM FROM
ALBARANES_CLIENTE ALBARANES_CLIENTE
@ -1068,7 +1091,9 @@ FROM
LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE) LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO) LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA) LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN); LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'));
/*Agrupa los artículos de un mismo albarán (ya que en un albarán puede existir varias lineas con el mismo artículo). /*Agrupa los artículos de un mismo albarán (ya que en un albarán puede existir varias lineas con el mismo artículo).
@ -1668,7 +1693,8 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
IMPORTE_TOTAL, IMPORTE_TOTAL,
ID_FORMA_PAGO, ID_FORMA_PAGO,
REF_TIENDA_WEB, REF_TIENDA_WEB,
FECHA_PREVISTA_ENVIO) FECHA_PREVISTA_ENVIO,
NUM_COPIAS)
AS AS
SELECT SELECT
PEDIDOS_CLIENTE.ID, PEDIDOS_CLIENTE.ID,
@ -1701,11 +1727,13 @@ SELECT
PEDIDOS_CLIENTE.IMPORTE_TOTAL, PEDIDOS_CLIENTE.IMPORTE_TOTAL,
PEDIDOS_CLIENTE.ID_FORMA_PAGO, PEDIDOS_CLIENTE.ID_FORMA_PAGO,
PEDIDOS_CLIENTE.REF_TIENDA_WEB, PEDIDOS_CLIENTE.REF_TIENDA_WEB,
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
IMPRESIONES.NUM_COPIAS
FROM FROM
V_PED_CLI_SITUACION V_PED_CLI_SITUACION
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO) INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID); INNER JOIN V_CLIENTES ON (PEDIDOS_CLIENTE.ID_CLIENTE = V_CLIENTES.ID)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'));
CREATE VIEW V_PEDIDOS_PROVEEDOR( CREATE VIEW V_PEDIDOS_PROVEEDOR(
@ -1743,7 +1771,8 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
BASE_IMPONIBLE, BASE_IMPONIBLE,
IVA, IVA,
IMPORTE_IVA, IMPORTE_IVA,
ID_FORMA_PAGO) ID_FORMA_PAGO,
NUM_COPIAS)
AS AS
SELECT SELECT
PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID,
@ -1780,30 +1809,15 @@ SELECT
PEDIDOS_PROVEEDOR.BASE_IMPONIBLE, PEDIDOS_PROVEEDOR.BASE_IMPONIBLE,
PEDIDOS_PROVEEDOR.IVA, PEDIDOS_PROVEEDOR.IVA,
PEDIDOS_PROVEEDOR.IMPORTE_IVA, PEDIDOS_PROVEEDOR.IMPORTE_IVA,
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
IMPRESIONES.NUM_COPIAS
FROM FROM
PEDIDOS_PROVEEDOR PEDIDOS_PROVEEDOR
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 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)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = PEDIDOS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSPROVEEDOR'));
@ -2285,6 +2299,7 @@ CREATE VIEW V_REMESAS_PROVEEDOR(
CUENTA, CUENTA,
SUFIJO_N19, SUFIJO_N19,
SUFIJO_N58, SUFIJO_N58,
NUM_COPIAS,
IMPORTE_TOTAL) IMPORTE_TOTAL)
AS AS
SELECT SELECT
@ -2305,6 +2320,7 @@ SELECT
EMPRESAS_DATOS_BANCO.CUENTA, EMPRESAS_DATOS_BANCO.CUENTA,
EMPRESAS_DATOS_BANCO.SUFIJO_N19, EMPRESAS_DATOS_BANCO.SUFIJO_N19,
EMPRESAS_DATOS_BANCO.SUFIJO_N58, EMPRESAS_DATOS_BANCO.SUFIJO_N58,
IMPRESIONES.NUM_COPIAS,
SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL SUM(COALESCE(RECIBOS_PROVEEDOR.IMPORTE,0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS,0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO,0)) as IMPORTE_TOTAL
FROM FROM
@ -2312,7 +2328,9 @@ FROM
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO) LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO)
LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID) LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID)
LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17; LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = REMESAS_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'REMESASPROVEEDOR'))
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18;
/*Vista para ver para quien estan reservados los articulos del inventario*/ /*Vista para ver para quien estan reservados los articulos del inventario*/

38
Database/factuges.sql
View File

@ -60,6 +60,7 @@ VARCHAR(20);
/**** Generators ****/ /**** Generators ****/
/******************************************************************************/ /******************************************************************************/
CREATE GENERATOR GEN_IMPRESIONES_ID;
CREATE GENERATOR GEN_AGENTES_COMISIONES_ID; CREATE GENERATOR GEN_AGENTES_COMISIONES_ID;
CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID; CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID;
CREATE GENERATOR GEN_ALBARANES_CLI_ID; CREATE GENERATOR GEN_ALBARANES_CLI_ID;
@ -105,6 +106,12 @@ CREATE GENERATOR GEN_USUARIOS_ID;
/**** Tables ****/ /**** Tables ****/
/******************************************************************************/ /******************************************************************************/
CREATE TABLE IMPRESIONES(
ID TIPO_ID NOT NULL,
ID_TABLA TIPO_ID,
TABLA VARCHAR(50) COLLATE ES_ES,
NUM_COPIAS SMALLINT
);
CREATE TABLE AGENTES_COMISIONES ( CREATE TABLE AGENTES_COMISIONES (
@ -989,6 +996,7 @@ SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 80;
/**** Primary Keys ****/ /**** Primary Keys ****/
/******************************************************************************/ /******************************************************************************/
ALTER TABLE IMPRESIONES ADD CONSTRAINT PK_IMPRESIONES PRIMARY KEY (ID);
ALTER TABLE AGENTES_COMISIONES ADD CONSTRAINT PK_AGENTES_COMISIONES PRIMARY KEY (ID); ALTER TABLE AGENTES_COMISIONES ADD CONSTRAINT PK_AGENTES_COMISIONES PRIMARY KEY (ID);
ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT PK_ALBARAN_CLIENTE PRIMARY KEY (ID); ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT PK_ALBARAN_CLIENTE PRIMARY KEY (ID);
ALTER TABLE ALBARANES_CLIENTE_DETALLES ADD CONSTRAINT PK_ALBARANES_CLIENTE_DETALLES PRIMARY KEY (ID); ALTER TABLE ALBARANES_CLIENTE_DETALLES ADD CONSTRAINT PK_ALBARANES_CLIENTE_DETALLES PRIMARY KEY (ID);
@ -1077,6 +1085,8 @@ ALTER TABLE TIENDA_WEB ADD CONSTRAINT FK_EMPRESAS_TIENDA_WEB FOREIGN KEY (ID_EMP
/**** Indices ****/ /**** Indices ****/
/******************************************************************************/ /******************************************************************************/
CREATE INDEX IMPRESIONES_IDX1 ON IMPRESIONES(ID_TABLA);
CREATE INDEX IMPRESIONES_IDX2 ON IMPRESIONES(TABLA);
CREATE INDEX IDX_AGENTES_COMISIONES1 ON AGENTES_COMISIONES (ID_AGENTE); CREATE INDEX IDX_AGENTES_COMISIONES1 ON AGENTES_COMISIONES (ID_AGENTE);
CREATE INDEX IDX_AGENTES_COMISIONES2 ON AGENTES_COMISIONES (ID_PROVEEDOR); CREATE INDEX IDX_AGENTES_COMISIONES2 ON AGENTES_COMISIONES (ID_PROVEEDOR);
CREATE INDEX ALBARANES_CLIENTE_IDX1 ON ALBARANES_CLIENTE (TIPO); CREATE INDEX ALBARANES_CLIENTE_IDX1 ON ALBARANES_CLIENTE (TIPO);
@ -1648,3 +1658,31 @@ end
SET TERM ; ^ SET TERM ; ^
CREATE PROCEDURE PRO_ANADIR_MARCA_IMPRESION (
tabla varchar(255),
id_tabla integer)
as
declare variable id integer;
begin
select ID
from IMPRESIONES
where ID_TABLA = :ID_TABLA
and TABLA = UPPER(:TABLA)
into :ID;
/*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemetno*/
if (ID > 0) then
begin
update IMPRESIONES
set NUM_COPIAS = NUM_COPIAS + 1
where ID = :ID;
end
else
begin
insert into IMPRESIONES (ID, TABLA, ID_TABLA, NUM_COPIAS)
values (GEN_ID(GEN_IMPRESIONES_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
end
suspend;
end;

BIN
Source/Base/Base.res
View File

Binary file not shown.

14
Source/Base/GUIBase/uEditorPreview.pas
View File

@ -19,7 +19,7 @@ type
property Report: TfrxReport read GetReport; property Report: TfrxReport read GetReport;
procedure LoadFromStream(AStream : TStream); procedure LoadFromStream(AStream : TStream);
function ExportToFile : String; function ExportToFile : String;
procedure Print; function Print: Boolean;
procedure Preview; procedure Preview;
function GetTablaImpresion: String; function GetTablaImpresion: String;
@ -106,6 +106,7 @@ type
procedure actPrimeraPaginaUpdate(Sender: TObject); procedure actPrimeraPaginaUpdate(Sender: TObject);
procedure actPaginaAnteriorUpdate(Sender: TObject); procedure actPaginaAnteriorUpdate(Sender: TObject);
private private
FVariable: Boolean;
FPreview : TfrViewPreview; FPreview : TfrViewPreview;
procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer); procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer);
procedure UpdateZoom; procedure UpdateZoom;
@ -126,7 +127,7 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
property Report: TfrxReport read GetReport; property Report: TfrxReport read GetReport;
procedure Print; function Print: Boolean;
procedure Preview; procedure Preview;
procedure LoadFromStream(AStream : TStream); procedure LoadFromStream(AStream : TStream);
function ExportToFile : String; function ExportToFile : String;
@ -315,6 +316,8 @@ end;
procedure TfEditorPreview.OnPrint(Sender: Tobject); procedure TfEditorPreview.OnPrint(Sender: Tobject);
begin begin
FVariable := True;
if (FTablaImpresion <> '-1') and (FIdTablaImpresion <> '-1') then
dmImpresiones.AnadirMarcaImpresion(TablaImpresion, IdTablaImpresion); dmImpresiones.AnadirMarcaImpresion(TablaImpresion, IdTablaImpresion);
end; end;
@ -347,15 +350,18 @@ begin
Self.ShowModal; Self.ShowModal;
end; end;
procedure TfEditorPreview.Print; function TfEditorPreview.Print: Boolean;
begin begin
FPreview.Preview.Report.OnPrintReport := onprint; FVariable := False;
FPreview.Preview.Report.OnPrintReport := OnPrint;
if not frxPrinters.HasPhysicalPrinters then if not frxPrinters.HasPhysicalPrinters then
frxErrorMsg(frxResources.Get('clNoPrinters')) frxErrorMsg(frxResources.Get('clNoPrinters'))
else else
FPreview.Preview.Print; FPreview.Preview.Print;
Enabled := True; Enabled := True;
Result := FVariable;
end; end;
procedure TfEditorPreview.SetIdTablaImpresion(Value: String); procedure TfEditorPreview.SetIdTablaImpresion(Value: String);

16
Source/Base/GUIBase/uViewGridBase.pas
View File

@ -36,6 +36,8 @@ type
procedure SaveGridStatus; procedure SaveGridStatus;
procedure RestoreGridStatus; procedure RestoreGridStatus;
procedure DesactivarGrid;
procedure ActivarGrid;
procedure GotoFirst; procedure GotoFirst;
procedure GotoLast; procedure GotoLast;
@ -136,6 +138,8 @@ type
procedure SaveGridStatus; procedure SaveGridStatus;
procedure RestoreGridStatus; procedure RestoreGridStatus;
procedure DesactivarGrid;
procedure ActivarGrid;
procedure GotoFirst; procedure GotoFirst;
procedure GotoLast; procedure GotoLast;
@ -177,6 +181,12 @@ end;
{ TfrViewGrid } { TfrViewGrid }
procedure TfrViewGridBase.ActivarGrid;
begin
if Assigned(_FocusedView) then
_FocusedView.EndUpdate;
end;
procedure TfrViewGridBase.AjustarAncho; procedure TfrViewGridBase.AjustarAncho;
begin begin
if Assigned(_FocusedView) then if Assigned(_FocusedView) then
@ -431,6 +441,12 @@ begin
// //
end; end;
procedure TfrViewGridBase.DesactivarGrid;
begin
if Assigned(_FocusedView) then
_FocusedView.BeginUpdate;
end;
destructor TfrViewGridBase.Destroy; destructor TfrViewGridBase.Destroy;
begin begin
FOnFilterChanged := Nil; FOnFilterChanged := Nil;

6
Source/Cliente/FactuGES.bdsproj
View File

@ -149,7 +149,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo> <VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">3</VersionInfo> <VersionInfo Name="Release">5</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.3.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">3.0.5.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys> <VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.3.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">3.0.5.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages> </VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,0,3,0 FILEVERSION 3,0,5,0
PRODUCTVERSION 3,0,3,0 PRODUCTVERSION 3,0,5,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.0.3.0\0" VALUE "FileVersion", "3.0.5.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductVersion", "3.0.3.0\0" VALUE "ProductVersion", "3.0.5.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Iconos/fac.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 6.2 KiB

BIN
Source/Iconos/no_comisionable.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 290 B

31
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -6,7 +6,8 @@ interface
uses uses
SysUtils, uDADataTable, uEditorDBItem, SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModuleAlbaranesCliente, uClientesController, uControllerBase, uIDataModuleAlbaranesCliente, uClientesController,
uDetallesAlbaranClienteController, uBizAlbaranesCliente, uBizDireccionesContacto; uDetallesAlbaranClienteController, uBizAlbaranesCliente, uBizDireccionesContacto,
uViewGridBase;
type type
IAlbaranesClienteController = interface(IObservador) IAlbaranesClienteController = interface(IObservador)
@ -39,11 +40,11 @@ type
function Existe(const ID: Integer) : Boolean; function Existe(const ID: Integer) : Boolean;
function Duplicar(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente; function Duplicar(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente; function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranCliente;
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente; function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -119,7 +120,7 @@ type
AAlbaran: IBizAlbaranCliente); AAlbaran: IBizAlbaranCliente);
procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranCliente); procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranCliente);
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente; function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranCliente;
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente; function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
procedure RecuperarCliente(AAlbaran : IBizAlbaranCliente); procedure RecuperarCliente(AAlbaran : IBizAlbaranCliente);
@ -137,7 +138,7 @@ type
DoPost: Boolean = True) : Boolean; DoPost: Boolean = True) : Boolean;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); function Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
end; end;
@ -817,13 +818,26 @@ begin
end; end;
end; end;
function TAlbaranesClienteController.ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente; function TAlbaranesClienteController.ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil): IBizAlbaranCliente;
var var
ASeleccionados : IBizAlbaranCliente; ASeleccionados : IBizAlbaranCliente;
begin begin
if Assigned(ViewGrid) then
begin
//Guardamos la situación porque el CopyDataTable nos cambia la posicion
ViewGrid.SaveGridStatus;
ViewGrid.DesactivarGrid;
end;
ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranCliente); ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranCliente);
CopyDataTable(AAlbaran.DataTable, ASeleccionados.DataTable, True); CopyDataTable(AAlbaran.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
if Assigned(ViewGrid) then
begin
ViewGrid.ActivarGrid;
ViewGrid.RestoreGridStatus;
end;
end; end;
procedure TAlbaranesClienteController.FiltrarEmpresa( procedure TAlbaranesClienteController.FiltrarEmpresa(
@ -963,12 +977,13 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false); function TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false): Boolean;
var var
AReportController : IAlbaranesClienteReportController; AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TStringList; ID_Albaranes: TStringList;
begin begin
Result := False;
AReportController := TAlbaranesClienteReportController.Create; AReportController := TAlbaranesClienteReportController.Create;
try try
ID_Albaranes := TStringList.Create; ID_Albaranes := TStringList.Create;
@ -990,7 +1005,7 @@ begin
else else
ID_Albaranes.Add(IntToStr(AAlbaran.ID)); ID_Albaranes.Add(IntToStr(AAlbaran.ID));
AReportController.Print(ID_Albaranes.CommaText); Result := AReportController.Print(ID_Albaranes.CommaText);
finally finally
AReportController := NIL; AReportController := NIL;

16
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -11,7 +11,7 @@ type
IAlbaranesClienteReportController = interface IAlbaranesClienteReportController = interface
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}'] ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
procedure Preview(const AID : String); procedure Preview(const AID : String);
procedure Print(const AID : String); function Print(const AID : String): Boolean;
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
end; end;
@ -26,7 +26,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AID : String); procedure Preview(const AID : String);
procedure Print(const AID : String); function Print(const AID : String): Boolean;
procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; const withRefCliente: Boolean);
end; end;
@ -36,7 +36,8 @@ implementation
uses uses
uROTypes, uEditorRegistryUtils, uIEditorAlbaranesClientePreview, uROTypes, uEditorRegistryUtils, uIEditorAlbaranesClientePreview,
uEditorPreview, uDataModuleAlbaranesCliente, uEditorBase, cxControls; uEditorPreview, uDataModuleAlbaranesCliente, uEditorBase, cxControls,
schAlbaranesClienteClient_Intf;
{ TAlbaranesClienteReportController } { TAlbaranesClienteReportController }
@ -130,11 +131,12 @@ begin
AEditor.Preview; AEditor.Preview;
end; end;
procedure TAlbaranesClienteReportController.Print(const AID : String); function TAlbaranesClienteReportController.Print(const AID : String): Boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
begin begin
Result := False;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
@ -151,7 +153,11 @@ begin
end; end;
if Assigned(AEditor) then if Assigned(AEditor) then
AEditor.Print begin
AEditor.TablaImpresion := nme_AlbaranesCliente;
AEditor.IdTablaImpresion := AID;
Result := AEditor.Print;
end;
end; end;
end. end.

19
Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
View File

@ -9,7 +9,7 @@ uses
type type
IDetallesAlbaranClienteController = interface(IControllerDetallesArticulos) IDetallesAlbaranClienteController = interface(IControllerDetallesArticulos)
['{6AD99D47-2856-47B1-9620-DD115726B0E1}'] ['{6AD99D47-2856-47B1-9620-DD115726B0E1}']
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
@ -31,7 +31,7 @@ type
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
public public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
@ -60,7 +60,7 @@ begin
end; end;
end; end;
procedure TDetallesAlbaranClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); procedure TDetallesAlbaranClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1);
var var
AArticulos: IBizArticulo; AArticulos: IBizArticulo;
begin begin
@ -68,8 +68,19 @@ begin
begin begin
try try
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo); AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
if ANuevaFila then
begin
AArticulos := (FArticulosController as IArticulosAlbaranClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este albarán de cliente', True); AArticulos := (FArticulosController as IArticulosAlbaranClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este albarán de cliente', True);
Add(ADetalles, AArticulos); Add(ADetalles, AArticulos, ACantidad)
end
else
begin
AArticulos := (FArticulosController as IArticulosAlbaranClienteController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este albarán de cliente', False);
RellenarDetalle(ADetalles, AArticulos, ACantidad);
end;
finally finally
AArticulos := Nil; AArticulos := Nil;
end; end;

11
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -614,6 +614,17 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
Params = <> Params = <>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest

56
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,11 +9,11 @@ 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_DarReferencia = '{082B0C4D-3177-4BB4-B3B3-768B55A2D4CD}'; RID_DarReferencia = '{DCC75E0A-1413-4F74-8EF2-D5261717689F}';
RID_AlbaranesCliente = '{3BDADEA6-ACB7-4E6F-8877-8634A2F4B4FB}'; RID_AlbaranesCliente = '{BD15D29D-2048-44B3-BE79-0485BDB36C8E}';
RID_AlbaranesCliente_Detalles = '{0ACEBB64-A4A0-410C-BA50-BE62510542C0}'; RID_AlbaranesCliente_Detalles = '{4CA5BC9A-72EA-4187-BD2E-A9EF5BAAF24E}';
RID_AlbaranesCliente_Detalles_Refresh = '{0E3B100E-D70D-41C4-BC7C-D53C5C732E65}'; RID_AlbaranesCliente_Detalles_Refresh = '{9F94485D-D822-4622-A4C0-30D76050FD48}';
RID_AlbaranesCliente_Refresh = '{19951F6E-3BFD-4195-A2F3-0D66AAC9B375}'; RID_AlbaranesCliente_Refresh = '{2CF53053-8A71-4901-80B3-3527508FD486}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -70,6 +70,7 @@ const
fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION'; fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
fld_AlbaranesClienteID_AGENTE = 'ID_AGENTE'; fld_AlbaranesClienteID_AGENTE = 'ID_AGENTE';
fld_AlbaranesClienteAGENTE = 'AGENTE'; fld_AlbaranesClienteAGENTE = 'AGENTE';
fld_AlbaranesClienteNUM_COPIAS = 'NUM_COPIAS';
{ AlbaranesCliente field indexes } { AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0; idx_AlbaranesClienteID = 0;
@ -113,6 +114,7 @@ const
idx_AlbaranesClienteFECHA_RECEPCION = 38; idx_AlbaranesClienteFECHA_RECEPCION = 38;
idx_AlbaranesClienteID_AGENTE = 39; idx_AlbaranesClienteID_AGENTE = 39;
idx_AlbaranesClienteAGENTE = 40; idx_AlbaranesClienteAGENTE = 40;
idx_AlbaranesClienteNUM_COPIAS = 41;
{ AlbaranesCliente_Detalles fields } { AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID'; fld_AlbaranesCliente_DetallesID = 'ID';
@ -224,6 +226,7 @@ const
fld_AlbaranesCliente_RefreshFECHA_RECEPCION = 'FECHA_RECEPCION'; fld_AlbaranesCliente_RefreshFECHA_RECEPCION = 'FECHA_RECEPCION';
fld_AlbaranesCliente_RefreshID_AGENTE = 'ID_AGENTE'; fld_AlbaranesCliente_RefreshID_AGENTE = 'ID_AGENTE';
fld_AlbaranesCliente_RefreshAGENTE = 'AGENTE'; fld_AlbaranesCliente_RefreshAGENTE = 'AGENTE';
fld_AlbaranesCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
{ AlbaranesCliente_Refresh field indexes } { AlbaranesCliente_Refresh field indexes }
idx_AlbaranesCliente_RefreshID = 0; idx_AlbaranesCliente_RefreshID = 0;
@ -267,11 +270,12 @@ const
idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 38; idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 38;
idx_AlbaranesCliente_RefreshID_AGENTE = 39; idx_AlbaranesCliente_RefreshID_AGENTE = 39;
idx_AlbaranesCliente_RefreshAGENTE = 40; idx_AlbaranesCliente_RefreshAGENTE = 40;
idx_AlbaranesCliente_RefreshNUM_COPIAS = 41;
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{7E399946-10F5-4182-AF9A-88118707303F}'] ['{569D59FB-01EC-4F5E-B15D-B32F804F2345}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -300,7 +304,7 @@ type
{ IAlbaranesCliente } { IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable) IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{A9F7185C-D38D-4987-8371-EAAABA04D66F}'] ['{121684CB-5C66-4812-9536-EAD43E7D4B71}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -384,6 +388,8 @@ type
procedure SetID_AGENTEValue(const aValue: Integer); procedure SetID_AGENTEValue(const aValue: Integer);
function GetAGENTEValue: String; function GetAGENTEValue: String;
procedure SetAGENTEValue(const aValue: String); procedure SetAGENTEValue(const aValue: String);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties } { Properties }
@ -428,6 +434,7 @@ type
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end; end;
{ TAlbaranesClienteDataTableRules } { TAlbaranesClienteDataTableRules }
@ -517,6 +524,8 @@ type
procedure SetID_AGENTEValue(const aValue: Integer); virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetAGENTEValue: String; virtual; function GetAGENTEValue: String; virtual;
procedure SetAGENTEValue(const aValue: String); virtual; procedure SetAGENTEValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -560,6 +569,7 @@ type
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -569,7 +579,7 @@ type
{ IAlbaranesCliente_Detalles } { IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{B10831B5-8141-4090-8D71-0F09742F86ED}'] ['{0D42AFD8-9D02-42A7-A52E-4BD1087377C2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -682,7 +692,7 @@ type
{ IAlbaranesCliente_Detalles_Refresh } { IAlbaranesCliente_Detalles_Refresh }
IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{48F905D6-3C7F-4E0F-9E48-8B91954739ED}'] ['{370021CC-EFF6-465B-9577-8DD5FFB6F162}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -795,7 +805,7 @@ type
{ IAlbaranesCliente_Refresh } { IAlbaranesCliente_Refresh }
IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{D51B67F3-2EC6-46BC-82F7-B2BE93663E91}'] ['{20F45447-E91C-4B75-9381-526433477CD7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -879,6 +889,8 @@ type
procedure SetID_AGENTEValue(const aValue: Integer); procedure SetID_AGENTEValue(const aValue: Integer);
function GetAGENTEValue: String; function GetAGENTEValue: String;
procedure SetAGENTEValue(const aValue: String); procedure SetAGENTEValue(const aValue: String);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties } { Properties }
@ -923,6 +935,7 @@ type
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end; end;
{ TAlbaranesCliente_RefreshDataTableRules } { TAlbaranesCliente_RefreshDataTableRules }
@ -1012,6 +1025,8 @@ type
procedure SetID_AGENTEValue(const aValue: Integer); virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetAGENTEValue: String; virtual; function GetAGENTEValue: String; virtual;
procedure SetAGENTEValue(const aValue: String); virtual; procedure SetAGENTEValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -1055,6 +1070,7 @@ type
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue; property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1511,6 +1527,16 @@ begin
DataTable.Fields[idx_AlbaranesClienteAGENTE].AsString := aValue; DataTable.Fields[idx_AlbaranesClienteAGENTE].AsString := aValue;
end; end;
function TAlbaranesClienteDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteNUM_COPIAS].AsInteger;
end;
procedure TAlbaranesClienteDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteNUM_COPIAS].AsInteger := aValue;
end;
{ TAlbaranesCliente_DetallesDataTableRules } { TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -2259,6 +2285,16 @@ begin
DataTable.Fields[idx_AlbaranesCliente_RefreshAGENTE].AsString := aValue; DataTable.Fields[idx_AlbaranesCliente_RefreshAGENTE].AsString := aValue;
end; end;
function TAlbaranesCliente_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_RefreshNUM_COPIAS].AsInteger;
end;
procedure TAlbaranesCliente_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesCliente_RefreshNUM_COPIAS].AsInteger := aValue;
end;
initialization initialization
RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules); RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);

64
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{3D8FD5D2-A886-493F-8792-FF470F196654}'; RID_DarReferenciaDelta = '{BB048978-E82B-4CB5-9C1D-7107E5F17BB1}';
RID_AlbaranesClienteDelta = '{B423BC9B-11C5-4CD6-B4DE-15BD0746B77F}'; RID_AlbaranesClienteDelta = '{D5AF214C-6088-4F9D-B3AD-31F0331285DE}';
RID_AlbaranesCliente_DetallesDelta = '{07D56912-3A90-4AB6-A546-53E07A7F32FA}'; RID_AlbaranesCliente_DetallesDelta = '{2BB9CAA9-9328-4A65-BE4C-B06D2B48303A}';
RID_AlbaranesCliente_Detalles_RefreshDelta = '{180849FA-AF37-4138-A0D9-B89C55E94A4D}'; RID_AlbaranesCliente_Detalles_RefreshDelta = '{E0DD7094-E6BE-4AB9-B6F6-DD1989A64904}';
RID_AlbaranesCliente_RefreshDelta = '{53C27CD8-3116-4171-97EE-4DDD39E6DFF3}'; RID_AlbaranesCliente_RefreshDelta = '{036CCB6F-FFF2-4369-8F75-FE0D068481B6}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{3D8FD5D2-A886-493F-8792-FF470F196654}'] ['{BB048978-E82B-4CB5-9C1D-7107E5F17BB1}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IAlbaranesClienteDelta } { IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente) IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{B423BC9B-11C5-4CD6-B4DE-15BD0746B77F}'] ['{D5AF214C-6088-4F9D-B3AD-31F0331285DE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -90,6 +90,7 @@ type
function GetOldFECHA_RECEPCIONValue : DateTime; function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
function GetOldAGENTEValue : String; function GetOldAGENTEValue : String;
function GetOldNUM_COPIASValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -133,6 +134,7 @@ type
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue; property OldAGENTE : String read GetOldAGENTEValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end; end;
{ TAlbaranesClienteBusinessProcessorRules } { TAlbaranesClienteBusinessProcessorRules }
@ -263,6 +265,9 @@ type
function GetAGENTEValue: String; virtual; function GetAGENTEValue: String; virtual;
function GetOldAGENTEValue: String; virtual; function GetOldAGENTEValue: String; virtual;
procedure SetAGENTEValue(const aValue: String); virtual; procedure SetAGENTEValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -347,6 +352,8 @@ type
property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property AGENTE : String read GetAGENTEValue write SetAGENTEValue; property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue; property OldAGENTE : String read GetOldAGENTEValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -356,7 +363,7 @@ type
{ IAlbaranesCliente_DetallesDelta } { IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{07D56912-3A90-4AB6-A546-53E07A7F32FA}'] ['{2BB9CAA9-9328-4A65-BE4C-B06D2B48303A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -483,7 +490,7 @@ type
{ IAlbaranesCliente_Detalles_RefreshDelta } { IAlbaranesCliente_Detalles_RefreshDelta }
IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh) IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
['{180849FA-AF37-4138-A0D9-B89C55E94A4D}'] ['{E0DD7094-E6BE-4AB9-B6F6-DD1989A64904}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -610,7 +617,7 @@ type
{ IAlbaranesCliente_RefreshDelta } { IAlbaranesCliente_RefreshDelta }
IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh) IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
['{53C27CD8-3116-4171-97EE-4DDD39E6DFF3}'] ['{036CCB6F-FFF2-4369-8F75-FE0D068481B6}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -653,6 +660,7 @@ type
function GetOldFECHA_RECEPCIONValue : DateTime; function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
function GetOldAGENTEValue : String; function GetOldAGENTEValue : String;
function GetOldNUM_COPIASValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -696,6 +704,7 @@ type
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue; property OldAGENTE : String read GetOldAGENTEValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end; end;
{ TAlbaranesCliente_RefreshBusinessProcessorRules } { TAlbaranesCliente_RefreshBusinessProcessorRules }
@ -826,6 +835,9 @@ type
function GetAGENTEValue: String; virtual; function GetAGENTEValue: String; virtual;
function GetOldAGENTEValue: String; virtual; function GetOldAGENTEValue: String; virtual;
procedure SetAGENTEValue(const aValue: String); virtual; procedure SetAGENTEValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -910,6 +922,8 @@ type
property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property AGENTE : String read GetAGENTEValue write SetAGENTEValue; property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue; property OldAGENTE : String read GetOldAGENTEValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1579,6 +1593,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE] := aValue;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_COPIAS];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNUM_COPIAS];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_COPIAS] := aValue;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules } { TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2684,6 +2713,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE] := aValue;
end; end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS] := aValue;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);

124
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -79,7 +79,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' + 'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' + 'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' + 'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' +
'TE'#10' FROM'#10' V_ALBARANES_CLIENTE' 'TE, NUM_COPIAS'#10' FROM'#10' V_ALBARANES_CLIENTE'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -106,6 +106,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DatasetField = 'ID_PEDIDO' DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO' TableField = 'ID_PEDIDO'
end end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item item
DatasetField = 'SITUACION' DatasetField = 'SITUACION'
TableField = 'SITUACION' TableField = 'SITUACION'
@ -114,14 +122,26 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DatasetField = 'ID_ALMACEN' DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN' TableField = 'ID_ALMACEN'
end end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item item
DatasetField = 'ID_FACTURA' DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA' TableField = 'ID_FACTURA'
end end
item
DatasetField = 'REF_PEDIDO'
TableField = 'REF_PEDIDO'
end
item item
DatasetField = 'CALLE' DatasetField = 'CALLE'
TableField = 'CALLE' TableField = 'CALLE'
end end
item
DatasetField = 'REF_FACTURA'
TableField = 'REF_FACTURA'
end
item item
DatasetField = 'CODIGO_POSTAL' DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL'
@ -206,6 +226,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DatasetField = 'ID_FORMA_PAGO' DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end end
item
DatasetField = 'FECHA_PREVISTA_ENVIO'
TableField = 'FECHA_PREVISTA_ENVIO'
end
item item
DatasetField = 'FECHA_ENVIO' DatasetField = 'FECHA_ENVIO'
TableField = 'FECHA_ENVIO' TableField = 'FECHA_ENVIO'
@ -215,28 +239,16 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TableField = 'FECHA_RECEPCION' TableField = 'FECHA_RECEPCION'
end end
item item
DatasetField = 'REF_PEDIDO' DatasetField = 'ID_AGENTE'
TableField = 'REF_PEDIDO' TableField = 'ID_AGENTE'
end end
item item
DatasetField = 'REF_FACTURA' DatasetField = 'AGENTE'
TableField = 'REF_FACTURA' TableField = 'AGENTE'
end end
item item
DatasetField = 'NOMBRE_ALMACEN' DatasetField = 'NUM_COPIAS'
TableField = 'NOMBRE_ALMACEN' TableField = 'NUM_COPIAS'
end
item
DatasetField = 'FECHA_PREVISTA_ENVIO'
TableField = 'FECHA_PREVISTA_ENVIO'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end> end>
end> end>
Name = 'AlbaranesCliente' Name = 'AlbaranesCliente'
@ -666,6 +678,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -1193,8 +1216,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' + 'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' + 'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' + 'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' +
'TE'#10' FROM'#10' V_ALBARANES_CLIENTE'#10' WHERE V_ALBARANES_CLIENTE.ID' + 'TE, NUM_COPIAS'#10' FROM'#10' V_ALBARANES_CLIENTE'#10' WHERE V_ALBARANE' +
' = :ID' 'S_CLIENTE.ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -1221,6 +1244,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DatasetField = 'ID_PEDIDO' DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO' TableField = 'ID_PEDIDO'
end end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item item
DatasetField = 'SITUACION' DatasetField = 'SITUACION'
TableField = 'SITUACION' TableField = 'SITUACION'
@ -1229,14 +1260,26 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DatasetField = 'ID_ALMACEN' DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN' TableField = 'ID_ALMACEN'
end end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item item
DatasetField = 'ID_FACTURA' DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA' TableField = 'ID_FACTURA'
end end
item
DatasetField = 'REF_PEDIDO'
TableField = 'REF_PEDIDO'
end
item item
DatasetField = 'CALLE' DatasetField = 'CALLE'
TableField = 'CALLE' TableField = 'CALLE'
end end
item
DatasetField = 'REF_FACTURA'
TableField = 'REF_FACTURA'
end
item item
DatasetField = 'CODIGO_POSTAL' DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL'
@ -1321,6 +1364,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DatasetField = 'ID_FORMA_PAGO' DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end end
item
DatasetField = 'FECHA_PREVISTA_ENVIO'
TableField = 'FECHA_PREVISTA_ENVIO'
end
item item
DatasetField = 'FECHA_ENVIO' DatasetField = 'FECHA_ENVIO'
TableField = 'FECHA_ENVIO' TableField = 'FECHA_ENVIO'
@ -1330,28 +1377,16 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
TableField = 'FECHA_RECEPCION' TableField = 'FECHA_RECEPCION'
end end
item item
DatasetField = 'REF_PEDIDO' DatasetField = 'ID_AGENTE'
TableField = 'REF_PEDIDO' TableField = 'ID_AGENTE'
end end
item item
DatasetField = 'REF_FACTURA' DatasetField = 'AGENTE'
TableField = 'REF_FACTURA' TableField = 'AGENTE'
end end
item item
DatasetField = 'NOMBRE_ALMACEN' DatasetField = 'NUM_COPIAS'
TableField = 'NOMBRE_ALMACEN' TableField = 'NUM_COPIAS'
end
item
DatasetField = 'FECHA_PREVISTA_ENVIO'
TableField = 'FECHA_PREVISTA_ENVIO'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end> end>
end> end>
Name = 'AlbaranesCliente_Refresh' Name = 'AlbaranesCliente_Refresh'
@ -1784,6 +1819,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -200,6 +200,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0

3
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -275,9 +275,6 @@ begin
if (FAlbaran.Detalles.RecordCount > 0) then if (FAlbaran.Detalles.RecordCount > 0) then
begin begin
FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Cliente); FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Cliente);
//En caso de ser una orden de devolucion también debe cambiar el signo a los detalles
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
Controller.DetallesController.CambiarSignoDetalles(FAlbaran.Detalles);
end; end;
finally finally

3
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Caption = 'Lista de albaranes de cliente' Caption = 'Lista de albaranes de cliente'
ClientWidth = 583 ClientWidth = 583
ExplicitWidth = 591 ExplicitWidth = 591
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -133,7 +134,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Visible = True Visible = True
ExplicitWidth = 246 ExplicitWidth = 242
object TBXItem42: TTBXItem object TBXItem42: TTBXItem
Action = actEnviar Action = actEnviar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText

9
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -301,7 +301,7 @@ begin
if (Application.MessageBox('¿Desea borrar los albaranes de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea borrar los albaranes de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes) as IBizAlbaranCliente; AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranCliente;
end end
end end
else begin else begin
@ -387,13 +387,14 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes) as IBizAlbaranCliente; AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranCliente;
end end
else else
AAlbaranes := Albaranes; AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
FController.Print(AAlbaranes, AllItems); if FController.Print(AAlbaranes, AllItems) then
RefrescarInterno;
end; end;
end; end;
end; end;
@ -471,7 +472,7 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes) as IBizAlbaranCliente; AAlbaranes := (Controller as IAlbaranesClienteController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranCliente;
end end
else else
AAlbaranes := Albaranes; AAlbaranes := Albaranes;

23
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -38,6 +38,15 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
MinWidth = 30
Options.HorzSizing = False
VisibleForCustomization = False
Width = 30
IsCaptionAssigned = True
end
object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn
Caption = 'Incidencias' Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS' DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -369,6 +378,20 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
CF0000000049454E44AE426082} CF0000000049454E44AE426082}
Name = 'PngImage3' Name = 'PngImage3'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end> end>
Left = 64 Left = 64
Top = 72 Top = 72

21
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -61,6 +61,7 @@ type
TBXItem4: TTBXItem; TBXItem4: TTBXItem;
actAgentes: TAction; actAgentes: TAction;
cxGridViewAGENTE: TcxGridDBColumn; cxGridViewAGENTE: TcxGridDBColumn;
cxGridViewNUM_COPIAS: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@ -78,6 +79,9 @@ type
Y: Integer); Y: Integer);
procedure actAgentesExecute(Sender: TObject); procedure actAgentesExecute(Sender: TObject);
procedure actAgentesUpdate(Sender: TObject); procedure actAgentesUpdate(Sender: TObject);
procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -271,6 +275,23 @@ begin
end; end;
end; end;
procedure TfrViewAlbaranesCliente.cxGridViewNUM_COPIASCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
begin
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
ADone := True;
end;
end;
procedure TfrViewAlbaranesCliente.cxGridViewStylesGetContentStyle(Sender: procedure TfrViewAlbaranesCliente.cxGridViewStylesGetContentStyle(Sender:
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
TcxCustomGridTableItem; out AStyle: TcxStyle); TcxCustomGridTableItem; out AStyle: TcxStyle);

21
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
View File

@ -30,6 +30,7 @@ type
procedure SetAlbaran(const Value: IBizAlbaranCliente); procedure SetAlbaran(const Value: IBizAlbaranCliente);
procedure AnadirArticulosInterno; override; procedure AnadirArticulosInterno; override;
procedure RellenarArticulosInterno; override;
function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override; function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
public public
@ -45,18 +46,18 @@ uses uDetallesAlbaranClienteController, uViewDetallesBase;
function TfrViewDetallesAlbaranCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; function TfrViewDetallesAlbaranCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
begin begin
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia);
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
(Controller as IDetallesAlbaranClienteController).CambiarSignoDetalles(Detalles); Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, -1)
else
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID)
end; end;
procedure TfrViewDetallesAlbaranCliente.AnadirArticulosInterno; procedure TfrViewDetallesAlbaranCliente.AnadirArticulosInterno;
begin begin
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente);
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
(Controller as IDetallesAlbaranClienteController).CambiarSignoDetalles(Detalles); (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, -1)
else
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente);
end; end;
function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente; function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
@ -69,4 +70,12 @@ begin
FAlbaran := Value; FAlbaran := Value;
end; end;
procedure TfrViewDetallesAlbaranCliente.RellenarArticulosInterno;
begin
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False, -1)
else
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False);
end;
end. end.

30
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -7,7 +7,7 @@ uses
SysUtils, uDADataTable, uEditorDBItem, SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController, uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController,
uDetallesAlbaranProveedorController, uBizAlbaranesProveedor, uDetallesAlbaranProveedorController, uBizAlbaranesProveedor,
uBizDireccionesContacto, uBizInventario; uBizDireccionesContacto, uBizInventario, uViewGridBase;
type type
IAlbaranesProveedorController = interface(IObservador) IAlbaranesProveedorController = interface(IObservador)
@ -41,7 +41,7 @@ type
function Existe(const ID: Integer) : Boolean; function Existe(const ID: Integer) : Boolean;
function Duplicar(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor; function Duplicar(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor) : IBizAlbaranProveedor; function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranProveedor;
function ElegirAlbaranes(AAlbaran: IBizAlbaranProveedor; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranProveedor; function ElegirAlbaranes(AAlbaran: IBizAlbaranProveedor; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranProveedor;
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto; AAlbaran: IBizAlbaranProveedor); procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto; AAlbaran: IBizAlbaranProveedor);
@ -53,7 +53,7 @@ type
function EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean; function EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean;
procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false); procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false); function Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean;
procedure Limpiardireccion(AAlbaran: IBizAlbaranProveedor); procedure Limpiardireccion(AAlbaran: IBizAlbaranProveedor);
end; end;
@ -112,7 +112,7 @@ type
AAlbaran: IBizAlbaranProveedor); AAlbaran: IBizAlbaranProveedor);
procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranProveedor); procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranProveedor);
function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor) : IBizAlbaranProveedor; function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranProveedor;
function ElegirAlbaranes(AAlbaran: IBizAlbaranProveedor; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranProveedor; function ElegirAlbaranes(AAlbaran: IBizAlbaranProveedor; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranProveedor;
procedure RecalcularImportes(AAlbaran: IBizAlbaranProveedor); procedure RecalcularImportes(AAlbaran: IBizAlbaranProveedor);
@ -120,7 +120,7 @@ type
function EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean; function EsEliminable(AAlbaran: IBizAlbaranProveedor): Boolean;
procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false); procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false); function Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean;
procedure Limpiardireccion(AAlbaran: IBizAlbaranProveedor); procedure Limpiardireccion(AAlbaran: IBizAlbaranProveedor);
end; end;
@ -906,13 +906,26 @@ begin
end; end;
end; end;
function TAlbaranesProveedorController.ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor; function TAlbaranesProveedorController.ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor; Const ViewGrid: IViewGridBase = Nil): IBizAlbaranProveedor;
var var
ASeleccionados : IBizAlbaranProveedor; ASeleccionados : IBizAlbaranProveedor;
begin begin
if Assigned(ViewGrid) then
begin
//Guardamos la situación porque el CopyDataTable nos cambia la posicion
ViewGrid.SaveGridStatus;
ViewGrid.DesactivarGrid;
end;
ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranProveedor); ASeleccionados := (Self.Buscar(ID_NULO) as IBizAlbaranProveedor);
CopyDataTable(AAlbaran.DataTable, ASeleccionados.DataTable, True); CopyDataTable(AAlbaran.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
if Assigned(ViewGrid) then
begin
ViewGrid.ActivarGrid;
ViewGrid.RestoreGridStatus;
end;
end; end;
procedure TAlbaranesProveedorController.FiltrarEmpresa( procedure TAlbaranesProveedorController.FiltrarEmpresa(
@ -1034,12 +1047,13 @@ begin
end; end;
end; end;
procedure TAlbaranesProveedorController.Print(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false); function TAlbaranesProveedorController.Print(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false): Boolean;
var var
AReportController : IAlbaranesProveedorReportController; AReportController : IAlbaranesProveedorReportController;
ID_Albaranes: TStringList; ID_Albaranes: TStringList;
begin begin
Result := False;
AReportController := TAlbaranesProveedorReportController.Create; AReportController := TAlbaranesProveedorReportController.Create;
try try
ID_Albaranes := TStringList.Create; ID_Albaranes := TStringList.Create;
@ -1061,7 +1075,7 @@ begin
else else
ID_Albaranes.Add(IntToStr(AAlbaran.ID)); ID_Albaranes.Add(IntToStr(AAlbaran.ID));
AReportController.Print(ID_Albaranes.CommaText); Result := AReportController.Print(ID_Albaranes.CommaText);
finally finally
AReportController := NIL; AReportController := NIL;

16
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas
View File

@ -11,7 +11,7 @@ type
IAlbaranesProveedorReportController = interface IAlbaranesProveedorReportController = interface
['{AAE252CE-D407-4FF4-AF2A-350C5A421C89}'] ['{AAE252CE-D407-4FF4-AF2A-350C5A421C89}']
procedure Preview(const AID : String); procedure Preview(const AID : String);
procedure Print(const AID : String); function Print(const AID : String): Boolean;
end; end;
TAlbaranesProveedorReportController = class(TInterfacedObject, IAlbaranesProveedorReportController) TAlbaranesProveedorReportController = class(TInterfacedObject, IAlbaranesProveedorReportController)
@ -23,7 +23,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AID : String); procedure Preview(const AID : String);
procedure Print(const AID : String); function Print(const AID : String): Boolean;
end; end;
@ -31,7 +31,8 @@ implementation
uses uses
uROTypes, uEditorRegistryUtils, uIEditorAlbaranesProveedorPreview, uROTypes, uEditorRegistryUtils, uIEditorAlbaranesProveedorPreview,
uEditorPreview, uDataModuleAlbaranesProveedor, uEditorBase, cxControls; uEditorPreview, uDataModuleAlbaranesProveedor, uEditorBase, cxControls,
schAlbaranesProveedorClient_Intf;
{ TAlbaranesProveedorReportController } { TAlbaranesProveedorReportController }
@ -77,11 +78,12 @@ begin
AEditor.Preview; AEditor.Preview;
end; end;
procedure TAlbaranesProveedorReportController.Print(const AID : String); function TAlbaranesProveedorReportController.Print(const AID : String): Boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesProveedorPreview; AEditor : IEditorAlbaranesProveedorPreview;
begin begin
Result := False;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
@ -98,7 +100,11 @@ begin
end; end;
if Assigned(AEditor) then if Assigned(AEditor) then
AEditor.Print begin
AEditor.TablaImpresion := nme_AlbaranesProveedor;
AEditor.IdTablaImpresion := AID;
Result := AEditor.Print;
end;
end; end;
end. end.

17
Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas
View File

@ -9,7 +9,7 @@ uses
type type
IDetallesAlbaranProveedorController = interface(IControllerDetallesArticulos) IDetallesAlbaranProveedorController = interface(IControllerDetallesArticulos)
['{6E35D49A-C78D-481D-93E9-859CD27EB79F}'] ['{6E35D49A-C78D-481D-93E9-859CD27EB79F}']
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
@ -32,7 +32,7 @@ type
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
public public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
@ -62,7 +62,7 @@ begin
end; end;
end; end;
procedure TDetallesAlbaranProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); procedure TDetallesAlbaranProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1);
var var
AArticulos: IBizArticulo; AArticulos: IBizArticulo;
begin begin
@ -70,8 +70,17 @@ begin
begin begin
try try
AArticulos := (FArticulosController.BuscarTodos as IBizArticulo); AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
if ANuevaFila then
begin
AArticulos := (FArticulosController as IArticulosAlbaranProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este albarán de proveedor', True, AProveedor); AArticulos := (FArticulosController as IArticulosAlbaranProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este albarán de proveedor', True, AProveedor);
Add(ADetalles, AArticulos); Add(ADetalles, AArticulos, ACantidad)
end
else
begin
AArticulos := (FArticulosController as IArticulosAlbaranProveedorController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este albarán de proveedor', False, AProveedor);
RellenarDetalle(ADetalles, AArticulos, ACantidad);
end;
finally finally
AArticulos := Nil; AArticulos := Nil;
end; end;

11
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -548,6 +548,17 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
Params = <> Params = <>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest

56
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,11 +9,11 @@ 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_DarReferencia = '{A2ECE4F2-2EB0-4440-ABB5-C4FFB59A4AF3}'; RID_DarReferencia = '{3F50C24C-9A27-46B2-BA07-3363BB4C42F0}';
RID_AlbaranesProveedor = '{1BF52D88-3541-47DD-8059-7E82D70C2657}'; RID_AlbaranesProveedor = '{4EE00E6F-CE2D-4A3F-8BB7-4CC56A04C494}';
RID_AlbaranesProveedor_Detalles = '{ED78D0F8-7B91-4C95-AB71-6716DFEFA4CA}'; RID_AlbaranesProveedor_Detalles = '{EAEB48A8-713D-4559-AF51-B102B0EE4CDC}';
RID_AlbaranesProveedor_Detalles_Refresh = '{4EDD3252-7B35-485A-89BE-A39DFE97FD43}'; RID_AlbaranesProveedor_Detalles_Refresh = '{C0B6846B-07A4-407C-9D66-AC584AF21C0D}';
RID_AlbaranesProveedor_Refresh = '{54A2F0B0-5BB2-49F3-B7E1-8FCBFE19A211}'; RID_AlbaranesProveedor_Refresh = '{4A135BA2-5325-45B4-B75C-59B39DEF034F}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -65,6 +65,7 @@ const
fld_AlbaranesProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_AlbaranesProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_AlbaranesProveedorUSUARIO = 'USUARIO'; fld_AlbaranesProveedorUSUARIO = 'USUARIO';
fld_AlbaranesProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_AlbaranesProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_AlbaranesProveedorNUM_COPIAS = 'NUM_COPIAS';
{ AlbaranesProveedor field indexes } { AlbaranesProveedor field indexes }
idx_AlbaranesProveedorID = 0; idx_AlbaranesProveedorID = 0;
@ -103,6 +104,7 @@ const
idx_AlbaranesProveedorFECHA_MODIFICACION = 33; idx_AlbaranesProveedorFECHA_MODIFICACION = 33;
idx_AlbaranesProveedorUSUARIO = 34; idx_AlbaranesProveedorUSUARIO = 34;
idx_AlbaranesProveedorID_FORMA_PAGO = 35; idx_AlbaranesProveedorID_FORMA_PAGO = 35;
idx_AlbaranesProveedorNUM_COPIAS = 36;
{ AlbaranesProveedor_Detalles fields } { AlbaranesProveedor_Detalles fields }
fld_AlbaranesProveedor_DetallesID = 'ID'; fld_AlbaranesProveedor_DetallesID = 'ID';
@ -209,6 +211,7 @@ const
fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_AlbaranesProveedor_RefreshUSUARIO = 'USUARIO'; fld_AlbaranesProveedor_RefreshUSUARIO = 'USUARIO';
fld_AlbaranesProveedor_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_AlbaranesProveedor_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_AlbaranesProveedor_RefreshNUM_COPIAS = 'NUM_COPIAS';
{ AlbaranesProveedor_Refresh field indexes } { AlbaranesProveedor_Refresh field indexes }
idx_AlbaranesProveedor_RefreshID = 0; idx_AlbaranesProveedor_RefreshID = 0;
@ -247,11 +250,12 @@ const
idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 33; idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 33;
idx_AlbaranesProveedor_RefreshUSUARIO = 34; idx_AlbaranesProveedor_RefreshUSUARIO = 34;
idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 35; idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 35;
idx_AlbaranesProveedor_RefreshNUM_COPIAS = 36;
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{70216529-9EFF-49D4-BC5D-142057D881C7}'] ['{61465610-D794-47C4-9ABC-8741E6E36F27}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -280,7 +284,7 @@ type
{ IAlbaranesProveedor } { IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{75EF115B-2E16-4631-B284-EB29454AB90D}'] ['{42B45AE6-5EB4-4C8D-82C8-1C4AD82E64A8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -354,6 +358,8 @@ type
procedure SetUSUARIOValue(const aValue: String); procedure SetUSUARIOValue(const aValue: String);
function GetID_FORMA_PAGOValue: Integer; function GetID_FORMA_PAGOValue: Integer;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties } { Properties }
@ -393,6 +399,7 @@ type
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end; end;
{ TAlbaranesProveedorDataTableRules } { TAlbaranesProveedorDataTableRules }
@ -472,6 +479,8 @@ type
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
function GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOValue: Integer; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -510,6 +519,7 @@ type
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -519,7 +529,7 @@ type
{ IAlbaranesProveedor_Detalles } { IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{71F6EB5E-95EA-4C44-BE14-F52ED4F7736E}'] ['{7648F585-1867-4E43-A6D9-7FEE51485725}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -632,7 +642,7 @@ type
{ IAlbaranesProveedor_Detalles_Refresh } { IAlbaranesProveedor_Detalles_Refresh }
IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{EF189D96-FC62-431D-9AB9-D1A88BC60632}'] ['{B23F5262-0AAA-4C52-B3DA-A1589AB4F1C5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -745,7 +755,7 @@ type
{ IAlbaranesProveedor_Refresh } { IAlbaranesProveedor_Refresh }
IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable) IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable)
['{33F9FCD3-FD74-488D-8EBC-F3AFCCCF566B}'] ['{256505AA-BA0B-4945-8A00-0F5543C724CC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -819,6 +829,8 @@ type
procedure SetUSUARIOValue(const aValue: String); procedure SetUSUARIOValue(const aValue: String);
function GetID_FORMA_PAGOValue: Integer; function GetID_FORMA_PAGOValue: Integer;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties } { Properties }
@ -858,6 +870,7 @@ type
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end; end;
{ TAlbaranesProveedor_RefreshDataTableRules } { TAlbaranesProveedor_RefreshDataTableRules }
@ -937,6 +950,8 @@ type
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
function GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOValue: Integer; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -975,6 +990,7 @@ type
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -1381,6 +1397,16 @@ begin
DataTable.Fields[idx_AlbaranesProveedorID_FORMA_PAGO].AsInteger := aValue; DataTable.Fields[idx_AlbaranesProveedorID_FORMA_PAGO].AsInteger := aValue;
end; end;
function TAlbaranesProveedorDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsInteger;
end;
procedure TAlbaranesProveedorDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsInteger := aValue;
end;
{ TAlbaranesProveedor_DetallesDataTableRules } { TAlbaranesProveedor_DetallesDataTableRules }
constructor TAlbaranesProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TAlbaranesProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -2079,6 +2105,16 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].AsInteger := aValue; DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].AsInteger := aValue;
end; end;
function TAlbaranesProveedor_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNUM_COPIAS].AsInteger;
end;
procedure TAlbaranesProveedor_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshNUM_COPIAS].AsInteger := aValue;
end;
initialization initialization
RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules); RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);

64
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{A422DB5C-634E-474A-8CF6-74991DA1AE32}'; RID_DarReferenciaDelta = '{ED7AB12B-996F-49BF-B0BD-0FBF07091D2C}';
RID_AlbaranesProveedorDelta = '{C4E4FF3D-939D-4F34-9867-F77C33CC5CFC}'; RID_AlbaranesProveedorDelta = '{4DE57AD5-32F1-4CDC-9D41-5557B7EC11A0}';
RID_AlbaranesProveedor_DetallesDelta = '{DAF52FFB-AC66-412B-8E1C-7DAAB3B0C2C9}'; RID_AlbaranesProveedor_DetallesDelta = '{097F48A6-6CC7-43A8-A5C2-BCE54EE3B9B7}';
RID_AlbaranesProveedor_Detalles_RefreshDelta = '{324ADFD7-9348-41B3-BFAF-50FE30872A52}'; RID_AlbaranesProveedor_Detalles_RefreshDelta = '{D590E2D3-0875-4A95-9B35-CBD3DC43B6C0}';
RID_AlbaranesProveedor_RefreshDelta = '{79C0564C-8AE9-4995-A30C-C904BEB88939}'; RID_AlbaranesProveedor_RefreshDelta = '{23A6B8F2-95A9-4A11-8822-6D9FA3511F8C}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{A422DB5C-634E-474A-8CF6-74991DA1AE32}'] ['{ED7AB12B-996F-49BF-B0BD-0FBF07091D2C}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IAlbaranesProveedorDelta } { IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor) IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{C4E4FF3D-939D-4F34-9867-F77C33CC5CFC}'] ['{4DE57AD5-32F1-4CDC-9D41-5557B7EC11A0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -85,6 +85,7 @@ type
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldNUM_COPIASValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -123,6 +124,7 @@ type
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end; end;
{ TAlbaranesProveedorBusinessProcessorRules } { TAlbaranesProveedorBusinessProcessorRules }
@ -238,6 +240,9 @@ type
function GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOValue: Integer; virtual;
function GetOldID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -312,6 +317,8 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -321,7 +328,7 @@ type
{ IAlbaranesProveedor_DetallesDelta } { IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles) IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{DAF52FFB-AC66-412B-8E1C-7DAAB3B0C2C9}'] ['{097F48A6-6CC7-43A8-A5C2-BCE54EE3B9B7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -448,7 +455,7 @@ type
{ IAlbaranesProveedor_Detalles_RefreshDelta } { IAlbaranesProveedor_Detalles_RefreshDelta }
IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh) IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh)
['{324ADFD7-9348-41B3-BFAF-50FE30872A52}'] ['{D590E2D3-0875-4A95-9B35-CBD3DC43B6C0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -575,7 +582,7 @@ type
{ IAlbaranesProveedor_RefreshDelta } { IAlbaranesProveedor_RefreshDelta }
IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh) IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh)
['{79C0564C-8AE9-4995-A30C-C904BEB88939}'] ['{23A6B8F2-95A9-4A11-8822-6D9FA3511F8C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -613,6 +620,7 @@ type
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldNUM_COPIASValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -651,6 +659,7 @@ type
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end; end;
{ TAlbaranesProveedor_RefreshBusinessProcessorRules } { TAlbaranesProveedor_RefreshBusinessProcessorRules }
@ -766,6 +775,9 @@ type
function GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOValue: Integer; virtual;
function GetOldID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -840,6 +852,8 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1434,6 +1448,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FORMA_PAGO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FORMA_PAGO] := aValue;
end; end;
function TAlbaranesProveedorBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_COPIAS];
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS] := aValue;
end;
{ TAlbaranesProveedor_DetallesBusinessProcessorRules } { TAlbaranesProveedor_DetallesBusinessProcessorRules }
constructor TAlbaranesProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TAlbaranesProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2464,6 +2493,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO] := aValue;
end; end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNUM_COPIAS];
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNUM_COPIAS];
end;
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNUM_COPIAS] := aValue;
end;
initialization initialization
RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);

124
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -78,7 +78,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'ESCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' + 'ESCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' +
'A, IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_AC' + 'A, IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_AC' +
'TIVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAG' + 'TIVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAG' +
'O'#10' FROM'#10' V_ALBARANES_PROVEEDOR' 'O, NUM_COPIAS'#10' FROM'#10' V_ALBARANES_PROVEEDOR'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -105,18 +105,42 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
end end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item item
DatasetField = 'ID_ALMACEN' DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN' TableField = 'ID_ALMACEN'
end end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item item
DatasetField = 'ID_PEDIDO' DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO' TableField = 'ID_PEDIDO'
end end
item
DatasetField = 'REF_PED_PROVEEDOR'
TableField = 'REF_PED_PROVEEDOR'
end
item item
DatasetField = 'ID_FACTURA' DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA' TableField = 'ID_FACTURA'
end end
item
DatasetField = 'REF_FACTURA'
TableField = 'REF_FACTURA'
end
item
DatasetField = 'REF_FACTURA_PROV'
TableField = 'REF_FACTURA_PROV'
end
item item
DatasetField = 'CALLE' DatasetField = 'CALLE'
TableField = 'CALLE' TableField = 'CALLE'
@ -202,28 +226,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end end
item item
DatasetField = 'NOMBRE_ALMACEN' DatasetField = 'NUM_COPIAS'
TableField = 'NOMBRE_ALMACEN' TableField = 'NUM_COPIAS'
end
item
DatasetField = 'REF_PED_PROVEEDOR'
TableField = 'REF_PED_PROVEEDOR'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'REF_FACTURA'
TableField = 'REF_FACTURA'
end
item
DatasetField = 'REF_FACTURA_PROV'
TableField = 'REF_FACTURA_PROV'
end> end>
end> end>
Name = 'AlbaranesProveedor' Name = 'AlbaranesProveedor'
@ -602,6 +606,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -1141,8 +1156,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'SCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA' + 'SCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA' +
', IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACT' + ', IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACT' +
'IVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAGO' + 'IVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAGO' +
#10' FROM'#10' V_ALBARANES_PROVEEDOR'#10'WHERE V_ALBARANES_PROVEEDOR.ID' + ', NUM_COPIAS'#10' FROM'#10' V_ALBARANES_PROVEEDOR'#10'WHERE V_ALBARANES_' +
' = :ID' 'PROVEEDOR.ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -1169,18 +1184,42 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
end end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item item
DatasetField = 'ID_ALMACEN' DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN' TableField = 'ID_ALMACEN'
end end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item item
DatasetField = 'ID_PEDIDO' DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO' TableField = 'ID_PEDIDO'
end end
item
DatasetField = 'REF_PED_PROVEEDOR'
TableField = 'REF_PED_PROVEEDOR'
end
item item
DatasetField = 'ID_FACTURA' DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA' TableField = 'ID_FACTURA'
end end
item
DatasetField = 'REF_FACTURA'
TableField = 'REF_FACTURA'
end
item
DatasetField = 'REF_FACTURA_PROV'
TableField = 'REF_FACTURA_PROV'
end
item item
DatasetField = 'CALLE' DatasetField = 'CALLE'
TableField = 'CALLE' TableField = 'CALLE'
@ -1266,28 +1305,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end end
item item
DatasetField = 'NOMBRE_ALMACEN' DatasetField = 'NUM_COPIAS'
TableField = 'NOMBRE_ALMACEN' TableField = 'NUM_COPIAS'
end
item
DatasetField = 'REF_PED_PROVEEDOR'
TableField = 'REF_PED_PROVEEDOR'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'REF_FACTURA'
TableField = 'REF_FACTURA'
end
item
DatasetField = 'REF_FACTURA_PROV'
TableField = 'REF_FACTURA_PROV'
end> end>
end> end>
Name = 'AlbaranesProveedor_Refresh' Name = 'AlbaranesProveedor_Refresh'
@ -1670,6 +1689,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript

3
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -236,9 +236,6 @@ begin
if (FAlbaran.Detalles.RecordCount > 0) then if (FAlbaran.Detalles.RecordCount > 0) then
begin begin
FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Proveedor); FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Proveedor);
//En caso de ser una orden de devolucion también debe cambiar el signo a los detalles
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
Controller.DetallesController.CambiarSignoDetalles(FAlbaran.Detalles);
end; end;
end; end;
end; end;

1
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
Caption = 'Lista de albaranes de proveedor' Caption = 'Lista de albaranes de proveedor'
ClientWidth = 606 ClientWidth = 606
ExplicitWidth = 614 ExplicitWidth = 614
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

9
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -138,7 +138,7 @@ begin
if (Application.MessageBox('¿Desea borrar los albaranes de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea borrar los albaranes de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes) as IBizAlbaranProveedor; AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranProveedor;
end end
end end
else begin else begin
@ -219,13 +219,14 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes) as IBizAlbaranProveedor; AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranProveedor;
end end
else else
AAlbaranes := Albaranes; AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
FController.Print(AAlbaranes, AllItems); if FController.Print(AAlbaranes, AllItems) then
RefrescarInterno;
end; end;
end; end;
end; end;
@ -307,7 +308,7 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes) as IBizAlbaranProveedor; AAlbaranes := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes, ViewGrid) as IBizAlbaranProveedor;
end end
else else
AAlbaranes := Albaranes; AAlbaranes := Albaranes;

23
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -36,6 +36,15 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end> end>
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
MinWidth = 30
Options.HorzSizing = False
VisibleForCustomization = False
Width = 30
IsCaptionAssigned = True
end
object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIAS_ACTIVAS: TcxGridDBColumn
Caption = 'Incidencias' Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS' DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -304,6 +313,20 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
CF0000000049454E44AE426082} CF0000000049454E44AE426082}
Name = 'PngImage3' Name = 'PngImage3'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end> end>
Left = 56 Left = 56
Top = 48 Top = 48

21
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
View File

@ -45,6 +45,7 @@ type
TBXSeparatorItem2: TTBXSeparatorItem; TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn; cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
cxGridViewREF_FACTURA_PROV: TcxGridDBColumn; cxGridViewREF_FACTURA_PROV: TcxGridDBColumn;
cxGridViewNUM_COPIAS: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@ -59,6 +60,9 @@ type
procedure actAlmacenUpdate(Sender: TObject); procedure actAlmacenUpdate(Sender: TObject);
procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); Y: Integer);
procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -203,6 +207,23 @@ begin
end; end;
end; end;
procedure TfrViewAlbaranesProveedor.cxGridViewNUM_COPIASCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
begin
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
ADone := True;
end;
end;
procedure TfrViewAlbaranesProveedor.cxGridViewStylesGetContentStyle(Sender: procedure TfrViewAlbaranesProveedor.cxGridViewStylesGetContentStyle(Sender:
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
TcxCustomGridTableItem; out AStyle: TcxStyle); TcxCustomGridTableItem; out AStyle: TcxStyle);

21
Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.pas
View File

@ -28,6 +28,7 @@ type
procedure SetAlbaran(const Value: IBizAlbaranProveedor); procedure SetAlbaran(const Value: IBizAlbaranProveedor);
procedure AnadirArticulosInterno; override; procedure AnadirArticulosInterno; override;
procedure RellenarArticulosInterno; override;
function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override; function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
public public
@ -43,18 +44,18 @@ uses uDetallesAlbaranProveedorController, uViewDetallesBase;
function TfrViewDetallesAlbaranProveedor.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; function TfrViewDetallesAlbaranProveedor.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
begin begin
Result := (Controller as IDetallesAlbaranProveedorController).AnadirArticulo(Detalles, pReferencia, TipoReferencia);
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
(Controller as IDetallesAlbaranProveedorController).CambiarSignoDetalles(Detalles); Result := (Controller as IDetallesAlbaranProveedorController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, -1, -1)
else
Result := (Controller as IDetallesAlbaranProveedorController).AnadirArticulo(Detalles, pReferencia, TipoReferencia);
end; end;
procedure TfrViewDetallesAlbaranProveedor.AnadirArticulosInterno; procedure TfrViewDetallesAlbaranProveedor.AnadirArticulosInterno;
begin begin
(Controller as IDetallesAlbaranProveedorController).AnadirArticulos(Detalles, Albaran.Proveedor);
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
(Controller as IDetallesAlbaranProveedorController).CambiarSignoDetalles(Detalles); (Controller as IDetallesAlbaranProveedorController).AnadirArticulos(Detalles, Albaran.Proveedor, true, -1)
else
(Controller as IDetallesAlbaranProveedorController).AnadirArticulos(Detalles, Albaran.Proveedor);
end; end;
function TfrViewDetallesAlbaranProveedor.GetAlbaran: IBizAlbaranProveedor; function TfrViewDetallesAlbaranProveedor.GetAlbaran: IBizAlbaranProveedor;
@ -62,6 +63,14 @@ begin
Result := FAlbaran; Result := FAlbaran;
end; end;
procedure TfrViewDetallesAlbaranProveedor.RellenarArticulosInterno;
begin
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
(Controller as IDetallesAlbaranProveedorController).AnadirArticulos(Detalles, Albaran.Proveedor, False, -1)
else
(Controller as IDetallesAlbaranProveedorController).AnadirArticulos(Detalles, Albaran.Proveedor, False);
end;
procedure TfrViewDetallesAlbaranProveedor.SetAlbaran(const Value: IBizAlbaranProveedor); procedure TfrViewDetallesAlbaranProveedor.SetAlbaran(const Value: IBizAlbaranProveedor);
begin begin
FAlbaran := Value; FAlbaran := Value;

69
Source/Modulos/Articulos/Controller/uControllerDetallesArticulos.pas
View File

@ -15,9 +15,9 @@ type
IControllerDetallesArticulos = interface(IControllerDetallesBase) IControllerDetallesArticulos = interface(IControllerDetallesBase)
['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}'] ['{6E156796-DB1F-4727-BBFB-FBAEF2E5C098}']
procedure AsignarID(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer; AEsNuevo:Boolean); procedure AsignarID(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer; AEsNuevo:Boolean);
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable); procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True);
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1): Boolean; overload; function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean; overload;
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1): Boolean; overload; function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean; overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable); procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable);
procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String); procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String);
@ -32,16 +32,17 @@ type
procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual; procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual; procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
procedure RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual; procedure RellenarGenerales(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual;
procedure RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); virtual; procedure RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Integer); virtual;
procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); overload; procedure RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer = 1); virtual;
procedure Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer = 1); overload;
procedure AsignarController; virtual; procedure AsignarController; virtual;
public public
procedure AsignarID(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer; AEsNuevo:Boolean); procedure AsignarID(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer; AEsNuevo:Boolean);
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1): Boolean; overload; function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean; overload;
function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1): Boolean; overload; function AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean; overload;
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable); virtual; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True); virtual;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable); procedure CambiarSignoDetalles(ADetalles: IDAStronglyTypedDataTable);
procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String); procedure AnadirConceptoInicial(ADetalles: IDAStronglyTypedDataTable; AConcepto: String);
@ -61,6 +62,9 @@ uses DB, Dialogs, cxControls, SysUtils, uDAInterfaces, uCalculosUtils, schArticu
{ TControllerDetallesArticulos } { TControllerDetallesArticulos }
procedure TControllerDetallesArticulos.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TControllerDetallesArticulos.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
var
ACantidad: Integer;
begin begin
if (Assigned(ADetalles) and Assigned(AArticulos)) then if (Assigned(ADetalles) and Assigned(AArticulos)) then
begin begin
@ -78,9 +82,10 @@ begin
AArticulos.DataTable.First; AArticulos.DataTable.First;
try try
if AArticulos.DataTable.Locate(CAMPO_ID, FieldByName(CAMPO_ID_ARTICULOS).AsVariant, []) then if AArticulos.DataTable.Locate(CAMPO_ID, FieldByName(CAMPO_ID_ARTICULOS).AsVariant, []) then
RellenarDetalle(ADetalles, AArticulos) begin
else ACantidad := ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger;
RellenarDetalle(ADetalles, Nil); RellenarDetalle(ADetalles, AArticulos, ACantidad);
end
except except
on E: Exception do on E: Exception do
ShowMessage(E.Message); ShowMessage(E.Message);
@ -96,7 +101,7 @@ begin
end; end;
end; end;
procedure TControllerDetallesArticulos.Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TControllerDetallesArticulos.Add(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer);
begin begin
if Assigned(ADetalles) and Assigned(AArticulos) then if Assigned(ADetalles) and Assigned(AArticulos) then
begin begin
@ -116,7 +121,7 @@ begin
while not EOF do while not EOF do
begin begin
Self.Add(ADetalles, TIPO_DETALLE_CONCEPTO); Self.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
RellenarDetalle(ADetalles, AArticulos); RellenarDetalle(ADetalles, AArticulos, ACantidad);
Next; Next;
end; end;
end; end;
@ -127,7 +132,7 @@ begin
end; end;
end; end;
function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1): Boolean; function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; IDArticulo: Integer; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean;
var var
AArticulo: IBizArticulo; AArticulo: IBizArticulo;
begin begin
@ -147,7 +152,7 @@ begin
AArticulo.DataTable.Active := True; AArticulo.DataTable.Active := True;
if (AArticulo.RecordCount > 0) then if (AArticulo.RecordCount > 0) then
begin begin
RellenarDetalle(ADetalles, AArticulo); RellenarDetalle(ADetalles, AArticulo, ACantidad);
Result := True; Result := True;
end; end;
end; end;
@ -157,7 +162,7 @@ begin
end; end;
end; end;
procedure TControllerDetallesArticulos.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable); procedure TControllerDetallesArticulos.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; const ANuevaFila :Boolean = True);
var var
AArticulos: IBizArticulo; AArticulos: IBizArticulo;
begin begin
@ -165,8 +170,17 @@ begin
begin begin
try try
AArticulos := (FArticulosController.BuscarTodos as IBizArticulo); AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
if ANuevaFila then
begin
AArticulos := FArticulosController.ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir', True); AArticulos := FArticulosController.ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir', True);
Add(ADetalles, AArticulos); Add(ADetalles, AArticulos)
end
else
begin
AArticulos := FArticulosController.ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir', False);
RellenarDetalle(ADetalles, AArticulos);
end;
finally finally
AArticulos := Nil; AArticulos := Nil;
end; end;
@ -323,7 +337,7 @@ begin
end; end;
end; end;
function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1): Boolean; function TControllerDetallesArticulos.AnadirArticulo(ADetalles: IDAStronglyTypedDataTable; Referencia: String; TipoReferencia: TEnumReferencia; AClienteID: Integer = -1; const ACantidad: Integer = 1): Boolean;
var var
AArticulo: IBizArticulo; AArticulo: IBizArticulo;
begin begin
@ -345,7 +359,7 @@ begin
AArticulo.DataTable.Active := True; AArticulo.DataTable.Active := True;
if (AArticulo.RecordCount > 0) then if (AArticulo.RecordCount > 0) then
begin begin
RellenarDetalle(ADetalles, AArticulo); RellenarDetalle(ADetalles, AArticulo, ACantidad);
Result := True; Result := True;
end; end;
end; end;
@ -355,23 +369,37 @@ begin
end; end;
end; end;
procedure TControllerDetallesArticulos.RellenarCantidad(ADetalles: IDAStronglyTypedDataTable; const ACantidad: Integer);
begin
if Assigned(ADetalles) then
begin
ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger := ACantidad;
end;
end;
procedure TControllerDetallesArticulos.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TControllerDetallesArticulos.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin begin
// Procedimiento que en los hijos se sobreescribirá para rellenar otros campos según necesidades // Procedimiento que en los hijos se sobreescribirá para rellenar otros campos según necesidades
end; end;
procedure TControllerDetallesArticulos.RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); procedure TControllerDetallesArticulos.RellenarDetalle(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo; const ACantidad: Integer = 1);
begin begin
if Assigned(ADetalles) then if Assigned(ADetalles) then
begin begin
BeginUpdate(ADetalles);
try
if not ADetalles.DataTable.Editing then if not ADetalles.DataTable.Editing then
ADetalles.DataTable.Edit; ADetalles.DataTable.Edit;
RellenarGenerales(ADetalles, AArticulos); RellenarGenerales(ADetalles, AArticulos);
RellenarCantidad(ADetalles, ACantidad);
RellenarImportes(ADetalles, AArticulos); RellenarImportes(ADetalles, AArticulos);
RellenarOtros(ADetalles, AArticulos); RellenarOtros(ADetalles, AArticulos);
ADetalles.DataTable.Post; ADetalles.DataTable.Post;
finally
EndUpdate(ADetalles);
end;
end; end;
end; end;
@ -383,7 +411,6 @@ begin
ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA).AsVariant := AArticulos.REFERENCIA; ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA).AsVariant := AArticulos.REFERENCIA;
ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA_PROVEEDOR).AsVariant := AArticulos.REFERENCIA_PROV; ADetalles.DataTable.FieldByName(CAMPO_REFERENCIA_PROVEEDOR).AsVariant := AArticulos.REFERENCIA_PROV;
ADetalles.DataTable.FieldByName(CAMPO_CONCEPTO).AsVariant := AArticulos.DESCRIPCION; ADetalles.DataTable.FieldByName(CAMPO_CONCEPTO).AsVariant := AArticulos.DESCRIPCION;
ADetalles.DataTable.FieldByName(CAMPO_CANTIDAD).AsInteger := 1;
end; end;
end; end;

6
Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
View File

@ -33,6 +33,7 @@ type
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
protected protected
procedure RellenarArticulosInterno; virtual;
procedure AnadirArticulosInterno; virtual; procedure AnadirArticulosInterno; virtual;
function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; virtual; function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; virtual;
end; end;
@ -131,4 +132,9 @@ begin
Result := (Controller as IControllerDetallesArticulos).AnadirArticulo(Detalles, pReferencia, TipoReferencia); Result := (Controller as IControllerDetallesArticulos).AnadirArticulo(Detalles, pReferencia, TipoReferencia);
end; end;
procedure TfrViewDetallesArticulos.RellenarArticulosInterno;
begin
(Controller as IControllerDetallesArticulos).AnadirArticulos(Detalles, False);
end;
end. end.

31
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -5,7 +5,7 @@ interface
uses uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos; uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos, uViewGridBase;
type type
IContactosController = interface IContactosController = interface
@ -25,9 +25,9 @@ type
function Localizar(AContactos: IBizContacto; const ID : Integer): Boolean; function Localizar(AContactos: IBizContacto; const ID : Integer): Boolean;
function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto; function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto;
function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto; function ExtraerSeleccionados(AContactos: IBizContacto; Const ViewGrid: IViewGridBase = Nil) : IBizContacto;
procedure Preview(AContactos : IBizContacto); procedure Preview(AContactos : IBizContacto);
procedure Print(AContactos : IBizContacto); function Print(AContactos : IBizContacto): Boolean;
end; end;
TContactosController = class(TInterfacedObject, IContactosController) TContactosController = class(TInterfacedObject, IContactosController)
@ -50,7 +50,7 @@ type
function Existe(const ID: Integer) : Boolean; virtual; function Existe(const ID: Integer) : Boolean; virtual;
procedure Anadir(AContacto : IBizContacto); virtual; procedure Anadir(AContacto : IBizContacto); virtual;
function Duplicar(AContacto: IBizContacto): IBizContacto; virtual; function Duplicar(AContacto: IBizContacto): IBizContacto; virtual;
function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto; virtual; function ExtraerSeleccionados(AContactos: IBizContacto; Const ViewGrid: IViewGridBase = Nil) : IBizContacto; virtual;
function Localizar(AContactos: IBizContacto; const ID : Integer): Boolean; function Localizar(AContactos: IBizContacto; const ID : Integer): Boolean;
// Se implementa en los controladores hijos // Se implementa en los controladores hijos
@ -62,7 +62,7 @@ type
function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract; function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract;
procedure Preview(AContactos : IBizContacto); procedure Preview(AContactos : IBizContacto);
procedure Print(AContactos : IBizContacto); function Print(AContactos : IBizContacto): Boolean;
end; end;
implementation implementation
@ -230,14 +230,26 @@ begin
end; end;
end; end;
function TContactosController.ExtraerSeleccionados( function TContactosController.ExtraerSeleccionados(AContactos: IBizContacto; Const ViewGrid: IViewGridBase = Nil): IBizContacto;
AContactos: IBizContacto): IBizContacto;
var var
ASeleccionados : IBizContacto; ASeleccionados : IBizContacto;
begin begin
if Assigned(ViewGrid) then
begin
//Guardamos la situación porque el CopyDataTable nos cambia la posicion
ViewGrid.SaveGridStatus;
ViewGrid.DesactivarGrid;
end;
ASeleccionados := Self.Buscar(ID_NULO); ASeleccionados := Self.Buscar(ID_NULO);
CopyDataTable(AContactos.DataTable, ASeleccionados.DataTable, True); CopyDataTable(AContactos.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
if Assigned(ViewGrid) then
begin
ViewGrid.ActivarGrid;
ViewGrid.RestoreGridStatus;
end;
end; end;
function TContactosController.Guardar(AContacto: IBizContacto): Boolean; function TContactosController.Guardar(AContacto: IBizContacto): Boolean;
@ -312,12 +324,13 @@ begin
end; end;
end; end;
procedure TContactosController.Print(AContactos: IBizContacto); function TContactosController.Print(AContactos: IBizContacto): Boolean;
var var
AReportController : IEtiquetasContactosReportController; AReportController : IEtiquetasContactosReportController;
ID_Contactos: TStringList; ID_Contactos: TStringList;
begin begin
Result := False;
AReportController := TEtiquetasContactosReportController.Create; AReportController := TEtiquetasContactosReportController.Create;
try try
ID_Contactos := TStringList.Create; ID_Contactos := TStringList.Create;
@ -332,7 +345,7 @@ begin
end; end;
end; end;
AReportController.Print(ID_Contactos.CommaText); Result := AReportController.Print(ID_Contactos.CommaText);
finally finally
AReportController := NIL; AReportController := NIL;

9
Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
View File

@ -10,7 +10,7 @@ type
IEtiquetasContactosReportController = interface IEtiquetasContactosReportController = interface
['{B8EB378E-E40E-4AFE-8CC9-C34DFB13B9EA}'] ['{B8EB378E-E40E-4AFE-8CC9-C34DFB13B9EA}']
procedure Preview(const AID : String); procedure Preview(const AID : String);
procedure Print(const AID : String); function Print(const AID : String): Boolean;
end; end;
TEtiquetasContactosReportController = class(TInterfacedObject, IEtiquetasContactosReportController) TEtiquetasContactosReportController = class(TInterfacedObject, IEtiquetasContactosReportController)
@ -23,7 +23,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AID : String); procedure Preview(const AID : String);
procedure Print(const AID : String); function Print(const AID : String): Boolean;
end; end;
@ -77,11 +77,12 @@ begin
AEditor.Preview; AEditor.Preview;
end; end;
procedure TEtiquetasContactosReportController.Print(const AID : String); function TEtiquetasContactosReportController.Print(const AID : String): Boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorEtiquetasContactosPreview; AEditor : IEditorEtiquetasContactosPreview;
begin begin
Result := False;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
@ -98,7 +99,7 @@ begin
end; end;
if Assigned(AEditor) then if Assigned(AEditor) then
AEditor.Print Result := AEditor.Print;
end; end;
end. end.

9
Source/Modulos/Contactos/Views/uEditorClientes.pas
View File

@ -83,7 +83,7 @@ begin
if (Application.MessageBox('¿Desea borrar los clientes seleccionados?', 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea borrar los clientes seleccionados?', 'Atención', MB_YESNO) = IDYES) then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos) as IBizContacto; AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos, ViewGrid) as IBizContacto;
end end
end end
else begin else begin
@ -139,10 +139,11 @@ begin
end; end;
100 : begin // Elemento Seleccionado 100 : begin // Elemento Seleccionado
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos) as IBizContacto; AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos, ViewGrid) as IBizContacto;
if Assigned(AContactos) then if Assigned(AContactos) then
FController.Print(AContactos); if FController.Print(AContactos) then
RefrescarInterno;
end; end;
end; end;
end; end;
@ -178,7 +179,7 @@ begin
end; end;
100 : begin // Elemento Seleccionado 100 : begin // Elemento Seleccionado
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos) as IBizContacto; AContactos := (Controller as IContactosController).ExtraerSeleccionados(Contactos, ViewGrid) as IBizContacto;
if Assigned(AContactos) then if Assigned(AContactos) then
FController.Preview(AContactos); FController.Preview(AContactos);

20
Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
View File

@ -9,7 +9,7 @@ uses
type type
IDetallesFacturaClienteController = interface(IControllerDetallesArticulos) IDetallesFacturaClienteController = interface(IControllerDetallesArticulos)
['{D3942A48-C55B-4A98-AC5B-B5E652ED393E}'] ['{D3942A48-C55B-4A98-AC5B-B5E652ED393E}']
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente);
procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaCliente; AReferencia: String; AFecha: String); procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaCliente; AReferencia: String; AFecha: String);
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
@ -32,7 +32,7 @@ type
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
public public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
//ABONOS //ABONOS
@ -65,16 +65,26 @@ begin
end; end;
end; end;
procedure TDetallesFacturaClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); procedure TDetallesFacturaClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1);
var var
AArticulos: IBizArticulo; AArticulos: IBizArticulo;
begin begin
if Assigned(ADetalles) then if Assigned(ADetalles) then
begin begin
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
try try
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
if ANuevaFila then
begin
AArticulos := (FArticulosController as IArticulosFacturaClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a esta factura de cliente', True); AArticulos := (FArticulosController as IArticulosFacturaClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a esta factura de cliente', True);
Add(ADetalles, AArticulos); Add(ADetalles, AArticulos, ACantidad)
end
else
begin
AArticulos := (FArticulosController as IArticulosFacturaClienteController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a esta factura de cliente', False);
RellenarDetalle(ADetalles, AArticulos, ACantidad);
end;
finally finally
AArticulos := Nil; AArticulos := Nil;
end; end;

30
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasCliente, Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasCliente,
uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente, uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente,
uBizFacturasCliente; uBizFacturasCliente, uViewGridBase;
type type
IFacturasClienteController = interface(IObservador) IFacturasClienteController = interface(IObservador)
@ -40,14 +40,14 @@ type
function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente; function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); function Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false): Boolean;
procedure RecalcularImportes(AFactura: IBizFacturaCliente); procedure RecalcularImportes(AFactura: IBizFacturaCliente);
function EsModificable(AFactura: IBizFacturaCliente): Boolean; function EsModificable(AFactura: IBizFacturaCliente): Boolean;
function EsEliminable(AFactura: IBizFacturaCliente): Boolean; function EsEliminable(AFactura: IBizFacturaCliente): Boolean;
function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente; function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente; function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente; const ViewGrid: IViewGridBase = Nil) : IBizFacturaCliente;
end; end;
TFacturasClienteController = class(TObservador, IFacturasClienteController) TFacturasClienteController = class(TObservador, IFacturasClienteController)
@ -99,14 +99,14 @@ type
procedure RecuperarCliente(AFactura : IBizFacturaCliente); procedure RecuperarCliente(AFactura : IBizFacturaCliente);
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false);
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); function Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false): Boolean;
procedure RecalcularImportes(AFactura: IBizFacturaCliente); procedure RecalcularImportes(AFactura: IBizFacturaCliente);
function EsModificable(AFactura: IBizFacturaCliente): Boolean; function EsModificable(AFactura: IBizFacturaCliente): Boolean;
function EsEliminable(AFactura: IBizFacturaCliente): Boolean; function EsEliminable(AFactura: IBizFacturaCliente): Boolean;
function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente; function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente) : IBizFacturaCliente; function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente; Const ViewGrid: IViewGridBase = Nil) : IBizFacturaCliente;
end; end;
implementation implementation
@ -863,13 +863,26 @@ begin
end; end;
end; end;
function TFacturasClienteController.ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente): IBizFacturaCliente; function TFacturasClienteController.ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente; Const ViewGrid: IViewGridBase = Nil): IBizFacturaCliente;
var var
ASeleccionados : IBizFacturaCliente; ASeleccionados : IBizFacturaCliente;
begin begin
if Assigned(ViewGrid) then
begin
//Guardamos la situación porque el CopyDataTable nos cambia la posicion
ViewGrid.SaveGridStatus;
ViewGrid.DesactivarGrid;
end;
ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaCliente); ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaCliente);
CopyDataTable(AFacturasCliente.DataTable, ASeleccionados.DataTable, True); CopyDataTable(AFacturasCliente.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
if Assigned(ViewGrid) then
begin
ViewGrid.ActivarGrid;
ViewGrid.RestoreGridStatus;
end;
end; end;
procedure TFacturasClienteController.FiltrarEmpresa(AFactura: IBizFacturaCliente); procedure TFacturasClienteController.FiltrarEmpresa(AFactura: IBizFacturaCliente);
@ -980,12 +993,13 @@ begin
end; end;
end; end;
procedure TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false); function TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false): Boolean;
var var
AReportController : IFacturasClienteReportController; AReportController : IFacturasClienteReportController;
ID_Facturas: TStringList; ID_Facturas: TStringList;
begin begin
Result := False;
AReportController := TFacturasClienteReportController.Create; AReportController := TFacturasClienteReportController.Create;
try try
ID_Facturas := TStringList.Create; ID_Facturas := TStringList.Create;
@ -1007,7 +1021,7 @@ begin
else else
ID_Facturas.Add(IntToStr(AFactura.ID)); ID_Facturas.Add(IntToStr(AFactura.ID));
AReportController.Print(ID_Facturas.CommaText); Result := AReportController.Print(ID_Facturas.CommaText);
finally finally
AReportController := NIL; AReportController := NIL;

9
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
View File

@ -11,7 +11,7 @@ type
IFacturasClienteReportController = interface IFacturasClienteReportController = interface
['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}'] ['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}']
procedure Preview(const AFacturaID : String); procedure Preview(const AFacturaID : String);
procedure Print(const AFacturaID : String); function Print(const AFacturaID : String): Boolean;
end; end;
TFacturasClienteReportController = class(TInterfacedObject, IFacturasClienteReportController) TFacturasClienteReportController = class(TInterfacedObject, IFacturasClienteReportController)
@ -24,7 +24,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AFacturaID : String); procedure Preview(const AFacturaID : String);
procedure Print(const AFacturaID : String); function Print(const AFacturaID : String): Boolean;
end; end;
@ -79,11 +79,12 @@ begin
AEditor.Preview; AEditor.Preview;
end; end;
procedure TFacturasClienteReportController.Print(const AFacturaID : String); function TFacturasClienteReportController.Print(const AFacturaID : String): Boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorFacturasClientePreview; AEditor : IEditorFacturasClientePreview;
begin begin
Result := False;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
@ -103,7 +104,7 @@ begin
begin begin
AEditor.TablaImpresion := nme_FacturasCliente; AEditor.TablaImpresion := nme_FacturasCliente;
AEditor.IdTablaImpresion := AFacturaID; AEditor.IdTablaImpresion := AFacturaID;
AEditor.Print; Result := AEditor.Print;
end; end;
end; end;

7
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -120,13 +120,6 @@ begin
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True); frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
{ with TsrvImpresiones.Create(NIL) do
try
AnadirMarcaImpresion(nme_FacturasCliente, ID);
finally
Free;
end;
}
finally finally
AStream.Free; AStream.Free;
dsMaster := Nil; dsMaster := Nil;

14
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -294,19 +294,7 @@ begin
// Si la factura tiene detalles hay que mirar si los descuentos y otros campos // Si la factura tiene detalles hay que mirar si los descuentos y otros campos
// para los artículos hay que cambiarlos. // para los artículos hay que cambiarlos.
if (FFactura.Detalles.RecordCount > 0) then if (FFactura.Detalles.RecordCount > 0) then
begin FController.DetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Cliente);
FDetallesController := TDetallesFacturaClienteController.Create;
try
FDetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Cliente);
//En caso de ser un abono también debe cambiar el signo a los detalles
if (Factura.TIPO = CTE_TIPO_ABONO) then
Controller.DetallesController.CambiarSignoDetalles(FFactura.Detalles);
finally
FDetallesController := NIL;
end;
end;
end; end;
procedure TfEditorFacturaCliente.pgPaginasChanging(Sender: TObject; procedure TfEditorFacturaCliente.pgPaginasChanging(Sender: TObject;

23
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -64,7 +64,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 556 Top = 556
Width = 640 Width = 640
ExplicitTop = 647 ExplicitTop = 556
ExplicitWidth = 640 ExplicitWidth = 640
end end
inline frViewFacturasCliente1: TfrViewFacturasCliente [3] inline frViewFacturasCliente1: TfrViewFacturasCliente [3]
@ -83,12 +83,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 102
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 545 ExplicitHeight = 454
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 640 Width = 640
Height = 326 Height = 326
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 417 ExplicitHeight = 326
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -123,6 +123,9 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Kind = skSum Kind = skSum
Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL Column = frViewFacturasCliente1.cxGridViewIMPORTE_TOTAL
end> end>
inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
IsCaptionAssigned = True
end
inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn inherited cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Visible = True Visible = True
end end
@ -137,16 +140,16 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 640 Width = 640
ExplicitWidth = 640 ExplicitWidth = 640
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 ExplicitWidth = 457
Width = 273 Width = 457
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 ExplicitWidth = 239
Width = 121 Width = 239
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 295 Left = 367
ExplicitLeft = 295 ExplicitLeft = 367
ExplicitWidth = 244 ExplicitWidth = 244
Width = 244 Width = 244
end end
@ -163,7 +166,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 428 Top = 428
ExplicitTop = 519 ExplicitTop = 428
ExplicitWidth = 640 ExplicitWidth = 640
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 640 Width = 640

9
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -156,7 +156,7 @@ begin
if (Application.MessageBox('¿Desea borrar las facturas/abonos de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea borrar las facturas/abonos de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizFacturaCliente; AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaCliente;
end end
end end
else begin else begin
@ -246,13 +246,14 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizFacturaCliente; AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaCliente;
end end
else else
AFacturas := Facturas; AFacturas := Facturas;
if Assigned(AFacturas) then if Assigned(AFacturas) then
FController.Print(AFacturas, AllItems); if FController.Print(AFacturas, AllItems) then
RefrescarInterno;
end; end;
end; end;
end; end;
@ -346,7 +347,7 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizFacturaCliente; AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaCliente;
end end
else else
AFacturas := Facturas; AFacturas := Facturas;

4
Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm
View File

@ -6,8 +6,4 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
end end
end end
end end
inherited TBXDock1: TTBXDock
ExplicitTop = 46
ExplicitWidth = 451
end
end end

21
Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.pas
View File

@ -28,6 +28,7 @@ type
procedure SetFactura(const Value: IBizFacturaCliente); procedure SetFactura(const Value: IBizFacturaCliente);
procedure AnadirArticulosInterno; override; procedure AnadirArticulosInterno; override;
procedure RellenarArticulosInterno; override;
function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override; function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
public public
@ -43,18 +44,18 @@ uses uDetallesFacturaClienteController;
function TfrViewDetallesFacturaCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; function TfrViewDetallesFacturaCliente.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
begin begin
Result := (Controller as IDetallesFacturaClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Factura.Cliente.ID);
if (Factura.TIPO = CTE_TIPO_ABONO) then if (Factura.TIPO = CTE_TIPO_ABONO) then
(Controller as IDetallesFacturaClienteController).CambiarSignoDetalles(Detalles); Result := (Controller as IDetallesFacturaClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Factura.Cliente.ID, -1)
else
Result := (Controller as IDetallesFacturaClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Factura.Cliente.ID);
end; end;
procedure TfrViewDetallesFacturaCliente.AnadirArticulosInterno; procedure TfrViewDetallesFacturaCliente.AnadirArticulosInterno;
begin begin
(Controller as IDetallesFacturaClienteController).AnadirArticulos(Detalles, Factura.Cliente);
if (Factura.TIPO = CTE_TIPO_ABONO) then if (Factura.TIPO = CTE_TIPO_ABONO) then
(Controller as IDetallesFacturaClienteController).CambiarSignoDetalles(Detalles); (Controller as IDetallesFacturaClienteController).AnadirArticulos(Detalles, Factura.Cliente, true, -1)
else
(Controller as IDetallesFacturaClienteController).AnadirArticulos(Detalles, Factura.Cliente);
end; end;
function TfrViewDetallesFacturaCliente.GetFactura: IBizFacturaCliente; function TfrViewDetallesFacturaCliente.GetFactura: IBizFacturaCliente;
@ -62,6 +63,14 @@ begin
Result := FFactura; Result := FFactura;
end; end;
procedure TfrViewDetallesFacturaCliente.RellenarArticulosInterno;
begin
if (Factura.TIPO = CTE_TIPO_ABONO) then
(Controller as IDetallesFacturaClienteController).AnadirArticulos(Detalles, Factura.Cliente, False, -1)
else
(Controller as IDetallesFacturaClienteController).AnadirArticulos(Detalles, Factura.Cliente, False);
end;
procedure TfrViewDetallesFacturaCliente.SetFactura(const Value: IBizFacturaCliente); procedure TfrViewDetallesFacturaCliente.SetFactura(const Value: IBizFacturaCliente);
begin begin
FFactura := Value; FFactura := Value;

19
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -23,8 +23,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewNUM_COPIAS: TcxGridDBColumn object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS' DataBinding.FieldName = 'NUM_COPIAS'
OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
MinWidth = 30
Options.HorzSizing = False
VisibleForCustomization = False VisibleForCustomization = False
Width = 25 Width = 30
IsCaptionAssigned = True IsCaptionAssigned = True
end end
object cxGridViewTIPO: TcxGridDBColumn object cxGridViewTIPO: TcxGridDBColumn
@ -502,6 +505,20 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
064200A70120096201BA0100A6C62916A56F74520000000049454E44AE426082} 064200A70120096201BA0100A6C62916A56F74520000000049454E44AE426082}
Name = 'PngImage3' Name = 'PngImage3'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end> end>
Left = 56 Left = 56
Top = 48 Top = 48

20
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -64,6 +64,9 @@ type
procedure actProvinciaExecute(Sender: TObject); procedure actProvinciaExecute(Sender: TObject);
procedure actProvinciaUpdate(Sender: TObject); procedure actProvinciaUpdate(Sender: TObject);
procedure actClienteUpdate(Sender: TObject); procedure actClienteUpdate(Sender: TObject);
procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -184,6 +187,23 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewFacturasCliente.cxGridViewNUM_COPIASCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
begin
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
ADone := True;
end;
end;
procedure TfrViewFacturasCliente.cxGridViewStylesGetContentStyle( procedure TfrViewFacturasCliente.cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

19
Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas
View File

@ -9,7 +9,7 @@ uses
type type
IDetallesFacturaProveedorController = interface(IControllerDetallesArticulos) IDetallesFacturaProveedorController = interface(IControllerDetallesArticulos)
['{49F6199E-E031-42F5-AEA5-E70C3E3479A1}'] ['{49F6199E-E031-42F5-AEA5-E70C3E3479A1}']
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor);
procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaProveedor; AReferencia: String; AFecha: String); procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaProveedor; AReferencia: String; AFecha: String);
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
@ -32,7 +32,7 @@ type
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
public public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaProveedor; AReferencia: String; AFecha: String); procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaProveedor; AReferencia: String; AFecha: String);
constructor Create; override; constructor Create; override;
@ -63,16 +63,25 @@ begin
end; end;
end; end;
procedure TDetallesFacturaProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); procedure TDetallesFacturaProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1);
var var
AArticulos: IBizArticulo; AArticulos: IBizArticulo;
begin begin
if Assigned(ADetalles) then if Assigned(ADetalles) then
begin begin
AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
try try
AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
if ANuevaFila then
begin
AArticulos := (FArticulosController as IArticulosFacturaProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a esta factura de Proveedor', True, AProveedor); AArticulos := (FArticulosController as IArticulosFacturaProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a esta factura de Proveedor', True, AProveedor);
Add(ADetalles, AArticulos); Add(ADetalles, AArticulos, ACantidad)
end
else
begin
AArticulos := (FArticulosController as IArticulosFacturaProveedorController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a esta factura de Proveedor', False, AProveedor);
RellenarDetalle(ADetalles, AArticulos, ACantidad);
end;
finally finally
AArticulos := Nil; AArticulos := Nil;
end; end;

30
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasProveedor, Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasProveedor,
uProveedoresController, uDetallesFacturaProveedorController, uBizFacturasProveedor, uProveedoresController, uDetallesFacturaProveedorController, uBizFacturasProveedor,
uBizAlbaranesProveedor; uBizAlbaranesProveedor, uViewGridBase;
type type
IFacturasProveedorController = interface(IObservador) IFacturasProveedorController = interface(IObservador)
@ -39,14 +39,14 @@ type
function GenerarAbono(AFactura: IBizFacturaProveedor): IBizFacturaProveedor; function GenerarAbono(AFactura: IBizFacturaProveedor): IBizFacturaProveedor;
procedure Preview(AFactura : IBizFacturaProveedor; AllItems: Boolean = false); procedure Preview(AFactura : IBizFacturaProveedor; AllItems: Boolean = false);
procedure Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false); function Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false): Boolean;
procedure RecalcularImportes(FFactura: IBizFacturaProveedor); procedure RecalcularImportes(FFactura: IBizFacturaProveedor);
function EsModificable(AFactura: IBizFacturaProveedor): Boolean; function EsModificable(AFactura: IBizFacturaProveedor): Boolean;
function EsEliminable(AFactura: IBizFacturaProveedor): Boolean; function EsEliminable(AFactura: IBizFacturaProveedor): Boolean;
function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor; function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor;
function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor) : IBizFacturaProveedor; function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizFacturaProveedor;
end; end;
TFacturasProveedorController = class(TObservador, IFacturasProveedorController) TFacturasProveedorController = class(TObservador, IFacturasProveedorController)
@ -98,14 +98,14 @@ type
procedure RecuperarProveedor(AFactura : IBizFacturaProveedor); procedure RecuperarProveedor(AFactura : IBizFacturaProveedor);
procedure Preview(AFactura : IBizFacturaProveedor; AllItems: Boolean = false); procedure Preview(AFactura : IBizFacturaProveedor; AllItems: Boolean = false);
procedure Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false); function Print(AFactura : IBizFacturaProveedor; AllItems: Boolean = false): Boolean;
procedure RecalcularImportes(FFactura: IBizFacturaProveedor); procedure RecalcularImportes(FFactura: IBizFacturaProveedor);
function EsModificable(AFactura: IBizFacturaProveedor): Boolean; function EsModificable(AFactura: IBizFacturaProveedor): Boolean;
function EsEliminable(AFactura: IBizFacturaProveedor): Boolean; function EsEliminable(AFactura: IBizFacturaProveedor): Boolean;
function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor; function ElegirFacturas(AFacturas : IBizFacturaProveedor; AMensaje: String; AMultiSelect: Boolean): IBizFacturaProveedor;
function ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor) : IBizFacturaProveedor; function ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizFacturaProveedor;
end; end;
implementation implementation
@ -865,13 +865,26 @@ begin
end; end;
end; end;
function TFacturasProveedorController.ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor): IBizFacturaProveedor; function TFacturasProveedorController.ExtraerSeleccionados(AFacturasProveedor: IBizFacturaProveedor; Const ViewGrid: IViewGridBase = Nil): IBizFacturaProveedor;
var var
ASeleccionados : IBizFacturaProveedor; ASeleccionados : IBizFacturaProveedor;
begin begin
if Assigned(ViewGrid) then
begin
//Guardamos la situación porque el CopyDataTable nos cambia la posicion
ViewGrid.SaveGridStatus;
ViewGrid.DesactivarGrid;
end;
ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaProveedor); ASeleccionados := (Self.Buscar(ID_NULO) as IBizFacturaProveedor);
CopyDataTable(AFacturasProveedor.DataTable, ASeleccionados.DataTable, True); CopyDataTable(AFacturasProveedor.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
if Assigned(ViewGrid) then
begin
ViewGrid.ActivarGrid;
ViewGrid.RestoreGridStatus;
end;
end; end;
procedure TFacturasProveedorController.FiltrarEmpresa(AFactura: IBizFacturaProveedor); procedure TFacturasProveedorController.FiltrarEmpresa(AFactura: IBizFacturaProveedor);
@ -983,12 +996,13 @@ begin
end; end;
end; end;
procedure TFacturasProveedorController.Print(AFactura: IBizFacturaProveedor; AllItems: Boolean = false); function TFacturasProveedorController.Print(AFactura: IBizFacturaProveedor; AllItems: Boolean = false): Boolean;
var var
AReportController : IFacturasProveedorReportController; AReportController : IFacturasProveedorReportController;
ID_Facturas: TStringList; ID_Facturas: TStringList;
begin begin
Result := False;
AReportController := TFacturasProveedorReportController.Create; AReportController := TFacturasProveedorReportController.Create;
try try
ID_Facturas := TStringList.Create; ID_Facturas := TStringList.Create;
@ -1010,7 +1024,7 @@ begin
else else
ID_Facturas.Add(IntToStr(AFactura.ID)); ID_Facturas.Add(IntToStr(AFactura.ID));
AReportController.Print(ID_Facturas.CommaText); Result := AReportController.Print(ID_Facturas.CommaText);
finally finally
AReportController := NIL; AReportController := NIL;

16
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas
View File

@ -10,7 +10,7 @@ type
IFacturasProveedorReportController = interface IFacturasProveedorReportController = interface
['{551F82DC-B8DC-482E-A20D-15003E845078}'] ['{551F82DC-B8DC-482E-A20D-15003E845078}']
procedure Preview(const AFacturaID : String); procedure Preview(const AFacturaID : String);
procedure Print(const AFacturaID : String); function Print(const AFacturaID : String): Boolean;
end; end;
TFacturasProveedorReportController = class(TInterfacedObject, IFacturasProveedorReportController) TFacturasProveedorReportController = class(TInterfacedObject, IFacturasProveedorReportController)
@ -22,7 +22,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AFacturaID : String); procedure Preview(const AFacturaID : String);
procedure Print(const AFacturaID : String); function Print(const AFacturaID : String): Boolean;
end; end;
@ -30,7 +30,8 @@ implementation
uses uses
uROTypes, uEditorRegistryUtils, uIEditorFacturasProveedorPreview, uROTypes, uEditorRegistryUtils, uIEditorFacturasProveedorPreview,
uEditorPreview, uDataModuleFacturasProveedor, uEditorBase, cxControls; uEditorPreview, uDataModuleFacturasProveedor, uEditorBase, cxControls,
schFacturasProveedorClient_Intf;
{ TFacturasProveedorReportController } { TFacturasProveedorReportController }
@ -76,11 +77,12 @@ begin
AEditor.Preview; AEditor.Preview;
end; end;
procedure TFacturasProveedorReportController.Print(const AFacturaID : String); function TFacturasProveedorReportController.Print(const AFacturaID : String): Boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorFacturasProveedorPreview; AEditor : IEditorFacturasProveedorPreview;
begin begin
Result := False;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
@ -97,7 +99,11 @@ begin
end; end;
if Assigned(AEditor) then if Assigned(AEditor) then
AEditor.Print begin
AEditor.TablaImpresion := nme_FacturasProveedor;
AEditor.IdTablaImpresion := AFacturaID;
Result := AEditor.Print;
end;
end; end;
end. end.

13
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -35,7 +35,7 @@ object DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Name = 'User' Name = 'User'
ParamType = fIn ParamType = fIn
DataType = rtString DataType = rtString
Value = 'Administrador' Value = 'Luis'
end end
item item
Name = 'Password' Name = 'Password'
@ -483,6 +483,17 @@ object DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime

60
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -9,11 +9,11 @@ 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_darReferencia = '{5A31B310-B21D-468B-963E-0BB3D56FF098}'; RID_darReferencia = '{8A6AF6AE-FDD3-46DD-9EBB-D2E6C723607B}';
RID_FacturasProveedor = '{7E2B16C4-976C-4809-9E04-2B6B5C91AF87}'; RID_FacturasProveedor = '{AE87472C-8D75-440E-A9DB-4CC1913226D6}';
RID_FacturasProveedor_Detalles = '{8A0BE5E9-157E-4CCC-8EF1-A29CDBA4E28A}'; RID_FacturasProveedor_Detalles = '{DD2FFE30-C1BF-4736-838E-5D1EA821A1EA}';
RID_FacturasProveedor_Detalles_Refresh = '{0DFFA036-18F8-4957-9991-669FC8EB4F42}'; RID_FacturasProveedor_Detalles_Refresh = '{9876655E-E769-445A-A8D5-54AAD69416C7}';
RID_FacturasProveedor_Refresh = '{3FA04195-2172-40A8-915E-9B961949C107}'; RID_FacturasProveedor_Refresh = '{58E8EF55-3D5F-48AD-A700-53ED97F7623D}';
{ Data table names } { Data table names }
nme_darReferencia = 'darReferencia'; nme_darReferencia = 'darReferencia';
@ -60,6 +60,7 @@ const
fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasProveedorID_TIPO_IVA = 'ID_TIPO_IVA';
fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO';
fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasProveedorNUM_COPIAS = 'NUM_COPIAS';
fld_FacturasProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; fld_FacturasProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
{ FacturasProveedor field indexes } { FacturasProveedor field indexes }
@ -94,7 +95,8 @@ const
idx_FacturasProveedorID_TIPO_IVA = 28; idx_FacturasProveedorID_TIPO_IVA = 28;
idx_FacturasProveedorIMPORTE_NETO = 29; idx_FacturasProveedorIMPORTE_NETO = 29;
idx_FacturasProveedorIMPORTE_PORTE = 30; idx_FacturasProveedorIMPORTE_PORTE = 30;
idx_FacturasProveedorFECHA_VENCIMIENTO = 31; idx_FacturasProveedorNUM_COPIAS = 31;
idx_FacturasProveedorFECHA_VENCIMIENTO = 32;
{ FacturasProveedor_Detalles fields } { FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID'; fld_FacturasProveedor_DetallesID = 'ID';
@ -192,6 +194,7 @@ const
fld_FacturasProveedor_RefreshID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasProveedor_RefreshID_TIPO_IVA = 'ID_TIPO_IVA';
fld_FacturasProveedor_RefreshIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasProveedor_RefreshIMPORTE_NETO = 'IMPORTE_NETO';
fld_FacturasProveedor_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasProveedor_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasProveedor_RefreshNUM_COPIAS = 'NUM_COPIAS';
fld_FacturasProveedor_RefreshFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; fld_FacturasProveedor_RefreshFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
{ FacturasProveedor_Refresh field indexes } { FacturasProveedor_Refresh field indexes }
@ -226,12 +229,13 @@ const
idx_FacturasProveedor_RefreshID_TIPO_IVA = 28; idx_FacturasProveedor_RefreshID_TIPO_IVA = 28;
idx_FacturasProveedor_RefreshIMPORTE_NETO = 29; idx_FacturasProveedor_RefreshIMPORTE_NETO = 29;
idx_FacturasProveedor_RefreshIMPORTE_PORTE = 30; idx_FacturasProveedor_RefreshIMPORTE_PORTE = 30;
idx_FacturasProveedor_RefreshFECHA_VENCIMIENTO = 31; idx_FacturasProveedor_RefreshNUM_COPIAS = 31;
idx_FacturasProveedor_RefreshFECHA_VENCIMIENTO = 32;
type type
{ IdarReferencia } { IdarReferencia }
IdarReferencia = interface(IDAStronglyTypedDataTable) IdarReferencia = interface(IDAStronglyTypedDataTable)
['{65EFF80E-72D6-4702-8DE2-EAB9E67C2CED}'] ['{E4CA7807-EBBA-41AD-B9B5-38D4318CA39F}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -260,7 +264,7 @@ type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{02E381CF-8B87-4CAC-BBB3-BE1303EFC6EA}'] ['{F72C5456-F7D2-47E6-B6E4-45DD1622A9F6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -324,6 +328,8 @@ type
procedure SetIMPORTE_NETOValue(const aValue: Currency); procedure SetIMPORTE_NETOValue(const aValue: Currency);
function GetIMPORTE_PORTEValue: Currency; function GetIMPORTE_PORTEValue: Currency;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
function GetFECHA_VENCIMIENTOValue: DateTime; function GetFECHA_VENCIMIENTOValue: DateTime;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
@ -360,6 +366,7 @@ type
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
end; end;
@ -430,6 +437,8 @@ type
procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEValue: Currency; virtual; function GetIMPORTE_PORTEValue: Currency; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual; function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@ -465,6 +474,7 @@ type
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
public public
@ -475,7 +485,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{09638FB4-2429-47C7-BEE6-695CCA2B7429}'] ['{398A387A-683C-48EF-AD52-89A3163736C2}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -582,7 +592,7 @@ type
{ IFacturasProveedor_Detalles_Refresh } { IFacturasProveedor_Detalles_Refresh }
IFacturasProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{34CAF884-E288-4691-BBB0-1FB65C392944}'] ['{9080B14F-8AA6-4096-9790-42188A3AE8D8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -689,7 +699,7 @@ type
{ IFacturasProveedor_Refresh } { IFacturasProveedor_Refresh }
IFacturasProveedor_Refresh = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Refresh = interface(IDAStronglyTypedDataTable)
['{9AC32D5C-9DDF-471B-95AA-FFC958A99C41}'] ['{786F2A15-EDAF-4AA9-BD48-027B1EEEC55A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -753,6 +763,8 @@ type
procedure SetIMPORTE_NETOValue(const aValue: Currency); procedure SetIMPORTE_NETOValue(const aValue: Currency);
function GetIMPORTE_PORTEValue: Currency; function GetIMPORTE_PORTEValue: Currency;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
function GetFECHA_VENCIMIENTOValue: DateTime; function GetFECHA_VENCIMIENTOValue: DateTime;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
@ -789,6 +801,7 @@ type
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
end; end;
@ -859,6 +872,8 @@ type
procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEValue: Currency; virtual; function GetIMPORTE_PORTEValue: Currency; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual; function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@ -894,6 +909,7 @@ type
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
public public
@ -1250,6 +1266,16 @@ begin
DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsCurrency := aValue; DataTable.Fields[idx_FacturasProveedorIMPORTE_PORTE].AsCurrency := aValue;
end; end;
function TFacturasProveedorDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_FacturasProveedorNUM_COPIAS].AsInteger;
end;
procedure TFacturasProveedorDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasProveedorNUM_COPIAS].AsInteger := aValue;
end;
function TFacturasProveedorDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; function TFacturasProveedorDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin begin
result := DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsDateTime; result := DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsDateTime;
@ -1887,6 +1913,16 @@ begin
DataTable.Fields[idx_FacturasProveedor_RefreshIMPORTE_PORTE].AsCurrency := aValue; DataTable.Fields[idx_FacturasProveedor_RefreshIMPORTE_PORTE].AsCurrency := aValue;
end; end;
function TFacturasProveedor_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_FacturasProveedor_RefreshNUM_COPIAS].AsInteger;
end;
procedure TFacturasProveedor_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasProveedor_RefreshNUM_COPIAS].AsInteger := aValue;
end;
function TFacturasProveedor_RefreshDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; function TFacturasProveedor_RefreshDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin begin
result := DataTable.Fields[idx_FacturasProveedor_RefreshFECHA_VENCIMIENTO].AsDateTime; result := DataTable.Fields[idx_FacturasProveedor_RefreshFECHA_VENCIMIENTO].AsDateTime;

64
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,16 +9,16 @@ 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_darReferenciaDelta = '{9811D236-BBAF-41FA-BA7C-27CFA776F2BA}'; RID_darReferenciaDelta = '{11F40542-0486-4EEB-A23C-A54896CED721}';
RID_FacturasProveedorDelta = '{D0D34618-4ADB-4D35-96BF-AB713867C946}'; RID_FacturasProveedorDelta = '{8A5AD103-5D7D-4736-AE18-AAF5F983D4E7}';
RID_FacturasProveedor_DetallesDelta = '{EB4106FB-07FA-4683-9055-D44215CB3A30}'; RID_FacturasProveedor_DetallesDelta = '{529B369E-EA3A-4860-91C7-E1B4825BE2BE}';
RID_FacturasProveedor_Detalles_RefreshDelta = '{DF491E40-B1CA-4976-9167-E3B022F545D3}'; RID_FacturasProveedor_Detalles_RefreshDelta = '{D88F14D7-712F-4571-A0C9-EC6A3170D976}';
RID_FacturasProveedor_RefreshDelta = '{F4B987F7-529B-43A3-9264-157ACC3C6BAC}'; RID_FacturasProveedor_RefreshDelta = '{50CC524D-33DB-47FB-9154-7529F500B4DE}';
type type
{ IdarReferenciaDelta } { IdarReferenciaDelta }
IdarReferenciaDelta = interface(IdarReferencia) IdarReferenciaDelta = interface(IdarReferencia)
['{9811D236-BBAF-41FA-BA7C-27CFA776F2BA}'] ['{11F40542-0486-4EEB-A23C-A54896CED721}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{D0D34618-4ADB-4D35-96BF-AB713867C946}'] ['{8A5AD103-5D7D-4736-AE18-AAF5F983D4E7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -80,6 +80,7 @@ type
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldNUM_COPIASValue : Integer;
function GetOldFECHA_VENCIMIENTOValue : DateTime; function GetOldFECHA_VENCIMIENTOValue : DateTime;
{ Properties } { Properties }
@ -114,6 +115,7 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
end; end;
@ -215,6 +217,9 @@ type
function GetIMPORTE_PORTEValue: Currency; virtual; function GetIMPORTE_PORTEValue: Currency; virtual;
function GetOldIMPORTE_PORTEValue: Currency; virtual; function GetOldIMPORTE_PORTEValue: Currency; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual; function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@ -282,6 +287,8 @@ type
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
@ -293,7 +300,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{EB4106FB-07FA-4683-9055-D44215CB3A30}'] ['{529B369E-EA3A-4860-91C7-E1B4825BE2BE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -413,7 +420,7 @@ type
{ IFacturasProveedor_Detalles_RefreshDelta } { IFacturasProveedor_Detalles_RefreshDelta }
IFacturasProveedor_Detalles_RefreshDelta = interface(IFacturasProveedor_Detalles_Refresh) IFacturasProveedor_Detalles_RefreshDelta = interface(IFacturasProveedor_Detalles_Refresh)
['{DF491E40-B1CA-4976-9167-E3B022F545D3}'] ['{D88F14D7-712F-4571-A0C9-EC6A3170D976}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -533,7 +540,7 @@ type
{ IFacturasProveedor_RefreshDelta } { IFacturasProveedor_RefreshDelta }
IFacturasProveedor_RefreshDelta = interface(IFacturasProveedor_Refresh) IFacturasProveedor_RefreshDelta = interface(IFacturasProveedor_Refresh)
['{F4B987F7-529B-43A3-9264-157ACC3C6BAC}'] ['{50CC524D-33DB-47FB-9154-7529F500B4DE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -566,6 +573,7 @@ type
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldNUM_COPIASValue : Integer;
function GetOldFECHA_VENCIMIENTOValue : DateTime; function GetOldFECHA_VENCIMIENTOValue : DateTime;
{ Properties } { Properties }
@ -600,6 +608,7 @@ type
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
end; end;
@ -701,6 +710,9 @@ type
function GetIMPORTE_PORTEValue: Currency; virtual; function GetIMPORTE_PORTEValue: Currency; virtual;
function GetOldIMPORTE_PORTEValue: Currency; virtual; function GetOldIMPORTE_PORTEValue: Currency; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual; function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@ -768,6 +780,8 @@ type
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
@ -1287,6 +1301,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_PORTE] := aValue;
end; end;
function TFacturasProveedorBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNUM_COPIAS];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorNUM_COPIAS];
end;
procedure TFacturasProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorNUM_COPIAS] := aValue;
end;
function TFacturasProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; function TFacturasProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO];
@ -2225,6 +2254,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_RefreshIMPORTE_PORTE] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_RefreshIMPORTE_PORTE] := aValue;
end; end;
function TFacturasProveedor_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_RefreshNUM_COPIAS];
end;
function TFacturasProveedor_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_RefreshNUM_COPIAS];
end;
procedure TFacturasProveedor_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_RefreshNUM_COPIAS] := aValue;
end;
function TFacturasProveedor_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; function TFacturasProveedor_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_RefreshFECHA_VENCIMIENTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_RefreshFECHA_VENCIMIENTO];

62
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -76,8 +76,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'TAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, NOMBRE, CALLE,'#10' PO' + 'TAL, OBSERVACIONES, ID_PROVEEDOR, NIF_CIF, NOMBRE, CALLE,'#10' PO' +
'BLACION, PROVINCIA, CODIGO_POSTAL, FECHA_ALTA, FECHA_MODIFICACIO' + 'BLACION, PROVINCIA, CODIGO_POSTAL, FECHA_ALTA, FECHA_MODIFICACIO' +
'N,'#10' USUARIO, ID_FORMA_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA' + 'N,'#10' USUARIO, ID_FORMA_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA' +
','#10' IMPORTE_NETO, IMPORTE_PORTE'#10' FROM'#10' V_FACTURAS_PROVEEDO' + ','#10' IMPORTE_NETO, IMPORTE_PORTE, NUM_COPIAS'#10' FROM'#10' V_FACTU' +
'R' 'RAS_PROVEEDOR'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -92,6 +92,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
end end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item item
DatasetField = 'FECHA_FACTURA' DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA'
@ -197,12 +205,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
TableField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE'
end end
item item
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'NUM_COPIAS'
TableField = 'REFERENCIA_PROVEEDOR' TableField = 'NUM_COPIAS'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end> end>
end> end>
Name = 'FacturasProveedor' Name = 'FacturasProveedor'
@ -528,6 +532,17 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
@ -1038,8 +1053,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'OTAL, OBSERVACIONES, ID_PROVEEDOR,'#10' NIF_CIF, NOMBRE, CALLE, P' + 'OTAL, OBSERVACIONES, ID_PROVEEDOR,'#10' NIF_CIF, NOMBRE, CALLE, P' +
'OBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIF' + 'OBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIF' +
'ICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_T' + 'ICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_T' +
'IPO_IVA, IMPORTE_NETO, IMPORTE_PORTE'#10' FROM'#10' V_FACTURAS_PROVE' + 'IPO_IVA, IMPORTE_NETO, IMPORTE_PORTE, NUM_COPIAS'#10' FROM'#10' V_FA' +
'EDOR'#10' WHERE ID = :ID' 'CTURAS_PROVEEDOR'#10' WHERE ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -1054,6 +1069,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
end end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item item
DatasetField = 'FECHA_FACTURA' DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA'
@ -1159,12 +1182,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
TableField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE'
end end
item item
DatasetField = 'REFERENCIA_PROVEEDOR' DatasetField = 'NUM_COPIAS'
TableField = 'REFERENCIA_PROVEEDOR' TableField = 'NUM_COPIAS'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end> end>
end> end>
Name = 'FacturasProveedor_Refresh' Name = 'FacturasProveedor_Refresh'
@ -1491,6 +1510,17 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime

4
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -172,6 +172,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0

14
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -287,19 +287,7 @@ begin
// Si la factura tiene detalles hay que mirar si los descuentos y otros campos // Si la factura tiene detalles hay que mirar si los descuentos y otros campos
// para los artículos hay que cambiarlos. // para los artículos hay que cambiarlos.
if (FFactura.Detalles.RecordCount > 0) then if (FFactura.Detalles.RecordCount > 0) then
begin FController.DetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Proveedor);
FDetallesController := TDetallesFacturaProveedorController.Create;
try
FDetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Proveedor);
//En caso de ser un abono también debe cambiar el signo a los detalles
if (Factura.TIPO = CTE_TIPO_ABONO) then
Controller.DetallesController.CambiarSignoDetalles(FFactura.Detalles);
finally
FDetallesController := NIL;
end;
end;
end; end;
procedure TfEditorFacturaProveedor.pgPaginasChanging(Sender: TObject; procedure TfEditorFacturaProveedor.pgPaginasChanging(Sender: TObject;

9
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -163,7 +163,7 @@ begin
if (Application.MessageBox('¿Desea borrar las facturas/abonos de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea borrar las facturas/abonos de cliente seleccionados?', 'Atención', MB_YESNO) = IDYES) then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor; AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaProveedor;
end end
end end
else begin else begin
@ -253,13 +253,14 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor; AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaProveedor;
end end
else else
AFacturas := Facturas; AFacturas := Facturas;
if Assigned(AFacturas) then if Assigned(AFacturas) then
FController.Print(AFacturas, AllItems); if FController.Print(AFacturas, AllItems) then
RefrescarInterno;
end; end;
end; end;
end; end;
@ -352,7 +353,7 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor; AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas, ViewGrid) as IBizFacturaProveedor;
end end
else else
AFacturas := Facturas; AFacturas := Facturas;

21
Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.pas
View File

@ -28,6 +28,7 @@ type
procedure SetFactura(const Value: IBizFacturaProveedor); procedure SetFactura(const Value: IBizFacturaProveedor);
procedure AnadirArticulosInterno; override; procedure AnadirArticulosInterno; override;
procedure RellenarArticulosInterno; override;
function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override; function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
public public
@ -43,18 +44,18 @@ uses uDetallesFacturaProveedorController;
function TfrViewDetallesFacturaProveedor.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; function TfrViewDetallesFacturaProveedor.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
begin begin
Result := (Controller as IDetallesFacturaProveedorController).AnadirArticulo(Detalles, pReferencia, tProveedor);
if (Factura.TIPO = CTE_TIPO_ABONO) then if (Factura.TIPO = CTE_TIPO_ABONO) then
(Controller as IDetallesFacturaProveedorController).CambiarSignoDetalles(Detalles); Result := (Controller as IDetallesFacturaProveedorController).AnadirArticulo(Detalles, pReferencia, tProveedor, -1, -1)
else
Result := (Controller as IDetallesFacturaProveedorController).AnadirArticulo(Detalles, pReferencia, tProveedor, -1, -1);
end; end;
procedure TfrViewDetallesFacturaProveedor.AnadirArticulosInterno; procedure TfrViewDetallesFacturaProveedor.AnadirArticulosInterno;
begin begin
(Controller as IDetallesFacturaProveedorController).AnadirArticulos(Detalles, Factura.Proveedor);
if (Factura.TIPO = CTE_TIPO_ABONO) then if (Factura.TIPO = CTE_TIPO_ABONO) then
(Controller as IDetallesFacturaProveedorController).CambiarSignoDetalles(Detalles); (Controller as IDetallesFacturaProveedorController).AnadirArticulos(Detalles, Factura.Proveedor, true, -1)
else
(Controller as IDetallesFacturaProveedorController).AnadirArticulos(Detalles, Factura.Proveedor);
end; end;
function TfrViewDetallesFacturaProveedor.GetFactura: IBizFacturaProveedor; function TfrViewDetallesFacturaProveedor.GetFactura: IBizFacturaProveedor;
@ -62,6 +63,14 @@ begin
Result := FFactura; Result := FFactura;
end; end;
procedure TfrViewDetallesFacturaProveedor.RellenarArticulosInterno;
begin
if (Factura.TIPO = CTE_TIPO_ABONO) then
(Controller as IDetallesFacturaProveedorController).AnadirArticulos(Detalles, Factura.Proveedor, False, -1)
else
(Controller as IDetallesFacturaProveedorController).AnadirArticulos(Detalles, Factura.Proveedor, False);
end;
procedure TfrViewDetallesFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor); procedure TfrViewDetallesFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor);
begin begin
FFactura := Value; FFactura := Value;

35
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

@ -33,6 +33,15 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
MinWidth = 30
Options.HorzSizing = False
VisibleForCustomization = False
Width = 30
IsCaptionAssigned = True
end
object cxGridViewTIPO: TcxGridDBColumn object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO' DataBinding.FieldName = 'TIPO'
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
@ -164,15 +173,27 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 531 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 248
ExplicitLeft = 248
ExplicitWidth = 244 ExplicitWidth = 244
Width = 244 Width = 244
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531 Width = 531
ExplicitWidth = 531
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 521 Width = 521
ExplicitWidth = 521
end end
end end
end end
@ -506,6 +527,20 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
064200A70120096201BA0100A6C62916A56F74520000000049454E44AE426082} 064200A70120096201BA0100A6C62916A56F74520000000049454E44AE426082}
Name = 'PngImage3' Name = 'PngImage3'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end> end>
Left = 56 Left = 56
Top = 48 Top = 48

21
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
View File

@ -56,6 +56,7 @@ type
TBXItem3: TTBXItem; TBXItem3: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem; TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewTIPO: TcxGridDBColumn; cxGridViewTIPO: TcxGridDBColumn;
cxGridViewNUM_COPIAS: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);
@ -64,6 +65,9 @@ type
procedure actProveedorUpdate(Sender: TObject); procedure actProveedorUpdate(Sender: TObject);
procedure actProvinciaExecute(Sender: TObject); procedure actProvinciaExecute(Sender: TObject);
procedure actProvinciaUpdate(Sender: TObject); procedure actProvinciaUpdate(Sender: TObject);
procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -183,6 +187,23 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewFacturasProveedor.cxGridViewNUM_COPIASCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
begin
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
ADone := True;
end;
end;
procedure TfrViewFacturasProveedor.cxGridViewStylesGetContentStyle( procedure TfrViewFacturasProveedor.cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

40
Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
View File

@ -102,46 +102,6 @@ begin
inherited; inherited;
end; end;
{function THistoricoMovimientosController.ExtraerSeleccionados(AArticulos: IBizHistoricoMovimientos): IBizHistoricoMovimientos;
var
ASeleccionados : IBizHistoricoMovimientos;
begin
ASeleccionados := (Self.Buscar(ID_NULO) as IBizHistoricoMovimientos);
CopyDataTable(AArticulos.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados;
end;}
{function THistoricoMovimientosController.Ver(AArticulos: IBizHistoricoMovimientos; AHistoricoMovimientos: IBizHistoricoMovimientos): Boolean;
var
AEditor : IEditorEntradaSalidaArticulos;
begin
Result := False;
AEditor := NIL;
ShowHourglassCursor;
try
CreateEditor('EditorEntradaSalidaArticulos', IEditorEntradaSalidaArticulos, AEditor);
with AEditor do
begin
Controller := Self; //OJO ORDEN MUY IMPORTANTE
Articulos := AArticulos;
HistoricoMovimientos := AHistoricoMovimientos;
end;
finally
HideHourglassCursor;
end;
if Assigned(AEditor) then
try
AEditor.ShowModal;
Result := AEditor.ResultadoModalOK;
AEditor.Release;
finally
AEditor := NIL;
end;
end;}
procedure THistoricoMovimientosController.VerTodos(AHistoricoMovimientos: IBizHistoricoMovimientos); procedure THistoricoMovimientosController.VerTodos(AHistoricoMovimientos: IBizHistoricoMovimientos);
var var
AEditor : IEditorHistoricoMovimientos; AEditor : IEditorHistoricoMovimientos;

17
Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas
View File

@ -9,7 +9,7 @@ uses
type type
IDetallesPedidoProveedorController = interface(IControllerDetallesArticulos) IDetallesPedidoProveedorController = interface(IControllerDetallesArticulos)
['{942428EC-BCB8-4C56-BFA6-EB9F05D5E0DB}'] ['{942428EC-BCB8-4C56-BFA6-EB9F05D5E0DB}']
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend; function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
@ -33,7 +33,7 @@ type
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
public public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend; function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
constructor Create; override; constructor Create; override;
@ -63,7 +63,7 @@ begin
end; end;
end; end;
procedure TDetallesPedidoProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); procedure TDetallesPedidoProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True);
var var
AArticulos: IBizArticulo; AArticulos: IBizArticulo;
begin begin
@ -71,8 +71,17 @@ begin
begin begin
try try
AArticulos := (FArticulosController.BuscarTodos as IBizArticulo); AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
//Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
if ANuevaFila then
begin
AArticulos := (FArticulosController as IArticulosPedidoProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este pedido a proveedor', True, AProveedor); AArticulos := (FArticulosController as IArticulosPedidoProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este pedido a proveedor', True, AProveedor);
Add(ADetalles, AArticulos); Add(ADetalles, AArticulos)
end
else
begin
AArticulos := (FArticulosController as IArticulosPedidoProveedorController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este pedido a proveedor', False, AProveedor);
RellenarDetalle(ADetalles, AArticulos);
end;
finally finally
AArticulos := Nil; AArticulos := Nil;
end; end;

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

@ -6,7 +6,7 @@ interface
uses uses
SysUtils, uDADataTable, uEditorDBItem, SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModulePedidosProveedor, uProveedoresController, uControllerBase, uIDataModulePedidosProveedor, uProveedoresController,
uDetallesPedidoProveedorController, uBizPedidosProveedor; uDetallesPedidoProveedorController, uBizPedidosProveedor, uViewGridBase;
type type
IPedidosProveedorController = interface(IObservador) IPedidosProveedorController = interface(IObservador)
@ -35,7 +35,7 @@ type
function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor; function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
procedure Preview(APedido : IBizPedidoProveedor; AllItems: Boolean = false); procedure Preview(APedido : IBizPedidoProveedor; AllItems: Boolean = false);
procedure Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false); function Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false): Boolean;
procedure RecalcularImportes(APedido: IBizPedidoProveedor); procedure RecalcularImportes(APedido: IBizPedidoProveedor);
function EsModificable(APedido : IBizPedidoProveedor): Boolean; function EsModificable(APedido : IBizPedidoProveedor): Boolean;
@ -44,7 +44,7 @@ type
function CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion : String; AFechaPagado: TDateTime = 0; DoPost : Boolean = True): Boolean; overload; function CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion : String; AFechaPagado: TDateTime = 0; DoPost : Boolean = True): Boolean; overload;
function CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; overload; function CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; overload;
function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor; function ExtraerSeleccionados(APedido: IBizPedidoProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizPedidoProveedor;
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor; function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
procedure RecuperarProveedor(APedido: IBizPedidoProveedor); procedure RecuperarProveedor(APedido: IBizPedidoProveedor);
@ -101,7 +101,7 @@ type
function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor; function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
procedure Preview(APedido : IBizPedidoProveedor; AllItems: Boolean = false); procedure Preview(APedido : IBizPedidoProveedor; AllItems: Boolean = false);
procedure Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false); function Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false): Boolean;
procedure RecalcularImportes(APedido: IBizPedidoProveedor); procedure RecalcularImportes(APedido: IBizPedidoProveedor);
function EsModificable(APedido : IBizPedidoProveedor): Boolean; function EsModificable(APedido : IBizPedidoProveedor): Boolean;
@ -110,7 +110,7 @@ type
function CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion : String; AFechaRecepcion: TDateTime = 0; DoPost : Boolean = True): Boolean; overload; function CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion : String; AFechaRecepcion: TDateTime = 0; DoPost : Boolean = True): Boolean; overload;
function CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; overload; function CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; overload;
function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor; function ExtraerSeleccionados(APedido: IBizPedidoProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizPedidoProveedor;
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor; function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
procedure Limpiardireccion(APedido: IBizPedidoProveedor); procedure Limpiardireccion(APedido: IBizPedidoProveedor);
@ -651,13 +651,26 @@ begin
end; end;
end; end;
function TPedidosProveedorController.ExtraerSeleccionados(APedido: IBizPedidoProveedor): IBizPedidoProveedor; function TPedidosProveedorController.ExtraerSeleccionados(APedido: IBizPedidoProveedor; Const ViewGrid: IViewGridBase = Nil): IBizPedidoProveedor;
var var
ASeleccionados : IBizPedidoProveedor; ASeleccionados : IBizPedidoProveedor;
begin begin
if Assigned(ViewGrid) then
begin
//Guardamos la situación porque el CopyDataTable nos cambia la posicion
ViewGrid.SaveGridStatus;
ViewGrid.DesactivarGrid;
end;
ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoProveedor); ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoProveedor);
CopyDataTable(APedido.DataTable, ASeleccionados.DataTable, True); CopyDataTable(APedido.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
if Assigned(ViewGrid) then
begin
ViewGrid.ActivarGrid;
ViewGrid.RestoreGridStatus;
end;
end; end;
procedure TPedidosProveedorController.FiltrarEmpresa( procedure TPedidosProveedorController.FiltrarEmpresa(
@ -780,12 +793,13 @@ begin
end; end;
end; end;
procedure TPedidosProveedorController.Print(APedido: IBizPedidoProveedor; AllItems: Boolean = false); function TPedidosProveedorController.Print(APedido: IBizPedidoProveedor; AllItems: Boolean = false): Boolean;
var var
AReportController : IPedidosProveedorReportController; AReportController : IPedidosProveedorReportController;
ID_Pedidos: TStringList; ID_Pedidos: TStringList;
begin begin
Result := False;
AReportController := TPedidosProveedorReportController.Create; AReportController := TPedidosProveedorReportController.Create;
try try
ID_Pedidos := TStringList.Create; ID_Pedidos := TStringList.Create;
@ -807,7 +821,7 @@ begin
else else
ID_Pedidos.Add(IntToStr(APedido.ID)); ID_Pedidos.Add(IntToStr(APedido.ID));
AReportController.Print(ID_Pedidos.CommaText); Result := AReportController.Print(ID_Pedidos.CommaText);
finally finally
AReportController := NIL; AReportController := NIL;

16
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas
View File

@ -11,7 +11,7 @@ type
IPedidosProveedorReportController = interface IPedidosProveedorReportController = interface
['{D0686358-251C-43C4-9927-6112F2F4D3B8}'] ['{D0686358-251C-43C4-9927-6112F2F4D3B8}']
procedure Preview(const AID : String); procedure Preview(const AID : String);
procedure Print(const AID : String); function Print(const AID : String): Boolean;
end; end;
TPedidosProveedorReportController = class(TInterfacedObject, IPedidosProveedorReportController) TPedidosProveedorReportController = class(TInterfacedObject, IPedidosProveedorReportController)
@ -23,7 +23,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AID : String); procedure Preview(const AID : String);
procedure Print(const AID : String); function Print(const AID : String): Boolean;
end; end;
@ -31,7 +31,8 @@ implementation
uses uses
uROTypes, uEditorRegistryUtils, uIEditorPedidosProveedorPreview, uROTypes, uEditorRegistryUtils, uIEditorPedidosProveedorPreview,
uEditorPreview, uDataModulePedidosProveedor, uEditorBase, cxControls; uEditorPreview, uDataModulePedidosProveedor, uEditorBase, cxControls,
schPedidosProveedorClient_Intf;
{ TPedidosProveedorReportController } { TPedidosProveedorReportController }
@ -77,11 +78,12 @@ begin
AEditor.Preview; AEditor.Preview;
end; end;
procedure TPedidosProveedorReportController.Print(const AID : String); function TPedidosProveedorReportController.Print(const AID : String): boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorPedidosProveedorPreview; AEditor : IEditorPedidosProveedorPreview;
begin begin
Result := False;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
@ -98,7 +100,11 @@ begin
end; end;
if Assigned(AEditor) then if Assigned(AEditor) then
AEditor.Print begin
AEditor.TablaImpresion := nme_PedidosProveedor;
AEditor.IdTablaImpresion := AID;
Result := AEditor.Print;
end;
end; end;
end. end.

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

@ -498,6 +498,17 @@ object DataModulePedidosProveedor: TDataModulePedidosProveedor
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
Params = <> Params = <>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest
@ -875,7 +886,7 @@ object DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'User' Name = 'User'
ParamType = fIn ParamType = fIn
DataType = rtString DataType = rtString
Value = 'Administrador' Value = 'Luis'
end end
item item
Name = 'Password' Name = 'Password'

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

@ -9,12 +9,12 @@ 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_DarReferencia = '{9D9C3B70-4476-4732-B123-47F58F4C108E}'; RID_DarReferencia = '{352EF067-18AC-4EC5-938F-7527FA27AB41}';
RID_PedidosProveedor = '{416EEEE9-486B-48BB-A166-C897B8AD547B}'; RID_PedidosProveedor = '{7F558FB2-C09A-403E-8CDD-C2FA5061EBF9}';
RID_PedidosProveedor_Detalles = '{78C3C840-8365-4799-AE68-CF6A6C91A435}'; RID_PedidosProveedor_Detalles = '{54D873B1-522E-4520-913C-93A64257BE8D}';
RID_PedidosProveedor_Detalles_Refresh = '{B4C479AA-6A22-4709-98F6-411D9E0D1EA6}'; RID_PedidosProveedor_Detalles_Refresh = '{8E3D8B4C-F8AA-48A5-8301-1EC9701605CC}';
RID_PedidosProveedor_Refresh = '{50C3DBAC-DFDA-4139-BB81-C61BEE0C0169}'; RID_PedidosProveedor_Refresh = '{A8C63D3C-CA6E-4AA8-B66A-4BBCEADDF26C}';
RID_PedidosProveedor_Articulos_Pendientes = '{1CBEF2D9-1134-4F0C-8EAB-BBF5A7B1EFFD}'; RID_PedidosProveedor_Articulos_Pendientes = '{33A1AFBC-0DAC-48AB-9835-5985A5F59428}';
{ Data table names } { Data table names }
nme_DarReferencia = 'DarReferencia'; nme_DarReferencia = 'DarReferencia';
@ -66,6 +66,7 @@ const
fld_PedidosProveedorIVA = 'IVA'; fld_PedidosProveedorIVA = 'IVA';
fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA'; fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA';
fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosProveedorNUM_COPIAS = 'NUM_COPIAS';
{ PedidosProveedor field indexes } { PedidosProveedor field indexes }
idx_PedidosProveedorID = 0; idx_PedidosProveedorID = 0;
@ -103,6 +104,7 @@ const
idx_PedidosProveedorIVA = 32; idx_PedidosProveedorIVA = 32;
idx_PedidosProveedorIMPORTE_IVA = 33; idx_PedidosProveedorIMPORTE_IVA = 33;
idx_PedidosProveedorID_FORMA_PAGO = 34; idx_PedidosProveedorID_FORMA_PAGO = 34;
idx_PedidosProveedorNUM_COPIAS = 35;
{ PedidosProveedor_Detalles fields } { PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID'; fld_PedidosProveedor_DetallesID = 'ID';
@ -204,6 +206,7 @@ const
fld_PedidosProveedor_RefreshIVA = 'IVA'; fld_PedidosProveedor_RefreshIVA = 'IVA';
fld_PedidosProveedor_RefreshIMPORTE_IVA = 'IMPORTE_IVA'; fld_PedidosProveedor_RefreshIMPORTE_IVA = 'IMPORTE_IVA';
fld_PedidosProveedor_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_PedidosProveedor_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosProveedor_RefreshNUM_COPIAS = 'NUM_COPIAS';
{ PedidosProveedor_Refresh field indexes } { PedidosProveedor_Refresh field indexes }
idx_PedidosProveedor_RefreshID = 0; idx_PedidosProveedor_RefreshID = 0;
@ -241,6 +244,7 @@ const
idx_PedidosProveedor_RefreshIVA = 32; idx_PedidosProveedor_RefreshIVA = 32;
idx_PedidosProveedor_RefreshIMPORTE_IVA = 33; idx_PedidosProveedor_RefreshIMPORTE_IVA = 33;
idx_PedidosProveedor_RefreshID_FORMA_PAGO = 34; idx_PedidosProveedor_RefreshID_FORMA_PAGO = 34;
idx_PedidosProveedor_RefreshNUM_COPIAS = 35;
{ PedidosProveedor_Articulos_Pendientes fields } { PedidosProveedor_Articulos_Pendientes fields }
fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO'; fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO';
@ -261,7 +265,7 @@ const
type type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{9854A0CD-0C0C-4D9A-958B-81ED1FC86AC3}'] ['{7ACFFC47-33BA-425C-9DFA-FA72D8BC6D30}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -290,7 +294,7 @@ type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{AFABA977-8E05-489D-A958-87E26AF68CB3}'] ['{1F5A82AC-6202-4772-939F-5FD2E6AAE0BA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -362,6 +366,8 @@ type
procedure SetIMPORTE_IVAValue(const aValue: Currency); procedure SetIMPORTE_IVAValue(const aValue: Currency);
function GetID_FORMA_PAGOValue: Integer; function GetID_FORMA_PAGOValue: Integer;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties } { Properties }
@ -400,6 +406,7 @@ type
property IVA: Float read GetIVAValue write SetIVAValue; property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end; end;
{ TPedidosProveedorDataTableRules } { TPedidosProveedorDataTableRules }
@ -477,6 +484,8 @@ type
procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
function GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOValue: Integer; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -514,6 +523,7 @@ type
property IVA: Float read GetIVAValue write SetIVAValue; property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -523,7 +533,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{DF7DB57B-BCA8-42B8-91A3-8850DE614323}'] ['{18D7051D-B8C3-4A0A-896A-0CB00934D5B5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -630,7 +640,7 @@ type
{ IPedidosProveedor_Detalles_Refresh } { IPedidosProveedor_Detalles_Refresh }
IPedidosProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{7E802AB3-A1DE-4C21-94ED-AE02E2AF26E2}'] ['{C2A9B50C-251F-498A-ABD2-673D17077B34}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -737,7 +747,7 @@ type
{ IPedidosProveedor_Refresh } { IPedidosProveedor_Refresh }
IPedidosProveedor_Refresh = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Refresh = interface(IDAStronglyTypedDataTable)
['{76FCFAB7-76E6-4AF5-900F-CA7FA8CBFCB8}'] ['{346F0E68-4313-4072-ACB1-BA32595D7D42}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -809,6 +819,8 @@ type
procedure SetIMPORTE_IVAValue(const aValue: Currency); procedure SetIMPORTE_IVAValue(const aValue: Currency);
function GetID_FORMA_PAGOValue: Integer; function GetID_FORMA_PAGOValue: Integer;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties } { Properties }
@ -847,6 +859,7 @@ type
property IVA: Float read GetIVAValue write SetIVAValue; property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end; end;
{ TPedidosProveedor_RefreshDataTableRules } { TPedidosProveedor_RefreshDataTableRules }
@ -924,6 +937,8 @@ type
procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
function GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOValue: Integer; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -961,6 +976,7 @@ type
property IVA: Float read GetIVAValue write SetIVAValue; property IVA: Float read GetIVAValue write SetIVAValue;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -970,7 +986,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes } { IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{E563C62D-7EFC-4215-AB53-8BAECD65B2A1}'] ['{672805D4-7AC5-4FF8-941D-B60690C7BB94}']
{ 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);
@ -1416,6 +1432,16 @@ begin
DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsInteger := aValue; DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsInteger := aValue;
end; end;
function TPedidosProveedorDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].AsInteger;
end;
procedure TPedidosProveedorDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].AsInteger := aValue;
end;
{ TPedidosProveedor_DetallesDataTableRules } { TPedidosProveedor_DetallesDataTableRules }
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -2084,6 +2110,16 @@ begin
DataTable.Fields[idx_PedidosProveedor_RefreshID_FORMA_PAGO].AsInteger := aValue; DataTable.Fields[idx_PedidosProveedor_RefreshID_FORMA_PAGO].AsInteger := aValue;
end; end;
function TPedidosProveedor_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_PedidosProveedor_RefreshNUM_COPIAS].AsInteger;
end;
procedure TPedidosProveedor_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosProveedor_RefreshNUM_COPIAS].AsInteger := aValue;
end;
{ TPedidosProveedor_Articulos_PendientesDataTableRules } { TPedidosProveedor_Articulos_PendientesDataTableRules }
constructor TPedidosProveedor_Articulos_PendientesDataTableRules.Create(aDataTable: TDADataTable); constructor TPedidosProveedor_Articulos_PendientesDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,17 +9,17 @@ 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_DarReferenciaDelta = '{1076075E-7674-4459-B181-08AB1CF2BC9A}'; RID_DarReferenciaDelta = '{431FAF99-6789-4FA4-9A91-32E5EF0A12C4}';
RID_PedidosProveedorDelta = '{88605485-11EC-471D-ACCA-7949918142A2}'; RID_PedidosProveedorDelta = '{2F368F7D-0930-4904-8052-9E28770C63F9}';
RID_PedidosProveedor_DetallesDelta = '{FF1E4E43-4750-4E28-9D45-AD0908AC0D8D}'; RID_PedidosProveedor_DetallesDelta = '{DAC76FCD-4F4F-4A7B-96F4-59BB7BF62613}';
RID_PedidosProveedor_Detalles_RefreshDelta = '{FF54D9C9-FAFE-4ADE-BD9D-7A380E8CA8B0}'; RID_PedidosProveedor_Detalles_RefreshDelta = '{482666CD-B5B1-4EEE-906A-FD791C4FD32F}';
RID_PedidosProveedor_RefreshDelta = '{8B4575ED-6808-4DCA-9DE5-4C9EB469284F}'; RID_PedidosProveedor_RefreshDelta = '{4526DFCD-81B4-47F9-A4D6-324BCD50DD86}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{A88E8B3E-1623-4650-BE75-89AA21D80839}'; RID_PedidosProveedor_Articulos_PendientesDelta = '{F18E66C5-86C6-4207-9B9D-5B95011FF534}';
type type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{1076075E-7674-4459-B181-08AB1CF2BC9A}'] ['{431FAF99-6789-4FA4-9A91-32E5EF0A12C4}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -48,7 +48,7 @@ type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{88605485-11EC-471D-ACCA-7949918142A2}'] ['{2F368F7D-0930-4904-8052-9E28770C63F9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -85,6 +85,7 @@ type
function GetOldIVAValue : Float; function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency; function GetOldIMPORTE_IVAValue : Currency;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldNUM_COPIASValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -122,6 +123,7 @@ type
property OldIVA : Float read GetOldIVAValue; property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end; end;
{ TPedidosProveedorBusinessProcessorRules } { TPedidosProveedorBusinessProcessorRules }
@ -234,6 +236,9 @@ type
function GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOValue: Integer; virtual;
function GetOldID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -306,6 +311,8 @@ type
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -315,7 +322,7 @@ type
{ IPedidosProveedor_DetallesDelta } { IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{FF1E4E43-4750-4E28-9D45-AD0908AC0D8D}'] ['{DAC76FCD-4F4F-4A7B-96F4-59BB7BF62613}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -435,7 +442,7 @@ type
{ IPedidosProveedor_Detalles_RefreshDelta } { IPedidosProveedor_Detalles_RefreshDelta }
IPedidosProveedor_Detalles_RefreshDelta = interface(IPedidosProveedor_Detalles_Refresh) IPedidosProveedor_Detalles_RefreshDelta = interface(IPedidosProveedor_Detalles_Refresh)
['{FF54D9C9-FAFE-4ADE-BD9D-7A380E8CA8B0}'] ['{482666CD-B5B1-4EEE-906A-FD791C4FD32F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -555,7 +562,7 @@ type
{ IPedidosProveedor_RefreshDelta } { IPedidosProveedor_RefreshDelta }
IPedidosProveedor_RefreshDelta = interface(IPedidosProveedor_Refresh) IPedidosProveedor_RefreshDelta = interface(IPedidosProveedor_Refresh)
['{8B4575ED-6808-4DCA-9DE5-4C9EB469284F}'] ['{4526DFCD-81B4-47F9-A4D6-324BCD50DD86}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -592,6 +599,7 @@ type
function GetOldIVAValue : Float; function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency; function GetOldIMPORTE_IVAValue : Currency;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldNUM_COPIASValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -629,6 +637,7 @@ type
property OldIVA : Float read GetOldIVAValue; property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end; end;
{ TPedidosProveedor_RefreshBusinessProcessorRules } { TPedidosProveedor_RefreshBusinessProcessorRules }
@ -741,6 +750,9 @@ type
function GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOValue: Integer; virtual;
function GetOldID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -813,6 +825,8 @@ type
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -822,7 +836,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta } { IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{A88E8B3E-1623-4650-BE75-89AA21D80839}'] ['{F18E66C5-86C6-4207-9B9D-5B95011FF534}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -1456,6 +1470,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := aValue;
end; end;
function TPedidosProveedorBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNUM_COPIAS];
end;
procedure TPedidosProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS] := aValue;
end;
{ TPedidosProveedor_DetallesBusinessProcessorRules } { TPedidosProveedor_DetallesBusinessProcessorRules }
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2441,6 +2470,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_RefreshID_FORMA_PAGO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_RefreshID_FORMA_PAGO] := aValue;
end; end;
function TPedidosProveedor_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_RefreshNUM_COPIAS];
end;
function TPedidosProveedor_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_RefreshNUM_COPIAS];
end;
procedure TPedidosProveedor_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_RefreshNUM_COPIAS] := aValue;
end;
{ TPedidosProveedor_Articulos_PendientesBusinessProcessorRules } { TPedidosProveedor_Articulos_PendientesBusinessProcessorRules }
constructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -78,16 +78,20 @@ object srvPedidosProveedor: TsrvPedidosProveedor
' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_PEDIDO_CLIENTE, ' + ' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_PEDIDO_CLIENTE, ' +
#10' REF_PED_CLIENTE, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, '#10' ' + #10' REF_PED_CLIENTE, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, '#10' ' +
' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, '#10' ID_' + ' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, '#10' ID_' +
'FORMA_PAGO'#10' FROM'#10' V_PEDIDOS_PROVEEDOR' 'FORMA_PAGO, NUM_COPIAS'#10' FROM'#10' V_PEDIDOS_PROVEEDOR'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'USUARIO' DatasetField = 'ID'
TableField = 'USUARIO' TableField = 'ID'
end end
item item
DatasetField = 'OBSERVACIONES' DatasetField = 'ID_EMPRESA'
TableField = 'OBSERVACIONES' TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end end
item item
DatasetField = 'NOMBRE' DatasetField = 'NOMBRE'
@ -97,29 +101,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
end end
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item item
DatasetField = 'SITUACION' DatasetField = 'SITUACION'
TableField = 'SITUACION' TableField = 'SITUACION'
end end
item item
DatasetField = 'FECHA_ALTA' DatasetField = 'FECHA_ENVIO'
TableField = 'FECHA_ALTA' TableField = 'FECHA_ENVIO'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end end
item item
DatasetField = 'FECHA_PEDIDO' DatasetField = 'FECHA_PEDIDO'
@ -134,20 +122,28 @@ object srvPedidosProveedor: TsrvPedidosProveedor
TableField = 'FECHA_ENTREGA' TableField = 'FECHA_ENTREGA'
end end
item item
DatasetField = 'INCIDENCIAS' DatasetField = 'ID_ALMACEN'
TableField = 'INCIDENCIAS' TableField = 'ID_ALMACEN'
end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end end
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end end
item item
DatasetField = 'INCIDENCIAS_ACTIVAS' DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS_ACTIVAS' TableField = 'INCIDENCIAS'
end end
item item
DatasetField = 'ID_ALMACEN' DatasetField = 'INCIDENCIAS_ACTIVAS'
TableField = 'ID_ALMACEN' TableField = 'INCIDENCIAS_ACTIVAS'
end end
item item
DatasetField = 'CALLE' DatasetField = 'CALLE'
@ -173,10 +169,26 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DatasetField = 'TELEFONO' DatasetField = 'TELEFONO'
TableField = 'TELEFONO' TableField = 'TELEFONO'
end end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item item
DatasetField = 'ID_PEDIDO_CLIENTE' DatasetField = 'ID_PEDIDO_CLIENTE'
TableField = 'ID_PEDIDO_CLIENTE' TableField = 'ID_PEDIDO_CLIENTE'
end end
item
DatasetField = 'REF_PED_CLIENTE'
TableField = 'REF_PED_CLIENTE'
end
item item
DatasetField = 'IMPORTE_NETO' DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO' TableField = 'IMPORTE_NETO'
@ -210,16 +222,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end end
item item
DatasetField = 'FECHA_ENVIO' DatasetField = 'NUM_COPIAS'
TableField = 'FECHA_ENVIO' TableField = 'NUM_COPIAS'
end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item
DatasetField = 'REF_PED_CLIENTE'
TableField = 'REF_PED_CLIENTE'
end> end>
end> end>
Name = 'PedidosProveedor' Name = 'PedidosProveedor'
@ -587,6 +591,17 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -1115,17 +1130,21 @@ object srvPedidosProveedor: TsrvPedidosProveedor
' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_PEDIDO_CLIENTE, ' + ' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_PEDIDO_CLIENTE, ' +
#10' REF_PED_CLIENTE, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, '#10' ' + #10' REF_PED_CLIENTE, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, '#10' ' +
' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, '#10' ID_' + ' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, '#10' ID_' +
'FORMA_PAGO'#10' FROM'#10' V_PEDIDOS_PROVEEDOR'#10'WHERE V_PEDIDOS_PROVEE' + 'FORMA_PAGO, NUM_COPIAS'#10' FROM'#10' V_PEDIDOS_PROVEEDOR'#10'WHERE V_PE' +
'DOR.ID = :ID' 'DIDOS_PROVEEDOR.ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
DatasetField = 'USUARIO' DatasetField = 'ID'
TableField = 'USUARIO' TableField = 'ID'
end end
item item
DatasetField = 'OBSERVACIONES' DatasetField = 'ID_EMPRESA'
TableField = 'OBSERVACIONES' TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end end
item item
DatasetField = 'NOMBRE' DatasetField = 'NOMBRE'
@ -1135,29 +1154,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
end end
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item item
DatasetField = 'SITUACION' DatasetField = 'SITUACION'
TableField = 'SITUACION' TableField = 'SITUACION'
end end
item item
DatasetField = 'FECHA_ALTA' DatasetField = 'FECHA_ENVIO'
TableField = 'FECHA_ALTA' TableField = 'FECHA_ENVIO'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end end
item item
DatasetField = 'FECHA_PEDIDO' DatasetField = 'FECHA_PEDIDO'
@ -1172,20 +1175,28 @@ object srvPedidosProveedor: TsrvPedidosProveedor
TableField = 'FECHA_ENTREGA' TableField = 'FECHA_ENTREGA'
end end
item item
DatasetField = 'INCIDENCIAS' DatasetField = 'ID_ALMACEN'
TableField = 'INCIDENCIAS' TableField = 'ID_ALMACEN'
end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end end
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end end
item item
DatasetField = 'INCIDENCIAS_ACTIVAS' DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS_ACTIVAS' TableField = 'INCIDENCIAS'
end end
item item
DatasetField = 'ID_ALMACEN' DatasetField = 'INCIDENCIAS_ACTIVAS'
TableField = 'ID_ALMACEN' TableField = 'INCIDENCIAS_ACTIVAS'
end end
item item
DatasetField = 'CALLE' DatasetField = 'CALLE'
@ -1211,10 +1222,26 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DatasetField = 'TELEFONO' DatasetField = 'TELEFONO'
TableField = 'TELEFONO' TableField = 'TELEFONO'
end end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item item
DatasetField = 'ID_PEDIDO_CLIENTE' DatasetField = 'ID_PEDIDO_CLIENTE'
TableField = 'ID_PEDIDO_CLIENTE' TableField = 'ID_PEDIDO_CLIENTE'
end end
item
DatasetField = 'REF_PED_CLIENTE'
TableField = 'REF_PED_CLIENTE'
end
item item
DatasetField = 'IMPORTE_NETO' DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO' TableField = 'IMPORTE_NETO'
@ -1248,16 +1275,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end end
item item
DatasetField = 'FECHA_ENVIO' DatasetField = 'NUM_COPIAS'
TableField = 'FECHA_ENVIO' TableField = 'NUM_COPIAS'
end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item
DatasetField = 'REF_PED_CLIENTE'
TableField = 'REF_PED_CLIENTE'
end> end>
end> end>
Name = 'PedidosProveedor_Refresh' Name = 'PedidosProveedor_Refresh'
@ -1625,6 +1644,17 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript

19
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
View File

@ -103,6 +103,9 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Kind = skSum Kind = skSum
Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL
end> end>
inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
IsCaptionAssigned = True
end
inherited cxGridViewCODIGO: TcxGridDBColumn inherited cxGridViewCODIGO: TcxGridDBColumn
IsCaptionAssigned = True IsCaptionAssigned = True
end end
@ -117,18 +120,18 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Width = 700 Width = 700
ExplicitWidth = 700 ExplicitWidth = 700
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 ExplicitWidth = 457
Width = 273 Width = 457
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 ExplicitWidth = 239
Width = 121 Width = 239
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 292 Left = 386
ExplicitLeft = 292 ExplicitLeft = 386
ExplicitWidth = 294 ExplicitWidth = 266
Width = 294 Width = 266
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

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

@ -139,7 +139,7 @@ begin
if (Application.MessageBox('¿Desea borrar los pedidos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea borrar los pedidos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor; APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoProveedor;
end end
end end
else begin else begin
@ -224,13 +224,14 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor; APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoProveedor;
end end
else else
APedidos := Pedidos; APedidos := Pedidos;
if Assigned(APedidos) then if Assigned(APedidos) then
FController.Print(APedidos, AllItems); if FController.Print(APedidos, AllItems) then
RefrescarInterno;
end; end;
end; end;
end; end;
@ -304,7 +305,7 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor; APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoProveedor;
end end
else else
APedidos := Pedidos; APedidos := Pedidos;

9
Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.pas
View File

@ -29,6 +29,7 @@ type
procedure SetPedido(const Value: IBizPedidoProveedor); procedure SetPedido(const Value: IBizPedidoProveedor);
procedure AnadirArticulosInterno; override; procedure AnadirArticulosInterno; override;
procedure RellenarArticulosInterno; override;
function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override; function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
public public
@ -65,6 +66,14 @@ begin
Result := FPedido; Result := FPedido;
end; end;
procedure TfrViewDetallesPedidoProveedor.RellenarArticulosInterno;
begin
//No sé porque está en este módulo hecho así, supongo que por seguridad.
if Assigned(Pedido) and Assigned(Pedido.Proveedor)
then (Controller as IDetallesPedidoProveedorController).AnadirArticulos(Detalles, Pedido.Proveedor, False)
else (Controller as IDetallesPedidoProveedorController).AnadirArticulos(Detalles, False);
end;
procedure TfrViewDetallesPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor); procedure TfrViewDetallesPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor);
begin begin
FPedido := Value; FPedido := Value;

24
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
View File

@ -33,9 +33,19 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewIMPORTE_TOTAL
end> end>
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
MinWidth = 30
Options.HorzSizing = False
VisibleForCustomization = False
Width = 30
IsCaptionAssigned = True
end
object cxGridViewCODIGO: TcxGridDBColumn object cxGridViewCODIGO: TcxGridDBColumn
DataBinding.FieldName = 'ID' DataBinding.FieldName = 'ID'
Visible = False Visible = False
OnCustomDrawCell = cxGridViewCODIGOCustomDrawCell
IsCaptionAssigned = True IsCaptionAssigned = True
end end
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
@ -334,6 +344,20 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
CF0000000049454E44AE426082} CF0000000049454E44AE426082}
Name = 'PngImage3' Name = 'PngImage3'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end> end>
Left = 56 Left = 56
Top = 48 Top = 48

21
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
View File

@ -55,6 +55,7 @@ type
TBXSeparatorItem1: TTBXSeparatorItem; TBXSeparatorItem1: TTBXSeparatorItem;
TBXItem3: TTBXItem; TBXItem3: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem; TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewNUM_COPIAS: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@ -69,6 +70,9 @@ type
procedure actAlmacenUpdate(Sender: TObject); procedure actAlmacenUpdate(Sender: TObject);
procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); Y: Integer);
procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -227,6 +231,23 @@ begin
end; end;
end; end;
procedure TfrViewPedidosProveedor.cxGridViewNUM_COPIASCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
begin
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
ADone := True;
end;
end;
procedure TfrViewPedidosProveedor.cxGridViewStylesGetContentStyle(Sender: procedure TfrViewPedidosProveedor.cxGridViewStylesGetContentStyle(Sender:
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
TcxCustomGridTableItem; out AStyle: TcxStyle); TcxCustomGridTableItem; out AStyle: TcxStyle);

19
Source/Modulos/Pedidos de cliente/Controller/uDetallesPedidoClienteController.pas
View File

@ -9,7 +9,7 @@ uses
type type
IDetallesPedidoClienteController = interface(IControllerDetallesArticulos) IDetallesPedidoClienteController = interface(IControllerDetallesArticulos)
['{8D1D3559-E695-4962-9999-404B26B50D6C}'] ['{8D1D3559-E695-4962-9999-404B26B50D6C}']
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
@ -31,7 +31,7 @@ type
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
public public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); reintroduce; overload; procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True); reintroduce; overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload; procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
@ -60,7 +60,7 @@ begin
end; end;
end; end;
procedure TDetallesPedidoClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); procedure TDetallesPedidoClienteController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True);
var var
AArticulos: IBizArticulo; AArticulos: IBizArticulo;
begin begin
@ -68,8 +68,17 @@ begin
begin begin
try try
AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo); AArticulos := (FArticulosController.BuscarTodos(ACliente) as IBizArticulo);
AArticulos := (FArticulosController as IArticulosPedidoClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este pedido de cliente', True); //Si nueva fila es false, quiere decir que se sustituye un determinado artículo, por ello la lista a seleccionar no debe ser multiselect
Add(ADetalles, AArticulos); if ANuevaFila then
begin
AArticulos := (FArticulosController as IArticulosPedidoClienteController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este presupuesto de cliente', True);
Add(ADetalles, AArticulos)
end
else
begin
AArticulos := (FArticulosController as IArticulosPedidoClienteController).ElegirArticulos(AArticulos, 'Elija el artículo que desea añadir a este presupuesto de cliente', False);
RellenarDetalle(ADetalles, AArticulos);
end;
finally finally
AArticulos := Nil; AArticulos := Nil;
end; end;

30
Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
View File

@ -7,7 +7,7 @@ uses
SysUtils, uDADataTable, uEditorDBItem, SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModulePedidosCliente, uClientesController, uControllerBase, uIDataModulePedidosCliente, uClientesController,
uDetallesPedidoClienteController, uBizPedidosCliente, uBizDireccionesContacto, uDetallesPedidoClienteController, uBizPedidosCliente, uBizDireccionesContacto,
uBizDetallesPedidoCliente; uBizDetallesPedidoCliente, uViewGridBase;
type type
IPedidosClienteController = interface(IObservador) IPedidosClienteController = interface(IObservador)
@ -38,7 +38,7 @@ type
function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente; function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
function Localizar(APedidos: IBizPedidoCliente; const ID : Integer): Boolean; function Localizar(APedidos: IBizPedidoCliente; const ID : Integer): Boolean;
function ExtraerSeleccionados(APedido: IBizPedidoCliente) : IBizPedidoCliente; function ExtraerSeleccionados(APedido: IBizPedidoCliente; Const ViewGrid: IViewGridBase = Nil) : IBizPedidoCliente;
function ElegirPedidos(APedido: IBizPedidoCliente; AMensaje: String; AMultiSelect: Boolean): IBizPedidoCliente; function ElegirPedidos(APedido: IBizPedidoCliente; AMensaje: String; AMultiSelect: Boolean): IBizPedidoCliente;
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto; procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
@ -50,7 +50,7 @@ type
function EsEliminable(APedido : IBizPedidoCliente): Boolean; function EsEliminable(APedido : IBizPedidoCliente): Boolean;
procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = false); procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = false);
procedure Print(APedido : IBizPedidoCliente; AllItems: Boolean = false); function Print(APedido : IBizPedidoCliente; AllItems: Boolean = false): Boolean;
function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend; function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
end; end;
@ -106,7 +106,7 @@ type
APedido: IBizPedidoCliente); APedido: IBizPedidoCliente);
procedure QuitarDireccionEnvio(APedido: IBizPedidoCliente); procedure QuitarDireccionEnvio(APedido: IBizPedidoCliente);
function ExtraerSeleccionados(APedido: IBizPedidoCliente) : IBizPedidoCliente; function ExtraerSeleccionados(APedido: IBizPedidoCliente; Const ViewGrid: IViewGridBase = Nil) : IBizPedidoCliente;
function ElegirPedidos(APedido: IBizPedidoCliente; AMensaje: String; AMultiSelect: Boolean): IBizPedidoCliente; function ElegirPedidos(APedido: IBizPedidoCliente; AMensaje: String; AMultiSelect: Boolean): IBizPedidoCliente;
procedure RecalcularImportes(APedido : IBizPedidoCliente); procedure RecalcularImportes(APedido : IBizPedidoCliente);
@ -114,7 +114,7 @@ type
function EsEliminable(APedido : IBizPedidoCliente): Boolean; function EsEliminable(APedido : IBizPedidoCliente): Boolean;
procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = false); procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = false);
procedure Print(APedido : IBizPedidoCliente; AllItems: Boolean = false); function Print(APedido : IBizPedidoCliente; AllItems: Boolean = false): Boolean;
function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend; function ArticulosPendientes(const ID : Integer): IBizPedidoClienteArticulosPend;
end; end;
@ -635,13 +635,26 @@ begin
end; end;
end; end;
function TPedidosClienteController.ExtraerSeleccionados(APedido: IBizPedidoCliente): IBizPedidoCliente; function TPedidosClienteController.ExtraerSeleccionados(APedido: IBizPedidoCliente; Const ViewGrid: IViewGridBase = Nil): IBizPedidoCliente;
var var
ASeleccionados : IBizPedidoCliente; ASeleccionados : IBizPedidoCliente;
begin begin
if Assigned(ViewGrid) then
begin
//Guardamos la situación porque el CopyDataTable nos cambia la posicion
ViewGrid.SaveGridStatus;
ViewGrid.DesactivarGrid;
end;
ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoCliente); ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoCliente);
CopyDataTable(APedido.DataTable, ASeleccionados.DataTable, True); CopyDataTable(APedido.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
if Assigned(ViewGrid) then
begin
ViewGrid.ActivarGrid;
ViewGrid.RestoreGridStatus;
end;
end; end;
procedure TPedidosClienteController.FiltrarEmpresa( procedure TPedidosClienteController.FiltrarEmpresa(
@ -801,12 +814,13 @@ begin
end; end;
end; end;
procedure TPedidosClienteController.Print(APedido: IBizPedidoCliente; AllItems: Boolean = false); function TPedidosClienteController.Print(APedido: IBizPedidoCliente; AllItems: Boolean = false): Boolean;
var var
AReportController : IPedidosClienteReportController; AReportController : IPedidosClienteReportController;
ID_Pedidos: TStringList; ID_Pedidos: TStringList;
begin begin
Result := False;
AReportController := TPedidosClienteReportController.Create; AReportController := TPedidosClienteReportController.Create;
try try
ID_Pedidos := TStringList.Create; ID_Pedidos := TStringList.Create;
@ -828,7 +842,7 @@ begin
else else
ID_Pedidos.Add(IntToStr(APedido.ID)); ID_Pedidos.Add(IntToStr(APedido.ID));
AReportController.Print(ID_Pedidos.CommaText); Result := AReportController.Print(ID_Pedidos.CommaText);
finally finally
AReportController := NIL; AReportController := NIL;

16
Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas
View File

@ -11,7 +11,7 @@ type
IPedidosClienteReportController = interface IPedidosClienteReportController = interface
['{D0686358-251C-43C4-9927-6112F2F4D3B8}'] ['{D0686358-251C-43C4-9927-6112F2F4D3B8}']
procedure Preview(const AID : String); procedure Preview(const AID : String);
procedure Print(const AID : String); function Print(const AID : String): Boolean;
end; end;
TPedidosClienteReportController = class(TInterfacedObject, IPedidosClienteReportController) TPedidosClienteReportController = class(TInterfacedObject, IPedidosClienteReportController)
@ -23,7 +23,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AID : String); procedure Preview(const AID : String);
procedure Print(const AID : String); function Print(const AID : String): Boolean;
end; end;
@ -31,7 +31,8 @@ implementation
uses uses
uROTypes, uEditorRegistryUtils, uIEditorPedidosClientePreview, uROTypes, uEditorRegistryUtils, uIEditorPedidosClientePreview,
uEditorPreview, uDataModulePedidosCliente, uEditorBase, cxControls; uEditorPreview, uDataModulePedidosCliente, uEditorBase, cxControls,
schPedidosClienteClient_Intf;
{ TPedidosClienteReportController } { TPedidosClienteReportController }
@ -77,11 +78,12 @@ begin
AEditor.Preview; AEditor.Preview;
end; end;
procedure TPedidosClienteReportController.Print(const AID : String); function TPedidosClienteReportController.Print(const AID : String): Boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorPedidosClientePreview; AEditor : IEditorPedidosClientePreview;
begin begin
Result := False;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
@ -98,7 +100,11 @@ begin
end; end;
if Assigned(AEditor) then if Assigned(AEditor) then
AEditor.Print begin
AEditor.TablaImpresion := nme_PedidosCliente;
AEditor.IdTablaImpresion := AID;
Result := AEditor.Print;
end;
end; end;
end. end.

13
Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm
View File

@ -49,7 +49,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Name = 'User' Name = 'User'
ParamType = fIn ParamType = fIn
DataType = rtString DataType = rtString
Value = 'Administrador' Value = 'Luis'
end end
item item
Name = 'Password' Name = 'Password'
@ -481,6 +481,17 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
Params = <> Params = <>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest

64
Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas
View File

@ -9,13 +9,13 @@ 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_PedidoCliente_ArticulosPendientesPedirAProv = '{C1999334-468B-4FBC-BBF4-C42B5EDD082A}'; RID_PedidoCliente_ArticulosPendientesPedirAProv = '{8DE748FF-6C86-47C4-830D-9D98F720D9A2}';
RID_DarReferencia = '{49BABE0B-7F00-4B69-BDF2-1EEB55541733}'; RID_DarReferencia = '{11CE47BF-D7D1-4880-8E21-8B646392B2FF}';
RID_PedidosCliente = '{AA507B71-8CC4-44D0-A83A-598C0F731BB0}'; RID_PedidosCliente = '{7D754DBC-3690-4000-BB2B-F7680D856532}';
RID_PedidosCliente_Detalles = '{245CC401-9C4E-471E-B814-187C95EF45F1}'; RID_PedidosCliente_Detalles = '{11F70932-738B-4C61-B80B-822863835CB9}';
RID_PedidosCliente_Refresh = '{16964D63-320B-460C-93B5-1ACD6A05C101}'; RID_PedidosCliente_Refresh = '{3F0FCA37-E56F-495C-8B99-5B427BA0B27C}';
RID_PedidosCliente_Detalles_Refresh = '{DD5D0403-B1AB-45D9-8B59-D1F8F035B22F}'; RID_PedidosCliente_Detalles_Refresh = '{0D7003CE-A998-403E-8BF7-A6EE94111EBA}';
RID_PedidoCliente_Articulos_Pendientes = '{445F176E-9207-4925-8CE6-CBB4A66C4861}'; RID_PedidoCliente_Articulos_Pendientes = '{DD6873C4-96B5-4410-93FA-86775F816CA5}';
{ Data table names } { Data table names }
nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv'; nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv';
@ -80,6 +80,7 @@ const
fld_PedidosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_PedidosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB'; fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO'; fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
fld_PedidosClienteNUM_COPIAS = 'NUM_COPIAS';
{ PedidosCliente field indexes } { PedidosCliente field indexes }
idx_PedidosClienteID = 0; idx_PedidosClienteID = 0;
@ -113,6 +114,7 @@ const
idx_PedidosClienteID_FORMA_PAGO = 28; idx_PedidosClienteID_FORMA_PAGO = 28;
idx_PedidosClienteREF_TIENDA_WEB = 29; idx_PedidosClienteREF_TIENDA_WEB = 29;
idx_PedidosClienteFECHA_PREVISTA_ENVIO = 30; idx_PedidosClienteFECHA_PREVISTA_ENVIO = 30;
idx_PedidosClienteNUM_COPIAS = 31;
{ PedidosCliente_Detalles fields } { PedidosCliente_Detalles fields }
fld_PedidosCliente_DetallesID = 'ID'; fld_PedidosCliente_DetallesID = 'ID';
@ -178,6 +180,7 @@ const
fld_PedidosCliente_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_PedidosCliente_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosCliente_RefreshREF_TIENDA_WEB = 'REF_TIENDA_WEB'; fld_PedidosCliente_RefreshREF_TIENDA_WEB = 'REF_TIENDA_WEB';
fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO'; fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
fld_PedidosCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
{ PedidosCliente_Refresh field indexes } { PedidosCliente_Refresh field indexes }
idx_PedidosCliente_RefreshID = 0; idx_PedidosCliente_RefreshID = 0;
@ -211,6 +214,7 @@ const
idx_PedidosCliente_RefreshID_FORMA_PAGO = 28; idx_PedidosCliente_RefreshID_FORMA_PAGO = 28;
idx_PedidosCliente_RefreshREF_TIENDA_WEB = 29; idx_PedidosCliente_RefreshREF_TIENDA_WEB = 29;
idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 30; idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 30;
idx_PedidosCliente_RefreshNUM_COPIAS = 31;
{ PedidosCliente_Detalles_Refresh fields } { PedidosCliente_Detalles_Refresh fields }
fld_PedidosCliente_Detalles_RefreshID = 'ID'; fld_PedidosCliente_Detalles_RefreshID = 'ID';
@ -259,7 +263,7 @@ const
type type
{ IPedidoCliente_ArticulosPendientesPedirAProv } { IPedidoCliente_ArticulosPendientesPedirAProv }
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable) IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
['{972D4859-B3C6-4A05-90D5-B81E5B0221BF}'] ['{EDDEC887-DCC3-4491-AFBB-125B5FD6ACE0}']
{ 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);
@ -318,7 +322,7 @@ type
{ IDarReferencia } { IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable) IDarReferencia = interface(IDAStronglyTypedDataTable)
['{653123F4-C264-46AF-BEFE-CD2CF048FBEA}'] ['{3EADC907-F5EE-4E69-B8BD-C821B9293A95}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -347,7 +351,7 @@ type
{ IPedidosCliente } { IPedidosCliente }
IPedidosCliente = interface(IDAStronglyTypedDataTable) IPedidosCliente = interface(IDAStronglyTypedDataTable)
['{05AC916D-59B2-4E42-AD09-1A0B413BFA1B}'] ['{ADDEFA2C-3FE4-48F2-8670-33A5041DC887}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -411,6 +415,8 @@ type
procedure SetREF_TIENDA_WEBValue(const aValue: Integer); procedure SetREF_TIENDA_WEBValue(const aValue: Integer);
function GetFECHA_PREVISTA_ENVIOValue: DateTime; function GetFECHA_PREVISTA_ENVIOValue: DateTime;
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties } { Properties }
@ -445,6 +451,7 @@ type
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue; property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end; end;
{ TPedidosClienteDataTableRules } { TPedidosClienteDataTableRules }
@ -514,6 +521,8 @@ type
procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual; procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual;
function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual; function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual; procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -547,6 +556,7 @@ type
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue; property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -556,7 +566,7 @@ type
{ IPedidosCliente_Detalles } { IPedidosCliente_Detalles }
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{B9BEFE7C-50C5-41A4-9C1E-69F82E33B239}'] ['{87978E69-39E2-401D-9D6A-0439CD0538B7}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -663,7 +673,7 @@ type
{ IPedidosCliente_Refresh } { IPedidosCliente_Refresh }
IPedidosCliente_Refresh = interface(IDAStronglyTypedDataTable) IPedidosCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{B791EB7F-8133-4E13-8E65-9D728AEF936C}'] ['{3AA0B5AC-FE59-4BE4-AB86-E99A713BB84E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -727,6 +737,8 @@ type
procedure SetREF_TIENDA_WEBValue(const aValue: Integer); procedure SetREF_TIENDA_WEBValue(const aValue: Integer);
function GetFECHA_PREVISTA_ENVIOValue: DateTime; function GetFECHA_PREVISTA_ENVIOValue: DateTime;
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties } { Properties }
@ -761,6 +773,7 @@ type
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue; property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end; end;
{ TPedidosCliente_RefreshDataTableRules } { TPedidosCliente_RefreshDataTableRules }
@ -830,6 +843,8 @@ type
procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual; procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual;
function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual; function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual; procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -863,6 +878,7 @@ type
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue; property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue;
property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -872,7 +888,7 @@ type
{ IPedidosCliente_Detalles_Refresh } { IPedidosCliente_Detalles_Refresh }
IPedidosCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable) IPedidosCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{3FA4269B-0776-41DE-9F4A-78033659716B}'] ['{FAEEFA10-4879-47FB-8408-AB1AD9736FD8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -979,7 +995,7 @@ type
{ IPedidoCliente_Articulos_Pendientes } { IPedidoCliente_Articulos_Pendientes }
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{64E773A4-B774-4521-801B-50E465070510}'] ['{3D7E5529-F41E-4E90-89C8-E9C7133FF5E0}']
{ Property getters and setters } { Property getters and setters }
function GetID_ARTICULOValue: Integer; function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer); procedure SetID_ARTICULOValue(const aValue: Integer);
@ -1445,6 +1461,16 @@ begin
DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].AsDateTime := aValue; DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].AsDateTime := aValue;
end; end;
function TPedidosClienteDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_PedidosClienteNUM_COPIAS].AsInteger;
end;
procedure TPedidosClienteDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosClienteNUM_COPIAS].AsInteger := aValue;
end;
{ TPedidosCliente_DetallesDataTableRules } { TPedidosCliente_DetallesDataTableRules }
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -1921,6 +1947,16 @@ begin
DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO].AsDateTime := aValue; DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO].AsDateTime := aValue;
end; end;
function TPedidosCliente_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_PedidosCliente_RefreshNUM_COPIAS].AsInteger;
end;
procedure TPedidosCliente_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosCliente_RefreshNUM_COPIAS].AsInteger := aValue;
end;
{ TPedidosCliente_Detalles_RefreshDataTableRules } { TPedidosCliente_Detalles_RefreshDataTableRules }
constructor TPedidosCliente_Detalles_RefreshDataTableRules.Create(aDataTable: TDADataTable); constructor TPedidosCliente_Detalles_RefreshDataTableRules.Create(aDataTable: TDADataTable);

72
Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ 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_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{EE8CBDDC-104A-4492-8D5C-08135D131450}'; RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{A1B46905-CCE8-468E-B6AB-2DF026DDB175}';
RID_DarReferenciaDelta = '{7E08AFA3-C994-4B1E-B289-148BCA112E05}'; RID_DarReferenciaDelta = '{35DC9BFB-0F55-496D-917D-0D43EE74D71B}';
RID_PedidosClienteDelta = '{20C24610-4E5A-4CFE-8564-8D56B08C897A}'; RID_PedidosClienteDelta = '{6659E549-E57E-4745-8F1A-A63E0E576493}';
RID_PedidosCliente_DetallesDelta = '{2CDB083D-9BB7-4FEA-90E8-D79AA05F09F7}'; RID_PedidosCliente_DetallesDelta = '{3B53180C-342C-47C4-AF74-DE6888E76B61}';
RID_PedidosCliente_RefreshDelta = '{FBBE0466-22C9-4989-90F2-E91D7BDA1D07}'; RID_PedidosCliente_RefreshDelta = '{B9655FA7-5F92-4AFE-B87F-FE5DF5E547DE}';
RID_PedidosCliente_Detalles_RefreshDelta = '{33C8CC54-33ED-45F4-BD3F-60676CD997BF}'; RID_PedidosCliente_Detalles_RefreshDelta = '{E23472AA-B366-48A0-9CEF-E80C503329A2}';
RID_PedidoCliente_Articulos_PendientesDelta = '{E0181E92-9467-4BCF-8C06-53C4F301B7E6}'; RID_PedidoCliente_Articulos_PendientesDelta = '{3990FBD0-6B6B-4DC5-B806-C7ECE4FF3F15}';
type type
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta } { IPedidoCliente_ArticulosPendientesPedirAProvDelta }
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv) IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
['{EE8CBDDC-104A-4492-8D5C-08135D131450}'] ['{A1B46905-CCE8-468E-B6AB-2DF026DDB175}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
@ -84,7 +84,7 @@ type
{ IDarReferenciaDelta } { IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia) IDarReferenciaDelta = interface(IDarReferencia)
['{7E08AFA3-C994-4B1E-B289-148BCA112E05}'] ['{35DC9BFB-0F55-496D-917D-0D43EE74D71B}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -113,7 +113,7 @@ type
{ IPedidosClienteDelta } { IPedidosClienteDelta }
IPedidosClienteDelta = interface(IPedidosCliente) IPedidosClienteDelta = interface(IPedidosCliente)
['{20C24610-4E5A-4CFE-8564-8D56B08C897A}'] ['{6659E549-E57E-4745-8F1A-A63E0E576493}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -146,6 +146,7 @@ type
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldREF_TIENDA_WEBValue : Integer; function GetOldREF_TIENDA_WEBValue : Integer;
function GetOldFECHA_PREVISTA_ENVIOValue : DateTime; function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
function GetOldNUM_COPIASValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -179,6 +180,7 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue; property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue;
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end; end;
{ TPedidosClienteBusinessProcessorRules } { TPedidosClienteBusinessProcessorRules }
@ -279,6 +281,9 @@ type
function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual; function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
function GetOldFECHA_PREVISTA_ENVIOValue: DateTime; virtual; function GetOldFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual; procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -343,6 +348,8 @@ type
property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue; property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue;
property FECHA_PREVISTA_ENVIO : DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; property FECHA_PREVISTA_ENVIO : DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -352,7 +359,7 @@ type
{ IPedidosCliente_DetallesDelta } { IPedidosCliente_DetallesDelta }
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles) IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
['{2CDB083D-9BB7-4FEA-90E8-D79AA05F09F7}'] ['{3B53180C-342C-47C4-AF74-DE6888E76B61}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -472,7 +479,7 @@ type
{ IPedidosCliente_RefreshDelta } { IPedidosCliente_RefreshDelta }
IPedidosCliente_RefreshDelta = interface(IPedidosCliente_Refresh) IPedidosCliente_RefreshDelta = interface(IPedidosCliente_Refresh)
['{FBBE0466-22C9-4989-90F2-E91D7BDA1D07}'] ['{B9655FA7-5F92-4AFE-B87F-FE5DF5E547DE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -505,6 +512,7 @@ type
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldREF_TIENDA_WEBValue : Integer; function GetOldREF_TIENDA_WEBValue : Integer;
function GetOldFECHA_PREVISTA_ENVIOValue : DateTime; function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
function GetOldNUM_COPIASValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -538,6 +546,7 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue; property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue;
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end; end;
{ TPedidosCliente_RefreshBusinessProcessorRules } { TPedidosCliente_RefreshBusinessProcessorRules }
@ -638,6 +647,9 @@ type
function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual; function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
function GetOldFECHA_PREVISTA_ENVIOValue: DateTime; virtual; function GetOldFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual; procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -702,6 +714,8 @@ type
property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue; property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue;
property FECHA_PREVISTA_ENVIO : DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; property FECHA_PREVISTA_ENVIO : DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -711,7 +725,7 @@ type
{ IPedidosCliente_Detalles_RefreshDelta } { IPedidosCliente_Detalles_RefreshDelta }
IPedidosCliente_Detalles_RefreshDelta = interface(IPedidosCliente_Detalles_Refresh) IPedidosCliente_Detalles_RefreshDelta = interface(IPedidosCliente_Detalles_Refresh)
['{33C8CC54-33ED-45F4-BD3F-60676CD997BF}'] ['{E23472AA-B366-48A0-9CEF-E80C503329A2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -831,7 +845,7 @@ type
{ IPedidoCliente_Articulos_PendientesDelta } { IPedidoCliente_Articulos_PendientesDelta }
IPedidoCliente_Articulos_PendientesDelta = interface(IPedidoCliente_Articulos_Pendientes) IPedidoCliente_Articulos_PendientesDelta = interface(IPedidoCliente_Articulos_Pendientes)
['{E0181E92-9467-4BCF-8C06-53C4F301B7E6}'] ['{3990FBD0-6B6B-4DC5-B806-C7ECE4FF3F15}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_ARTICULOValue : Integer; function GetOldID_ARTICULOValue : Integer;
function GetOldCANTIDAD_PEDValue : Integer; function GetOldCANTIDAD_PEDValue : Integer;
@ -1493,6 +1507,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO] := aValue;
end; end;
function TPedidosClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNUM_COPIAS];
end;
function TPedidosClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteNUM_COPIAS];
end;
procedure TPedidosClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNUM_COPIAS] := aValue;
end;
{ TPedidosCliente_DetallesBusinessProcessorRules } { TPedidosCliente_DetallesBusinessProcessorRules }
constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2196,6 +2225,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO] := aValue;
end; end;
function TPedidosCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshNUM_COPIAS];
end;
function TPedidosCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshNUM_COPIAS];
end;
procedure TPedidosCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshNUM_COPIAS] := aValue;
end;
{ TPedidosCliente_Detalles_RefreshBusinessProcessorRules } { TPedidosCliente_Detalles_RefreshBusinessProcessorRules }
constructor TPedidosCliente_Detalles_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPedidosCliente_Detalles_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

118
Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
View File

@ -186,8 +186,8 @@ object srvPedidosCliente: TsrvPedidosCliente
' USUARIO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DES' + ' USUARIO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DES' +
'CUENTO,'#10' IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE,'#10' ' + 'CUENTO,'#10' IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE,'#10' ' +
'IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TOTAL,'#10' ID_FORMA_P' + 'IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TOTAL,'#10' ID_FORMA_P' +
'AGO,'#10' REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO'#10'FROM V_P' + 'AGO,'#10' REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO,'#10' ' +
'EDIDOS_CLIENTE' 'NUM_COPIAS'#10'FROM V_PEDIDOS_CLIENTE'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -203,8 +203,20 @@ object srvPedidosCliente: TsrvPedidosCliente
TableField = 'ID_CLIENTE' TableField = 'ID_CLIENTE'
end end
item item
DatasetField = 'USUARIO' DatasetField = 'NOMBRE'
TableField = 'USUARIO' TableField = 'NOMBRE'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end end
item item
DatasetField = 'FECHA_PEDIDO' DatasetField = 'FECHA_PEDIDO'
@ -235,12 +247,8 @@ object srvPedidosCliente: TsrvPedidosCliente
TableField = 'TELEFONO' TableField = 'TELEFONO'
end end
item item
DatasetField = 'REFERENCIA' DatasetField = 'OBSERVACIONES'
TableField = 'REFERENCIA' TableField = 'OBSERVACIONES'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end end
item item
DatasetField = 'INCIDENCIAS' DatasetField = 'INCIDENCIAS'
@ -250,14 +258,6 @@ object srvPedidosCliente: TsrvPedidosCliente
DatasetField = 'INCIDENCIAS_ACTIVAS' DatasetField = 'INCIDENCIAS_ACTIVAS'
TableField = 'INCIDENCIAS_ACTIVAS' TableField = 'INCIDENCIAS_ACTIVAS'
end end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item item
DatasetField = 'FECHA_ALTA' DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA' TableField = 'FECHA_ALTA'
@ -267,8 +267,8 @@ object srvPedidosCliente: TsrvPedidosCliente
TableField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION'
end end
item item
DatasetField = 'SITUACION' DatasetField = 'USUARIO'
TableField = 'SITUACION' TableField = 'USUARIO'
end end
item item
DatasetField = 'IMPORTE_NETO' DatasetField = 'IMPORTE_NETO'
@ -298,6 +298,10 @@ object srvPedidosCliente: TsrvPedidosCliente
DatasetField = 'IMPORTE_IVA' DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA'
end end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item item
DatasetField = 'ID_FORMA_PAGO' DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
@ -311,8 +315,8 @@ object srvPedidosCliente: TsrvPedidosCliente
TableField = 'FECHA_PREVISTA_ENVIO' TableField = 'FECHA_PREVISTA_ENVIO'
end end
item item
DatasetField = 'REFERENCIA_CLIENTE' DatasetField = 'NUM_COPIAS'
TableField = 'REFERENCIA_CLIENTE' TableField = 'NUM_COPIAS'
end> end>
end> end>
Name = 'PedidosCliente' Name = 'PedidosCliente'
@ -637,6 +641,17 @@ object srvPedidosCliente: TsrvPedidosCliente
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -899,8 +914,8 @@ object srvPedidosCliente: TsrvPedidosCliente
' USUARIO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DES' + ' USUARIO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DES' +
'CUENTO,'#10' IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE,'#10' ' + 'CUENTO,'#10' IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE,'#10' ' +
'IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TOTAL,'#10' ID_FORMA_P' + 'IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TOTAL,'#10' ID_FORMA_P' +
'AGO,'#10' REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO'#10'FROM V_P' + 'AGO,'#10' REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO,'#10' ' +
'EDIDOS_CLIENTE'#10'WHERE'#10' ID = :ID' 'NUM_COPIAS'#10'FROM V_PEDIDOS_CLIENTE'#10'WHERE'#10' ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -916,8 +931,20 @@ object srvPedidosCliente: TsrvPedidosCliente
TableField = 'ID_CLIENTE' TableField = 'ID_CLIENTE'
end end
item item
DatasetField = 'USUARIO' DatasetField = 'NOMBRE'
TableField = 'USUARIO' TableField = 'NOMBRE'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end end
item item
DatasetField = 'FECHA_PEDIDO' DatasetField = 'FECHA_PEDIDO'
@ -948,12 +975,8 @@ object srvPedidosCliente: TsrvPedidosCliente
TableField = 'TELEFONO' TableField = 'TELEFONO'
end end
item item
DatasetField = 'REFERENCIA' DatasetField = 'OBSERVACIONES'
TableField = 'REFERENCIA' TableField = 'OBSERVACIONES'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end end
item item
DatasetField = 'INCIDENCIAS' DatasetField = 'INCIDENCIAS'
@ -963,14 +986,6 @@ object srvPedidosCliente: TsrvPedidosCliente
DatasetField = 'INCIDENCIAS_ACTIVAS' DatasetField = 'INCIDENCIAS_ACTIVAS'
TableField = 'INCIDENCIAS_ACTIVAS' TableField = 'INCIDENCIAS_ACTIVAS'
end end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item item
DatasetField = 'FECHA_ALTA' DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA' TableField = 'FECHA_ALTA'
@ -980,8 +995,8 @@ object srvPedidosCliente: TsrvPedidosCliente
TableField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION'
end end
item item
DatasetField = 'SITUACION' DatasetField = 'USUARIO'
TableField = 'SITUACION' TableField = 'USUARIO'
end end
item item
DatasetField = 'IMPORTE_NETO' DatasetField = 'IMPORTE_NETO'
@ -1011,6 +1026,10 @@ object srvPedidosCliente: TsrvPedidosCliente
DatasetField = 'IMPORTE_IVA' DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA'
end end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item item
DatasetField = 'ID_FORMA_PAGO' DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
@ -1024,8 +1043,8 @@ object srvPedidosCliente: TsrvPedidosCliente
TableField = 'FECHA_PREVISTA_ENVIO' TableField = 'FECHA_PREVISTA_ENVIO'
end end
item item
DatasetField = 'REFERENCIA_CLIENTE' DatasetField = 'NUM_COPIAS'
TableField = 'REFERENCIA_CLIENTE' TableField = 'NUM_COPIAS'
end> end>
end> end>
Name = 'PedidosCliente_Refresh' Name = 'PedidosCliente_Refresh'
@ -1357,6 +1376,17 @@ object srvPedidosCliente: TsrvPedidosCliente
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript

1
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
Caption = 'Lista de pedidos de cliente' Caption = 'Lista de pedidos de cliente'
ClientWidth = 674 ClientWidth = 674
ExplicitWidth = 682 ExplicitWidth = 682
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

9
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas
View File

@ -208,7 +208,7 @@ begin
if (Application.MessageBox('¿Desea borrar los pedidos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then if (Application.MessageBox('¿Desea borrar los pedidos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos) as IBizPedidoCliente; APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoCliente;
end end
end end
else begin else begin
@ -293,13 +293,14 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos) as IBizPedidoCliente; APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoCliente;
end end
else else
APedidos := Pedidos; APedidos := Pedidos;
if Assigned(APedidos) then if Assigned(APedidos) then
FController.Print(APedidos, AllItems); if FController.Print(APedidos, AllItems) then
RefrescarInterno;
end; end;
end; end;
end; end;
@ -355,7 +356,7 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos) as IBizPedidoCliente; APedidos := (Controller as IPedidosClienteController).ExtraerSeleccionados(Pedidos, ViewGrid) as IBizPedidoCliente;
end end
else else
APedidos := Pedidos; APedidos := Pedidos;

6
Source/Modulos/Pedidos de cliente/Views/uViewDetallesPedidoCliente.pas
View File

@ -28,6 +28,7 @@ type
procedure SetPedido(const Value: IBizPedidoCliente); procedure SetPedido(const Value: IBizPedidoCliente);
procedure AnadirArticulosInterno; override; procedure AnadirArticulosInterno; override;
procedure RellenarArticulosInterno; override;
function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override; function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override;
public public
@ -56,6 +57,11 @@ begin
Result := FPedido; Result := FPedido;
end; end;
procedure TfrViewDetallesPedidoCliente.RellenarArticulosInterno;
begin
(Controller as IDetallesPedidoClienteController).AnadirArticulos(Detalles, Pedido.Cliente, False);
end;
procedure TfrViewDetallesPedidoCliente.SetPedido(const Value: IBizPedidoCliente); procedure TfrViewDetallesPedidoCliente.SetPedido(const Value: IBizPedidoCliente);
begin begin
FPedido := Value; FPedido := Value;

23
Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm
View File

@ -34,6 +34,15 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
end> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
object cxGridViewNUM_COPIAS: TcxGridDBColumn
DataBinding.FieldName = 'NUM_COPIAS'
OnCustomDrawCell = cxGridViewNUM_COPIASCustomDrawCell
MinWidth = 30
Options.HorzSizing = False
VisibleForCustomization = False
Width = 30
IsCaptionAssigned = True
end
object cxGridViewID: TcxGridDBColumn object cxGridViewID: TcxGridDBColumn
DataBinding.FieldName = 'ID' DataBinding.FieldName = 'ID'
Visible = False Visible = False
@ -351,6 +360,20 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082} 97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
Name = 'PngImage4' Name = 'PngImage4'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
Name = 'PngImage5'
Background = clWindow
end> end>
Left = 56 Left = 56
Top = 48 Top = 48

21
Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas
View File

@ -52,6 +52,7 @@ type
TBXItem3: TTBXItem; TBXItem3: TTBXItem;
cxGridViewTIENDAWEB: TcxGridDBColumn; cxGridViewTIENDAWEB: TcxGridDBColumn;
cxGridViewFECHA_ENTREGA: TcxGridDBColumn; cxGridViewFECHA_ENTREGA: TcxGridDBColumn;
cxGridViewNUM_COPIAS: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@ -69,6 +70,9 @@ type
var ADone: Boolean); var ADone: Boolean);
procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); Y: Integer);
procedure cxGridViewNUM_COPIASCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -228,6 +232,23 @@ begin
end; end;
end; end;
procedure TfrViewPedidosCliente.cxGridViewNUM_COPIASCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
if (AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index] <> '') then
begin
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 5);
ACanvas.DrawTexT(AViewInfo.GridRecord.DisplayTexts[cxGridViewNUM_COPIAS.Index], R, cxAlignCenter or cxAlignVCenter);
ADone := True;
end;
end;
procedure TfrViewPedidosCliente.cxGridViewStylesGetContentStyle(Sender: procedure TfrViewPedidosCliente.cxGridViewStylesGetContentStyle(Sender:
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
TcxCustomGridTableItem; out AStyle: TcxStyle); TcxCustomGridTableItem; out AStyle: TcxStyle);

30
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -27,7 +27,7 @@ interface
uses uses
Classes, SysUtils, uDADataTable, uControllerBase, Classes, SysUtils, uDADataTable, uControllerBase,
uPagosClienteController, uClientesController, uPagosClienteController, uClientesController, uViewGridBase,
uBizRecibosCliente, uIDataModuleRecibosCliente; uBizRecibosCliente, uIDataModuleRecibosCliente;
type type
@ -64,7 +64,7 @@ type
procedure VerTodos(ARecibosCliente: IBizRecibosCliente); procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
procedure Ver(ARecibosCliente: IBizRecibosCliente); procedure Ver(ARecibosCliente: IBizRecibosCliente);
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente; function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente; Const ViewGrid: IViewGridBase = Nil) : IBizRecibosCliente;
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente; function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer); procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer);
@ -75,7 +75,7 @@ type
procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente); procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
procedure Preview(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false); procedure Preview(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
procedure Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false); function Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
end; end;
TRecibosClienteController = class(TObservador, IRecibosClienteController) TRecibosClienteController = class(TObservador, IRecibosClienteController)
@ -125,7 +125,7 @@ type
procedure VerTodos(ARecibosCliente: IBizRecibosCliente); procedure VerTodos(ARecibosCliente: IBizRecibosCliente);
procedure Ver(ARecibosCliente: IBizRecibosCliente); procedure Ver(ARecibosCliente: IBizRecibosCliente);
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente; function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente; Const ViewGrid: IViewGridBase = Nil) : IBizRecibosCliente;
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente; function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean; function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
@ -136,7 +136,7 @@ type
procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False); procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
procedure Preview(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false); procedure Preview(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
procedure Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false); function Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
end; end;
implementation implementation
@ -799,13 +799,26 @@ begin
end; end;
end; end;
function TRecibosClienteController.ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente): IBizRecibosCliente; function TRecibosClienteController.ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente; Const ViewGrid: IViewGridBase = Nil): IBizRecibosCliente;
var var
ASeleccionados : IBizRecibosCliente; ASeleccionados : IBizRecibosCliente;
begin begin
if Assigned(ViewGrid) then
begin
//Guardamos la situación porque el CopyDataTable nos cambia la posicion
ViewGrid.SaveGridStatus;
ViewGrid.DesactivarGrid;
end;
ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosCliente); ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosCliente);
CopyDataTable(ARecibosCliente.DataTable, ASeleccionados.DataTable, True); CopyDataTable(ARecibosCliente.DataTable, ASeleccionados.DataTable, True);
Result := ASeleccionados; Result := ASeleccionados;
if Assigned(ViewGrid) then
begin
ViewGrid.ActivarGrid;
ViewGrid.RestoreGridStatus;
end;
end; end;
procedure TRecibosClienteController.Preview(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false); procedure TRecibosClienteController.Preview(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
@ -843,12 +856,13 @@ begin
end; end;
end; end;
procedure TRecibosClienteController.Print(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false); function TRecibosClienteController.Print(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false): Boolean;
var var
AReportController : IRecibosClienteReportController; AReportController : IRecibosClienteReportController;
ID_Recibos: TStringList; ID_Recibos: TStringList;
begin begin
Result := False;
AReportController := TRecibosClienteReportController.Create; AReportController := TRecibosClienteReportController.Create;
try try
ID_Recibos := TStringList.Create; ID_Recibos := TStringList.Create;
@ -870,7 +884,7 @@ begin
else else
ID_Recibos.Add(IntToStr(ARecibosCliente.ID)); ID_Recibos.Add(IntToStr(ARecibosCliente.ID));
AReportController.Print(ID_Recibos.CommaText); Result := AReportController.Print(ID_Recibos.CommaText);
finally finally
AReportController := NIL; AReportController := NIL;

16
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas
View File

@ -10,7 +10,7 @@ type
IRecibosClienteReportController = interface IRecibosClienteReportController = interface
['{3837DFA3-0A38-4BB2-B0DB-D0615249EA49}'] ['{3837DFA3-0A38-4BB2-B0DB-D0615249EA49}']
procedure Preview(const ID : String); procedure Preview(const ID : String);
procedure Print(const ID : String); function Print(const ID : String): Boolean;
end; end;
TRecibosClienteReportController = class(TInterfacedObject, IRecibosClienteReportController) TRecibosClienteReportController = class(TInterfacedObject, IRecibosClienteReportController)
@ -22,7 +22,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const ID : String); procedure Preview(const ID : String);
procedure Print(const ID : String); function Print(const ID : String): Boolean;
end; end;
@ -30,7 +30,8 @@ implementation
uses uses
uROTypes, uEditorRegistryUtils, uIEditorRecibosClientePreview, uROTypes, uEditorRegistryUtils, uIEditorRecibosClientePreview,
uEditorPreview, uDataModuleRecibosCliente, uEditorBase, cxControls; uEditorPreview, uDataModuleRecibosCliente, uEditorBase, cxControls,
schRecibosClienteClient_Intf;
{ TRecibosClienteReportController } { TRecibosClienteReportController }
@ -76,11 +77,12 @@ begin
AEditor.Preview; AEditor.Preview;
end; end;
procedure TRecibosClienteReportController.Print(const ID : String); function TRecibosClienteReportController.Print(const ID : String): Boolean;
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorRecibosClientePreview; AEditor : IEditorRecibosClientePreview;
begin begin
Result := False;
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
@ -97,7 +99,11 @@ begin
end; end;
if Assigned(AEditor) then if Assigned(AEditor) then
AEditor.Print begin
AEditor.TablaImpresion := nme_RecibosCliente;
AEditor.IdTablaImpresion := ID;
Result := AEditor.Print;
end;
end; end;
end. end.

15
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
View File

@ -35,7 +35,7 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'User' Name = 'User'
ParamType = fIn ParamType = fIn
DataType = rtString DataType = rtString
Value = 'Administrador' Value = 'Luis'
end end
item item
Name = 'Password' Name = 'Password'
@ -66,7 +66,7 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
ProbeServers = False ProbeServers = False
ProbeFrequency = 60000 ProbeFrequency = 60000
UserAgent = 'RemObjects SDK' UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8090/bin' TargetURL = 'http://localhost:8099/bin'
Left = 48 Left = 48
Top = 272 Top = 272
end end
@ -440,6 +440,17 @@ object DataModuleRecibosCliente: TDataModuleRecibosCliente
Calculated = False Calculated = False
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end
item
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
Params = <> Params = <>
MasterMappingMode = mmDataRequest MasterMappingMode = mmDataRequest

52
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -9,10 +9,10 @@ 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_RecibosCliente = '{776FD400-E6B9-4576-9F25-00B597720267}'; RID_RecibosCliente = '{052BB265-F88E-4D05-B8D4-92B9E6698ADE}';
RID_RecibosCliente_Refresh = '{89591B66-A8AE-46A9-AC71-AB0AB81A492F}'; RID_RecibosCliente_Refresh = '{BE059EAD-08E4-4DEE-8CDB-2197A2DD1D35}';
RID_PagosCliente = '{C68E4866-2A58-4CE5-BBA0-1EDB8646170C}'; RID_PagosCliente = '{FBC80B2B-7966-44E9-A2C9-A13AE9CC0736}';
RID_RecibosCompensadosCli = '{B4FBAFB5-6C87-40F3-9BF9-D477D59971DA}'; RID_RecibosCompensadosCli = '{0725B1A0-D613-414F-814C-240C4ABA81FF}';
{ Data table names } { Data table names }
nme_RecibosCliente = 'RecibosCliente'; nme_RecibosCliente = 'RecibosCliente';
@ -50,6 +50,7 @@ const
fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosClienteFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosClienteUSUARIO = 'USUARIO'; fld_RecibosClienteUSUARIO = 'USUARIO';
fld_RecibosClienteNUM_COPIAS = 'NUM_COPIAS';
{ RecibosCliente field indexes } { RecibosCliente field indexes }
idx_RecibosClienteID = 0; idx_RecibosClienteID = 0;
@ -81,6 +82,7 @@ const
idx_RecibosClienteFECHA_ALTA = 26; idx_RecibosClienteFECHA_ALTA = 26;
idx_RecibosClienteFECHA_MODIFICACION = 27; idx_RecibosClienteFECHA_MODIFICACION = 27;
idx_RecibosClienteUSUARIO = 28; idx_RecibosClienteUSUARIO = 28;
idx_RecibosClienteNUM_COPIAS = 29;
{ RecibosCliente_Refresh fields } { RecibosCliente_Refresh fields }
fld_RecibosCliente_RefreshID = 'ID'; fld_RecibosCliente_RefreshID = 'ID';
@ -112,6 +114,7 @@ const
fld_RecibosCliente_RefreshFECHA_ALTA = 'FECHA_ALTA'; fld_RecibosCliente_RefreshFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosCliente_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_RecibosCliente_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosCliente_RefreshUSUARIO = 'USUARIO'; fld_RecibosCliente_RefreshUSUARIO = 'USUARIO';
fld_RecibosCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
{ RecibosCliente_Refresh field indexes } { RecibosCliente_Refresh field indexes }
idx_RecibosCliente_RefreshID = 0; idx_RecibosCliente_RefreshID = 0;
@ -143,6 +146,7 @@ const
idx_RecibosCliente_RefreshFECHA_ALTA = 26; idx_RecibosCliente_RefreshFECHA_ALTA = 26;
idx_RecibosCliente_RefreshFECHA_MODIFICACION = 27; idx_RecibosCliente_RefreshFECHA_MODIFICACION = 27;
idx_RecibosCliente_RefreshUSUARIO = 28; idx_RecibosCliente_RefreshUSUARIO = 28;
idx_RecibosCliente_RefreshNUM_COPIAS = 29;
{ PagosCliente fields } { PagosCliente fields }
fld_PagosClienteID = 'ID'; fld_PagosClienteID = 'ID';
@ -211,7 +215,7 @@ const
type type
{ IRecibosCliente } { IRecibosCliente }
IRecibosCliente = interface(IDAStronglyTypedDataTable) IRecibosCliente = interface(IDAStronglyTypedDataTable)
['{C690E544-36BE-450C-8CA2-C453C7D6A23D}'] ['{9D61F0F9-2F51-46E0-A03A-6CD9F0606305}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -271,6 +275,8 @@ type
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetUSUARIOValue: String; function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String); procedure SetUSUARIOValue(const aValue: String);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties } { Properties }
@ -303,6 +309,7 @@ type
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end; end;
{ TRecibosClienteDataTableRules } { TRecibosClienteDataTableRules }
@ -368,6 +375,8 @@ type
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual; function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -399,6 +408,7 @@ type
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -408,7 +418,7 @@ type
{ IRecibosCliente_Refresh } { IRecibosCliente_Refresh }
IRecibosCliente_Refresh = interface(IDAStronglyTypedDataTable) IRecibosCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{989F96EE-C6AE-403E-9A56-B01C4716E6B6}'] ['{1CF667AF-589C-4ECC-BF84-FC968B381A93}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -468,6 +478,8 @@ type
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetUSUARIOValue: String; function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String); procedure SetUSUARIOValue(const aValue: String);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
{ Properties } { Properties }
@ -500,6 +512,7 @@ type
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
end; end;
{ TRecibosCliente_RefreshDataTableRules } { TRecibosCliente_RefreshDataTableRules }
@ -565,6 +578,8 @@ type
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual; function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -596,6 +611,7 @@ type
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -605,7 +621,7 @@ type
{ IPagosCliente } { IPagosCliente }
IPagosCliente = interface(IDAStronglyTypedDataTable) IPagosCliente = interface(IDAStronglyTypedDataTable)
['{50466FF1-7C4F-4294-98B1-39DC7589D8A8}'] ['{5A457C91-5B7D-4026-A9A5-2928C56E9363}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -700,7 +716,7 @@ type
{ IRecibosCompensadosCli } { IRecibosCompensadosCli }
IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable) IRecibosCompensadosCli = interface(IDAStronglyTypedDataTable)
['{D2E38DD6-E307-40E0-8B4A-C72B9F8D86D0}'] ['{0F12FAB4-E245-4166-A361-18115BE3AE0E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1122,6 +1138,16 @@ begin
DataTable.Fields[idx_RecibosClienteUSUARIO].AsString := aValue; DataTable.Fields[idx_RecibosClienteUSUARIO].AsString := aValue;
end; end;
function TRecibosClienteDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_RecibosClienteNUM_COPIAS].AsInteger;
end;
procedure TRecibosClienteDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_RecibosClienteNUM_COPIAS].AsInteger := aValue;
end;
{ TRecibosCliente_RefreshDataTableRules } { TRecibosCliente_RefreshDataTableRules }
constructor TRecibosCliente_RefreshDataTableRules.Create(aDataTable: TDADataTable); constructor TRecibosCliente_RefreshDataTableRules.Create(aDataTable: TDADataTable);
@ -1424,6 +1450,16 @@ begin
DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].AsString := aValue; DataTable.Fields[idx_RecibosCliente_RefreshUSUARIO].AsString := aValue;
end; end;
function TRecibosCliente_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
begin
result := DataTable.Fields[idx_RecibosCliente_RefreshNUM_COPIAS].AsInteger;
end;
procedure TRecibosCliente_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
begin
DataTable.Fields[idx_RecibosCliente_RefreshNUM_COPIAS].AsInteger := aValue;
end;
{ TPagosClienteDataTableRules } { TPagosClienteDataTableRules }
constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable); constructor TPagosClienteDataTableRules.Create(aDataTable: TDADataTable);

60
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

@ -9,15 +9,15 @@ 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_RecibosClienteDelta = '{09AF765A-9893-4609-B0F9-5AA658615091}'; RID_RecibosClienteDelta = '{529A180C-95FF-4D15-945A-7F29985B2284}';
RID_RecibosCliente_RefreshDelta = '{20A20E0C-0EA9-4A41-B4D1-E0186CA8FC52}'; RID_RecibosCliente_RefreshDelta = '{ACD8B913-353F-4239-99D2-C8C19B4FED49}';
RID_PagosClienteDelta = '{7ACA6F74-1324-4784-A37A-599EF8940690}'; RID_PagosClienteDelta = '{785C0207-7ED8-44CC-84DA-218326A57DD9}';
RID_RecibosCompensadosCliDelta = '{BA198B66-278F-4056-B312-5D0476D48275}'; RID_RecibosCompensadosCliDelta = '{09A91A9D-42B0-4D1D-A6AF-AEF65F7D16EE}';
type type
{ IRecibosClienteDelta } { IRecibosClienteDelta }
IRecibosClienteDelta = interface(IRecibosCliente) IRecibosClienteDelta = interface(IRecibosCliente)
['{09AF765A-9893-4609-B0F9-5AA658615091}'] ['{529A180C-95FF-4D15-945A-7F29985B2284}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -48,6 +48,7 @@ type
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldNUM_COPIASValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -79,6 +80,7 @@ type
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;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end; end;
{ TRecibosClienteBusinessProcessorRules } { TRecibosClienteBusinessProcessorRules }
@ -173,6 +175,9 @@ type
function GetUSUARIOValue: String; virtual; function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -233,6 +238,8 @@ type
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -242,7 +249,7 @@ type
{ IRecibosCliente_RefreshDelta } { IRecibosCliente_RefreshDelta }
IRecibosCliente_RefreshDelta = interface(IRecibosCliente_Refresh) IRecibosCliente_RefreshDelta = interface(IRecibosCliente_Refresh)
['{20A20E0C-0EA9-4A41-B4D1-E0186CA8FC52}'] ['{ACD8B913-353F-4239-99D2-C8C19B4FED49}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -273,6 +280,7 @@ type
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldNUM_COPIASValue : Integer;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -304,6 +312,7 @@ type
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;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
end; end;
{ TRecibosCliente_RefreshBusinessProcessorRules } { TRecibosCliente_RefreshBusinessProcessorRules }
@ -398,6 +407,9 @@ type
function GetUSUARIOValue: String; virtual; function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -458,6 +470,8 @@ type
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -467,7 +481,7 @@ type
{ IPagosClienteDelta } { IPagosClienteDelta }
IPagosClienteDelta = interface(IPagosCliente) IPagosClienteDelta = interface(IPagosCliente)
['{7ACA6F74-1324-4784-A37A-599EF8940690}'] ['{785C0207-7ED8-44CC-84DA-218326A57DD9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;
@ -573,7 +587,7 @@ type
{ IRecibosCompensadosCliDelta } { IRecibosCompensadosCliDelta }
IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli) IRecibosCompensadosCliDelta = interface(IRecibosCompensadosCli)
['{BA198B66-278F-4056-B312-5D0476D48275}'] ['{09A91A9D-42B0-4D1D-A6AF-AEF65F7D16EE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -1156,6 +1170,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteUSUARIO] := aValue;
end; end;
function TRecibosClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNUM_COPIAS];
end;
function TRecibosClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosClienteNUM_COPIAS];
end;
procedure TRecibosClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosClienteNUM_COPIAS] := aValue;
end;
{ TRecibosCliente_RefreshBusinessProcessorRules } { TRecibosCliente_RefreshBusinessProcessorRules }
constructor TRecibosCliente_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TRecibosCliente_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -1603,6 +1632,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshUSUARIO] := aValue;
end; end;
function TRecibosCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNUM_COPIAS];
end;
function TRecibosCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCliente_RefreshNUM_COPIAS];
end;
procedure TRecibosCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCliente_RefreshNUM_COPIAS] := aValue;
end;
{ TPagosClienteBusinessProcessorRules } { TPagosClienteBusinessProcessorRules }
constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TPagosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

36
Source/Modulos/Recibos de cliente/RecibosCliente_Group.bdsgroup Normal file
View File

@ -0,0 +1,36 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
<Option Name="Personality">Default.Personality</Option>
<Option Name="ProjectType"></Option>
<Option Name="Version">1.0</Option>
<Option Name="GUID">{31F77077-B4B9-443C-9AA9-F13B4EB640B4}</Option>
</Option>
</PersonalityInfo>
<Default.Personality>
<Projects>
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
<Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
<Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
<Projects Name="Contactos_model.bpl">..\Contactos\Model\Contactos_model.bdsproj</Projects>
<Projects Name="Contactos_data.bpl">..\Contactos\Data\Contactos_data.bdsproj</Projects>
<Projects Name="Contactos_controller.bpl">..\Contactos\Controller\Contactos_controller.bdsproj</Projects>
<Projects Name="Articulos_view.bpl">..\Articulos\Views\Articulos_view.bdsproj</Projects>
<Projects Name="Articulos_model.bpl">..\Articulos\Model\Articulos_model.bdsproj</Projects>
<Projects Name="Articulos_data.bpl">..\Articulos\Data\Articulos_data.bdsproj</Projects>
<Projects Name="Articulos_controller.bpl">..\Articulos\Controller\Articulos_controller.bdsproj</Projects>
<Projects Name="Contactos_view.bpl">..\Contactos\Views\Contactos_view.bdsproj</Projects>
<Projects Name="RecibosCliente_model.bpl">Model\RecibosCliente_model.bdsproj</Projects>
<Projects Name="RecibosCliente_data.bpl">Data\RecibosCliente_data.bdsproj</Projects>
<Projects Name="RecibosCliente_controller.bpl">Controller\RecibosCliente_controller.bdsproj</Projects>
<Projects Name="RecibosCliente_view.bpl">Views\RecibosCliente_view.bdsproj</Projects>
<Projects Name="RecibosCliente_plugin.bpl">Plugin\RecibosCliente_plugin.bdsproj</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="Targets">Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Articulos_view.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Contactos_view.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl FactuGES.exe FactuGES_Server.exe</Projects>
</Projects>
<Dependencies/>
</Default.Personality>
</BorlandProject>

2
Source/Modulos/Recibos de cliente/RecibosCliente_Group.config Normal file
View File

@ -0,0 +1,2 @@
<?xml version="1.0"?>
<TgConfig Version="3" SubLevelDisabled="False" />

Some files were not shown because too many files have changed in this diff Show More