diff --git a/Database/Anterior/VISTAS.SQL b/Database/Anterior/VISTAS.SQL index 2bbb6320..68e05c41 100644 --- a/Database/Anterior/VISTAS.SQL +++ b/Database/Anterior/VISTAS.SQL @@ -714,3 +714,474 @@ SELECT FACTURAS_CLIENTE.ID, ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA) LEFT JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE); + + +/*FACTURAS Y RECIBOS DE PROVEEDOR*/ +DROP VIEW V_FACTURAS_PROVEEDOR; +DROP VIEW V_FAC_PRO_SITUACION; +DROP VIEW V_REC_FAC_PRO_PAGADOS; +DROP VIEW V_RECIBOS_PROVEEDOR; +DROP VIEW V_REC_FAC_PRO; +DROP VIEW V_REC_PRO_SITUACION; +DROP VIEW V_REC_PRO_COMPENSADOS; + + +CREATE VIEW V_REC_PRO_COMPENSADOS ( +ID_RECIBO, +IMPORTE_TOTAL_COMPENSADO +) as +select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL +from RECIBOS_PROVEEDOR +where ID_RECIBO_COMPENSADO is not null +group by ID_RECIBO_COMPENSADO; + +CREATE VIEW V_REC_PRO_SITUACION( + ID_RECIBO, + SITUACION) +AS +SELECT RECIBOS_PROVEEDOR.ID, +CASE WHEN (COUNT(PAGOS_PROVEEDOR.ID_RECIBO)=0) THEN 'PENDIENTE' + WHEN (MOD(COUNT(PAGOS_PROVEEDOR.ID_RECIBO), 2)=0) THEN 'DEVUELTO' + ELSE 'PAGADO' +END +FROM RECIBOS_PROVEEDOR +LEFT JOIN PAGOS_PROVEEDOR +ON (PAGOS_PROVEEDOR.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +GROUP BY RECIBOS_PROVEEDOR.ID; + +CREATE VIEW V_REC_FAC_PRO( + ID_FACTURA, + NUM_RECIBOS) +AS +SELECT FACTURAS_PROVEEDOR.ID, COUNT(RECIBOS_PROVEEDOR.ID) +FROM FACTURAS_PROVEEDOR +LEFT JOIN RECIBOS_PROVEEDOR +ON (RECIBOS_PROVEEDOR.ID_FACTURA = FACTURAS_PROVEEDOR.ID) +GROUP BY FACTURAS_PROVEEDOR.ID; + +CREATE VIEW V_RECIBOS_PROVEEDOR( + ID, + ID_RECIBO_COMPENSADO, + REFERENCIA_REC_COMPENSADO, + REFERENCIA, + REFERENCIA_PROVEEDOR, + SITUACION, + ID_FACTURA, + ID_REMESA, + REFERENCIA_REMESA, + FECHA_EMISION, + FECHA_VENCIMIENTO, + DESCRIPCION, + OBSERVACIONES, + IMPORTE, + OTROS_GASTOS, + IMPORTE_TOTAL, + REFERENCIA_FACTURA_PROV, + FECHA_FACTURA, + FORMA_PAGO_FACTURA, + IMPORTE_FACTURA, + ID_EMPRESA, + ID_PROVEEDOR, + NOMBRE_PROVEEDOR, + NIF_CIF_PROVEEDOR, + ENTIDAD_PROVEEDOR, + SUCURSAL_PROVEEDOR, + DC_PROVEEDOR, + CUENTA_PROVEEDOR, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO) +AS +SELECT RECIBOS_PROVEEDOR.ID, + RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO, + RECIBO_COMPENSADO1.REFERENCIA, + RECIBOS_PROVEEDOR.REFERENCIA, + RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR, + CASE + WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL + THEN V_REC_PRO_SITUACION.SITUACION + ELSE RECIBO_COMPENSADO2.SITUACION + END, + RECIBOS_PROVEEDOR.ID_FACTURA, + RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA, + RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION, + RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS, + COALESCE(RECIBOS_PROVEEDOR.IMPORTE, 0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS, 0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0), + + FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA, + FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL, + FACTURAS_PROVEEDOR.ID_EMPRESA, + + CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD, + CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA, + + RECIBOS_PROVEEDOR.FECHA_ALTA, + RECIBOS_PROVEEDOR.FECHA_MODIFICACION, + RECIBOS_PROVEEDOR.USUARIO + +FROM RECIBOS_PROVEEDOR +LEFT JOIN V_REC_PRO_SITUACION +ON (V_REC_PRO_SITUACION.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +LEFT JOIN FACTURAS_PROVEEDOR +ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) +LEFT JOIN FORMAS_PAGO +ON (FORMAS_PAGO.ID = FACTURAS_PROVEEDOR.ID_FORMA_PAGO) +LEFT JOIN CONTACTOS +ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR) +LEFT JOIN CONTACTOS_DATOS_BANCO +ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID) +LEFT JOIN REMESAS_PROVEEDOR +ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA) +LEFT JOIN V_REC_PRO_COMPENSADOS +ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) +LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1 +ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO) +LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2 +ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO); + + +CREATE VIEW V_REC_FAC_PRO_PAGADOS( + ID_FACTURA, + NUM_REC_PAGADOS) +AS +SELECT RECIBOS_PROVEEDOR.ID_FACTURA, COUNT(V_REC_PRO_SITUACION.ID_RECIBO) +FROM V_REC_PRO_SITUACION LEFT JOIN RECIBOS_PROVEEDOR ON + (RECIBOS_PROVEEDOR.ID = V_REC_PRO_SITUACION.ID_RECIBO) +WHERE (V_REC_PRO_SITUACION.SITUACION = 'PAGADO') +GROUP BY RECIBOS_PROVEEDOR.ID_FACTURA; + + +CREATE VIEW V_FAC_PRO_SITUACION( + ID_FACTURA, + SITUACION) +AS +SELECT ID_FACTURA, +CASE + WHEN ((SUM(NUM_RECIBOS) = 0) + OR (SUM(NUM_REC_PAGADOS) = 0)) THEN 'PENDIENTE' + WHEN (SUM(NUM_RECIBOS) = SUM(NUM_REC_PAGADOS)) THEN 'PAGADA' + ELSE 'PARCIALMENTE PAGADA' +END AS SITUACION +FROM +( + SELECT ID_FACTURA, NUM_RECIBOS, 0 AS NUM_REC_PAGADOS + FROM V_REC_FAC_PRO + UNION ALL + SELECT ID_FACTURA, 0 AS NUM_RECIBOS, NUM_REC_PAGADOS + FROM V_REC_FAC_PRO_PAGADOS +) +GROUP BY ID_FACTURA; + + +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) +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 + 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); + + +DROP VIEW V_PEDIDOS_PROVEEDOR; +DROP VIEW V_PED_PROV_SITUACION; +DROP VIEW V_PED_PROV_ARTICULOS; +DROP VIEW V_PED_PROV_ARTICULOS_AUX; +DROP VIEW V_PED_PROV_ARTICULOS_RECIBIDOS; +DROP VIEW V_PED_PROV_DETALLES; +DROP VIEW V_ALB_PROV_DETALLES; + + +/*Agrupa los artículos de un mismo albarán (ya que en un albarán puede existir varias lineas con el mismo artículo). + Para cada artículo de albarán le ponemos el pedido con el que esta asociado y el almacén donde se recibio. + Se quitan todos los artículos que no tengamos en catálogo (ID_ARTICULO nulo, lineas de detalle libres)-> esta premisa la cambiamos para que + no se falsee la situación de los pedidos, asi pues todo articulo que no este en el catálogo lo pondremos con ID_ARTICULO 0. + Se quitan también aquellos que no seán inventariables -> esta premisa nos falsearía la situación de los pedidos */ + +CREATE VIEW V_ALB_PROV_DETALLES( + ID_ALBARAN, + ID_PEDIDO, + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN, + ALBARANES_PROVEEDOR.ID_PEDIDO, + ALBARANES_PROVEEDOR.ID_ALMACEN, + COALESCE(ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, 0), + SUM (COALESCE(ALBARANES_PROVEEDOR_DETALLES.CANTIDAD, 0)) AS CANTIDAD + +FROM ALBARANES_PROVEEDOR_DETALLES +LEFT JOIN ALBARANES_PROVEEDOR +ON (ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID) + +/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos +LEFT JOIN ARTICULOS +ON (ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID) + +WHERE (ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO is not null) +AND (ARTICULOS.INVENTARIABLE = 1) +*/ + +GROUP BY ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN, + ALBARANES_PROVEEDOR.ID_PEDIDO, + ALBARANES_PROVEEDOR.ID_ALMACEN, + ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO; + + +/*Agrupa los artículos de un mismo pedido (ya que en un pedido puede existir varias lineas con el mismo artículo). + Para cada artículo de pedido le ponemos el pedido con el que esta asociado y el almacén donde será recibido. + Se quitan todos los artículos que no tengamos en catálogo (ID_ARTICULO nulo, lineas de detalle libres)-> esta premisa la cambiamos para que + no se falsee la situación de los pedidos, asi pues todo articulo que no este en el catálogo lo pondremos con ID_ARTICULO 0. + Se quitan también aquellos que no seán inventariables -> esta premisa nos falsearia la situacion de los pedidos*/ + +CREATE VIEW V_PED_PROV_DETALLES( + ID_PEDIDO, + ID_ALMACEN, + ID_ARTICULO, + CANTIDAD) +AS +SELECT PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, + PEDIDOS_PROVEEDOR.ID_ALMACEN, + COALESCE(PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO, 0), + SUM(COALESCE(PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD, 0)) + +FROM PEDIDOS_PROVEEDOR_DETALLES +LEFT JOIN PEDIDOS_PROVEEDOR +ON (PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID) + +/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos +LEFT JOIN ARTICULOS +ON (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID) + +WHERE (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO is not null) +AND (ARTICULOS.INVENTARIABLE = 1) +*/ + +GROUP BY PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, + PEDIDOS_PROVEEDOR.ID_ALMACEN, + PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO; + + +/*Agrupa todos los artículos recibidos (por albaranes de proveedor) de cada uno de los pedidos asociados en los albaranes existentes*/ +/*No le ponemos el almacen donde se recibió ya que un mismo pedido podría tener varios albaranes con distintos almacenes de destino*/ +/*Aquellos articulos que no tengan ID_PEDIDO es porque el albarán al que pertenecen no tiene pedido asociado por ello no los tendremos en cuenta*/ + +CREATE VIEW V_PED_PROV_ARTICULOS_RECIBIDOS( + ID_PEDIDO, + ID_ARTICULO, + CANTIDAD) +AS +SELECT ID_PEDIDO, ID_ARTICULO, SUM(CANTIDAD) AS CANTIDAD +FROM V_ALB_PROV_DETALLES +WHERE (ID_PEDIDO is not null) +GROUP BY ID_PEDIDO, ID_ARTICULO; + + +/*No hacemos LEFT JOIN entre V_PED_PROV_DETALLES y V_PED_PROV_ARTICULOS_RECIBIDOS, porque por cada tupla de la primera*/ +/*repetiría la consulta de la segunda disparando tiempos, por ello teniendo las dos vistas ejecutadas hacemos una union*/ +/*obteniendo todos los artículos del pedido, tanto recibidos como pendientes, luego haremos la agrupación sobre este resultado*/ + +CREATE VIEW V_PED_PROV_ARTICULOS_AUX( + ID_PEDIDO, + ID_ARTICULO, + CANTIDAD_PEDIDA, + CANTIDAD_RECIBIDA) +AS +SELECT + V_PED_PROV_DETALLES.ID_PEDIDO, + V_PED_PROV_DETALLES.ID_ARTICULO, + V_PED_PROV_DETALLES.CANTIDAD AS CANTIDAD_PEDIDA, + 0 as CANTIDAD_RECIBIDA +FROM V_PED_PROV_DETALLES +UNION ALL +SELECT + V_PED_PROV_ARTICULOS_RECIBIDOS.ID_PEDIDO, + V_PED_PROV_ARTICULOS_RECIBIDOS.ID_ARTICULO, + NULL as CANTIDAD_PEDIDA, + V_PED_PROV_ARTICULOS_RECIBIDOS.CANTIDAD AS CANTIDAD_RECIBIDA +FROM V_PED_PROV_ARTICULOS_RECIBIDOS; + + +/*A partir de la vista anterior obtenemos el estado de cada uno de los artículos del pedido de proveedor*/ +/*Despreciamos aquellas tuplas cuya cantidad pedida sea null, porque son articulos añadidos en el albarán que*/ +/*no están en su pedido correspondiente por lo tanto no los tendremos en cuenta para saber si los articulos del*/ +/*pedido se han recibido todos. De todas formas no tiene mucho sentido este caso*/ + +CREATE VIEW V_PED_PROV_ARTICULOS( + ID_PEDIDO, +/* ID_ALMACEN,*/ + ID_ARTICULO, + CANTIDAD_PEDIDA, + CANTIDAD_RECIBIDA, + CANTIDAD_PENDIENTE) +AS +SELECT ID_PEDIDO, + /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/ + ID_ARTICULO, + SUM(CANTIDAD_PEDIDA) as CANTIDAD_PEDIDA, + SUM(CANTIDAD_RECIBIDA) as CANTIDAD_RECIBIDA, + SUM(CANTIDAD_PEDIDA) - SUM(CANTIDAD_RECIBIDA) as CANTIDAD_PENDIENTE +FROM V_PED_PROV_ARTICULOS_AUX +/* +LEFT JOIN PEDIDOS_PROVEEDOR +ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS_AUX.ID_PEDIDO) +*/ +GROUP BY ID_PEDIDO, + /*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/ + ID_ARTICULO +HAVING SUM(CANTIDAD_PEDIDA) IS NOT NULL; + +CREATE VIEW V_PED_PROV_SITUACION( + ID_PEDIDO, + SITUACION) +AS +SELECT ID_PEDIDO, +CASE WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) = 0) THEN 'PENDIENTE' + WHEN (SUM(CANTIDAD_PENDIENTE) <= 0) THEN 'RECIBIDO' + WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) > 0) THEN 'PARCIAL' + ELSE 'N/A' +END AS SITUACION +FROM V_PED_PROV_ARTICULOS +GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO; + +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) +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 +FROM + PEDIDOS_PROVEEDOR + LEFT OUTER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.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 OUTER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID); diff --git a/Source/Modulos/Pedidos a proveedor/Controller/DataAbstract3_Intf.dcu b/Source/Modulos/Pedidos a proveedor/Controller/DataAbstract3_Intf.dcu new file mode 100644 index 00000000..90b9d2a3 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/DataAbstract3_Intf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/DataAbstract4_Intf.dcu b/Source/Modulos/Pedidos a proveedor/Controller/DataAbstract4_Intf.dcu new file mode 100644 index 00000000..58b7dbd5 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/DataAbstract4_Intf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.bdsproj b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.bdsproj new file mode 100644 index 00000000..6ba1ac57 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.bdsproj @@ -0,0 +1,492 @@ + + + + + + + + + + + + PedidosProveedor_controller.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dcu b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dcu new file mode 100644 index 00000000..a816763b Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dpk b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dpk new file mode 100644 index 00000000..1f90682e --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dpk @@ -0,0 +1,46 @@ +package PedidosProveedor_controller; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} + +requires + Base, + PedidosProveedor_data, + Contactos_controller, + Articulos_controller; + +contains + uPedidosProveedorController in 'uPedidosProveedorController.pas', + uDetallesPedidoProveedorController in 'uDetallesPedidoProveedorController.pas', + uIEditorPedidosProveedor in 'View\uIEditorPedidosProveedor.pas', + uIEditorPedidoProveedor in 'View\uIEditorPedidoProveedor.pas', + uPedidosProveedorReportController in 'uPedidosProveedorReportController.pas', + uIEditorPedidosProveedorPreview in 'View\uIEditorPedidosProveedorPreview.pas', + uIEditorElegirPedidosProveedor in 'View\uIEditorElegirPedidosProveedor.pas', + uArticulosPedidoProveedorController in 'uArticulosPedidoProveedorController.pas', + uIEditorElegirArticulosPedidosProveedor in 'View\uIEditorElegirArticulosPedidosProveedor.pas', + uIEditorDireccionEntregaPedidoProveedor in 'View\uIEditorDireccionEntregaPedidoProveedor.pas', + uIEditorSituacionPedidoProveedor in 'View\uIEditorSituacionPedidoProveedor.pas'; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dproj b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dproj new file mode 100644 index 00000000..0778ff54 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dproj @@ -0,0 +1,551 @@ + + + {7ed85635-c723-4c0b-bf1d-f719e0ea33ad} + PedidosProveedor_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\PedidosProveedor_controller.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0PedidosProveedor_controller.dpk + + + + + MainSource + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.drc b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.drc new file mode 100644 index 00000000..758ec6e8 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.drc @@ -0,0 +1,16 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.drf */ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.identcache b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.identcache new file mode 100644 index 00000000..a1eb7ab7 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.identcache differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.rc b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.res b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.res differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorDireccionEntregaPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorDireccionEntregaPedidoProveedor.pas new file mode 100644 index 00000000..38d5bdb3 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorDireccionEntregaPedidoProveedor.pas @@ -0,0 +1,22 @@ +unit uIEditorDireccionEntregaPedidoProveedor; + +interface + +uses + uBizPedidosProveedor; + +type + IEditorDireccionEntregaPedidoProveedor = interface + ['{3CFC2593-A4D2-4CEA-B84F-DA726CB843F3}'] + function GetPedido: IBizPedidoProveedor; + procedure SetPedido(const Value: IBizPedidoProveedor); + property Pedido: IBizPedidoProveedor read GetPedido write SetPedido; + + function ShowModal : Integer; + procedure Release; + end; + + +implementation + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorElegirArticulosPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorElegirArticulosPedidosProveedor.pas new file mode 100644 index 00000000..9e93d1dd --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorElegirArticulosPedidosProveedor.pas @@ -0,0 +1,19 @@ +unit uIEditorElegirArticulosPedidosProveedor; + +interface + +uses + uIEditorElegirArticulos, uBizContactos; + +type + IEditorElegirArticulosPedidosProveedor = interface(IEditorElegirArticulos) + ['{4016D4CD-8C0C-494A-9CC4-256E3A00EAD3}'] + function GetProveedor: IBizProveedor; + procedure SetProveedor(const Value: IBizProveedor); + property Proveedor: IBizProveedor read GetProveedor write SetProveedor; + end; + + +implementation + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorElegirPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorElegirPedidosProveedor.pas new file mode 100644 index 00000000..338f14f2 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorElegirPedidosProveedor.pas @@ -0,0 +1,26 @@ +unit uIEditorElegirPedidosProveedor; + +interface + +uses + uIEditorPedidosProveedor, uBizPedidosProveedor, uGUIBase; + +type + IEditorElegirPedidosProveedor = interface(IEditorPedidosProveedor) + ['{12716994-A11A-4C05-973B-652468B859D9}'] + function GetPedidosProveedorSeleccionados: IBizPedidoProveedor; + property PedidosProveedorSeleccionados: IBizPedidoProveedor read GetPedidosProveedorSeleccionados; + + procedure SetMultiSelect (AValue : Boolean); + function GetMultiSelect : Boolean; + property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; + + procedure SetMensaje (const AValue: String); + function GetMensaje: String; + property Mensaje : String read GetMensaje write SetMensaje; + end; + + +implementation + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidoProveedor.pas new file mode 100644 index 00000000..cf3f76ba --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidoProveedor.pas @@ -0,0 +1,23 @@ +unit uIEditorPedidoProveedor; + +interface + +uses + uEditorDBItem, uBizPedidosProveedor, uPedidosProveedorController; + +type + IEditorPedidoProveedor = interface(IEditorDBItem) + ['{244C8E63-7BA2-4C8E-A2B8-4ECCEFDB5196}'] + function GetController : IPedidosProveedorController; + procedure SetController (const Value : IPedidosProveedorController); + property Controller : IPedidosProveedorController read GetController + write SetController; + + function GetPedido: IBizPedidoProveedor; + procedure SetPedido(const Value: IBizPedidoProveedor); + property Pedido: IBizPedidoProveedor read GetPedido write SetPedido; + end; + +implementation + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidosProveedor.pas new file mode 100644 index 00000000..a8202406 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidosProveedor.pas @@ -0,0 +1,23 @@ +unit uIEditorPedidosProveedor; + +interface + +uses + uEditorGridBase, uBizPedidosProveedor, uPedidosProveedorController; + +type + IEditorPedidosProveedor = interface(IEditorGridBase) + ['{F2C320D6-A7A2-4402-95DF-BCFA87384281}'] + function GetPedidos: IBizPedidoProveedor; + procedure SetPedidos(const Value: IBizPedidoProveedor); + property Pedidos: IBizPedidoProveedor read GetPedidos write SetPedidos; + + function GetController : IPedidosProveedorController; + procedure SetController (const Value : IPedidosProveedorController); + property Controller : IPedidosProveedorController read GetController write SetController; + end; + + +implementation + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidosProveedorPreview.pas b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidosProveedorPreview.pas new file mode 100644 index 00000000..fc17711c --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorPedidosProveedorPreview.pas @@ -0,0 +1,16 @@ +unit uIEditorPedidosProveedorPreview; + +interface + +uses + uEditorPreview; + +type + IEditorPedidosProveedorPreview = interface(IEditorPreview) + ['{9B638488-5156-4FDA-BD85-524DC1D6F6A6}'] + end; + + +implementation + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorSituacionPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorSituacionPedidoProveedor.pas new file mode 100644 index 00000000..7c79ce7e --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorSituacionPedidoProveedor.pas @@ -0,0 +1,27 @@ +unit uIEditorSituacionPedidoProveedor; + +interface + +uses + uBizPedidosProveedor, uPedidosProveedorController; + +type + IEditorSituacionPedidoProveedor = interface + ['{29CBF2CD-AFD5-49F6-964C-38188F15702E}'] + function GetController : IPedidosProveedorController; + procedure SetController (const Value : IPedidosProveedorController); + property Controller : IPedidosProveedorController read GetController + write SetController; + + function GetPedidoProveedor: IBizPedidoProveedor; + procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); + property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor + write SetPedidoProveedor; + + function ShowModal : Integer; + procedure Release; + end; + +implementation + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uArticulosPedidoProveedorController.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uArticulosPedidoProveedorController.dcu new file mode 100644 index 00000000..fb8c15de Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uArticulosPedidoProveedorController.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uArticulosPedidoProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uArticulosPedidoProveedorController.pas new file mode 100644 index 00000000..8417aba2 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/uArticulosPedidoProveedorController.pas @@ -0,0 +1,49 @@ +unit uArticulosPedidoProveedorController; + +interface + +uses + uDADataTable, uArticulosController, uBizArticulos, uBizContactos; + +type + IArticulosPedidoProveedorController = interface(IArticulosController) + ['{8C8A8D8D-82D2-4434-81C3-36E4F43F3B3E}'] + function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean; const AProveedor: IBizProveedor): IBizArticulo; + end; + + TArticulosPedidoProveedorController = class(TArticulosController, IArticulosPedidoProveedorController) + public + function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean; const AProveedor: IBizProveedor): IBizArticulo; overload; + end; + +implementation + +{ TArticulosPedidoProveedorController } + +uses Controls, uIEditorElegirArticulosPedidosProveedor, uIEditorElegirArticulos; + +function TArticulosPedidoProveedorController.ElegirArticulos(AArticulos: IBizArticulo; AMensaje: String; + AMultiSelect: Boolean; const AProveedor: IBizProveedor): IBizArticulo; +var + AEditor : IEditorElegirArticulosPedidosProveedor; +begin + Result := NIL; + CreateEditor('EditorElegirArticulosPedidoProveedor', IEditorElegirArticulosPedidosProveedor, AEditor); + try + with AEditor do + begin + Controller := Self; + Articulos := AArticulos; + Proveedor := AProveedor; + MultiSelect := AMultiSelect; + Mensaje := AMensaje; + if IsPositiveResult(ShowModal) then + Result := ArticulosSeleccionados; + Release; + end; + finally + AEditor := NIL; + end; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDABusinessProcessor.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDABusinessProcessor.dcu new file mode 100644 index 00000000..588201ae Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDABusinessProcessor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAClasses.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAClasses.dcu new file mode 100644 index 00000000..705b6ae5 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAClasses.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDADataStreamer.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDADataStreamer.dcu new file mode 100644 index 00000000..1f52f730 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDADataStreamer.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDADataTable.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDADataTable.dcu new file mode 100644 index 00000000..784e36e5 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDADataTable.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDADelta.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDADelta.dcu new file mode 100644 index 00000000..f3f47693 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDADelta.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDADriverManager.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDADriverManager.dcu new file mode 100644 index 00000000..c88ce1bf Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDADriverManager.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAEngine.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAEngine.dcu new file mode 100644 index 00000000..7d152d6c Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAEngine.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAExpressionEvaluator.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAExpressionEvaluator.dcu new file mode 100644 index 00000000..53874530 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAExpressionEvaluator.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAHelpers.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAHelpers.dcu new file mode 100644 index 00000000..a6ecdfe9 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAHelpers.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAInterfaces.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAInterfaces.dcu new file mode 100644 index 00000000..62310b98 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAInterfaces.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAInterfacesEx.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAInterfacesEx.dcu new file mode 100644 index 00000000..6fb0b802 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAInterfacesEx.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAMacroProcessors.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAMacroProcessors.dcu new file mode 100644 index 00000000..48971cb1 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAMacroProcessors.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAMacros.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAMacros.dcu new file mode 100644 index 00000000..98ecbcc2 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAMacros.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAMemDataTable.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAMemDataTable.dcu new file mode 100644 index 00000000..13659cb6 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAMemDataTable.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAMemDataset.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAMemDataset.dcu new file mode 100644 index 00000000..02551710 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAMemDataset.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAOracleInterfaces.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAOracleInterfaces.dcu new file mode 100644 index 00000000..fe059995 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAOracleInterfaces.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDARegExpr.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDARegExpr.dcu new file mode 100644 index 00000000..5ab4c1cf Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDARegExpr.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDARes.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDARes.dcu new file mode 100644 index 00000000..e6f7baee Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDARes.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDASQL92Interfaces.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDASQL92Interfaces.dcu new file mode 100644 index 00000000..5134f324 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDASQL92Interfaces.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDASQL92QueryBuilder.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDASQL92QueryBuilder.dcu new file mode 100644 index 00000000..15c1a2fa Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDASQL92QueryBuilder.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAScriptingProvider.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAScriptingProvider.dcu new file mode 100644 index 00000000..d6db2ac2 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAScriptingProvider.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDASupportClasses.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDASupportClasses.dcu new file mode 100644 index 00000000..ec3116ee Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDASupportClasses.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAUtils.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAUtils.dcu new file mode 100644 index 00000000..6edb90fd Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAUtils.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAWhere.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAWhere.dcu new file mode 100644 index 00000000..b90f9b15 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAWhere.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDAXMLUtils.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDAXMLUtils.dcu new file mode 100644 index 00000000..22e2368e Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDAXMLUtils.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.dcu new file mode 100644 index 00000000..918515fd Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas new file mode 100644 index 00000000..bcb32a3d --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas @@ -0,0 +1,147 @@ +unit uDetallesPedidoProveedorController; + +interface + +uses + uDADataTable, uControllerDetallesArticulos, uBizDetallesPedidoProveedor, uIDataModulePedidosProveedor, + uBizArticulos, uBizContactos; + +type + IDetallesPedidoProveedorController = interface(IControllerDetallesArticulos) + ['{942428EC-BCB8-4C56-BFA6-EB9F05D5E0DB}'] + procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; + procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; + function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend; + procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); + function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; + end; + + TDetallesPedidoProveedorController = class(TControllerDetallesArticulos, IDetallesPedidoProveedorController) + private + FDataModule : IDataModulePedidosProveedor; + protected + procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override; + procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override; + + procedure AsignarController; override; + //Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto + function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; override; + procedure ValidarCampos(DataTable: TDADataTable); override; + + procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); + function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; + + public + procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; + procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload; + function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend; + constructor Create; override; + destructor Destroy; override; + end; + +implementation + +uses Variants, uControllerDetallesBase, uDataModulePedidosProveedor, + uCalculosUtils, schArticulosClient_Intf, uArticulosPedidoProveedorController; + +{ TDetallesPedidoProveedorController } + +procedure TDetallesPedidoProveedorController.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); +var + AArticulos : IBizArticulo; +begin + if Assigned(ADetalles) then + begin + try + AArticulos := (FArticulosController.BuscarTodos(AProveedor) as IBizArticulo); + ActualizarDetalles(ADetalles, AArticulos); + EliminarArticulosProveedor(ADetalles); + finally + AArticulos := Nil; + end; + end; +end; + +procedure TDetallesPedidoProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); +var + AArticulos: IBizArticulo; +begin + if Assigned(ADetalles) then + begin + try + AArticulos := (FArticulosController.BuscarTodos as IBizArticulo); + AArticulos := (FArticulosController as IArticulosPedidoProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este pedido a proveedor', True, AProveedor); + Add(ADetalles, AArticulos); + finally + AArticulos := Nil; + end; + end; +end; + +function TDetallesPedidoProveedorController.ArticulosPendientes(const ID: Integer): IBizDetallesPedidoProveedorPend; +begin + Result := FDataModule.GetArticulosPendientes(ID); +end; + +procedure TDetallesPedidoProveedorController.AsignarController; +begin + FArticulosController := TArticulosPedidoProveedorController.Create; +end; + +function TDetallesPedidoProveedorController.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; +begin + Result := CalcularLineaConcepto(DataTable); +end; + +constructor TDetallesPedidoProveedorController.Create; +begin + inherited; + FDataModule := TDataModulePedidosProveedor.Create(Nil); +end; + +function TDetallesPedidoProveedorController.DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double; +begin + Result := DarTotalPorte(ADetalles); +end; + +procedure TDetallesPedidoProveedorController.DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable); +begin + DesglosarPorte(ImportePorte, ADetalles); + ActualizarTotales(ADetalles); +end; + +destructor TDetallesPedidoProveedorController.Destroy; +begin + FDataModule := Nil; + inherited; +end; + +procedure TDetallesPedidoProveedorController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); +begin + if Assigned(AArticulos) then + ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO + else + ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0; +end; + +procedure TDetallesPedidoProveedorController.ValidarCampos(DataTable: TDADataTable); +begin + inherited; + ValidarCamposLineaConcepto(DataTable); +end; + +procedure TDetallesPedidoProveedorController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); +begin + if Assigned(AArticulos) then + begin + ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE; + ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_PORTE).AsVariant := AArticulos.PRECIO_PORTE; + end + else + begin + ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; + ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_PORTE).AsVariant := Null; + end; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uIEditorDireccionEntregaPedidoProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorDireccionEntregaPedidoProveedor.dcu new file mode 100644 index 00000000..9f336269 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorDireccionEntregaPedidoProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uIEditorElegirArticulosPedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorElegirArticulosPedidosProveedor.dcu new file mode 100644 index 00000000..591c5f2a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorElegirArticulosPedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uIEditorElegirPedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorElegirPedidosProveedor.dcu new file mode 100644 index 00000000..40ea1698 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorElegirPedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uIEditorPedidoProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorPedidoProveedor.dcu new file mode 100644 index 00000000..15c7dc38 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorPedidoProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uIEditorPedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorPedidosProveedor.dcu new file mode 100644 index 00000000..0f03de9f Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorPedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uIEditorPedidosProveedorPreview.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorPedidosProveedorPreview.dcu new file mode 100644 index 00000000..9393a8ae Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorPedidosProveedorPreview.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uIEditorSituacionPedidoProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorSituacionPedidoProveedor.dcu new file mode 100644 index 00000000..fe0a55ec Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uIEditorSituacionPedidoProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.dcu new file mode 100644 index 00000000..fdac6164 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas new file mode 100644 index 00000000..61c2a4ef --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas @@ -0,0 +1,781 @@ +unit uPedidosProveedorController; + +interface + + +uses + SysUtils, uDADataTable, + uControllerBase, uIDataModulePedidosProveedor, uProveedoresController, + uDetallesPedidoProveedorController, uBizPedidosProveedor; + +type + IPedidosProveedorController = interface(IObservador) + ['{404FFA2F-D683-447D-91E6-C9A7322934D8}'] + function GetProveedorController: IProveedoresController; + procedure SetProveedorController(const Value: IProveedoresController); + property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController; + + function GetDetallesController: IDetallesPedidoProveedorController; + procedure SetDetallesController(const Value: IDetallesPedidoProveedorController); + property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController; + + function Buscar(const ID: Integer): IBizPedidoProveedor; + function BuscarTodos: IBizPedidoProveedor; + function BuscarPendientesRecepcion: IBizPedidoProveedor; + procedure Ver(APedido : IBizPedidoProveedor); + procedure VerTodos(APedidos: IBizPedidoProveedor); + procedure VerDireccionEntrega(APedido : IBizPedidoProveedor); + function Nuevo : IBizPedidoProveedor; + procedure Anadir(APedido : IBizPedidoProveedor); + function Eliminar(const ID : Integer): Boolean; overload; + function Eliminar(APedido : IBizPedidoProveedor; AllItems: Boolean = false): Boolean; overload; + function Guardar(APedido : IBizPedidoProveedor): Boolean; + procedure DescartarCambios(APedido : IBizPedidoProveedor); + function Existe(const ID: Integer) : Boolean; + function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor; + + procedure Preview(APedido : IBizPedidoProveedor; AllItems: Boolean = false); + procedure Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false); + + procedure RecalcularImportes(APedido: IBizPedidoProveedor); + function EsModificable(APedido : IBizPedidoProveedor): Boolean; + function EsEliminable(APedido : IBizPedidoProveedor): Boolean; + + function CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion : String; AFechaPagado: TDateTime = 0; DoPost : Boolean = True): Boolean; overload; + function CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; overload; + + function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor; + function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor; + procedure RecuperarProveedor(APedido: IBizPedidoProveedor); + + end; + + TPedidosProveedorController = class(TObservador, IPedidosProveedorController) + protected + FDataModule : IDataModulePedidosProveedor; + FProveedorController : IProveedoresController; + FDetallesController : IDetallesPedidoProveedorController; + + function GetProveedorController: IProveedoresController; + procedure SetProveedorController(const Value: IProveedoresController); + procedure RecuperarProveedor(APedido : IBizPedidoProveedor); + function GetDetallesController: IDetallesPedidoProveedorController; + procedure SetDetallesController(const Value: IDetallesPedidoProveedorController); + + //Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de + //este controller + procedure AsignarDataModule; virtual; + procedure RecuperarObjetos(APedido: IBizPedidoProveedor); virtual; + + function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; + procedure FiltrarEmpresa(APedido: IBizPedidoProveedor); + function _Vacio : IBizPedidoProveedor; + function ValidarPedido(APedido: IBizPedidoProveedor): Boolean; + function ValidarSituacion(ASituacion: String; AFechaPedido: TDateTime; + var AFechaRecepcion: TDateTime): Boolean; + + public + property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController; + property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController; + procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; + + constructor Create; virtual; + destructor Destroy; override; + + function Eliminar(const ID : Integer): Boolean; overload; + function Eliminar(APedido : IBizPedidoProveedor; AllItems: Boolean = false): Boolean; overload; + function Guardar(APedido : IBizPedidoProveedor): Boolean; + procedure DescartarCambios(APedido : IBizPedidoProveedor); virtual; + function Existe(const ID: Integer) : Boolean; virtual; + procedure Anadir(APedido : IBizPedidoProveedor); + function Buscar(const ID: Integer): IBizPedidoProveedor; + function BuscarTodos: IBizPedidoProveedor; + function BuscarPendientesRecepcion: IBizPedidoProveedor; + function Nuevo : IBizPedidoProveedor; + procedure Ver(APedido : IBizPedidoProveedor); + procedure VerTodos(APedidos: IBizPedidoProveedor); + procedure VerDireccionEntrega(APedido : IBizPedidoProveedor); + function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor; + + procedure Preview(APedido : IBizPedidoProveedor; AllItems: Boolean = false); + procedure Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false); + + procedure RecalcularImportes(APedido: IBizPedidoProveedor); + function EsModificable(APedido : IBizPedidoProveedor): Boolean; + function EsEliminable(APedido : IBizPedidoProveedor): Boolean; + + function CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion : String; AFechaRecepcion: TDateTime = 0; DoPost : Boolean = True): Boolean; overload; + function CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; overload; + + function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor; + function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor; + end; + +implementation + +uses + uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils, + uIEditorPedidosProveedor, uDataModulePedidosProveedor, + uBizDetallesPedidoProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios, + schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController, + uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor, + Dialogs, uIEditorDireccionEntregaPedidoProveedor, Classes, + uIEditorSituacionPedidoProveedor, Variants; + +{ TPedidosProveedorController } + +procedure TPedidosProveedorController.Anadir(APedido: IBizPedidoProveedor); +begin + APedido.Insert; +end; + +procedure TPedidosProveedorController.AsignarDataModule; +begin + FDataModule := TDataModulePedidosProveedor.Create(Nil); +end; + +function TPedidosProveedorController.Buscar(const ID: Integer): IBizPedidoProveedor; +begin + Result := FDataModule.GetItem(ID); + FiltrarEmpresa(Result); +end; + +function TPedidosProveedorController.BuscarPendientesRecepcion: IBizPedidoProveedor; +begin + ShowHourglassCursor; + try + Result := BuscarTodos; + with Result.DataTable.Where do + begin + if NotEmpty then + AddOperator(opAND); + OpenBraket; + AddText(fld_PedidosProveedorSITUACION + ' <> ''' + SITUACION_PEDIDO_RECIBIDO + ''''); + CloseBraket; + end; + finally + HideHourglassCursor; + end; +end; + +function TPedidosProveedorController.BuscarTodos: IBizPedidoProveedor; +begin + Result := FDataModule.GetItems; + FiltrarEmpresa(Result); +end; + +constructor TPedidosProveedorController.Create; +begin + AsignarDataModule; + + FProveedorController := TProveedoresController.Create; + FDetallesController := TDetallesPedidoProveedorController.Create; + FDetallesController.addObservador(Self); +end; + +function TPedidosProveedorController.CreateEditor(const AName: String; + const IID: TGUID; out Intf): Boolean; +begin + Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); +end; + +procedure TPedidosProveedorController.DescartarCambios(APedido: IBizPedidoProveedor); +begin + if not Assigned(APedido) then + raise Exception.Create ('Pedido no asignado'); + + ShowHourglassCursor; + try + if (APedido.State in dsEditModes) then + APedido.Cancel; + + APedido.DataTable.CancelUpdates; + finally + HideHourglassCursor; + end; +end; + +function TPedidosProveedorController.CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion: String; AFechaRecepcion: TDateTime; + DoPost: Boolean): Boolean; +begin + Result := False; + + if not Assigned(APedido) then + raise Exception.Create ('Pedido no asignado (CambiarSituacion)'); + + if not APedido.DataTable.Active then + APedido.DataTable.Active := True; + + // Validar la situación del pedido + if ValidarSituacion(ASituacion, APedido.FECHA_PEDIDO, AFechaRecepcion) then + begin + ShowHourglassCursor; + APedido.DataTable.DisableControls; + try + APedido.Edit; + APedido.SITUACION := ASituacion; + if AFechaRecepcion <> APedido.FECHA_ENTREGA then + APedido.FECHA_ENTREGA := AFechaRecepcion; + APedido.Post; + if DoPost then + Guardar(APedido); + Result := True; + finally + APedido.DataTable.EnableControls; + HideHourglassCursor; + end; + end; +end; + +function TPedidosProveedorController.CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; +var + AEditor : IEditorSituacionPedidoProveedor; +begin + Result := False; + AEditor := NIL; + ShowHourglassCursor; + try + RecuperarProveedor(APedido); + CreateEditor('EditorSituacionPedidoProveedor', IEditorSituacionPedidoProveedor, AEditor); + with AEditor do + begin + Controller := Self; //OJO ORDEN MUY IMPORTANTE + PedidoProveedor := APedido; + end; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + try + AEditor.ShowModal; + AEditor.Release; + Result := True; + finally + AEditor := NIL; + end; +end; + + +destructor TPedidosProveedorController.Destroy; +begin + FDataModule := Nil; + FProveedorController := Nil; + FDetallesController := Nil; + inherited; +end; + +function TPedidosProveedorController.Duplicar( + APedido: IBizPedidoProveedor): IBizPedidoProveedor; +begin + Result := Self._Vacio; + ShowHourglassCursor; + try + DuplicarRegistros(APedido.DataTable, Result.DataTable, mdrActual); + DuplicarRegistros(APedido.Detalles.DataTable, Result.Detalles.DataTable, mdrTodos); + + // Hay que dejar algunos campos como si fuera un presupuesto nuevo + Result.Edit; + with Result do + begin + REFERENCIA := ''; + ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; +// USUARIO := dmUsuarios.LoginInfo.Usuario; + FECHA_PEDIDO := DateOf(Now); + SITUACION := SITUACION_PEDIDO_PENDIENTE; + FECHA_ENVIO := 0; + FECHA_CONFIRMACION := 0; + FECHA_ENTREGA := 0; + INCIDENCIAS_ACTIVAS := 0; +// INCIDENCIAS := Nil; + REF_PED_CLIENTE := ''; + ID_PEDIDO_CLIENTE := 0; + end; + Result.Post; + finally + HideHourglassCursor; + end; +end; + +function TPedidosProveedorController.ValidarPedido( + APedido: IBizPedidoProveedor): Boolean; +begin + Result := False; + + if not Assigned(APedido) then + raise Exception.Create ('Pedido no asignado'); + + if (APedido.DataTable.State in dsEditModes) then + APedido.DataTable.Post; + + //Tambien hacemos post de sus tablas hija + if (APedido.Detalles.DataTable.State in dsEditModes) then + APedido.Detalles.DataTable.Post; + + if (APedido.ID_PROVEEDOR < 0) or + (not Assigned(APedido.Proveedor)) or + (APedido.Proveedor.IsEmpty) then + raise Exception.Create('Debe indicar el proveedor de esta pedido'); + + if (EsFechaVacia(APedido.FECHA_PEDIDO)) then + raise Exception.Create('Debe indicar la fecha de este pedido'); + + if (Length(APedido.CALLE) = 0) and (APedido.ID_ALMACEN = 0) then + raise Exception.Create('Debe indicar una dirección de entrega o almacén para este pedido'); + + if (APedido.Detalles.DataTable.RecordCount = 0) then + raise Exception.Create('Debe indicar al menos un concepto en el contenido del pedido'); + + + { Asegurarse de valores en campos "automáticos" tanto + en MODIFICACIÓN como en INSERCIÓN. } + APedido.Edit; + try +// APedido.USUARIO := dmUsuarios.LoginInfo.Usuario; + + if Assigned(APedido.Proveedor) + and (APedido.ID_PROVEEDOR <> APedido.Proveedor.ID) then + APedido.ID_PROVEEDOR := APedido.Proveedor.ID; + + Result := True; + finally + APedido.Post; + end; +end; + +function TPedidosProveedorController.ValidarSituacion(ASituacion: String; + AFechaPedido: TDateTime; var AFechaRecepcion: TDateTime): Boolean; +begin + Result := False; + if ASituacion = SITUACION_PEDIDO_PENDIENTE then + AFechaRecepcion := 0 + else + if (ASituacion = SITUACION_PEDIDO_PARCIAL) + or (ASituacion = SITUACION_PEDIDO_RECIBIDO) then + begin + if (EsFechaVacia(AFechaRecepcion)) then + raise Exception.Create('Hay que indicar una fecha de recepción') + else if (AFechaRecepcion < AFechaPedido) then + raise Exception.Create('La fecha de recepción debe ser posterior a la fecha del pedido'); + end; + Result := True; +end; +procedure TPedidosProveedorController.Ver(APedido: IBizPedidoProveedor); +var + AEditor : IEditorPedidoProveedor; +begin + AEditor := NIL; + ShowHourglassCursor; + try + RecuperarObjetos(APedido); + CreateEditor('EditorPedidoProveedor', IEditorPedidoProveedor, AEditor); + + if Assigned(AEditor) then + with AEditor do + begin + Controller := Self; //OJO ORDEN MUY IMPORTANTE + Pedido := APedido; + + //MODO CONSULTAR + if not EsModificable(APedido) then + begin + SetDataTableReadOnly(APedido.DataTable, True); + ReadOnly := True; + end; + + ShowModal; + + //MODO CONSULTAR (Se deja la tabla como estaba) + if ReadOnly then + SetDataTableReadOnly(APedido.DataTable, False); + + AEditor.Release; + end; + finally + AEditor := NIL; + HideHourglassCursor; + end; +end; + +procedure TPedidosProveedorController.VerTodos(APedidos: IBizPedidoProveedor); +var + AEditor : IEditorPedidosProveedor; +begin + AEditor := NIL; + ShowHourglassCursor; + try + CreateEditor('EditorPedidosProveedor', IEditorPedidosProveedor, AEditor); + if Assigned(AEditor) then + with AEditor do + begin + Controller := Self; //OJO ORDEN MUY IMPORTANTE + Pedidos := APedidos; + MultiSelect := True; + ShowEmbedded; + end; + finally + AEditor := NIL; + HideHourglassCursor; + end; +end; + +procedure TPedidosProveedorController.VerDireccionEntrega( + APedido: IBizPedidoProveedor); +var + AEditor : IEditorDireccionEntregaPedidoProveedor; +begin + AEditor := NIL; + ShowHourglassCursor; + try + //RecuperarObjetos(APedido); <- No descomentar. No hace falta + CreateEditor('EditorDireccionEntregaPedidoProveedor', IEditorDireccionEntregaPedidoProveedor, AEditor); + + with (AEditor as IEditorDireccionEntregaPedidoProveedor) do + begin + Pedido := APedido; + end; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + try + AEditor.ShowModal; + AEditor.Release; + finally + AEditor := NIL; + end; +end; + +function TPedidosProveedorController._Vacio: IBizPedidoProveedor; +begin + Result := Buscar(ID_NULO); +end; + +function TPedidosProveedorController.Eliminar(const ID: Integer): Boolean; +var + APedido : IBizPedidoProveedor; +begin + APedido := Buscar(ID); + + if not Assigned(APedido) then + raise Exception.Create(Format('No se ha encontrado el pedido con ID = %d', [ID])); + + Result := Eliminar(APedido); + APedido := NIL; +end; + +function TPedidosProveedorController.ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor; +var + AEditor : IEditorElegirPedidosProveedor; +begin + Result := NIL; + + CreateEditor('EditorElegirPedidosProveedor', IEditorElegirPedidosProveedor, AEditor); + try + with AEditor do + begin + Controller := Self; + Pedidos := APedido; + MultiSelect := AMultiSelect; + Mensaje := AMensaje; + if IsPositiveResult(ShowModal) then + Result := PedidosProveedorSeleccionados; + Release; + end; + finally + AEditor := NIL; + end; +end; + +function TPedidosProveedorController.Eliminar(APedido: IBizPedidoProveedor; AllItems: Boolean = false): Boolean; +//En el caso de eliminar almenos un elemento del conjunto se devuelve true +var + bEliminado: Boolean; + +begin + bEliminado := False; + + if not Assigned(APedido) then + raise Exception.Create ('APedido no asignado'); + + ShowHourglassCursor; + try + if not APedido.DataTable.Active then + APedido.DataTable.Active := True; + + if (APedido.State in dsEditModes) then + APedido.Cancel; + + //Siempre eliminaremos el seleccionado + if EsEliminable(APedido) then + begin + APedido.Delete; + bEliminado := True; + end; + + //En el caso de querer eliminar todos los items del objeto AAlbaran + if AllItems then + begin + with APedido.DataTable do + begin + First; + while not EOF do + begin + if EsEliminable(APedido) then + begin + APedido.Delete; + bEliminado := True + end + else Next; + end; + end; + end; + + if bEliminado then + begin + APedido.DataTable.ApplyUpdates; + Result := True; + end + else + Result := False; + + finally + HideHourglassCursor; + end; +end; + +function TPedidosProveedorController.EsEliminable(APedido: IBizPedidoProveedor): Boolean; +begin + if not Assigned(APedido) then + raise Exception.Create ('Pedido no asignado: EsEliminable'); + + Result := (APedido.SITUACION = SITUACION_PEDIDO_PENDIENTE); +end; + +function TPedidosProveedorController.EsModificable(APedido: IBizPedidoProveedor): Boolean; +begin + if not Assigned(APedido) then + raise Exception.Create ('Pedido no asignado: EsModificable'); + + Result := (APedido.SITUACION <> SITUACION_PEDIDO_RECIBIDO); +end; + +procedure TPedidosProveedorController.RecalcularImportes( + APedido: IBizPedidoProveedor); +var + bEnEdicion : Boolean; +begin + if not Assigned(APedido) then + raise Exception.Create ('Pedido no asignado (RecalcularImportes)'); + + if APedido.DataTable.Active then + APedido.DataTable.Active := True; + + bEnEdicion := (APedido.DataTable.State in dsEditModes); + if not bEnEdicion then + APedido.Edit; + + ShowHourglassCursor; + APedido.Edit; + try + APedido.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(APedido.Detalles); + APedido.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(APedido.Detalles); + if not bEnEdicion then + APedido.Post; + finally + HideHourglassCursor; + end; +end; + +procedure TPedidosProveedorController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); +var + APedido : IBizPedidoProveedor; + ADetalles : IBizDetallesPedidoProveedor; +begin + inherited; + + if Supports(ADataTable, IBizDetallesPedidoProveedor, ADetalles) and + Supports(ADetalles.DataTable.MasterSource.DataTable, IBizPedidoProveedor, APedido) then + begin + RecalcularImportes(APedido); + end; +end; + +procedure TPedidosProveedorController.RecuperarObjetos(APedido: IBizPedidoProveedor); +begin + RecuperarProveedor(APedido); +end; + +procedure TPedidosProveedorController.RecuperarProveedor(APedido: IBizPedidoProveedor); +begin + APedido._Proveedor := (FProveedorController.Buscar(APedido.ID_PROVEEDOR) as IBizProveedor); +end; + +function TPedidosProveedorController.Existe(const ID: Integer): Boolean; +var + APedido : IBizPedidoProveedor; +begin + try + APedido := Buscar(ID); + Result := Assigned(APedido) and (APedido.ID = ID); + finally + APedido := NIL; + end; +end; + +function TPedidosProveedorController.ExtraerSeleccionados(APedido: IBizPedidoProveedor): IBizPedidoProveedor; +var + ASeleccionados : IBizPedidoProveedor; +begin + ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoProveedor); + CopyDataTableDA3(APedido.DataTable, ASeleccionados.DataTable, True); + Result := ASeleccionados; +end; + +procedure TPedidosProveedorController.FiltrarEmpresa( + APedido: IBizPedidoProveedor); +begin + if APedido.DataTable.Active then + APedido.DataTable.Active := False; + + // Filtrar los presupuestos actuales por empresa + with APedido.DataTable.Where do + begin + if NotEmpty then + AddOperator(opAND); +// AddCondition(fld_PedidosProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual); + end; +end; + +procedure TPedidosProveedorController.SetProveedorController(const Value: IProveedoresController); +begin + FProveedorController := Value; +end; + +procedure TPedidosProveedorController.SetDetallesController(const Value: IDetallesPedidoProveedorController); +begin + FDetallesController := Value; +end; + +function TPedidosProveedorController.Guardar(APedido: IBizPedidoProveedor): Boolean; +var + IDNuevo : Integer; +begin + Result := False; + + if not Assigned(APedido) then + raise Exception.Create ('Pedido no asignada'); + + if not Assigned(FDetallesController) then + raise Exception.Create ('Controller detalles no asignado'); + + if ValidarPedido(APedido) then + begin + ShowHourglassCursor; + + // Asegurarnos de que todos los importes están bien. + RecalcularImportes(APedido); + + try + APedido.DataTable.ApplyUpdates; + + Result := True; + finally + HideHourglassCursor; + end; + end; +end; + +function TPedidosProveedorController.Nuevo: IBizPedidoProveedor; +var + APedido : IBizPedidoProveedor; +begin + APedido := FDataModule.NewItem; + FiltrarEmpresa(APedido); + APedido.DataTable.Active := True; + APedido.Insert; + Result := APedido; +end; + +procedure TPedidosProveedorController.Preview(APedido: IBizPedidoProveedor; AllItems: Boolean = false); +var + AReportController : IPedidosProveedorReportController; + ID_Pedidos: TStringList; + +begin + AReportController := TPedidosProveedorReportController.Create; + try + ID_Pedidos := TStringList.Create; + + //Si deseamos previsualizar todos los items del objeto albaran + if AllItems then + begin + with APedido.DataTable do + begin + First; + while not EOF do + begin + ID_Pedidos.Add(IntToStr(APedido.ID)); + Next; + end; + end; + end + //Solo previsualizamos el item seleccionado + else + ID_Pedidos.Add(IntToStr(APedido.ID)); + + AReportController.Preview(ID_Pedidos.CommaText); + + finally + AReportController := NIL; + ID_Pedidos.Free; + end; +end; + +procedure TPedidosProveedorController.Print(APedido: IBizPedidoProveedor; AllItems: Boolean = false); +var + AReportController : IPedidosProveedorReportController; + ID_Pedidos: TStringList; + +begin + AReportController := TPedidosProveedorReportController.Create; + try + ID_Pedidos := TStringList.Create; + + //Si deseamos previsualizar todos los items del objeto albaran + if AllItems then + begin + with APedido.DataTable do + begin + First; + while not EOF do + begin + ID_Pedidos.Add(IntToStr(APedido.ID)); + Next; + end; + end; + end + //Solo previsualizamos el item seleccionado + else + ID_Pedidos.Add(IntToStr(APedido.ID)); + + AReportController.Print(ID_Pedidos.CommaText); + + finally + AReportController := NIL; + ID_Pedidos.Free; + end; +end; + +function TPedidosProveedorController.GetProveedorController: IProveedoresController; +begin + Result := FProveedorController; +end; + +function TPedidosProveedorController.GetDetallesController: IDetallesPedidoProveedorController; +begin + Result := FDetallesController; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.dcu new file mode 100644 index 00000000..9b3d951e Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas new file mode 100644 index 00000000..56cca5ac --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas @@ -0,0 +1,104 @@ +unit uPedidosProveedorReportController; + +interface + +uses + Classes, SysUtils, uDADataTable, uControllerBase, uIDataModulePedidosProveedorReport, + uClientesController, uPedidosProveedorController, uDetallesPedidoProveedorController, + uBizPedidosProveedor; + +type + IPedidosProveedorReportController = interface + ['{D0686358-251C-43C4-9927-6112F2F4D3B8}'] + procedure Preview(const AID : String); + procedure Print(const AID : String); + end; + + TPedidosProveedorReportController = class(TInterfacedObject, IPedidosProveedorReportController) + private + FDataModule : IDataModulePedidosProveedorReport; + function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; + public + constructor Create; + destructor Destroy; override; + + procedure Preview(const AID : String); + procedure Print(const AID : String); + end; + + +implementation + +uses + uROTypes, uEditorRegistryUtils, uIEditorPedidosProveedorPreview, + uEditorPreview, uDataModulePedidosProveedor, uEditorBase, cxControls; + +{ TPedidosProveedorReportController } + +constructor TPedidosProveedorReportController.Create; +begin + FDataModule := TDataModulePedidosProveedor.Create(Nil); +end; + +function TPedidosProveedorReportController.CreateEditor(const AName: String; + const IID: TGUID; out Intf): Boolean; +begin + Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); +end; + + +destructor TPedidosProveedorReportController.Destroy; +begin + FDataModule := NIL; + inherited; +end; + +procedure TPedidosProveedorReportController.Preview(const AID : String); +var + AStream: Binary; + AEditor : IEditorPedidosProveedorPreview; +begin + AEditor := NIL; + + ShowHourglassCursor; + try + AStream := FDataModule.GetReport(AID); + try + CreateEditor('EditorPedidosProveedorPreview', IEditorPedidosProveedorPreview, AEditor); + AEditor.LoadFromStream(AStream); + finally + AStream.Free; + end; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + AEditor.Preview; +end; + +procedure TPedidosProveedorReportController.Print(const AID : String); +var + AStream: Binary; + AEditor : IEditorPedidosProveedorPreview; +begin + AEditor := NIL; + + ShowHourglassCursor; + try + AStream := FDataModule.GetReport(AID); + try + CreateEditor('EditorPedidosProveedorPreview', IEditorPedidosProveedorPreview, AEditor); + AEditor.LoadFromStream(AStream); + finally + AStream.Free; + end; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + AEditor.Print +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROBinaryHelpers.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROBinaryHelpers.dcu new file mode 100644 index 00000000..51837ca8 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROBinaryHelpers.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROCipher.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROCipher.dcu new file mode 100644 index 00000000..58452bd7 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROCipher.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROCiphers.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROCiphers.dcu new file mode 100644 index 00000000..48b93075 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROCiphers.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROClasses.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROClasses.dcu new file mode 100644 index 00000000..c18f65e5 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROClasses.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROClient.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROClient.dcu new file mode 100644 index 00000000..5a4a982e Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROClient.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROClientIntf.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROClientIntf.dcu new file mode 100644 index 00000000..1844fb38 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROClientIntf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROCompression.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROCompression.dcu new file mode 100644 index 00000000..ca782922 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROCompression.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uRODECConst.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uRODECConst.dcu new file mode 100644 index 00000000..9d48ab32 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uRODECConst.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uRODECUtil.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uRODECUtil.dcu new file mode 100644 index 00000000..fb1ee03c Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uRODECUtil.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uRODL.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uRODL.dcu new file mode 100644 index 00000000..2456f252 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uRODL.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uRODLToXML.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uRODLToXML.dcu new file mode 100644 index 00000000..b74cdfcf Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uRODLToXML.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uRODynamicRequest.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uRODynamicRequest.dcu new file mode 100644 index 00000000..8f3e6586 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uRODynamicRequest.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROEncryption.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROEncryption.dcu new file mode 100644 index 00000000..064a56aa Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROEncryption.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROEventRepository.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROEventRepository.dcu new file mode 100644 index 00000000..9bc8c07c Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROEventRepository.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROHTTPTools.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROHTTPTools.dcu new file mode 100644 index 00000000..be473a06 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROHTTPTools.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROHash.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROHash.dcu new file mode 100644 index 00000000..c55e9791 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROHash.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROMSXML2_TLB.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROMSXML2_TLB.dcu new file mode 100644 index 00000000..9bb007e9 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROMSXML2_TLB.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROMSXMLImpl.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROMSXMLImpl.dcu new file mode 100644 index 00000000..0bea22f3 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROMSXMLImpl.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uRORemoteService.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uRORemoteService.dcu new file mode 100644 index 00000000..86b3b58a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uRORemoteService.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uRORes.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uRORes.dcu new file mode 100644 index 00000000..10e0d401 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uRORes.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROSerializer.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROSerializer.dcu new file mode 100644 index 00000000..5c4c0f33 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROSerializer.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROServerIntf.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROServerIntf.dcu new file mode 100644 index 00000000..cd4f0b62 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROServerIntf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROSessions.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROSessions.dcu new file mode 100644 index 00000000..656ce7b7 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROSessions.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROTypes.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROTypes.dcu new file mode 100644 index 00000000..438f7aa3 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROTypes.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROXMLIntf.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROXMLIntf.dcu new file mode 100644 index 00000000..d59d246a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROXMLIntf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uROZLib.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uROZLib.dcu new file mode 100644 index 00000000..4be830ee Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uROZLib.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uroCipher1.dcu b/Source/Modulos/Pedidos a proveedor/Controller/uroCipher1.dcu new file mode 100644 index 00000000..b9309c65 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Controller/uroCipher1.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.bdsproj b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.bdsproj new file mode 100644 index 00000000..4c610fd0 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.bdsproj @@ -0,0 +1,492 @@ + + + + + + + + + + + + PedidosProveedor_data.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dcu b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dcu new file mode 100644 index 00000000..0d59026a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dpk b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dpk new file mode 100644 index 00000000..148dcb1e --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dpk @@ -0,0 +1,34 @@ +package PedidosProveedor_data; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} + +requires + Base, + PedidosProveedor_model; + +contains + uDataModulePedidosProveedor in 'uDataModulePedidosProveedor.pas' {DataModulePedidosProveedor}; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj new file mode 100644 index 00000000..91f42830 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj @@ -0,0 +1,581 @@ + + + {38eef566-1895-4bdd-8007-f92f5e32cce6} + PedidosProveedor_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\PedidosProveedor_data.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + PedidosProveedor_data.dpk + + + + + + + MainSource + + + + +
DataModulePedidosProveedor
+ + + + + diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.drc b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.drc new file mode 100644 index 00000000..9bb0a180 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.drc @@ -0,0 +1,17 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Data\uDataModulePedidosProveedor.DFM */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.drf */ diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.identcache b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.identcache new file mode 100644 index 00000000..0218bdb3 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.identcache differ diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.rc b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.res b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.res differ diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dcu new file mode 100644 index 00000000..a8e595b9 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm new file mode 100644 index 00000000..e3a818b0 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm @@ -0,0 +1,413 @@ +inherited DataModulePedidosProveedor: TDataModulePedidosProveedor + OnCreate = DAClientDataModuleCreate + Height = 261 + Width = 781 + object RORemoteService: TRORemoteService + Message = dmConexion.ROMessage + Channel = dmConexion.ROChannel + ServiceName = 'srvPedidosProveedor' + Left = 40 + Top = 32 + end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 40 + Top = 84 + end + object rda_PedidosProveedor: TDARemoteDataAdapter + GetSchemaCall.RemoteService = RORemoteService + GetDataCall.RemoteService = RORemoteService + UpdateDataCall.RemoteService = RORemoteService + GetScriptsCall.RemoteService = RORemoteService + RemoteService = RORemoteService + DataStreamer = Bin2DataStreamer + Left = 43 + Top = 151 + end + object tbl_PedidosProveedor: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_PEDIDOS_PROV_ID' + Required = True + DictionaryEntry = 'PedidosProveedor_ID' + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_EMPRESA' + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + DisplayLabel = 'PedidosProveedor_ID_PROVEEDOR' + DictionaryEntry = 'PedidosProveedor_ID_PROVEEDOR' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + DisplayLabel = 'Nombre del proveedor' + DictionaryEntry = 'PedidosProveedor_NOMBRE' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + ServerAutoRefresh = True + end + item + Name = 'SITUACION' + DataType = datString + Size = 255 + DisplayLabel = 'Situaci'#195#179'n' + DictionaryEntry = 'PedidosProveedor_SITUACION' + end + item + Name = 'FECHA_ENVIO' + DataType = datDateTime + DisplayLabel = #194#191'Enviado?' + DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO' + end + item + Name = 'FECHA_PEDIDO' + DataType = datDateTime + DisplayLabel = 'Fecha pedido' + DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO' + end + item + Name = 'FECHA_CONFIRMACION' + DataType = datDateTime + DisplayLabel = #194#191'Confirmado?' + DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION' + end + item + Name = 'FECHA_ENTREGA' + DataType = datDateTime + DisplayLabel = 'Entrega prevista' + DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA' + end + item + Name = 'ID_ALMACEN' + DataType = datInteger + DisplayLabel = 'PedidosProveedor_ID_ALMACEN' + DictionaryEntry = 'PedidosProveedor_ID_ALMACEN' + end + item + Name = 'NOMBRE_ALMACEN' + DataType = datString + Size = 255 + DisplayLabel = 'Almac'#195#169'n' + DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN' + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + DisplayLabel = 'Observaciones' + DictionaryEntry = 'PedidosProveedor_OBSERVACIONES' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL' + end + item + Name = 'INCIDENCIAS' + DataType = datMemo + DictionaryEntry = 'PedidosProveedor_INCIDENCIAS' + end + item + Name = 'INCIDENCIAS_ACTIVAS' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS' + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + DisplayLabel = 'Calle' + DictionaryEntry = 'PedidosProveedor_CALLE' + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + DisplayLabel = 'Poblaci'#195#179'n' + DictionaryEntry = 'PedidosProveedor_POBLACION' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + DisplayLabel = 'Provincia' + DictionaryEntry = 'PedidosProveedor_PROVINCIA' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + DisplayLabel = 'C'#195#179'd. postal' + DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL' + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + DisplayLabel = 'Persona de contacto' + DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO' + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + DisplayLabel = 'Tel'#195#169'fono' + DictionaryEntry = 'PedidosProveedor_TELEFONO' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_ALTA' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION' + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DictionaryEntry = 'PedidosProveedor_USUARIO' + end + item + Name = 'ID_PEDIDO_CLIENTE' + DataType = datInteger + DisplayLabel = 'PedidosProveedor_ID_PEDIDO_CLIENTE' + DictionaryEntry = 'PedidosProveedor_ID_PEDIDO_CLIENTE' + end + item + Name = 'REF_PED_CLIENTE' + DataType = datString + Size = 255 + DisplayLabel = 'PedidosProveedor_REF_PED_CLIENTE' + DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE' + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + DisplayLabel = 'Importe neto' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO' + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + DisplayLabel = 'Importe del porte' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE' + end + item + Name = 'DESCUENTO' + DataType = datFloat + DisplayLabel = 'Descuento' + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_DESCUENTO' + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + DisplayLabel = 'Importe dto.' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO' + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + DisplayLabel = 'Base imponible' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE' + end + item + Name = 'IVA' + DataType = datFloat + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IVA' + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + DisplayLabel = 'Importe IVA' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA' + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO' + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_PedidosProveedor + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'PedidosProveedor' + IndexDefs = <> + Left = 160 + Top = 88 + end + object ds_PedidosProveedor: TDADataSource + DataSet = tbl_PedidosProveedor.Dataset + DataTable = tbl_PedidosProveedor + Left = 160 + Top = 32 + end + object tbl_PedidosProveedor_Articulos_Pendientes: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID_PEDIDO' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + DisplayLabel = 'Referencia' + DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA' + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO' + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO' + end + item + Name = 'CANTIDAD' + DataType = datInteger + Alignment = taRightJustify + DictionaryEntry = 'CANTIDAD' + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DisplayLabel = 'Ref. proveedor' + DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR' + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_PedidosProveedor + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'PedidosProveedor_Articulos_Pendientes' + IndexDefs = <> + Left = 480 + Top = 88 + end + object ds_PedidosProveedor_Articulos_Pendientes: TDADataSource + DataSet = tbl_PedidosProveedor_Articulos_Pendientes.Dataset + DataTable = tbl_PedidosProveedor_Articulos_Pendientes + Left = 472 + Top = 32 + end + object tbl_PedidosProveedor_Detalles: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + Required = True + InPrimaryKey = True + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + end + item + Name = 'POSICION' + DataType = datInteger + DictionaryEntry = 'POSICIONCONCEPTO' + end + item + Name = 'TIPO_DETALLE' + DataType = datString + Size = 10 + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + end + item + Name = 'CANTIDAD' + DataType = datInteger + Alignment = taRightJustify + DictionaryEntry = 'CANTIDAD' + end + item + Name = 'IMPORTE_UNIDAD' + DataType = datCurrency + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end + item + Name = 'VISIBLE' + DataType = datSmallInt + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + end + item + Name = 'DESCUENTO' + DataType = datFloat + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + end> + Params = <> + MasterMappingMode = mmWhere + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_PedidosProveedor + MasterSource = ds_PedidosProveedor + MasterFields = 'ID' + DetailFields = 'ID_PEDIDO' + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'PedidosProveedor_Detalles' + IndexDefs = <> + Left = 296 + Top = 88 + end + object ds_PedidosProveedor_Detalles: TDADataSource + DataSet = tbl_PedidosProveedor_Detalles.Dataset + DataTable = tbl_PedidosProveedor_Detalles + Left = 296 + Top = 32 + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm.bak b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm.bak new file mode 100644 index 00000000..dea511f3 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm.bak @@ -0,0 +1,1083 @@ +object DataModulePedidosProveedor: TDataModulePedidosProveedor + OldCreateOrder = True + OnCreate = DAClientDataModuleCreate + RemoteService = RORemoteService + Adapter = DABinAdapter + SchemaCall.MethodName = 'GetSchemaAsXML' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + end> + Height = 373 + Width = 518 + object ROChannel: TROWinInetHTTPChannel + ServerLocators = <> + DispatchOptions = [] + ProbeServers = False + ProbeFrequency = 60000 + UserAgent = 'RemObjects SDK' + TargetURL = 'http://localhost:8099/bin' + Left = 40 + Top = 8 + end + object ROMessage: TROBinMessage + Left = 40 + Top = 60 + end + object RORemoteService: TRORemoteService + ServiceName = 'srvPedidosProveedor' + Message = ROMessage + Channel = ROChannel + Left = 40 + Top = 112 + end + object DABinAdapter: TDABINAdapter + Left = 40 + Top = 168 + end + object tbl_PedidosProveedor: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datAutoInc + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_ID' + InPrimaryKey = True + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_ID_EMPRESA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PedidosProveedor_ID_PROVEEDOR' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_ID_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Nombre del proveedor' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_NOMBRE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + ServerAutoRefresh = True + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SITUACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Situaci'#243'n' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_SITUACION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_ENVIO' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = #191'Enviado?' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_PEDIDO' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Fecha pedido' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_CONFIRMACION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = #191'Confirmado?' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_ENTREGA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Entrega prevista' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_ALMACEN' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PedidosProveedor_ID_ALMACEN' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_ID_ALMACEN' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_ALMACEN' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Almac'#233'n' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Observaciones' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_OBSERVACIONES' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe total' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'INCIDENCIAS' + DataType = datMemo + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_INCIDENCIAS' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'INCIDENCIAS_ACTIVAS' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Calle' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_CALLE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Poblaci'#243'n' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_POBLACION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Provincia' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_PROVINCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'C'#243'd. postal' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Persona de contacto' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Tel'#233'fono' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_TELEFONO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_FECHA_ALTA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_USUARIO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_PEDIDO_CLIENTE' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PedidosProveedor_ID_PEDIDO_CLIENTE' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_ID_PEDIDO_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REF_PED_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PedidosProveedor_REF_PED_CLIENTE' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe neto' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe del porte' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCUENTO' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Descuento' + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_DESCUENTO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe dto.' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Base imponible' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IVA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IVA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe IVA' + Alignment = taRightJustify + DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + Params = <> + MasterMappingMode = mmDataRequest + StreamingOptions = [soDisableEventsWhileStreaming] + SchemaCall.MethodName = 'GetDatasetSchema' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'aDatasetName' + ParamType = fIn + DataType = rtString + Value = 'PedidosProveedor' + end> + DataRequestCall.MethodName = 'GetDatasetDataEx' + DataRequestCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'DatasetName' + ParamType = fIn + DataType = rtString + Value = 'PedidosProveedor' + end + item + Name = 'Params' + ParamType = fIn + DataType = rtUserDefined + UserClassName = 'TDADatasetParamArray' + end + item + Name = 'UserFilter' + ParamType = fIn + DataType = rtString + Value = '' + end + item + Name = 'IncludeSchema' + ParamType = fIn + DataType = rtBoolean + Value = False + end + item + Name = 'MaxRecords' + ParamType = fIn + DataType = rtInteger + Value = -1 + end> + DataUpdateCall.MethodName = 'UpdateData' + DataUpdateCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'Delta' + ParamType = fIn + DataType = rtBinary + end> + ScriptCall.MethodName = 'GetDatasetScripts' + ScriptCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + Value = '' + end + item + Name = 'DatasetNames' + ParamType = fIn + DataType = rtString + Value = 'PedidosProveedor' + end> + ReadOnly = False + RemoteService = RORemoteService + Adapter = DABinAdapter + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'PedidosProveedor' + IndexDefs = <> + Left = 224 + Top = 96 + end + object ds_PedidosProveedor: TDADataSource + DataTable = tbl_PedidosProveedor + Left = 224 + Top = 40 + end + object tbl_PedidosProveedor_Detalles: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + Required = True + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = True + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POSICION' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'POSICIONCONCEPTO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TIPO_DETALLE' + DataType = datString + Size = 10 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CANTIDAD' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taRightJustify + DictionaryEntry = 'CANTIDAD' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_UNIDAD' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCUENTO' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_PORTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'VISIBLE' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + Params = < + item + Name = 'ID_PEDIDO' + DataType = datInteger + BlobType = dabtUnknown + Value = 23 + ParamType = daptInput + end> + MasterMappingMode = mmParams + MasterParamsMappings.Strings = ( + 'ID_PEDIDO=ID') + StreamingOptions = [soDisableEventsWhileStreaming] + SchemaCall.MethodName = 'GetDatasetSchema' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'aDatasetName' + ParamType = fIn + DataType = rtString + Value = 'PedidosProveedor_Detalles' + end> + DataRequestCall.MethodName = 'GetDatasetDataEx' + DataRequestCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'DatasetName' + ParamType = fIn + DataType = rtString + Value = 'PedidosProveedor_Detalles' + end + item + Name = 'Params' + ParamType = fIn + DataType = rtUserDefined + UserClassName = 'TDADatasetParamArray' + end + item + Name = 'UserFilter' + ParamType = fIn + DataType = rtString + Value = '' + end + item + Name = 'IncludeSchema' + ParamType = fIn + DataType = rtBoolean + Value = False + end + item + Name = 'MaxRecords' + ParamType = fIn + DataType = rtInteger + Value = -1 + end> + DataUpdateCall.MethodName = 'UpdateData' + DataUpdateCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'Delta' + ParamType = fIn + DataType = rtBinary + end> + ScriptCall.MethodName = 'GetDatasetScripts' + ScriptCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + Value = '' + end + item + Name = 'DatasetNames' + ParamType = fIn + DataType = rtString + Value = 'PedidosProveedor_Detalles' + end> + ReadOnly = False + RemoteService = RORemoteService + Adapter = DABinAdapter + MasterSource = ds_PedidosProveedor + MasterFields = 'ID' + DetailFields = 'ID_PEDIDO' + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'PedidosProveedor_Detalles' + IndexDefs = <> + Left = 376 + Top = 96 + end + object ds_PedidosProveedor_Detalles: TDADataSource + DataTable = tbl_PedidosProveedor_Detalles + Left = 376 + Top = 40 + end + object DADesigntimeCall1: TDADesigntimeCall + RemoteRequest.MethodName = 'Login' + RemoteRequest.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBoolean + end + item + Name = 'User' + ParamType = fIn + DataType = rtString + Value = 'Administrador' + end + item + Name = 'Password' + ParamType = fIn + DataType = rtString + Value = '1' + end + item + Name = 'LoginInfo' + ParamType = fOut + DataType = rtUserDefined + UserClassName = 'TRdxLoginInfo' + end> + RemoteService = LoginRemoteService + Left = 40 + Top = 240 + end + object LoginRemoteService: TRORemoteService + ServiceName = 'srvLogin' + Message = ROMessage + Channel = ROChannel + Left = 40 + Top = 296 + end + object tbl_PedidosProveedor_Articulos_Pendientes: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID_PEDIDO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Referencia' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CANTIDAD' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taRightJustify + DictionaryEntry = 'CANTIDAD' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. proveedor' + Alignment = taLeftJustify + DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + Params = < + item + Name = 'ID' + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + MasterMappingMode = mmDataRequest + StreamingOptions = [soDisableEventsWhileStreaming] + SchemaCall.MethodName = 'GetDatasetSchema' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'aDatasetName' + ParamType = fIn + DataType = rtString + Value = 'PedidosProveedor_Articulos_Pendientes' + end> + DataRequestCall.MethodName = 'GetDatasetDataEx' + DataRequestCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'DatasetName' + ParamType = fIn + DataType = rtString + Value = 'PedidosProveedor_Articulos_Pendientes' + end + item + Name = 'Params' + ParamType = fIn + DataType = rtUserDefined + UserClassName = 'TDADatasetParamArray' + end + item + Name = 'UserFilter' + ParamType = fIn + DataType = rtString + Value = '' + end + item + Name = 'IncludeSchema' + ParamType = fIn + DataType = rtBoolean + Value = False + end + item + Name = 'MaxRecords' + ParamType = fIn + DataType = rtInteger + Value = -1 + end> + DataUpdateCall.MethodName = 'UpdateData' + DataUpdateCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'Delta' + ParamType = fIn + DataType = rtBinary + end> + ScriptCall.MethodName = 'GetDatasetScripts' + ScriptCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + Value = '' + end + item + Name = 'DatasetNames' + ParamType = fIn + DataType = rtString + Value = 'PedidosProveedor_Articulos_Pendientes' + end> + ReadOnly = False + RemoteService = RORemoteService + Adapter = DABinAdapter + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'PedidosProveedor_Articulos_Pendientes' + IndexDefs = <> + Left = 312 + Top = 256 + end + object ds_PedidosProveedor_Articulos_Pendientes: TDADataSource + DataTable = tbl_PedidosProveedor_Articulos_Pendientes + Left = 312 + Top = 200 + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas new file mode 100644 index 00000000..d82219df --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas @@ -0,0 +1,156 @@ +unit uDataModulePedidosProveedor; + +interface + +uses + DB, Classes, SysUtils, uDADesigntimeCall, uROServiceComponent, + uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider, + uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter, + + uDAClientDataModule, uROTypes, uDataModuleBase, + uIDataModulePedidosProveedor, uIDataModulePedidosProveedorReport, + uBizPedidosProveedor, uBizDetallesPedidoProveedor, uDARemoteDataAdapter, + uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable; + +type + TDataModulePedidosProveedor = class(TDataModuleBase, IDataModulePedidosProveedor, + IDataModulePedidosProveedorReport) + RORemoteService: TRORemoteService; + Bin2DataStreamer: TDABin2DataStreamer; + rda_PedidosProveedor: TDARemoteDataAdapter; + tbl_PedidosProveedor: TDAMemDataTable; + ds_PedidosProveedor: TDADataSource; + tbl_PedidosProveedor_Articulos_Pendientes: TDAMemDataTable; + ds_PedidosProveedor_Articulos_Pendientes: TDADataSource; + tbl_PedidosProveedor_Detalles: TDAMemDataTable; + ds_PedidosProveedor_Detalles: TDADataSource; + procedure DAClientDataModuleCreate(Sender: TObject); + + private + function _GetDetalles : IBizDetallesPedidoProveedor; + + protected + procedure AsignarClaseNegocio(var APedido: TDAMemDataTable); virtual; + + public + function GetItems : IBizPedidoProveedor; virtual; + function GetItem(const ID : Integer) : IBizPedidoProveedor; + function NewItem : IBizPedidoProveedor; + function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend; + + // Report + function GetReport(const AID: String): Binary; + end; + +implementation + +{$R *.DFM} + +uses + cxControls, FactuGES_Intf, uDataModuleConexion, + uDataTableUtils, schPedidosProveedorClient_Intf, uBizContactos; + +{ TdmPedidosProveedor } + +procedure TDataModulePedidosProveedor.AsignarClaseNegocio(var APedido: TDAMemDataTable); +begin + APedido.BusinessRulesID := BIZ_CLIENT_PEDIDO_PROVEEDOR; +end; + +procedure TDataModulePedidosProveedor.DAClientDataModuleCreate(Sender: TObject); +begin + RORemoteService.Channel := dmConexion.Channel; + RORemoteService.Message := dmConexion.Message; +end; + +function TDataModulePedidosProveedor.GetReport(const AID: String): Binary; +begin +// Result := (RORemoteService as IsrvPedidosProveedor).GenerateReport(AID) +end; + +function TDataModulePedidosProveedor.NewItem: IBizPedidoProveedor; +begin + Result := GetItem(ID_NULO) +end; + +function TDataModulePedidosProveedor._GetDetalles: IBizDetallesPedidoProveedor; +var + ADetalles : TDAMemDataTable; +begin + ShowHourglassCursor; + try + ADetalles := CloneDataTable(tbl_PedidosProveedor_Detalles); + with ADetalles do + begin + BusinessRulesID := BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR; + DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; + end; + Result := (ADetalles as IBizDetallesPedidoProveedor); + finally + HideHourglassCursor; + end; +end; + +function TDataModulePedidosProveedor.GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend; +var + AArticulos : TDAMemDataTable; +begin + ShowHourglassCursor; + try + AArticulos := CloneDataTable(tbl_PedidosProveedor_Articulos_Pendientes); + AArticulos.BusinessRulesID := BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND; + AArticulos.ParamByName('ID').AsInteger := IDPedido; + Result := (AArticulos as IBizDetallesPedidoProveedorPend); + finally + HideHourglassCursor; + end; +end; + +function TDataModulePedidosProveedor.GetItem(const ID: Integer): IBizPedidoProveedor; +var + Condicion: TDAWhereExpression; +begin + ShowHourglassCursor; + try + Result := Self.GetItems; + + with Result.DataTable.DynamicWhere do + begin + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_PedidosProveedorID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + + finally + HideHourglassCursor; + end; +end; + +function TDataModulePedidosProveedor.GetItems: IBizPedidoProveedor; +var + APedido : TDAMemDataTable; +begin + ShowHourglassCursor; + try + APedido := CloneDataTable(tbl_PedidosProveedor); + AsignarClaseNegocio(APedido); + + // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!! + APedido.FieldByName(fld_PedidosProveedorREFERENCIA).ServerAutoRefresh := TRUE; + + with TBizPedidoProveedor(APedido.BusinessEventsObj) do + begin + Detalles := _GetDetalles; + end; + + Result := (APedido as IBizPedidoProveedor); + finally + HideHourglassCursor; + end; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas.bak b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas.bak new file mode 100644 index 00000000..eb72697c --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas.bak @@ -0,0 +1,181 @@ +unit uDataModulePedidosProveedor; + +interface + +uses + DB, Classes, SysUtils, uDADesigntimeCall, uROServiceComponent, + uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider, + uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter, + + uDAClientDataModule, uROTypes, + uIDataModulePedidosProveedor, uIDataModulePedidosProveedorReport, + uBizPedidosProveedor, uBizDetallesPedidoProveedor; + +type + TDataModulePedidosProveedor = class(TDAClientDataModule, IDataModulePedidosProveedor, + IDataModulePedidosProveedorReport) + ROChannel: TROWinInetHTTPChannel; + ROMessage: TROBinMessage; + RORemoteService: TRORemoteService; + DABinAdapter: TDABINAdapter; + tbl_PedidosProveedor: TDACDSDataTable; + ds_PedidosProveedor: TDADataSource; + tbl_PedidosProveedor_Detalles: TDACDSDataTable; + ds_PedidosProveedor_Detalles: TDADataSource; + DADesigntimeCall1: TDADesigntimeCall; + LoginRemoteService: TRORemoteService; + tbl_PedidosProveedor_Articulos_Pendientes: TDACDSDataTable; + ds_PedidosProveedor_Articulos_Pendientes: TDADataSource; + procedure DAClientDataModuleCreate(Sender: TObject); + + private + function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload; + function _GetDetalles : IBizDetallesPedidoProveedor; + + protected + procedure AsignarClaseNegocio(var APedido: TDACDSDataTable); virtual; + + public + function GetItems : IBizPedidoProveedor; virtual; + function GetItem(const ID : Integer) : IBizPedidoProveedor; + function GetNextID(const DataSetName : String) : Integer; + function NewItem : IBizPedidoProveedor; + + function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend; + + // Report + function GetReport(const AID: String): Binary; + end; + +implementation + +{$R *.DFM} + +uses + cxControls, FactuGES_Intf, uDAInterfaces, uDataModuleConexion, + uDataTableUtils, schPedidosProveedorClient_Intf, uBizContactos; + +{ TdmPedidosProveedor } + +procedure TDataModulePedidosProveedor.AsignarClaseNegocio(var APedido: TDACDSDataTable); +begin + APedido.BusinessRulesID := BIZ_CLIENT_PEDIDO_PROVEEDOR; +end; + +procedure TDataModulePedidosProveedor.DAClientDataModuleCreate(Sender: TObject); +begin + RORemoteService.Channel := dmConexion.Channel; + RORemoteService.Message := dmConexion.Message; +end; + +function TDataModulePedidosProveedor.GetNextID(const DataSetName: String): Integer; +var + aGeneratorName : String; +begin + if DataSetName = nme_PedidosProveedor then + aGeneratorName := 'GEN_PEDIDOS_PROV_ID'; + + if DataSetName = nme_PedidosProveedor_Detalles then + aGeneratorName := 'GEN_PEDIDOS_PROV_DETALLES_ID'; + + Result := (RORemoteService as IsrvPedidosProveedor).GetNextAutoInc(aGeneratorName) +end; + +function TDataModulePedidosProveedor.GetReport(const AID: String): Binary; +begin + Result := (RORemoteService as IsrvPedidosProveedor).GenerateReport(AID) +end; + +function TDataModulePedidosProveedor.NewItem: IBizPedidoProveedor; +begin + Result := GetItem(ID_NULO) +end; + +function TDataModulePedidosProveedor._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable; +begin + Result := NIL; + + if not Assigned(ADataTable) then + raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)'); + + Result := TDACDSDataTable.Create(NIL); + CloneDataTable(ADataTable, Result); +end; + +function TDataModulePedidosProveedor._GetDetalles: IBizDetallesPedidoProveedor; +var + ADetalles : TDACDSDataTable; +begin + ShowHourglassCursor; + try + ADetalles := _CloneDataTable(tbl_PedidosProveedor_Detalles); + with ADetalles do + begin + BusinessRulesID := BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR; + DetailOptions := DetailOptions - + [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; + end; + Result := (ADetalles as IBizDetallesPedidoProveedor); + finally + HideHourglassCursor; + end; +end; + +function TDataModulePedidosProveedor.GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend; +var + AArticulos : TDACDSDataTable; +begin + ShowHourglassCursor; + try + AArticulos := _CloneDataTable(tbl_PedidosProveedor_Articulos_Pendientes); + AArticulos.BusinessRulesID := BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND; + AArticulos.ParamByName('ID').AsInteger := IDPedido; + Result := (AArticulos as IBizDetallesPedidoProveedorPend); + finally + HideHourglassCursor; + end; +end; + +function TDataModulePedidosProveedor.GetItem(const ID: Integer): IBizPedidoProveedor; +begin + ShowHourglassCursor; + try + Result := Self.GetItems; + with Result.DataTable.Where do + begin + if NotEmpty then + AddOperator(opAND); + OpenBraket; + AddText(fld_PedidosProveedorID + ' = ' + IntToStr(ID)); + CloseBraket; + end; + finally + HideHourglassCursor; + end; +end; + +function TDataModulePedidosProveedor.GetItems: IBizPedidoProveedor; +var + APedido : TDACDSDataTable; +begin + ShowHourglassCursor; + try + APedido := _CloneDataTable(tbl_PedidosProveedor); + + // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!! + APedido.FieldByName(fld_PedidosProveedorREFERENCIA).ServerAutoRefresh := TRUE; + + AsignarClaseNegocio(APedido); + + with TBizPedidoProveedor(APedido.BusinessEventsObj) do + begin + Detalles := _GetDetalles; + end; + + Result := (APedido as IBizPedidoProveedor); + finally + HideHourglassCursor; + end; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas new file mode 100644 index 00000000..8b1cd535 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas @@ -0,0 +1,19 @@ +unit uIDataModulePedidosProveedor; + +interface + +uses + uBizPedidosProveedor, uBizDetallesPedidoProveedor; + +type + IDataModulePedidosProveedor = interface + ['{280AA760-26CC-4962-AB08-6C473199DF86}'] + function GetItems: IBizPedidoProveedor; + function GetItem(const ID : Integer) : IBizPedidoProveedor; + function NewItem : IBizPedidoProveedor; + function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend; + end; + +implementation + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedorReport.pas b/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedorReport.pas new file mode 100644 index 00000000..d0f80122 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedorReport.pas @@ -0,0 +1,16 @@ +unit uIDataModulePedidosProveedorReport; + +interface + +uses + uROTypes; + +type + IDataModulePedidosProveedorReport = interface + ['{3B7564E3-8DFD-4976-BBE8-6EF13185B209}'] + function GetReport(const AID: String): Binary; + end; + +implementation + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Model/DataAbstract3_Intf.dcu b/Source/Modulos/Pedidos a proveedor/Model/DataAbstract3_Intf.dcu new file mode 100644 index 00000000..96cbe18c Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/DataAbstract3_Intf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/DataAbstract4_Intf.dcu b/Source/Modulos/Pedidos a proveedor/Model/DataAbstract4_Intf.dcu new file mode 100644 index 00000000..7851c544 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/DataAbstract4_Intf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/ModelSupport_PedidosProveedor_model/PedidosProveedor_model.prjconfig b/Source/Modulos/Pedidos a proveedor/Model/ModelSupport_PedidosProveedor_model/PedidosProveedor_model.prjconfig new file mode 100644 index 00000000..c8f28340 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/ModelSupport_PedidosProveedor_model/PedidosProveedor_model.prjconfig @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/Model/ModelSupport_PedidosProveedor_model/default.txaPackage b/Source/Modulos/Pedidos a proveedor/Model/ModelSupport_PedidosProveedor_model/default.txaPackage new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.bdsproj b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.bdsproj new file mode 100644 index 00000000..9029ec0d --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.bdsproj @@ -0,0 +1,497 @@ + + + + + + + + + + + + PedidosProveedor_model.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + EurekaLog 5.1.9 + + + + True + diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dcu b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dcu new file mode 100644 index 00000000..fcaa21ee Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dpk b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dpk new file mode 100644 index 00000000..ea685a37 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dpk @@ -0,0 +1,39 @@ +package PedidosProveedor_model; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} + +requires + Base, + Contactos_model; + +contains + uBizPedidosProveedor in 'uBizPedidosProveedor.pas', + uBizDetallesPedidoProveedor in 'uBizDetallesPedidoProveedor.pas', + uIDataModulePedidosProveedor in 'Data\uIDataModulePedidosProveedor.pas', + uIDataModulePedidosProveedorReport in 'Data\uIDataModulePedidosProveedorReport.pas', + schPedidosProveedorClient_Intf in 'schPedidosProveedorClient_Intf.pas', + schPedidosProveedorServer_Intf in 'schPedidosProveedorServer_Intf.pas'; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj new file mode 100644 index 00000000..2b1ae610 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj @@ -0,0 +1,611 @@ + + + {a7225a8d-f40d-4878-9a27-c5de0e7cb638} + PedidosProveedor_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\PedidosProveedor_model.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + + + + + + + + + + + + + + + + + + + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + EurekaLog 5.1.9 + + + PedidosProveedor_model.dpk + + + + + + + MainSource + + + + + + + + + + + + + + diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.drc b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.drc new file mode 100644 index 00000000..c1246f3d --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.drc @@ -0,0 +1,16 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.drf */ diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.identcache b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.identcache new file mode 100644 index 00000000..7499a4dd Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.identcache differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.rc b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.res b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.res differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.dcu b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.dcu new file mode 100644 index 00000000..00a391df Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas new file mode 100644 index 00000000..820d342c --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas @@ -0,0 +1,2162 @@ +unit schPedidosProveedorClient_Intf; + +interface + +uses + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + +const + { Data table rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_DarReferencia = '{ECD374FB-DEC3-4BD3-8B94-3D682010F0FC}'; + RID_PedidosProveedor = '{2D04B1A7-0FD8-4D76-A3C5-A359F90149B0}'; + RID_PedidosProveedor_Detalles = '{C2304714-5565-46A7-B19D-3E0B8FB1CCAC}'; + RID_PedidosProveedor_Articulos_Pendientes = '{6016265E-4953-4240-BB67-842699A43AD5}'; + + { Data table names } + nme_DarReferencia = 'DarReferencia'; + nme_PedidosProveedor = 'PedidosProveedor'; + nme_PedidosProveedor_Detalles = 'PedidosProveedor_Detalles'; + nme_PedidosProveedor_Articulos_Pendientes = 'PedidosProveedor_Articulos_Pendientes'; + + { DarReferencia fields } + fld_DarReferenciaVALOR = 'VALOR'; + + { DarReferencia field indexes } + idx_DarReferenciaVALOR = 0; + + { PedidosProveedor fields } + fld_PedidosProveedorID = 'ID'; + fld_PedidosProveedorID_EMPRESA = 'ID_EMPRESA'; + fld_PedidosProveedorID_PROVEEDOR = 'ID_PROVEEDOR'; + fld_PedidosProveedorNOMBRE = 'NOMBRE'; + fld_PedidosProveedorREFERENCIA = 'REFERENCIA'; + fld_PedidosProveedorSITUACION = 'SITUACION'; + fld_PedidosProveedorFECHA_ENVIO = 'FECHA_ENVIO'; + fld_PedidosProveedorFECHA_PEDIDO = 'FECHA_PEDIDO'; + fld_PedidosProveedorFECHA_CONFIRMACION = 'FECHA_CONFIRMACION'; + fld_PedidosProveedorFECHA_ENTREGA = 'FECHA_ENTREGA'; + fld_PedidosProveedorID_ALMACEN = 'ID_ALMACEN'; + fld_PedidosProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; + fld_PedidosProveedorOBSERVACIONES = 'OBSERVACIONES'; + fld_PedidosProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_PedidosProveedorINCIDENCIAS = 'INCIDENCIAS'; + fld_PedidosProveedorINCIDENCIAS_ACTIVAS = 'INCIDENCIAS_ACTIVAS'; + fld_PedidosProveedorCALLE = 'CALLE'; + fld_PedidosProveedorPOBLACION = 'POBLACION'; + fld_PedidosProveedorPROVINCIA = 'PROVINCIA'; + fld_PedidosProveedorCODIGO_POSTAL = 'CODIGO_POSTAL'; + fld_PedidosProveedorPERSONA_CONTACTO = 'PERSONA_CONTACTO'; + fld_PedidosProveedorTELEFONO = 'TELEFONO'; + fld_PedidosProveedorFECHA_ALTA = 'FECHA_ALTA'; + fld_PedidosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_PedidosProveedorUSUARIO = 'USUARIO'; + fld_PedidosProveedorID_PEDIDO_CLIENTE = 'ID_PEDIDO_CLIENTE'; + fld_PedidosProveedorREF_PED_CLIENTE = 'REF_PED_CLIENTE'; + fld_PedidosProveedorIMPORTE_NETO = 'IMPORTE_NETO'; + fld_PedidosProveedorIMPORTE_PORTE = 'IMPORTE_PORTE'; + fld_PedidosProveedorDESCUENTO = 'DESCUENTO'; + fld_PedidosProveedorIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; + fld_PedidosProveedorBASE_IMPONIBLE = 'BASE_IMPONIBLE'; + fld_PedidosProveedorIVA = 'IVA'; + fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA'; + fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO'; + + { PedidosProveedor field indexes } + idx_PedidosProveedorID = 0; + idx_PedidosProveedorID_EMPRESA = 1; + idx_PedidosProveedorID_PROVEEDOR = 2; + idx_PedidosProveedorNOMBRE = 3; + idx_PedidosProveedorREFERENCIA = 4; + idx_PedidosProveedorSITUACION = 5; + idx_PedidosProveedorFECHA_ENVIO = 6; + idx_PedidosProveedorFECHA_PEDIDO = 7; + idx_PedidosProveedorFECHA_CONFIRMACION = 8; + idx_PedidosProveedorFECHA_ENTREGA = 9; + idx_PedidosProveedorID_ALMACEN = 10; + idx_PedidosProveedorNOMBRE_ALMACEN = 11; + idx_PedidosProveedorOBSERVACIONES = 12; + idx_PedidosProveedorIMPORTE_TOTAL = 13; + idx_PedidosProveedorINCIDENCIAS = 14; + idx_PedidosProveedorINCIDENCIAS_ACTIVAS = 15; + idx_PedidosProveedorCALLE = 16; + idx_PedidosProveedorPOBLACION = 17; + idx_PedidosProveedorPROVINCIA = 18; + idx_PedidosProveedorCODIGO_POSTAL = 19; + idx_PedidosProveedorPERSONA_CONTACTO = 20; + idx_PedidosProveedorTELEFONO = 21; + idx_PedidosProveedorFECHA_ALTA = 22; + idx_PedidosProveedorFECHA_MODIFICACION = 23; + idx_PedidosProveedorUSUARIO = 24; + idx_PedidosProveedorID_PEDIDO_CLIENTE = 25; + idx_PedidosProveedorREF_PED_CLIENTE = 26; + idx_PedidosProveedorIMPORTE_NETO = 27; + idx_PedidosProveedorIMPORTE_PORTE = 28; + idx_PedidosProveedorDESCUENTO = 29; + idx_PedidosProveedorIMPORTE_DESCUENTO = 30; + idx_PedidosProveedorBASE_IMPONIBLE = 31; + idx_PedidosProveedorIVA = 32; + idx_PedidosProveedorIMPORTE_IVA = 33; + idx_PedidosProveedorID_FORMA_PAGO = 34; + + { PedidosProveedor_Detalles fields } + fld_PedidosProveedor_DetallesID = 'ID'; + fld_PedidosProveedor_DetallesID_PEDIDO = 'ID_PEDIDO'; + fld_PedidosProveedor_DetallesPOSICION = 'POSICION'; + fld_PedidosProveedor_DetallesTIPO_DETALLE = 'TIPO_DETALLE'; + fld_PedidosProveedor_DetallesCONCEPTO = 'CONCEPTO'; + fld_PedidosProveedor_DetallesCANTIDAD = 'CANTIDAD'; + fld_PedidosProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; + fld_PedidosProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_PedidosProveedor_DetallesVISIBLE = 'VISIBLE'; + fld_PedidosProveedor_DetallesID_ARTICULO = 'ID_ARTICULO'; + fld_PedidosProveedor_DetallesDESCUENTO = 'DESCUENTO'; + fld_PedidosProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; + fld_PedidosProveedor_DetallesREFERENCIA = 'REFERENCIA'; + fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; + + { PedidosProveedor_Detalles field indexes } + idx_PedidosProveedor_DetallesID = 0; + idx_PedidosProveedor_DetallesID_PEDIDO = 1; + idx_PedidosProveedor_DetallesPOSICION = 2; + idx_PedidosProveedor_DetallesTIPO_DETALLE = 3; + idx_PedidosProveedor_DetallesCONCEPTO = 4; + idx_PedidosProveedor_DetallesCANTIDAD = 5; + idx_PedidosProveedor_DetallesIMPORTE_UNIDAD = 6; + idx_PedidosProveedor_DetallesIMPORTE_TOTAL = 7; + idx_PedidosProveedor_DetallesVISIBLE = 8; + idx_PedidosProveedor_DetallesID_ARTICULO = 9; + idx_PedidosProveedor_DetallesDESCUENTO = 10; + idx_PedidosProveedor_DetallesIMPORTE_PORTE = 11; + idx_PedidosProveedor_DetallesREFERENCIA = 12; + idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 13; + + { PedidosProveedor_Articulos_Pendientes fields } + fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO'; + fld_PedidosProveedor_Articulos_PendientesREFERENCIA = 'REFERENCIA'; + fld_PedidosProveedor_Articulos_PendientesID_ARTICULO = 'ID_ARTICULO'; + fld_PedidosProveedor_Articulos_PendientesCONCEPTO = 'CONCEPTO'; + fld_PedidosProveedor_Articulos_PendientesCANTIDAD = 'CANTIDAD'; + fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; + + { PedidosProveedor_Articulos_Pendientes field indexes } + idx_PedidosProveedor_Articulos_PendientesID_PEDIDO = 0; + idx_PedidosProveedor_Articulos_PendientesREFERENCIA = 1; + idx_PedidosProveedor_Articulos_PendientesID_ARTICULO = 2; + idx_PedidosProveedor_Articulos_PendientesCONCEPTO = 3; + idx_PedidosProveedor_Articulos_PendientesCANTIDAD = 4; + idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR = 5; + +type + { IDarReferencia } + IDarReferencia = interface(IDAStronglyTypedDataTable) + ['{87AF2361-34C9-47CE-8B54-87175DC678BB}'] + { Property getters and setters } + function GetVALORValue: String; + procedure SetVALORValue(const aValue: String); + function GetVALORIsNull: Boolean; + procedure SetVALORIsNull(const aValue: Boolean); + + + { Properties } + property VALOR: String read GetVALORValue write SetVALORValue; + property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull; + end; + + { TDarReferenciaDataTableRules } + TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia) + private + protected + { Property getters and setters } + function GetVALORValue: String; virtual; + procedure SetVALORValue(const aValue: String); virtual; + function GetVALORIsNull: Boolean; virtual; + procedure SetVALORIsNull(const aValue: Boolean); virtual; + + { Properties } + property VALOR: String read GetVALORValue write SetVALORValue; + property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IPedidosProveedor } + IPedidosProveedor = interface(IDAStronglyTypedDataTable) + ['{E49280D2-1776-46E8-86B8-5149F77BDCF3}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetID_PROVEEDORValue: Integer; + procedure SetID_PROVEEDORValue(const aValue: Integer); + function GetID_PROVEEDORIsNull: Boolean; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); + function GetNOMBREValue: String; + procedure SetNOMBREValue(const aValue: String); + function GetNOMBREIsNull: Boolean; + procedure SetNOMBREIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetSITUACIONValue: String; + procedure SetSITUACIONValue(const aValue: String); + function GetSITUACIONIsNull: Boolean; + procedure SetSITUACIONIsNull(const aValue: Boolean); + function GetFECHA_ENVIOValue: DateTime; + procedure SetFECHA_ENVIOValue(const aValue: DateTime); + function GetFECHA_ENVIOIsNull: Boolean; + procedure SetFECHA_ENVIOIsNull(const aValue: Boolean); + function GetFECHA_PEDIDOValue: DateTime; + procedure SetFECHA_PEDIDOValue(const aValue: DateTime); + function GetFECHA_PEDIDOIsNull: Boolean; + procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); + function GetFECHA_CONFIRMACIONValue: DateTime; + procedure SetFECHA_CONFIRMACIONValue(const aValue: DateTime); + function GetFECHA_CONFIRMACIONIsNull: Boolean; + procedure SetFECHA_CONFIRMACIONIsNull(const aValue: Boolean); + function GetFECHA_ENTREGAValue: DateTime; + procedure SetFECHA_ENTREGAValue(const aValue: DateTime); + function GetFECHA_ENTREGAIsNull: Boolean; + procedure SetFECHA_ENTREGAIsNull(const aValue: Boolean); + function GetID_ALMACENValue: Integer; + procedure SetID_ALMACENValue(const aValue: Integer); + function GetID_ALMACENIsNull: Boolean; + procedure SetID_ALMACENIsNull(const aValue: Boolean); + function GetNOMBRE_ALMACENValue: String; + procedure SetNOMBRE_ALMACENValue(const aValue: String); + function GetNOMBRE_ALMACENIsNull: Boolean; + procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); + function GetOBSERVACIONESValue: IROStrings; + function GetOBSERVACIONESIsNull: Boolean; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); + function GetIMPORTE_TOTALValue: Currency; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALIsNull: Boolean; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetINCIDENCIASValue: IROStrings; + function GetINCIDENCIASIsNull: Boolean; + procedure SetINCIDENCIASIsNull(const aValue: Boolean); + function GetINCIDENCIAS_ACTIVASValue: Integer; + procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); + function GetINCIDENCIAS_ACTIVASIsNull: Boolean; + procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); + function GetCALLEValue: String; + procedure SetCALLEValue(const aValue: String); + function GetCALLEIsNull: Boolean; + procedure SetCALLEIsNull(const aValue: Boolean); + function GetPOBLACIONValue: String; + procedure SetPOBLACIONValue(const aValue: String); + function GetPOBLACIONIsNull: Boolean; + procedure SetPOBLACIONIsNull(const aValue: Boolean); + function GetPROVINCIAValue: String; + procedure SetPROVINCIAValue(const aValue: String); + function GetPROVINCIAIsNull: Boolean; + procedure SetPROVINCIAIsNull(const aValue: Boolean); + function GetCODIGO_POSTALValue: String; + procedure SetCODIGO_POSTALValue(const aValue: String); + function GetCODIGO_POSTALIsNull: Boolean; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); + function GetPERSONA_CONTACTOValue: String; + procedure SetPERSONA_CONTACTOValue(const aValue: String); + function GetPERSONA_CONTACTOIsNull: Boolean; + procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); + function GetTELEFONOValue: String; + procedure SetTELEFONOValue(const aValue: String); + function GetTELEFONOIsNull: Boolean; + procedure SetTELEFONOIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); + function GetID_PEDIDO_CLIENTEValue: Integer; + procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); + function GetID_PEDIDO_CLIENTEIsNull: Boolean; + procedure SetID_PEDIDO_CLIENTEIsNull(const aValue: Boolean); + function GetREF_PED_CLIENTEValue: String; + procedure SetREF_PED_CLIENTEValue(const aValue: String); + function GetREF_PED_CLIENTEIsNull: Boolean; + procedure SetREF_PED_CLIENTEIsNull(const aValue: Boolean); + function GetIMPORTE_NETOValue: Currency; + procedure SetIMPORTE_NETOValue(const aValue: Currency); + function GetIMPORTE_NETOIsNull: Boolean; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); + function GetIMPORTE_PORTEValue: Currency; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); + function GetIMPORTE_PORTEIsNull: Boolean; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); + function GetDESCUENTOValue: Float; + procedure SetDESCUENTOValue(const aValue: Float); + function GetDESCUENTOIsNull: Boolean; + procedure SetDESCUENTOIsNull(const aValue: Boolean); + function GetIMPORTE_DESCUENTOValue: Currency; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); + function GetIMPORTE_DESCUENTOIsNull: Boolean; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); + function GetBASE_IMPONIBLEValue: Currency; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); + function GetBASE_IMPONIBLEIsNull: Boolean; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); + function GetIVAValue: Float; + procedure SetIVAValue(const aValue: Float); + function GetIVAIsNull: Boolean; + procedure SetIVAIsNull(const aValue: Boolean); + function GetIMPORTE_IVAValue: Currency; + procedure SetIMPORTE_IVAValue(const aValue: Currency); + function GetIMPORTE_IVAIsNull: Boolean; + procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); + function GetID_FORMA_PAGOValue: Integer; + procedure SetID_FORMA_PAGOValue(const aValue: Integer); + function GetID_FORMA_PAGOIsNull: Boolean; + procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue; + property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull; + property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; + property FECHA_PEDIDOIsNull: Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull; + property FECHA_CONFIRMACION: DateTime read GetFECHA_CONFIRMACIONValue write SetFECHA_CONFIRMACIONValue; + property FECHA_CONFIRMACIONIsNull: Boolean read GetFECHA_CONFIRMACIONIsNull write SetFECHA_CONFIRMACIONIsNull; + property FECHA_ENTREGA: DateTime read GetFECHA_ENTREGAValue write SetFECHA_ENTREGAValue; + property FECHA_ENTREGAIsNull: Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull; + property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; + property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; + property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; + property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; + property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; + property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; + property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; + property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; + property CALLE: String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; + property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; + property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; + property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; + property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property ID_PEDIDO_CLIENTE: Integer read GetID_PEDIDO_CLIENTEValue write SetID_PEDIDO_CLIENTEValue; + property ID_PEDIDO_CLIENTEIsNull: Boolean read GetID_PEDIDO_CLIENTEIsNull write SetID_PEDIDO_CLIENTEIsNull; + property REF_PED_CLIENTE: String read GetREF_PED_CLIENTEValue write SetREF_PED_CLIENTEValue; + property REF_PED_CLIENTEIsNull: Boolean read GetREF_PED_CLIENTEIsNull write SetREF_PED_CLIENTEIsNull; + property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property IVA: Float read GetIVAValue write SetIVAValue; + property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; + property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; + property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; + property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; + property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; + end; + + { TPedidosProveedorDataTableRules } + TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) + private + f_OBSERVACIONES: IROStrings; + f_INCIDENCIAS: IROStrings; + procedure OBSERVACIONES_OnChange(Sender: TObject); + procedure INCIDENCIAS_OnChange(Sender: TObject); + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + function GetID_PROVEEDORIsNull: Boolean; virtual; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + function GetNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + function GetSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetFECHA_ENVIOValue: DateTime; virtual; + procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual; + function GetFECHA_ENVIOIsNull: Boolean; virtual; + procedure SetFECHA_ENVIOIsNull(const aValue: Boolean); virtual; + function GetFECHA_PEDIDOValue: DateTime; virtual; + procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual; + function GetFECHA_PEDIDOIsNull: Boolean; virtual; + procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetFECHA_CONFIRMACIONValue: DateTime; virtual; + procedure SetFECHA_CONFIRMACIONValue(const aValue: DateTime); virtual; + function GetFECHA_CONFIRMACIONIsNull: Boolean; virtual; + procedure SetFECHA_CONFIRMACIONIsNull(const aValue: Boolean); virtual; + function GetFECHA_ENTREGAValue: DateTime; virtual; + procedure SetFECHA_ENTREGAValue(const aValue: DateTime); virtual; + function GetFECHA_ENTREGAIsNull: Boolean; virtual; + procedure SetFECHA_ENTREGAIsNull(const aValue: Boolean); virtual; + function GetID_ALMACENValue: Integer; virtual; + procedure SetID_ALMACENValue(const aValue: Integer); virtual; + function GetID_ALMACENIsNull: Boolean; virtual; + procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual; + function GetNOMBRE_ALMACENValue: String; virtual; + procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual; + function GetNOMBRE_ALMACENIsNull: Boolean; virtual; + procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual; + function GetOBSERVACIONESValue: IROStrings; virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetINCIDENCIASValue: IROStrings; virtual; + function GetINCIDENCIASIsNull: Boolean; virtual; + procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; + function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; + procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; + function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; + procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; + function GetCALLEValue: String; virtual; + procedure SetCALLEValue(const aValue: String); virtual; + function GetCALLEIsNull: Boolean; virtual; + procedure SetCALLEIsNull(const aValue: Boolean); virtual; + function GetPOBLACIONValue: String; virtual; + procedure SetPOBLACIONValue(const aValue: String); virtual; + function GetPOBLACIONIsNull: Boolean; virtual; + procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; + function GetPROVINCIAValue: String; virtual; + procedure SetPROVINCIAValue(const aValue: String); virtual; + function GetPROVINCIAIsNull: Boolean; virtual; + procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTALValue: String; virtual; + procedure SetCODIGO_POSTALValue(const aValue: String); virtual; + function GetCODIGO_POSTALIsNull: Boolean; virtual; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; + function GetPERSONA_CONTACTOValue: String; virtual; + procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; + function GetPERSONA_CONTACTOIsNull: Boolean; virtual; + procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; + function GetTELEFONOValue: String; virtual; + procedure SetTELEFONOValue(const aValue: String); virtual; + function GetTELEFONOIsNull: Boolean; virtual; + procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetID_PEDIDO_CLIENTEValue: Integer; virtual; + procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); virtual; + function GetID_PEDIDO_CLIENTEIsNull: Boolean; virtual; + procedure SetID_PEDIDO_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetREF_PED_CLIENTEValue: String; virtual; + procedure SetREF_PED_CLIENTEValue(const aValue: String); virtual; + function GetREF_PED_CLIENTEIsNull: Boolean; virtual; + procedure SetREF_PED_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_NETOValue: Currency; virtual; + procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; + function GetIMPORTE_NETOIsNull: Boolean; virtual; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_DESCUENTOValue: Currency; virtual; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; + function GetBASE_IMPONIBLEValue: Currency; virtual; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; + function GetBASE_IMPONIBLEIsNull: Boolean; virtual; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; + function GetIVAValue: Float; virtual; + procedure SetIVAValue(const aValue: Float); virtual; + function GetIVAIsNull: Boolean; virtual; + procedure SetIVAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_IVAValue: Currency; virtual; + procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; + function GetIMPORTE_IVAIsNull: Boolean; virtual; + procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; + function GetID_FORMA_PAGOValue: Integer; virtual; + procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; + function GetID_FORMA_PAGOIsNull: Boolean; virtual; + procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property FECHA_ENVIO: DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue; + property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull; + property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; + property FECHA_PEDIDOIsNull: Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull; + property FECHA_CONFIRMACION: DateTime read GetFECHA_CONFIRMACIONValue write SetFECHA_CONFIRMACIONValue; + property FECHA_CONFIRMACIONIsNull: Boolean read GetFECHA_CONFIRMACIONIsNull write SetFECHA_CONFIRMACIONIsNull; + property FECHA_ENTREGA: DateTime read GetFECHA_ENTREGAValue write SetFECHA_ENTREGAValue; + property FECHA_ENTREGAIsNull: Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull; + property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue; + property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; + property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; + property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; + property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; + property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; + property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; + property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; + property CALLE: String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; + property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; + property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; + property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; + property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property ID_PEDIDO_CLIENTE: Integer read GetID_PEDIDO_CLIENTEValue write SetID_PEDIDO_CLIENTEValue; + property ID_PEDIDO_CLIENTEIsNull: Boolean read GetID_PEDIDO_CLIENTEIsNull write SetID_PEDIDO_CLIENTEIsNull; + property REF_PED_CLIENTE: String read GetREF_PED_CLIENTEValue write SetREF_PED_CLIENTEValue; + property REF_PED_CLIENTEIsNull: Boolean read GetREF_PED_CLIENTEIsNull write SetREF_PED_CLIENTEIsNull; + property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property IVA: Float read GetIVAValue write SetIVAValue; + property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; + property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; + property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; + property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; + property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IPedidosProveedor_Detalles } + IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) + ['{89FC103E-BFB3-41F8-9043-F97B9A488EAA}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_PEDIDOValue: Integer; + procedure SetID_PEDIDOValue(const aValue: Integer); + function GetID_PEDIDOIsNull: Boolean; + procedure SetID_PEDIDOIsNull(const aValue: Boolean); + function GetPOSICIONValue: Integer; + procedure SetPOSICIONValue(const aValue: Integer); + function GetPOSICIONIsNull: Boolean; + procedure SetPOSICIONIsNull(const aValue: Boolean); + function GetTIPO_DETALLEValue: String; + procedure SetTIPO_DETALLEValue(const aValue: String); + function GetTIPO_DETALLEIsNull: Boolean; + procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); + function GetCONCEPTOValue: String; + procedure SetCONCEPTOValue(const aValue: String); + function GetCONCEPTOIsNull: Boolean; + procedure SetCONCEPTOIsNull(const aValue: Boolean); + function GetCANTIDADValue: Integer; + procedure SetCANTIDADValue(const aValue: Integer); + function GetCANTIDADIsNull: Boolean; + procedure SetCANTIDADIsNull(const aValue: Boolean); + function GetIMPORTE_UNIDADValue: Currency; + procedure SetIMPORTE_UNIDADValue(const aValue: Currency); + function GetIMPORTE_UNIDADIsNull: Boolean; + procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); + function GetIMPORTE_TOTALValue: Currency; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALIsNull: Boolean; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetVISIBLEValue: SmallInt; + procedure SetVISIBLEValue(const aValue: SmallInt); + function GetVISIBLEIsNull: Boolean; + procedure SetVISIBLEIsNull(const aValue: Boolean); + function GetID_ARTICULOValue: Integer; + procedure SetID_ARTICULOValue(const aValue: Integer); + function GetID_ARTICULOIsNull: Boolean; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); + function GetDESCUENTOValue: Float; + procedure SetDESCUENTOValue(const aValue: Float); + function GetDESCUENTOIsNull: Boolean; + procedure SetDESCUENTOIsNull(const aValue: Boolean); + function GetIMPORTE_PORTEValue: Currency; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); + function GetIMPORTE_PORTEIsNull: Boolean; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetREFERENCIA_PROVEEDORValue: String; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); + function GetREFERENCIA_PROVEEDORIsNull: Boolean; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; + property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; + property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; + property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; + property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; + property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + end; + + { TPedidosProveedor_DetallesDataTableRules } + TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_PEDIDOValue: Integer; virtual; + procedure SetID_PEDIDOValue(const aValue: Integer); virtual; + function GetID_PEDIDOIsNull: Boolean; virtual; + procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetPOSICIONValue: Integer; virtual; + procedure SetPOSICIONValue(const aValue: Integer); virtual; + function GetPOSICIONIsNull: Boolean; virtual; + procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; + function GetTIPO_DETALLEValue: String; virtual; + procedure SetTIPO_DETALLEValue(const aValue: String); virtual; + function GetTIPO_DETALLEIsNull: Boolean; virtual; + procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; + function GetCONCEPTOValue: String; virtual; + procedure SetCONCEPTOValue(const aValue: String); virtual; + function GetCONCEPTOIsNull: Boolean; virtual; + procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; + function GetCANTIDADValue: Integer; virtual; + procedure SetCANTIDADValue(const aValue: Integer); virtual; + function GetCANTIDADIsNull: Boolean; virtual; + procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_UNIDADValue: Currency; virtual; + procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; + function GetIMPORTE_UNIDADIsNull: Boolean; virtual; + procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetVISIBLEValue: SmallInt; virtual; + procedure SetVISIBLEValue(const aValue: SmallInt); virtual; + function GetVISIBLEIsNull: Boolean; virtual; + procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; + function GetID_ARTICULOValue: Integer; virtual; + procedure SetID_ARTICULOValue(const aValue: Integer); virtual; + function GetID_ARTICULOIsNull: Boolean; virtual; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; + property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; + property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; + property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; + property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue; + property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IPedidosProveedor_Articulos_Pendientes } + IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) + ['{809B7C0C-097F-41C4-B931-B8E1C69B6CA5}'] + { Property getters and setters } + function GetID_PEDIDOValue: Integer; + procedure SetID_PEDIDOValue(const aValue: Integer); + function GetID_PEDIDOIsNull: Boolean; + procedure SetID_PEDIDOIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetID_ARTICULOValue: Integer; + procedure SetID_ARTICULOValue(const aValue: Integer); + function GetID_ARTICULOIsNull: Boolean; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); + function GetCONCEPTOValue: String; + procedure SetCONCEPTOValue(const aValue: String); + function GetCONCEPTOIsNull: Boolean; + procedure SetCONCEPTOIsNull(const aValue: Boolean); + function GetCANTIDADValue: Integer; + procedure SetCANTIDADValue(const aValue: Integer); + function GetCANTIDADIsNull: Boolean; + procedure SetCANTIDADIsNull(const aValue: Boolean); + function GetREFERENCIA_PROVEEDORValue: String; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); + function GetREFERENCIA_PROVEEDORIsNull: Boolean; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); + + + { Properties } + property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + end; + + { TPedidosProveedor_Articulos_PendientesDataTableRules } + TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes) + private + protected + { Property getters and setters } + function GetID_PEDIDOValue: Integer; virtual; + procedure SetID_PEDIDOValue(const aValue: Integer); virtual; + function GetID_PEDIDOIsNull: Boolean; virtual; + procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetID_ARTICULOValue: Integer; virtual; + procedure SetID_ARTICULOValue(const aValue: Integer); virtual; + function GetID_ARTICULOIsNull: Boolean; virtual; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; + function GetCONCEPTOValue: String; virtual; + procedure SetCONCEPTOValue(const aValue: String); virtual; + function GetCONCEPTOIsNull: Boolean; virtual; + procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; + function GetCANTIDADValue: Integer; virtual; + procedure SetCANTIDADValue(const aValue: Integer); virtual; + function GetCANTIDADIsNull: Boolean; virtual; + procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + +implementation + +uses Variants, uROBinaryHelpers; + +{ TDarReferenciaDataTableRules } +constructor TDarReferenciaDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TDarReferenciaDataTableRules.Destroy; +begin + inherited; +end; + +function TDarReferenciaDataTableRules.GetVALORValue: String; +begin + result := DataTable.Fields[idx_DarReferenciaVALOR].AsString; +end; + +procedure TDarReferenciaDataTableRules.SetVALORValue(const aValue: String); +begin + DataTable.Fields[idx_DarReferenciaVALOR].AsString := aValue; +end; + +function TDarReferenciaDataTableRules.GetVALORIsNull: boolean; +begin + result := DataTable.Fields[idx_DarReferenciaVALOR].IsNull; +end; + +procedure TDarReferenciaDataTableRules.SetVALORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_DarReferenciaVALOR].AsVariant := Null; +end; + + +{ TPedidosProveedorDataTableRules } +constructor TPedidosProveedorDataTableRules.Create(aDataTable: TDADataTable); +var + StrList: TStringList; +begin + inherited; + + StrList := TStringList.Create; + StrList.OnChange := OBSERVACIONES_OnChange; + f_OBSERVACIONES := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := INCIDENCIAS_OnChange; + f_INCIDENCIAS := NewROStrings(StrList,True); +end; + +destructor TPedidosProveedorDataTableRules.Destroy; +begin + inherited; +end; + +procedure TPedidosProveedorDataTableRules.OBSERVACIONES_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_PedidosProveedorOBSERVACIONES].AsVariant := TStringList(Sender).Text; +end; + +procedure TPedidosProveedorDataTableRules.INCIDENCIAS_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_PedidosProveedorINCIDENCIAS].AsVariant := TStringList(Sender).Text; +end; + +function TPedidosProveedorDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedorID].AsInteger; +end; + +procedure TPedidosProveedorDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedorID].AsInteger := aValue; +end; + +function TPedidosProveedorDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorID].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorID].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedorID_EMPRESA].AsInteger; +end; + +procedure TPedidosProveedorDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedorID_EMPRESA].AsInteger := aValue; +end; + +function TPedidosProveedorDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorID_EMPRESA].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorID_EMPRESA].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetID_PROVEEDORValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedorID_PROVEEDOR].AsInteger; +end; + +procedure TPedidosProveedorDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedorID_PROVEEDOR].AsInteger := aValue; +end; + +function TPedidosProveedorDataTableRules.GetID_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorID_PROVEEDOR].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorID_PROVEEDOR].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetNOMBREValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorNOMBRE].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetNOMBREValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorNOMBRE].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetNOMBREIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorNOMBRE].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorNOMBRE].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorREFERENCIA].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorREFERENCIA].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorREFERENCIA].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorREFERENCIA].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetSITUACIONValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorSITUACION].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetSITUACIONValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorSITUACION].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetSITUACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorSITUACION].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorSITUACION].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_ENVIOValue: DateTime; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_ENVIO].AsDateTime; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_ENVIOValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PedidosProveedorFECHA_ENVIO].AsDateTime := aValue; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_ENVIOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_ENVIO].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_ENVIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorFECHA_ENVIO].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_PEDIDOValue: DateTime; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_PEDIDO].AsDateTime; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_PEDIDOValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PedidosProveedorFECHA_PEDIDO].AsDateTime := aValue; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_PEDIDOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_PEDIDO].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_PEDIDOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorFECHA_PEDIDO].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_CONFIRMACIONValue: DateTime; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_CONFIRMACION].AsDateTime; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_CONFIRMACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PedidosProveedorFECHA_CONFIRMACION].AsDateTime := aValue; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_CONFIRMACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_CONFIRMACION].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_CONFIRMACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorFECHA_CONFIRMACION].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_ENTREGAValue: DateTime; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_ENTREGA].AsDateTime; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_ENTREGAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PedidosProveedorFECHA_ENTREGA].AsDateTime := aValue; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_ENTREGAIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_ENTREGA].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_ENTREGAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorFECHA_ENTREGA].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetID_ALMACENValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedorID_ALMACEN].AsInteger; +end; + +procedure TPedidosProveedorDataTableRules.SetID_ALMACENValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedorID_ALMACEN].AsInteger := aValue; +end; + +function TPedidosProveedorDataTableRules.GetID_ALMACENIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorID_ALMACEN].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetID_ALMACENIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorID_ALMACEN].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetNOMBRE_ALMACENValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorNOMBRE_ALMACEN].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetNOMBRE_ALMACENValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorNOMBRE_ALMACEN].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetNOMBRE_ALMACENIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorNOMBRE_ALMACEN].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorNOMBRE_ALMACEN].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetOBSERVACIONESValue: IROStrings; +begin + result := f_OBSERVACIONES; + result.Text := DataTable.Fields[idx_PedidosProveedorOBSERVACIONES].AsString; +end; + +function TPedidosProveedorDataTableRules.GetOBSERVACIONESIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorOBSERVACIONES].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorOBSERVACIONES].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetIMPORTE_TOTALValue: Currency; +begin + result := DataTable.Fields[idx_PedidosProveedorIMPORTE_TOTAL].AsCurrency; +end; + +procedure TPedidosProveedorDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + DataTable.Fields[idx_PedidosProveedorIMPORTE_TOTAL].AsCurrency := aValue; +end; + +function TPedidosProveedorDataTableRules.GetIMPORTE_TOTALIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorIMPORTE_TOTAL].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorIMPORTE_TOTAL].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetINCIDENCIASValue: IROStrings; +begin + result := f_INCIDENCIAS; + result.Text := DataTable.Fields[idx_PedidosProveedorINCIDENCIAS].AsString; +end; + +function TPedidosProveedorDataTableRules.GetINCIDENCIASIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorINCIDENCIAS].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetINCIDENCIASIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorINCIDENCIAS].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsInteger; +end; + +procedure TPedidosProveedorDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsInteger := aValue; +end; + +function TPedidosProveedorDataTableRules.GetINCIDENCIAS_ACTIVASIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetCALLEValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorCALLE].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetCALLEValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorCALLE].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetCALLEIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorCALLE].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetCALLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorCALLE].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetPOBLACIONValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorPOBLACION].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetPOBLACIONValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorPOBLACION].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetPOBLACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorPOBLACION].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorPOBLACION].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetPROVINCIAValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorPROVINCIA].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetPROVINCIAValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorPROVINCIA].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetPROVINCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorPROVINCIA].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorPROVINCIA].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetCODIGO_POSTALValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorCODIGO_POSTAL].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetCODIGO_POSTALValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorCODIGO_POSTAL].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetCODIGO_POSTALIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorCODIGO_POSTAL].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorCODIGO_POSTAL].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetPERSONA_CONTACTOValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorPERSONA_CONTACTO].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorPERSONA_CONTACTO].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetPERSONA_CONTACTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorPERSONA_CONTACTO].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorPERSONA_CONTACTO].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetTELEFONOValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorTELEFONO].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetTELEFONOValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorTELEFONO].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetTELEFONOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorTELEFONO].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetTELEFONOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorTELEFONO].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_ALTA].AsDateTime; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PedidosProveedorFECHA_ALTA].AsDateTime := aValue; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_ALTA].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorFECHA_ALTA].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_MODIFICACION].AsDateTime; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PedidosProveedorFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TPedidosProveedorDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorFECHA_MODIFICACION].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorFECHA_MODIFICACION].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorUSUARIO].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorUSUARIO].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorUSUARIO].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorUSUARIO].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetID_PEDIDO_CLIENTEValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedorID_PEDIDO_CLIENTE].AsInteger; +end; + +procedure TPedidosProveedorDataTableRules.SetID_PEDIDO_CLIENTEValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedorID_PEDIDO_CLIENTE].AsInteger := aValue; +end; + +function TPedidosProveedorDataTableRules.GetID_PEDIDO_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorID_PEDIDO_CLIENTE].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetID_PEDIDO_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorID_PEDIDO_CLIENTE].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetREF_PED_CLIENTEValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedorREF_PED_CLIENTE].AsString; +end; + +procedure TPedidosProveedorDataTableRules.SetREF_PED_CLIENTEValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedorREF_PED_CLIENTE].AsString := aValue; +end; + +function TPedidosProveedorDataTableRules.GetREF_PED_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorREF_PED_CLIENTE].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetREF_PED_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorREF_PED_CLIENTE].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetIMPORTE_NETOValue: Currency; +begin + result := DataTable.Fields[idx_PedidosProveedorIMPORTE_NETO].AsCurrency; +end; + +procedure TPedidosProveedorDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency); +begin + DataTable.Fields[idx_PedidosProveedorIMPORTE_NETO].AsCurrency := aValue; +end; + +function TPedidosProveedorDataTableRules.GetIMPORTE_NETOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorIMPORTE_NETO].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorIMPORTE_NETO].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetIMPORTE_PORTEValue: Currency; +begin + result := DataTable.Fields[idx_PedidosProveedorIMPORTE_PORTE].AsCurrency; +end; + +procedure TPedidosProveedorDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_PedidosProveedorIMPORTE_PORTE].AsCurrency := aValue; +end; + +function TPedidosProveedorDataTableRules.GetIMPORTE_PORTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorIMPORTE_PORTE].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorIMPORTE_PORTE].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetDESCUENTOValue: Float; +begin + result := DataTable.Fields[idx_PedidosProveedorDESCUENTO].AsFloat; +end; + +procedure TPedidosProveedorDataTableRules.SetDESCUENTOValue(const aValue: Float); +begin + DataTable.Fields[idx_PedidosProveedorDESCUENTO].AsFloat := aValue; +end; + +function TPedidosProveedorDataTableRules.GetDESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorDESCUENTO].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorDESCUENTO].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetIMPORTE_DESCUENTOValue: Currency; +begin + result := DataTable.Fields[idx_PedidosProveedorIMPORTE_DESCUENTO].AsCurrency; +end; + +procedure TPedidosProveedorDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); +begin + DataTable.Fields[idx_PedidosProveedorIMPORTE_DESCUENTO].AsCurrency := aValue; +end; + +function TPedidosProveedorDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorIMPORTE_DESCUENTO].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorIMPORTE_DESCUENTO].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetBASE_IMPONIBLEValue: Currency; +begin + result := DataTable.Fields[idx_PedidosProveedorBASE_IMPONIBLE].AsCurrency; +end; + +procedure TPedidosProveedorDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency); +begin + DataTable.Fields[idx_PedidosProveedorBASE_IMPONIBLE].AsCurrency := aValue; +end; + +function TPedidosProveedorDataTableRules.GetBASE_IMPONIBLEIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorBASE_IMPONIBLE].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorBASE_IMPONIBLE].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetIVAValue: Float; +begin + result := DataTable.Fields[idx_PedidosProveedorIVA].AsFloat; +end; + +procedure TPedidosProveedorDataTableRules.SetIVAValue(const aValue: Float); +begin + DataTable.Fields[idx_PedidosProveedorIVA].AsFloat := aValue; +end; + +function TPedidosProveedorDataTableRules.GetIVAIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorIVA].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetIVAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorIVA].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetIMPORTE_IVAValue: Currency; +begin + result := DataTable.Fields[idx_PedidosProveedorIMPORTE_IVA].AsCurrency; +end; + +procedure TPedidosProveedorDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency); +begin + DataTable.Fields[idx_PedidosProveedorIMPORTE_IVA].AsCurrency := aValue; +end; + +function TPedidosProveedorDataTableRules.GetIMPORTE_IVAIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorIMPORTE_IVA].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorIMPORTE_IVA].AsVariant := Null; +end; + +function TPedidosProveedorDataTableRules.GetID_FORMA_PAGOValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsInteger; +end; + +procedure TPedidosProveedorDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsInteger := aValue; +end; + +function TPedidosProveedorDataTableRules.GetID_FORMA_PAGOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].IsNull; +end; + +procedure TPedidosProveedorDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsVariant := Null; +end; + + +{ TPedidosProveedor_DetallesDataTableRules } +constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TPedidosProveedor_DetallesDataTableRules.Destroy; +begin + inherited; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesID].AsInteger; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesID].AsInteger := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesID].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesID].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetID_PEDIDOValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesID_PEDIDO].AsInteger; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetID_PEDIDOValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesID_PEDIDO].AsInteger := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetID_PEDIDOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesID_PEDIDO].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesID_PEDIDO].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetPOSICIONValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesPOSICION].AsInteger; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetPOSICIONValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesPOSICION].AsInteger := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetPOSICIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesPOSICION].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetPOSICIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesPOSICION].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetTIPO_DETALLEValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesTIPO_DETALLE].AsString; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetTIPO_DETALLEValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesTIPO_DETALLE].AsString := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetTIPO_DETALLEIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesTIPO_DETALLE].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesTIPO_DETALLE].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetCONCEPTOValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesCONCEPTO].AsString; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetCONCEPTOValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesCONCEPTO].AsString := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetCONCEPTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesCONCEPTO].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesCONCEPTO].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsInteger; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsInteger := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_UNIDAD].AsCurrency; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Currency); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_UNIDAD].AsCurrency := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetIMPORTE_UNIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_UNIDAD].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_UNIDAD].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetIMPORTE_TOTALValue: Currency; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_TOTAL].AsCurrency; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_TOTAL].AsCurrency := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetIMPORTE_TOTALIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_TOTAL].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_TOTAL].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEValue: SmallInt; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsSmallInt; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: SmallInt); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsSmallInt := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetVISIBLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesID_ARTICULO].AsInteger; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesID_ARTICULO].AsInteger := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesID_ARTICULO].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesID_ARTICULO].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetDESCUENTOValue: Float; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesDESCUENTO].AsFloat; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetDESCUENTOValue(const aValue: Float); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesDESCUENTO].AsFloat := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetDESCUENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesDESCUENTO].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesDESCUENTO].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetIMPORTE_PORTEValue: Currency; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_PORTE].AsCurrency; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_PORTE].AsCurrency := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetIMPORTE_PORTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_PORTE].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_PORTE].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].AsString; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].AsString := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].AsVariant := Null; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsString; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsString := aValue; +end; + +function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].IsNull; +end; + +procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null; +end; + + +{ TPedidosProveedor_Articulos_PendientesDataTableRules } +constructor TPedidosProveedor_Articulos_PendientesDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TPedidosProveedor_Articulos_PendientesDataTableRules.Destroy; +begin + inherited; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_PEDIDOValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].AsInteger; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_PEDIDOValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].AsInteger := aValue; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_PEDIDOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].IsNull; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].AsVariant := Null; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].AsString; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].AsString := aValue; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].IsNull; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].AsVariant := Null; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_ARTICULOValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].AsInteger; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_ARTICULOValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].AsInteger := aValue; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_ARTICULOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].IsNull; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].AsVariant := Null; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCONCEPTOValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsString; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCONCEPTOValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsString := aValue; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCONCEPTOIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].IsNull; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsVariant := Null; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADValue: Integer; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsInteger; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADValue(const aValue: Integer); +begin + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsInteger := aValue; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].IsNull; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsVariant := Null; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].AsString; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].AsString := aValue; +end; + +function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].IsNull; +end; + +procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].AsVariant := Null; +end; + + +initialization + RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules); + RegisterDataTableRules(RID_PedidosProveedor, TPedidosProveedorDataTableRules); + RegisterDataTableRules(RID_PedidosProveedor_Detalles, TPedidosProveedor_DetallesDataTableRules); + RegisterDataTableRules(RID_PedidosProveedor_Articulos_Pendientes, TPedidosProveedor_Articulos_PendientesDataTableRules); + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.dcu b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.dcu new file mode 100644 index 00000000..27c26aec Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas new file mode 100644 index 00000000..e4dbd92b --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas @@ -0,0 +1,2589 @@ +unit schPedidosProveedorServer_Intf; + +interface + +uses + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schPedidosProveedorClient_Intf; + +const + { Delta rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_DarReferenciaDelta = '{C99C46FF-39A2-4012-9082-AB75F2697D32}'; + RID_PedidosProveedorDelta = '{202FCF2F-55FB-46BF-BE89-70B9FF26C348}'; + RID_PedidosProveedor_DetallesDelta = '{2C1855B3-AB89-4FCF-901B-0B55C5B1C45F}'; + RID_PedidosProveedor_Articulos_PendientesDelta = '{C22CA682-0E3B-40F8-9F4A-D422BC284233}'; + +type + { IDarReferenciaDelta } + IDarReferenciaDelta = interface(IDarReferencia) + ['{C99C46FF-39A2-4012-9082-AB75F2697D32}'] + { Property getters and setters } + function GetOldVALORValue : String; + + { Properties } + property OldVALOR : String read GetOldVALORValue; + end; + + { TDarReferenciaBusinessProcessorRules } + TDarReferenciaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarReferencia, IDarReferenciaDelta) + private + protected + { Property getters and setters } + function GetVALORValue: String; virtual; + function GetVALORIsNull: Boolean; virtual; + function GetOldVALORValue: String; virtual; + function GetOldVALORIsNull: Boolean; virtual; + procedure SetVALORValue(const aValue: String); virtual; + procedure SetVALORIsNull(const aValue: Boolean); virtual; + + { Properties } + property VALOR : String read GetVALORValue write SetVALORValue; + property VALORIsNull : Boolean read GetVALORIsNull write SetVALORIsNull; + property OldVALOR : String read GetOldVALORValue; + property OldVALORIsNull : Boolean read GetOldVALORIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IPedidosProveedorDelta } + IPedidosProveedorDelta = interface(IPedidosProveedor) + ['{202FCF2F-55FB-46BF-BE89-70B9FF26C348}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_EMPRESAValue : Integer; + function GetOldID_PROVEEDORValue : Integer; + function GetOldNOMBREValue : String; + function GetOldREFERENCIAValue : String; + function GetOldSITUACIONValue : String; + function GetOldFECHA_ENVIOValue : DateTime; + function GetOldFECHA_PEDIDOValue : DateTime; + function GetOldFECHA_CONFIRMACIONValue : DateTime; + function GetOldFECHA_ENTREGAValue : DateTime; + function GetOldID_ALMACENValue : Integer; + function GetOldNOMBRE_ALMACENValue : String; + function GetOldOBSERVACIONESValue : IROStrings; + function GetOldIMPORTE_TOTALValue : Currency; + function GetOldINCIDENCIASValue : IROStrings; + function GetOldINCIDENCIAS_ACTIVASValue : Integer; + function GetOldCALLEValue : String; + function GetOldPOBLACIONValue : String; + function GetOldPROVINCIAValue : String; + function GetOldCODIGO_POSTALValue : String; + function GetOldPERSONA_CONTACTOValue : String; + function GetOldTELEFONOValue : String; + function GetOldFECHA_ALTAValue : DateTime; + function GetOldFECHA_MODIFICACIONValue : DateTime; + function GetOldUSUARIOValue : String; + function GetOldID_PEDIDO_CLIENTEValue : Integer; + function GetOldREF_PED_CLIENTEValue : String; + function GetOldIMPORTE_NETOValue : Currency; + function GetOldIMPORTE_PORTEValue : Currency; + function GetOldDESCUENTOValue : Float; + function GetOldIMPORTE_DESCUENTOValue : Currency; + function GetOldBASE_IMPONIBLEValue : Currency; + function GetOldIVAValue : Float; + function GetOldIMPORTE_IVAValue : Currency; + function GetOldID_FORMA_PAGOValue : Integer; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue; + property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue; + property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue; + property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue; + property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; + property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; + property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; + property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; + property OldCALLE : String read GetOldCALLEValue; + property OldPOBLACION : String read GetOldPOBLACIONValue; + property OldPROVINCIA : String read GetOldPROVINCIAValue; + property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; + property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; + property OldTELEFONO : String read GetOldTELEFONOValue; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldID_PEDIDO_CLIENTE : Integer read GetOldID_PEDIDO_CLIENTEValue; + property OldREF_PED_CLIENTE : String read GetOldREF_PED_CLIENTEValue; + property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; + property OldIVA : Float read GetOldIVAValue; + property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; + property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; + end; + + { TPedidosProveedorBusinessProcessorRules } + TPedidosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor, IPedidosProveedorDelta) + private + f_OBSERVACIONES: IROStrings; + f_INCIDENCIAS: IROStrings; + procedure OBSERVACIONES_OnChange(Sender: TObject); + procedure INCIDENCIAS_OnChange(Sender: TObject); + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + function GetOldID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + function GetID_PROVEEDORIsNull: Boolean; virtual; + function GetOldID_PROVEEDORValue: Integer; virtual; + function GetOldID_PROVEEDORIsNull: Boolean; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + function GetNOMBREIsNull: Boolean; virtual; + function GetOldNOMBREValue: String; virtual; + function GetOldNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + function GetSITUACIONIsNull: Boolean; virtual; + function GetOldSITUACIONValue: String; virtual; + function GetOldSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetFECHA_ENVIOValue: DateTime; virtual; + function GetFECHA_ENVIOIsNull: Boolean; virtual; + function GetOldFECHA_ENVIOValue: DateTime; virtual; + function GetOldFECHA_ENVIOIsNull: Boolean; virtual; + procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual; + procedure SetFECHA_ENVIOIsNull(const aValue: Boolean); virtual; + function GetFECHA_PEDIDOValue: DateTime; virtual; + function GetFECHA_PEDIDOIsNull: Boolean; virtual; + function GetOldFECHA_PEDIDOValue: DateTime; virtual; + function GetOldFECHA_PEDIDOIsNull: Boolean; virtual; + procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual; + procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetFECHA_CONFIRMACIONValue: DateTime; virtual; + function GetFECHA_CONFIRMACIONIsNull: Boolean; virtual; + function GetOldFECHA_CONFIRMACIONValue: DateTime; virtual; + function GetOldFECHA_CONFIRMACIONIsNull: Boolean; virtual; + procedure SetFECHA_CONFIRMACIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_CONFIRMACIONIsNull(const aValue: Boolean); virtual; + function GetFECHA_ENTREGAValue: DateTime; virtual; + function GetFECHA_ENTREGAIsNull: Boolean; virtual; + function GetOldFECHA_ENTREGAValue: DateTime; virtual; + function GetOldFECHA_ENTREGAIsNull: Boolean; virtual; + procedure SetFECHA_ENTREGAValue(const aValue: DateTime); virtual; + procedure SetFECHA_ENTREGAIsNull(const aValue: Boolean); virtual; + function GetID_ALMACENValue: Integer; virtual; + function GetID_ALMACENIsNull: Boolean; virtual; + function GetOldID_ALMACENValue: Integer; virtual; + function GetOldID_ALMACENIsNull: Boolean; virtual; + procedure SetID_ALMACENValue(const aValue: Integer); virtual; + procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual; + function GetNOMBRE_ALMACENValue: String; virtual; + function GetNOMBRE_ALMACENIsNull: Boolean; virtual; + function GetOldNOMBRE_ALMACENValue: String; virtual; + function GetOldNOMBRE_ALMACENIsNull: Boolean; virtual; + procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual; + procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual; + function GetOBSERVACIONESValue: IROStrings; virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + function GetOldOBSERVACIONESValue: IROStrings; virtual; + function GetOldOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + function GetOldIMPORTE_TOTALValue: Currency; virtual; + function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetINCIDENCIASValue: IROStrings; virtual; + function GetINCIDENCIASIsNull: Boolean; virtual; + function GetOldINCIDENCIASValue: IROStrings; virtual; + function GetOldINCIDENCIASIsNull: Boolean; virtual; + procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; + function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; + function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; + function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual; + function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; + procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; + procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; + function GetCALLEValue: String; virtual; + function GetCALLEIsNull: Boolean; virtual; + function GetOldCALLEValue: String; virtual; + function GetOldCALLEIsNull: Boolean; virtual; + procedure SetCALLEValue(const aValue: String); virtual; + procedure SetCALLEIsNull(const aValue: Boolean); virtual; + function GetPOBLACIONValue: String; virtual; + function GetPOBLACIONIsNull: Boolean; virtual; + function GetOldPOBLACIONValue: String; virtual; + function GetOldPOBLACIONIsNull: Boolean; virtual; + procedure SetPOBLACIONValue(const aValue: String); virtual; + procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; + function GetPROVINCIAValue: String; virtual; + function GetPROVINCIAIsNull: Boolean; virtual; + function GetOldPROVINCIAValue: String; virtual; + function GetOldPROVINCIAIsNull: Boolean; virtual; + procedure SetPROVINCIAValue(const aValue: String); virtual; + procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTALValue: String; virtual; + function GetCODIGO_POSTALIsNull: Boolean; virtual; + function GetOldCODIGO_POSTALValue: String; virtual; + function GetOldCODIGO_POSTALIsNull: Boolean; virtual; + procedure SetCODIGO_POSTALValue(const aValue: String); virtual; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; + function GetPERSONA_CONTACTOValue: String; virtual; + function GetPERSONA_CONTACTOIsNull: Boolean; virtual; + function GetOldPERSONA_CONTACTOValue: String; virtual; + function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; + procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; + procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; + function GetTELEFONOValue: String; virtual; + function GetTELEFONOIsNull: Boolean; virtual; + function GetOldTELEFONOValue: String; virtual; + function GetOldTELEFONOIsNull: Boolean; virtual; + procedure SetTELEFONOValue(const aValue: String); virtual; + procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + function GetOldFECHA_ALTAValue: DateTime; virtual; + function GetOldFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; + function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + function GetUSUARIOIsNull: Boolean; virtual; + function GetOldUSUARIOValue: String; virtual; + function GetOldUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetID_PEDIDO_CLIENTEValue: Integer; virtual; + function GetID_PEDIDO_CLIENTEIsNull: Boolean; virtual; + function GetOldID_PEDIDO_CLIENTEValue: Integer; virtual; + function GetOldID_PEDIDO_CLIENTEIsNull: Boolean; virtual; + procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); virtual; + procedure SetID_PEDIDO_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetREF_PED_CLIENTEValue: String; virtual; + function GetREF_PED_CLIENTEIsNull: Boolean; virtual; + function GetOldREF_PED_CLIENTEValue: String; virtual; + function GetOldREF_PED_CLIENTEIsNull: Boolean; virtual; + procedure SetREF_PED_CLIENTEValue(const aValue: String); virtual; + procedure SetREF_PED_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_NETOValue: Currency; virtual; + function GetIMPORTE_NETOIsNull: Boolean; virtual; + function GetOldIMPORTE_NETOValue: Currency; virtual; + function GetOldIMPORTE_NETOIsNull: Boolean; virtual; + procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + function GetOldIMPORTE_PORTEValue: Currency; virtual; + function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + function GetOldDESCUENTOValue: Float; virtual; + function GetOldDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_DESCUENTOValue: Currency; virtual; + function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; + function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; + function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual; + procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; + procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; + function GetBASE_IMPONIBLEValue: Currency; virtual; + function GetBASE_IMPONIBLEIsNull: Boolean; virtual; + function GetOldBASE_IMPONIBLEValue: Currency; virtual; + function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; + function GetIVAValue: Float; virtual; + function GetIVAIsNull: Boolean; virtual; + function GetOldIVAValue: Float; virtual; + function GetOldIVAIsNull: Boolean; virtual; + procedure SetIVAValue(const aValue: Float); virtual; + procedure SetIVAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_IVAValue: Currency; virtual; + function GetIMPORTE_IVAIsNull: Boolean; virtual; + function GetOldIMPORTE_IVAValue: Currency; virtual; + function GetOldIMPORTE_IVAIsNull: Boolean; virtual; + procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; + procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; + function GetID_FORMA_PAGOValue: Integer; virtual; + function GetID_FORMA_PAGOIsNull: Boolean; virtual; + function GetOldID_FORMA_PAGOValue: Integer; virtual; + function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; + procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; + procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; + property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; + property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; + property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; + property FECHA_ENVIO : DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue; + property FECHA_ENVIOIsNull : Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull; + property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue; + property OldFECHA_ENVIOIsNull : Boolean read GetOldFECHA_ENVIOIsNull; + property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; + property FECHA_PEDIDOIsNull : Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull; + property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue; + property OldFECHA_PEDIDOIsNull : Boolean read GetOldFECHA_PEDIDOIsNull; + property FECHA_CONFIRMACION : DateTime read GetFECHA_CONFIRMACIONValue write SetFECHA_CONFIRMACIONValue; + property FECHA_CONFIRMACIONIsNull : Boolean read GetFECHA_CONFIRMACIONIsNull write SetFECHA_CONFIRMACIONIsNull; + property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue; + property OldFECHA_CONFIRMACIONIsNull : Boolean read GetOldFECHA_CONFIRMACIONIsNull; + property FECHA_ENTREGA : DateTime read GetFECHA_ENTREGAValue write SetFECHA_ENTREGAValue; + property FECHA_ENTREGAIsNull : Boolean read GetFECHA_ENTREGAIsNull write SetFECHA_ENTREGAIsNull; + property OldFECHA_ENTREGA : DateTime read GetOldFECHA_ENTREGAValue; + property OldFECHA_ENTREGAIsNull : Boolean read GetOldFECHA_ENTREGAIsNull; + property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue; + property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull; + property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; + property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull; + property NOMBRE_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue; + property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull; + property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; + property OldNOMBRE_ALMACENIsNull : Boolean read GetOldNOMBRE_ALMACENIsNull; + property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue; + property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; + property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; + property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; + property INCIDENCIAS : IROStrings read GetINCIDENCIASValue; + property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; + property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; + property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull; + property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; + property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; + property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; + property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull; + property CALLE : String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; + property OldCALLE : String read GetOldCALLEValue; + property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; + property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property OldPOBLACION : String read GetOldPOBLACIONValue; + property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; + property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property OldPROVINCIA : String read GetOldPROVINCIAValue; + property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; + property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; + property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; + property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; + property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; + property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; + property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; + property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue; + property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; + property OldTELEFONO : String read GetOldTELEFONOValue; + property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull; + property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; + property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; + property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; + property ID_PEDIDO_CLIENTE : Integer read GetID_PEDIDO_CLIENTEValue write SetID_PEDIDO_CLIENTEValue; + property ID_PEDIDO_CLIENTEIsNull : Boolean read GetID_PEDIDO_CLIENTEIsNull write SetID_PEDIDO_CLIENTEIsNull; + property OldID_PEDIDO_CLIENTE : Integer read GetOldID_PEDIDO_CLIENTEValue; + property OldID_PEDIDO_CLIENTEIsNull : Boolean read GetOldID_PEDIDO_CLIENTEIsNull; + property REF_PED_CLIENTE : String read GetREF_PED_CLIENTEValue write SetREF_PED_CLIENTEValue; + property REF_PED_CLIENTEIsNull : Boolean read GetREF_PED_CLIENTEIsNull write SetREF_PED_CLIENTEIsNull; + property OldREF_PED_CLIENTE : String read GetOldREF_PED_CLIENTEValue; + property OldREF_PED_CLIENTEIsNull : Boolean read GetOldREF_PED_CLIENTEIsNull; + property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; + property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; + property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; + property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull; + property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; + property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; + property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; + property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; + property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; + property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull; + property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; + property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull; + property IVA : Float read GetIVAValue write SetIVAValue; + property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull; + property OldIVA : Float read GetOldIVAValue; + property OldIVAIsNull : Boolean read GetOldIVAIsNull; + property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; + property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; + property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; + property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull; + property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; + property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; + property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; + property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IPedidosProveedor_DetallesDelta } + IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) + ['{2C1855B3-AB89-4FCF-901B-0B55C5B1C45F}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_PEDIDOValue : Integer; + function GetOldPOSICIONValue : Integer; + function GetOldTIPO_DETALLEValue : String; + function GetOldCONCEPTOValue : String; + function GetOldCANTIDADValue : Integer; + function GetOldIMPORTE_UNIDADValue : Currency; + function GetOldIMPORTE_TOTALValue : Currency; + function GetOldVISIBLEValue : SmallInt; + function GetOldID_ARTICULOValue : Integer; + function GetOldDESCUENTOValue : Float; + function GetOldIMPORTE_PORTEValue : Currency; + function GetOldREFERENCIAValue : String; + function GetOldREFERENCIA_PROVEEDORValue : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property OldPOSICION : Integer read GetOldPOSICIONValue; + property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; + property OldCONCEPTO : String read GetOldCONCEPTOValue; + property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldVISIBLE : SmallInt read GetOldVISIBLEValue; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + end; + + { TPedidosProveedor_DetallesBusinessProcessorRules } + TPedidosProveedor_DetallesBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor_Detalles, IPedidosProveedor_DetallesDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_PEDIDOValue: Integer; virtual; + function GetID_PEDIDOIsNull: Boolean; virtual; + function GetOldID_PEDIDOValue: Integer; virtual; + function GetOldID_PEDIDOIsNull: Boolean; virtual; + procedure SetID_PEDIDOValue(const aValue: Integer); virtual; + procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetPOSICIONValue: Integer; virtual; + function GetPOSICIONIsNull: Boolean; virtual; + function GetOldPOSICIONValue: Integer; virtual; + function GetOldPOSICIONIsNull: Boolean; virtual; + procedure SetPOSICIONValue(const aValue: Integer); virtual; + procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; + function GetTIPO_DETALLEValue: String; virtual; + function GetTIPO_DETALLEIsNull: Boolean; virtual; + function GetOldTIPO_DETALLEValue: String; virtual; + function GetOldTIPO_DETALLEIsNull: Boolean; virtual; + procedure SetTIPO_DETALLEValue(const aValue: String); virtual; + procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; + function GetCONCEPTOValue: String; virtual; + function GetCONCEPTOIsNull: Boolean; virtual; + function GetOldCONCEPTOValue: String; virtual; + function GetOldCONCEPTOIsNull: Boolean; virtual; + procedure SetCONCEPTOValue(const aValue: String); virtual; + procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; + function GetCANTIDADValue: Integer; virtual; + function GetCANTIDADIsNull: Boolean; virtual; + function GetOldCANTIDADValue: Integer; virtual; + function GetOldCANTIDADIsNull: Boolean; virtual; + procedure SetCANTIDADValue(const aValue: Integer); virtual; + procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_UNIDADValue: Currency; virtual; + function GetIMPORTE_UNIDADIsNull: Boolean; virtual; + function GetOldIMPORTE_UNIDADValue: Currency; virtual; + function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual; + procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; + procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + function GetOldIMPORTE_TOTALValue: Currency; virtual; + function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetVISIBLEValue: SmallInt; virtual; + function GetVISIBLEIsNull: Boolean; virtual; + function GetOldVISIBLEValue: SmallInt; virtual; + function GetOldVISIBLEIsNull: Boolean; virtual; + procedure SetVISIBLEValue(const aValue: SmallInt); virtual; + procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; + function GetID_ARTICULOValue: Integer; virtual; + function GetID_ARTICULOIsNull: Boolean; virtual; + function GetOldID_ARTICULOValue: Integer; virtual; + function GetOldID_ARTICULOIsNull: Boolean; virtual; + procedure SetID_ARTICULOValue(const aValue: Integer); virtual; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + function GetOldDESCUENTOValue: Float; virtual; + function GetOldDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + function GetOldIMPORTE_PORTEValue: Currency; virtual; + function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + function GetOldREFERENCIA_PROVEEDORValue: String; virtual; + function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; + property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; + property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; + property OldPOSICION : Integer read GetOldPOSICIONValue; + property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull; + property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; + property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; + property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; + property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull; + property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property OldCONCEPTO : String read GetOldCONCEPTOValue; + property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; + property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; + property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; + property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; + property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; + property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull; + property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; + property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue; + property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; + property OldVISIBLE : SmallInt read GetOldVISIBLEValue; + property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; + property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; + property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; + property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IPedidosProveedor_Articulos_PendientesDelta } + IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) + ['{C22CA682-0E3B-40F8-9F4A-D422BC284233}'] + { Property getters and setters } + function GetOldID_PEDIDOValue : Integer; + function GetOldREFERENCIAValue : String; + function GetOldID_ARTICULOValue : Integer; + function GetOldCONCEPTOValue : String; + function GetOldCANTIDADValue : Integer; + function GetOldREFERENCIA_PROVEEDORValue : String; + + { Properties } + property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property OldCONCEPTO : String read GetOldCONCEPTOValue; + property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + end; + + { TPedidosProveedor_Articulos_PendientesBusinessProcessorRules } + TPedidosProveedor_Articulos_PendientesBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor_Articulos_Pendientes, IPedidosProveedor_Articulos_PendientesDelta) + private + protected + { Property getters and setters } + function GetID_PEDIDOValue: Integer; virtual; + function GetID_PEDIDOIsNull: Boolean; virtual; + function GetOldID_PEDIDOValue: Integer; virtual; + function GetOldID_PEDIDOIsNull: Boolean; virtual; + procedure SetID_PEDIDOValue(const aValue: Integer); virtual; + procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetID_ARTICULOValue: Integer; virtual; + function GetID_ARTICULOIsNull: Boolean; virtual; + function GetOldID_ARTICULOValue: Integer; virtual; + function GetOldID_ARTICULOIsNull: Boolean; virtual; + procedure SetID_ARTICULOValue(const aValue: Integer); virtual; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; + function GetCONCEPTOValue: String; virtual; + function GetCONCEPTOIsNull: Boolean; virtual; + function GetOldCONCEPTOValue: String; virtual; + function GetOldCONCEPTOIsNull: Boolean; virtual; + procedure SetCONCEPTOValue(const aValue: String); virtual; + procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; + function GetCANTIDADValue: Integer; virtual; + function GetCANTIDADIsNull: Boolean; virtual; + function GetOldCANTIDADValue: Integer; virtual; + function GetOldCANTIDADIsNull: Boolean; virtual; + procedure SetCANTIDADValue(const aValue: Integer); virtual; + procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + function GetOldREFERENCIA_PROVEEDORValue: String; virtual; + function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; + property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; + property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; + property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; + property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; + property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; + property OldCONCEPTO : String read GetOldCONCEPTOValue; + property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; + property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; + property OldCANTIDAD : Integer read GetOldCANTIDADValue; + property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; + property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + +implementation + +uses + Variants, uROBinaryHelpers, uDAInterfaces; + +{ TDarReferenciaBusinessProcessorRules } +constructor TDarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TDarReferenciaBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TDarReferenciaBusinessProcessorRules.GetVALORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR]; +end; + +function TDarReferenciaBusinessProcessorRules.GetVALORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR]); +end; + +function TDarReferenciaBusinessProcessorRules.GetOldVALORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaVALOR]; +end; + +function TDarReferenciaBusinessProcessorRules.GetOldVALORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaVALOR]); +end; + +procedure TDarReferenciaBusinessProcessorRules.SetVALORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR] := aValue; +end; + +procedure TDarReferenciaBusinessProcessorRules.SetVALORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR] := Null; +end; + + +{ TPedidosProveedorBusinessProcessorRules } +constructor TPedidosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +var + StrList: TStringList; +begin + inherited; + + StrList := TStringList.Create; + StrList.OnChange := OBSERVACIONES_OnChange; + f_OBSERVACIONES := NewROStrings(StrList,True); + + StrList := TStringList.Create; + StrList.OnChange := INCIDENCIAS_OnChange; + f_INCIDENCIAS := NewROStrings(StrList,True); +end; + +destructor TPedidosProveedorBusinessProcessorRules.Destroy; +begin + inherited; +end; + +procedure TPedidosProveedorBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorOBSERVACIONES] := TStringList(Sender).Text; +end; + +procedure TPedidosProveedorBusinessProcessorRules.INCIDENCIAS_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS] := TStringList(Sender).Text; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_EMPRESA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_EMPRESA]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_PROVEEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PROVEEDOR]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PROVEEDOR]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_PROVEEDOR]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_PROVEEDOR]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PROVEEDOR] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PROVEEDOR] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREFERENCIA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREFERENCIA]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorSITUACION]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorSITUACION]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_ENVIOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENVIO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_ENVIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENVIO]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ENVIOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ENVIO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ENVIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ENVIO]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ENVIOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENVIO] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ENVIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENVIO] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_PEDIDOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_PEDIDO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_PEDIDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_PEDIDO]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_PEDIDOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_PEDIDO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_PEDIDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_PEDIDO]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_PEDIDOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_PEDIDO] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_PEDIDOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_PEDIDO] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_CONFIRMACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_CONFIRMACION]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_CONFIRMACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_CONFIRMACION]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_CONFIRMACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_CONFIRMACION]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_CONFIRMACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_CONFIRMACION]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_CONFIRMACIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_CONFIRMACION] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_CONFIRMACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_CONFIRMACION] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_ENTREGAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENTREGA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_ENTREGAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENTREGA]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ENTREGAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ENTREGA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ENTREGAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ENTREGA]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ENTREGAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENTREGA] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ENTREGAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ENTREGA] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_ALMACENValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_ALMACENIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_ALMACENValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_ALMACEN]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_ALMACENIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_ALMACEN]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_ALMACENIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_ALMACEN] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_ALMACENValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetNOMBRE_ALMACENIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRE_ALMACENValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE_ALMACEN]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRE_ALMACENIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE_ALMACEN]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRE_ALMACENValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE_ALMACEN] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings; +begin + result := f_OBSERVACIONES; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorOBSERVACIONES]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorOBSERVACIONES]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorOBSERVACIONES]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorOBSERVACIONES]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorOBSERVACIONES] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_TOTAL]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_TOTAL]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_TOTAL]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_TOTAL]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_TOTAL] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_TOTAL] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIASValue: IROStrings; +begin + result := f_INCIDENCIAS; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIASIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIAS_ACTIVASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetCALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCALLE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetCALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCALLE]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldCALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCALLE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCALLE]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetCALLEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCALLE] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCALLE] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetPOBLACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPOBLACION]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPOBLACION]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldPOBLACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPOBLACION]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPOBLACION]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPOBLACION] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPOBLACION] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetPROVINCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPROVINCIA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPROVINCIA]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldPROVINCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPROVINCIA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPROVINCIA]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPROVINCIA] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPROVINCIA] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetCODIGO_POSTALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGO_POSTAL]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGO_POSTAL]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCODIGO_POSTAL]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCODIGO_POSTAL]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGO_POSTAL] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGO_POSTAL] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPERSONA_CONTACTO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPERSONA_CONTACTO]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPERSONA_CONTACTO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPERSONA_CONTACTO]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPERSONA_CONTACTO] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPERSONA_CONTACTO] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetTELEFONOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTELEFONO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetTELEFONOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTELEFONO]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldTELEFONOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorTELEFONO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorTELEFONO]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetTELEFONOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTELEFONO] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTELEFONO] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ALTA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ALTA]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ALTA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_ALTA]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ALTA] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_ALTA] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_MODIFICACION]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_MODIFICACION]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_MODIFICACION]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHA_MODIFICACION]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_MODIFICACION] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHA_MODIFICACION] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorUSUARIO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorUSUARIO]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorUSUARIO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorUSUARIO]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorUSUARIO] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorUSUARIO] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_PEDIDO_CLIENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PEDIDO_CLIENTE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_PEDIDO_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PEDIDO_CLIENTE]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_PEDIDO_CLIENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_PEDIDO_CLIENTE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_PEDIDO_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_PEDIDO_CLIENTE]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_PEDIDO_CLIENTEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PEDIDO_CLIENTE] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_PEDIDO_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_PEDIDO_CLIENTE] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetREF_PED_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_PED_CLIENTE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetREF_PED_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_PED_CLIENTE]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldREF_PED_CLIENTEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_PED_CLIENTE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldREF_PED_CLIENTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_PED_CLIENTE]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetREF_PED_CLIENTEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_PED_CLIENTE] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetREF_PED_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_PED_CLIENTE] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_NETOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_NETO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_NETO]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_NETO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_NETO]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_NETO] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_NETO] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_PORTE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_PORTE]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_PORTE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_PORTE]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_PORTE] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_PORTE] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetDESCUENTOValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCUENTO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCUENTO]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldDESCUENTOValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorDESCUENTO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorDESCUENTO]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCUENTO] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCUENTO] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_DESCUENTO] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorBASE_IMPONIBLE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorBASE_IMPONIBLE]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorBASE_IMPONIBLE]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorBASE_IMPONIBLE]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorBASE_IMPONIBLE] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorBASE_IMPONIBLE] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIVAValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIVA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIVA]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIVAValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIVA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIVA]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIVAValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIVA] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIVA] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_IVAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_IVA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_IVA]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_IVA]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTE_IVA]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_IVA] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTE_IVA] := Null; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO]); +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_FORMA_PAGO]; +end; + +function TPedidosProveedorBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_FORMA_PAGO]); +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := aValue; +end; + +procedure TPedidosProveedorBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := Null; +end; + + +{ TPedidosProveedor_DetallesBusinessProcessorRules } +constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TPedidosProveedor_DetallesBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_PEDIDOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_PEDIDO]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_PEDIDO]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID_PEDIDO]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID_PEDIDO]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_PEDIDO] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_PEDIDO] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetPOSICIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesPOSICION]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetPOSICIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesPOSICION]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldPOSICIONValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesPOSICION]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesPOSICION]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesPOSICION] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesPOSICION] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetTIPO_DETALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesTIPO_DETALLE] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetCONCEPTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCONCEPTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCONCEPTO]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCONCEPTO]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: SmallInt; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: SmallInt); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID_ARTICULO]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesID_ARTICULO]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesDESCUENTO]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesDESCUENTO]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesDESCUENTO]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesDESCUENTO]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesDESCUENTO] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesDESCUENTO] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA] := Null; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR]); +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR]; +end; + +function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR]); +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR] := aValue; +end; + +procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR] := Null; +end; + + +{ TPedidosProveedor_Articulos_PendientesBusinessProcessorRules } +constructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_PEDIDOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO]); +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO]); +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO] := aValue; +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO] := Null; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA]); +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA]); +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA] := aValue; +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA] := Null; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO]); +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO]); +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO] := aValue; +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO] := Null; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCONCEPTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO]); +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCONCEPTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO]); +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := aValue; +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := Null; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]); +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]); +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := aValue; +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := Null; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR]); +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR]; +end; + +function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR]); +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR] := aValue; +end; + +procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR] := Null; +end; + + +initialization + RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_PedidosProveedorDelta, TPedidosProveedorBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_PedidosProveedor_DetallesDelta, TPedidosProveedor_DetallesBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_PedidosProveedor_Articulos_PendientesDelta, TPedidosProveedor_Articulos_PendientesBusinessProcessorRules); + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.dcu new file mode 100644 index 00000000..cdd4b4ea Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas new file mode 100644 index 00000000..9d5548a0 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas @@ -0,0 +1,57 @@ +unit uBizDetallesPedidoProveedor; + +interface + +uses + uDADataTable, schPedidosProveedorClient_Intf; + +const + BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR = 'Client.DetallesPedido.Proveedor'; + BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND = 'Client.DetallesPedido.Pendientes'; + +type + IBizDetallesPedidoProveedor = interface(IPedidosProveedor_Detalles) + ['{F868D8B0-18F9-469A-8461-3B1DADCC3B33}'] + end; + + IBizDetallesPedidoProveedorPend = interface(IPedidosProveedor_Articulos_Pendientes) + ['{0BE0236B-D58B-41CA-B939-8338875D4CF4}'] + end; + + TBizDetallesPedidoProveedor = class(TPedidosProveedor_DetallesDataTableRules, IBizDetallesPedidoProveedor) + private + ContIdAux: Integer; + protected + procedure OnNewRecord(Sender: TDADataTable); override; + public + constructor Create(aDataTable: TDADataTable); override; + end; + + TBizDetallesPedidoProveedorPend = class(TPedidosProveedor_Articulos_PendientesDataTableRules, IBizDetallesPedidoProveedorPend) + end; + +implementation + +{ TBizDetallesPedidoProveedor } + +uses + uDataTableUtils; + + +constructor TBizDetallesPedidoProveedor.Create(aDataTable: TDADataTable); +begin + inherited Create(aDataTable); + ContIdAux := -1; +end; + +procedure TBizDetallesPedidoProveedor.OnNewRecord(Sender: TDADataTable); +begin + inherited; + ID := ContIdAux; // -1, -2, -3... + Dec(ContIdAux); +end; + +initialization + RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR, TBizDetallesPedidoProveedor); + RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND, TBizDetallesPedidoProveedorPend); +end. diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.dcu new file mode 100644 index 00000000..4aa74913 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas new file mode 100644 index 00000000..9bf00a0d --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas @@ -0,0 +1,331 @@ +unit uBizPedidosProveedor; + +interface + +uses + Classes, uDADataTable, uDAInterfaces, uROClasses, + schPedidosProveedorClient_Intf, uDBSelectionListUtils, + uBizContactos, uBizDetallesPedidoProveedor; + +const + BIZ_CLIENT_PEDIDO_PROVEEDOR = 'Client.PedidoProveedor'; + + SITUACION_PEDIDO_PENDIENTE = 'PENDIENTE'; + SITUACION_PEDIDO_PARCIAL = 'PARCIAL'; + SITUACION_PEDIDO_RECIBIDO = 'RECIBIDO'; + +type + IBizPedidoProveedor = interface(IPedidosProveedor) + ['{513FE06A-48B8-4FA6-8D1D-0DD48EAD9352}'] + + procedure SetProveedor(AValue : IBizProveedor); + function GetProveedor : IBizProveedor; + property Proveedor : IBizProveedor read GetProveedor write SetProveedor; + + // Esta propidad es para que el controlador pueda acceder directamente + // a la propiedad Proveedor + procedure _SetProveedor(AValue : IBizProveedor); + function _GetProveedor : IBizProveedor; + property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor; + + function GetDetalles: IBizDetallesPedidoProveedor; + procedure SetDetalles(Value: IBizDetallesPedidoProveedor); + property Detalles: IBizDetallesPedidoProveedor read GetDetalles write SetDetalles; + + function EsNuevo : Boolean; + function DarListaSituaciones: TStringList; + end; + + TBizPedidoProveedor = class(TPedidosProveedorDataTableRules, IBizPedidoProveedor, ISeleccionable) + private + procedure CalcularBaseImponible; + procedure CalcularIVA; + protected + FSeleccionableInterface : ISeleccionable; + FProveedor : IBizProveedor; + FDetalles : IBizDetallesPedidoProveedor; + FDetallesLink : TDADataSource; + + procedure SetProveedor(AValue : IBizProveedor); + function GetProveedor : IBizProveedor; + + procedure _SetProveedor(AValue : IBizProveedor); + function _GetProveedor : IBizProveedor; + + function GetDetalles: IBizDetallesPedidoProveedor; + procedure SetDetalles(Value: IBizDetallesPedidoProveedor); + + procedure SetFECHA_ENVIOValue(const aValue: TDateTime); override; + procedure SetFECHA_CONFIRMACIONValue(const aValue: TDateTime); override; + procedure SetFECHA_ENTREGAValue(const aValue: TDateTime); override; + procedure SetFECHA_PEDIDOValue(const aValue: TDateTime); override; + procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); override; +// procedure SetINCIDENCIASValue(const aValue: IROStrings); override; + procedure SetID_FORMA_PAGOValue(const aValue: Integer); override; + + procedure IMPORTE_NETOOnChange(Sender: TDACustomField); + procedure IMPORTE_PORTEOnChange(Sender: TDACustomField); + procedure DESCUENTOOnChange(Sender: TDACustomField); + procedure IVAOnChange(Sender: TDACustomField); + + procedure OnNewRecord(Sender: TDADataTable); override; + procedure IniciarValoresPedidoNuevo; + + public + procedure CalcularImporteTotal; + function DarListaSituaciones: TStringList; + function EsNuevo : Boolean; + property Proveedor : IBizProveedor read GetProveedor write SetProveedor; + property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor; + + property Detalles: IBizDetallesPedidoProveedor read GetDetalles write SetDetalles; + + property SeleccionableInterface : ISeleccionable read FSeleccionableInterface + write FSeleccionableInterface implements ISeleccionable; + + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + end; + +implementation + +uses + SysUtils, Variants, uDataModuleConfiguracion, uDataModuleUsuarios, + uDataTableUtils, DateUtils, uDateUtils, DB; + +{ TBizPedidoProveedor } + +procedure TBizPedidoProveedor.CalcularBaseImponible; +begin + if not Self.DataTable.Editing then + Edit; + IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); + BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; +end; + +procedure TBizPedidoProveedor.CalcularImporteTotal; +begin + DataTable.DisableControls; + DataTable.Fields.FieldEventsDisabled := True; + try + CalcularBaseImponible; + CalcularIVA; + + if not Self.DataTable.Editing then + Edit; + IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA; + finally + DataTable.Fields.FieldEventsDisabled := False; + DataTable.EnableControls; + end; +end; + +procedure TBizPedidoProveedor.CalcularIVA; +begin + if not Self.DataTable.Editing then + Edit; + IMPORTE_IVA := (IVA / 100) * (BASE_IMPONIBLE); +end; + +constructor TBizPedidoProveedor.Create(aDataTable: TDADataTable); +begin + inherited; + FProveedor := Nil; + + with DataTable do + begin + FieldByName(fld_PedidosProveedorIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange; + FieldByName(fld_PedidosProveedorIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange; + FieldByName(fld_PedidosProveedorDESCUENTO).OnChange := DESCUENTOOnChange; + FieldByName(fld_PedidosProveedorIVA).OnChange := IVAOnChange; + end; + + FDetallesLink := TDADataSource.Create(NIL); + FDetallesLink.DataTable := aDataTable; + + FSeleccionableInterface := TSeleccionable.Create(aDataTable); +end; + +function TBizPedidoProveedor.DarListaSituaciones: TStringList; +begin + Result := TStringList.Create; + with Result do + begin + Add(SITUACION_PEDIDO_PENDIENTE); + Add(SITUACION_PEDIDO_PARCIAL); + Add(SITUACION_PEDIDO_RECIBIDO); + end; +end; + +procedure TBizPedidoProveedor.DESCUENTOOnChange(Sender: TDACustomField); +begin + CalcularImporteTotal; +end; + +destructor TBizPedidoProveedor.Destroy; +begin + FProveedor := NIL; + FDetalles := NIL; + FDetallesLink.Free; + + FSeleccionableInterface := NIL; + inherited; +end; + +function TBizPedidoProveedor.EsNuevo: Boolean; +begin + Result := (ID < 0); +end; + +function TBizPedidoProveedor.GetProveedor: IBizProveedor; +begin + Result := FProveedor; +end; + +procedure TBizPedidoProveedor.IMPORTE_NETOOnChange(Sender: TDACustomField); +begin + CalcularImporteTotal; +end; + +procedure TBizPedidoProveedor.IMPORTE_PORTEOnChange(Sender: TDACustomField); +begin + CalcularImporteTotal; +end; + +procedure TBizPedidoProveedor.IniciarValoresPedidoNuevo; +begin + ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; +// USUARIO := dmUsuarios.LoginInfo.Usuario; + FECHA_PEDIDO := DateOf(Date); + SITUACION := SITUACION_PEDIDO_PENDIENTE; + INCIDENCIAS_ACTIVAS := 0; +// ID_PEDIDO_CLIENTE := 0; + REF_PED_CLIENTE := ''; + + // ALMACÉN PUESTO A CAPÓN Y PROVISIONAL + ID_ALMACEN := 2; +end; + +procedure TBizPedidoProveedor.IVAOnChange(Sender: TDACustomField); +begin + CalcularImporteTotal; +end; + +function TBizPedidoProveedor.GetDetalles: IBizDetallesPedidoProveedor; +begin + Result := FDetalles; +end; + +procedure TBizPedidoProveedor.OnNewRecord(Sender: TDADataTable); +begin + inherited; + IniciarValoresPedidoNuevo; +end; + +procedure TBizPedidoProveedor.SetProveedor(AValue: IBizProveedor); +var + bEnEdicion : Boolean; + +begin + FProveedor := AValue; + + if Assigned(FProveedor) then + begin + if not FProveedor.DataTable.Active then + FProveedor.DataTable.Active := True; + + if ID_PROVEEDOR <> FProveedor.ID then + begin + bEnEdicion := (DataTable.State in dsEditModes); + if not bEnEdicion then + DataTable.Edit; + + ID_PROVEEDOR := FProveedor.ID; + + DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles + //si se quita el id de la cabecera y los detalles se desincroniza + if bEnEdicion then + DataTable.Edit; + end; + end; +end; + +function TBizPedidoProveedor._GetProveedor: IBizProveedor; +begin + Result := FProveedor; +end; + +procedure TBizPedidoProveedor._SetProveedor(AValue: IBizProveedor); +begin + FProveedor := AValue; +end; + +procedure TBizPedidoProveedor.SetDetalles(Value: IBizDetallesPedidoProveedor); +begin + FDetalles := Value; + EnlazarMaestroDetalle(FDetallesLink, FDetalles); +end; + +procedure TBizPedidoProveedor.SetFECHA_CONFIRMACIONValue(const aValue: TDateTime); +begin + if EsFechaVacia(aValue) then + SetFieldNull(DataTable, fld_PedidosProveedorFECHA_CONFIRMACION) + else + inherited; +end; + +procedure TBizPedidoProveedor.SetFECHA_ENTREGAValue(const aValue: TDateTime); +begin + if EsFechaVacia(aValue) then + SetFieldNull(DataTable, fld_PedidosProveedorFECHA_ENTREGA) + else + inherited; +end; + +procedure TBizPedidoProveedor.SetFECHA_ENVIOValue(const aValue: TDateTime); +begin + if EsFechaVacia(aValue) then + SetFieldNull(DataTable, fld_PedidosProveedorFECHA_ENVIO) + else + inherited; +end; + +procedure TBizPedidoProveedor.SetFECHA_PEDIDOValue(const aValue: TDateTime); +begin + if EsFechaVacia(aValue) then + SetFieldNull(DataTable, fld_PedidosProveedorFECHA_PEDIDO) + else + inherited; +end; + +procedure TBizPedidoProveedor.SetID_FORMA_PAGOValue(const aValue: Integer); +begin + if (aValue = 0) then + SetFieldNull(DataTable, fld_PedidosProveedorID_FORMA_PAGO) + else + inherited; +end; + +procedure TBizPedidoProveedor.SetID_PEDIDO_CLIENTEValue(const aValue: Integer); +begin + if (aValue = 0) then + SetFieldNull(DataTable, fld_PedidosProveedorID_PEDIDO_CLIENTE) + else + inherited; +end; + +{procedure TBizPedidoProveedor.SetINCIDENCIASValue(const aValue: IROStrings); +begin + if not Assigned(aValue) then + SetFieldNull(DataTable, fld_PedidosProveedorINCIDENCIAS) + else + inherited; +end;} + +initialization + RegisterDataTableRules(BIZ_CLIENT_PEDIDO_PROVEEDOR, TBizPedidoProveedor); + +finalization + +end. + diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.dcu b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.dcu new file mode 100644 index 00000000..07bb444d Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas new file mode 100644 index 00000000..9b97e78d --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedorServer.pas @@ -0,0 +1,75 @@ +unit uBizPedidosProveedorServer; + +interface + +uses + uDAInterfaces, uDADelta, uDABusinessProcessor, + schPedidosProveedorServer_Intf; + +const + BIZ_SERVER_PEDIDOS_PROVEEDOR = 'Server.PedidosProveedor'; + REF_PEDIDOS_PROVEEDOR = 'REF_PEDIDOS_PROVEEDOR'; + +type + TBizPedidosProveedorServer = class(TPedidosProveedorBusinessProcessorRules) + protected + procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override; + end; + +implementation + +uses + Variants, uDAClasses, uReferenciasUtils, uBusinessUtils, uROClasses, uDataModuleServer, + schPedidosProveedorClient_Intf; + +{ TBizPedidosProveedorServer } + +procedure TBizPedidosProveedorServer.BeforeProcessDelta( + Sender: TDABusinessProcessor; const aDelta: IDADelta); +var + ASchema : TDASchema; + ACurrentConn : IDAConnection; + dsData: IDADataset; + Empresa : Variant; + +begin + inherited; + case Sender.CurrentChange.ChangeType of + ctInsert, ctUpdate: begin + //Si la referencia no ha sido asignada le asignamos una nosotros + if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA])) + or (VarToStr(Sender.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA]) = '') then + begin + ASchema := BusinessProcessor.Schema; + ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); + + try + //Siempre va a estar rellena + Empresa := Sender.CurrentChange.NewValueByName[fld_PedidosProveedorID_EMPRESA]; + dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'ID_EMPRESA'], [REF_PEDIDOS_PROVEEDOR, Empresa]); + except + RaiseError('No existe la tabla REFERENCIAS'); + end; + + dsData.Active := True; + + if dsData.IsEmpty then + RaiseError('NO HAY REFERENCIA ' + REF_PEDIDOS_PROVEEDOR + ' DECLARADA EN TABLA REFERENCIAS'); + + REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString; + + try + ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_PEDIDOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]); + except + RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); + end; + + end; + end; + end; +end; + +initialization + RegisterBusinessProcessorRules(BIZ_SERVER_PEDIDOS_PROVEEDOR, TBizPedidosProveedorServer); + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDABusinessProcessor.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDABusinessProcessor.dcu new file mode 100644 index 00000000..63f44684 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDABusinessProcessor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAClasses.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAClasses.dcu new file mode 100644 index 00000000..45ee64c5 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAClasses.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDADataStreamer.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDADataStreamer.dcu new file mode 100644 index 00000000..035dc434 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDADataStreamer.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDADataTable.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDADataTable.dcu new file mode 100644 index 00000000..be2fe4f0 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDADataTable.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDADelta.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDADelta.dcu new file mode 100644 index 00000000..fa05b731 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDADelta.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDADriverManager.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDADriverManager.dcu new file mode 100644 index 00000000..992385d8 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDADriverManager.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAEngine.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAEngine.dcu new file mode 100644 index 00000000..23589843 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAEngine.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAExpressionEvaluator.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAExpressionEvaluator.dcu new file mode 100644 index 00000000..7c7806b5 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAExpressionEvaluator.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAHelpers.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAHelpers.dcu new file mode 100644 index 00000000..77950406 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAHelpers.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAInterfaces.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAInterfaces.dcu new file mode 100644 index 00000000..1e34f217 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAInterfaces.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAInterfacesEx.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAInterfacesEx.dcu new file mode 100644 index 00000000..2d262090 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAInterfacesEx.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAMacroProcessors.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAMacroProcessors.dcu new file mode 100644 index 00000000..f43eafa2 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAMacroProcessors.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAMacros.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAMacros.dcu new file mode 100644 index 00000000..6e687a3b Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAMacros.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAMemDataTable.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAMemDataTable.dcu new file mode 100644 index 00000000..3de3e4dd Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAMemDataTable.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAMemDataset.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAMemDataset.dcu new file mode 100644 index 00000000..42436195 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAMemDataset.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAOracleInterfaces.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAOracleInterfaces.dcu new file mode 100644 index 00000000..953002e7 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAOracleInterfaces.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDARegExpr.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDARegExpr.dcu new file mode 100644 index 00000000..1dd1b45e Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDARegExpr.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDARes.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDARes.dcu new file mode 100644 index 00000000..d352a18a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDARes.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDASQL92Interfaces.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDASQL92Interfaces.dcu new file mode 100644 index 00000000..6bfa1df2 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDASQL92Interfaces.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDASQL92QueryBuilder.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDASQL92QueryBuilder.dcu new file mode 100644 index 00000000..93d60795 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDASQL92QueryBuilder.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAScriptingProvider.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAScriptingProvider.dcu new file mode 100644 index 00000000..0311537d Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAScriptingProvider.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDASupportClasses.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDASupportClasses.dcu new file mode 100644 index 00000000..e2fff3bf Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDASupportClasses.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAUtils.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAUtils.dcu new file mode 100644 index 00000000..1aa7d213 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAUtils.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAWhere.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAWhere.dcu new file mode 100644 index 00000000..fd1e3a74 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAWhere.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uDAXMLUtils.dcu b/Source/Modulos/Pedidos a proveedor/Model/uDAXMLUtils.dcu new file mode 100644 index 00000000..1b2fd034 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uDAXMLUtils.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uIDataModulePedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Model/uIDataModulePedidosProveedor.dcu new file mode 100644 index 00000000..c085bfe3 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uIDataModulePedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uIDataModulePedidosProveedorReport.dcu b/Source/Modulos/Pedidos a proveedor/Model/uIDataModulePedidosProveedorReport.dcu new file mode 100644 index 00000000..fb3d4bcc Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uIDataModulePedidosProveedorReport.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROBinaryHelpers.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROBinaryHelpers.dcu new file mode 100644 index 00000000..43be43c2 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROBinaryHelpers.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROCipher.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROCipher.dcu new file mode 100644 index 00000000..4a899ffe Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROCipher.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROCiphers.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROCiphers.dcu new file mode 100644 index 00000000..fb8494ba Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROCiphers.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROClasses.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROClasses.dcu new file mode 100644 index 00000000..4056f025 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROClasses.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROClient.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROClient.dcu new file mode 100644 index 00000000..319c72f1 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROClient.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROClientIntf.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROClientIntf.dcu new file mode 100644 index 00000000..aab7285c Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROClientIntf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROCompression.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROCompression.dcu new file mode 100644 index 00000000..d1db286a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROCompression.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uRODECConst.dcu b/Source/Modulos/Pedidos a proveedor/Model/uRODECConst.dcu new file mode 100644 index 00000000..f91e06c9 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uRODECConst.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uRODECUtil.dcu b/Source/Modulos/Pedidos a proveedor/Model/uRODECUtil.dcu new file mode 100644 index 00000000..5e0189d1 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uRODECUtil.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uRODL.dcu b/Source/Modulos/Pedidos a proveedor/Model/uRODL.dcu new file mode 100644 index 00000000..3d0a7fca Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uRODL.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uRODLToXML.dcu b/Source/Modulos/Pedidos a proveedor/Model/uRODLToXML.dcu new file mode 100644 index 00000000..c3571592 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uRODLToXML.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uRODynamicRequest.dcu b/Source/Modulos/Pedidos a proveedor/Model/uRODynamicRequest.dcu new file mode 100644 index 00000000..fa1e703a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uRODynamicRequest.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROEncryption.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROEncryption.dcu new file mode 100644 index 00000000..706bdf8c Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROEncryption.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROEventRepository.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROEventRepository.dcu new file mode 100644 index 00000000..e8ee1856 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROEventRepository.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROHTTPTools.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROHTTPTools.dcu new file mode 100644 index 00000000..2618d62b Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROHTTPTools.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROHash.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROHash.dcu new file mode 100644 index 00000000..c55e7609 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROHash.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROMSXML2_TLB.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROMSXML2_TLB.dcu new file mode 100644 index 00000000..61d7c2d9 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROMSXML2_TLB.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROMSXMLImpl.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROMSXMLImpl.dcu new file mode 100644 index 00000000..a7871445 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROMSXMLImpl.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uRORemoteService.dcu b/Source/Modulos/Pedidos a proveedor/Model/uRORemoteService.dcu new file mode 100644 index 00000000..27e54654 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uRORemoteService.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uRORes.dcu b/Source/Modulos/Pedidos a proveedor/Model/uRORes.dcu new file mode 100644 index 00000000..18252cc9 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uRORes.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROSerializer.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROSerializer.dcu new file mode 100644 index 00000000..336d5c31 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROSerializer.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROServerIntf.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROServerIntf.dcu new file mode 100644 index 00000000..ec043604 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROServerIntf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROSessions.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROSessions.dcu new file mode 100644 index 00000000..dce44653 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROSessions.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROTypes.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROTypes.dcu new file mode 100644 index 00000000..84bb70bc Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROTypes.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROXMLIntf.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROXMLIntf.dcu new file mode 100644 index 00000000..004d7a69 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROXMLIntf.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uROZLib.dcu b/Source/Modulos/Pedidos a proveedor/Model/uROZLib.dcu new file mode 100644 index 00000000..994dfc8c Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uROZLib.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/uroCipher1.dcu b/Source/Modulos/Pedidos a proveedor/Model/uroCipher1.dcu new file mode 100644 index 00000000..f47eb986 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Model/uroCipher1.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.bdsgroup b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.bdsgroup new file mode 100644 index 00000000..0e84674a --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.bdsgroup @@ -0,0 +1,27 @@ + + + + + + + + + + + ..\..\DataAbstract_D10\DataAbstract_D10.bdsproj + ..\..\Base\Base.bdsproj + ..\..\Base\ControllerBase\ControllerBase.bdsproj + ..\..\Base\GUIBase\GUIBase.bdsproj + ..\Contactos\Views\Contactos_view.bdsproj + ..\Articulos\Views\Articulos_view.bdsproj + Model\PedidosProveedor_model.bdsproj + Data\PedidosProveedor_data.bdsproj + Controller\PedidosProveedor_controller.bdsproj + Views\PedidosProveedor_view.bdsproj + Plugin\PedidosProveedor_plugin.bdsproj + DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl + + + + diff --git a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.config b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.config new file mode 100644 index 00000000..c8f28340 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.config @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj new file mode 100644 index 00000000..95b86e63 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj @@ -0,0 +1,134 @@ + + + {63bda8d7-1426-4a34-849f-51032a5e877d} + + + + + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.bdsproj b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.bdsproj new file mode 100644 index 00000000..452c9cce --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.bdsproj @@ -0,0 +1,495 @@ + + + + + + + + + + + + PedidosProveedor_plugin.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + EurekaLog 5.1.9 + + + + diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dcu b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dcu new file mode 100644 index 00000000..e2cf7769 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dpk b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dpk new file mode 100644 index 00000000..1630e9a3 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dpk @@ -0,0 +1,34 @@ +package PedidosProveedor_plugin; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} + +requires + PedidosProveedor_controller, + PedidosProveedor_view; + +contains + uPluginPedidosProveedor in 'uPluginPedidosProveedor.pas' {PluginPedidosProveedor}; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dproj b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dproj new file mode 100644 index 00000000..6e7e0077 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dproj @@ -0,0 +1,601 @@ + + + {e7d762a1-3a15-46b2-bd5b-3821d13b8347} + PedidosProveedor_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\PedidosProveedor_plugin.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + + + + + + + + + + + + + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + EurekaLog 5.1.9 + + + PedidosProveedor_plugin.dpk + + + + + + + MainSource + + + + +
PluginPedidosProveedor
+ + + + + diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.drc b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.drc new file mode 100644 index 00000000..41914b92 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.drc @@ -0,0 +1,17 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Plugin\uPluginPedidosProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.drf */ diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.identcache b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.identcache new file mode 100644 index 00000000..d7ba4cb3 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.identcache differ diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.rc b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.res b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.res differ diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.dcu new file mode 100644 index 00000000..40cf6a3a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.dfm new file mode 100644 index 00000000..20491911 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.dfm @@ -0,0 +1,139 @@ +object PluginPedidosProveedor: TPluginPedidosProveedor + OldCreateOrder = True + DefaultAction = actPedidosProveedor + Description = 'Ventas' + ModuleMenu = MainMenu + ModuleName = 'Presupuestos' + SmallImages = SmallImages + LargeImages = LargeImages + Author = 'Rodax Software' + Version = '1.0.0' + Height = 252 + Width = 401 + object LargeImages: TPngImageList + Height = 24 + Width = 24 + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000026C4944415478DA + 63FCFFFF3FC3A28DC7FF335009C4F95B3222F319611600254836ECEFDF7F40FC + 1F4C8380856F36C3C53DB3705BB0D7D21EC500E7E307711A8EACD674CF2E8679 + ABF730CC5FB211BF05A4B8FC808D2383328B34C3B6D3CB19225F7E6358B87E1F + 610BB0F9005D0C046C0FEE63386CEFC470F3FC21303FECD91786259B0E50E683 + FFFF80610DC47F80AE07B17FFF0386FF9F7F60DFFCF9F79761C596C3A4FB8018 + 00F285EF83770C6B771C23CE0298B749015E77DF306CD87D82380BF0A51C6C00 + A44771E55A864DFB4E126F01AEA082590E9387A9955BBE8661EB8153B4F381E4 + 92550CBB0E9FA1AE0F6EAA108EABC75FEDC8F3C1B4584686847408FBE74F0686 + 5F3F2018C4FEF903824F1C47B320DAC71C9C3B09F98058C3F9251818AEDC45B2 + 20C2D30C9C3BF1F90064388B207EDFFD798F301C250E42DD4C188E39B910B400 + E67A10F8F80EE2E21F5097FFFACEC070FA0C2468EC0D0F311C3C8FE483001723 + 86D32E6E785D078A5890664200643808A058E0EB60002F5720E5FC3F70D90316 + 0396F94FA343C11620FB001C247F81F83703C36F501C007D70ED3A420EC5022F + 5B3D9C8683E81771E11816FCFA05341888FF40E995ABD919D4357E32B0B160B1 + C0CD5A1BA7E1A012F44D62248605A038005B00F201106FDACACE202D0FB1808D + 9581E1F865240B1CCD35C086FDFB0B29967FFF4514C7FFFE432C3ADD2D8F62C1 + 9B1708C341166DDFCDCE202A0DB1E0F21D3B86F6750719E116D899A8814B447C + 806DAF0FDC0250F0BC7B89301C44EF39C0CEC02FFE93E1FE1388E128C9B477F2 + 7C82A9235D7236D882A993D971AA79F7DB1C6E38DC0262417738C73AA00181F8 + D4201B0E0200C20B50400F1E42A70000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end> + Left = 232 + Top = 16 + Bitmap = {} + end + object ModuleActionList: TActionList + Images = LargeImages + Left = 40 + Top = 72 + object actPedidosProveedor: TAction + Category = 'Compras' + Caption = 'Pedidos a proveedor' + ImageIndex = 0 + OnExecute = actPedidosProveedorExecute + end + end + object MainMenu: TMainMenu + Images = LargeImages + Left = 40 + Top = 16 + object Compras1: TMenuItem + Caption = 'Compras' + object Pedidosaproveedor1: TMenuItem + Tag = 101 + Action = actPedidosProveedor + end + end + end + object SmallImages: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001864944415478DA + 63FCFFFF3FC384055BFF3390010A12BC1919610600394469FAF3F71FC3EF3F7F + 192CBCB3192EEE99856AC05E4B2B14C5CEC78F81696471AB030719662EDFC530 + 7FC9464C03F0815FBFFF826D06D10BD7EDC36E00BA0BB001DDAD3B19966D3A84 + DB0098B341E01F50EECF9F7F709BCFB93B33686EDCCEB06ADB11FC06C05C627B + E830C3613B5BB8CD97BDDD1954D66E6158BFEB387E0360367FBA7990E1C5C218 + 7C3E72C130C0F1D85186FD56D66059719B070CAA2D350CECEC59183A7FFE9CC6 + 303BB68501C30090B3617E7EDAACCCA0D3FD0CAC180EBE7F6760F8F19D61FA0E + 4306966DA9080372623D190EDAD8A0D80272018A0120CD1FDE81E9E9279D510D + 488F7463F805B4F9CF6F50A8FF61B8EAEB816A004CF37B20FEF19361FACD6054 + 0312439DE19A415EB815E88D30E0432F42F3870F1017BC4A45352036C011AE19 + 140320D7FC9E6A0031E041354233D80540037E95A31A10E163CBB062CB61D438 + BA9A0A8E85E9CBE5B1C6218A01A084810EB478DF3058B39EC099081CE4195C00 + 45135E518E0B4E380000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end> + PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] + Left = 308 + Top = 16 + Bitmap = {} + end + object ExtraImages: TPngImageList + Height = 28 + Width = 28 + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF + 940000000970485973000017120000171201679FD252000003184944415478DA + BDD6DB4FD3501800F06F82F6C107E28391B8183418F14570720B48C655AEC328 + 8A08A2F1CD3FC3F860F8030CC6784110C1B1B13137184C186C5CD62108084443 + A2214613131FBC3C88BBB43DF6B4A3ACA36B3B48F8B6939EB6A7E777BE73D6B5 + 1A8410EC6568303830BECAA9B8CE15861F84B0CF7EB86FA4CE0D92FB2248DA97 + 24D9F1F5DA6C4D5CD0EA5E410DE567763C6A86ED83610749D30CD00C03858DB7 + 60C9618C0F5AC696D1958A4C7017146E6B504EFAE242B1ED0B263CF0D8380A9D + 966E7560A281C18CBA0B40B956C1B96085D61F01E8308F2983FD6FDEA3AB9559 + 7133943A5EEA9B8189C2F3B0B64C0AC79ABF6F4097755C1934BB965063D559D5 + 99E175A269C46DF1DA5114231CEBB17B9441936B115DABD24966A23670A60D5F + FE8071704A0538C282D53C183D4589C6A5F5DF60724E2B837DC30BA8A9E61C07 + CAFD2AE5025F7BCA3A0416974F19343ADF21F646DD3598DEEF00DBA85F197CE5 + 9C47CDB5390228B7969B038A6EB379CD71931D1CEE5965B077680EB5D4E5EE3A + 436DAF0D46BC732AC041163424063EBCA951D56E33BEFED5439BD5ABE1C09EC1 + B7E886214FF59462ECF69DEDE782418050802FB81E0CF0C54FC6802F1DB3A8B5 + 3E5F55863BC1525201563F4783F659D4529FC7FD55C981184B3EA47E1AA95F5B + 180E017CF19A64D7301FBC4545B253BA769294CC2E80B3D9E0330A44320BFD03 + 989BE7A7B2583709DE45BD186CAAC985E962BD6286B88344026338446097CD87 + 1AAB73802C2D5104A53214A690664B18208CD790CDF0C3C7AD7322B07360065D + AEC886F9CA32D9D1C69B521CA1100BB1858A6CFBCC04649C0EC281E438E0C532 + 5DE491438B5E1768867F7DA0D8FD89BBA992602C86B3B4D8083891CE82FB8143 + 45E073EB343294E86431BC3F79EFE836500A0BB3C53E4480368DCF10A3E44A14 + D8619942B5C559B2184D2198B9AF1581F1305C1F1E25E0B09607573EF118BE86 + 039FF54FA21A7D962C86B7FEB663022887E1ED98878094234158FFB68509E053 + B31755156572CF32B938E0367060FB0342D52DF1339C2FC204F089C983DABB1F + 2976A027FC7090495385E188C504702FE33F1F65CAE7611BEC0A000000004945 + 4E44AE426082} + Name = 'PngImage0' + Background = clWindow + end> + Left = 232 + Top = 80 + Bitmap = {} + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.pas new file mode 100644 index 00000000..2b958ae7 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Plugin/uPluginPedidosProveedor.pas @@ -0,0 +1,74 @@ +unit uPluginPedidosProveedor; + +interface + +uses + uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, + ImgList, Controls, PngImageList; + +type + IMCPedidosProveedor = interface(IInterface) + ['{E2ACE521-1B3E-4AFD-99F4-058E328D39D1}'] + end; + + TPluginPedidosProveedor = class(TModuleController, IMCPedidosProveedor) + actPedidosProveedor: TAction; + ExtraImages: TPngImageList; + LargeImages: TPngImageList; + MainMenu: TMainMenu; + ModuleActionList: TActionList; + SmallImages: TPngImageList; + Compras1: TMenuItem; + Pedidosaproveedor1: TMenuItem; + procedure actPedidosProveedorExecute(Sender: TObject); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +{$R *.dfm} + +uses + Forms, Dialogs, SysUtils, + uPedidosProveedorController, uBizPedidosProveedor, uPedidosProveedorViewRegister; + +function GetModule : TModuleController; +begin + Result := TPluginPedidosProveedor.Create(NIL); +end; + +exports + GetModule name GET_MODULE_FUNC; + +procedure TPluginPedidosProveedor.actPedidosProveedorExecute(Sender: TObject); +var + APedidosProveedorController : IPedidosProveedorController; + APedidosProveedor : IBizPedidoProveedor; + +begin + APedidosProveedorController := TPedidosProveedorController.Create; + APedidosProveedor := (APedidosProveedorController.BuscarTodos as IBizPedidoProveedor); + APedidosProveedorController.VerTodos(APedidosProveedor); +end; + +constructor TPluginPedidosProveedor.Create(AOwner: TComponent); +begin + inherited; + uPedidosProveedorViewRegister.RegisterViews; +end; + +destructor TPluginPedidosProveedor.Destroy; +begin + uPedidosProveedorViewRegister.UnregisterViews; + inherited; +end; + +initialization + RegisterModuleClass(TPluginPedidosProveedor); + +finalization + UnRegisterModuleClass(TPluginPedidosProveedor); + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm new file mode 100644 index 00000000..06082a60 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm @@ -0,0 +1,827 @@ +object RptPedidosProveedor: TRptPedidosProveedor + OldCreateOrder = True + OnCreate = DataModuleCreate + Height = 405 + Width = 447 + object DADataCabecera: TDADataSource + DataTable = tbl_Cabecera + Left = 264 + Top = 72 + end + object DADataDetalles: TDADataSource + DataTable = tbl_Detalles + Left = 344 + Top = 72 + end + object tbl_Cabecera: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = <> + Params = <> + MasterMappingMode = mmDataRequest + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + SchemaCall.Params = <> + DataRequestCall.Params = <> + DataUpdateCall.Params = <> + ScriptCall.Params = <> + ReadOnly = False + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + IndexDefs = <> + Left = 264 + Top = 128 + end + object tbl_Detalles: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = <> + Params = <> + MasterMappingMode = mmDataRequest + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + SchemaCall.Params = <> + DataRequestCall.Params = <> + DataUpdateCall.Params = <> + ScriptCall.Params = <> + ReadOnly = False + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + IndexDefs = <> + Left = 344 + Top = 128 + end + object DABINAdapter: TDABINAdapter + Left = 48 + Top = 80 + end + object frxRichObject1: TfrxRichObject + Left = 48 + Top = 296 + end + object frxBarCodeObject1: TfrxBarCodeObject + Left = 144 + Top = 296 + end + object frxOLEObject1: TfrxOLEObject + Left = 48 + Top = 344 + end + object frxCrossObject1: TfrxCrossObject + Left = 144 + Top = 344 + end + object frxCheckBoxObject1: TfrxCheckBoxObject + Left = 256 + Top = 296 + end + object frxGradientObject1: TfrxGradientObject + Left = 360 + Top = 296 + end + object frxChartObject1: TfrxChartObject + Left = 256 + Top = 344 + end + object schReport: TDASchema + ConnectionManager = dmServer.ConnectionManager + DataDictionary = DataDictionary + Datasets = < + item + Params = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + Value = '33' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PEDIDOS_PROVEEDOR' + SQL = + 'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' + + 'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' + + '_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' + + 'MBRE,'#10' V_PROVEEDORES.FAX,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,' + + #10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.CALL' + + 'E'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' END as CALLE,'#10#10' ' + + 'CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.POBLACIO' + + 'N'#10' ELSE V_PEDIDOS_PROVEEDOR.POBLACION'#10' END as POBLAC' + + 'ION,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.' + + 'PROVINCIA'#10' ELSE V_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END a' + + 's PROVINCIA,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN AL' + + 'MACENES.CODIGO_POSTAL'#10' ELSE V_PEDIDOS_PROVEEDOR.CODIG' + + 'O_POSTAL'#10' END as CODIGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)' + + #10' THEN ALMACENES.PERSONA_CONTACTO'#10' ELSE V_' + + 'PEDIDOS_PROVEEDOR.PERSONA_CONTACTO'#10' END as PERSONA_CONTACTO,'#10#10' ' + + ' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.TELEFON' + + 'O'#10' ELSE V_PEDIDOS_PROVEEDOR.TELEFONO'#10' END as TELEFON' + + 'O,'#10#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS ' + + 'NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,' + + #10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS ' + + 'FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.E' + + 'MAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_E' + + 'MPRESA'#10'FROM'#10' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORE' + + 'S ON (V_PROVEEDORES.ID = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEF' + + 'T OUTER JOIN ALMACENES ON (ALMACENES.ID = V_PEDIDOS_PROVEEDOR.ID' + + '_ALMACEN)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_PEDIDOS' + + '_PROVEEDOR.ID_EMPRESA)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID' + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'OBSERVACIONES' + TableField = 'OBSERVACIONES' + end + item + DatasetField = 'NOMBRE' + TableField = 'NOMBRE' + end + item + DatasetField = 'CALLE' + TableField = 'CALLE' + end + item + DatasetField = 'POBLACION' + TableField = 'POBLACION' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'CODIGO_POSTAL' + TableField = 'CODIGO_POSTAL' + end + item + DatasetField = 'FECHA_PEDIDO' + TableField = 'FECHA_PEDIDO' + end + item + DatasetField = 'PROVINCIA' + TableField = 'PROVINCIA' + end + item + DatasetField = 'PERSONA_CONTACTO' + TableField = 'PERSONA_CONTACTO' + end + item + DatasetField = 'TELEFONO' + TableField = 'TELEFONO' + end + item + DatasetField = 'NOMBRE_EMPRESA' + TableField = 'NOMBRE_EMPRESA' + end + item + DatasetField = 'NIF_CIF_EMPRESA' + TableField = 'NIF_CIF_EMPRESA' + end + item + DatasetField = 'RAZON_SOCIAL_EMPRESA' + TableField = 'RAZON_SOCIAL_EMPRESA' + end + item + DatasetField = 'TELEFONO_1_EMPRESA' + TableField = 'TELEFONO_1_EMPRESA' + end + item + DatasetField = 'FAX_EMPRESA' + TableField = 'FAX_EMPRESA' + end + item + DatasetField = 'MOVIL_1_EMPRESA' + TableField = 'MOVIL_1_EMPRESA' + end + item + DatasetField = 'EMAIL_1_EMPRESA' + TableField = 'EMAIL_1_EMPRESA' + end + item + DatasetField = 'PAGINA_WEB_EMPRESA' + TableField = 'PAGINA_WEB_EMPRESA' + end + item + DatasetField = 'NOMBRE_ALMACEN' + TableField = 'NOMBRE_ALMACEN' + end + item + DatasetField = 'FAX' + TableField = 'FAX' + end> + end> + Name = 'Informe_Cabecera' + Fields = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_PEDIDO' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FAX' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_ALMACEN' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_EMPRESA' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'RAZON_SOCIAL_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TELEFONO_1_EMPRESA' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FAX_EMPRESA' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'MOVIL_1_EMPRESA' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'EMAIL_1_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PAGINA_WEB_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + BusinessRulesClient.ScriptLanguage = rslPascalScript + BusinessRulesServer.ScriptLanguage = rslPascalScript + end + item + Params = < + item + Name = 'ID_PEDIDO' + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES' + SQL = + 'SELECT PEDIDOS_PROVEEDOR_DETALLES.ID, PEDIDOS_PROVEEDOR_DETALLES' + + '.ID_PEDIDO,'#10' PEDIDOS_PROVEEDOR_DETALLES.POSICION, PEDIDOS_' + + 'PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_PROVEEDOR_DETALL' + + 'ES.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS' + + '_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.I' + + 'MPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, AR' + + 'TICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_PR' + + 'OVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON (PEDIDOS_PROVEEDOR_DETAL' + + 'LES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE ID_PEDIDO = :ID_PEDIDO'#10'ORD' + + 'ER BY POSICION' + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'CANTIDAD' + TableField = 'CANTIDAD' + end + item + DatasetField = 'POSICION' + TableField = 'POSICION' + end + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'TIPO_DETALLE' + TableField = 'TIPO_DETALLE' + end + item + DatasetField = 'CONCEPTO' + TableField = 'CONCEPTO' + end + item + DatasetField = 'IMPORTE_UNIDAD' + TableField = 'IMPORTE_UNIDAD' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'ID_PEDIDO' + TableField = 'ID_PEDIDO' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'FAMILIA' + TableField = 'FAMILIA' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = 'REFERENCIA_PROVEEDOR' + end> + end> + Name = 'Informe_Detalles' + Fields = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POSICION' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TIPO_DETALLE' + DataType = datString + Size = 10 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CANTIDAD' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_UNIDAD' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FAMILIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + BusinessRulesClient.ScriptLanguage = rslPascalScript + BusinessRulesServer.ScriptLanguage = rslPascalScript + end> + Commands = <> + RelationShips = <> + UpdateRules = <> + Left = 48 + Top = 16 + end + object DataDictionary: TDADataDictionary + Fields = <> + Left = 46 + Top = 158 + end + object frxReport: TfrxReport + Version = '3.23.7' + DotMatrixReport = False + EngineOptions.DoublePass = True + IniFile = '\Software\Fast Reports' + PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] + PreviewOptions.Zoom = 1.000000000000000000 + PrintOptions.Printer = 'Por defecto' + ReportOptions.CreateDate = 39065.872423495400000000 + ReportOptions.LastChange = 39352.784043865740000000 + ScriptLanguage = 'PascalScript' + ScriptText.Strings = ( + '' + 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' + 'var' + ' Cadena: String;' + 'begin' + ' DatosEmpresa.Lines.Clear;' + ' if ( <> '#39#39') then' + ' Cadena := '#39'TLF: '#39' + ;' + ' if ( <> '#39#39') then' + + ' Cadena := Cadena + '#39' FAX: '#39' + ;' + ' DatosEmpresa.Lines.Add(Cadena);' + 'end;' + '' + 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' NombreEmpresa.Lines.Clear;' + ' NombreEmpresa.Lines.Add();' + 'end;' + '' + 'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);' + 'var' + ' ACadena : String;' + 'begin' + ' ACadena := '#39#39';' + ' DireccionEnvio.Lines.Clear;' + '' + ' if ( <> '#39#39') then' + + ' DireccionEnvio.Lines.Add(' + + ');' + '' + ' if ( <> '#39#39') then' + + ' DireccionEnvio.Lines.Add(' + + ');' + '' + ' DireccionEnvio.Lines.Add();' + '' + ' if ( <> '#39#39') then' + ' ACadena := + '#39' '#39';' + ' if ( <> '#39#39') then' + ' ACadena := ACadena + ;' + '' + ' if (ACadena <> '#39#39') then' + ' DireccionEnvio.Lines.Add(ACadena);' + '' + ' if ( <> '#39#39') then' + ' DireccionEnvio.Lines.Add();' + '' + ' if ( <> '#39#39') then' + ' DireccionEnvio.Lines.Add();' + 'end;' + '' + 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if not Engine.FinalPass then' + ' Set('#39'TotalPaginas'#39', ( + 1));' + '' + ' if Engine.FinalPass then' + ' Set('#39'Pagina'#39', ( + 1));' + 'end;' + '' + 'procedure frxReportOnStartReport(Sender: TfrxComponent);' + 'begin' + ' Set('#39'Pagina'#39', 0);' + ' Set('#39'TotalPaginas'#39', 0);' + 'end;' + '' + 'begin' + '' + 'end.') + ShowProgress = False + StoreInDFM = False + OnStartReport = 'frxReportOnStartReport' + Left = 169 + Top = 16 + Datasets = < + item + DataSet = frxDBCabecera + DataSetName = 'frxDBCabecera' + end + item + DataSet = frxDBDetalles + DataSetName = 'frxDBDetalles' + end> + Variables = < + item + Name = ' Paginacion' + Value = Null + end + item + Name = 'TotalPaginas' + Value = Null + end + item + Name = 'Pagina' + Value = Null + end> + Style = <> + end + object frxDBCabecera: TfrxDBDataset + UserName = 'frxDBCabecera' + CloseDataSource = False + DataSource = DADataCabecera + Left = 264 + Top = 16 + end + object frxDBDetalles: TfrxDBDataset + UserName = 'frxDBDetalles' + CloseDataSource = False + DataSource = DADataDetalles + Left = 344 + Top = 16 + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas new file mode 100644 index 00000000..85a40ad5 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas @@ -0,0 +1,118 @@ +unit uRptPedidosProveedor_Server; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, frxClass, frxDBSet, uDAScriptingProvider, + uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, + frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, + uDAInterfaces; + +type + TRptPedidosProveedor = class(TDataModule) + DADataCabecera: TDADataSource; + DADataDetalles: TDADataSource; + tbl_Cabecera: TDACDSDataTable; + tbl_Detalles: TDACDSDataTable; + DABINAdapter: TDABINAdapter; + frxRichObject1: TfrxRichObject; + frxBarCodeObject1: TfrxBarCodeObject; + frxOLEObject1: TfrxOLEObject; + frxCrossObject1: TfrxCrossObject; + frxCheckBoxObject1: TfrxCheckBoxObject; + frxGradientObject1: TfrxGradientObject; + frxChartObject1: TfrxChartObject; + frxDBCabecera: TfrxDBDataset; + frxDBDetalles: TfrxDBDataset; + schReport: TDASchema; + DataDictionary: TDADataDictionary; + frxReport: TfrxReport; + procedure DataModuleCreate(Sender: TObject); + private + FConnection: IDAConnection; + procedure GenerarPedido(const AID : Integer); overload; + public + function GenerarPedido(const AID : String): Binary; overload; + end; + +implementation + +{$R *.dfm} + +uses + uDataModuleServer, schPedidosProveedorClient_Intf; + +const + rptInforme = 'InfPedidoProveedor.fr3'; + + { Dataset names for schReport } + ds_InformeCabecera = 'Informe_Cabecera'; + ds_InformeDetalles = 'Informe_Detalles'; + + +{ TRptPedidosProveedor } + + +procedure TRptPedidosProveedor.DataModuleCreate(Sender: TObject); +begin + schReport.ConnectionManager := dmServer.ConnectionManager; + FConnection := dmServer.DarNuevaConexion; + frxReport.EngineOptions.NewSilentMode := simReThrow; +end; + +function TRptPedidosProveedor.GenerarPedido(const AID: String): Binary; +var + ID_Pedidos: TStringList; + i: Integer; + +begin + Result := Binary.Create; + FConnection.BeginTransaction; + + try + ID_Pedidos := TStringList.Create; + ID_Pedidos.CommaText := AID; + + //Vamos generando todos y cada uno de los albaranes recibidos + for i := 0 to ID_Pedidos.Count - 1 do + GenerarPedido(StrToInt(ID_Pedidos.Strings[i])); + + frxReport.PreviewPages.SaveToStream(Result); + + finally + FConnection.RollbackTransaction; + end; +end; + +procedure TRptPedidosProveedor.GenerarPedido(const AID: Integer); +var + AStream: TMemoryStream; + dsMaster: IDADataset; + dsDetail: IDADataset; +begin + AStream := TMemoryStream.Create; + + try + dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [AID]); + dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_PEDIDO'], [AID], False); + + AStream.Clear; + DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); + DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE); + + AStream.Clear; + DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1); + DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE); + + frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); + frxReport.PrepareReport(False); + + finally + AStream.Free; + dsMaster := Nil; + dsDetail := Nil; + end; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dcu b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dcu new file mode 100644 index 00000000..8fe2c824 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm new file mode 100644 index 00000000..afb87490 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm @@ -0,0 +1,1696 @@ +object srvPedidosProveedor: TsrvPedidosProveedor + OldCreateOrder = True + OnCreate = DARemoteServiceCreate + RequiresSession = True + SessionManager = dmServer.SessionManager + ConnectionName = 'IBX' + ServiceSchema = schPedidosProveedor + ServiceDataStreamer = Bin2DataStreamer + ExportedDataTables = <> + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection + Height = 240 + Width = 473 + object schPedidosProveedor: TDASchema + ConnectionManager = dmServer.ConnectionManager + DataDictionary = DADataDictionary + Datasets = < + item + Params = < + item + Name = 'CODIGO' + Value = '' + ParamType = daptInput + end + item + Name = 'EMPRESA' + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'REFERENCIAS' + SQL = + 'SELECT'#10' VALOR'#10'FROM'#10' REFERENCIAS'#10'WHERE'#10' CODIGO = :COD' + + 'IGO'#10'AND ID_EMPRESA = :EMPRESA'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'VALOR' + TableField = 'VALOR' + end> + end> + Name = 'DarReferencia' + Fields = < + item + Name = 'VALOR' + DataType = datString + Size = 255 + end> + end + item + Params = <> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_PEDIDOS_PROVEEDOR' + StatementType = stAutoSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'ID_PROVEEDOR' + TableField = 'ID_PROVEEDOR' + end + item + DatasetField = 'NOMBRE' + TableField = 'NOMBRE' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'FECHA_ENVIO' + TableField = 'FECHA_ENVIO' + end + item + DatasetField = 'FECHA_PEDIDO' + TableField = 'FECHA_PEDIDO' + end + item + DatasetField = 'FECHA_CONFIRMACION' + TableField = 'FECHA_CONFIRMACION' + end + item + DatasetField = 'FECHA_ENTREGA' + TableField = 'FECHA_ENTREGA' + end + item + DatasetField = 'ID_ALMACEN' + TableField = 'ID_ALMACEN' + end + item + DatasetField = 'NOMBRE_ALMACEN' + TableField = 'NOMBRE_ALMACEN' + end + item + DatasetField = 'OBSERVACIONES' + TableField = 'OBSERVACIONES' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'INCIDENCIAS' + TableField = 'INCIDENCIAS' + end + item + DatasetField = 'INCIDENCIAS_ACTIVAS' + TableField = 'INCIDENCIAS_ACTIVAS' + end + item + DatasetField = 'CALLE' + TableField = 'CALLE' + end + item + DatasetField = 'POBLACION' + TableField = 'POBLACION' + end + item + DatasetField = 'PROVINCIA' + TableField = 'PROVINCIA' + end + item + DatasetField = 'CODIGO_POSTAL' + TableField = 'CODIGO_POSTAL' + end + item + DatasetField = 'PERSONA_CONTACTO' + TableField = 'PERSONA_CONTACTO' + end + item + DatasetField = 'TELEFONO' + TableField = 'TELEFONO' + end + item + DatasetField = 'FECHA_ALTA' + TableField = 'FECHA_ALTA' + end + item + DatasetField = 'FECHA_MODIFICACION' + TableField = 'FECHA_MODIFICACION' + end + item + DatasetField = 'USUARIO' + TableField = 'USUARIO' + end + item + DatasetField = 'ID_PEDIDO_CLIENTE' + TableField = 'ID_PEDIDO_CLIENTE' + end + item + DatasetField = 'REF_PED_CLIENTE' + TableField = 'REF_PED_CLIENTE' + end + item + DatasetField = 'IMPORTE_NETO' + TableField = 'IMPORTE_NETO' + end + item + DatasetField = 'IMPORTE_PORTE' + TableField = 'IMPORTE_PORTE' + end + item + DatasetField = 'DESCUENTO' + TableField = 'DESCUENTO' + end + item + DatasetField = 'IMPORTE_DESCUENTO' + TableField = 'IMPORTE_DESCUENTO' + end + item + DatasetField = 'BASE_IMPONIBLE' + TableField = 'BASE_IMPONIBLE' + end + item + DatasetField = 'IVA' + TableField = 'IVA' + end + item + DatasetField = 'IMPORTE_IVA' + TableField = 'IMPORTE_IVA' + end + item + DatasetField = 'ID_FORMA_PAGO' + TableField = 'ID_FORMA_PAGO' + end> + end> + Name = 'PedidosProveedor' + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_PEDIDOS_PROV_ID' + DictionaryEntry = 'PedidosProveedor_ID' + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_EMPRESA' + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_PROVEEDOR' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + DictionaryEntry = 'PedidosProveedor_NOMBRE' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + ServerAutoRefresh = True + end + item + Name = 'SITUACION' + DataType = datString + Size = 255 + DictionaryEntry = 'PedidosProveedor_SITUACION' + end + item + Name = 'FECHA_ENVIO' + DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO' + end + item + Name = 'FECHA_PEDIDO' + DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO' + end + item + Name = 'FECHA_CONFIRMACION' + DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION' + end + item + Name = 'FECHA_ENTREGA' + DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA' + end + item + Name = 'ID_ALMACEN' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_ALMACEN' + end + item + Name = 'NOMBRE_ALMACEN' + DataType = datString + Size = 255 + DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN' + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + DictionaryEntry = 'PedidosProveedor_OBSERVACIONES' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL' + end + item + Name = 'INCIDENCIAS' + DataType = datMemo + DictionaryEntry = 'PedidosProveedor_INCIDENCIAS' + end + item + Name = 'INCIDENCIAS_ACTIVAS' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS' + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + DictionaryEntry = 'PedidosProveedor_CALLE' + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + DictionaryEntry = 'PedidosProveedor_POBLACION' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + DictionaryEntry = 'PedidosProveedor_PROVINCIA' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL' + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO' + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + DictionaryEntry = 'PedidosProveedor_TELEFONO' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_ALTA' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION' + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DictionaryEntry = 'PedidosProveedor_USUARIO' + end + item + Name = 'ID_PEDIDO_CLIENTE' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_PEDIDO_CLIENTE' + end + item + Name = 'REF_PED_CLIENTE' + DataType = datString + Size = 255 + DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE' + end + item + Name = 'IMPORTE_NETO' + DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO' + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE' + end + item + Name = 'DESCUENTO' + DataType = datFloat + DictionaryEntry = 'PedidosProveedor_DESCUENTO' + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO' + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE' + end + item + Name = 'IVA' + DataType = datFloat + DictionaryEntry = 'PedidosProveedor_IVA' + end + item + Name = 'IMPORTE_IVA' + DataType = datCurrency + DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA' + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO' + end> + end + item + Params = <> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES' + SQL = + 'SELECT'#10' PEDIDOS_PROVEEDOR_DETALLES.ID, PEDIDOS_PROVEEDOR_DETA' + + 'LLES.ID_PEDIDO,'#10' PEDIDOS_PROVEEDOR_DETALLES.POSICION, PEDIDOS' + + '_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_PROVEEDOR_DETALLES' + + '.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS_PROV' + + 'EEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORT' + + 'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' PEDIDOS_PR' + + 'OVEEDOR_DETALLES.ID_ARTICULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUEN' + + 'TO,'#10' PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.' + + 'REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'F' + + 'ROM PEDIDOS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PR' + + 'OVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER ' + + 'BY POSICION;'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_PEDIDO' + TableField = 'ID_PEDIDO' + end + item + DatasetField = 'POSICION' + TableField = 'POSICION' + end + item + DatasetField = 'TIPO_DETALLE' + TableField = 'TIPO_DETALLE' + end + item + DatasetField = 'CONCEPTO' + TableField = 'CONCEPTO' + end + item + DatasetField = 'CANTIDAD' + TableField = 'CANTIDAD' + end + item + DatasetField = 'IMPORTE_UNIDAD' + TableField = 'IMPORTE_UNIDAD' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'VISIBLE' + TableField = 'VISIBLE' + end + item + DatasetField = 'ID_ARTICULO' + TableField = 'ID_ARTICULO' + end + item + DatasetField = 'DESCUENTO' + TableField = 'DESCUENTO' + end + item + DatasetField = 'IMPORTE_PORTE' + TableField = 'IMPORTE_PORTE' + end + item + DatasetField = 'REFERENCIA' + TableField = '' + SQLOrigin = 'REFERENCIA' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = '' + SQLOrigin = 'REFERENCIA_PROVEEDOR' + end> + end> + Name = 'PedidosProveedor_Detalles' + Fields = < + item + Name = 'ID' + DataType = datInteger + Required = True + InPrimaryKey = True + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + end + item + Name = 'POSICION' + DataType = datInteger + DictionaryEntry = 'POSICIONCONCEPTO' + end + item + Name = 'TIPO_DETALLE' + DataType = datString + Size = 10 + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + end + item + Name = 'CANTIDAD' + DataType = datInteger + DictionaryEntry = 'CANTIDAD' + end + item + Name = 'IMPORTE_UNIDAD' + DataType = datCurrency + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end + item + Name = 'VISIBLE' + DataType = datSmallInt + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + end + item + Name = 'DESCUENTO' + DataType = datFloat + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + end> + end + item + Params = <> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_PED_PROV_ARTICULOS' + SQL = + 'select V_PED_PROV_ARTICULOS.ID_PEDIDO,'#10' ARTICULOS.REFERENC' + + 'IA,'#10' V_PED_PROV_ARTICULOS.ID_ARTICULO,'#10' ARTICULOS.DE' + + 'SCRIPCION as CONCEPTO,'#10' V_PED_PROV_ARTICULOS.CANTIDAD_PEND' + + 'IENTE as CANTIDAD,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCI' + + 'A_PROVEEDOR'#10#10'FROM V_PED_PROV_ARTICULOS'#10'LEFT JOIN ARTICULOS ON (A' + + 'RTICULOS.ID = V_PED_PROV_ARTICULOS.ID_ARTICULO)'#10'WHERE (V_PED_PRO' + + 'V_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID_PEDIDO' + TableField = 'ID_PEDIDO' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'ID_ARTICULO' + TableField = 'ID_ARTICULO' + end + item + DatasetField = 'CONCEPTO' + TableField = 'CONCEPTO' + end + item + DatasetField = 'CANTIDAD' + TableField = 'CANTIDAD' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = 'REFERENCIA_PROVEEDOR' + end> + end> + Name = 'PedidosProveedor_Articulos_Pendientes' + Fields = < + item + Name = 'ID_PEDIDO' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA' + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO' + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO' + end + item + Name = 'CANTIDAD' + DataType = datInteger + DictionaryEntry = 'CANTIDAD' + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR' + end> + end> + JoinDataTables = <> + UnionDataTables = <> + Commands = < + item + Params = < + item + Name = 'VALOR' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'CODIGO' + DataType = datString + Size = 50 + Value = '' + ParamType = daptInput + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'REFERENCIAS' + SQL = + 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' + + 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'ModificarReferencia' + end + item + Params = < + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PEDIDOS_PROVEEDOR' + SQL = 'DELETE '#10' FROM'#10' PEDIDOS_PROVEEDOR'#10' WHERE'#10' (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_PedidosProveedor' + end + item + Params = < + item + Name = 'CANTIDAD' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'POSICION' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'TIPO_DETALLE' + DataType = datString + Size = 10 + Value = '' + ParamType = daptInput + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_UNIDAD' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'VISIBLE' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'DESCUENTO' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_PORTE' + DataType = datFloat + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES' + SQL = + 'INSERT'#10' INTO PEDIDOS_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICION' + + ', ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TOTA' + + 'L, VISIBLE, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORT' + + 'E)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CONC' + + 'EPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_PEDID' + + 'O, '#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_PedidosProveedor_Detalles' + end + item + Params = < + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES' + SQL = + 'DELETE '#10' FROM'#10' PEDIDOS_PROVEEDOR_DETALLES'#10' WHERE'#10' (ID = ' + + ':OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_PedidosProveedor_Detalles' + end + item + Params = < + item + Name = 'CANTIDAD' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'POSICION' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'TIPO_DETALLE' + DataType = datString + Size = 10 + Value = '' + ParamType = daptInput + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_UNIDAD' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'VISIBLE' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID_PEDIDO' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'DESCUENTO' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_PORTE' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES' + SQL = + 'UPDATE PEDIDOS_PROVEEDOR_DETALLES'#10' SET '#10' CANTIDAD = :CANTIDA' + + 'D, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE =' + + ' :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD =' + + ' :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISI' + + 'BLE = :VISIBLE, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ARTICULO = ' + + ':ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :I' + + 'MPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_PedidosProveedor_Detalles' + end + item + Params = < + item + Name = 'USUARIO' + DataType = datString + Size = 20 + Value = '' + ParamType = daptInput + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + Value = '' + ParamType = daptInput + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_ENVIO' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_PEDIDO' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_CONFIRMACION' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_ENTREGA' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'INCIDENCIAS' + DataType = datMemo + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'INCIDENCIAS_ACTIVAS' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID_ALMACEN' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + Value = '' + ParamType = daptInput + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + Value = '' + ParamType = daptInput + end + item + Name = 'ID_PEDIDO_CLIENTE' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_NETO' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_PORTE' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'DESCUENTO' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'BASE_IMPONIBLE' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IVA' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_IVA' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PEDIDOS_PROVEEDOR' + SQL = + 'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (USUARIO, OBSERVACIONES, REF' + + 'ERENCIA, ID, ID_EMPRESA,'#10' FECHA_ALTA, FECHA_MODIFICACION, ID' + + '_PROVEEDOR, FECHA_ENVIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, ' + + 'FECHA_ENTREGA, INCIDENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACT' + + 'IVAS, ID_ALMACEN, CALLE, '#10' POBLACION, PROVINCIA, CODIGO_POST' + + 'AL, PERSONA_CONTACTO, '#10' TELEFONO, ID_PEDIDO_CLIENTE, IMPORTE' + + '_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' + + 'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO)'#10' VALUES'#10' (:' + + 'USUARIO, :OBSERVACIONES, :REFERENCIA, :ID,'#10' :ID_EMPRESA, :FE' + + 'CHA_ALTA, :FECHA_MODIFICACION,'#10' :ID_PROVEEDOR, :FECHA_ENVIO,' + + ' :FECHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTREGA, :INCID' + + 'ENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :ID_ALMACEN,' + + ' :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :PERSONA_' + + 'CONTACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, '#10' :I' + + 'MPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, '#10 + + ' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_PedidosProveedor' + end + item + Params = < + item + Name = 'USUARIO' + DataType = datString + Size = 20 + Value = '' + ParamType = daptInput + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + Value = '' + ParamType = daptInput + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_ENVIO' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_PEDIDO' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_CONFIRMACION' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_ENTREGA' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'INCIDENCIAS' + DataType = datMemo + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'INCIDENCIAS_ACTIVAS' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID_ALMACEN' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + Value = '' + ParamType = daptInput + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'TELEFONO' + DataType = datString + Size = 25 + Value = '' + ParamType = daptInput + end + item + Name = 'ID_PEDIDO_CLIENTE' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_NETO' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_PORTE' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'DESCUENTO' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'BASE_IMPONIBLE' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IVA' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE_IVA' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'ID_FORMA_PAGO' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PEDIDOS_PROVEEDOR' + SQL = + 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO, '#10' OBS' + + 'ERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' ' + + 'ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECH' + + 'A_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROVEEDOR = :ID_PR' + + 'OVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FE' + + 'CHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' ' + + 'FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS,' + + ' '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS =' + + ' :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE' + + ' = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVIN' + + 'CIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO ' + + '= :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_C' + + 'LIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, ' + + #10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO' + + ', '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIB' + + 'LE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPOR' + + 'TE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO'#10' WHERE'#10' (ID = :O' + + 'LD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_PedidosProveedor' + end> + RelationShips = < + item + Name = 'FK_PedidosProveedor_Detalles' + MasterDatasetName = 'PedidosProveedor' + MasterFields = 'ID' + DetailDatasetName = 'PedidosProveedor_Detalles' + DetailFields = 'ID_PEDIDO' + RelationshipType = rtForeignKey + end> + UpdateRules = < + item + Name = 'Insert PedidosProveedor' + DoUpdate = False + DoDelete = False + DatasetName = 'PedidosProveedor' + FailureBehavior = fbRaiseException + end + item + Name = 'Insert PedidosProveedor_Detalles' + DoUpdate = False + DoDelete = False + DatasetName = 'PedidosProveedor_Detalles' + FailureBehavior = fbRaiseException + end + item + Name = 'Update PedidosProveedor' + DoInsert = False + DoDelete = False + DatasetName = 'PedidosProveedor' + FailureBehavior = fbRaiseException + end + item + Name = 'Update PedidosProveedor_Detalles' + DoInsert = False + DoDelete = False + DatasetName = 'PedidosProveedor_Detalles' + FailureBehavior = fbRaiseException + end + item + Name = 'Delete PedidosProveedor_Detalles' + DoUpdate = False + DoInsert = False + DatasetName = 'PedidosProveedor_Detalles' + FailureBehavior = fbRaiseException + end + item + Name = 'Delete PedidosProveedor' + DoUpdate = False + DoInsert = False + DatasetName = 'PedidosProveedor' + FailureBehavior = fbRaiseException + end> + Version = 0 + Left = 88 + Top = 24 + end + object bpPedidosProveedor: TDABusinessProcessor + Schema = schPedidosProveedor + InsertCommandName = 'Insert_PedidosProveedor' + DeleteCommandName = 'Delete_PedidosProveedor' + UpdateCommandName = 'Update_PedidosProveedor' + RefreshDatasetName = 'PedidosProveedor_Refresh' + ReferencedDataset = 'PedidosProveedor' + ProcessorOptions = [poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 240 + Top = 24 + end + object bpPedidosProveedor_Detalles: TDABusinessProcessor + Schema = schPedidosProveedor + InsertCommandName = 'Insert_PedidosProveedor_Detalles' + DeleteCommandName = 'Delete_PedidosProveedor_Detalles' + UpdateCommandName = 'Update_PedidosProveedor_Detalles' + RefreshDatasetName = 'PedidosProveedor_Detalles_Refresh' + ReferencedDataset = 'PedidosProveedor_Detalles' + ProcessorOptions = [poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 240 + Top = 88 + end + object DADataDictionary: TDADataDictionary + Fields = < + item + Name = 'PedidosProveedor_ID' + DataType = datAutoInc + GeneratorName = 'GEN_PEDIDOS_PROV_ID' + Required = True + DisplayLabel = 'ID' + ServerAutoRefresh = True + end + item + Name = 'PedidosProveedor_ID_EMPRESA' + DataType = datInteger + DisplayLabel = 'ID_EMPRESA' + end + item + Name = 'PedidosProveedor_NOMBRE' + DataType = datString + Size = 255 + DisplayLabel = 'Nombre del proveedor' + end + item + Name = 'PedidosProveedor_FECHA_PEDIDO' + DataType = datDateTime + DisplayLabel = 'Fecha pedido' + end + item + Name = 'PedidosProveedor_CALLE' + DataType = datString + Size = 255 + DisplayLabel = 'Calle' + end + item + Name = 'PedidosProveedor_CODIGO_POSTAL' + DataType = datString + Size = 10 + DisplayLabel = 'C'#243'd. postal' + end + item + Name = 'PedidosProveedor_POBLACION' + DataType = datString + Size = 255 + DisplayLabel = 'Poblaci'#243'n' + end + item + Name = 'PedidosProveedor_PROVINCIA' + DataType = datString + Size = 255 + DisplayLabel = 'Provincia' + end + item + Name = 'PedidosProveedor_PERSONA_CONTACTO' + DataType = datString + Size = 255 + DisplayLabel = 'Persona de contacto' + end + item + Name = 'PedidosProveedor_TELEFONO' + DataType = datString + Size = 25 + DisplayLabel = 'Tel'#233'fono' + end + item + Name = 'PedidosProveedor_OBSERVACIONES' + DataType = datMemo + DisplayLabel = 'Observaciones' + end + item + Name = 'PedidosProveedor_INCIDENCIAS' + DataType = datMemo + DisplayLabel = 'INCIDENCIAS' + end + item + Name = 'PedidosProveedor_INCIDENCIAS_ACTIVAS' + DataType = datInteger + DisplayLabel = 'INCIDENCIAS_ACTIVAS' + end + item + Name = 'PedidosProveedor_FECHA_ALTA' + DataType = datDateTime + DisplayLabel = 'FECHA_ALTA' + end + item + Name = 'PedidosProveedor_FECHA_MODIFICACION' + DataType = datDateTime + DisplayLabel = 'FECHA_MODIFICACION' + end + item + Name = 'PedidosProveedor_USUARIO' + DataType = datString + Size = 20 + DisplayLabel = 'USUARIO' + end + item + Name = 'PedidosProveedor_IMPORTE_NETO' + DataType = datCurrency + DisplayLabel = 'Importe neto' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_IMPORTE_PORTE' + DataType = datCurrency + DisplayLabel = 'Importe del porte' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_DESCUENTO' + DataType = datFloat + DisplayLabel = 'Descuento' + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_IMPORTE_DESCUENTO' + DataType = datCurrency + DisplayLabel = 'Importe dto.' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_BASE_IMPONIBLE' + DataType = datCurrency + DisplayLabel = 'Base imponible' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_IVA' + DataType = datFloat + DisplayLabel = 'IVA' + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_IMPORTE_IVA' + DataType = datCurrency + DisplayLabel = 'Importe IVA' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_ID_FORMA_PAGO' + DataType = datInteger + DisplayLabel = 'ID_FORMA_PAGO' + end + item + Name = 'PedidosProveedor_Detalles_ID' + DataType = datAutoInc + GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID' + Required = True + DisplayLabel = 'ID' + ServerAutoRefresh = True + end + item + Name = 'PedidosProveedor_Detalles_ID_PEDIDO' + DataType = datInteger + DisplayLabel = 'ID_PEDIDO' + end + item + Name = 'POSICIONCONCEPTO' + DataType = datInteger + DisplayLabel = 'POSICION' + end + item + Name = 'PedidosProveedor_Detalles_TIPO_DETALLE' + DataType = datString + Size = 10 + DisplayLabel = 'TIPO_DETALLE' + end + item + Name = 'PedidosProveedor_Detalles_REFERENCIA' + DataType = datString + Size = 255 + DisplayLabel = 'Referencia' + end + item + Name = 'PedidosProveedor_Detalles_ID_ARTICULO' + DataType = datInteger + DisplayLabel = 'ID_ARTICULO' + end + item + Name = 'PedidosProveedor_Detalles_CONCEPTO' + DataType = datString + Size = 2000 + DisplayLabel = 'CONCEPTO' + end + item + Name = 'CANTIDAD' + DataType = datInteger + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_Detalles_IMPORTE_UNIDAD' + DataType = datCurrency + DisplayLabel = 'Importe unidad' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_Detalles_IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_Detalles_DESCUENTO' + DataType = datFloat + DisplayLabel = 'Descuento' + DisplayFormat = ',0.00 %;-,0.00 %' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_Detalles_IMPORTE_PORTE' + DataType = datCurrency + DisplayLabel = 'Importe porte' + Alignment = taRightJustify + end + item + Name = 'PedidosProveedor_Detalles_VISIBLE' + DataType = datInteger + DisplayLabel = 'VISIBLE' + end + item + Name = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DisplayLabel = 'Ref. proveedor' + end + item + Name = 'PedidosProveedor_ID_PROVEEDOR' + DataType = datInteger + end + item + Name = 'PedidosProveedor_FECHA_CONFIRMACION' + DataType = datDateTime + DisplayLabel = #191'Confirmado?' + end + item + Name = 'PedidosProveedor_FECHA_ENTREGA' + DataType = datDateTime + DisplayLabel = 'Entrega prevista' + end + item + Name = 'PedidosProveedor_SITUACION' + DataType = datString + Size = 255 + DisplayLabel = 'Situaci'#243'n' + end + item + Name = 'PedidosProveedor_ID_ALMACEN' + DataType = datInteger + end + item + Name = 'PedidosProveedor_ID_PEDIDO_CLIENTE' + DataType = datInteger + end + item + Name = 'PedidosProveedor_REFERENCIA' + DataType = datString + Size = 255 + DisplayLabel = 'REFERENCIA' + ServerAutoRefresh = True + end + item + Name = 'PedidosProveedor_FECHA_ENVIO' + DataType = datDateTime + DisplayLabel = #191'Enviado?' + end + item + Name = 'PedidosProveedor_NOMBRE_ALMACEN' + DataType = datString + Size = 255 + DisplayLabel = 'Almac'#233'n' + end + item + Name = 'PedidosProveedor_REF_PED_CLIENTE' + DataType = datString + Size = 255 + end> + Left = 88 + Top = 152 + end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 88 + Top = 88 + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas new file mode 100644 index 00000000..7dc045c0 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas @@ -0,0 +1,103 @@ +unit srvPedidosProveedor_Impl; + +{----------------------------------------------------------------------------} +{ This unit was automatically generated by the RemObjects SDK after reading } +{ the RODL file associated with this project . } +{ } +{ This is where you are supposed to code the implementation of your objects. } +{----------------------------------------------------------------------------} + +interface + +uses + {vcl:} Classes, SysUtils, + {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; + +type + { TsrvPedidosProveedor } + TsrvPedidosProveedor = class(TDataAbstractService, IsrvPedidosProveedor) + bpPedidosProveedor: TDABusinessProcessor; + bpPedidosProveedor_Detalles: TDABusinessProcessor; + Bin2DataStreamer: TDABin2DataStreamer; + schPedidosProveedor: TDASchema; + DADataDictionary: TDADataDictionary; + procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; + const IncludeSchema: Boolean; const MaxRecords: Integer); + procedure DARemoteServiceCreate(Sender: TObject); + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; + var aConnectionName: string); + protected + { IsrvPedidosProveedor methods } + function GenerateReport(const ID: String): Binary; + end; + +implementation + +{$R *.dfm} +uses + Dialogs, + {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, + schPedidosProveedorClient_Intf, uRestriccionesUsuarioUtils; + +// uRptPedidosProveedor_Server, uBizPedidosProveedorServer; + +{ uRORemoteDataModule, + fServerForm, Variants, IB, schPedidosProveedorClient_Intf; +} +procedure Create_srvPedidosProveedor(out anInstance : IUnknown); +begin + anInstance := TsrvPedidosProveedor.Create(NIL); +end; + +{ srvPedidosProveedor } + +procedure TsrvPedidosProveedor.DARemoteServiceBeforeGetDatasetData( + const Dataset: IDADataset; const IncludeSchema: Boolean; + const MaxRecords: Integer); +begin +{ if DataSet.Name = nme_PedidosProveedor then + begin + { Aquí se asegura que el usuario sólo accede a pedidos + de las empresas a las que tiene permiso para acceder + filtrando DataSet por ID_EMPRESA. } +{ FiltrarAccesoUsuario(Session, Connection, schPedidosProveedor, DataSet, fld_PedidosProveedorID_EMPRESA); + end; +} +end; + +procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject); +begin + SessionManager := dmServer.SessionManager; +// bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR; +end; + +procedure TsrvPedidosProveedor.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); +begin + ConnectionName := dmServer.ConnectionName; +end; + +function TsrvPedidosProveedor.GenerateReport(const ID: String): Binary; +//var +// AReportGenerator : TRptPedidosProveedor; +begin +{ AReportGenerator := TRptPedidosProveedor.Create(nil); + try + Result := AReportGenerator.GenerarPedido(ID); + finally + FreeAndNIL(AReportGenerator); + end; +} +end; + +initialization + TROClassFactory.Create('srvPedidosProveedor', Create_srvPedidosProveedor, TsrvPedidosProveedor_Invoker); + +finalization + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas.bak b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas.bak new file mode 100644 index 00000000..3459de91 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas.bak @@ -0,0 +1,110 @@ +unit srvPedidosProveedor_Impl; + +{----------------------------------------------------------------------------} +{ This unit was automatically generated by the RemObjects SDK after reading } +{ the RODL file associated with this project . } +{ } +{ This is where you are supposed to code the implementation of your objects. } +{----------------------------------------------------------------------------} + +interface + +uses + {vcl:} Classes, SysUtils, + {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, + {Ancestor Implementation:} DARemoteService_Impl, + {Used RODLs:} DataAbstract_Intf, + {Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor, + uDAClasses, uDADataTable, uDABINAdapter, + + uDACDSDataTable, uDAInterfaces, DB, + frxClass, frxDBSet, frxDCtrl, frxDMPExport, frxGradient, + frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode; + +type + { TsrvPedidosProveedor } + TsrvPedidosProveedor = class(TDARemoteService, IsrvPedidosProveedor) + DABINAdapter: TDABINAdapter; + bpPedidosProveedor: TDABusinessProcessor; + bpPedidosProveedor_Detalles: TDABusinessProcessor; + schPedidosProveedor: TDASchema; + DADataDictionary: TDADataDictionary; + procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; + var ConnectionName: string); + procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; + const IncludeSchema: Boolean; const MaxRecords: Integer); + procedure DARemoteServiceCreate(Sender: TObject); + private + protected + { IsrvPedidosProveedor methods } + function GetNextAutoInc(const GeneratorName: String): Integer; + function GenerateReport(const ID: String): Binary; + end; + +implementation + +{$R *.dfm} +uses + Dialogs, + {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, + schPedidosProveedorClient_Intf, uRestriccionesUsuarioUtils, + uRptPedidosProveedor_Server, uBizPedidosProveedorServer; + +{ uRORemoteDataModule, + fServerForm, Variants, IB, schPedidosProveedorClient_Intf; +} +procedure Create_srvPedidosProveedor(out anInstance : IUnknown); +begin + anInstance := TsrvPedidosProveedor.Create(NIL); +end; + +{ srvPedidosProveedor } +procedure TsrvPedidosProveedor.DARemoteServiceBeforeAcquireConnection( + Sender: TDARemoteService; var ConnectionName: string); +begin + ConnectionName := dmServer.ConnectionName; +end; + +procedure TsrvPedidosProveedor.DARemoteServiceBeforeGetDatasetData( + const Dataset: IDADataset; const IncludeSchema: Boolean; + const MaxRecords: Integer); +begin + if DataSet.Name = nme_PedidosProveedor then + begin + { Aquí se asegura que el usuario sólo accede a pedidos + de las empresas a las que tiene permiso para acceder + filtrando DataSet por ID_EMPRESA. } + FiltrarAccesoUsuario(Session, Connection, schPedidosProveedor, DataSet, fld_PedidosProveedorID_EMPRESA); + end; +end; + +procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject); +begin + SessionManager := dmServer.SessionManager; + bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR; +end; + +function TsrvPedidosProveedor.GenerateReport(const ID: String): Binary; +var + AReportGenerator : TRptPedidosProveedor; +begin + AReportGenerator := TRptPedidosProveedor.Create(nil); + try + Result := AReportGenerator.GenerarPedido(ID); + finally + FreeAndNIL(AReportGenerator); + end; +end; + +function TsrvPedidosProveedor.GetNextAutoInc( + const GeneratorName: String): Integer; +begin + Result := uDatabaseUtils.GetNextAutoInc(GeneratorName) +end; + +initialization + TROClassFactory.Create('srvPedidosProveedor', Create_srvPedidosProveedor, TsrvPedidosProveedor_Invoker); + +finalization + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/Contactos_data.drc b/Source/Modulos/Pedidos a proveedor/Views/Contactos_data.drc new file mode 100644 index 00000000..09081cc2 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/Contactos_data.drc @@ -0,0 +1,21 @@ +/* VER180 + Generated by the Borland Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +DESCRIPTION RCDATA +BEGIN + "\x4c", "\x00", "\x69", "\x00", "\x62", "\x00", "\x72", "\x00", /* 0000: L.i.b.r. */ + "\x65", "\x00", "\x72", "\x00", "\x69", "\x00", "\x61", "\x00", /* 0008: e.r.i.a. */ + "\x20", "\x00", "\x62", "\x00", "\x61", "\x00", "\x73", "\x00", /* 0010: .b.a.s. */ + "\x65", "\x00", "\x20", "\x00", "\x64", "\x00", "\x65", "\x00", /* 0018: e. .d.e. */ + "\x20", "\x00", "\x46", "\x00", "\x61", "\x00", "\x63", "\x00", /* 0020: .F.a.c. */ + "\x74", "\x00", "\x75", "\x00", "\x47", "\x00", "\x45", "\x00", /* 0028: t.u.G.E. */ + "\x53", "\x00", "\x00", "\x00" /* 0030: S... */ +END + diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.bdsproj b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.bdsproj new file mode 100644 index 00000000..29a33ec9 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.bdsproj @@ -0,0 +1,492 @@ + + + + + + + + + + + + PedidosProveedor_view.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dcu b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dcu new file mode 100644 index 00000000..948bee22 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk new file mode 100644 index 00000000..d75a98b7 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk @@ -0,0 +1,51 @@ +package PedidosProveedor_view; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} + +requires + GUIBase, + PedidosProveedor_model, + PedidosProveedor_controller, + Almacenes_model, + Almacenes_controller, + Contactos_view, + Articulos_view; + +contains + uPedidosProveedorViewRegister in 'uPedidosProveedorViewRegister.pas', + uEditorPedidosProveedor in 'uEditorPedidosProveedor.pas' {fEditorPedidosProveedor: TfEditorPedidosProveedor}, + uViewPedidosProveedor in 'uViewPedidosProveedor.pas' {frViewPedidosProveedor: TFrame}, + uViewPedidoProveedor in 'uViewPedidoProveedor.pas' {frViewPedidoProveedor: TFrame}, + uEditorPedidoProveedor in 'uEditorPedidoProveedor.pas' {fEditorPedidoProveedor: TfEditorPedidoProveedor}, + uViewDetallesPedidoProveedor in 'uViewDetallesPedidoProveedor.pas' {frViewDetallesPedidoProveedor: TFrame}, + uEditorPedidosProveedorReport in 'uEditorPedidosProveedorReport.pas' {fEditorPedidosProveedorReport: TForm}, + uEditorElegirPedidosProveedor in 'uEditorElegirPedidosProveedor.pas' {fEditorElegirPedidosProveedor: TForm}, + uViewDireccionEntregaPedidoProv in 'uViewDireccionEntregaPedidoProv.pas' {frViewDireccionEntregaPedidoProv: TFrame}, + uEditorDireccionEntregaPedidoProveedor in 'uEditorDireccionEntregaPedidoProveedor.pas' {fEditorDireccionEntregaPedidoProveedor : TfEditorDireccionEntregaPedidoProveedor}, + uViewElegirArticulosPedidosProveedor in 'uViewElegirArticulosPedidosProveedor.pas' {frViewElegirArticulosPedidosProveedor: TFrame}, + uEditorElegirArticulosPedidoProveedor in 'uEditorElegirArticulosPedidoProveedor.pas' {fEditorElegirArticulosPedidoProveedor: TForm}, + uEditorSituacionPedidoProveedor in 'uEditorSituacionPedidoProveedor.pas' {fEditorSituacionPedidoProveedor: TfEditorSituacionPedidoProveedor}; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj new file mode 100644 index 00000000..35dc420b --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj @@ -0,0 +1,632 @@ + + + {9e558626-cf49-4cff-a178-e12c186758ac} + PedidosProveedor_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\PedidosProveedor_view.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + PedidosProveedor_view.dpk + + + + + + + MainSource + + + + + + + + + +
fEditorDireccionEntregaPedidoProveedor
+ TfEditorDireccionEntregaPedidoProveedor + + +
fEditorElegirArticulosPedidoProveedor
+ TForm + + +
fEditorElegirPedidosProveedor
+ TForm + + +
fEditorPedidoProveedor
+ TfEditorPedidoProveedor + + +
fEditorPedidosProveedor
+ TfEditorPedidosProveedor + + +
fEditorPedidosProveedorReport
+ TForm + + +
fEditorSituacionPedidoProveedor
+ TfEditorSituacionPedidoProveedor + + + +
frViewDetallesPedidoProveedor
+ TFrame + + +
frViewDireccionEntregaPedidoProv
+ TFrame + + +
frViewElegirArticulosPedidosProveedor
+ TFrame + + +
frViewPedidoProveedor
+ TFrame + + +
frViewPedidosProveedor
+ TFrame + + + + + diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.drc b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.drc new file mode 100644 index 00000000..442bec02 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.drc @@ -0,0 +1,28 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uViewPedidosProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uEditorPedidosProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uViewDireccionEntregaPedidoProv.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uViewPedidoProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uViewDetallesPedidoProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uEditorPedidoProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uEditorPedidosProveedorReport.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uEditorElegirPedidosProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uViewElegirArticulosPedidosProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uEditorElegirArticulosPedidoProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uEditorDireccionEntregaPedidoProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\uEditorSituacionPedidoProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.drf */ diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.identcache b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.identcache new file mode 100644 index 00000000..38326ad0 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.identcache differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.rc b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.dcu new file mode 100644 index 00000000..39fbe8b5 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.dfm new file mode 100644 index 00000000..79bb2a87 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.dfm @@ -0,0 +1,157 @@ +object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoProveedor + Left = 227 + Top = 108 + BorderStyle = bsDialog + Caption = 'Datos de la direcci'#243'n de entrega:' + ClientHeight = 257 + ClientWidth = 453 + Color = clBtnFace + ParentFont = True + OldCreateOrder = True + Position = poOwnerFormCenter + OnClose = FormClose + OnShow = FormShow + DesignSize = ( + 453 + 257) + PixelsPerInch = 96 + TextHeight = 13 + object Bevel1: TBevel + Left = 8 + Top = 14 + Width = 349 + Height = 225 + Anchors = [akLeft, akTop, akRight] + Shape = bsFrame + end + object Label1: TLabel + Left = 20 + Top = 25 + Width = 110 + Height = 13 + AutoSize = False + Caption = 'Direcci'#243'n:' + end + object Label2: TLabel + Left = 20 + Top = 89 + Width = 110 + Height = 13 + AutoSize = False + Caption = 'Poblaci'#243'n:' + end + object Label3: TLabel + Left = 20 + Top = 117 + Width = 110 + Height = 13 + AutoSize = False + Caption = 'Provincia:' + end + object Label4: TLabel + Left = 20 + Top = 143 + Width = 110 + Height = 13 + AutoSize = False + Caption = 'C'#243'digo postal:' + end + object Label6: TLabel + Left = 20 + Top = 185 + Width = 109 + Height = 13 + AutoSize = False + Caption = 'Persona de contacto:' + end + object Label7: TLabel + Left = 21 + Top = 210 + Width = 109 + Height = 13 + AutoSize = False + Caption = 'Tel'#233'fono:' + end + object OKBtn: TButton + Left = 370 + Top = 13 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = '&Aceptar' + Default = True + ModalResult = 1 + TabOrder = 0 + end + object CancelBtn: TButton + Left = 370 + Top = 44 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Cancel = True + Caption = '&Cancelar' + ModalResult = 2 + TabOrder = 1 + end + object eDireccion: TDBEdit + Left = 135 + Top = 23 + Width = 210 + Height = 57 + AutoSelect = False + AutoSize = False + DataField = 'CALLE' + DataSource = dsDireccion + TabOrder = 2 + end + object ePoblacion: TDBEdit + Left = 135 + Top = 86 + Width = 210 + Height = 21 + DataField = 'POBLACION' + DataSource = dsDireccion + TabOrder = 3 + end + object eProvincia: TDBEdit + Left = 135 + Top = 114 + Width = 210 + Height = 21 + DataField = 'PROVINCIA' + DataSource = dsDireccion + TabOrder = 4 + end + object eCodigoPostal: TDBEdit + Left = 135 + Top = 140 + Width = 210 + Height = 21 + DataField = 'CODIGO_POSTAL' + DataSource = dsDireccion + TabOrder = 5 + end + object ePersonaContacto: TDBEdit + Left = 135 + Top = 182 + Width = 210 + Height = 21 + DataField = 'PERSONA_CONTACTO' + DataSource = dsDireccion + TabOrder = 6 + end + object eTelefono: TDBEdit + Left = 136 + Top = 207 + Width = 210 + Height = 21 + DataField = 'TELEFONO' + DataSource = dsDireccion + TabOrder = 7 + end + object dsDireccion: TDADataSource + Left = 16 + Top = 46 + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.pas new file mode 100644 index 00000000..34299e65 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.pas @@ -0,0 +1,92 @@ +unit uEditorDireccionEntregaPedidoProveedor; + +interface + +uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, + Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, + cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, + uIEditorDireccionEntregaPedidoProveedor, uBizPedidosProveedor; + +type + TfEditorDireccionEntregaPedidoProveedor = class(TForm, IEditorDireccionEntregaPedidoProveedor) + OKBtn: TButton; + CancelBtn: TButton; + Bevel1: TBevel; + eDireccion: TDBEdit; + ePoblacion: TDBEdit; + eProvincia: TDBEdit; + eCodigoPostal: TDBEdit; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + dsDireccion: TDADataSource; + Label6: TLabel; + ePersonaContacto: TDBEdit; + Label7: TLabel; + eTelefono: TDBEdit; + + procedure FormShow(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + + private + pDireccion: String; + pPoblacion: String; + pProvincia: String; + pCodigoPostal: String; + pPersonaContacto: String; + pTelefono: String; + + FPedido : IBizPedidoProveedor; + function GetPedido: IBizPedidoProveedor; + procedure SetPedido(const Value: IBizPedidoProveedor); + property Pedido: IBizPedidoProveedor read GetPedido write SetPedido; + end; + +implementation +{$R *.dfm} + + +{ TfEditorDireccionEntrega } + +procedure TfEditorDireccionEntregaPedidoProveedor.FormClose(Sender: TObject; var Action: TCloseAction); +begin + //En el caso de cancelar se recuperan los valores iniciales + if (Self.ModalResult <> mrOk) and (dsDireccion.DataTable.State in dsEditModes) then + begin + eDireccion.Field.Value := pDireccion; + ePoblacion.Field.Value := pPoblacion; + eProvincia.Field.Value := pProvincia; + eCodigoPostal.Field.Value := pCodigoPostal; + ePersonaContacto.Field.Value := pPersonaContacto; + eTelefono.Field.Value := pTelefono; + end; +end; + +procedure TfEditorDireccionEntregaPedidoProveedor.FormShow(Sender: TObject); +begin + //Guardamos los valores iniciales por si al final el usuario cancela + pDireccion := eDireccion.Text; + pPoblacion := ePoblacion.Text; + pProvincia := eProvincia.Text; + pCodigoPostal := eCodigoPostal.Text; + pPersonaContacto := ePersonaContacto.Text; + pTelefono := eTelefono.Text; +end; + +function TfEditorDireccionEntregaPedidoProveedor.GetPedido: IBizPedidoProveedor; +begin + Result := FPedido; +end; + +procedure TfEditorDireccionEntregaPedidoProveedor.SetPedido( + const Value: IBizPedidoProveedor); +begin + FPedido := Value; + if Assigned(FPedido) then + dsDireccion.DataTable := FPedido.DataTable + else + dsDireccion.DataTable := NIL; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirArticulosPedidoProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirArticulosPedidoProveedor.dcu new file mode 100644 index 00000000..2d04bb9f Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirArticulosPedidoProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirArticulosPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirArticulosPedidoProveedor.dfm new file mode 100644 index 00000000..45fe937b --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirArticulosPedidoProveedor.dfm @@ -0,0 +1,5 @@ +inherited fEditorElegirArticulosPedidoProveedor: TfEditorElegirArticulosPedidoProveedor + Caption = 'fEditorElegirArticulosPedidoProveedor' + PixelsPerInch = 96 + TextHeight = 13 +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirArticulosPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirArticulosPedidoProveedor.pas new file mode 100644 index 00000000..0b930897 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirArticulosPedidoProveedor.pas @@ -0,0 +1,63 @@ +unit uEditorElegirArticulosPedidoProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorElegirArticulos, Menus, DB, uDADataTable, JvAppStorage, + JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList, + StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls, + JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, + TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, + JvgWizardHeader, uIEditorElegirArticulosPedidosProveedor, uBizContactos; + +type + TfEditorElegirArticulosPedidoProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosPedidosProveedor) + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + private + FProveedor: IBizProveedor; + function GetProveedor: IBizProveedor; + procedure SetProveedor(const Value: IBizProveedor); + + protected + procedure AsignarVista; override; + + public + property Proveedor: IBizProveedor read GetProveedor write SetProveedor; + end; + + +implementation +{$R *.dfm} + +uses uViewElegirArticulosPedidosProveedor; + +{ TfEditorElegirArticulosPedidoProveedor } + +procedure TfEditorElegirArticulosPedidoProveedor.AsignarVista; +begin + ViewGrid := CreateView(TfrViewElegirArticulosPedidosProveedor) as IViewElegirArticulosPedidosProveedor; +end; + +procedure TfEditorElegirArticulosPedidoProveedor.FormCloseQuery(Sender: TObject; var CanClose: Boolean); +begin + FProveedor := Nil; + inherited; +end; + +function TfEditorElegirArticulosPedidoProveedor.GetProveedor: IBizProveedor; +begin + Result := FProveedor; +end; + +procedure TfEditorElegirArticulosPedidoProveedor.SetProveedor(const Value: IBizProveedor); +begin + FProveedor := Value; + if Assigned(FProveedor) then + begin + if Assigned(Self.ViewGrid) then + (Self.ViewGrid as IViewElegirArticulosPedidosProveedor).Proveedor := FProveedor; + end; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dcu new file mode 100644 index 00000000..9a1e468a Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dfm new file mode 100644 index 00000000..eba4a846 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dfm @@ -0,0 +1,279 @@ +inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor + Caption = 'Seleccionar pedido de cliente' + ClientWidth = 656 + ExplicitWidth = 664 + ExplicitHeight = 478 + PixelsPerInch = 96 + TextHeight = 13 + object JvgWizardHeader1: TJvgWizardHeader [0] + Left = 0 + Top = 27 + Width = 656 + Height = 60 + CaptionFont.Charset = DEFAULT_CHARSET + CaptionFont.Color = clWindowText + CaptionFont.Height = -11 + CaptionFont.Name = 'Tahoma' + CaptionFont.Style = [fsBold] + CommentFont.Charset = DEFAULT_CHARSET + CommentFont.Color = clWindowText + CommentFont.Height = -11 + CommentFont.Name = 'Tahoma' + CommentFont.Style = [] + SymbolFont.Charset = DEFAULT_CHARSET + SymbolFont.Color = clHighlightText + SymbolFont.Height = -35 + SymbolFont.Name = 'Wingdings' + SymbolFont.Style = [fsBold] + Captions.Strings = ( + 'Seleccione el pedido de proveedor') + Comments.Strings = ( + ' ') + Gradient.FromColor = clHighlight + Gradient.ToColor = clWindow + Gradient.Active = False + Gradient.Orientation = fgdVertical + BufferedDraw = False + ExplicitTop = 16 + end + inherited JvNavPanelHeader: TJvNavPanelHeader + Width = 656 + Caption = 'Lista de pedidos de proveedor' + Visible = False + ExplicitWidth = 656 + inherited Image1: TImage + Left = 629 + ExplicitLeft = 629 + end + end + inherited TBXDock: TTBXDock + Top = 87 + Width = 656 + ExplicitTop = 87 + ExplicitWidth = 656 + inherited tbxMain: TTBXToolbar + Align = alRight + ExplicitWidth = 126 + inherited TBXItem2: TTBXItem + Visible = False + end + inherited TBXItem5: TTBXItem + Visible = False + end + inherited TBXItem4: TTBXItem + Visible = False + end + inherited TBXItem6: TTBXItem + Visible = False + end + inherited TBXItem36: TTBXItem + Action = actAnchoAuto2 + end + end + inherited tbxFiltro: TTBXToolbar + Left = 126 + Top = 23 + DockPos = 115 + DockRow = 1 + ExplicitLeft = 126 + ExplicitTop = 23 + inherited TBXItem34: TTBXItem + Action = actQuitarFiltro2 + end + end + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 656 + end + inherited TBXTMain2: TTBXToolbar + Left = 334 + Visible = False + ExplicitLeft = 334 + ExplicitWidth = 36 + end + end + inherited StatusBar: TJvStatusBar + Width = 656 + Visible = False + ExplicitWidth = 656 + end + inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] + Left = 0 + Top = 376 + Width = 656 + Height = 49 + Align = alBottom + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 4 + ReadOnly = False + ExplicitTop = 376 + ExplicitWidth = 656 + inherited JvFooter1: TJvFooter + Width = 656 + ExplicitWidth = 656 + inherited bSeleccionar: TJvFooterBtn + Left = 444 + ExplicitLeft = 444 + end + inherited bCancelar: TJvFooterBtn + Left = 548 + ExplicitLeft = 548 + end + end + inherited BarraSeleccionActionList: TActionList + inherited actSeleccionar: TAction + OnExecute = frViewBarraSeleccion1actSeleccionarExecute + OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate + end + inherited actCancelar: TAction + OnExecute = frViewBarraSeleccion1actCancelarExecute + end + end + end + inherited frViewPedidosProveedor1: TfrViewPedidosProveedor [5] + Top = 162 + Width = 656 + Height = 214 + ExplicitTop = 162 + ExplicitWidth = 656 + ExplicitHeight = 214 + inherited cxGrid: TcxGrid + Width = 656 + Height = 86 + RootLevelOptions.DetailTabsPosition = dtpNone + ExplicitWidth = 656 + ExplicitHeight = 86 + inherited cxGridView: TcxGridDBTableView + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL + end> + DataController.Summary.FooterSummaryItems = < + item + Format = '0 pedidos' + Kind = skCount + Column = frViewPedidosProveedor1.cxGridViewNOMBRE + end> + inherited cxGridViewCODIGO: TcxGridDBColumn + IsCaptionAssigned = True + end + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 656 + ExplicitWidth = 656 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 656 + inherited dxLayoutControl1: TdxLayoutControl + Width = 656 + ExplicitWidth = 656 + inherited edtFechaFinFiltro: TcxDateEdit + ExplicitWidth = 404 + Width = 404 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 656 + ExplicitWidth = 656 + inherited tbxBotones: TTBXToolbar + Width = 646 + ExplicitWidth = 646 + end + end + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 188 + ExplicitTop = 188 + ExplicitWidth = 656 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 656 + ExplicitWidth = 656 + inherited TBXToolbar1: TTBXToolbar + Width = 646 + ExplicitWidth = 646 + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + BuiltInReportLink = True + end + end + inherited cxViewGridPopupMenu: TcxGridPopupMenu + PopupMenus = < + item + GridView = frViewPedidosProveedor1.cxGridView + HitTypes = [gvhtCell] + Index = 0 + end> + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end + end + inherited EditorActionList: TActionList [8] + Left = 112 + Top = 192 + inherited actPrevisualizar: TAction + Visible = False + end + inherited actImprimir: TAction + Visible = False + end + inherited actDuplicar: TAction + Visible = False + end + inherited actRecibirPedido: TAction + Visible = False + end + end + inherited dsDataTable: TDADataSource + Left = 8 + Top = 192 + end + inherited JvFormStorage: TJvFormStorage [12] + end + inherited GridPopupMenu: TPopupMenu [13] + Left = 80 + Top = 192 + end + inherited JsNuevoPedidoProveedorDialog: TJSDialog [14] + end + inherited JsPrevisualizarDialog: TJSDialog [15] + end + inherited JsImprimirDialog: TJSDialog [16] + end + object EditorSeleccionActionList: TActionList + Images = SmallImages + Left = 152 + Top = 192 + object actBuscar2: TAction + Category = 'Buscar' + Caption = 'Buscar' + ImageIndex = 10 + ShortCut = 114 + end + object actQuitarFiltro2: TAction + Category = 'Buscar' + Caption = 'Quitar filtro y ver todo' + ImageIndex = 19 + OnExecute = actQuitarFiltro2Execute + end + object actAnchoAuto2: TAction + Category = 'Ver' + Caption = 'Ancho autom'#225'tico' + ImageIndex = 21 + OnExecute = actAnchoAuto2Execute + end + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.pas new file mode 100644 index 00000000..6e0437b6 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.pas @@ -0,0 +1,126 @@ +unit uEditorElegirPedidosProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage, + JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, + ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, + ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, + pngimage, ExtCtrls, JvExControls, JvComponent, + JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, + uBizPedidosProveedor, uIEditorElegirPedidosProveedor, + JvExComCtrls, JvStatusBar, uEditorPedidosProveedor, uViewPedidosProveedor, + JSDialog; + +type + TfEditorElegirPedidosProveedor = class(TfEditorPedidosProveedor, IEditorElegirPedidosProveedor) + frViewBarraSeleccion1: TfrViewBarraSeleccion; + JvgWizardHeader1: TJvgWizardHeader; + EditorSeleccionActionList: TActionList; + actBuscar2: TAction; + actQuitarFiltro2: TAction; + actAnchoAuto2: TAction; + procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject); + procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject); + procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure actAnchoAuto2Execute(Sender: TObject); + procedure actQuitarFiltro2Execute(Sender: TObject); + protected + procedure SetMultiSelect (AValue : Boolean); + function GetMultiSelect : Boolean; + function GetPedidosProveedorSeleccionados: IBizPedidoProveedor; + procedure SetViewGrid(const Value: IViewGridBase); override; + procedure SetMensaje (const AValue: String); + function GetMensaje: String; + public + property Mensaje : String read GetMensaje write SetMensaje; + property PedidosProveedorSeleccionados: IBizPedidoProveedor read GetPedidosProveedorSeleccionados; + property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; + end; + +implementation + +uses + uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils, + uGridUtils, uEditorBase, uPedidosProveedorController; + +{$R *.dfm} + +{ TfEditorElegirPedidosProveedor } + +procedure TfEditorElegirPedidosProveedor.actAnchoAuto2Execute(Sender: TObject); +begin + inherited; + actAnchoAuto.Execute; +end; + +procedure TfEditorElegirPedidosProveedor.actQuitarFiltro2Execute(Sender: TObject); +begin + inherited; + actQuitarFiltro.Execute; +end; + +procedure TfEditorElegirPedidosProveedor.FormShow(Sender: TObject); +begin + inherited; + EditorActionList.State := asSuspended; +end; + +procedure TfEditorElegirPedidosProveedor.frViewBarraSeleccion1actCancelarExecute( + Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfEditorElegirPedidosProveedor.frViewBarraSeleccion1actSeleccionarExecute( + Sender: TObject); +begin + inherited; + ModalResult := mrOk; +end; + +procedure TfEditorElegirPedidosProveedor.frViewBarraSeleccion1actSeleccionarUpdate( + Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0) +end; + +function TfEditorElegirPedidosProveedor.GetPedidosProveedorSeleccionados: IBizPedidoProveedor; +begin + SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); + // En SelectedRecords tengo los ID de las filas seleccionadas del grid + Result := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor; +end; + +function TfEditorElegirPedidosProveedor.GetMensaje: String; +begin + Result := JvgWizardHeader1.Comments.Text; +end; + +function TfEditorElegirPedidosProveedor.GetMultiSelect: Boolean; +begin + Result := ViewGrid.MultiSelect; +end; + +procedure TfEditorElegirPedidosProveedor.SetMensaje(const AValue: String); +begin + JvgWizardHeader1.Comments.Text := AValue; +end; + +procedure TfEditorElegirPedidosProveedor.SetMultiSelect(AValue: Boolean); +begin + ViewGrid.MultiSelect := AValue; +end; + +procedure TfEditorElegirPedidosProveedor.SetViewGrid(const Value: IViewGridBase); +begin + inherited; + ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dcu new file mode 100644 index 00000000..6835be21 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm new file mode 100644 index 00000000..3e0b61b9 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm @@ -0,0 +1,404 @@ +inherited fEditorPedidoProveedor: TfEditorPedidoProveedor + Left = 332 + Top = 147 + Caption = 'Nuevo pedido a proveedor' + ClientHeight = 617 + ClientWidth = 765 + OnClose = CustomEditorClose + ExplicitWidth = 773 + ExplicitHeight = 651 + PixelsPerInch = 96 + TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + Width = 765 + Caption = 'Nuevo pedido a proveedor' + ExplicitWidth = 765 + inherited Image1: TImage + Left = 738 + Picture.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 + 0000180806000000E0773DF80000000970485973000017120000171201679FD2 + 520000000467414D410000AA11B57D14DC0000026C4944415478DA63FCFFFF3F + C3A28DC7FF335009C4F95B3222F319611600254836ECEFDF7F40FC1F4C838085 + 6F36C3C53DB3705BB0D7D21EC500E7E307711A8EACD674CF2E8679ABF730CC5F + B211BF05A4B8FC808D2383328B34C3B6D3CB19225F7E6358B87E1F610BB0F900 + 5D0C046C0FEE63386CEFC470F3FC21303FECD91786259B0E50E683FFFF80610D + C47F80AE07B17FFF0386FF9F7F60DFFCF9F79761C596C3A4FB801800F285EF83 + 770C6B771C23CE0298B749015E77DF306CD87D82380BF0A51C6C00A44771E55A + 864DFB4E126F01AEA082590E9387A9955BBE8661EB8153B4F381E492550CBB0E + 9FA1AE0F6EAA108EABC75FEDC8F3C1B4584686847408FBE74F06865F3F2018C4 + FEF903824F1C47B320DAC71C9C3B09F98058C3F9251818AEDC45B220C2D30C9C + 3BF1F90064388B207EDFFD798F301C250E42DD4C188E39B910B400E67A10F8F8 + 0EE2E21F5097FFFACEC070FA0C2468EC0D0F311C3C8FE48300172386D32E6E78 + 5D078A5890664200643808A058E0EB60002F5720E5FC3F70D903160396F94FA3 + 43C11620FB001C247F81F83703C36F501C007D70ED3A420EC5022F5B3D9C8683 + E81771E11816FCFA05341888FF40E995ABD919D4357E32B0B160B1C0CD5A1BA7 + E1A012F44D62248605A038005B00F201106FDACACE202D0FB1808D9581E1F865 + 240B1CCD35C086FDFB0B29967FFF4514C7FFFE432C3ADD2D8F62C19B1708C341 + 166DDFCDCE202A0DB1E0F21D3B86F6750719E116D899A8814B447C806DAF0FDC + 0250F0BC7B89301C44EF39C0CEC02FFE93E1FE1388E128C9B477F27C82A9235D + 7236D882A993D971AA79F7DB1C6E38DC0262417738C73AA00181F8D4201B0E02 + 00C20B50400F1E42A70000000049454E44AE426082} + ExplicitLeft = 735 + end + end + inherited TBXDock: TTBXDock + Width = 765 + ExplicitWidth = 765 + inherited tbxMain: TTBXToolbar + ExplicitWidth = 488 + inherited TBXItem2: TTBXItem + Visible = False + end + inherited TBXSeparatorItem1: TTBXSeparatorItem + Visible = False + end + inherited TBXItem5: TTBXItem + Visible = False + end + end + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 765 + end + end + inherited pgPaginas: TPageControl + Width = 765 + Height = 476 + ActivePage = pagContenido + TabOrder = 1 + OnChanging = pgPaginasChanging + ExplicitWidth = 765 + ExplicitHeight = 476 + inherited pagGeneral: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 757 + ExplicitHeight = 448 + end + object pagContenido: TTabSheet + Caption = 'Contenido' + ImageIndex = 1 + inline frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor + Left = 0 + Top = 0 + Width = 757 + Height = 448 + Align = alClient + BiDiMode = bdLeftToRight + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentBiDiMode = False + ParentFont = False + TabOrder = 0 + ReadOnly = False + ExplicitWidth = 757 + ExplicitHeight = 448 + inherited ToolBar1: TToolBar + Width = 757 + ExplicitWidth = 757 + end + inherited cxGrid: TcxGrid + Width = 757 + Height = 376 + ExplicitWidth = 757 + ExplicitHeight = 376 + inherited cxGridView: TcxGridDBTableView + inherited cxGridViewIMPORTENETO: TcxGridDBColumn + Options.Editing = True + end + end + end + inherited TBXDock1: TTBXDock + Width = 757 + ExplicitWidth = 757 + inherited TBXToolbar1: TTBXToolbar + ExplicitWidth = 548 + end + end + end + end + object pagInicidencias: TTabSheet + Caption = 'Incidencias' + ImageIndex = 2 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 + inline frViewIncidenciasProv: TfrViewIncidencias + Left = 0 + Top = 0 + Width = 757 + Height = 448 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False + ExplicitWidth = 757 + ExplicitHeight = 448 + inherited pnlSup: TPanel + Width = 757 + ExplicitWidth = 757 + inherited eIncidenciaActiva: TcxDBCheckBox + ExplicitHeight = 21 + end + end + inherited GroupBox1: TGroupBox + Width = 757 + Height = 420 + ExplicitWidth = 757 + ExplicitHeight = 420 + inherited eIncidencias: TcxDBMemo + ExplicitWidth = 734 + ExplicitHeight = 387 + Height = 387 + Width = 734 + end + end + end + end + end + inherited StatusBar: TJvStatusBar + Top = 598 + Width = 765 + Panels = < + item + Width = 200 + end> + ExplicitTop = 598 + ExplicitWidth = 765 + end + inline frViewTotales1: TfrViewTotales [4] + Left = 0 + Top = 552 + Width = 765 + Height = 46 + Align = alBottom + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 4 + ReadOnly = False + ExplicitTop = 552 + ExplicitWidth = 765 + ExplicitHeight = 46 + inherited dxLayoutControl1: TdxLayoutControl + Width = 765 + LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitWidth = 765 + inherited Bevel1: TBevel + Left = 93 + Top = 92 + Width = 73 + ExplicitLeft = 93 + ExplicitTop = 92 + ExplicitWidth = 73 + end + inherited Bevel3: TBevel + Left = 379 + Top = 11 + Height = 30 + ExplicitLeft = 379 + ExplicitTop = 11 + ExplicitHeight = 30 + end + inherited Bevel4: TBevel + Left = 491 + Top = 92 + Width = 21 + ExplicitLeft = 491 + ExplicitTop = 92 + ExplicitWidth = 21 + end + inherited ImporteDto: TcxDBCurrencyEdit + Left = 164 + Top = 112 + Style.IsFontAssigned = True + ExplicitLeft = 164 + ExplicitTop = 112 + ExplicitWidth = 93 + Width = 93 + end + inherited ImporteIVA: TcxDBCurrencyEdit + Left = 562 + Top = 38 + Style.IsFontAssigned = True + ExplicitLeft = 562 + ExplicitTop = 38 + ExplicitWidth = 137 + Width = 137 + end + inherited ImporteTotal: TcxDBCurrencyEdit + Left = 492 + Top = 112 + Style.IsFontAssigned = True + ExplicitLeft = 492 + ExplicitTop = 112 + ExplicitWidth = 137 + Width = 137 + end + inherited edtDescuento: TcxDBSpinEdit + Left = 93 + Top = 112 + Style.IsFontAssigned = True + ExplicitLeft = 93 + ExplicitTop = 112 + end + inherited edtIVA: TcxDBSpinEdit + Left = 491 + Top = 38 + Style.IsFontAssigned = True + ExplicitLeft = 491 + ExplicitTop = 38 + end + inherited ImporteBase: TcxDBCurrencyEdit + Left = 491 + Top = 11 + Style.IsFontAssigned = True + ExplicitLeft = 491 + ExplicitTop = 11 + ExplicitWidth = 92 + Width = 92 + end + inherited edtRE: TcxDBSpinEdit + Left = 491 + Top = 65 + DataBinding.DataField = '' + DataBinding.DataSource = nil + Style.IsFontAssigned = True + ExplicitLeft = 491 + ExplicitTop = 65 + end + inherited ImporteRE: TcxDBCurrencyEdit + Left = 562 + Top = 65 + DataBinding.DataField = '' + DataBinding.DataSource = nil + Style.IsFontAssigned = True + ExplicitLeft = 562 + ExplicitTop = 65 + ExplicitWidth = 56 + Width = 56 + end + inherited eImporteNeto: TcxDBCurrencyEdit + Left = 93 + Top = 11 + Style.IsFontAssigned = True + ExplicitLeft = 93 + ExplicitTop = 11 + ExplicitWidth = 147 + Width = 147 + end + inherited ePorte: TcxDBCurrencyEdit + Left = 93 + Top = 139 + Properties.OnValidate = frViewTotales1ePortePropertiesValidate + Style.IsFontAssigned = True + ExplicitLeft = 93 + ExplicitTop = 139 + ExplicitWidth = 147 + Width = 147 + end + inherited eIVA: TcxDBLookupComboBox + Left = 93 + Top = 38 + DataBinding.DataField = '' + DataBinding.DataSource = nil + ExplicitLeft = 93 + ExplicitTop = 38 + ExplicitWidth = 81 + Width = 81 + end + inherited bTiposIVA: TButton + Left = 231 + Top = 38 + ExplicitLeft = 231 + ExplicitTop = 38 + end + inherited cbRecargoEquivalencia: TcxDBCheckBox + Left = 93 + Top = 65 + DataBinding.DataField = '' + ExplicitLeft = 93 + ExplicitTop = 65 + ExplicitWidth = 219 + Width = 219 + end + inherited dxLayoutControl1Group_Root: TdxLayoutGroup + inherited dxLayoutControl1Group1: TdxLayoutGroup + ShowCaption = False + ShowBorder = False + inherited dxLayoutControl1Group2: TdxLayoutGroup + inherited dxLayoutControl1Item8: TdxLayoutItem + Visible = False + end + inherited dxLayoutControl1Group6: TdxLayoutGroup + Visible = False + end + inherited dxLayoutControl1Item16: TdxLayoutItem + Visible = False + end + inherited dxLayoutControl1Item10: TdxLayoutItem + Visible = False + end + inherited dxLayoutControl1Group7: TdxLayoutGroup + Visible = False + end + end + inherited dxLayoutControl1Group5: TdxLayoutGroup + inherited dxLayoutControl1Item13: TdxLayoutItem + Visible = False + end + inherited dxLayoutControl1Group3: TdxLayoutGroup + inherited dxLayoutControl1Item12: TdxLayoutItem + Visible = False + end + inherited dxLayoutControl1Group9: TdxLayoutGroup + Visible = False + end + inherited dxLayoutControl1Group8: TdxLayoutGroup + Visible = False + end + inherited dxLayoutControl1Item14: TdxLayoutItem + Visible = False + end + end + end + end + end + end + end + inherited EditorActionList: TActionList [5] + end + inherited SmallImages: TPngImageList [6] + end + inherited LargeImages: TPngImageList [7] + end + inherited JvFormStorage: TJvFormStorage [8] + end + inherited dsDataTable: TDADataSource [10] + end + object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList + Left = 336 + Top = 176 + object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel + GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET + GroupOptions.CaptionOptions.Font.Color = clWindowText + GroupOptions.CaptionOptions.Font.Height = -11 + GroupOptions.CaptionOptions.Font.Name = 'Tahoma' + GroupOptions.CaptionOptions.Font.Style = [fsBold] + GroupOptions.CaptionOptions.TextColor = clHighlight + GroupOptions.CaptionOptions.UseDefaultFont = False + end + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas new file mode 100644 index 00000000..37fcc3e3 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas @@ -0,0 +1,299 @@ +unit uEditorPedidoProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage, + JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList, + PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock, + TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane, + uViewPedidoProveedor, uCustomView, uViewBase, JvComponentBase, + StdCtrls, pngimage, AppEvnts, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, + uViewIncidencias, + uBizPedidosProveedor, uIEditorPedidoProveedor, uPedidosProveedorController, + uViewDetallesBase, uViewDetallesPedidoProveedor, + dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales, + uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces; + +type + TfEditorPedidoProveedor = class(TfEditorDBItem, IEditorPedidoProveedor) + pagContenido: TTabSheet; + pagInicidencias: TTabSheet; + frViewIncidenciasProv: TfrViewIncidencias; + frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor; + dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; + dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; + frViewTotales1: TfrViewTotales; + + procedure FormShow(Sender: TObject); + procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); + procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); + procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + private + procedure RecalcularPortePorUnidad; + + protected + FPedido: IBizPedidoProveedor; + FViewPedido: IViewPedidoProveedor; + FController : IPedidosProveedorController; + + function GetController : IPedidosProveedorController; + procedure SetController (const Value : IPedidosProveedorController); virtual; + + function GetPedido: IBizPedidoProveedor; + procedure SetPedido(const Value: IBizPedidoProveedor); virtual; + + function GetViewPedido: IViewPedidoProveedor; + procedure SetViewPedido(const Value: IViewPedidoProveedor); + + procedure GuardarInterno; override; + procedure EliminarInterno; override; + procedure PrevisualizarInterno; override; + procedure ImprimirInterno; override; + + procedure OnProveedorChanged(Sender : TObject); + + //Si queremos crear otra vista para el editor heredado solo tendriamos que + //sobreescribir este metodo + procedure AsignarVista; virtual; + + property ViewPedido: IViewPedidoProveedor read GetViewPedido write SetViewPedido; + + public + procedure PonerTitulos(const ATitulo: string = ''); override; + property Controller : IPedidosProveedorController read GetController write SetController; + property Pedido: IBizPedidoProveedor read GetPedido write SetPedido; + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +uses + uViewDatosYSeleccionProveedor, uDataModuleUsuarios, uGridUtils, uDialogUtils; + +{$R *.dfm} + +{ TfEditorPedidoProveedor } + +{ +**************************** TfEditorPedidoProveedor **************************** +} + +procedure TfEditorPedidoProveedor.AsignarVista; +var + AViewPedidoProveedor: TfrViewPedidoProveedor; + +begin + AViewPedidoProveedor := TfrViewPedidoProveedor.Create(Self); + with AViewPedidoProveedor do + begin + Parent := pagGeneral; + Align := alClient; + dxLayoutControl1.LookAndFeel := dxLayoutOfficeLookAndFeel1; + end; + ViewPedido := AViewPedidoProveedor; +end; + +constructor TfEditorPedidoProveedor.Create(AOwner: TComponent); +begin + inherited; + pgPaginas.ActivePageIndex := 0; + + AsignarVista; +end; + +procedure TfEditorPedidoProveedor.CustomEditorClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + FViewPedido := NIL; + FPedido := NIL; +end; + +destructor TfEditorPedidoProveedor.Destroy; +begin + // Utilizar mejor OnClose; + inherited; +end; + +procedure TfEditorPedidoProveedor.EliminarInterno; +begin + if (Application.MessageBox('¿Desea borrar este pedido a proveedor?', 'Atención', MB_YESNO) = IDYES) then + begin + FController.Eliminar(FPedido); + inherited + end +end; + +procedure TfEditorPedidoProveedor.FormShow(Sender: TObject); +begin + inherited; + + if not Assigned(FViewPedido) then + raise Exception.Create('No hay ninguna vista asignada'); + + if not Assigned(Pedido) then + raise Exception.Create('No hay ningún pedido asignado'); + + Pedido.DataTable.Active := True; + pgPaginas.ActivePage := pagGeneral; +end; + +procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate( + Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; + var Error: Boolean); +begin + inherited; + if not VarIsNull(DisplayValue) then + FPedido.IMPORTE_PORTE := DisplayValue + else + FPedido.IMPORTE_PORTE := 0; + + RecalcularPortePorUnidad; +end; + +function TfEditorPedidoProveedor.GetController: IPedidosProveedorController; +begin + Result := FController; +end; + +function TfEditorPedidoProveedor.GetPedido: IBizPedidoProveedor; +begin + Result := FPedido; +end; + +function TfEditorPedidoProveedor.GetViewPedido: IViewPedidoProveedor; +begin + Result := FViewPedido; +end; + +procedure TfEditorPedidoProveedor.GuardarInterno; +var + bEsNuevo : Boolean; +begin + inherited; + bEsNuevo := False; + + ShowHourglassCursor; +// frViewDetallesPedidoProveedor1.SaveGridStatus; // Para guardar estado del grid + frViewDetallesPedidoProveedor1.BeginUpdate; // Para que no se mueva el foco + try + bEsNuevo := FPedido.EsNuevo; + FController.Guardar(FPedido); + finally + frViewDetallesPedidoProveedor1.EndUpdate; +// frViewDetallesPedidoProveedor1.RestoreGridStatus; + HideHourglassCursor; + end; + + if bEsNuevo then + ShowInfoMessage('El pedido se ha dado de alta con el código ' + FPedido.REFERENCIA); + + Modified := False; +end; + +procedure TfEditorPedidoProveedor.ImprimirInterno; +begin + inherited; + FController.Print(FPedido); +end; + +procedure TfEditorPedidoProveedor.OnProveedorChanged(Sender: TObject); +begin + FPedido.Proveedor := ViewPedido.ViewProveedorPedido.Proveedor; + + // Si el pedido tiene detalles hay que mirar si los descuentos y otros campos + // para los artículos hay que cambiarlos. + if (FPedido.Detalles.RecordCount > 0) then + FController.DetallesController.ActualizarDetalles(FPedido.Detalles, FPedido.Proveedor); +end; + +procedure TfEditorPedidoProveedor.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); +begin + inherited; + if (not Assigned(FPedido)) + or (FPedido.ID_PROVEEDOR = 0) then + begin + ShowWarningMessage('Antes de introducir conceptos debe elegir un proveedor para este pedido'); + AllowChange := False; + end; +end; + +procedure TfEditorPedidoProveedor.PonerTitulos(const ATitulo: string); +var + FTitulo : String; +begin + FTitulo := ATitulo; + if (FTitulo = '') and Assigned(FPedido) then + begin + if FPedido.EsNuevo then + FTitulo := 'Nuevo pedido a proveedor' + else + FTitulo := 'Pedido a proveedor' + ' - ' + FPedido.Proveedor.Nombre + ' - (' + FPedido.SITUACION + ')'; + end; + + inherited PonerTitulos(FTitulo); + + Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')'; +end; + +procedure TfEditorPedidoProveedor.PrevisualizarInterno; +begin + inherited; + FController.Preview(FPedido); +end; + +procedure TfEditorPedidoProveedor.RecalcularPortePorUnidad; +begin + //Esta lógica se llamará en el editor porque es para facilitar el rellenado de información del documento + //no puede ir en la clase de negocio porque no es una lógica que tenga sentido fuera del editor. + if Assigned(Controller) + and Assigned(Controller.DetallesController) then + Controller.DetallesController.DesglosarPorteDetalles(FPedido.IMPORTE_PORTE, FPedido.Detalles) +end; + +procedure TfEditorPedidoProveedor.SetController(const Value: IPedidosProveedorController); +begin + FController := Value; + + if Assigned(FController) then + begin + ViewPedido.ViewProveedorPedido.Controller := Controller.ProveedorController; + frViewDetallesPedidoProveedor1.Controller := Controller.DetallesController; + end; +end; + +procedure TfEditorPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor); +begin + FPedido := Value; + + if Assigned(FPedido) then + begin + dsDataTable.DataTable := FPedido.DataTable; + frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable; + frViewIncidenciasProv.DADataSource.DataTable := dsDataTable.DataTable; + + if Assigned(FViewPedido) then + begin + FViewPedido.Pedido := FPedido; + ViewPedido.ViewProveedorPedido.OnProveedorChanged := NIL; + ViewPedido.ViewProveedorPedido.Proveedor := FPedido.Proveedor; + ViewPedido.ViewProveedorPedido.OnProveedorChanged := OnProveedorChanged; + frViewDetallesPedidoProveedor1.Detalles := FPedido.Detalles; + frViewDetallesPedidoProveedor1.Pedido := FPedido; //Para poder sacar los articulos del proveedor seleccionado + end; + end; +end; + +procedure TfEditorPedidoProveedor.SetViewPedido(const Value: IViewPedidoProveedor); +begin + FViewPedido := Value; + + if Assigned(FViewPedido) and Assigned(Pedido) then + FViewPedido.Pedido := Pedido; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dcu new file mode 100644 index 00000000..b4313c86 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm new file mode 100644 index 00000000..b5dbfb78 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm @@ -0,0 +1,2814 @@ +inherited fEditorPedidosProveedor: TfEditorPedidosProveedor + Left = 411 + Top = 346 + Caption = 'Lista de pedidos a proveedor' + ClientWidth = 700 + Position = poDesigned + ExplicitWidth = 708 + ExplicitHeight = 240 + PixelsPerInch = 96 + TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + Width = 700 + Caption = 'Lista de pedidos a proveedor' + ExplicitWidth = 700 + inherited Image1: TImage + Left = 673 + Picture.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 + 0000180806000000E0773DF80000000970485973000017120000171201679FD2 + 520000000467414D410000AA11B57D14DC0000026C4944415478DA63FCFFFF3F + C3A28DC7FF335009C4F95B3222F319611600254836ECEFDF7F40FC1F4C838085 + 6F36C3C53DB3705BB0D7D21EC500E7E307711A8EACD674CF2E8679ABF730CC5F + B211BF05A4B8FC808D2383328B34C3B6D3CB19225F7E6358B87E1F610BB0F900 + 5D0C046C0FEE63386CEFC470F3FC21303FECD91786259B0E50E683FFFF80610D + C47F80AE07B17FFF0386FF9F7F60DFFCF9F79761C596C3A4FB801800F285EF83 + 770C6B771C23CE0298B749015E77DF306CD87D82380BF0A51C6C00A44771E55A + 864DFB4E126F01AEA082590E9387A9955BBE8661EB8153B4F381E492550CBB0E + 9FA1AE0F6EAA108EABC75FEDC8F3C1B4584686847408FBE74F06865F3F2018C4 + FEF903824F1C47B320DAC71C9C3B09F98058C3F9251818AEDC45B220C2D30C9C + 3BF1F90064388B207EDFFD798F301C250E42DD4C188E39B910B400E67A10F8F8 + 0EE2E21F5097FFFACEC070FA0C2468EC0D0F311C3C8FE48300172386D32E6E78 + 5D078A5890664200643808A058E0EB60002F5720E5FC3F70D903160396F94FA3 + 43C11620FB001C247F81F83703C36F501C007D70ED3A420EC5022F5B3D9C8683 + E81771E11816FCFA05341888FF40E995ABD919D4357E32B0B160B1C0CD5A1BA7 + E1A012F44D62248605A038005B00F201106FDACACE202D0FB1808D9581E1F865 + 240B1CCD35C086FDFB0B29967FFF4514C7FFFE432C3ADD2D8F62C19B1708C341 + 166DDFCDCE202A0DB1E0F21D3B86F6750719E116D899A8814B447C806DAF0FDC + 0250F0BC7B89301C44EF39C0CEC02FFE93E1FE1388E128C9B477F27C82A9235D + 7236D882A993D971AA79F7DB1C6E38DC0262417738C73AA00181F8D4201B0E02 + 00C20B50400F1E42A70000000049454E44AE426082} + ExplicitLeft = 673 + end + end + inherited TBXDock: TTBXDock + Width = 700 + ExplicitWidth = 700 + inherited tbxMain: TTBXToolbar + ExplicitWidth = 632 + end + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 700 + end + inherited TBXTMain2: TTBXToolbar + Visible = True + ExplicitWidth = 119 + object TBXItem39: TTBXItem + Action = actRecibirPedido + DisplayMode = nbdmImageAndText + end + end + end + inherited StatusBar: TJvStatusBar + Width = 700 + ExplicitWidth = 700 + end + inline frViewPedidosProveedor1: TfrViewPedidosProveedor [3] + Left = 0 + Top = 102 + Width = 700 + Height = 323 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 3 + ReadOnly = False + ExplicitTop = 102 + ExplicitWidth = 700 + ExplicitHeight = 323 + inherited cxGrid: TcxGrid + Width = 700 + Height = 195 + ExplicitWidth = 700 + ExplicitHeight = 195 + inherited cxGridView: TcxGridDBTableView + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL + end> + DataController.Summary.FooterSummaryItems = < + item + Format = '0 pedidos' + Kind = skCount + Column = frViewPedidosProveedor1.cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL + end> + inherited cxGridViewCODIGO: TcxGridDBColumn + IsCaptionAssigned = True + end + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 700 + ExplicitWidth = 700 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 700 + inherited dxLayoutControl1: TdxLayoutControl + Width = 700 + ExplicitWidth = 700 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 457 + Width = 457 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 240 + Width = 240 + end + inherited edtFechaFinFiltro: TcxDateEdit + Left = 349 + ExplicitLeft = 349 + ExplicitWidth = 335 + Width = 335 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 700 + ExplicitWidth = 700 + inherited tbxBotones: TTBXToolbar + Width = 690 + ExplicitWidth = 690 + end + end + end + inherited ActionList1: TActionList + Left = 376 + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 297 + ExplicitTop = 297 + ExplicitWidth = 700 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 700 + ExplicitWidth = 700 + inherited TBXToolbar1: TTBXToolbar + Width = 690 + ExplicitWidth = 690 + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 39211.779543356480000000 + BuiltInReportLink = True + end + end + inherited cxViewGridPopupMenu: TcxGridPopupMenu + PopupMenus = < + item + GridView = frViewPedidosProveedor1.cxGridView + HitTypes = [gvhtCell] + Index = 0 + end> + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end + end + inherited EditorActionList: TActionList [4] + Left = 16 + inherited actNuevo: TAction + ImageIndex = 21 + end + inherited actPrevisualizar: TAction + Visible = True + end + inherited actImprimir: TAction + Visible = True + end + inherited actAnchoAuto: TAction + ImageIndex = 22 + end + object actRecibirPedido: TAction + Category = 'Acciones' + Caption = 'Recibir pedido...' + ImageIndex = 23 + OnExecute = actRecibirPedidoExecute + OnUpdate = actRecibirPedidoUpdate + end + end + inherited SmallImages: TPngImageList [5] + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 + 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD + 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E + E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 + 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF + FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 + E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 + C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF + 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 + 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A + 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA + 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 + 000005100EB8572466A60000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001074944415478DA + 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A + C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 + AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 + 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 + C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 + CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 + B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 + 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 + 0029AC32F01825AACD0000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001514944415478DA + 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 + CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 + 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 + 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D + F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 + C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 + 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 + 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB + FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E + 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED + 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} + Name = 'PngImage3' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA + 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF + 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 + 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 + E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 + BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 + 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F + E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D + CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C + 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 + B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 + 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF + DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 + 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F + D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE + D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 + CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 + FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED + 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 + EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E + 44AE426082} + Name = 'PngImage4' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA + A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 + 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 + 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F + 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 + 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 + 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA + 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E + 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 + E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 + 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 + 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 + 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB + 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 + 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 + E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 + D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 + 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 + A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E + AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 + 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 + 5538F0EAB25B380000000049454E44AE426082} + Name = 'PngImage5' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001934944415478DA + 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 + 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 + 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F + FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F + B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 + 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 + 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC + 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 + 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF + 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E + C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 + 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 + 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 + 82} + Name = 'PngImage6' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD + D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 + 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF + DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C + 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B + B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD + D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 + AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 + 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 + DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 + 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 + D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 + 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 + 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 + F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A + A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F + AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 + 19FE00839434866373C4BA0000000049454E44AE426082} + Name = 'PngImage7' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 + E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 + 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 + CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 + D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 + AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 + 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 + D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD + 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 + C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D + E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 + 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F + 16FA1194E3DBC30000000049454E44AE426082} + Name = 'PngImage8' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 + 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA + 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 + 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B + A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 + B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE + 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 + 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E + 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D + 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE + F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 + E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} + Name = 'PngImage9' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000016A4944415478DA + 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA + 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA + 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 + F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 + FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD + D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 + 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C + E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 + FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B + CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 + BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 + 0090010087546EF0ACB0C7920000000049454E44AE426082} + Name = 'PngImage10' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001024944415478DA + 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 + C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 + FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 + 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 + 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 + B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 + 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B + 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 + CDA578040000000049454E44AE426082} + Name = 'PngImage11' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001C04944415478DA + 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 + 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F + 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 + 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF + 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E + 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F + 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB + 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 + CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 + 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 + F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C + 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 + F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 + 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C + 80060000000049454E44AE426082} + Name = 'PngImage12' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA + 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF + CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B + 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E + 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 + B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 + 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 + EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 + 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 + 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB + 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 + A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A + 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA + E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C + EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 + D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E + 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 + 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 + 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} + Name = 'PngImage13' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA + 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 + A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D + 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF + 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 + EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 + 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 + 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 + CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 + 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 + F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D + B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D + 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 + 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE + 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 + 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D + 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 + 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 + FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 + 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 + E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 + 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 + 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD + BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 + 503A4EA60D6AAC070000000049454E44AE426082} + Name = 'PngImage14' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA + 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 + 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E + C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC + 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 + 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 + BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 + 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB + B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 + 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 + E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 + 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 + 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 + 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 + 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF + 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF + 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 + 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF + AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 + 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 + E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 + 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 + CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD + DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 + 3FA68502A9830000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA + 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD + 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 + 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 + E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF + 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 + 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 + EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 + EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 + 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF + 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 + BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 + 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 + EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 + 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 + 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 + 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 + 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 + FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 + D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 + 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB + EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F + A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE + CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 + D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF + EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 + EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} + Name = 'PngImage15' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA + 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B + 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB + 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 + F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED + AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F + 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB + C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF + A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C + 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C + CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A + 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A + 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF + 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 + FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 + 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 + 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 + F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB + 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C + B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 + 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 + F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C + E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F + CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E + 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 + 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 + 000049454E44AE426082} + Name = 'PngImage16' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000019E4944415478DA + 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F + FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA + 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 + D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 + 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 + 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 + DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C + 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 + 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 + ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 + 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 + 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 + 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA + 0000000049454E44AE426082} + Name = 'PngImage17' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000015D4944415478DA + 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 + 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 + 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 + E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 + 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 + 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 + 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 + BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 + 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 + E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 + 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 + 00000049454E44AE426082} + Name = 'PngImage18' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001B04944415478DA + 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 + C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 + FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 + 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E + 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 + 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 + CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 + 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 + 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 + 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 + F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 + D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 + 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A + 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} + Name = 'PngImage19' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001034944415478DA + 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520 + 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D + 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A + 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60 + 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800 + 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE + B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3 + F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A + 7A68BA98860000000049454E44AE426082} + Name = 'PngImage20' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001864944415478DA + 63FCFFFF3FC384055BFF3390010A12BC1919610600394469FAF3F71FC3EF3F7F + 192CBCB3192EEE99856AC05E4B2B14C5CEC78F81696471AB030719662EDFC530 + 7FC9464C03F0815FBFFF826D06D10BD7EDC36E00BA0BB001DDAD3B19966D3A84 + DB0098B341E01F50EECF9F7F709BCFB93B33686EDCCEB06ADB11FC06C05C627B + E830C3613B5BB8CD97BDDD1954D66E6158BFEB387E0360367FBA7990E1C5C218 + 7C3E72C130C0F1D85186FD56D66059719B070CAA2D350CECEC59183A7FFE9CC6 + 303BB68501C30090B3617E7EDAACCCA0D3FD0CAC180EBE7F6760F8F19D61FA0E + 4306966DA9080372623D190EDAD8A0D80272018A0120CD1FDE81E9E9279D510D + 488F7463F805B4F9CF6F50A8FF61B8EAEB816A004CF37B20FEF19361FACD6054 + 0312439DE19A415EB815E88D30E0432F42F3870F1017BC4A45352036C011AE19 + 140320D7FC9E6A0031E041354233D80540037E95A31A10E163CBB062CB61D438 + BA9A0A8E85E9CBE5B1C6218A01A084810EB478DF3058B39EC099081CE4195C00 + 45135E518E0B4E380000000049454E44AE426082} + Name = 'PngImage22' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001124944415478DA + 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 + 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC + 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 + 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 + 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC + E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC + 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 + CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 + 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} + Name = 'PngImage22' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000B3A00000B3A01647F570D0000015D4944415478DA + 63FCFFFF3F030830323232C0C0CEB58DCA2F6E6CBDF3FEF129B818C30F061490 + 3FFF3F58032336032E9C58FD9F8B47904155DB192EF6FFD72B867F9F2F31FCB9 + E3CA3063061E0380B6DBB373F01CB076CD66606165C7AAB96001923E6403809A + 9979F925FEC8299B32482B18E2D40C16C7614032D08039164EA97017810CF875 + 5E1CAC196F18EC5AD7C40F74FA073DB36006411179B8E6FF3F5F32FCBEA687A2 + 196B18000D681797D6AAD06008852B64D5BA0434E4251833000DFBFBA2087718 + 2CEF76FFFFE1E119865F5FDF81F9B993706BC61906D0589056D7D07F2223CE8D + 53332103DAC5C4A52B749438706AC6170BECACAC6C3FF4547918F8397FE3D48C + 3F1A79F9E7982A7F66F8FBBA16A7669C061CDB35E1BF9CAA1D83C84B23BC9AB1 + 1A008C466BA0F38F5888D632CC9AF907AF66AC065C383AF73FC7B7150C3B97ED + 21A819AB0137CE2CFBBF776E2643CE8C4F0435231B00004A4C11F0D3652A8300 + 00000049454E44AE426082} + Name = 'PngImage23' + Background = clWindow + end> + Bitmap = {} + end + inherited LargeImages: TPngImageList [6] + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 + 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F + 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 + B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 + A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 + EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 + 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 + 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 + F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 + CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A + C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 + 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 + B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 + 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 + F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 + 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 + 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 + 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 + 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 + BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 + 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 + C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 + 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 + C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 + C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F + 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E + A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 + 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA + 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 + 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 + F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 + 682F0000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000032A4944415478DA + BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 + 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C + 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D + 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC + 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 + EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F + 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 + 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 + AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C + AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 + F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D + ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 + 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 + 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 + 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F + F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 + C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 + FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C + C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 + E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 + E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 + A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D + 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD + AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A + 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 + B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000022C4944415478DA + 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF + 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 + 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 + 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 + 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 + 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 + D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 + 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 + 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 + 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 + F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 + 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F + 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 + FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE + 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC + 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 + 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 + 02140B6805009C1383EFACA508270000000049454E44AE426082} + Name = 'PngImage3' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA + B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 + 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E + 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 + 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 + E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 + 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA + BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 + 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 + 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F + 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 + 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 + D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 + EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 + 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D + 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D + 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 + 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA + 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 + 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 + 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E + 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 + BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 + 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 + A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 + 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 + 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA + 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 + C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 + 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C + 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D + 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 + 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 + F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 + 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 + 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 + BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 + 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D + 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C + 4A0000000049454E44AE426082} + Name = 'PngImage4' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA + B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B + 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 + 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 + B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE + A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 + 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 + 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C + 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 + D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E + A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C + EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A + 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 + BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC + 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E + 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F + BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 + 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 + D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 + 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 + 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 + C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 + 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E + 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 + 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 + FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 + 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C + 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 + DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 + 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 + BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 + A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C + A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 + C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C + 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 + 00000049454E44AE426082} + Name = 'PngImage5' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000027F4944415478DA + 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 + 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 + F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 + 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D + 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F + E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 + 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 + 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA + 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B + C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 + F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF + 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F + C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 + 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D + 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 + C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 + 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 + 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB + 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 + 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 + FA0000000049454E44AE426082} + Name = 'PngImage6' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000037C4944415478DA + B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 + 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 + 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 + 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F + 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 + FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 + E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 + CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 + 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB + 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 + C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 + 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 + 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 + C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 + 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE + 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 + 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B + 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB + B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 + F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 + B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F + E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 + 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C + 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C + E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E + 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 + 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 + 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 + 000049454E44AE426082} + Name = 'PngImage7' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA + 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 + 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 + E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D + 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 + 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 + D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 + 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF + C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 + CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 + AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F + 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 + 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 + A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 + DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 + 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 + F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 + 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 + 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 + 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 + 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} + Name = 'PngImage8' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA + B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 + D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 + 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F + EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 + B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE + 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 + CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 + 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C + 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 + 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E + 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 + 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED + 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 + 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D + CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 + D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 + 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A + B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 + 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 + 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 + 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE + 426082} + Name = 'PngImage9' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000029E4944415478DA + 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 + 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 + F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 + 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 + C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 + 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD + D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA + 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 + CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 + 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 + 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 + 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B + E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC + DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 + 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 + E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 + EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 + AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 + 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 + 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B + 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 + 0000000049454E44AE426082} + Name = 'PngImage10' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA + ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 + F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 + F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF + CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B + 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D + 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD + 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 + A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE + 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 + F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 + 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF + A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C + D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 + 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 + 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F + EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E + 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 + 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 + DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C + A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA + F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 + 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E + 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC + BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D + 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 + 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 + F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 + 49454E44AE426082} + Name = 'PngImage11' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000003784944415478DA + B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 + AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A + BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 + 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A + 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 + 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 + 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 + E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 + 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 + 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A + B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 + FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 + 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 + DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 + 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 + 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC + 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 + FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 + 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 + 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F + 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B + 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 + D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA + 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F + 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 + EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 + 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F + 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 + 4E44AE426082} + Name = 'PngImage12' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA + BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 + 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 + 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C + 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 + A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F + 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 + E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA + 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F + 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE + 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A + B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 + 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 + 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 + 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 + 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F + 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 + B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE + AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 + E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 + 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA + 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD + E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 + E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 + 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 + 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 + 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C + 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 + 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE + 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 + 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C + 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 + 000049454E44AE426082} + Name = 'PngImage13' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA + AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 + 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 + A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 + 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 + CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 + 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 + B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E + 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 + 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 + 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 + 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F + 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D + F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D + AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 + 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E + C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 + 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 + CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A + 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 + 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 + D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D + D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA + 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 + C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 + 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 + D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 + 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 + 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 + 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE + 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 + B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 + 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 + 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 + 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 + 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 + 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 + 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB + 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 + 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF + 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 + F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 + F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 + 49454E44AE426082} + Name = 'PngImage14' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA + AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED + C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B + 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 + 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 + 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 + B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB + 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 + 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 + 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 + 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 + 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 + A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 + E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A + EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 + 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 + 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 + 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A + 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 + 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC + 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 + F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 + 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 + B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A + 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 + 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E + 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F + 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC + 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 + D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D + 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B + D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC + F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 + 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA + 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 + C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF + BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 + 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F + 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 + 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 + 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 + 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 + 88E7298D620000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA + 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E + 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 + D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 + F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B + 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 + C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB + B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A + 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD + 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 + 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 + 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C + 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 + 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 + 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E + 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 + 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 + 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F + 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 + 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA + 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 + 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 + 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 + 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 + 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC + 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 + 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 + D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 + 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 + 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 + F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 + 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 + FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 + 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B + FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 + 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 + 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 + E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF + 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 + 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F + 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 + 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 + 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 + 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 + 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 + 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 + FE66E507F40000000049454E44AE426082} + Name = 'PngImage16' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA + 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 + F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 + 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 + F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC + AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 + 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 + ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA + A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 + E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 + 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 + 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 + 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 + BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 + C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 + E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 + 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF + 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF + 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B + C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 + 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 + C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B + 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 + 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B + 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 + A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 + 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 + EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 + DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 + 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F + 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D + F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D + 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 + 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 + A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 + E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 + 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 + 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A + 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 + 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 + 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 + AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 + 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB + 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 + 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C + 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 + 2F15D20000000049454E44AE426082} + Name = 'PngImage15' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000002814944415478DA + 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF + 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 + EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A + 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC + 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 + E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 + 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 + 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 + 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F + 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 + BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A + 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 + 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A + 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 + 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 + 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F + C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 + 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 + 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 + CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 + 5838D40000000049454E44AE426082} + Name = 'PngImage17' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000026D4944415478DA + B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 + 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 + ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C + F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB + 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB + 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 + E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A + 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D + 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 + 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B + 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 + 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 + D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 + C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C + 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 + 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F + 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 + CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 + 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 + 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} + Name = 'PngImage18' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300004E2000004E2001167D99DE000004124944415478DA + ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 + 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 + 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A + 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 + 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB + A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 + 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 + 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 + 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 + E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B + 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F + BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 + 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD + 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A + 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 + D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 + 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 + 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 + BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C + 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 + E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D + B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 + F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 + D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 + D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB + 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 + D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 + 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 + BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 + 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF + 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC + 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A + 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} + Name = 'PngImage19' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000001B74944415478DA + B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 + BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 + 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 + 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 + F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B + 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 + C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D + 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 + 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C + B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 + D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 + 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 + 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE + F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E + 44AE426082} + Name = 'PngImage20' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000026C4944415478DA + 63FCFFFF3FC3A28DC7FF335009C4F95B3222F319611600254836ECEFDF7F40FC + 1F4C8380856F36C3C53DB3705BB0D7D21EC500E7E307711A8EACD674CF2E8679 + ABF730CC5FB211BF05A4B8FC808D2383328B34C3B6D3CB19225F7E6358B87E1F + 610BB0F9005D0C046C0FEE63386CEFC470F3FC21303FECD91786259B0E50E683 + FFFF80610DC47F80AE07B17FFF0386FF9F7F60DFFCF9F79761C596C3A4FB8018 + 00F285EF83770C6B771C23CE0298B749015E77DF306CD87D82380BF0A51C6C00 + A44771E55A864DFB4E126F01AEA082590E9387A9955BBE8661EB8153B4F381E4 + 92550CBB0E9FA1AE0F6EAA108EABC75FEDC8F3C1B4584686847408FBE74F0686 + 5F3F2018C4FEF903824F1C47B320DAC71C9C3B09F98058C3F9251818AEDC45B2 + 20C2D30C9C3BF1F90064388B207EDFFD798F301C250E42DD4C188E39B910B400 + E67A10F8F80EE2E21F5097FFFACEC070FA0C2468EC0D0F311C3C8FE483001723 + 86D32E6E785D078A5890664200643808A058E0EB60002F5720E5FC3F70D90316 + 0396F94FA343C11620FB001C247F81F83703C36F501C007D70ED3A420EC5022F + 5B3D9C8683E81771E11816FCFA05341888FF40E995ABD919D4357E32B0B160B1 + C0CD5A1BA7E1A012F44D62248605A038005B00F201106FDACACE202D0FB1808D + 9581E1F865240B1CCD35C086FDFB0B29967FFF4514C7FFFE432C3ADD2D8F62C1 + 9B1708C341166DDFCDCE202A0DB1E0F21D3B86F6750719E116D899A8814B447C + 806DAF0FDC0250F0BC7B89301C44EF39C0CEC02FFE93E1FE1388E128C9B477F2 + 7C82A9235D7236D882A993D971AA79F7DB1C6E38DC0262417738C73AA00181F8 + D4201B0E0200C20B50400F1E42A70000000049454E44AE426082} + Name = 'PngImage22' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000B3A00000B3A01647F570D000001B94944415478DA + 63FCFFFF3F032D01E38058C0C8C888C2DFB9B651F9C58DAD77DE3F3E85AAF007 + 7643F3E7FF6724C9828B27D7FCE7E0E46350D3754511FFFFEB15C3BFCF9718FE + 7FB90CC40F18FE7D99C43063068916005D6FCEC2CA71C2CE239F8185959DA0E1 + 050B50CD2468C1C903F3FF4B486B32C8A9986375FDBF179B510C07CB116B01D0 + F5C15C3C426BAC5DB3512CC56738D116000D67061AFE4755DB99411CE803620D + 27C5827C0161B90966F6091841F3E7762BDC7064407410ED5AD7C40F8CD80FC6 + D6D10CFC42D22886FFFFF992E1EFA339600B9001497100B4A05B4246BB44CF2C + 18C3F0FFBF209801C4474B3D4407D1F26EF7FF1F1E9E61F8F5F51D5C2C77D225 + A20C272915415392B4BA9ACC13194939A20C27C7826E7131C1126D6521A20C27 + C902A0E1DC2C2CCC5F0CD5051878397E116538A916E40BF0734F3052FCCEF0FF + FB6BA20C27DA027046E364FFA322C5C420CCF28468C349B1C01F68C10633B967 + C0A021DE70A22D38B9A7E7BF28DF1F06A97F1524194E9405C08C660C8CDC3316 + 624D0CB367FE22C970A22CB87864F27FB66F5B18762DDF45B2E1445970E3F4F4 + FF7BE75530E4CCF844B2E14459404D40730B006B5E9AE0A24640FE0000000049 + 454E44AE426082} + Name = 'PngImage22' + Background = clWindow + end> + Bitmap = {} + end + inherited JvFormStorage: TJvFormStorage [7] + end + inherited dsDataTable: TDADataSource [9] + end + inherited StatusBarImages: TPngImageList [10] + Left = 152 + end + inherited GridPopupMenu: TPopupMenu + object Cambiarsituacin1: TMenuItem [4] + Action = actRecibirPedido + end + object N4: TMenuItem [5] + Caption = '-' + end + end + object JsNuevoPedidoProveedorDialog: TJSDialog + Content.Strings = ( + #191'C'#243'mo desea dar de alta el pedido?') + DialogOptions = [doCommandLinks, doModal] + Glyph.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 + 00001C0806000000720DDF940000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 + 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD + 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 + 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD + B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 + 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 + 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 + A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 + 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 + 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 + A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F + 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B + EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F + 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 + 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 + 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 + CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF + 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 + F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF + 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 + 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF + 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 + ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 + FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 + 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA + 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} + Instruction.Text = 'Nuevo pedido de proveedor' + Instruction.Glyph.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 + 00001C0806000000720DDF940000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 + 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD + 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 + 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD + B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 + 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 + 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 + A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 + 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 + 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 + A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F + 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B + EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F + 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 + 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 + 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 + CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF + 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 + F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF + 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 + 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF + 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 + ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 + FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 + 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA + 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} + Instruction.Icon = tdiCustom + CustomButtons = < + item + Caption = 'Pedido proveedor nuevo vac'#237'o.' + Value = 100 + end + item + Caption = 'Utilizar un pedido de cliente.' + Value = 200 + Info.Strings = ( + + 'Puede utilizar un pedido de cliente existente para dar de alta e' + + 'l/los pedido/os a proveedor nuevo/os.') + end> + ButtonBar.Buttons = [cbCancel] + MainIcon = tdiCustom + Title = 'FactuGES' + Position = dpMainFormCenter + Icon.Data = { + 0000010003002020100001000400E8020000360000002020000001000800A808 + 00001E0300002020000001002000A8100000C60B000028000000200000004000 + 0000010004000000000000020000000000000000000000000000000000000000 + 000000008000008000000080800080000000800080008080000080808000C0C0 + C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000 + 0000000000000000000000000000000008777777777777777777777700000000 + 0877767777677776777767760000000008F88888888888888888888700000000 + 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000 + 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000 + 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000 + 08F8676767677677677658E50000000008FF8888888887878787888700000000 + 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000 + 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000 + 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000 + 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7 + 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087 + B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB + B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008 + B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B + B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0 + 08BB883B78888788787700000000000000B9000000000000000000000000FFFF + FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000 + 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800 + 0000200000004000000001000800000000000004000000000000000000000001 + 00000001000000000000694731007C5D49007E604C0081635000826451008567 + 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72 + 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84 + 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A + 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A + E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC + FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6 + F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE + C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD + E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC + F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8 + F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE + FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8 + F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1 + F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A + 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4 + 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8 + 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF + A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC + 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5 + AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4 + 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6 + BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8 + B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7 + F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9 + C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1 + C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA + D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2 + DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3 + FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE + EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4 + F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D + 0D0D0000000000000000009C9C19191919191919191919191919191919191919 + 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0 + 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB + 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0 + 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0 + 9007000000000000000000AFF0D5017783838386868686869099909999907BB0 + 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA + 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0 + 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3 + 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB + 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2 + 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2 + 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5 + 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5 + 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2 + 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2 + 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5 + 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2 + 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5 + 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA + 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5 + 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675 + 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101 + 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0 + A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB + 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514 + 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F + 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300 + 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000 + 0000000000000000000000003227000000000000000000000000000000000000 + 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000 + 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800 + 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007067 + 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355 + 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355 + 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB + A070000000000000000000000000000000000000000000000000000000005E54 + 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A + 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A + 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1 + 967F000000000000000000000000000000000000000000000000000000006055 + 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7 + BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC + B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006056 + 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE + D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB + C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006155 + 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0 + DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD + C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006157 + 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3 + CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4 + B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3 + 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8 + 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2 + CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE + C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006257 + 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60 + 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C + 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006357 + 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1 + A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4 + 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006357 + 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4 + 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1 + DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006458 + 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7 + 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1 + DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006458 + 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5 + F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3 + DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006459 + 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED + EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE + D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006559 + 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D + 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C + 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006559 + 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC + C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6 + F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1 + 967E00000000000000000000000000000000000000000000000000000000685A + 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD + C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF + FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1 + 967E00000000000000000000000000000000007792910072A7A3001E33366957 + 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C + A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85 + 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1 + 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90 + A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4 + CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99 + 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1 + 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0 + FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA + B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6 + F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1 + 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE + F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB + 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6 + F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1 + 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB + FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8 + FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7 + F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1 + 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD + FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0 + FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA + F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3 + 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD + FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1 + F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC + FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2 + 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8 + FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2 + FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE + FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985 + 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9 + FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF + FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000 + 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9 + FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000 + 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD + BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4 + F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6 + E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000 + 0000000000000000000000000000000000000075B7AF0099C7C500323E425442 + 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85 + A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89 + 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000 + 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000 + 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 + 0007C0000007C000000700000007000000070000000700000007C000000FC000 + 001F8000003F800000FFF8FFFFFF} + Left = 144 + Top = 112 + end + object JsPrevisualizarDialog: TJSDialog + Content.Strings = ( + 'Elija una opci'#243'n:') + DialogOptions = [doCommandLinks, doModal] + Glyph.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 + 00001C0806000000720DDF940000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 + 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD + 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 + 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD + B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 + 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 + 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 + A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 + 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 + 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 + A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F + 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B + EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F + 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 + 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 + 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 + CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF + 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 + F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF + 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 + 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF + 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 + ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 + FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 + 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA + 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} + Instruction.Text = 'Previsualizar...' + Instruction.Glyph.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 + 00001C0806000000720DDF940000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 + 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD + 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 + 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD + B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 + 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 + 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 + A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 + 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 + 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 + A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F + 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B + EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F + 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 + 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 + 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 + CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF + 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 + F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF + 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 + 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF + 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 + ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 + FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 + 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA + 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} + Instruction.Icon = tdiCustom + CustomButtons = < + item + Caption = 'Previsualizar el pedido/s seleccionado/s' + Value = 100 + Default = True + end + item + Caption = 'Previsualizar la lista de pedidos actual' + Value = 200 + end> + ButtonBar.Buttons = [cbCancel] + MainIcon = tdiCustom + Title = 'FactuGES' + Position = dpMainFormCenter + Icon.Data = { + 0000010003002020100001000400E8020000360000002020000001000800A808 + 00001E0300002020000001002000A8100000C60B000028000000200000004000 + 0000010004000000000000020000000000000000000000000000000000000000 + 000000008000008000000080800080000000800080008080000080808000C0C0 + C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000 + 0000000000000000000000000000000008777777777777777777777700000000 + 0877767777677776777767760000000008F88888888888888888888700000000 + 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000 + 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000 + 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000 + 08F8676767677677677658E50000000008FF8888888887878787888700000000 + 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000 + 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000 + 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000 + 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7 + 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087 + B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB + B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008 + B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B + B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0 + 08BB883B78888788787700000000000000B9000000000000000000000000FFFF + FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000 + 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800 + 0000200000004000000001000800000000000004000000000000000000000001 + 00000001000000000000694731007C5D49007E604C0081635000826451008567 + 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72 + 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84 + 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A + 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A + E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC + FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6 + F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE + C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD + E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC + F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8 + F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE + FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8 + F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1 + F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A + 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4 + 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8 + 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF + A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC + 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5 + AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4 + 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6 + BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8 + B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7 + F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9 + C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1 + C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA + D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2 + DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3 + FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE + EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4 + F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D + 0D0D0000000000000000009C9C19191919191919191919191919191919191919 + 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0 + 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB + 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0 + 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0 + 9007000000000000000000AFF0D5017783838386868686869099909999907BB0 + 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA + 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0 + 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3 + 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB + 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2 + 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2 + 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5 + 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5 + 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2 + 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2 + 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5 + 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2 + 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5 + 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA + 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5 + 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675 + 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101 + 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0 + A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB + 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514 + 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F + 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300 + 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000 + 0000000000000000000000003227000000000000000000000000000000000000 + 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000 + 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800 + 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007067 + 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355 + 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355 + 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB + A070000000000000000000000000000000000000000000000000000000005E54 + 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A + 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A + 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1 + 967F000000000000000000000000000000000000000000000000000000006055 + 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7 + BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC + B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006056 + 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE + D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB + C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006155 + 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0 + DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD + C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006157 + 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3 + CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4 + B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3 + 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8 + 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2 + CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE + C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006257 + 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60 + 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C + 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006357 + 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1 + A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4 + 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006357 + 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4 + 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1 + DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006458 + 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7 + 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1 + DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006458 + 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5 + F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3 + DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006459 + 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED + EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE + D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006559 + 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D + 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C + 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006559 + 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC + C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6 + F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1 + 967E00000000000000000000000000000000000000000000000000000000685A + 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD + C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF + FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1 + 967E00000000000000000000000000000000007792910072A7A3001E33366957 + 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C + A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85 + 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1 + 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90 + A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4 + CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99 + 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1 + 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0 + FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA + B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6 + F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1 + 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE + F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB + 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6 + F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1 + 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB + FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8 + FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7 + F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1 + 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD + FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0 + FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA + F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3 + 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD + FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1 + F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC + FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2 + 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8 + FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2 + FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE + FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985 + 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9 + FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF + FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000 + 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9 + FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000 + 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD + BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4 + F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6 + E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000 + 0000000000000000000000000000000000000075B7AF0099C7C500323E425442 + 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85 + A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89 + 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000 + 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000 + 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 + 0007C0000007C000000700000007000000070000000700000007C000000FC000 + 001F8000003F800000FFF8FFFFFF} + Width = 450 + Left = 232 + Top = 112 + end + object JsImprimirDialog: TJSDialog + Content.Strings = ( + 'Elija una opci'#243'n:') + DialogOptions = [doCommandLinks, doModal] + Glyph.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 + 00001C0806000000720DDF940000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 + 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD + 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 + 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD + B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 + 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 + 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 + A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 + 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 + 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 + A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F + 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B + EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F + 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 + 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 + 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 + CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF + 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 + F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF + 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 + 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF + 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 + ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 + FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 + 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA + 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} + Instruction.Text = 'Imprimir...' + Instruction.Glyph.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 + 00001C0806000000720DDF940000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 + 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD + 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 + 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD + B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 + 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 + 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 + A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 + 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 + 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 + A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F + 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B + EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F + 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 + 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 + 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 + CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF + 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 + F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF + 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 + 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF + 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 + ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 + FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 + 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA + 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} + Instruction.Icon = tdiCustom + CustomButtons = < + item + Caption = 'Imprimir el pedido/s seleccionado/s' + Value = 100 + Default = True + end + item + Caption = 'Imprimir la lista de pedidos actual' + Value = 200 + end> + ButtonBar.Buttons = [cbCancel] + MainIcon = tdiCustom + Title = 'FactuGES' + Position = dpMainFormCenter + Icon.Data = { + 0000010003002020100001000400E8020000360000002020000001000800A808 + 00001E0300002020000001002000A8100000C60B000028000000200000004000 + 0000010004000000000000020000000000000000000000000000000000000000 + 000000008000008000000080800080000000800080008080000080808000C0C0 + C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000 + 0000000000000000000000000000000008777777777777777777777700000000 + 0877767777677776777767760000000008F88888888888888888888700000000 + 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000 + 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000 + 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000 + 08F8676767677677677658E50000000008FF8888888887878787888700000000 + 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000 + 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000 + 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000 + 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7 + 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087 + B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB + B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008 + B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B + B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0 + 08BB883B78888788787700000000000000B9000000000000000000000000FFFF + FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000 + 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800 + 0000200000004000000001000800000000000004000000000000000000000001 + 00000001000000000000694731007C5D49007E604C0081635000826451008567 + 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72 + 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84 + 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A + 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A + E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC + FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6 + F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE + C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD + E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC + F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8 + F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE + FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8 + F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1 + F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A + 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4 + 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8 + 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF + A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC + 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5 + AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4 + 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6 + BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8 + B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7 + F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9 + C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1 + C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA + D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2 + DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3 + FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE + EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4 + F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D + 0D0D0000000000000000009C9C19191919191919191919191919191919191919 + 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0 + 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB + 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0 + 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0 + 9007000000000000000000AFF0D5017783838386868686869099909999907BB0 + 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA + 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0 + 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3 + 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB + 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2 + 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2 + 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5 + 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5 + 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2 + 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2 + 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5 + 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2 + 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5 + 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA + 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5 + 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675 + 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101 + 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0 + A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB + 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514 + 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F + 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300 + 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000 + 0000000000000000000000003227000000000000000000000000000000000000 + 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000 + 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800 + 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007067 + 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355 + 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355 + 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB + A070000000000000000000000000000000000000000000000000000000005E54 + 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A + 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A + 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1 + 967F000000000000000000000000000000000000000000000000000000006055 + 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7 + BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC + B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006056 + 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE + D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB + C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006155 + 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0 + DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD + C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006157 + 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3 + CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4 + B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3 + 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8 + 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2 + CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE + C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006257 + 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60 + 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C + 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006357 + 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1 + A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4 + 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006357 + 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4 + 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1 + DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006458 + 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7 + 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1 + DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006458 + 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5 + F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3 + DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006459 + 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED + EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE + D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006559 + 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D + 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C + 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006559 + 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC + C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6 + F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1 + 967E00000000000000000000000000000000000000000000000000000000685A + 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD + C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF + FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1 + 967E00000000000000000000000000000000007792910072A7A3001E33366957 + 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C + A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85 + 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1 + 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90 + A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4 + CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99 + 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1 + 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0 + FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA + B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6 + F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1 + 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE + F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB + 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6 + F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1 + 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB + FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8 + FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7 + F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1 + 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD + FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0 + FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA + F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3 + 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD + FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1 + F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC + FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2 + 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8 + FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2 + FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE + FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985 + 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9 + FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF + FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000 + 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9 + FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000 + 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD + BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4 + F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6 + E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000 + 0000000000000000000000000000000000000075B7AF0099C7C500323E425442 + 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85 + A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89 + 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000 + 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000 + 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 + 0007C0000007C000000700000007000000070000000700000007C000000FC000 + 001F8000003F800000FFF8FFFFFF} + Width = 450 + Left = 264 + Top = 112 + end + object JsListaPedidosNoEliminados: TJSDialog + Glyph.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 + 00001C0806000000720DDF940000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 + 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD + 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 + 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD + B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 + 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 + 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 + A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 + 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 + 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 + A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F + 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B + EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F + 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 + 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 + 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 + CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF + 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 + F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF + 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 + 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF + 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 + ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 + FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 + 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA + 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} + Instruction.Text = + 'Los siguientes pedidos no han podido ser eliminados, porque tien' + + 'en albaranes asociados' + Instruction.Glyph.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 + 00001C0806000000720DDF940000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14 + 5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD + 1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2 + 3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD + B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010 + 60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3 + 21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045 + A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8 + 225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281 + 081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87 + A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F + 70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B + EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F + 286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8 + 6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10 + 81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8 + CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF + 469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32 + F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF + 86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165 + 4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF + 673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2 + ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312 + FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 + 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA + 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} + Instruction.Icon = tdiCustom + ButtonBar.Buttons = [cbOK] + ButtonBar.Cancel = cbOK + ButtonBar.UseCancel = False + MainIcon = tdiCustom + Title = 'FactuGES' + Position = dpMainFormCenter + Icon.Data = { + 0000010003002020100001000400E8020000360000002020000001000800A808 + 00001E0300002020000001002000A8100000C60B000028000000200000004000 + 0000010004000000000000020000000000000000000000000000000000000000 + 000000008000008000000080800080000000800080008080000080808000C0C0 + C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000 + 0000000000000000000000000000000008777777777777777777777700000000 + 0877767777677776777767760000000008F88888888888888888888700000000 + 08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000 + 08F88888F8888888888888860000000008F8688878E8888E88E8788700000000 + 08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000 + 08F8676767677677677658E50000000008FF8888888887878787888700000000 + 08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000 + 08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000 + 0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000 + 08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7 + 8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087 + B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB + B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008 + B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B + B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0 + 08BB883B78888788787700000000000000B9000000000000000000000000FFFF + FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000 + 000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800 + 0000200000004000000001000800000000000004000000000000000000000001 + 00000001000000000000694731007C5D49007E604C0081635000826451008567 + 540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72 + 61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84 + 76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A + 970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A + E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC + FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6 + F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE + C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD + E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC + F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8 + F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE + FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8 + F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1 + F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A + 8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4 + 9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8 + 9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF + A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC + 8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5 + AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4 + 9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6 + BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8 + B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7 + F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9 + C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1 + C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA + D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2 + DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3 + FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE + EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4 + F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D + 0D0D0000000000000000009C9C19191919191919191919191919191919191919 + 1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0 + 8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB + 9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0 + 9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0 + 9007000000000000000000AFF0D5017783838386868686869099909999907BB0 + 9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA + 9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0 + 9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3 + 9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB + 9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2 + 9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2 + 9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5 + 9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5 + 9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2 + 9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2 + 9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5 + 9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2 + 9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5 + 9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA + 9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5 + 9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675 + 7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101 + 0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0 + A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB + 1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514 + 700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F + 000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300 + 000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000 + 0000000000000000000000003227000000000000000000000000000000000000 + 000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800 + 000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000 + 000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800 + 00FFFCFFFFFF2800000020000000400000000100200000000000801000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000007067 + 5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355 + 40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355 + 40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB + A070000000000000000000000000000000000000000000000000000000005E54 + 4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A + 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A + 79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1 + 967F000000000000000000000000000000000000000000000000000000006055 + 4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7 + BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC + B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006056 + 4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE + D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB + C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006155 + 4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0 + DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD + C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006157 + 4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3 + CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4 + B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3 + 94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8 + 9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2 + CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006256 + 4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE + C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006257 + 4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60 + 4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C + 5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006357 + 507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1 + A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4 + 98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006357 + 507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4 + 95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1 + DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006458 + 517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7 + 7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1 + DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006458 + 517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5 + F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3 + DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006459 + 517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED + EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE + D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006559 + 527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D + 8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C + 8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1 + 967E000000000000000000000000000000000000000000000000000000006559 + 527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC + C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6 + F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1 + 967E00000000000000000000000000000000000000000000000000000000685A + 527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD + C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF + FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1 + 967E00000000000000000000000000000000007792910072A7A3001E33366957 + 4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C + A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85 + 76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1 + 967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90 + A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4 + CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99 + 8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1 + 967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0 + FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA + B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6 + F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1 + 967E00000000000000000000000000000000000000005F8A909142C7E4E960DE + F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB + 63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6 + F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1 + 967E000000000000000000000000000E171A000E171A00040B145994A4A990EB + FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8 + FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7 + F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1 + 967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD + FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0 + FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA + F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3 + 987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD + FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1 + F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC + FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2 + 9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8 + FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2 + FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE + FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985 + 831C00000000000000000000000000000000000000004E7073774AB0DADC37C9 + FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF + FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000 + 000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9 + FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000 + 000000000000000000000000000000000000003451510099DDDB0091C0C35DAD + BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4 + F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6 + E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000 + 0000000000000000000000000000000000000075B7AF0099C7C500323E425442 + 3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85 + A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89 + 7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000 + 0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000 + 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 + 0007C0000007C000000700000007000000070000000700000007C000000FC000 + 001F8000003F800000FFF8FFFFFF} + Width = 450 + Left = 184 + Top = 112 + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas new file mode 100644 index 00000000..2b1db2d2 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas @@ -0,0 +1,334 @@ +unit uEditorPedidosProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, Menus, DB, uDADataTable, JvAppStorage, + JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList, + PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, + TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, + JvNavigationPane, uViewGrid, pngimage, JvComponentBase, + uEditorGridBase, + uBizPedidosProveedor, uIEditorPedidosProveedor, uPedidosProveedorController, + uCustomView, uViewBase, uViewBarraSeleccion, uViewGridBase, + uViewPedidosProveedor, JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces; + +type + TfEditorPedidosProveedor = class(TfEditorGridBase, IEditorPedidosProveedor) + frViewPedidosProveedor1: TfrViewPedidosProveedor; + N4: TMenuItem; + Cambiarsituacin1: TMenuItem; + actRecibirPedido: TAction; + JsNuevoPedidoProveedorDialog: TJSDialog; + JsPrevisualizarDialog: TJSDialog; + JsImprimirDialog: TJSDialog; + TBXItem39: TTBXItem; + JsListaPedidosNoEliminados: TJSDialog; + procedure FormShow(Sender: TObject); + procedure actCambiarSituacionExecute(Sender: TObject); + procedure actRecibirPedidoUpdate(Sender: TObject); + procedure actRecibirPedidoExecute(Sender: TObject); + procedure actEliminarUpdate(Sender: TObject); + + protected + FPedidos: IBizPedidoProveedor; + FController : IPedidosProveedorController; + + function GetPedidos: IBizPedidoProveedor; + procedure SetPedidos(const Value: IBizPedidoProveedor); + + function GetController : IPedidosProveedorController; virtual; + procedure SetController (const Value : IPedidosProveedorController); virtual; + procedure NuevoInterno; override; + procedure ModificarInterno; override; + procedure EliminarInterno; override; + procedure DuplicarInterno; override; + procedure ImprimirInterno; override; + procedure PrevisualizarInterno; override; + public + procedure PonerTitulos(const ATitulo: string = ''); override; + + property Pedidos: IBizPedidoProveedor read GetPedidos write SetPedidos; + property Controller : IPedidosProveedorController read GetController write SetController; + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +uses + uDataModulePedidosProveedor, uDataModuleUsuarios, uEditorDBBase, +// uInventarioController, uBizInventario, + uDialogUtils, uGridUtils, uDBSelectionListUtils; +// uAlbaranesProveedorController, uBizAlbaranesProveedor, +// uGenerarPedidosProvUtils, uGenerarAlbaranesProvUtils; + +{$R *.dfm} + +{ +*************************** TfEditorPedidosProveedor *************************** +} +procedure TfEditorPedidosProveedor.actCambiarSituacionExecute(Sender: TObject); +begin + inherited; + FController.CambiarSituacion(FPedidos) +end; + +procedure TfEditorPedidosProveedor.actEliminarUpdate(Sender: TObject); +begin + inherited; + if (Sender as TAction).Enabled then + (Sender as TAction).Enabled := (FPedidos.SITUACION = SITUACION_PEDIDO_PENDIENTE); +end; + +procedure TfEditorPedidosProveedor.actRecibirPedidoExecute(Sender: TObject); +begin + inherited; +// RecibirPedidoProv(FPedidos); + actRefrescar.Execute; +end; + +procedure TfEditorPedidosProveedor.actRecibirPedidoUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := HayDatos and + not (ViewGrid.NumSeleccionados > 1) and + ViewGrid.esSeleccionCeldaDatos and + (FPedidos.SITUACION <> SITUACION_PEDIDO_RECIBIDO); +end; + +constructor TfEditorPedidosProveedor.Create(AOwner: TComponent); +begin + inherited; + ViewGrid := frViewPedidosProveedor1; //CreateView(TfrViewPedidosProveedor) as IViewPedidosProveedor; +end; + +destructor TfEditorPedidosProveedor.Destroy; +begin + FPedidos := NIL; + FController := NIL; + inherited; +end; + +procedure TfEditorPedidosProveedor.DuplicarInterno; +var + APedido : IBizPedidoProveedor; +begin + inherited; + APedido := FController.Duplicar(Pedidos); + try + FController.Ver(APedido); + finally + actRefrescar.Execute; + end; +end; + +procedure TfEditorPedidosProveedor.EliminarInterno; +var + APedidos: IBizPedidoProveedor; + AllItems: Boolean; +begin + APedidos := Nil; + AllItems := False; + + if MultiSelect and Assigned(ViewGrid) then + AllItems := (ViewGrid.NumSeleccionados > 1); + + if AllItems then + begin + if (Application.MessageBox('¿Desea borrar los pedidos de proveedor seleccionados?', 'Atención', MB_YESNO) = IDYES) then + begin + SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); + APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor; + end + end + else begin + if (Application.MessageBox('¿Desea borrar el pedido de proveedor seleccionado?', 'Atención', MB_YESNO) = IDYES) then + APedidos := Pedidos; + end; + + if Assigned(APedidos) then + begin + FController.Eliminar(APedidos, AllItems); + if AllItems then + begin + if (APedidos.DataTable.RecordCount > 0) then + begin + with APedidos.DataTable do + begin + First; + while not EOF do + begin + JsListaPedidosNoEliminados.Content.Add('Ref. pedido: ' + APedidos.REFERENCIA + ' ' + APedidos.NOMBRE); + Next; + end; + end; + JsListaPedidosNoEliminados.Execute; + end; + actRefrescar.Execute; + end; + end; + + ViewGrid.GotoFirst; +end; + +procedure TfEditorPedidosProveedor.FormShow(Sender: TObject); +begin + inherited; + + if not Assigned(ViewGrid) then + raise Exception.Create('No hay ninguna vista asignada'); + + if not Assigned(Pedidos) then + raise Exception.Create('No hay ningún pedido asignado'); + + Pedidos.DataTable.Active := True; + ViewGrid.GotoFirst; +end; + +function TfEditorPedidosProveedor.GetController: IPedidosProveedorController; +begin + Result := FController; +end; + +function TfEditorPedidosProveedor.GetPedidos: IBizPedidoProveedor; +begin + Result := FPedidos; +end; + +procedure TfEditorPedidosProveedor.ImprimirInterno; +var + Respuesta : Integer; + APedidos: IBizPedidoProveedor; + AllItems: Boolean; +begin + APedidos := Nil; + AllItems := False; + + if MultiSelect and Assigned(ViewGrid) then + AllItems := (ViewGrid.NumSeleccionados > 1); + + //Si esta agrupado solo podré imprimir la lista de elementos visibles + if not ViewGrid.esSeleccionCeldaDatos then + inherited + else + begin + Respuesta := JsImprimirDialog.Execute; + if Respuesta <> IDCANCEL then + begin + case JsImprimirDialog.CustomButtonResult of + 200 : begin // Lista de elementos visibles + inherited; + end; + 100 : begin // Elemento Seleccionado + if AllItems then + begin + SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); + APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor; + end + else + APedidos := Pedidos; + + if Assigned(APedidos) then + FController.Print(APedidos, AllItems); + end; + end; + end; + end; +end; + +procedure TfEditorPedidosProveedor.ModificarInterno; +begin + inherited; + FController.Ver(Pedidos); +end; + +procedure TfEditorPedidosProveedor.NuevoInterno; +var + Respuesta : Integer; + +begin + inherited; + + Respuesta := JsNuevoPedidoProveedorDialog.Execute; + + if Respuesta <> IDCANCEL then + begin + case JsNuevoPedidoProveedorDialog.CustomButtonResult of + 200 : begin // Utilizar un pedido +// GenerarPedidosProv; + actRefrescar.Execute; + end; + 100 : begin // Pedido nuevo vacio + FController.Anadir(Pedidos); + FController.Ver(Pedidos); + end; + end; + end; + +end; + +procedure TfEditorPedidosProveedor.PonerTitulos(const ATitulo: string); +var + FTitulo : String; +begin + FTitulo := 'Lista de pedidos a proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE; + inherited PonerTitulos(FTitulo); +end; + +procedure TfEditorPedidosProveedor.PrevisualizarInterno; +var + Respuesta : Integer; + APedidos: IBizPedidoProveedor; + AllItems: Boolean; +begin + APedidos := Nil; + AllItems := False; + + if MultiSelect and Assigned(ViewGrid) then + AllItems := (ViewGrid.NumSeleccionados > 1); + + //Si esta agrupado solo podré imprimir la lista de elementos visibles + if not ViewGrid.esSeleccionCeldaDatos then + inherited + else + begin + Respuesta := JsPrevisualizarDialog.Execute; + if Respuesta <> IDCANCEL then + begin + case JsPrevisualizarDialog.CustomButtonResult of + 200 : begin // Lista de elementos visibles + inherited; + end; + 100 : begin // Elemento Seleccionado + if AllItems then + begin + SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords); + APedidos := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor; + end + else + APedidos := Pedidos; + + if Assigned(APedidos) then + FController.Preview(APedidos, AllItems); + end; + end; + end; + end; +end; + +procedure TfEditorPedidosProveedor.SetController(const Value: IPedidosProveedorController); +begin + FController := Value; +end; + +procedure TfEditorPedidosProveedor.SetPedidos(const Value: IBizPedidoProveedor); +begin + FPedidos := Value; + dsDataTable.DataTable := FPedidos.DataTable; + if Assigned(ViewGrid) then + (ViewGrid as IViewPedidosProveedor).Pedidos := Pedidos; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dcu b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dcu new file mode 100644 index 00000000..479b0cf1 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm new file mode 100644 index 00000000..ac48b568 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm @@ -0,0 +1,12 @@ +inherited fEditorPedidosProveedorPreview: TfEditorPedidosProveedorPreview + Caption = 'Previsualizar el pedidos proveedor' + ExplicitWidth = 320 + ExplicitHeight = 240 + PixelsPerInch = 96 + TextHeight = 13 + inherited frxReport1: TfrxReport + Datasets = <> + Variables = <> + Style = <> + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas new file mode 100644 index 00000000..65763955 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas @@ -0,0 +1,27 @@ +unit uEditorPedidosProveedorReport; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorPreview, JvAppStorage, JvAppRegistryStorage, JvComponentBase, + JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, + TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, + ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorPedidosProveedorPreview, + JvExComCtrls, JvStatusBar, frxExportImage, frxExportPDF, frxDCtrl, frxClass, + frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode; + +type + TfEditorPedidosProveedorPreview = class(TfEditorPreview, IEditorPedidosProveedorPreview) + private + { Private declarations } + public + { Public declarations } + end; + + +implementation + +{$R *.dfm} + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.dcu new file mode 100644 index 00000000..9eafbeb3 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.dfm new file mode 100644 index 00000000..bd79ad52 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.dfm @@ -0,0 +1,215 @@ +object fEditorSituacionPedidoProveedor: TfEditorSituacionPedidoProveedor + Left = 497 + Top = 344 + BorderStyle = bsDialog + Caption = 'Cambiar situaci'#243'n del pedido' + ClientHeight = 348 + ClientWidth = 434 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + PixelsPerInch = 96 + TextHeight = 13 + object JvgWizardHeader1: TJvgWizardHeader + Left = 0 + Top = 0 + Width = 434 + Height = 73 + CaptionFont.Charset = DEFAULT_CHARSET + CaptionFont.Color = clWindowText + CaptionFont.Height = -11 + CaptionFont.Name = 'Tahoma' + CaptionFont.Style = [fsBold] + CommentFont.Charset = DEFAULT_CHARSET + CommentFont.Color = clWindowText + CommentFont.Height = -11 + CommentFont.Name = 'Tahoma' + CommentFont.Style = [] + SymbolFont.Charset = DEFAULT_CHARSET + SymbolFont.Color = clHighlightText + SymbolFont.Height = -35 + SymbolFont.Name = 'Wingdings' + SymbolFont.Style = [fsBold] + Captions.Strings = ( + 'Cambiar la situaci'#243'n del pedido') + Comments.Strings = ( + + 'Indique la nueva situaci'#243'n del pedido o pulse en '#39'Cancelar'#39' para' + + ' no hacer ning'#250'n cambio.') + Gradient.FromColor = clHighlight + Gradient.ToColor = clWindow + Gradient.Active = True + Gradient.Orientation = fgdVertical + BufferedDraw = False + ExplicitWidth = 491 + end + object Label4: TLabel + Left = 56 + Top = 96 + Width = 107 + Height = 13 + Caption = 'Fecha del pedido: ' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 56 + Top = 196 + Width = 198 + Height = 13 + Caption = 'El pedido fue recibido parcialmente el d'#237'a:' + end + object Label1: TLabel + Left = 55 + Top = 252 + Width = 187 + Height = 13 + Caption = 'El pedido fue recibido totalmente el d'#237'a:' + end + object pnlSeleccion: TPanel + Left = 0 + Top = 308 + Width = 434 + Height = 40 + Align = alBottom + BevelEdges = [beTop] + BevelKind = bkTile + BevelOuter = bvNone + TabOrder = 0 + DesignSize = ( + 434 + 38) + object bAceptar: TButton + Left = 272 + Top = 2 + Width = 74 + Height = 23 + Action = actAceptar + Anchors = [akRight] + Default = True + TabOrder = 0 + end + object bCancelar: TButton + Left = 352 + Top = 1 + Width = 74 + Height = 23 + Anchors = [akRight] + Cancel = True + Caption = '&Cancelar' + ModalResult = 2 + TabOrder = 1 + end + end + object rbPendiente: TRadioButton + Left = 38 + Top = 139 + Width = 259 + Height = 17 + Action = actPendiente + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + object rbParcial: TRadioButton + Left = 38 + Top = 173 + Width = 323 + Height = 17 + Action = actParcial + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + end + object edtFechaPedidoProveedor: TEdit + Left = 272 + Top = 93 + Width = 121 + Height = 21 + ReadOnly = True + TabOrder = 3 + end + object edtFechaParcial: TcxDateEdit + Left = 272 + Top = 193 + Properties.SaveTime = False + Properties.ShowTime = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 4 + Width = 121 + end + object rbRecibido: TRadioButton + Left = 37 + Top = 229 + Width = 323 + Height = 17 + Action = actRecibido + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + end + object eFechaRecibido: TcxDateEdit + Left = 272 + Top = 249 + Properties.SaveTime = False + Properties.ShowTime = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 6 + Width = 121 + end + object ActionList1: TActionList + Left = 8 + Top = 88 + object actPendiente: TAction + Caption = 'El pedido est'#225' pendiente de recepci'#243'n' + OnExecute = actPendienteExecute + end + object actParcial: TAction + Caption = 'El pedido est'#225' recibido parcialmente' + OnExecute = actParcialExecute + end + object actRecibido: TAction + Caption = 'El pedido est'#225' totalmente recibido' + OnExecute = actRecibidoExecute + end + object actAceptar: TAction + Caption = '&Aceptar' + OnExecute = actAceptarExecute + end + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.pas new file mode 100644 index 00000000..e1b7946f --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorSituacionPedidoProveedor.pas @@ -0,0 +1,147 @@ +unit uEditorSituacionPedidoProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, + uIEditorSituacionPedidoProveedor, uPedidosProveedorController, uBizPedidosProveedor, + JvExControls, JvComponent, JvgWizardHeader, cxControls, cxContainer, cxEdit, + cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxDBEdit, ActnList; + +type + TfEditorSituacionPedidoProveedor = class(TForm, IEditorSituacionPedidoProveedor) + pnlSeleccion: TPanel; + bAceptar: TButton; + bCancelar: TButton; + JvgWizardHeader1: TJvgWizardHeader; + rbPendiente: TRadioButton; + rbParcial: TRadioButton; + ActionList1: TActionList; + actPendiente: TAction; + actParcial: TAction; + actAceptar: TAction; + Label4: TLabel; + edtFechaPedidoProveedor: TEdit; + Label3: TLabel; + edtFechaParcial: TcxDateEdit; + rbRecibido: TRadioButton; + Label1: TLabel; + eFechaRecibido: TcxDateEdit; + actRecibido: TAction; + procedure actPendienteExecute(Sender: TObject); + procedure actParcialExecute(Sender: TObject); + procedure actRecibidoExecute(Sender: TObject); + procedure actRechazadoExecute(Sender: TObject); + procedure actAceptarExecute(Sender: TObject); + + private + FController: IPedidosProveedorController; + FPedidoProveedor: IBizPedidoProveedor; + function GetController : IPedidosProveedorController; + procedure SetController (const Value : IPedidosProveedorController); + + function GetPedidoProveedor: IBizPedidoProveedor; + procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); + procedure RefrescarEstado; + public + property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor; + property Controller : IPedidosProveedorController read GetController + write SetController; + end; + +implementation + +{$R *.dfm} + +uses + uDateUtils, DateUtils; + +{ TfEditorSituacionPedido } + +procedure TfEditorSituacionPedidoProveedor.actParcialExecute(Sender: TObject); +begin + RefrescarEstado; +end; + +procedure TfEditorSituacionPedidoProveedor.actAceptarExecute(Sender: TObject); +begin + if rbPendiente.Checked then + FController.CambiarSituacion(FPedidoProveedor, SITUACION_PEDIDO_PENDIENTE); + + if rbParcial.Checked then + FController.CambiarSituacion(FPedidoProveedor, SITUACION_PEDIDO_PARCIAL, edtFechaParcial.Date); + + if rbRecibido.Checked then + FController.CambiarSituacion(FPedidoProveedor, SITUACION_PEDIDO_RECIBIDO, eFechaRecibido.Date); + + ModalResult := mrOk; + Close; +end; + +procedure TfEditorSituacionPedidoProveedor.actPendienteExecute(Sender: TObject); +begin + RefrescarEstado; +end; + +procedure TfEditorSituacionPedidoProveedor.actRechazadoExecute(Sender: TObject); +begin + RefrescarEstado; +end; + +procedure TfEditorSituacionPedidoProveedor.actRecibidoExecute(Sender: TObject); +begin + RefrescarEstado; +end; + +function TfEditorSituacionPedidoProveedor.GetController: IPedidosProveedorController; +begin + Result := FController; +end; + +function TfEditorSituacionPedidoProveedor.GetPedidoProveedor: IBizPedidoProveedor; +begin + Result := FPedidoProveedor; +end; + +procedure TfEditorSituacionPedidoProveedor.SetController( + const Value: IPedidosProveedorController); +begin + FController := Value; +end; + +procedure TfEditorSituacionPedidoProveedor.SetPedidoProveedor(const Value: IBizPedidoProveedor); +begin + FPedidoProveedor := Value; + if not FPedidoProveedor.DataTable.Active then + FPedidoProveedor.DataTable.Open; + + edtFechaPedidoProveedor.Text := DateToStr(FPedidoProveedor.FECHA_PEDIDO); + + rbPendiente.Checked := (FPedidoProveedor.Situacion = SITUACION_PEDIDO_PENDIENTE); + rbParcial.Checked := (FPedidoProveedor.Situacion = SITUACION_PEDIDO_PARCIAL); + rbRecibido.Checked := (FPedidoProveedor.Situacion = SITUACION_PEDIDO_RECIBIDO); + + if rbParcial.Checked then + begin + edtFechaParcial.Date := FPedidoProveedor.FECHA_ENTREGA; + eFechaRecibido.Clear; + end + else if rbRecibido.Checked then + begin + eFechaRecibido.Date := FPedidoProveedor.FECHA_ENTREGA; + edtFechaParcial.Clear; + end + else + begin + edtFechaParcial.Clear; + eFechaRecibido.Clear; + end; +end; + +procedure TfEditorSituacionPedidoProveedor.RefrescarEstado; +begin + // +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uPedidosProveedorViewRegister.dcu b/Source/Modulos/Pedidos a proveedor/Views/uPedidosProveedorViewRegister.dcu new file mode 100644 index 00000000..7c280d0c Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uPedidosProveedorViewRegister.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uPedidosProveedorViewRegister.pas b/Source/Modulos/Pedidos a proveedor/Views/uPedidosProveedorViewRegister.pas new file mode 100644 index 00000000..6307afb7 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uPedidosProveedorViewRegister.pas @@ -0,0 +1,39 @@ +unit uPedidosProveedorViewRegister; + +interface + +procedure RegisterViews; +procedure UnregisterViews; + +implementation + +uses + uEditorRegistryUtils, uEditorPedidosProveedor, uEditorPedidoProveedor, + uEditorPedidosProveedorReport, uEditorElegirPedidosProveedor, + uEditorElegirArticulosPedidoProveedor, uEditorDireccionEntregaPedidoProveedor, + uEditorSituacionPedidoProveedor; + +procedure RegisterViews; +begin + EditorRegistry.RegisterClass(TfEditorDireccionEntregaPedidoProveedor, 'EditorDireccionEntregaPedidoProveedor'); + EditorRegistry.RegisterClass(TfEditorPedidosProveedor, 'EditorPedidosProveedor'); + EditorRegistry.RegisterClass(TfEditorPedidoProveedor, 'EditorPedidoProveedor'); + EditorRegistry.RegisterClass(TfEditorElegirPedidosProveedor, 'EditorElegirPedidosProveedor'); + EditorRegistry.RegisterClass(TfEditorElegirArticulosPedidoProveedor, 'EditorElegirArticulosPedidoProveedor'); + EditorRegistry.RegisterClass(TfEditorPedidosProveedorPreview, 'EditorPedidosProveedorPreview'); + EditorRegistry.RegisterClass(TfEditorSituacionPedidoProveedor, 'EditorSituacionPedidoProveedor'); +end; + +procedure UnregisterViews; +begin + EditorRegistry.UnRegisterClass(TfEditorDireccionEntregaPedidoProveedor); + EditorRegistry.UnRegisterClass(TfEditorPedidosProveedor); + EditorRegistry.UnRegisterClass(TfEditorPedidoProveedor); + EditorRegistry.UnRegisterClass(TfEditorElegirPedidosProveedor); + EditorRegistry.UnRegisterClass(TfEditorElegirArticulosPedidoProveedor); + EditorRegistry.UnRegisterClass(TfEditorPedidosProveedorPreview); + EditorRegistry.UnRegisterClass(TfEditorSituacionPedidoProveedor); +end; + +end. + diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dcu new file mode 100644 index 00000000..547cf7dc Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm new file mode 100644 index 00000000..8e5b982b --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm @@ -0,0 +1,9 @@ +inherited frViewDetallesPedidoProveedor: TfrViewDetallesPedidoProveedor + inherited cxGrid: TcxGrid + inherited cxGridView: TcxGridDBTableView + inherited cxGridViewIMPORTENETO: TcxGridDBColumn + Properties.ReadOnly = False + end + end + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.pas new file mode 100644 index 00000000..35ab2898 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.pas @@ -0,0 +1,73 @@ +unit uViewDetallesPedidoProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewDetallesArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter, + cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, PngImageList, + uDADataTable, ActnList, ComCtrls, ToolWin, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit, + Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns, + JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar, + uControllerDetallesArticulos, uBizPedidosProveedor, uDAInterfaces; + +type + IViewDetallesPedidoProveedor = interface(IViewDetallesArticulos) + ['{4C82AADF-7FE2-47BC-88F1-2F2DA6DF0B57}'] + function GetPedido: IBizPedidoProveedor; + procedure SetPedido(const Value: IBizPedidoProveedor); + property Pedido: IBizPedidoProveedor read GetPedido write SetPedido; + end; + + TfrViewDetallesPedidoProveedor = class(TfrViewDetallesArticulos, IViewDetallesPedidoProveedor) + procedure CustomViewDestroy(Sender: TObject); + protected + FPedido: IBizPedidoProveedor; + function GetPedido: IBizPedidoProveedor; + procedure SetPedido(const Value: IBizPedidoProveedor); + + procedure AnadirArticulosInterno; override; + function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; override; + + public + property Pedido: IBizPedidoProveedor read GetPedido write SetPedido; + end; + +implementation +{$R *.dfm} + +uses uDetallesPedidoProveedorController; + +{ TfrViewDetallesPedidoProveedor } + +procedure TfrViewDetallesPedidoProveedor.AnadirArticulosInterno; +begin + if Assigned(Pedido) and Assigned(Pedido.Proveedor) + then (Controller as IDetallesPedidoProveedorController).AnadirArticulos(Detalles, Pedido.Proveedor) + else (Controller as IDetallesPedidoProveedorController).AnadirArticulos(Detalles); +end; + +procedure TfrViewDetallesPedidoProveedor.CustomViewDestroy(Sender: TObject); +begin + FPedido := Nil; + inherited; +end; + +function TfrViewDetallesPedidoProveedor.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; +begin + Result := (Controller as IDetallesPedidoProveedorController).AnadirArticulo(Detalles, pReferencia, TipoReferencia); +end; + +function TfrViewDetallesPedidoProveedor.GetPedido: IBizPedidoProveedor; +begin + Result := FPedido; +end; + +procedure TfrViewDetallesPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor); +begin + FPedido := Value; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dcu b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dcu new file mode 100644 index 00000000..94069c36 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm new file mode 100644 index 00000000..d59bf99e --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm @@ -0,0 +1,153 @@ +inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv + Width = 586 + Height = 301 + ExplicitWidth = 586 + ExplicitHeight = 301 + object dxLayoutControl1: TdxLayoutControl + Left = 0 + Top = 0 + Width = 586 + Height = 301 + Align = alClient + ParentBackground = True + TabOrder = 0 + AutoContentSizes = [acsWidth, acsHeight] + DesignSize = ( + 586 + 301) + object rdxDestino1: TRadioButton + Left = 10 + Top = 10 + Width = 255 + Height = 17 + Action = actLista + TabOrder = 0 + TabStop = True + end + object rdxDestino2: TRadioButton + Left = 10 + Top = 60 + Width = 287 + Height = 17 + Action = actOtro + TabOrder = 2 + end + object cbLista: TcxDBLookupComboBox + Left = 25 + Top = 33 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'ID_ALMACEN' + DataBinding.DataSource = dsPedido + Properties.DropDownListStyle = lsFixedList + Properties.GridMode = True + Properties.ImmediatePost = True + Properties.KeyFieldNames = 'ID' + Properties.ListColumns = < + item + FieldName = 'NOMBRE' + end> + Properties.ListOptions.AnsiSort = True + Properties.ListOptions.GridLines = glNone + Properties.ListOptions.ShowHeader = False + Properties.ListSource = dsAlmacenes + Properties.PostPopupValueOnTab = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Width = 425 + end + object bModificar: TBitBtn + Left = 448 + Top = 266 + Width = 128 + Height = 25 + Caption = 'Modificar la direcci'#243'n...' + TabOrder = 4 + OnClick = bModificarClick + end + object txtDireccion: TStaticText + Left = 25 + Top = 83 + Width = 551 + Height = 177 + AutoSize = False + BevelKind = bkFlat + TabOrder = 3 + OnDblClick = txtDireccionDblClick + end + object dxLayoutGroup1: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutItem1: TdxLayoutItem + Caption = 'New Item' + ShowCaption = False + Control = rdxDestino1 + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item3: TdxLayoutItem + Caption = 'New Item' + Offsets.Left = 15 + ShowCaption = False + Control = cbLista + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item2: TdxLayoutItem + Caption = 'New Item' + ShowCaption = False + Control = rdxDestino2 + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item5: TdxLayoutItem + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'StaticText1' + Offsets.Left = 15 + ShowCaption = False + Control = txtDireccion + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item1: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + Offsets.Left = 15 + ShowCaption = False + Control = bModificar + ControlOptions.ShowBorder = False + end + end + end + object ActionList1: TActionList + Left = 80 + Top = 16 + object actLista: TAction + Caption = 'Recibir el pedido en el almac'#233'n:' + Checked = True + GroupIndex = 1 + OnExecute = actListaExecute + end + object actOtro: TAction + Caption = 'Recibir el pedido en esta otra direcci'#243'n:' + GroupIndex = 1 + OnExecute = actOtroExecute + end + end + object dsPedido: TDADataSource + Left = 40 + Top = 8 + end + object dsAlmacenes: TDADataSource + Left = 8 + Top = 40 + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas new file mode 100644 index 00000000..10b0846e --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas @@ -0,0 +1,209 @@ +unit uViewDireccionEntregaPedidoProv; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewBase, uBizPedidosProveedor, cxGraphics, dxLayoutControl, cxMemo, + cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, + cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable, + ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController, + Buttons, uDAInterfaces; + +type + IViewDireccionEntregaPedidoProv = interface(IViewBase) + ['{7467855C-066F-4A60-B88F-2837C8050B1E}'] + function GetPedidoProveedor: IBizPedidoProveedor; + procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); + property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor; + end; + + TfrViewDireccionEntregaPedidoProv = class(TfrViewBase, IViewDireccionEntregaPedidoProv) + dxLayoutControl1: TdxLayoutControl; + rdxDestino1: TRadioButton; + rdxDestino2: TRadioButton; + cbLista: TcxDBLookupComboBox; + dxLayoutGroup1: TdxLayoutGroup; + dxLayoutItem1: TdxLayoutItem; + dxLayoutControl1Item3: TdxLayoutItem; + dxLayoutControl1Item2: TdxLayoutItem; + ActionList1: TActionList; + actLista: TAction; + actOtro: TAction; + dsPedido: TDADataSource; + dsAlmacenes: TDADataSource; + dxLayoutControl1Item1: TdxLayoutItem; + bModificar: TBitBtn; + txtDireccion: TStaticText; + dxLayoutControl1Item5: TdxLayoutItem; + procedure actListaExecute(Sender: TObject); + procedure actOtroExecute(Sender: TObject); + procedure cbListaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + procedure bModificarClick(Sender: TObject); + procedure txtDireccionDblClick(Sender: TObject); + protected + FAlmacenesController : IAlmacenesController; + FAlmacenes: IBizAlmacen; + FPedido : IBizPedidoProveedor; + FController : IPedidosProveedorController; + function GetPedidoProveedor: IBizPedidoProveedor; + procedure SetPedidoProveedor(const Value: IBizPedidoProveedor); + procedure CambioDireccionAlmacen; + procedure RefrescarDireccion; + procedure SetReadOnly(Value: Boolean); override; + + public + property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor; + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +{$R *.dfm} + +uses + uEditorRegistryUtils, uCustomView; + +procedure TfrViewDireccionEntregaPedidoProv.actListaExecute(Sender: TObject); +begin + actLista.Checked := True; + RefrescarDireccion; +end; + +procedure TfrViewDireccionEntregaPedidoProv.actOtroExecute(Sender: TObject); +begin + actOtro.Checked := True; +// txtDireccion.Enabled := True; + + if Assigned(FPedido) then + begin + FController.VerDireccionEntrega(FPedido); + + if (FPedido.ID_ALMACEN > 0) then + begin + FPedido.Edit; + FPedido.ID_ALMACEN := 0; + end; + end; + RefrescarDireccion; +end; + +procedure TfrViewDireccionEntregaPedidoProv.bModificarClick(Sender: TObject); +begin + inherited; + actOtro.Execute; +end; + +procedure TfrViewDireccionEntregaPedidoProv.CambioDireccionAlmacen; +begin + if Assigned(FPedido) + and Assigned(FAlmacenes) then + begin + FPedido.Edit; + FPedido.CALLE := FAlmacenes.CALLE; + FPedido.POBLACION := FAlmacenes.POBLACION; + FPedido.POBLACION := FAlmacenes.POBLACION; + FPedido.PROVINCIA := FAlmacenes.PROVINCIA; + FPedido.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL; + FPedido.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO; + FPedido.TELEFONO := FAlmacenes.TELEFONO; + RefrescarDireccion; + end; +end; + +procedure TfrViewDireccionEntregaPedidoProv.cbListaPropertiesValidate( + Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; + var Error: Boolean); +begin + if Assigned(FPedido) and Assigned(FAlmacenes) + and (FPedido.ID_ALMACEN <> FAlmacenes.ID) then + CambioDireccionAlmacen; +end; + +constructor TfrViewDireccionEntregaPedidoProv.Create(AOwner: TComponent); +begin + inherited; + FController := TPedidosProveedorController.Create; + FAlmacenesController := TAlmacenesController.Create; + FAlmacenes := FAlmacenesController.BuscarTodos; + FAlmacenes.DataTable.Active := True; + dsAlmacenes.DataTable := FAlmacenes.DataTable; +end; + +destructor TfrViewDireccionEntregaPedidoProv.Destroy; +begin + cbLista.Properties.OnValidate := Nil; + FAlmacenesController := Nil; + FAlmacenes := Nil; + FController := NIL; + inherited; +end; + +function TfrViewDireccionEntregaPedidoProv.GetPedidoProveedor: IBizPedidoProveedor; +begin + Result := FPedido; +end; + +procedure TfrViewDireccionEntregaPedidoProv.RefrescarDireccion; +begin + txtDireccion.Caption := ''; + if Assigned(FPedido) then + begin + if (actOtro.Checked) then + begin + cbLista.Enabled := False; + cbLista.Text := ''; + txtDireccion.Enabled := True; + txtDireccion.Caption := FPedido.CALLE; + txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.CODIGO_POSTAL + ' ' + FPedido.POBLACION; + txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.PROVINCIA; + bModificar.Enabled := True; + end + else begin + txtDireccion.Enabled := False; + cbLista.Enabled := True; + cbLista.DroppedDown := True; + bModificar.Enabled := False; + end; + end; +end; + +procedure TfrViewDireccionEntregaPedidoProv.SetPedidoProveedor( + const Value: IBizPedidoProveedor); +begin + cbLista.Properties.OnValidate := NIL; + dsPedido.DataTable := nil; + + FPedido := Value; + + dsPedido.DataTable := FPedido.DataTable; + cbLista.Properties.OnValidate := cbListaPropertiesValidate; + + if (FPedido.EsNuevo) then + CambioDireccionAlmacen + else + if (FPedido.ID_ALMACEN < 1) then + actOtro.Checked := True; + + RefrescarDireccion; +end; + +procedure TfrViewDireccionEntregaPedidoProv.SetReadOnly(Value: Boolean); +begin + inherited; + if ReadOnly then + begin + rdxDestino1.Enabled := False; + rdxDestino2.Enabled := False; + end; +end; + +procedure TfrViewDireccionEntregaPedidoProv.txtDireccionDblClick( + Sender: TObject); +begin + inherited; + actOtro.Execute; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.dcu new file mode 100644 index 00000000..cb64b640 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.dfm new file mode 100644 index 00000000..3e19a578 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.dfm @@ -0,0 +1,77 @@ +inherited frViewElegirArticulosPedidosProveedor: TfrViewElegirArticulosPedidosProveedor + Width = 565 + Height = 407 + OnDestroy = CustomViewDestroy + ExplicitWidth = 565 + ExplicitHeight = 407 + inherited cxGrid: TcxGrid + Width = 565 + Height = 279 + RootLevelOptions.DetailTabsPosition = dtpTop + OnActiveTabChanged = cxGridActiveTabChanged + ExplicitWidth = 565 + ExplicitHeight = 279 + inherited cxGridView: TcxGridDBTableView + object cxGridViewID_PROVEEDOR: TcxGridDBColumn + DataBinding.FieldName = 'ID_PROVEEDOR' + Visible = False + end + end + object cxGridLevel1: TcxGridLevel + Caption = 'Otros proveedores' + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 565 + ExplicitWidth = 565 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 565 + inherited dxLayoutControl1: TdxLayoutControl + Width = 565 + ExplicitWidth = 565 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end + inherited edtFechaFinFiltro: TcxDateEdit + ExplicitWidth = 205 + Width = 205 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 565 + inherited tbxBotones: TTBXToolbar + Width = 555 + end + end + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 381 + ExplicitTop = 381 + ExplicitWidth = 565 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 565 + ExplicitWidth = 565 + inherited TBXToolbar1: TTBXToolbar + Width = 555 + ExplicitWidth = 555 + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 39252.446797407400000000 + BuiltInReportLink = True + end + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.pas new file mode 100644 index 00000000..5b1316a3 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewElegirArticulosPedidosProveedor.pas @@ -0,0 +1,107 @@ +unit uViewElegirArticulosPedidosProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxCurrencyEdit, + cxSpinEdit, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, + dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, ImgList, PngImageList, + cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGridLnk, + uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, + ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, + uBizContactos; + +type + IViewElegirArticulosPedidosProveedor = interface(IViewArticulos) + ['{5292A518-0797-4FFC-AC9B-90F0113AF3AF}'] + function GetProveedor: IBizProveedor; + procedure SetProveedor(const Value: IBizProveedor); + property Proveedor: IBizProveedor read GetProveedor write SetProveedor; + end; + + TfrViewElegirArticulosPedidosProveedor = class(TfrViewArticulos, IViewElegirArticulosPedidosProveedor) + cxGridLevel1: TcxGridLevel; + cxGridViewID_PROVEEDOR: TcxGridDBColumn; + + procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); + procedure CustomViewDestroy(Sender: TObject); + + private + FProveedor: IBizProveedor; + function GetProveedor: IBizProveedor; + procedure SetProveedor(const Value: IBizProveedor); + + //Filtros relativos a la vista + procedure AnadirFiltroProveedor; + + public + property Proveedor: IBizProveedor read GetProveedor write SetProveedor; + procedure AnadirOtrosFiltros; override; + + end; + +implementation + +uses uViewGrid; + +{$R *.dfm} + +procedure TfrViewElegirArticulosPedidosProveedor.AnadirFiltroProveedor; +var + FFiltro : TcxFilterCriteriaItemList; +begin + FFiltro := AddFilterGrid(fboAnd); + + case cxGrid.ActiveLevel.Index of + 0 : if Assigned(FProveedor) then + FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, FProveedor.ID, FProveedor.NOMBRE); + 1 : if Assigned(FProveedor) then + FFiltro.AddItem(cxGridViewID_PROVEEDOR, foNotEqual, FProveedor.ID, FProveedor.NOMBRE); + end; +end; + +procedure TfrViewElegirArticulosPedidosProveedor.AnadirOtrosFiltros; +begin + inherited; + + AnadirFiltroProveedor; + + //Finalmente activamos el filtro si tenemos algo + if cxGridView.DataController.Filter.IsEmpty + then cxGridView.DataController.Filter.Active := False + else cxGridView.DataController.Filter.Active := True; + cxGrid.ActiveLevel.GridView := cxGridView; +end; + +procedure TfrViewElegirArticulosPedidosProveedor.CustomViewDestroy(Sender: TObject); +begin + FProveedor := Nil; + inherited; +end; + +procedure TfrViewElegirArticulosPedidosProveedor.cxGridActiveTabChanged( + Sender: TcxCustomGrid; ALevel: TcxGridLevel); +begin + inherited; + RefrescarFiltro; +end; + +function TfrViewElegirArticulosPedidosProveedor.GetProveedor: IBizProveedor; +begin + Result := FProveedor; +end; + +procedure TfrViewElegirArticulosPedidosProveedor.SetProveedor(const Value: IBizProveedor); +begin + FProveedor := Value; + if Assigned(FProveedor) then + begin + cxGridLevel.Caption := FProveedor.NOMBRE; + RefrescarFiltro; + end; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dcu new file mode 100644 index 00000000..de6edfc7 Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm new file mode 100644 index 00000000..df207353 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm @@ -0,0 +1,474 @@ +inherited frViewPedidoProveedor: TfrViewPedidoProveedor + Width = 704 + Height = 467 + OnCreate = CustomViewCreate + OnDestroy = CustomViewDestroy + ExplicitWidth = 704 + ExplicitHeight = 467 + object dxLayoutControl1: TdxLayoutControl + Left = 0 + Top = 0 + Width = 704 + Height = 467 + Align = alClient + ParentBackground = True + TabOrder = 0 + AutoContentSizes = [acsWidth, acsHeight] + DesignSize = ( + 704 + 467) + inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor + Left = 339 + Top = 28 + Width = 310 + Height = 215 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 10 + ReadOnly = False + ExplicitLeft = 339 + ExplicitTop = 28 + ExplicitWidth = 310 + ExplicitHeight = 215 + inherited dxLayoutControl1: TdxLayoutControl + Width = 310 + Height = 215 + Align = alClient + ExplicitWidth = 343 + ExplicitHeight = 215 + inherited edtlNombre: TcxDBTextEdit + ExplicitWidth = 185 + Width = 185 + end + inherited edtNIFCIF: TcxDBTextEdit + ExplicitWidth = 562 + Width = 562 + end + inherited edtCalle: TcxDBTextEdit + ExplicitWidth = 562 + Width = 562 + end + inherited edtPoblacion: TcxDBTextEdit + ExplicitWidth = 46 + Width = 46 + end + inherited edtProvincia: TcxDBTextEdit + ExplicitWidth = 327 + Width = 327 + end + inherited edtCodigoPostal: TcxDBTextEdit + Left = 262 + ExplicitLeft = 262 + ExplicitWidth = 71 + Width = 71 + end + inherited Button3: TBitBtn + Left = 135 + ExplicitLeft = 135 + end + end + end + object edtFechaPedido: TcxDBDateEdit + Left = 137 + Top = 55 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FECHA_PEDIDO' + DataBinding.DataSource = DADataSource + Properties.ImmediatePost = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.Shadow = False + Style.ButtonStyle = bts3D + Style.ButtonTransparency = ebtNone + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Width = 127 + end + object edtFechaConfirmacion: TcxDBDateEdit + Left = 137 + Top = 195 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FECHA_CONFIRMACION' + DataBinding.DataSource = DADataSource + Properties.ImmediatePost = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.Shadow = False + Style.ButtonStyle = bts3D + Style.ButtonTransparency = ebtNone + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 7 + Width = 63 + end + object edtFechaEntrega: TcxDBDateEdit + Left = 137 + Top = 222 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FECHA_ENTREGA' + DataBinding.DataSource = DADataSource + Properties.ImmediatePost = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 8 + Width = 55 + end + object memObservaciones: TcxDBMemo + Left = 339 + Top = 279 + Anchors = [akLeft, akTop, akRight, akBottom] + DataBinding.DataField = 'OBSERVACIONES' + DataBinding.DataSource = DADataSource + Properties.ScrollBars = ssVertical + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 11 + Height = 133 + Width = 530 + end + object eReferencia: TcxDBTextEdit + Left = 137 + Top = 28 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REFERENCIA' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Width = 143 + end + inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv + Left = 22 + Top = 279 + Width = 445 + Height = 166 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 9 + ReadOnly = False + ExplicitLeft = 22 + ExplicitTop = 279 + ExplicitWidth = 445 + ExplicitHeight = 166 + inherited dxLayoutControl1: TdxLayoutControl + Width = 445 + Height = 166 + ExplicitWidth = 287 + ExplicitHeight = 166 + inherited rdxDestino1: TRadioButton + Width = 255 + ExplicitWidth = 255 + end + inherited rdxDestino2: TRadioButton + Width = 287 + ExplicitWidth = 287 + end + inherited cbLista: TcxDBLookupComboBox + ExplicitWidth = 112 + Width = 112 + end + inherited bModificar: TBitBtn + Left = 149 + Top = 131 + ExplicitLeft = 149 + ExplicitTop = 131 + end + end + inherited ActionList1: TActionList + Left = 32 + Top = 0 + end + inherited dsPedido: TDADataSource + Left = 0 + Top = 0 + end + end + object cbFormaPago: TcxDBLookupComboBox + Left = 137 + Top = 82 + DataBinding.DataField = 'ID_FORMA_PAGO' + DataBinding.DataSource = DADataSource + Properties.KeyFieldNames = 'ID' + Properties.ListColumns = < + item + FieldName = 'REFERENCIA' + end> + Properties.ListOptions.GridLines = glNone + Properties.ListOptions.ShowHeader = False + Properties.ListSource = dsFormaPago + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 2 + Width = 32 + end + object bFormasPago: TButton + Left = 177 + Top = 82 + Width = 132 + Height = 21 + Caption = 'Ver las formas de pago...' + TabOrder = 3 + OnClick = bFormasPagoClick + end + object edtFechaEnvio: TcxDBDateEdit + Left = 137 + Top = 168 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FECHA_ENVIO' + DataBinding.DataSource = DADataSource + Properties.ImmediatePost = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.Shadow = False + Style.ButtonStyle = bts3D + Style.ButtonTransparency = ebtNone + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 6 + Width = 195 + end + object eReferenciaPedidoCli: TcxTextEdit + Left = 137 + Top = 109 + Anchors = [akLeft, akTop, akRight] + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clWindow + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 4 + Width = 78 + end + object Button1: TButton + Left = 177 + Top = 109 + Width = 132 + Height = 23 + Action = actVerPedidoCli + TabOrder = 5 + end + object dxLayoutControl1Group_Root: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Group6: TdxLayoutGroup + AutoAligns = [aaVertical] + AlignHorz = ahClient + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group1: TdxLayoutGroup + AutoAligns = [] + AlignHorz = ahClient + Caption = 'Datos del pedido' + object dxLayoutControl1Item3: TdxLayoutItem + Caption = 'Referencia:' + Control = eReferencia + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item2: TdxLayoutItem + Caption = 'Fecha del pedido:' + Control = edtFechaPedido + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Group4: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group9: TdxLayoutGroup + ShowCaption = False + Visible = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item9: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Forma de pago' + Control = cbFormaPago + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item10: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + ShowCaption = False + Control = bFormasPago + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group10: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item11: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Ref. pedido cliente:' + Control = eReferenciaPedidoCli + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item12: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + ShowCaption = False + Control = Button1 + ControlOptions.ShowBorder = False + end + end + end + end + object dxLayoutControl1Group5: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'Situaci'#243'n del pedido' + object dxLayoutControl1Item7: TdxLayoutItem + Caption = 'Enviado al prov. el d'#237'a:' + Control = edtFechaEnvio + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item4: TdxLayoutItem + Caption = 'Confirmado el d'#237'a:' + Control = edtFechaConfirmacion + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item5: TdxLayoutItem + Caption = 'Entrega prevista:' + Control = edtFechaEntrega + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group8: TdxLayoutGroup + AutoAligns = [] + AlignHorz = ahClient + AlignVert = avClient + Caption = 'Direcci'#243'n de entrega' + object dxLayoutControl1Item8: TdxLayoutItem + AutoAligns = [aaHorizontal] + AlignVert = avClient + Control = frViewDireccionEntregaPedidoProv1 + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + end + end + object dxLayoutControl1Group3: TdxLayoutGroup + AutoAligns = [aaVertical] + AlignHorz = ahClient + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group2: TdxLayoutGroup + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Datos del proveedor' + object dxLayoutControl1Item1: TdxLayoutItem + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'frViewDatosYSeleccionProveedor1' + ShowCaption = False + Control = frViewProveedorPedido + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group7: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'Observaciones' + object dxLayoutControl1Item6: TdxLayoutItem + AutoAligns = [aaHorizontal] + AlignVert = avClient + Control = memObservaciones + ControlOptions.ShowBorder = False + end + end + end + end + end + object DADataSource: TDADataSource + Left = 24 + Top = 40 + end + object dsFormaPago: TDADataSource + Left = 56 + Top = 8 + end + object ActionList1: TActionList + Left = 24 + Top = 72 + object actVerPedidoCli: TAction + Caption = 'Ver pedido de cliente...' + OnExecute = actVerPedidoCliExecute + OnUpdate = actVerPedidoCliUpdate + end + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas new file mode 100644 index 00000000..5d1d4e86 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas @@ -0,0 +1,214 @@ +unit uViewPedidoProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewBase, uBizPedidosProveedor, DB, uDADataTable, uCustomView, + AppEvnts, StdCtrls, Mask, DBCtrls, + + uViewObservaciones, uViewDatosYSeleccionProveedor, + cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit, + cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, + uViewDireccionEntregaPedidoProv, cxLookupEdit, cxDBLookupEdit, +// uBizPedidosCliente, uPedidosClienteController, + cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces; + +type + IViewPedidoProveedor = interface(IViewBase) + ['{C5385699-C1A4-4AEB-B3D0-EE3BDB322FE2}'] + function GetPedido: IBizPedidoProveedor; + procedure SetPedido(const Value: IBizPedidoProveedor); + property Pedido: IBizPedidoProveedor read GetPedido write SetPedido; + + function GetViewProveedorPedido: TfrViewDatosYSeleccionProveedor; + procedure SetViewProveedorPedido(const Value: TfrViewDatosYSeleccionProveedor); + property ViewProveedorPedido: TfrViewDatosYSeleccionProveedor read GetViewProveedorPedido write SetViewProveedorPedido; + end; + + TfrViewPedidoProveedor = class(TfrViewBase, IViewPedidoProveedor) + DADataSource: TDADataSource; + frViewProveedorPedido: TfrViewDatosYSeleccionProveedor; + dxLayoutControl1Group_Root: TdxLayoutGroup; + dxLayoutControl1: TdxLayoutControl; + dxLayoutControl1Item1: TdxLayoutItem; + dxLayoutControl1Item2: TdxLayoutItem; + edtFechaPedido: TcxDBDateEdit; + dxLayoutControl1Item4: TdxLayoutItem; + edtFechaConfirmacion: TcxDBDateEdit; + dxLayoutControl1Item5: TdxLayoutItem; + edtFechaEntrega: TcxDBDateEdit; + dxLayoutControl1Group1: TdxLayoutGroup; + dxLayoutControl1Group2: TdxLayoutGroup; + dxLayoutControl1Item6: TdxLayoutItem; + memObservaciones: TcxDBMemo; + dxLayoutControl1Item3: TdxLayoutItem; + eReferencia: TcxDBTextEdit; + dxLayoutControl1Group5: TdxLayoutGroup; + dxLayoutControl1Group6: TdxLayoutGroup; + dxLayoutControl1Group7: TdxLayoutGroup; + dxLayoutControl1Group8: TdxLayoutGroup; + dxLayoutControl1Group3: TdxLayoutGroup; + dxLayoutControl1Item8: TdxLayoutItem; + frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv; + dxLayoutControl1Item9: TdxLayoutItem; + cbFormaPago: TcxDBLookupComboBox; + dxLayoutControl1Item10: TdxLayoutItem; + bFormasPago: TButton; + dxLayoutControl1Group4: TdxLayoutGroup; + dsFormaPago: TDADataSource; + dxLayoutControl1Item7: TdxLayoutItem; + edtFechaEnvio: TcxDBDateEdit; + dxLayoutControl1Item11: TdxLayoutItem; + eReferenciaPedidoCli: TcxTextEdit; + dxLayoutControl1Item12: TdxLayoutItem; + Button1: TButton; + dxLayoutControl1Group9: TdxLayoutGroup; + dxLayoutControl1Group10: TdxLayoutGroup; + ActionList1: TActionList; + actVerPedidoCli: TAction; + procedure CustomViewCreate(Sender: TObject); + procedure CustomViewDestroy(Sender: TObject); + procedure bFormasPagoClick(Sender: TObject); + procedure actVerPedidoCliExecute(Sender: TObject); + procedure actVerPedidoCliUpdate(Sender: TObject); + procedure frViewProveedorPedidoButton1Click(Sender: TObject); + procedure frViewProveedorPedidoButton2Click(Sender: TObject); + protected + FPedido : IBizPedidoProveedor; + FViewProveedorPedido : TfrViewDatosYSeleccionProveedor; + FFormasPagoController : IFormasPagoController; +// FPedidoCliAsociado : IBizPedidoCliente; +// FPedidoCliController : IPedidosClienteController; + + function GetPedido: IBizPedidoProveedor; + procedure SetPedido(const Value: IBizPedidoProveedor); virtual; + function GetViewProveedorPedido: TfrViewDatosYSeleccionProveedor; + procedure SetViewProveedorPedido(const Value: TfrViewDatosYSeleccionProveedor); + + public + property Pedido: IBizPedidoProveedor read GetPedido write SetPedido; + property ViewProveedorPedido: TfrViewDatosYSeleccionProveedor read GetViewProveedorPedido; + end; + +implementation + +{$R *.dfm} + +{ TfrViewPedidoProveedor } + +uses + uBizFormasPago; + + +procedure TfrViewPedidoProveedor.actVerPedidoCliExecute(Sender: TObject); +begin + inherited; +// FPedidoCliController.Ver(FPedidoCliAsociado); +end; + +procedure TfrViewPedidoProveedor.actVerPedidoCliUpdate(Sender: TObject); +begin + inherited; +// if (Sender as TAction).Enabled then +// (Sender as TAction).Enabled := Assigned(FPedidoCliAsociado) +end; + +procedure TfrViewPedidoProveedor.bFormasPagoClick(Sender: TObject); +begin + inherited; + FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); +end; + +procedure TfrViewPedidoProveedor.CustomViewCreate(Sender: TObject); +begin + inherited; + FFormasPagoController := TFormasPagoController.Create; + FViewProveedorPedido := frViewProveedorPedido; + FViewProveedorPedido.MsgElegirProveedor := 'Elija el proveedor al que se le realizará el pedido.'; + eReferencia.Enabled := False; +// eReferenciaPedidoCli.Enabled := False; +// FPedidoCliAsociado := NIL; +// FPedidoCliController := TPedidosClienteController.Create; +end; + +procedure TfrViewPedidoProveedor.CustomViewDestroy(Sender: TObject); +begin + FViewProveedorPedido := Nil; + FFormasPagoController := NIL; + inherited; +end; + +procedure TfrViewPedidoProveedor.frViewProveedorPedidoButton1Click(Sender: TObject); +begin + if Assigned(Pedido) and Assigned(Pedido.Proveedor) and + Assigned (Pedido.Detalles) and (Pedido.Detalles.RecordCount > 0) then + begin + if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos del pedido actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then + Exit; + end; + frViewProveedorPedido.actElegirContacto.Execute; +end; + +procedure TfrViewPedidoProveedor.frViewProveedorPedidoButton2Click(Sender: TObject); +begin + if Assigned(Pedido) and Assigned(Pedido.Proveedor) and + Assigned (Pedido.Detalles) and (Pedido.Detalles.RecordCount > 0) then + begin + if (Application.MessageBox('Si cambia de proveedor, se eliminarán todos sus artículos del pedido actual, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then + Exit; + end; + frViewProveedorPedido.actAnadirContacto.Execute; +end; + +function TfrViewPedidoProveedor.GetPedido: IBizPedidoProveedor; +begin + Result := FPedido; +end; + +function TfrViewPedidoProveedor.GetViewProveedorPedido: TfrViewDatosYSeleccionProveedor; +begin + Result := FViewProveedorPedido; +end; + +procedure TfrViewPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor); +begin + FPedido := Value; + + if Assigned(FPedido) then + begin + DADataSource.DataTable := FPedido.DataTable; + dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable; + dsFormaPago.DataTable.Active := True; + +// FPedidoCliAsociado := NIL; +// if (FPedido.ID_PEDIDO_CLIENTE > 0) then +// begin +// FPedidoCliAsociado := FPedidoCliController.Buscar(FPedido.ID_PEDIDO_CLIENTE); +// if Assigned(FPedidoCliAsociado) then +// begin +// FPedidoCliAsociado.DataTable.Active := True; +// eReferenciaPedidoCli.Text := FPedidoCliAsociado.REFERENCIA +// end +// else +// eReferenciaPedidoCli.Text := ''; +// end +// else +// eReferenciaPedidoCli.Text := 'No hay pedido asociado'; + end + else begin + DADataSource.DataTable := NIL; + dsFormaPago.DataTable := NIL; +// FPedidoCliAsociado := NIL; + end; + + frViewProveedorPedido.Proveedor := FPedido.Proveedor; + frViewDireccionEntregaPedidoProv1.PedidoProveedor := FPedido; +end; + +procedure TfrViewPedidoProveedor.SetViewProveedorPedido(const Value: TfrViewDatosYSeleccionProveedor); +begin + FViewProveedorPedido := Value; +end; + +end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dcu b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dcu new file mode 100644 index 00000000..f564267e Binary files /dev/null and b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dcu differ diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm new file mode 100644 index 00000000..54308af9 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm @@ -0,0 +1,334 @@ +inherited frViewPedidosProveedor: TfrViewPedidosProveedor + Width = 596 + Height = 479 + ExplicitWidth = 596 + ExplicitHeight = 479 + inherited cxGrid: TcxGrid + Width = 596 + Height = 351 + RootLevelOptions.DetailTabsPosition = dtpTop + OnActiveTabChanged = cxGridActiveTabChanged + ExplicitWidth = 596 + ExplicitHeight = 351 + inherited cxGridView: TcxGridDBTableView + OnMouseMove = cxGridViewMouseMove + DataController.KeyFieldNames = 'ID' + DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = cxGridViewIMPORTE_TOTAL + end> + DataController.Summary.FooterSummaryItems = < + item + Format = '0 pedidos' + Kind = skCount + Column = cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewIMPORTE_TOTAL + end> + OptionsView.GroupFooters = gfAlwaysVisible + object cxGridViewCODIGO: TcxGridDBColumn + DataBinding.FieldName = 'ID' + Visible = False + IsCaptionAssigned = True + end + object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn + Caption = 'Incidencias' + DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS' + PropertiesClassName = 'TcxImageComboBoxProperties' + Properties.Images = PngImageList + Properties.Items = < + item + Description = 'Sin incidencias' + Value = 0 + end + item + Description = 'Con incidencias' + ImageIndex = 3 + Tag = 1 + Value = 1 + end> + Properties.LargeImages = PngImageList + Properties.ShowDescriptions = False + BestFitMaxWidth = 22 + MinWidth = 22 + Options.HorzSizing = False + Width = 22 + end + object cxGridViewREFERENCIA: TcxGridDBColumn + Caption = 'Referencia' + DataBinding.FieldName = 'REFERENCIA' + Width = 56 + end + object cxGridViewSITUACION: TcxGridDBColumn + DataBinding.FieldName = 'SITUACION' + Width = 56 + end + object cxGridViewFECHA_PEDIDO: TcxGridDBColumn + DataBinding.FieldName = 'FECHA_PEDIDO' + Width = 46 + end + object cxGridViewFECHA_ENVIO: TcxGridDBColumn + DataBinding.FieldName = 'FECHA_ENVIO' + Width = 57 + end + object cxGridViewNOMBRE: TcxGridDBColumn + Caption = 'Proveedor' + DataBinding.FieldName = 'NOMBRE' + Width = 58 + end + object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn + DataBinding.FieldName = 'FECHA_CONFIRMACION' + Width = 57 + end + object cxGridViewFECHA_ENTREGA: TcxGridDBColumn + DataBinding.FieldName = 'FECHA_ENTREGA' + Width = 47 + end + object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn + DataBinding.FieldName = 'NOMBRE_ALMACEN' + Width = 48 + end + object cxGridViewCALLE: TcxGridDBColumn + DataBinding.FieldName = 'CALLE' + Visible = False + end + object cxGridViewPOBLACION: TcxGridDBColumn + DataBinding.FieldName = 'POBLACION' + Visible = False + end + object cxGridViewPROVINCIA: TcxGridDBColumn + DataBinding.FieldName = 'PROVINCIA' + Visible = False + end + object cxGridViewCODIGO_POSTAL: TcxGridDBColumn + DataBinding.FieldName = 'CODIGO_POSTAL' + Visible = False + end + object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn + DataBinding.FieldName = 'PERSONA_CONTACTO' + Visible = False + end + object cxGridViewTELEFONO: TcxGridDBColumn + DataBinding.FieldName = 'TELEFONO' + Visible = False + end + object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn + Caption = 'Ref. pedido cli.' + DataBinding.FieldName = 'REF_PED_CLIENTE' + Width = 41 + end + object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn + Caption = 'Importe total' + DataBinding.FieldName = 'IMPORTE_TOTAL' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + Width = 94 + end + end + object cxGridDBTableView1: TcxGridDBTableView [1] + NavigatorButtons.ConfirmDelete = False + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + end + inherited cxGridLevel: TcxGridLevel + Caption = 'Todos' + end + object cxGridLevel1: TcxGridLevel + Caption = 'Pendientes' + end + object cxGridLevel2: TcxGridLevel + Caption = 'Parcialmente recibidos' + end + object cxGridLevel3: TcxGridLevel + Caption = 'Recibidos' + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 596 + ExplicitWidth = 596 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 596 + inherited dxLayoutControl1: TdxLayoutControl + Width = 596 + ExplicitWidth = 596 + inherited edtFechaFinFiltro: TcxDateEdit + Left = 251 + ExplicitLeft = 251 + ExplicitWidth = 294 + Width = 294 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 596 + ExplicitWidth = 596 + inherited tbxBotones: TTBXToolbar + Width = 586 + ExplicitWidth = 586 + end + end + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 453 + Visible = True + ExplicitTop = 453 + ExplicitWidth = 596 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 596 + ExplicitWidth = 596 + inherited TBXToolbar1: TTBXToolbar + Width = 586 + ExplicitWidth = 586 + object TBXSeparatorItem2: TTBXSeparatorItem + end + object TBXItem3: TTBXItem + Action = actProveedor + end + object TBXSeparatorItem1: TTBXSeparatorItem + end + object TBXItem2: TTBXItem + Action = actAlmacen + end + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 38673.741107951390000000 + BuiltInReportLink = True + end + end + inherited cxStyleRepository1: TcxStyleRepository + Left = 248 + object cxStylePendientes: TcxStyle + AssignedValues = [svTextColor] + TextColor = clGreen + end + object cxStyleParciales: TcxStyle + AssignedValues = [svTextColor] + TextColor = clBlue + end + object cxStyleRecibidos: TcxStyle + end + end + inherited cxViewGridPopupMenu: TcxGridPopupMenu + Left = 288 + end + inherited ActionList1: TActionList + Left = 392 + Top = 440 + object actProveedor: TAction + Caption = 'Proveedor' + OnExecute = actProveedorExecute + OnUpdate = actProveedorUpdate + end + object actAlmacen: TAction + Caption = 'Almac'#233'n' + OnExecute = actAlmacenExecute + OnUpdate = actAlmacenUpdate + end + end + inherited PngImageList10: TPngImageList + Left = 360 + Top = 440 + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end + object PngImageList: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000014B4944415478DA + 6364C007F47A8C9999FE9F6162FCCFF0FB2F9309C3A592B31CC61DFF7F9CAD60 + 0449F398B6FF67C4A79FD9A0FBFFDF0BA56035EC469DFF7F9E2B87AB0769FE72 + BA9211AF01AC865DFF7F9F2F03AB41B719A419C4C66B001BD0805F5003B84C3A + FE7F3B53C188AC59D0A20DBF17909DCD6DD2FEFFEB994A0CF5780D00052217DB + 9F338C0CFF19BEFE620507226906100118B327BDFCFFE7EF6F86BF7F20F80F8C + FEFB07C14762FFF9FD0B48FF82D2BF1918D3FB9FFCB734944631F5CFDF7F0CBF + 7EFF65F809C67FE0EC5F403688FEF1EB0F185F3AB2938131A5FBFE7F1B530592 + 35FFF8F597E1DAB16D0C8C89EDB7FEDB5BAA92AC1944DF3ABE858131B6F9EA7F + 675B2D923583F0BD139B1918A3EA2FFC77B2D32559F3AF3F7F191E9CD8C0C018 + 5673E6BF838D1EC99A41006C4070C5F1FF84A2EA3732FFF76F301B9E0EFEFFFF + 4F514202003F5091819E0016AB0000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000010E4944415478DA + 63648001BD9EFF0CC8E052092350CC18C83A031531018A9D05AB03C941F530A2 + 180093C026862E0FE5230B10B40D1B1BD546749BB16922CA0BF80C400384BC80 + 2986D300320163F0AC3BFFFFFEFECBF0E70F100369301BCA87B1FFFE81F2FFFC + 63F8FDEB0FC31F20FE0D9203D28C01536FFE6F705663F80033F20784FA00657F + 4016FB815003129F367B3503A3CFC46BFF4BDC3549D208634F9CB79C81D1A3E7 + F2FF4375E638FDD8B6EE2B8646984573672C6660746DBFF0FF68B3154E03CA96 + 7DC56A3B08CC98BD8081D1B1E9ECFF783B23BC4E45D7080353A6CE6160B4AD3B + F53FD8CA94248D303061C24C0646ABCAE3FF0945D59F5F7F816C3431200D4E07 + FFFFFF67A00400007E51EECD81D1728E0000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000F54944415478DA + 6364D0EBF9CF70A98411481B3330309C61800013A0D8591C6210F52000643322 + 19802281530C06A07CF20C4062936E00D5BC00058C24072286011402C6EC492F + FFFFF9FB9BE1EF1F08FE03A3FFFE41F091D87F7EFF02D2BFA0F46F06C6F4FE27 + FF2D0DA5514CFDF3F71FC3AFDF7F197E82F11F38FB17900DA27FFCFA03C6978E + EC64604CE9BEFFDFC6548164CD3F7EFD65B8766C1B036362FBADFF2B9B0DC8F2 + BF9C7D2303636CF3D5FF6BDB4DC93240CAAA868131AAFEC27F273B5DA29D0D63 + FFFAF397E1C1890D0C8C613567FE3BD8E891AC1904C00604571CFF4F28AA7E23 + F37FFF06B3E1E9E0FFFFFF1425240089FD645E7C3F344D0000000049454E44AE + 426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A0000027F4944415478DA + 95926D48535118C79FDB268AA54485D62C4C50962CDC87F5416D9AB966CEA440 + A4E84D828C304C89B217DB87D00F65252B69422F9A4161D6A0507C6D595A6450 + 83CC55787129CE19949B6DD3DDEDDE9D73BABB561835D3030FCF39E739FFDFF3 + C2A1608EF5A1467A415632783A589C100254B0A0EB5A623A9392DCD365B89DBE + FF3CBC5830C0DD9DD726922B34EFDAEB5B53F75972170470D4C8E461DB724D78 + 091139AC66F4FC5E9BA24007FDF3064C75E6DE7DE94BD8DBDC4A834615014B5D + BD8D6985E37BE6056074D2B544934357DCFA1CD2FBEA1B6C908742E96EAFBFFB + 7E5FE2A15A18FA2FC0F978B35E9CBAE94895EE2DB474D82053B918CA4BA2A1BF + D37823B3D879784E80BB36298ADA98368C97937043F3185CACA1E164F12AD89E + 1509132316E659BB39A14807B6A000E74365A5282D43EB67BFC020FD1D76159A + C0502785D8984580B8691830BEA9561F634EFC1340AAA4111E55C60817859611 + E4038EF34256FE6BE86C5A0F807D4010035F2DA3EE1EA32DEEA81EEC7F0126EF + 288E87A8D597389F8DC28280858ACB9FE06C690CBFF702E60DB153E463EF70C5 + D632EEDC1F00FA6A7CA824397D888B46AB671EF300CC826DDC092B5710411CB0 + 406C62D86EEFEA72C69DAA07F76FC0645DD241B15A7D93E3C6A85FE2471D5E68 + 6872C1CE1C2FE46BF0AC2A1842F7B9CBB2CFF8AB05007900A26949819995E075 + 184D43A0FF400B95575CD0FED4010A9907AAB5E1BC9801EC9FA9C261656D0346 + 7FFC8106E2A55C7A591EA551197CC84A1121BB4FC8346AF540CB1307A8950462 + 25E8670B8CD01E6611B198C445D9E5DC75EABD7E4DA32B322C05630F3F15BE54 + 82788F788FF9E9FB679D9110C781FBC077B753433BB478CB0F7C3B8CF0987D51 + CF0000000049454E44AE426082} + Name = 'PngImage3' + Background = clWindow + end> + Left = 56 + Top = 48 + Bitmap = {} + end +end diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas new file mode 100644 index 00000000..dbdd7443 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas @@ -0,0 +1,263 @@ +unit uViewPedidosProveedor; + +interface + +uses + uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, + cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, + dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, + dxPSEdgePatterns, cxImageComboBox, ImgList, Controls, PngImageList, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGridLnk, + uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes, + cxGrid, + uBizPedidosProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, + TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces; + +type + IViewPedidosProveedor = interface(IViewGrid) + ['{DF3B0989-5449-4F3A-8EF3-69CE35A62AAA}'] + function GetPedidos: IBizPedidoProveedor; + procedure SetPedidos(const Value: IBizPedidoProveedor); + property Pedidos: IBizPedidoProveedor read GetPedidos write SetPedidos; + end; + + TfrViewPedidosProveedor = class(TfrViewGrid, IViewPedidosProveedor) + cxGridDBTableView1: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + cxGridLevel2: TcxGridLevel; + cxGridLevel3: TcxGridLevel; + PngImageList: TPngImageList; + cxGridViewCODIGO: TcxGridDBColumn; + cxGridViewREFERENCIA: TcxGridDBColumn; + cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn; + cxGridViewNOMBRE: TcxGridDBColumn; + cxGridViewFECHA_PEDIDO: TcxGridDBColumn; + cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn; + cxGridViewFECHA_ENTREGA: TcxGridDBColumn; + cxGridViewCALLE: TcxGridDBColumn; + cxGridViewPOBLACION: TcxGridDBColumn; + cxGridViewPROVINCIA: TcxGridDBColumn; + cxGridViewCODIGO_POSTAL: TcxGridDBColumn; + cxGridViewPERSONA_CONTACTO: TcxGridDBColumn; + cxGridViewTELEFONO: TcxGridDBColumn; + cxGridViewFECHA_ENVIO: TcxGridDBColumn; + cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn; + cxGridViewREF_PED_CLIENTE: TcxGridDBColumn; + cxGridViewSITUACION: TcxGridDBColumn; + cxStylePendientes: TcxStyle; + cxStyleParciales: TcxStyle; + cxStyleRecibidos: TcxStyle; + cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; + actProveedor: TAction; + actAlmacen: TAction; + TBXItem2: TTBXItem; + TBXSeparatorItem1: TTBXSeparatorItem; + TBXItem3: TTBXItem; + TBXSeparatorItem2: TTBXSeparatorItem; + procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: + TcxGridLevel); + procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var + ADone: Boolean); + procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out + AStyle: TcxStyle); + procedure actProveedorExecute(Sender: TObject); + procedure actProveedorUpdate(Sender: TObject); + procedure actAlmacenExecute(Sender: TObject); + procedure actAlmacenUpdate(Sender: TObject); + procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + + private + //Filtros relativos a la vista + procedure AnadirFiltroSituaciones; + procedure AnadirFiltroFechas; + + protected + FPedidos: IBizPedidoProveedor; + function GetPedidos: IBizPedidoProveedor; + procedure SetPedidos(const Value: IBizPedidoProveedor); + public + procedure AnadirOtrosFiltros; override; + property Pedidos: IBizPedidoProveedor read GetPedidos write SetPedidos; + end; + +implementation + +uses SysUtils, variants, windows, uDataModulePedidosProveedor, schPedidosProveedorClient_Intf; + +{$R *.dfm} + +procedure TfrViewPedidosProveedor.actAlmacenExecute(Sender: TObject); +begin + if (cxGridViewNOMBRE_ALMACEN.GroupIndex < 0) then + begin + cxGridViewNOMBRE_ALMACEN.GroupIndex := cxGridView.GroupedColumnCount; + cxGridViewNOMBRE_ALMACEN.Visible := False; + end + else + begin + cxGridViewNOMBRE_ALMACEN.GroupIndex := -1; + cxGridViewNOMBRE_ALMACEN.Visible := True; + end; +end; + +procedure TfrViewPedidosProveedor.actAlmacenUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Checked := not (cxGridViewNOMBRE_ALMACEN.GroupIndex < 0); +end; + +procedure TfrViewPedidosProveedor.actProveedorExecute(Sender: TObject); +begin + if (cxGridViewNOMBRE.GroupIndex < 0) then + begin + cxGridViewNOMBRE.GroupIndex := cxGridView.GroupedColumnCount; + cxGridViewNOMBRE.Visible := False; + end + else + begin + cxGridViewNOMBRE.GroupIndex := -1; + cxGridViewNOMBRE.Visible := True; + end; +end; + +procedure TfrViewPedidosProveedor.actProveedorUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0); +end; + +procedure TfrViewPedidosProveedor.AnadirFiltroFechas; +var + Columna: TcxGridDBColumn; + Fecha1, Fecha2: Variant; + FFiltro : TcxFilterCriteriaItemList; +begin + Fecha1 := frViewFiltroBase1.edtFechaIniFiltro.EditValue; + Fecha2 := frViewFiltroBase1.edtFechaFinFiltro.EditValue; + + if not VarIsNull(Fecha1) + and not VarIsNull(Fecha2) then + begin + cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare]; + FFiltro := AddFilterGrid(fboAnd); + + Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_PEDIDO'); + FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2)); + end; +end; + +procedure TfrViewPedidosProveedor.AnadirFiltroSituaciones; +var + FFiltro : TcxFilterCriteriaItemList; +begin + FFiltro := AddFilterGrid(fboAnd); + + case cxGrid.ActiveLevel.Index of + 1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_PEDIDO_PENDIENTE, SITUACION_PEDIDO_PENDIENTE); + 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_PEDIDO_PARCIAL, SITUACION_PEDIDO_PARCIAL); + 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_PEDIDO_RECIBIDO, SITUACION_PEDIDO_RECIBIDO); + end; +end; + +procedure TfrViewPedidosProveedor.AnadirOtrosFiltros; +begin + inherited; + + AnadirFiltroSituaciones; + AnadirFiltroFechas; + + //Finalmente activamos el filtro si tenemos algo + if cxGridView.DataController.Filter.IsEmpty + then cxGridView.DataController.Filter.Active := False + else cxGridView.DataController.Filter.Active := True; + cxGrid.ActiveLevel.GridView := cxGridView; +end; + +procedure TfrViewPedidosProveedor.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); +begin + inherited; + RefrescarFiltro; +end; + +procedure TfrViewPedidosProveedor.cxGridViewCODIGOCustomDrawCell(Sender: + TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: + TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + R: TRect; +begin + inherited; + R := AViewInfo.ContentBounds; + ACanvas.FillRect(R); + ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2); + ADone := True; +end; + +procedure TfrViewPedidosProveedor.cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); +var + Site : TcxGridSite; + HitTest : TcxCustomGridHitTest; + Item : TcxCustomGridTableItem; + Rec : TcxCustomGridRecord; + sNewHint : string; +begin +{Este método desaparecerá cuando se migre la aplicación, es para sacar la causa de la incidencia sin necesidad de entrar en el documento} + Site := Sender as TcxGridSite; + HitTest := Site.GridView.ViewInfo.GetHitTest(X, Y); + if HitTest is TcxGridRecordCellHitTest then begin + Item := TcxGridRecordCellHitTest(HitTest).Item; + Rec := TcxGridRecordCellHitTest(HitTest).GridRecord; + + if (Item.Index = cxGridView.GetColumnByFieldName(fld_PedidosProveedorINCIDENCIAS_ACTIVAS).Index) + and (Rec.Selected) + and (Pedidos.DataTable.FieldByName(fld_PedidosProveedorINCIDENCIAS_ACTIVAS).AsInteger = 1) then begin + sNewHint := Pedidos.DataTable.FieldByName(fld_PedidosProveedorINCIDENCIAS).AsString; + if (cxGrid.Hint <> sNewHint) then begin + cxGrid.ShowHint := false; + cxGrid.Hint := sNewHint; + end + else cxGrid.ShowHint := true; + end + else begin + cxGrid.ShowHint := false; + end; + end; +end; + +procedure TfrViewPedidosProveedor.cxGridViewStylesGetContentStyle(Sender: + TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: + TcxCustomGridTableItem; out AStyle: TcxStyle); +var + IndiceCol: Integer; + ASituacion: string; +begin + inherited; + if Assigned(ARecord) then + begin + IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PedidosProveedorSITUACION).Index; + ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol])); + if (ASituacion = SITUACION_PEDIDO_PENDIENTE) then + AStyle := cxStylePendientes + else if (ASituacion = SITUACION_PEDIDO_PARCIAL) then + AStyle := cxStyleParciales + else if (ASituacion = SITUACION_PEDIDO_RECIBIDO) then + AStyle := cxStyleRecibidos; + end; +end; + +function TfrViewPedidosProveedor.GetPedidos: IBizPedidoProveedor; +begin + Result := FPedidos; +end; + +procedure TfrViewPedidosProveedor.SetPedidos(const Value: IBizPedidoProveedor); +begin + FPedidos := Value; + if Assigned(FPedidos) then + dsDataSource.DataTable := FPedidos.DataTable; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Controller/DataAbstract3_Intf.dcu b/Source/Modulos/Recibos de proveedor/Controller/DataAbstract3_Intf.dcu new file mode 100644 index 00000000..ffd7aa30 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/DataAbstract3_Intf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/DataAbstract4_Intf.dcu b/Source/Modulos/Recibos de proveedor/Controller/DataAbstract4_Intf.dcu new file mode 100644 index 00000000..fc214239 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/DataAbstract4_Intf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.bdsproj b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.bdsproj new file mode 100644 index 00000000..9291ef45 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.bdsproj @@ -0,0 +1,492 @@ + + + + + + + + + + + + RecibosProveedor_controller.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 0 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dcu b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dcu new file mode 100644 index 00000000..17111980 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dpk b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dpk new file mode 100644 index 00000000..a00ce1a2 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dpk @@ -0,0 +1,43 @@ +package RecibosProveedor_controller; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} + +requires + Base, + RecibosProveedor_model, + RecibosProveedor_data, + Contactos_controller; + +contains + uRecibosProveedorController in 'uRecibosProveedorController.pas', + uIEditorRecibosProveedor in 'View\uIEditorRecibosProveedor.pas', + uIEditorReciboProveedor in 'View\uIEditorReciboProveedor.pas', + uPagosProveedorController in 'uPagosProveedorController.pas', + uIEditorRecibosProveedorPreview in 'View\uIEditorRecibosProveedorPreview.pas', + uRecibosProveedorReportController in 'uRecibosProveedorReportController.pas', + uIEditorFechaPagoProveedor in 'View\uIEditorFechaPagoProveedor.pas', + uIEditorElegirRecibosProveedor in 'View\uIEditorElegirRecibosProveedor.pas'; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj new file mode 100644 index 00000000..cdd8e9ed --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj @@ -0,0 +1,587 @@ + + + + {c8b2fb9a-0367-4fd0-b836-4b594c06bcab} + RecibosProveedor_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RecibosProveedor_controller.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RecibosProveedor_controller.dpk + + + + + + + MainSource + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.identcache b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.identcache new file mode 100644 index 00000000..bab6b93d Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.identcache differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.rc b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.res b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.res differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorElegirRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorElegirRecibosProveedor.pas new file mode 100644 index 00000000..49e7cade --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorElegirRecibosProveedor.pas @@ -0,0 +1,27 @@ +unit uIEditorElegirRecibosProveedor; + +interface + +uses + uIEditorRecibosProveedor, uBizRecibosProveedor, uGUIBase; + +type + IEditorElegirRecibosProveedor = interface(IEditorRecibosProveedor) + ['{7F0AA54E-6F1D-4298-9DB4-0D797069A90C}'] + function GetRecibosProveedorSeleccionados: IBizRecibosProveedor; + property RecibosProveedorSeleccionados: IBizRecibosProveedor read GetRecibosProveedorSeleccionados; + + procedure SetMultiSelect (AValue : Boolean); + function GetMultiSelect : Boolean; + property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; + + procedure SetMensaje (const AValue: String); + function GetMensaje: String; + property Mensaje : String read GetMensaje write SetMensaje; + + end; + + +implementation + +end. diff --git a/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorFechaPagoProveedor.pas b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorFechaPagoProveedor.pas new file mode 100644 index 00000000..5d67af74 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorFechaPagoProveedor.pas @@ -0,0 +1,18 @@ +unit uIEditorFechaPagoProveedor; + +interface + +uses + uEditorBasico; + +type + IEditorFechaPagoProveedor = interface(IEditorBasico) + ['{EDD78459-4C97-4C4A-92A3-25536D74AD18}'] + function GetFechaPago: TDateTime; + procedure SetFechaPago(const Value: TDateTime); + property FechaPago: TDateTime Read GetFechaPago write SetFechaPago; + end; + +implementation + +end. diff --git a/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorReciboProveedor.pas new file mode 100644 index 00000000..01838ba2 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorReciboProveedor.pas @@ -0,0 +1,22 @@ +unit uIEditorReciboProveedor; + +interface + +uses + uEditorDBItem, uBizRecibosProveedor, uRecibosProveedorController; + +type + IEditorReciboProveedor = interface(IEditorDBItem) + ['{4533AC6F-98A8-4D99-A42D-EC358C61AA7B}'] + function GetController : IRecibosProveedorController; + procedure SetController (const Value : IRecibosProveedorController); + property Controller : IRecibosProveedorController read GetController write SetController; + + function GetRecibo: IBizRecibosProveedor; + procedure SetRecibo(const Value: IBizRecibosProveedor); + property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo; + end; + +implementation + +end. diff --git a/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorRecibosProveedor.pas new file mode 100644 index 00000000..c6520a68 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorRecibosProveedor.pas @@ -0,0 +1,46 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uIEditorRecibosProveedor; + +interface + +uses + uEditorGridBase, uBizRecibosProveedor, uRecibosProveedorController; + +type + IEditorRecibosProveedor = interface(IEditorGridBase) + ['{0952395E-321D-4FE3-AC05-225FB9349A9C}'] + function GetRecibosProveedor: IBizRecibosProveedor; + procedure SetRecibosProveedor(const Value: IBizRecibosProveedor); + property RecibosProveedor: IBizRecibosProveedor read GetRecibosProveedor write SetRecibosProveedor; + + function GetController : IRecibosProveedorController; + procedure SetController (const Value : IRecibosProveedorController); + property Controller : IRecibosProveedorController read GetController write SetController; + end; + + +implementation + +end. diff --git a/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorRecibosProveedorPreview.pas b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorRecibosProveedorPreview.pas new file mode 100644 index 00000000..136adbeb --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/View/uIEditorRecibosProveedorPreview.pas @@ -0,0 +1,15 @@ +unit uIEditorRecibosProveedorPreview; + +interface + +uses + uEditorPreview; + +type + IEditorRecibosProveedorPreview = interface(IEditorPreview) + ['{99E961CE-5581-4E82-BF66-7C7D95A1018F}'] + end; + +implementation + +end. diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDABusinessProcessor.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDABusinessProcessor.dcu new file mode 100644 index 00000000..ca675473 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDABusinessProcessor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAClasses.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAClasses.dcu new file mode 100644 index 00000000..d55c6b09 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAClasses.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDADataStreamer.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDADataStreamer.dcu new file mode 100644 index 00000000..01699560 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDADataStreamer.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDADataTable.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDADataTable.dcu new file mode 100644 index 00000000..8a766311 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDADataTable.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDADelta.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDADelta.dcu new file mode 100644 index 00000000..af032780 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDADelta.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDADriverManager.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDADriverManager.dcu new file mode 100644 index 00000000..ee734d74 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDADriverManager.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAEngine.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAEngine.dcu new file mode 100644 index 00000000..61b0a1de Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAEngine.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAExpressionEvaluator.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAExpressionEvaluator.dcu new file mode 100644 index 00000000..d13ec370 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAExpressionEvaluator.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAHelpers.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAHelpers.dcu new file mode 100644 index 00000000..ce8d3674 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAHelpers.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAInterfaces.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAInterfaces.dcu new file mode 100644 index 00000000..1b453f8e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAInterfaces.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAInterfacesEx.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAInterfacesEx.dcu new file mode 100644 index 00000000..dc049c99 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAInterfacesEx.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAMacroProcessors.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAMacroProcessors.dcu new file mode 100644 index 00000000..eae704e3 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAMacroProcessors.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAMacros.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAMacros.dcu new file mode 100644 index 00000000..132f5bb4 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAMacros.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAMemDataTable.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAMemDataTable.dcu new file mode 100644 index 00000000..b110762e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAMemDataTable.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAMemDataset.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAMemDataset.dcu new file mode 100644 index 00000000..4bfe31c6 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAMemDataset.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAOracleInterfaces.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAOracleInterfaces.dcu new file mode 100644 index 00000000..91688530 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAOracleInterfaces.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDARegExpr.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDARegExpr.dcu new file mode 100644 index 00000000..34f7ed5e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDARegExpr.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDARes.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDARes.dcu new file mode 100644 index 00000000..30d13a08 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDARes.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDASQL92Interfaces.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDASQL92Interfaces.dcu new file mode 100644 index 00000000..7976fd57 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDASQL92Interfaces.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDASQL92QueryBuilder.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDASQL92QueryBuilder.dcu new file mode 100644 index 00000000..cdeb4b9d Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDASQL92QueryBuilder.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAScriptingProvider.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAScriptingProvider.dcu new file mode 100644 index 00000000..6c8cc230 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAScriptingProvider.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDASupportClasses.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDASupportClasses.dcu new file mode 100644 index 00000000..8da1e182 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDASupportClasses.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAUtils.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAUtils.dcu new file mode 100644 index 00000000..7206f0c6 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAUtils.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAWhere.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAWhere.dcu new file mode 100644 index 00000000..d01cbaf9 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAWhere.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uDAXMLUtils.dcu b/Source/Modulos/Recibos de proveedor/Controller/uDAXMLUtils.dcu new file mode 100644 index 00000000..1443e96e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uDAXMLUtils.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uIEditorElegirRecibosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Controller/uIEditorElegirRecibosProveedor.dcu new file mode 100644 index 00000000..06fe1602 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uIEditorElegirRecibosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uIEditorFechaPagoProveedor.dcu b/Source/Modulos/Recibos de proveedor/Controller/uIEditorFechaPagoProveedor.dcu new file mode 100644 index 00000000..9f41b0d7 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uIEditorFechaPagoProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uIEditorReciboProveedor.dcu b/Source/Modulos/Recibos de proveedor/Controller/uIEditorReciboProveedor.dcu new file mode 100644 index 00000000..24f4eba7 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uIEditorReciboProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uIEditorRecibosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Controller/uIEditorRecibosProveedor.dcu new file mode 100644 index 00000000..f31fc73d Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uIEditorRecibosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uIEditorRecibosProveedorPreview.dcu b/Source/Modulos/Recibos de proveedor/Controller/uIEditorRecibosProveedorPreview.dcu new file mode 100644 index 00000000..4c4af316 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uIEditorRecibosProveedorPreview.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.dcu b/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.dcu new file mode 100644 index 00000000..6a526475 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas new file mode 100644 index 00000000..97ac82e3 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/uPagosProveedorController.pas @@ -0,0 +1,144 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uPagosProveedorController; + +interface + +uses + Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRecibosProveedor, + uBizPagosProveedor; + +type + IPagosProveedorController = interface(ISujeto) + ['{4F907D80-B184-4557-BAB7-9FDA23260E64}'] + function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''): Boolean; + procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String); + function Eliminar(APagoCliente : IBizPagosProveedor): Boolean; + function EliminarTodo(APagossCliente : IBizPagosProveedor): Boolean; + end; + + TPagosProveedorController = class(TSujeto, IPagosProveedorController) + protected + FDataModule : IDataModuleRecibosProveedor; + procedure AsignarDataModule; + + public + constructor Create; virtual; + destructor Destroy; override; + function Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''): Boolean; + procedure Modificar(APagosProveedor: IBizPagosProveedor; Const Fecha: String); + function Eliminar(APagoCliente : IBizPagosProveedor): Boolean; + function EliminarTodo(APagosProveedor : IBizPagosProveedor): Boolean; + end; + +implementation + +uses + cxControls, DB, uEditorRegistryUtils,Dialogs, + uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, + uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, + schRecibosProveedorClient_Intf, uDataModuleRecibosProveedor; + +{ TPagosProveedorController } + +function TPagosProveedorController.Anadir(APagosProveedor: IBizPagosProveedor; Const Fecha: String = ''): Boolean; +{ Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser +una devolución devolvemos false} +begin + APagosProveedor.Append; + if Length(Fecha) = 0 then + APagosProveedor.FECHA_PAGO := Date + else + APagosProveedor.FECHA_PAGO := StrToDate(Fecha); + + if (APagosProveedor.DataTable.RecordCount = 0) + or ((APagosProveedor.DataTable.RecordCount mod 2) = 0) then + APagosProveedor.TIPO := CTE_PAGO + else + APagosProveedor.TIPO := CTE_DEVOLUCION; + + Result := (APagosProveedor.TIPO = CTE_PAGO); + APagosProveedor.Post; +end; + +procedure TPagosProveedorController.AsignarDataModule; +begin + FDataModule := TDataModuleRecibosProveedor.Create(Nil); +end; + +constructor TPagosProveedorController.Create; +begin + AsignarDataModule; +end; + +destructor TPagosProveedorController.Destroy; +begin + FDataModule := NIL; + inherited; +end; + +function TPagosProveedorController.Eliminar(APagoCliente: IBizPagosProveedor): Boolean; +{ En el caso de eliminar un pago del recibo devuelve true, mientras que si lo que +se borra es una devolución devuelve false} +begin + Result := False; + + if not Assigned(APagoCliente) then + raise Exception.Create ('IBizPagosProveedor no asignado'); + + ShowHourglassCursor; + try + if (APagoCliente.State in dsEditModes) then + APagoCliente.Cancel; + + APagoCliente.Last; + Result := (APagoCliente.TIPO = CTE_PAGO); + APagoCliente.Delete; + //Todo lo haremos en memoria ya que los pagos no tienen entidad propia + //APagosProveedor.DataTable.ApplyUpdates; + finally + HideHourglassCursor; + end; +end; + +function TPagosProveedorController.EliminarTodo(APagosProveedor: IBizPagosProveedor): Boolean; +begin + if Assigned(APagosProveedor) then + begin + if not APagosProveedor.DataTable.Active then + APagosProveedor.DataTable.Active := True; + APagosProveedor.DataTable.ClearRows; + //Todo lo haremos en memoria ya que los pagos no tienen entidad propia + //APagosProveedor.DataTable.ApplyUpdates; + end; +end; + +procedure TPagosProveedorController.Modificar(APagosProveedor: IBizPagosProveedor; const Fecha: String); +begin + APagosProveedor.DataTable.Edit; + APagosProveedor.FECHA_PAGO := StrToDate(Fecha); + APagosProveedor.DataTable.Post; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROBinaryHelpers.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROBinaryHelpers.dcu new file mode 100644 index 00000000..6b390e8e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROBinaryHelpers.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROCipher.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROCipher.dcu new file mode 100644 index 00000000..180cf4d8 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROCipher.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROCiphers.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROCiphers.dcu new file mode 100644 index 00000000..1f7e95b0 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROCiphers.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROClasses.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROClasses.dcu new file mode 100644 index 00000000..f01da2db Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROClasses.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROClient.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROClient.dcu new file mode 100644 index 00000000..acc38ef8 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROClient.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROClientIntf.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROClientIntf.dcu new file mode 100644 index 00000000..703da39b Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROClientIntf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROCompression.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROCompression.dcu new file mode 100644 index 00000000..72e17d34 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROCompression.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRODECConst.dcu b/Source/Modulos/Recibos de proveedor/Controller/uRODECConst.dcu new file mode 100644 index 00000000..41922960 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uRODECConst.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRODECUtil.dcu b/Source/Modulos/Recibos de proveedor/Controller/uRODECUtil.dcu new file mode 100644 index 00000000..710389c2 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uRODECUtil.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRODL.dcu b/Source/Modulos/Recibos de proveedor/Controller/uRODL.dcu new file mode 100644 index 00000000..3703edf7 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uRODL.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRODLToXML.dcu b/Source/Modulos/Recibos de proveedor/Controller/uRODLToXML.dcu new file mode 100644 index 00000000..11f19000 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uRODLToXML.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRODynamicRequest.dcu b/Source/Modulos/Recibos de proveedor/Controller/uRODynamicRequest.dcu new file mode 100644 index 00000000..4dbe557e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uRODynamicRequest.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROEncryption.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROEncryption.dcu new file mode 100644 index 00000000..bdec33eb Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROEncryption.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROEventRepository.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROEventRepository.dcu new file mode 100644 index 00000000..7af6aac8 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROEventRepository.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROHTTPTools.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROHTTPTools.dcu new file mode 100644 index 00000000..c0fd24eb Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROHTTPTools.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROHash.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROHash.dcu new file mode 100644 index 00000000..695fd20d Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROHash.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROMSXML2_TLB.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROMSXML2_TLB.dcu new file mode 100644 index 00000000..89ba4a35 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROMSXML2_TLB.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROMSXMLImpl.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROMSXMLImpl.dcu new file mode 100644 index 00000000..3a512a91 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROMSXMLImpl.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRORemoteService.dcu b/Source/Modulos/Recibos de proveedor/Controller/uRORemoteService.dcu new file mode 100644 index 00000000..c2b92e18 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uRORemoteService.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRORes.dcu b/Source/Modulos/Recibos de proveedor/Controller/uRORes.dcu new file mode 100644 index 00000000..c4d1a589 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uRORes.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROSerializer.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROSerializer.dcu new file mode 100644 index 00000000..6c87df30 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROSerializer.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROServerIntf.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROServerIntf.dcu new file mode 100644 index 00000000..f68ed1a3 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROServerIntf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROSessions.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROSessions.dcu new file mode 100644 index 00000000..1b5b876f Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROSessions.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROTypes.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROTypes.dcu new file mode 100644 index 00000000..5b4638e1 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROTypes.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROXMLIntf.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROXMLIntf.dcu new file mode 100644 index 00000000..62ba94e6 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROXMLIntf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uROZLib.dcu b/Source/Modulos/Recibos de proveedor/Controller/uROZLib.dcu new file mode 100644 index 00000000..6043dd1b Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uROZLib.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.dcu b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.dcu new file mode 100644 index 00000000..e781f1be Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas new file mode 100644 index 00000000..65e7622d --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas @@ -0,0 +1,806 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uRecibosProveedorController; + +interface + +uses + Classes, SysUtils, uDADataTable, uControllerBase, + uPagosProveedorController, uProveedoresController, + uBizRecibosProveedor, uIDataModuleRecibosProveedor; + +type + IRecibosProveedorController = interface(IObservador) + ['{763DF610-3540-42BE-A09A-35AABFAF2DA1}'] + + function GetPagosController: IPagosProveedorController; + procedure SetPagosController(const Value: IPagosProveedorController); + property PagosController: IPagosProveedorController read GetPagosController write SetPagosController; + + procedure Anadir(ARecibosProveedor : IBizRecibosProveedor); + function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''): Boolean; + procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor); + function Eliminar(ARecibosProveedor : IBizRecibosProveedor): Boolean; + function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean; + function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean; + function Guardar(ARecibosProveedor : IBizRecibosProveedor): Boolean; + procedure DescartarCambios(ARecibosProveedor : IBizRecibosProveedor); + function Duplicar(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor; + function Nuevo : IBizRecibosProveedor; + procedure RecuperarCliente(AReciboProveedor : IBizRecibosProveedor); + function Buscar(const ID: Integer): IBizRecibosProveedor; + function BuscarTodos: IBizRecibosProveedor; + + function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor; + function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor; + function BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor; + function BuscarRecibosARemesar: IBizRecibosProveedor; + + procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor); + procedure Ver(ARecibosProveedor: IBizRecibosProveedor); + function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor; + + procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer); + procedure QuitarRemesa(ARecibos : IBizRecibosProveedor); + procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False); + function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor; + + function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean; + procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor); + + procedure Preview(ARecibosProveedor : IBizRecibosProveedor); + procedure Print(ARecibosProveedor : IBizRecibosProveedor); + end; + + TRecibosProveedorController = class(TObservador, IRecibosProveedorController) + private + function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor; + var ImporteRestante: Currency): Boolean; + protected + FDataModule : IDataModuleRecibosProveedor; + FPagosController : IPagosProveedorController; + FClienteController : IProveedoresController; + + function GetPagosController: IPagosProveedorController; + procedure SetPagosController(const Value: IPagosProveedorController); + + function _Vacio : IBizRecibosProveedor; + + function ValidarReciboProveedor(ARecibosProveedor: IBizRecibosProveedor): Boolean; + procedure AsignarDataModule; + procedure AsignarID(ARecibosProveedor: IBizRecibosProveedor; const IDNuevo: Integer); + function DarNuevaReferencia(ID_FACTURA : Integer; REFERENCIA: String): String; + + public + property PagosController: IPagosProveedorController read GetPagosController write SetPagosController; + constructor Create; virtual; + destructor Destroy; override; + + procedure RecuperarCliente(AReciboProveedor : IBizRecibosProveedor); + procedure Anadir(ARecibosProveedor : IBizRecibosProveedor); + function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''): Boolean; + procedure ModificarPago(ARecibosProveedor : IBizRecibosProveedor); + function Eliminar(ARecibosProveedor : IBizRecibosProveedor): Boolean; + function EliminarPago(ARecibosProveedor : IBizRecibosProveedor): Boolean; + function EliminarTodo(ARecibosProveedor : IBizRecibosProveedor): Boolean; + function Guardar(ARecibosProveedor : IBizRecibosProveedor): Boolean; + procedure DescartarCambios(ARecibosProveedor : IBizRecibosProveedor); + function Duplicar(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor; + function Nuevo : IBizRecibosProveedor; + + function Buscar(const ID: Integer): IBizRecibosProveedor; + function BuscarTodos: IBizRecibosProveedor; + + function BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor; + function BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor; + function BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor; + function BuscarRecibosARemesar: IBizRecibosProveedor; + + procedure VerTodos(ARecibosProveedor: IBizRecibosProveedor); + procedure Ver(ARecibosProveedor: IBizRecibosProveedor); + + function ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor) : IBizRecibosProveedor; + function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor; + function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean; + + procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer); + procedure QuitarRemesa(ARecibos : IBizRecibosProveedor); + procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor); + + procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False); + + procedure Preview(ARecibosProveedor : IBizRecibosProveedor); + procedure Print(ARecibosProveedor : IBizRecibosProveedor); + end; + +implementation + +uses + Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs, + uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, + uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, + uRecibosProveedorReportController, uBizContactos, + schRecibosProveedorClient_Intf, uIEditorRecibosProveedor, uIEditorReciboProveedor, + uDataModuleRecibosProveedor, uIEditorFechaPagoProveedor, uIEditorElegirRecibosProveedor; + +{ TRecibosProveedorController } + +procedure TRecibosProveedorController.Anadir(ARecibosProveedor: IBizRecibosProveedor); +begin + ARecibosProveedor.Insert; +end; + +function TRecibosProveedorController.AnadirPago(ARecibosProveedor: IBizRecibosProveedor; FechaPago: String =''): Boolean; +var + AEditor : IEditorFechaPagoProveedor; +begin + Result := False; + + //Pedimos la fecha del pago + if (Length(FechaPago) = 0) then + begin + CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor); + if Assigned(AEditor) then + try + if (AEditor.ShowModal = mrOk) then + FechaPago := DateToStr(AEditor.FechaPago); + AEditor.Release; + finally + AEditor := NIL; + end; + end; + + // Se cancela la operación + if Length(FechaPago) = 0 then + Exit; + + //Finalmente añadimos el pago (pago o devolucion) + if PagosController.Anadir(ARecibosProveedor.Pagos, FechaPago) then + begin + ARecibosProveedor.Edit; + ARecibosProveedor.SITUACION := CTE_PAGADO; + Result := True; + end + //Podremos modificar si anulamos el pago mediante una devolución + else + begin + ARecibosProveedor.Edit; + ARecibosProveedor.SITUACION := CTE_DEVUELTO; + Result := False; + end; +end; + +procedure TRecibosProveedorController.AsignarDataModule; +begin + FDataModule := TDataModuleRecibosProveedor.Create(Nil); +end; + +procedure TRecibosProveedorController.AsignarID(ARecibosProveedor: IBizRecibosProveedor; + const IDNuevo: Integer); +var + AContador : Integer; +begin + if not Assigned(ARecibosProveedor) then + raise Exception.Create ('IBizRecibosProveedor no asignado'); + + if not Assigned(ARecibosProveedor.Pagos) then + raise Exception.Create ('Pagos del recibo no asignados'); + + if not Assigned(FPagosController) then + raise Exception.Create ('Controller pagos no asignado'); + +//Lo haremos siempre para actualizar siempre la referencia del recibo +// if ARecibosProveedor.EsNuevo then +// begin + ARecibosProveedor.Edit; + ARecibosProveedor.DESCRIPCION := 'RECIBO ' + ARecibosProveedor.REFERENCIA + ' - ' + CifraToLetras((ARecibosProveedor.IMPORTE + ARecibosProveedor.OTROS_GASTOS)); + ARecibosProveedor.Post; +// end; +end; + +procedure TRecibosProveedorController.AsignarRemesa(ARecibos: IBizRecibosProveedor; ID_REMESA: Integer); +begin + if Assigned(ARecibos) then + begin + With ARecibos.DataTable do + begin + First; + While not EOF do + begin + if (ARecibos.ID_REMESA <> ID_REMESA) then + begin + ARecibos.Edit; + //Añadimos el cobro automatico por la remesa y volvemos a asignar ID + //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle + AnadirPago(ARecibos, DateToStr(Date)); //->Ojo el orden es importante + ARecibos.ID_REMESA := ID_REMESA; + AsignarID(ARecibos, ARecibos.ID); + end; + Next; + end; + end; + end; +end; + +function TRecibosProveedorController.BuscarTodos: IBizRecibosProveedor; +begin + Result := FDataModule.GetItems; +end; + +constructor TRecibosProveedorController.Create; +begin + inherited; + AsignarDataModule; + FPagosController := TPagosProveedorController.Create; + FClienteController := TProveedoresController.Create; +// FPagosController.addObservador(Self); //PETA NO SE PORQUE +end; + +function TRecibosProveedorController.Buscar(const ID: Integer): IBizRecibosProveedor; +begin + Result := (FDataModule as IDataModuleRecibosProveedor).GetItem(ID); +end; + +function TRecibosProveedorController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor; +begin + ShowHourglassCursor; + try + Result := BuscarTodos; + with Result.DataTable.Where do + begin + if NotEmpty then + AddOperator(opAND); + OpenBraket; + AddText(fld_RecibosProveedorID_FACTURA + ' = ' + IntToStr(ID_FACTURA)); + CloseBraket; + end; + finally + HideHourglassCursor; + end; +end; + +function TRecibosProveedorController.BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor; +begin + if not Assigned(Recibo) then + raise Exception.Create ('IBizReciboProveedor no asignado (BuscarRecibosACompensar)'); + + ShowHourglassCursor; + try + Result := BuscarTodos; + with Result.DataTable.Where do + begin + if NotEmpty then + AddOperator(opAND); + + //No podrá compensarse un recibo a si mismo + OpenBraket; + AddText(fld_RecibosProveedorID + ' <> ' + IntToStr(Recibo.ID)); + CloseBraket; + + AddOperator(opAND); + + //Solo podrá compensar recibos del mismo proveedor + OpenBraket; + AddText(fld_RecibosProveedorID_PROVEEDOR + ' = ' + IntToStr(Recibo.ID_PROVEEDOR)); + CloseBraket; + + AddOperator(opAND); + + //Omitimos los recibos compensados + OpenBraket; + AddText(fld_RecibosProveedorID_RECIBO_COMPENSADO + ' IS NULL '); + CloseBraket; + + AddOperator(opAND); + + //Solo dejaremos remesar aquellos recibos que no esten cobrados (Pendientes/Devueltos) + OpenBraket; + AddText(fld_RecibosProveedorSITUACION + ' <> ''' + CTE_PAGADO + ''''); + CloseBraket; + end; + finally + HideHourglassCursor; + end; +end; + +function TRecibosProveedorController.BuscarRecibosARemesar: IBizRecibosProveedor; +begin + ShowHourglassCursor; + try + Result := BuscarTodos; + with Result.DataTable.Where do + begin + if NotEmpty then + AddOperator(opAND); + //Omitimos los recibos compensados + OpenBraket; + AddText(fld_RecibosProveedorID_RECIBO_COMPENSADO + ' IS NULL '); + CloseBraket; + AddOperator(opAND); + //Solo dejaremos remesar aquellos recibos que no esten pagados (Pendientes/Devueltos) + OpenBraket; + AddText(fld_RecibosProveedorSITUACION + ' <> ''' + CTE_PAGADO + ''''); + CloseBraket; + end; + finally + HideHourglassCursor; + end; +end; + +function TRecibosProveedorController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor; +begin + ShowHourglassCursor; + try + Result := BuscarTodos; + with Result.DataTable.Where do + begin + if NotEmpty then + AddOperator(opAND); + OpenBraket; + AddText(fld_RecibosProveedorID_REMESA + ' = ' + IntToStr(ID_REMESA)); + CloseBraket; + end; + finally + HideHourglassCursor; + end; +end; + +function TRecibosProveedorController._Vacio: IBizRecibosProveedor; +begin + Result := Buscar(ID_NULO); +end; + +function TRecibosProveedorController.DarNuevaReferencia(ID_FACTURA: Integer; REFERENCIA: String): String; +var + ARecibosProveedor: IBizRecibosProveedor; + NumReferencia : Integer; + Cadena : String; +begin + try + ARecibosProveedor := BuscarRecibosFactura(ID_FACTURA); + ARecibosProveedor.DataTable.Active := True; + NumReferencia := ARecibosProveedor.DataTable.RecordCount; + Cadena := Copy(REFERENCIA, 0, Pos('-', REFERENCIA)); + Result := Cadena + ' ' + IntToStr((NumReferencia + 1)); + finally + ARecibosProveedor := Nil; + end; +end; + +procedure TRecibosProveedorController.DescartarCambios(ARecibosProveedor: IBizRecibosProveedor); +begin + if not Assigned(ARecibosProveedor) then + raise Exception.Create ('IBizRecibosProveedor no asignado'); + + ShowHourglassCursor; + try + if (ARecibosProveedor.State in dsEditModes) then + ARecibosProveedor.Cancel; + + ARecibosProveedor.DataTable.CancelUpdates; + finally + HideHourglassCursor; + end; +end; + +destructor TRecibosProveedorController.Destroy; +begin + FDataModule := NIL; + FPagosController := NIL; + FClienteController := NIL; + inherited; +end; + + +function TRecibosProveedorController.Duplicar(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor; +begin + Result := Self._Vacio; + ShowHourglassCursor; + try + DuplicarRegistros(ARecibosProveedor.DataTable, Result.DataTable, mdrActual); + + // Descomentar esto si hay detalles + // (EN ESTE CASO NO NOS INTERESA COPIAR LOS PAGOS DEL RECIBO DUPLIACDO) + // DuplicarRegistros(ARecibosProveedor.Detalles.DataTable, Result.Detalles.DataTable, mdrTodos); + + // ¡CUIDADO! Hay que dejar algunos campos como si fuera todo nuevo + Result.Edit; + with Result do + begin + // Ejemplos + // ID_EMPRESA := dmUsuarios.IDEmpresaActual; + // USUARIO := dmUsuarios.LoginInfo.Usuario; + // REFERENCIA := ''; //Para que se asigne una nueva + // FECHA_FACTURA := DateOf(Now); + // SITUACION := SITUACION_PENDIENTE; + end; + + Result.Post; + finally + HideHourglassCursor; + end; +end; + + +function TRecibosProveedorController.ValidarReciboProveedor(ARecibosProveedor: IBizRecibosProveedor): Boolean; +var + ImporteRestante: Double; + +begin + Result := False; + + if not Assigned(ARecibosProveedor) then + raise Exception.Create ('IBizRecibosProveedor no asignado'); + + if (ARecibosProveedor.DataTable.State in dsEditModes) then + ARecibosProveedor.DataTable.Post; + + // Tambien hacemos post de sus tablas hija + if (ARecibosProveedor.Pagos.DataTable.State in dsEditModes) then + ARecibosProveedor.Pagos.DataTable.Post; + + if ARecibosProveedor.DataTable.FieldByName(fld_RecibosProveedorFECHA_EMISION).IsNull then + raise Exception.Create('Debe indicar la fecha de emisión del recibo.'); + + if ARecibosProveedor.DataTable.FieldByName(fld_RecibosProveedorFECHA_VENCIMIENTO).IsNull then + raise Exception.Create('Debe indicar la fecha de vencimiento del recibo.'); + + + { Asegurarse de valores en campos "automáticos" tanto + en MODIFICACIÓN como en INSERCIÓN. } + ARecibosProveedor.Edit; + try +// ARecibosProveedor.USUARIO := dmUsuarios.LoginInfo.Usuario; + Result := True; + finally + ARecibosProveedor.Post; + end; + + Result := True; +end; + +procedure TRecibosProveedorController.Ver(ARecibosProveedor: IBizRecibosProveedor); +var + AEditor : IEditorReciboProveedor; +begin + AEditor := NIL; + ShowHourglassCursor; + try + RecuperarCliente(ARecibosProveedor); + CreateEditor('EditorReciboProveedor', IEditorReciboProveedor, AEditor); + with AEditor do + begin + Controller := Self; //OJO ORDEN MUY IMPORTANTE + Recibo := ARecibosProveedor; + end; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + try + AEditor.ShowModal; + AEditor.Release; + finally + AEditor := NIL; + end; +end; + +procedure TRecibosProveedorController.VerTodos(ARecibosProveedor: IBizRecibosProveedor); +var + AEditor : IEditorRecibosProveedor; +begin + AEditor := NIL; + ShowHourglassCursor; + try + CreateEditor('EditorRecibosProveedor', IEditorRecibosProveedor, AEditor); + with AEditor do + RecibosProveedor := ARecibosProveedor; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + try + AEditor.ShowEmbedded; + finally + AEditor := NIL; + end; +end; + +function TRecibosProveedorController.ElegirRecibos(ARecibos: IBizRecibosProveedor; AMensaje: String; + AMultiSelect: Boolean): IBizRecibosProveedor; +var + AEditor : IEditorElegirRecibosProveedor; +begin + Result := NIL; + CreateEditor('EditorElegirRecibosProveedor', IEditorElegirRecibosProveedor, AEditor); + try + with AEditor do + begin + Controller := Self; + RecibosProveedor := ARecibos; + MultiSelect := AMultiSelect; + Mensaje := AMensaje; + if IsPositiveResult(ShowModal) then + Result := RecibosProveedorSeleccionados; + Release; + end; + finally + AEditor := NIL; + end; +end; + +function TRecibosProveedorController.ElegirRecibosCompensados(ARecibo: IBizRecibosProveedor): Boolean; +var + ARecibosACompensar: IBizRecibosProveedor; +begin + ARecibosACompensar := Self.ElegirRecibos(BuscarRecibosACompensar(ARecibo), 'Elija los recibos que desea compensar', True); + + if Assigned(ARecibosACompensar) then + begin + ShowHourglassCursor; + try + DuplicarRegistros(ARecibosACompensar.DataTable, ARecibo.RecibosCompensados.DataTable, mdrTodos, True, True, False); + Result := True; + finally + HideHourglassCursor; + ARecibosACompensar := Nil; + end; + end; +end; + +function TRecibosProveedorController.Eliminar(ARecibosProveedor: IBizRecibosProveedor): Boolean; +begin + Result := False; + + if not Assigned(ARecibosProveedor) then + raise Exception.Create ('IBizRecibosProveedor no asignado'); + + ShowHourglassCursor; + try + if (ARecibosProveedor.State in dsEditModes) then + ARecibosProveedor.Cancel; + + ARecibosProveedor.Delete; + ARecibosProveedor.DataTable.ApplyUpdates; + HideHourglassCursor; + Result := True; + finally + HideHourglassCursor; + end; +end; + +function TRecibosProveedorController.EliminarPago(ARecibosProveedor: IBizRecibosProveedor): Boolean; +begin + Result := PagosController.Eliminar(ARecibosProveedor.Pagos); +end; + +function TRecibosProveedorController.EliminarTodo(ARecibosProveedor: IBizRecibosProveedor): Boolean; +begin + if Assigned(ARecibosProveedor) then + begin + if not ARecibosProveedor.DataTable.Active then + ARecibosProveedor.DataTable.Active := True; + ARecibosProveedor.DataTable.ClearRows; + ARecibosProveedor.DataTable.ApplyUpdates; + end; +end; + +procedure TRecibosProveedorController.RecuperarCliente( + AReciboProveedor: IBizRecibosProveedor); +begin + AReciboProveedor._Proveedor := (FClienteController.Buscar(AReciboProveedor.ID_PROVEEDOR) as IBizProveedor); +end; + +function TRecibosProveedorController.GetPagosController: IPagosProveedorController; +begin + Result := FPagosController; +end; + +procedure TRecibosProveedorController.SetPagosController(const Value: IPagosProveedorController); +begin + FPagosController := Value; +end; + +procedure TRecibosProveedorController.SetSituacionCobrados(ARecibos: IBizRecibosProveedor; WithDeltas: Boolean); +begin + if Assigned(ARecibos) then + begin + ARecibos.DataTable.DisableControls; + try + DesconectarTabla(ARecibos.DataTable); + with ARecibos.DataTable do + begin + First; + while not Eof do + begin + if not Editing then Edit; + ARecibos.SITUACION := CTE_PAGADO; + Post; + Next; + end; + First; + end; + finally + ConectarTabla(ARecibos.DataTable); + ARecibos.DataTable.EnableControls; + end; + end; +end; + +function TRecibosProveedorController.ImporteTotalModificado(ARecibosProveedor : IBizRecibosProveedor; var ImporteRestante: Currency) : Boolean; +//REPASAR +//var +// HayCambio: TDADeltaChange; +begin +{ + Result := False; + ImporteRestante := 0; + HayCambio := ARecibosProveedor.DataTable.Delta.FindChange(ARecibosProveedor.RecNo); + if (Assigned(HayCambio)) and + (HayCambio.OldValueByName[fld_RecibosProveedorIMPORTE] <> 0) then + begin + ImporteRestante := HayCambio.OldValueByName[fld_RecibosProveedorIMPORTE] - ARecibosProveedor.IMPORTE; + if ImporteRestante <> 0 then + Result := True; + end; +} +end; + +function TRecibosProveedorController.Guardar(ARecibosProveedor: IBizRecibosProveedor): Boolean; +var + NuevoID : Integer; + ANuevoReciboProveedor : IBizRecibosProveedor; + ImporteRestante : Currency; +begin + Result := False; + + ANuevoReciboProveedor := NIL; + ImporteRestante := 0; + + if ValidarReciboProveedor(ARecibosProveedor) then + begin + ShowHourglassCursor; + try + //Si el importe ha cambiado se debe hacer un recibo nuevo con el importe restante + if ImporteTotalModificado(ARecibosProveedor, ImporteRestante) then + begin + ANuevoReciboProveedor := Duplicar(ARecibosProveedor); + ANuevoReciboProveedor.Edit; + ANuevoReciboProveedor.REFERENCIA := DarNuevaReferencia(ARecibosProveedor.ID_FACTURA, ARecibosProveedor.REFERENCIA); + ANuevoReciboProveedor.IMPORTE := ImporteRestante; + ANuevoReciboProveedor.DESCRIPCION := 'RECIBO ' + ANuevoReciboProveedor.REFERENCIA + ' - ' + CifraToLetras(ImporteRestante); + ANuevoReciboProveedor.Post; + end; + + ARecibosProveedor.DataTable.ApplyUpdates; + + if Assigned(ANuevoReciboProveedor) then + ANuevoReciboProveedor.DataTable.ApplyUpdates; + + Result := True; + finally + ANuevoReciboProveedor := NIL; + HideHourglassCursor; + end; + end; +end; + +procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor); +var + AEditor : IEditorFechaPagoProveedor; + FechaPago: String; +begin + //Pedimos la fecha del pago + CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor); + if Assigned(AEditor) then + try + FechaPago:= ''; + if (AEditor.ShowModal = mrOk) then + FechaPago := DateToStr(AEditor.FechaPago); + AEditor.Release; + finally + AEditor := NIL; + end; + + if Length(FechaPago) > 0 then + PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago); +end; + +function TRecibosProveedorController.Nuevo: IBizRecibosProveedor; +var + ARecibo : IBizRecibosProveedor; +begin + ARecibo := Buscar(ID_NULO); + ARecibo.DataTable.Active := True; + Anadir(ARecibo); + Result := ARecibo; +end; + +function TRecibosProveedorController.ExtraerSeleccionados(ARecibosProveedor: IBizRecibosProveedor): IBizRecibosProveedor; +var + ASeleccionados : IBizRecibosProveedor; +begin + ASeleccionados := (Self.Buscar(ID_NULO) as IBizRecibosProveedor); + CopyDataTableDA3(ARecibosProveedor.DataTable, ASeleccionados.DataTable, True); + Result := ASeleccionados; +end; + +procedure TRecibosProveedorController.Preview(ARecibosProveedor: IBizRecibosProveedor); +var + AReportController : IRecibosProveedorReportController; +begin + AReportController := TRecibosProveedorReportController.Create; + try + AReportController.Preview(ARecibosProveedor.ID); + finally + AReportController := NIL; + end; +end; + +procedure TRecibosProveedorController.Print(ARecibosProveedor: IBizRecibosProveedor); +var + AReportController : IRecibosProveedorReportController; +begin + AReportController := TRecibosProveedorReportController.Create; + try + AReportController.Print(ARecibosProveedor.ID); + finally + AReportController := NIL; + end; +end; + +procedure TRecibosProveedorController.QuitarReciboCompensado(ARecibo: IBizRecibosProveedor); +var + IdRecibo: Variant; +begin + IdRecibo := ARecibo.RecibosCompensados.ID; + + ARecibo.RecibosCompensados.DataTable.First; + while ARecibo.RecibosCompensados.DataTable.Locate('ID', IdRecibo,[]) do + begin + ARecibo.RecibosCompensados.DataTable.Delete; + ARecibo.RecibosCompensados.DataTable.First; + end; +end; + +procedure TRecibosProveedorController.QuitarRemesa(ARecibos: IBizRecibosProveedor); +begin + if Assigned(ARecibos) then + begin + if ARecibos.Pagos.DataTable.RecordCount = 0 then + Exit; + + //Eliminamos el cobro generado por la remesa y quitamos el ID_REMESA del recibo + ARecibos.Pagos.DataTable.Last; + ARecibos.Pagos.Delete; + + ARecibos.DataTable.Edit; + ARecibos.ID_REMESA := 0; + ARecibos.DataTable.Post; + end; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.dcu b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.dcu new file mode 100644 index 00000000..241d67c2 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas new file mode 100644 index 00000000..3f3a0122 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorReportController.pas @@ -0,0 +1,103 @@ +unit uRecibosProveedorReportController; + +interface + +uses + Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRecibosProveedorReport, + uBizRecibosProveedor; + +type + IRecibosProveedorReportController = interface + ['{33009D46-9B5C-4255-AC5E-8AA93A1DDB7B}'] + procedure Preview(const ID : integer); + procedure Print(const ID : integer); + end; + + TRecibosProveedorReportController = class(TInterfacedObject, IRecibosProveedorReportController) + private + FDataModule : IDataModuleRecibosProveedorReport; + function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; + public + constructor Create; + destructor Destroy; override; + + procedure Preview(const ID : integer); + procedure Print(const ID : integer); + end; + + +implementation + +uses + uROTypes, uEditorRegistryUtils, uIEditorRecibosProveedorPreview, + uEditorPreview, uDataModuleRecibosProveedor, uEditorBase, cxControls; + +{ TRecibosProveedorReportController } + +constructor TRecibosProveedorReportController.Create; +begin + FDataModule := TDataModuleRecibosProveedor.Create(Nil); +end; + +function TRecibosProveedorReportController.CreateEditor(const AName: String; + const IID: TGUID; out Intf): Boolean; +begin + Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); +end; + + +destructor TRecibosProveedorReportController.Destroy; +begin + FDataModule := NIL; + inherited; +end; + +procedure TRecibosProveedorReportController.Preview(const ID : integer); +var + AStream: Binary; + AEditor : IEditorRecibosProveedorPreview; +begin + AEditor := NIL; + + ShowHourglassCursor; + try + AStream := FDataModule.GetReport(ID); + try + CreateEditor('EditorRecibosProveedorPreview', IEditorRecibosProveedorPreview, AEditor); + AEditor.LoadFromStream(AStream); + finally + AStream.Free; + end; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + AEditor.Preview; +end; + +procedure TRecibosProveedorReportController.Print(const ID : integer); +var + AStream: Binary; + AEditor : IEditorRecibosProveedorPreview; +begin + AEditor := NIL; + + ShowHourglassCursor; + try + AStream := FDataModule.GetReport(ID); + try + CreateEditor('EditorRecibosProveedorPreview', IEditorRecibosProveedorPreview, AEditor); + AEditor.LoadFromStream(AStream); + finally + AStream.Free; + end; + finally + HideHourglassCursor; + end; + + if Assigned(AEditor) then + AEditor.Print +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Controller/uroCipher1.dcu b/Source/Modulos/Recibos de proveedor/Controller/uroCipher1.dcu new file mode 100644 index 00000000..6fa52122 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Controller/uroCipher1.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/DataAbstract3_Intf.dcu b/Source/Modulos/Recibos de proveedor/Data/DataAbstract3_Intf.dcu new file mode 100644 index 00000000..d0a8117b Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/DataAbstract3_Intf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/DataAbstract4_Intf.dcu b/Source/Modulos/Recibos de proveedor/Data/DataAbstract4_Intf.dcu new file mode 100644 index 00000000..c72137d3 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/DataAbstract4_Intf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.bdsproj b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.bdsproj new file mode 100644 index 00000000..b0d0ac6f --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.bdsproj @@ -0,0 +1,492 @@ + + + + + + + + + + + + RecibosProveedor_data.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dcu b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dcu new file mode 100644 index 00000000..0d6f2830 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dpk b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dpk new file mode 100644 index 00000000..31f137ab --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dpk @@ -0,0 +1,35 @@ +package RecibosProveedor_data; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} + +requires + Base, + Contactos_model, + RecibosProveedor_model; + +contains + uDataModuleRecibosProveedor in 'uDataModuleRecibosProveedor.pas'; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj new file mode 100644 index 00000000..4d398c56 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj @@ -0,0 +1,540 @@ + + + + {f10782d8-a2a3-45bb-9ae0-98f0b23968fc} + RecibosProveedor_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RecibosProveedor_data.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0RecibosProveedor_data.dpk + + + + + MainSource + + + + + + + + diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc new file mode 100644 index 00000000..d7cf6666 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc @@ -0,0 +1,17 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de proveedor\Data\uDataModuleRecibosProveedor.DFM */ +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de proveedor\Data\RecibosProveedor_data.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de proveedor\Data\RecibosProveedor_data.drf */ diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.identcache b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.identcache new file mode 100644 index 00000000..57ec564a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.identcache differ diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.rc b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.res b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.res differ diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_model.dcu b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_model.dcu new file mode 100644 index 00000000..849851ba Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_model.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/schRecibosProveedorClient_Intf.dcu b/Source/Modulos/Recibos de proveedor/Data/schRecibosProveedorClient_Intf.dcu new file mode 100644 index 00000000..f5f55a64 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/schRecibosProveedorClient_Intf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uBizPagosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Data/uBizPagosProveedor.dcu new file mode 100644 index 00000000..0fd56564 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uBizPagosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uBizRecibosProvCompensados.dcu b/Source/Modulos/Recibos de proveedor/Data/uBizRecibosProvCompensados.dcu new file mode 100644 index 00000000..6864d6a9 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uBizRecibosProvCompensados.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uBizRecibosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Data/uBizRecibosProveedor.dcu new file mode 100644 index 00000000..5b8dd3ed Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uBizRecibosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDABINAdapter.dcu b/Source/Modulos/Recibos de proveedor/Data/uDABINAdapter.dcu new file mode 100644 index 00000000..151c1218 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDABINAdapter.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDABusinessProcessor.dcu b/Source/Modulos/Recibos de proveedor/Data/uDABusinessProcessor.dcu new file mode 100644 index 00000000..08f70ee2 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDABusinessProcessor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDACDSDataTable.dcu b/Source/Modulos/Recibos de proveedor/Data/uDACDSDataTable.dcu new file mode 100644 index 00000000..d4ee5643 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDACDSDataTable.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAClasses.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAClasses.dcu new file mode 100644 index 00000000..e2fb2e96 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAClasses.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAClientDataModule.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAClientDataModule.dcu new file mode 100644 index 00000000..59701012 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAClientDataModule.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDADataStreamer.dcu b/Source/Modulos/Recibos de proveedor/Data/uDADataStreamer.dcu new file mode 100644 index 00000000..cb9caa77 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDADataStreamer.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDADataTable.dcu b/Source/Modulos/Recibos de proveedor/Data/uDADataTable.dcu new file mode 100644 index 00000000..4a1c1766 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDADataTable.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDADelta.dcu b/Source/Modulos/Recibos de proveedor/Data/uDADelta.dcu new file mode 100644 index 00000000..30384115 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDADelta.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDADesigntimeCall.dcu b/Source/Modulos/Recibos de proveedor/Data/uDADesigntimeCall.dcu new file mode 100644 index 00000000..fa130621 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDADesigntimeCall.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDADriverManager.dcu b/Source/Modulos/Recibos de proveedor/Data/uDADriverManager.dcu new file mode 100644 index 00000000..5600f7bc Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDADriverManager.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAEngine.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAEngine.dcu new file mode 100644 index 00000000..4f1151db Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAEngine.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAExpressionEvaluator.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAExpressionEvaluator.dcu new file mode 100644 index 00000000..ec279f66 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAExpressionEvaluator.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAHelpers.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAHelpers.dcu new file mode 100644 index 00000000..426f855e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAHelpers.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAInterfaces.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAInterfaces.dcu new file mode 100644 index 00000000..f86cc2b8 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAInterfaces.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAInterfacesEx.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAInterfacesEx.dcu new file mode 100644 index 00000000..5df3ca83 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAInterfacesEx.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAMacroProcessors.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAMacroProcessors.dcu new file mode 100644 index 00000000..a1425d7d Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAMacroProcessors.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAMacros.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAMacros.dcu new file mode 100644 index 00000000..d8327276 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAMacros.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAMemDataTable.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAMemDataTable.dcu new file mode 100644 index 00000000..f8433f11 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAMemDataTable.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAMemDataset.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAMemDataset.dcu new file mode 100644 index 00000000..b036f0ca Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAMemDataset.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAOracleInterfaces.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAOracleInterfaces.dcu new file mode 100644 index 00000000..956e5f72 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAOracleInterfaces.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDARegExpr.dcu b/Source/Modulos/Recibos de proveedor/Data/uDARegExpr.dcu new file mode 100644 index 00000000..9fd7e705 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDARegExpr.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDARes.dcu b/Source/Modulos/Recibos de proveedor/Data/uDARes.dcu new file mode 100644 index 00000000..793730d4 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDARes.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDASQL92Interfaces.dcu b/Source/Modulos/Recibos de proveedor/Data/uDASQL92Interfaces.dcu new file mode 100644 index 00000000..a0860770 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDASQL92Interfaces.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDASQL92QueryBuilder.dcu b/Source/Modulos/Recibos de proveedor/Data/uDASQL92QueryBuilder.dcu new file mode 100644 index 00000000..92cb9c85 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDASQL92QueryBuilder.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAScriptingProvider.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAScriptingProvider.dcu new file mode 100644 index 00000000..a9345965 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAScriptingProvider.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDASupportClasses.dcu b/Source/Modulos/Recibos de proveedor/Data/uDASupportClasses.dcu new file mode 100644 index 00000000..64c35fe8 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDASupportClasses.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAUtils.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAUtils.dcu new file mode 100644 index 00000000..68473b5c Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAUtils.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAWhere.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAWhere.dcu new file mode 100644 index 00000000..cf63e72a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAWhere.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDAXMLUtils.dcu b/Source/Modulos/Recibos de proveedor/Data/uDAXMLUtils.dcu new file mode 100644 index 00000000..7074d77d Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDAXMLUtils.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dcu new file mode 100644 index 00000000..5fc5386f Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm new file mode 100644 index 00000000..603e8f16 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm @@ -0,0 +1,505 @@ +inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor + OnCreate = DAClientDataModuleCreate + Height = 255 + Width = 518 + object RORemoteService: TRORemoteService + Message = dmConexion.ROMessage + Channel = dmConexion.ROChannel + ServiceName = 'srvRecibosProveedor' + Left = 56 + Top = 24 + end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 84 + end + object rda_RecibosProveedor: TDARemoteDataAdapter + GetSchemaCall.RemoteService = RORemoteService + GetDataCall.RemoteService = RORemoteService + UpdateDataCall.RemoteService = RORemoteService + GetScriptsCall.RemoteService = RORemoteService + RemoteService = RORemoteService + DataStreamer = Bin2DataStreamer + Left = 51 + Top = 151 + end + object tbl_PagosProveedor: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_PAGOS_PROVEEDOR_ID' + Required = True + DictionaryEntry = 'PagosProveedor_ID' + InPrimaryKey = True + end + item + Name = 'ID_RECIBO' + DataType = datInteger + DisplayLabel = 'PagosCliente_ID_RECIBO' + DictionaryEntry = 'PagosProveedor_ID_RECIBO' + end + item + Name = 'TIPO' + DataType = datString + Size = 255 + DisplayLabel = 'PagosCliente_TIPO' + DictionaryEntry = 'PagosProveedor_TIPO' + end + item + Name = 'FECHA_PAGO' + DataType = datDateTime + DisplayLabel = 'PagosCliente_FECHA_PAGO' + DictionaryEntry = 'PagosProveedor_FECHA_PAGO' + end + item + Name = 'TITULAR' + DataType = datString + Size = 255 + DisplayLabel = 'PagosCliente_TITULAR' + DictionaryEntry = 'PagosProveedor_TITULAR' + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + DisplayLabel = 'PagosCliente_ENTIDAD' + DictionaryEntry = 'PagosProveedor_ENTIDAD' + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + DisplayLabel = 'PagosCliente_SUCURSAL' + DictionaryEntry = 'PagosProveedor_SUCURSAL' + end + item + Name = 'DC' + DataType = datString + Size = 15 + DisplayLabel = 'PagosCliente_DC' + DictionaryEntry = 'PagosProveedor_DC' + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + DisplayLabel = 'PagosCliente_CUENTA' + DictionaryEntry = 'PagosProveedor_CUENTA' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + DisplayLabel = 'PagosCliente_FECHA_ALTA' + DictionaryEntry = 'PagosProveedor_FECHA_ALTA' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + DisplayLabel = 'PagosCliente_FECHA_MODIFICACION' + DictionaryEntry = 'PagosProveedor_FECHA_MODIFICACION' + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DisplayLabel = 'PagosCliente_USUARIO' + DictionaryEntry = 'PagosProveedor_USUARIO' + end> + Params = <> + MasterMappingMode = mmWhere + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_RecibosProveedor + MasterSource = ds_RecibosProveedor + MasterFields = 'ID' + DetailFields = 'ID_RECIBO' + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'PagosProveedor' + IndexDefs = <> + Left = 280 + Top = 104 + end + object ds_PagosProveedor: TDADataSource + DataSet = tbl_PagosProveedor.Dataset + DataTable = tbl_PagosProveedor + Left = 280 + Top = 48 + end + object tbl_RecibosCompensadosProv: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + Required = True + ServerAutoRefresh = True + InPrimaryKey = True + end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + end + item + Name = 'REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + end + item + Name = 'ID_FACTURA' + DataType = datInteger + end + item + Name = 'ID_REMESA' + DataType = datInteger + end + item + Name = 'REFERENCIA_REMESA' + DataType = datString + Size = 255 + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 + end + item + Name = 'IMPORTE' + DataType = datCurrency + end + item + Name = 'OTROS_GASTOS' + DataType = datCurrency + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end + item + Name = 'REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + end + item + Name = 'FORMA_PAGO_FACTURA' + DataType = datString + Size = 255 + end + item + Name = 'IMPORTE_FACTURA' + DataType = datCurrency + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + end + item + Name = 'NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + end + item + Name = 'NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'ENTIDAD_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'SUCURSAL_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'DC_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'CUENTA_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + end> + Params = <> + MasterMappingMode = mmWhere + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_RecibosProveedor + MasterSource = ds_RecibosProveedor + MasterFields = 'ID' + DetailFields = 'ID_RECIBO_COMPENSADO' + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'RecibosCompensadosProv' + IndexDefs = <> + Left = 416 + Top = 104 + end + object ds_RecibosCompensadosProv: TDADataSource + DataSet = tbl_RecibosCompensadosProv.Dataset + DataTable = tbl_RecibosCompensadosProv + Left = 416 + Top = 48 + end + object tbl_RecibosProveedor: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID' + Required = True + DictionaryEntry = 'RecibosProveedor_ID' + InPrimaryKey = True + end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + DisplayLabel = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + DictionaryEntry = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + end + item + Name = 'REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + DisplayLabel = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_REFERENCIA' + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_REFERENCIA_PROVEEDOR' + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + DictionaryEntry = 'RecibosProveedor_SITUACION' + end + item + Name = 'ID_FACTURA' + DataType = datInteger + DictionaryEntry = 'RecibosProveedor_ID_FACTURA' + end + item + Name = 'ID_REMESA' + DataType = datInteger + DictionaryEntry = 'RecibosProveedor_ID_REMESA' + end + item + Name = 'REFERENCIA_REMESA' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REMESA' + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + DisplayLabel = 'RecibosCliente_FECHA_EMISION' + DictionaryEntry = 'RecibosProveedor_FECHA_EMISION' + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + DictionaryEntry = 'RecibosProveedor_FECHA_VENCIMIENTO' + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_DESCRIPCION' + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_OBSERVACIONES' + end + item + Name = 'IMPORTE' + DataType = datCurrency + Alignment = taRightJustify + DictionaryEntry = 'RecibosProveedor_IMPORTE' + end + item + Name = 'OTROS_GASTOS' + DataType = datCurrency + DisplayLabel = 'RecibosCliente_OTROS_GASTOS' + Alignment = taRightJustify + DictionaryEntry = 'RecibosProveedor_OTROS_GASTOS' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + Alignment = taRightJustify + DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL' + end + item + Name = 'REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + DisplayLabel = 'Ref. factura prov.' + DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV' + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA' + end + item + Name = 'FORMA_PAGO_FACTURA' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA' + end + item + Name = 'IMPORTE_FACTURA' + DataType = datCurrency + Alignment = taRightJustify + DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA' + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'RecibosProveedor_ID_EMPRESA' + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + DisplayLabel = 'RecibosProveedor_ID_PROVEEDOR' + DictionaryEntry = 'RecibosProveedor_ID_PROVEEDOR' + end + item + Name = 'NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + DisplayLabel = 'RecibosProveedor_NOMBRE_PROVEEDOR' + DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR' + end + item + Name = 'NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR' + DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR' + end + item + Name = 'ENTIDAD_PROVEEDOR' + DataType = datString + Size = 15 + DisplayLabel = 'RecibosProveedor_ENTIDAD_PROVEEDOR' + DictionaryEntry = 'RecibosProveedor_ENTIDAD_PROVEEDOR' + end + item + Name = 'SUCURSAL_PROVEEDOR' + DataType = datString + Size = 15 + DisplayLabel = 'RecibosProveedor_SUCURSAL_PROVEEDOR' + DictionaryEntry = 'RecibosProveedor_SUCURSAL_PROVEEDOR' + end + item + Name = 'DC_PROVEEDOR' + DataType = datString + Size = 15 + DisplayLabel = 'RecibosProveedor_DC_PROVEEDOR' + DictionaryEntry = 'RecibosProveedor_DC_PROVEEDOR' + end + item + Name = 'CUENTA_PROVEEDOR' + DataType = datString + Size = 15 + DisplayLabel = 'RecibosProveedor_CUENTA_PROVEEDOR' + DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + DictionaryEntry = 'RecibosProveedor_FECHA_ALTA' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + DictionaryEntry = 'RecibosProveedor_FECHA_MODIFICACION' + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DictionaryEntry = 'RecibosCliente_USUARIO' + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_RecibosProveedor + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'RecibosProveedor' + IndexDefs = <> + Left = 160 + Top = 104 + end + object ds_RecibosProveedor: TDADataSource + DataSet = tbl_RecibosProveedor.Dataset + DataTable = tbl_RecibosProveedor + Left = 160 + Top = 48 + end +end diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm.bak b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm.bak new file mode 100644 index 00000000..3eda0753 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm.bak @@ -0,0 +1,1133 @@ +object DataModuleRecibosProveedor: TDataModuleRecibosProveedor + OldCreateOrder = True + OnCreate = DAClientDataModuleCreate + RemoteService = RORemoteService + Adapter = DABinAdapter + SchemaCall.MethodName = 'GetSchemaAsXML' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + end> + Height = 414 + Width = 518 + object RORemoteService: TRORemoteService + ServiceName = 'srvRecibosProveedor' + Message = ROBinMessage1 + Channel = ROWinInetHTTPChannel1 + Left = 48 + Top = 24 + end + object DABinAdapter: TDABINAdapter + Left = 48 + Top = 80 + end + object DADesigntimeCall1: TDADesigntimeCall + RemoteRequest.MethodName = 'Login' + RemoteRequest.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBoolean + end + item + Name = 'User' + ParamType = fIn + DataType = rtString + Value = 'Administrador' + end + item + Name = 'Password' + ParamType = fIn + DataType = rtString + Value = '1' + end + item + Name = 'LoginInfo' + ParamType = fOut + DataType = rtUserDefined + UserClassName = 'TRdxLoginInfo' + end> + RemoteService = LoginRemoteService + Left = 48 + Top = 160 + end + object LoginRemoteService: TRORemoteService + ServiceName = 'srvLogin' + Message = ROBinMessage1 + Channel = ROWinInetHTTPChannel1 + Left = 48 + Top = 216 + end + object ROWinInetHTTPChannel1: TROWinInetHTTPChannel + ServerLocators = <> + DispatchOptions = [] + ProbeServers = False + ProbeFrequency = 60000 + UserAgent = 'RemObjects SDK' + TargetURL = 'http://localhost:8090/bin' + Left = 48 + Top = 272 + end + object ROBinMessage1: TROBinMessage + Left = 48 + Top = 324 + end + object tbl_PagosProveedor: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_ID' + InPrimaryKey = True + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_RECIBO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_ID_RECIBO' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_ID_RECIBO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TIPO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_TIPO' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_TIPO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_PAGO' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_FECHA_PAGO' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_FECHA_PAGO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TITULAR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_TITULAR' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_TITULAR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_ENTIDAD' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_ENTIDAD' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_SUCURSAL' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_SUCURSAL' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DC' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_DC' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_DC' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_CUENTA' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_CUENTA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_FECHA_ALTA' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_FECHA_ALTA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_FECHA_MODIFICACION' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_FECHA_MODIFICACION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'PagosCliente_USUARIO' + Alignment = taLeftJustify + DictionaryEntry = 'PagosProveedor_USUARIO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + Params = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + MasterMappingMode = mmParams + MasterParamsMappings.Strings = ( + 'ID=ID') + StreamingOptions = [soDisableEventsWhileStreaming] + SchemaCall.MethodName = 'GetDatasetSchema' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'aDatasetName' + ParamType = fIn + DataType = rtString + Value = 'PagosProveedor' + end> + DataRequestCall.MethodName = 'GetDatasetDataEx' + DataRequestCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'DatasetName' + ParamType = fIn + DataType = rtString + Value = 'PagosProveedor' + end + item + Name = 'Params' + ParamType = fIn + DataType = rtUserDefined + UserClassName = 'TDADatasetParamArray' + end + item + Name = 'UserFilter' + ParamType = fIn + DataType = rtString + Value = '' + end + item + Name = 'IncludeSchema' + ParamType = fIn + DataType = rtBoolean + Value = False + end + item + Name = 'MaxRecords' + ParamType = fIn + DataType = rtInteger + Value = -1 + end> + DataUpdateCall.MethodName = 'UpdateData' + DataUpdateCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'Delta' + ParamType = fIn + DataType = rtBinary + end> + ScriptCall.MethodName = 'GetDatasetScripts' + ScriptCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + Value = '' + end + item + Name = 'DatasetNames' + ParamType = fIn + DataType = rtString + Value = 'PagosProveedor' + end> + ReadOnly = False + RemoteService = RORemoteService + Adapter = DABinAdapter + MasterSource = ds_RecibosProveedor + MasterFields = 'ID' + DetailFields = 'ID_RECIBO' + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'PagosProveedor' + IndexDefs = <> + Left = 416 + Top = 200 + end + object ds_PagosProveedor: TDADataSource + DataTable = tbl_PagosProveedor + Left = 416 + Top = 136 + end + object tbl_RecibosProveedor: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_ID' + InPrimaryKey = True + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_SITUACION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_ID_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_REMESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_ID_REMESA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_REMESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REMESA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosCliente_FECHA_EMISION' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_FECHA_EMISION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_FECHA_VENCIMIENTO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_DESCRIPCION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_OBSERVACIONES' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taRightJustify + DictionaryEntry = 'RecibosProveedor_IMPORTE' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OTROS_GASTOS' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosCliente_OTROS_GASTOS' + Alignment = taRightJustify + DictionaryEntry = 'RecibosProveedor_OTROS_GASTOS' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taRightJustify + DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Ref. factura prov.' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FORMA_PAGO_FACTURA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_FACTURA' + DataType = datCurrency + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taRightJustify + DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_ID_PROVEEDOR' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_ID_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_NOMBRE_PROVEEDOR' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ENTIDAD_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_ENTIDAD_PROVEEDOR' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_ENTIDAD_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SUCURSAL_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_SUCURSAL_PROVEEDOR' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_SUCURSAL_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DC_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_DC_PROVEEDOR' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_DC_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CUENTA_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'RecibosProveedor_CUENTA_PROVEEDOR' + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_ID_EMPRESA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_FECHA_ALTA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosProveedor_FECHA_MODIFICACION' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + DictionaryEntry = 'RecibosCliente_USUARIO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + Params = <> + MasterMappingMode = mmDataRequest + StreamingOptions = [soDisableEventsWhileStreaming] + SchemaCall.MethodName = 'GetDatasetSchema' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'aDatasetName' + ParamType = fIn + DataType = rtString + Value = 'RecibosProveedor' + end> + DataRequestCall.MethodName = 'GetDatasetDataEx' + DataRequestCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'DatasetName' + ParamType = fIn + DataType = rtString + Value = 'RecibosProveedor' + end + item + Name = 'Params' + ParamType = fIn + DataType = rtUserDefined + UserClassName = 'TDADatasetParamArray' + end + item + Name = 'UserFilter' + ParamType = fIn + DataType = rtString + Value = '' + end + item + Name = 'IncludeSchema' + ParamType = fIn + DataType = rtBoolean + Value = False + end + item + Name = 'MaxRecords' + ParamType = fIn + DataType = rtInteger + Value = -1 + end> + DataUpdateCall.MethodName = 'UpdateData' + DataUpdateCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'Delta' + ParamType = fIn + DataType = rtBinary + end> + ScriptCall.MethodName = 'GetDatasetScripts' + ScriptCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + Value = '' + end + item + Name = 'DatasetNames' + ParamType = fIn + DataType = rtString + Value = 'RecibosProveedor' + end> + ReadOnly = False + RemoteService = RORemoteService + Adapter = DABinAdapter + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'RecibosProveedor' + IndexDefs = <> + Left = 232 + Top = 200 + end + object ds_RecibosProveedor: TDADataSource + DataTable = tbl_RecibosProveedor + Left = 232 + Top = 136 + end + object tbl_RecibosCompensadosProv: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OTROS_GASTOS' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_FACTURA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + Params = < + item + Name = 'ID' + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + MasterMappingMode = mmParams + MasterParamsMappings.Strings = ( + 'ID=ID') + StreamingOptions = [soDisableEventsWhileStreaming] + SchemaCall.MethodName = 'GetDatasetSchema' + SchemaCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'aDatasetName' + ParamType = fIn + DataType = rtString + Value = 'RecibosCompensadosProv' + end> + DataRequestCall.MethodName = 'GetDatasetDataEx' + DataRequestCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'DatasetName' + ParamType = fIn + DataType = rtString + Value = 'RecibosCompensadosProv' + end + item + Name = 'Params' + ParamType = fIn + DataType = rtUserDefined + UserClassName = 'TDADatasetParamArray' + end + item + Name = 'UserFilter' + ParamType = fIn + DataType = rtString + Value = '' + end + item + Name = 'IncludeSchema' + ParamType = fIn + DataType = rtBoolean + Value = False + end + item + Name = 'MaxRecords' + ParamType = fIn + DataType = rtInteger + Value = -1 + end> + DataUpdateCall.MethodName = 'UpdateData' + DataUpdateCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtBinary + end + item + Name = 'Delta' + ParamType = fIn + DataType = rtBinary + end> + ScriptCall.MethodName = 'GetDatasetScripts' + ScriptCall.Params = < + item + Name = 'Result' + ParamType = fResult + DataType = rtString + Value = '' + end + item + Name = 'DatasetNames' + ParamType = fIn + DataType = rtString + Value = 'RecibosCompensadosProv' + end> + ReadOnly = False + RemoteService = RORemoteService + Adapter = DABinAdapter + MasterSource = ds_RecibosProveedor + MasterFields = 'ID' + DetailFields = 'ID_RECIBO_COMPENSADO' + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'RecibosCompensadosProv' + IndexDefs = <> + Left = 320 + Top = 312 + end + object ds_RecibosCompensadosProv: TDADataSource + DataTable = tbl_RecibosCompensadosProv + Left = 320 + Top = 256 + end +end diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas new file mode 100644 index 00000000..babe3ab1 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas @@ -0,0 +1,170 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uDataModuleRecibosProveedor; + +interface + +uses +// uDAClientDataModule, uDACDSDataTable, uROServiceComponent, + SysUtils, Classes, DB, uDADataTable, uDABINAdapter, + uDAScriptingProvider, uROWinInetHttpChannel, uROTypes, + uRORemoteService, uROClient, uROBinMessage, + uDADesigntimeCall, uDataModuleBase, + + uIDataModuleRecibosProveedor, uIDataModuleRecibosProveedorReport, + uBizRecibosProveedor, uBizPagosProveedor, uBizRecibosProvCompensados, + uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable; + +type + TDataModuleRecibosProveedor = class(TDataModuleBase, IDataModuleRecibosProveedor, IDataModuleRecibosProveedorReport) + RORemoteService: TRORemoteService; + Bin2DataStreamer: TDABin2DataStreamer; + rda_RecibosProveedor: TDARemoteDataAdapter; + tbl_PagosProveedor: TDAMemDataTable; + ds_PagosProveedor: TDADataSource; + tbl_RecibosCompensadosProv: TDAMemDataTable; + ds_RecibosCompensadosProv: TDADataSource; + tbl_RecibosProveedor: TDAMemDataTable; + ds_RecibosProveedor: TDADataSource; + procedure DAClientDataModuleCreate(Sender: TObject); + protected + function _GetPagos: IBizPagosProveedor; + function _GetRecibosCompensados : IBizRecibosCompensadosProv; + public + function GetItems: IBizRecibosProveedor; + function GetItem(const ID : Integer) : IBizRecibosProveedor; + function NewItem : IBizRecibosProveedor; + function GetReport(const ID: Integer): Binary; + + end; + +implementation + +{$R *.DFM} + +uses + FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, + schRecibosProveedorClient_Intf; + +{ TDataModuleRecibosProveedor } + + +function TDataModuleRecibosProveedor.GetReport(const ID: Integer): Binary; +begin +// Result := (RORemoteService as IsrvRecibosProveedor).GenerateReport(ID); +end; + +procedure TDataModuleRecibosProveedor.DAClientDataModuleCreate(Sender: TObject); +begin + RORemoteService.Channel := dmConexion.Channel; + RORemoteService.Message := dmConexion.Message; +end; + +function TDataModuleRecibosProveedor._GetPagos: IBizPagosProveedor; +var + APagos : TDAMemDataTable; +begin + ShowHourglassCursor; + try + APagos := CloneDataTable(tbl_PagosProveedor); + with APagos do + begin + BusinessRulesID := BIZ_CLIENT_IBIZPAGOSPROVEEDOR; + DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; + end; + Result := (APagos as IBizPagosProveedor); + finally + HideHourglassCursor; + end; +end; + +function TDataModuleRecibosProveedor._GetRecibosCompensados: IBizRecibosCompensadosProv; +var + ARecibosCompensados : TDAMemDataTable; +begin + ShowHourglassCursor; + try + ARecibosCompensados := CloneDataTable(tbl_RecibosCompensadosProv); + with ARecibosCompensados do + begin + BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSPROV; + DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; + end; + Result := (ARecibosCompensados as IBizRecibosCompensadosProv); + finally + HideHourglassCursor; + end; +end; + +function TDataModuleRecibosProveedor.GetItems: IBizRecibosProveedor; +var + AIBizRecibosProveedor : TDAMemDataTable; +begin + ShowHourglassCursor; + try + AIBizRecibosProveedor := CloneDataTable(tbl_RecibosProveedor); + AIBizRecibosProveedor.BusinessRulesID := BIZ_CLIENT_IBizRecibosProveedor; + + with TBizRecibosProveedor(AIBizRecibosProveedor.BusinessEventsObj) do + Pagos := _GetPagos; + + with TBizRecibosProveedor(AIBizRecibosProveedor.BusinessEventsObj) do + RecibosCompensados := _GetRecibosCompensados; + + Result := (AIBizRecibosProveedor as IBizRecibosProveedor); + finally + HideHourglassCursor; + end; +end; + +function TDataModuleRecibosProveedor.NewItem: IBizRecibosProveedor; +begin + Result := GetItem(ID_NULO) +end; + +function TDataModuleRecibosProveedor.GetItem(const ID: Integer): IBizRecibosProveedor; +var + Condicion: TDAWhereExpression; +begin + ShowHourglassCursor; + try + Result := Self.GetItems; + + with Result.DataTable.DynamicWhere do + begin + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + + finally + HideHourglassCursor; + end; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas.bak b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas.bak new file mode 100644 index 00000000..c4103d0c --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.pas.bak @@ -0,0 +1,198 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uDataModuleRecibosProveedor; + +interface + +uses + SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter, + uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, + uROServiceComponent, uRORemoteService, uROClient, uROBinMessage, + uDADesigntimeCall, + + uIDataModuleRecibosProveedor, uIDataModuleRecibosProveedorReport, + uBizRecibosProveedor, uBizPagosProveedor; + +type + TDataModuleRecibosProveedor = class(TDAClientDataModule, IDataModuleRecibosProveedor, IDataModuleRecibosProveedorReport) + RORemoteService: TRORemoteService; + DABinAdapter: TDABINAdapter; + DADesigntimeCall1: TDADesigntimeCall; + LoginRemoteService: TRORemoteService; + ROWinInetHTTPChannel1: TROWinInetHTTPChannel; + ROBinMessage1: TROBinMessage; + tbl_PagosProveedor: TDACDSDataTable; + ds_PagosProveedor: TDADataSource; + tbl_RecibosProveedor: TDACDSDataTable; + ds_RecibosProveedor: TDADataSource; + tbl_RecibosCompensadosProv: TDACDSDataTable; + ds_RecibosCompensadosProv: TDADataSource; + procedure DAClientDataModuleCreate(Sender: TObject); + protected + function DarNombreGenerador(DataSetName: String): String; virtual; + function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload; + function _GetPagos: IBizPagosProveedor; + function _GetRecibosCompensados : IBizRecibosCompensadosProv; + public + function GetNextID(const DataSetName : String) : Integer; + function GetItems: IBizRecibosProveedor; + function GetItem(const ID : Integer) : IBizRecibosProveedor; + function NewItem : IBizRecibosProveedor; + function GetReport(const ID: Integer): Binary; + + end; + +implementation + +{$R *.DFM} + +uses + FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, + schRecibosProveedorClient_Intf; + +{ TDataModuleRecibosProveedor } + + +function TDataModuleRecibosProveedor.GetReport(const ID: Integer): Binary; +begin + Result := (RORemoteService as IsrvRecibosProveedor).GenerateReport(ID); +end; + +procedure TDataModuleRecibosProveedor.DAClientDataModuleCreate(Sender: TObject); +begin + RORemoteService.Channel := dmConexion.Channel; + RORemoteService.Message := dmConexion.Message; +end; + +function TDataModuleRecibosProveedor.DarNombreGenerador(DataSetName: String): String; +begin + Result := ''; + if DataSetName = nme_RecibosProveedor then + Result := 'GEN_RECIBOS_PROVEEDOR_ID'; + if DataSetName = nme_PagosProveedor then + Result := 'GEN_PAGOS_PROVEEDOR_ID' +end; + +function TDataModuleRecibosProveedor.GetNextID(const DataSetName: String): Integer; +var + aGeneratorName : String; +begin + aGeneratorName := DarNombreGenerador(DataSetName); + Result := (RORemoteService as IsrvRecibosProveedor).GetNextAutoInc(aGeneratorName) +end; + +function TDataModuleRecibosProveedor._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable; +begin + Result := NIL; + + if not Assigned(ADataTable) then + raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)'); + + Result := TDACDSDataTable.Create(NIL); + CloneDataTable(ADataTable, Result); +end; + +function TDataModuleRecibosProveedor._GetPagos: IBizPagosProveedor; +var + APagos : TDACDSDataTable; +begin + ShowHourglassCursor; + try + APagos := _CloneDataTable(tbl_PagosProveedor); + with APagos do + begin + BusinessRulesID := BIZ_CLIENT_IBIZPAGOSPROVEEDOR; + DetailOptions := DetailOptions - + [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; + end; + Result := (APagos as IBizPagosProveedor); + finally + HideHourglassCursor; + end; +end; + +function TDataModuleRecibosProveedor._GetRecibosCompensados: IBizRecibosCompensadosProv; +var + ARecibosCompensados : TDACDSDataTable; +begin + ShowHourglassCursor; + try + ARecibosCompensados := _CloneDataTable(tbl_RecibosCompensadosProv); + with ARecibosCompensados do + begin + BusinessRulesID := BIZ_CLIENT_RECIBOS_COMPENSADOSPROV; + DetailOptions := DetailOptions - + [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; + end; + Result := (ARecibosCompensados as IBizRecibosCompensadosProv); + finally + HideHourglassCursor; + end; +end; + +function TDataModuleRecibosProveedor.GetItems: IBizRecibosProveedor; +var + AIBizRecibosProveedor : TDACDSDataTable; +begin + ShowHourglassCursor; + try + AIBizRecibosProveedor := _CloneDataTable(tbl_RecibosProveedor); + AIBizRecibosProveedor.BusinessRulesID := BIZ_CLIENT_IBizRecibosProveedor; + + with TBizRecibosProveedor(AIBizRecibosProveedor.BusinessEventsObj) do + Pagos := _GetPagos; + + with TBizRecibosProveedor(AIBizRecibosProveedor.BusinessEventsObj) do + RecibosCompensados := _GetRecibosCompensados; + + Result := (AIBizRecibosProveedor as IBizRecibosProveedor); + finally + HideHourglassCursor; + end; +end; + +function TDataModuleRecibosProveedor.NewItem: IBizRecibosProveedor; +begin + Result := GetItem(ID_NULO) +end; + +function TDataModuleRecibosProveedor.GetItem(const ID: Integer): IBizRecibosProveedor; +begin + ShowHourglassCursor; + try + Result := Self.GetItems; + with Result.DataTable.Where do + begin + if NotEmpty then + AddOperator(opAND); + OpenBraket; + AddText(fld_RecibosProveedorID + ' = ' + IntToStr(ID)); + CloseBraket; + end; + finally + HideHourglassCursor; + end; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Data/uROBinMessage.dcu b/Source/Modulos/Recibos de proveedor/Data/uROBinMessage.dcu new file mode 100644 index 00000000..19f2ccc1 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROBinMessage.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROBinaryHelpers.dcu b/Source/Modulos/Recibos de proveedor/Data/uROBinaryHelpers.dcu new file mode 100644 index 00000000..e7158084 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROBinaryHelpers.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROCipher.dcu b/Source/Modulos/Recibos de proveedor/Data/uROCipher.dcu new file mode 100644 index 00000000..661f218a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROCipher.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROCiphers.dcu b/Source/Modulos/Recibos de proveedor/Data/uROCiphers.dcu new file mode 100644 index 00000000..9179ffb5 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROCiphers.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROClasses.dcu b/Source/Modulos/Recibos de proveedor/Data/uROClasses.dcu new file mode 100644 index 00000000..7bc0086c Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROClasses.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROClient.dcu b/Source/Modulos/Recibos de proveedor/Data/uROClient.dcu new file mode 100644 index 00000000..43e12fe3 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROClient.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROClientIntf.dcu b/Source/Modulos/Recibos de proveedor/Data/uROClientIntf.dcu new file mode 100644 index 00000000..d7413fd3 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROClientIntf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROCompression.dcu b/Source/Modulos/Recibos de proveedor/Data/uROCompression.dcu new file mode 100644 index 00000000..5ac0b2c1 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROCompression.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uRODECConst.dcu b/Source/Modulos/Recibos de proveedor/Data/uRODECConst.dcu new file mode 100644 index 00000000..8b3d2315 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uRODECConst.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uRODECUtil.dcu b/Source/Modulos/Recibos de proveedor/Data/uRODECUtil.dcu new file mode 100644 index 00000000..9272fd3e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uRODECUtil.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uRODL.dcu b/Source/Modulos/Recibos de proveedor/Data/uRODL.dcu new file mode 100644 index 00000000..e302f201 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uRODL.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uRODLToXML.dcu b/Source/Modulos/Recibos de proveedor/Data/uRODLToXML.dcu new file mode 100644 index 00000000..f8755c7a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uRODLToXML.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uRODynamicRequest.dcu b/Source/Modulos/Recibos de proveedor/Data/uRODynamicRequest.dcu new file mode 100644 index 00000000..e04a5111 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uRODynamicRequest.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROEncryption.dcu b/Source/Modulos/Recibos de proveedor/Data/uROEncryption.dcu new file mode 100644 index 00000000..57e60080 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROEncryption.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROEventRepository.dcu b/Source/Modulos/Recibos de proveedor/Data/uROEventRepository.dcu new file mode 100644 index 00000000..a8929c1e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROEventRepository.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROHTTPTools.dcu b/Source/Modulos/Recibos de proveedor/Data/uROHTTPTools.dcu new file mode 100644 index 00000000..d7850a71 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROHTTPTools.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROHash.dcu b/Source/Modulos/Recibos de proveedor/Data/uROHash.dcu new file mode 100644 index 00000000..9884462c Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROHash.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROMSXML2_TLB.dcu b/Source/Modulos/Recibos de proveedor/Data/uROMSXML2_TLB.dcu new file mode 100644 index 00000000..94371cc1 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROMSXML2_TLB.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROMSXMLImpl.dcu b/Source/Modulos/Recibos de proveedor/Data/uROMSXMLImpl.dcu new file mode 100644 index 00000000..0b418c46 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROMSXMLImpl.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uRORemoteService.dcu b/Source/Modulos/Recibos de proveedor/Data/uRORemoteService.dcu new file mode 100644 index 00000000..d1cb4c15 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uRORemoteService.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uRORes.dcu b/Source/Modulos/Recibos de proveedor/Data/uRORes.dcu new file mode 100644 index 00000000..a0ee2f55 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uRORes.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROSerializer.dcu b/Source/Modulos/Recibos de proveedor/Data/uROSerializer.dcu new file mode 100644 index 00000000..24d7d560 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROSerializer.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROServerIntf.dcu b/Source/Modulos/Recibos de proveedor/Data/uROServerIntf.dcu new file mode 100644 index 00000000..1110090f Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROServerIntf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROServiceComponent.dcu b/Source/Modulos/Recibos de proveedor/Data/uROServiceComponent.dcu new file mode 100644 index 00000000..ac1ea1a5 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROServiceComponent.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROSessions.dcu b/Source/Modulos/Recibos de proveedor/Data/uROSessions.dcu new file mode 100644 index 00000000..1bbc1513 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROSessions.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROStreamSerializer.dcu b/Source/Modulos/Recibos de proveedor/Data/uROStreamSerializer.dcu new file mode 100644 index 00000000..983bbfc7 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROStreamSerializer.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROTypes.dcu b/Source/Modulos/Recibos de proveedor/Data/uROTypes.dcu new file mode 100644 index 00000000..efe822be Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROTypes.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROWinInetHttpChannel.dcu b/Source/Modulos/Recibos de proveedor/Data/uROWinInetHttpChannel.dcu new file mode 100644 index 00000000..5b68f540 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROWinInetHttpChannel.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROXMLIntf.dcu b/Source/Modulos/Recibos de proveedor/Data/uROXMLIntf.dcu new file mode 100644 index 00000000..7c9550e2 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROXMLIntf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uROZLib.dcu b/Source/Modulos/Recibos de proveedor/Data/uROZLib.dcu new file mode 100644 index 00000000..cf1de243 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uROZLib.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Data/uroCipher1.dcu b/Source/Modulos/Recibos de proveedor/Data/uroCipher1.dcu new file mode 100644 index 00000000..e80803cd Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Data/uroCipher1.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Model/Data/uIDataModuleRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Model/Data/uIDataModuleRecibosProveedor.pas new file mode 100644 index 00000000..70e12725 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/Data/uIDataModuleRecibosProveedor.pas @@ -0,0 +1,41 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uIDataModuleRecibosProveedor; + +interface + +uses + uBizRecibosProveedor; + +type + IDataModuleRecibosProveedor = interface + ['{0EEAF672-1509-4695-90B0-0D6EBB81B6C5}'] + function GetItems: IBizRecibosProveedor; + function GetItem(const ID : Integer) : IBizRecibosProveedor; + function NewItem : IBizRecibosProveedor; + end; + +implementation + +end. diff --git a/Source/Modulos/Recibos de proveedor/Model/Data/uIDataModuleRecibosProveedorReport.pas b/Source/Modulos/Recibos de proveedor/Model/Data/uIDataModuleRecibosProveedorReport.pas new file mode 100644 index 00000000..877b3a3a --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/Data/uIDataModuleRecibosProveedorReport.pas @@ -0,0 +1,16 @@ +unit uIDataModuleRecibosProveedorReport; + +interface + +uses + SysUtils, Classes, uROTypes; + +type + IDataModuleRecibosProveedorReport = interface + ['{61D19A89-D834-49A8-AF7E-26DB47D3C5F7}'] + function GetReport(const ID: Integer): Binary; + end; + +implementation + +end. diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.bdsproj b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.bdsproj new file mode 100644 index 00000000..540c8437 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.bdsproj @@ -0,0 +1,492 @@ + + + + + + + + + + + + RecibosProveedor_model.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 0 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dcu b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dcu new file mode 100644 index 00000000..f1dec006 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dpk b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dpk new file mode 100644 index 00000000..32e90bab --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dpk @@ -0,0 +1,48 @@ +package RecibosProveedor_model; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} + +requires + Base, + Contactos_model, + dbrtl, + rtl, + DataAbstract_Core_D11, + vcldb, + vcl, + dsnap, + adortl, + RemObjects_Core_D11; + +contains + uIDataModuleRecibosProveedor in 'Data\uIDataModuleRecibosProveedor.pas', + uBizRecibosProveedor in 'uBizRecibosProveedor.pas', + uBizPagosProveedor in 'uBizPagosProveedor.pas', + uIDataModuleRecibosProveedorReport in 'Data\uIDataModuleRecibosProveedorReport.pas', + schRecibosProveedorClient_Intf in 'schRecibosProveedorClient_Intf.pas', + schRecibosProveedorServer_Intf in 'schRecibosProveedorServer_Intf.pas', + uBizRecibosProvCompensados in 'uBizRecibosProvCompensados.pas'; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dproj b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dproj new file mode 100644 index 00000000..39b6ae90 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dproj @@ -0,0 +1,592 @@ + + + + {e2f6ada6-f893-403e-8ebc-dd36413017f6} + RecibosProveedor_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RecibosProveedor_model.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RecibosProveedor_model.dpk + + + + + + + MainSource + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.drc_ b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.drc_ new file mode 100644 index 00000000..686f8580 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.drc_ @@ -0,0 +1,10 @@ +/* VER180 + Generated by the Borland Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.identcache b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.identcache new file mode 100644 index 00000000..fdce15ee Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.identcache differ diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.identcache_ b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.identcache_ new file mode 100644 index 00000000..fdce15ee Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.identcache_ differ diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.rc b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.res b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.res differ diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.dcu b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.dcu new file mode 100644 index 00000000..d1364582 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas new file mode 100644 index 00000000..7a1ecbe8 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas @@ -0,0 +1,2738 @@ +unit schRecibosProveedorClient_Intf; + +interface + +uses + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + +const + { Data table rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_RecibosCompensadosProv = '{EAA6135E-5EF6-4EFC-9B1C-02DA1C1A3D81}'; + RID_RecibosProveedor = '{1FD22CF1-33A3-46E7-B8E9-7856656F4A67}'; + RID_PagosProveedor = '{2F222DE7-BB99-4EB8-94E4-0B0229D35B42}'; + + { Data table names } + nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; + nme_RecibosProveedor = 'RecibosProveedor'; + nme_PagosProveedor = 'PagosProveedor'; + + { RecibosCompensadosProv fields } + fld_RecibosCompensadosProvID = 'ID'; + fld_RecibosCompensadosProvID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO'; + fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO'; + fld_RecibosCompensadosProvREFERENCIA = 'REFERENCIA'; + fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; + fld_RecibosCompensadosProvSITUACION = 'SITUACION'; + fld_RecibosCompensadosProvID_FACTURA = 'ID_FACTURA'; + fld_RecibosCompensadosProvID_REMESA = 'ID_REMESA'; + fld_RecibosCompensadosProvREFERENCIA_REMESA = 'REFERENCIA_REMESA'; + fld_RecibosCompensadosProvFECHA_EMISION = 'FECHA_EMISION'; + fld_RecibosCompensadosProvFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; + fld_RecibosCompensadosProvDESCRIPCION = 'DESCRIPCION'; + fld_RecibosCompensadosProvOBSERVACIONES = 'OBSERVACIONES'; + fld_RecibosCompensadosProvIMPORTE = 'IMPORTE'; + fld_RecibosCompensadosProvOTROS_GASTOS = 'OTROS_GASTOS'; + fld_RecibosCompensadosProvIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV = 'REFERENCIA_FACTURA_PROV'; + fld_RecibosCompensadosProvFECHA_FACTURA = 'FECHA_FACTURA'; + fld_RecibosCompensadosProvFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; + fld_RecibosCompensadosProvIMPORTE_FACTURA = 'IMPORTE_FACTURA'; + fld_RecibosCompensadosProvID_EMPRESA = 'ID_EMPRESA'; + fld_RecibosCompensadosProvID_PROVEEDOR = 'ID_PROVEEDOR'; + fld_RecibosCompensadosProvNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; + fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR'; + fld_RecibosCompensadosProvENTIDAD_PROVEEDOR = 'ENTIDAD_PROVEEDOR'; + fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR = 'SUCURSAL_PROVEEDOR'; + fld_RecibosCompensadosProvDC_PROVEEDOR = 'DC_PROVEEDOR'; + fld_RecibosCompensadosProvCUENTA_PROVEEDOR = 'CUENTA_PROVEEDOR'; + fld_RecibosCompensadosProvFECHA_ALTA = 'FECHA_ALTA'; + fld_RecibosCompensadosProvFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_RecibosCompensadosProvUSUARIO = 'USUARIO'; + + { RecibosCompensadosProv field indexes } + idx_RecibosCompensadosProvID = 0; + idx_RecibosCompensadosProvID_RECIBO_COMPENSADO = 1; + idx_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO = 2; + idx_RecibosCompensadosProvREFERENCIA = 3; + idx_RecibosCompensadosProvREFERENCIA_PROVEEDOR = 4; + idx_RecibosCompensadosProvSITUACION = 5; + idx_RecibosCompensadosProvID_FACTURA = 6; + idx_RecibosCompensadosProvID_REMESA = 7; + idx_RecibosCompensadosProvREFERENCIA_REMESA = 8; + idx_RecibosCompensadosProvFECHA_EMISION = 9; + idx_RecibosCompensadosProvFECHA_VENCIMIENTO = 10; + idx_RecibosCompensadosProvDESCRIPCION = 11; + idx_RecibosCompensadosProvOBSERVACIONES = 12; + idx_RecibosCompensadosProvIMPORTE = 13; + idx_RecibosCompensadosProvOTROS_GASTOS = 14; + idx_RecibosCompensadosProvIMPORTE_TOTAL = 15; + idx_RecibosCompensadosProvREFERENCIA_FACTURA_PROV = 16; + idx_RecibosCompensadosProvFECHA_FACTURA = 17; + idx_RecibosCompensadosProvFORMA_PAGO_FACTURA = 18; + idx_RecibosCompensadosProvIMPORTE_FACTURA = 19; + idx_RecibosCompensadosProvID_EMPRESA = 20; + idx_RecibosCompensadosProvID_PROVEEDOR = 21; + idx_RecibosCompensadosProvNOMBRE_PROVEEDOR = 22; + idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 23; + idx_RecibosCompensadosProvENTIDAD_PROVEEDOR = 24; + idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR = 25; + idx_RecibosCompensadosProvDC_PROVEEDOR = 26; + idx_RecibosCompensadosProvCUENTA_PROVEEDOR = 27; + idx_RecibosCompensadosProvFECHA_ALTA = 28; + idx_RecibosCompensadosProvFECHA_MODIFICACION = 29; + idx_RecibosCompensadosProvUSUARIO = 30; + + { RecibosProveedor fields } + fld_RecibosProveedorID = 'ID'; + fld_RecibosProveedorID_RECIBO_COMPENSADO = 'ID_RECIBO_COMPENSADO'; + fld_RecibosProveedorREFERENCIA_REC_COMPENSADO = 'REFERENCIA_REC_COMPENSADO'; + fld_RecibosProveedorREFERENCIA = 'REFERENCIA'; + fld_RecibosProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; + fld_RecibosProveedorSITUACION = 'SITUACION'; + fld_RecibosProveedorID_FACTURA = 'ID_FACTURA'; + fld_RecibosProveedorID_REMESA = 'ID_REMESA'; + fld_RecibosProveedorREFERENCIA_REMESA = 'REFERENCIA_REMESA'; + fld_RecibosProveedorFECHA_EMISION = 'FECHA_EMISION'; + fld_RecibosProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO'; + fld_RecibosProveedorDESCRIPCION = 'DESCRIPCION'; + fld_RecibosProveedorOBSERVACIONES = 'OBSERVACIONES'; + fld_RecibosProveedorIMPORTE = 'IMPORTE'; + fld_RecibosProveedorOTROS_GASTOS = 'OTROS_GASTOS'; + fld_RecibosProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_RecibosProveedorREFERENCIA_FACTURA_PROV = 'REFERENCIA_FACTURA_PROV'; + fld_RecibosProveedorFECHA_FACTURA = 'FECHA_FACTURA'; + fld_RecibosProveedorFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA'; + fld_RecibosProveedorIMPORTE_FACTURA = 'IMPORTE_FACTURA'; + fld_RecibosProveedorID_EMPRESA = 'ID_EMPRESA'; + fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR'; + fld_RecibosProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR'; + fld_RecibosProveedorNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR'; + fld_RecibosProveedorENTIDAD_PROVEEDOR = 'ENTIDAD_PROVEEDOR'; + fld_RecibosProveedorSUCURSAL_PROVEEDOR = 'SUCURSAL_PROVEEDOR'; + fld_RecibosProveedorDC_PROVEEDOR = 'DC_PROVEEDOR'; + fld_RecibosProveedorCUENTA_PROVEEDOR = 'CUENTA_PROVEEDOR'; + fld_RecibosProveedorFECHA_ALTA = 'FECHA_ALTA'; + fld_RecibosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_RecibosProveedorUSUARIO = 'USUARIO'; + + { RecibosProveedor field indexes } + idx_RecibosProveedorID = 0; + idx_RecibosProveedorID_RECIBO_COMPENSADO = 1; + idx_RecibosProveedorREFERENCIA_REC_COMPENSADO = 2; + idx_RecibosProveedorREFERENCIA = 3; + idx_RecibosProveedorREFERENCIA_PROVEEDOR = 4; + idx_RecibosProveedorSITUACION = 5; + idx_RecibosProveedorID_FACTURA = 6; + idx_RecibosProveedorID_REMESA = 7; + idx_RecibosProveedorREFERENCIA_REMESA = 8; + idx_RecibosProveedorFECHA_EMISION = 9; + idx_RecibosProveedorFECHA_VENCIMIENTO = 10; + idx_RecibosProveedorDESCRIPCION = 11; + idx_RecibosProveedorOBSERVACIONES = 12; + idx_RecibosProveedorIMPORTE = 13; + idx_RecibosProveedorOTROS_GASTOS = 14; + idx_RecibosProveedorIMPORTE_TOTAL = 15; + idx_RecibosProveedorREFERENCIA_FACTURA_PROV = 16; + idx_RecibosProveedorFECHA_FACTURA = 17; + idx_RecibosProveedorFORMA_PAGO_FACTURA = 18; + idx_RecibosProveedorIMPORTE_FACTURA = 19; + idx_RecibosProveedorID_EMPRESA = 20; + idx_RecibosProveedorID_PROVEEDOR = 21; + idx_RecibosProveedorNOMBRE_PROVEEDOR = 22; + idx_RecibosProveedorNIF_CIF_PROVEEDOR = 23; + idx_RecibosProveedorENTIDAD_PROVEEDOR = 24; + idx_RecibosProveedorSUCURSAL_PROVEEDOR = 25; + idx_RecibosProveedorDC_PROVEEDOR = 26; + idx_RecibosProveedorCUENTA_PROVEEDOR = 27; + idx_RecibosProveedorFECHA_ALTA = 28; + idx_RecibosProveedorFECHA_MODIFICACION = 29; + idx_RecibosProveedorUSUARIO = 30; + + { PagosProveedor fields } + fld_PagosProveedorID = 'ID'; + fld_PagosProveedorID_RECIBO = 'ID_RECIBO'; + fld_PagosProveedorTIPO = 'TIPO'; + fld_PagosProveedorFECHA_PAGO = 'FECHA_PAGO'; + fld_PagosProveedorTITULAR = 'TITULAR'; + fld_PagosProveedorENTIDAD = 'ENTIDAD'; + fld_PagosProveedorSUCURSAL = 'SUCURSAL'; + fld_PagosProveedorDC = 'DC'; + fld_PagosProveedorCUENTA = 'CUENTA'; + fld_PagosProveedorFECHA_ALTA = 'FECHA_ALTA'; + fld_PagosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_PagosProveedorUSUARIO = 'USUARIO'; + + { PagosProveedor field indexes } + idx_PagosProveedorID = 0; + idx_PagosProveedorID_RECIBO = 1; + idx_PagosProveedorTIPO = 2; + idx_PagosProveedorFECHA_PAGO = 3; + idx_PagosProveedorTITULAR = 4; + idx_PagosProveedorENTIDAD = 5; + idx_PagosProveedorSUCURSAL = 6; + idx_PagosProveedorDC = 7; + idx_PagosProveedorCUENTA = 8; + idx_PagosProveedorFECHA_ALTA = 9; + idx_PagosProveedorFECHA_MODIFICACION = 10; + idx_PagosProveedorUSUARIO = 11; + +type + { IRecibosCompensadosProv } + IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) + ['{EBE24C03-4E7D-40A6-9952-BB014D9F6185}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_RECIBO_COMPENSADOValue: Integer; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); + function GetID_RECIBO_COMPENSADOIsNull: Boolean; + procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); + function GetREFERENCIA_REC_COMPENSADOValue: String; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); + function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; + procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetREFERENCIA_PROVEEDORValue: String; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); + function GetREFERENCIA_PROVEEDORIsNull: Boolean; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); + function GetSITUACIONValue: String; + procedure SetSITUACIONValue(const aValue: String); + function GetSITUACIONIsNull: Boolean; + procedure SetSITUACIONIsNull(const aValue: Boolean); + function GetID_FACTURAValue: Integer; + procedure SetID_FACTURAValue(const aValue: Integer); + function GetID_FACTURAIsNull: Boolean; + procedure SetID_FACTURAIsNull(const aValue: Boolean); + function GetID_REMESAValue: Integer; + procedure SetID_REMESAValue(const aValue: Integer); + function GetID_REMESAIsNull: Boolean; + procedure SetID_REMESAIsNull(const aValue: Boolean); + function GetREFERENCIA_REMESAValue: String; + procedure SetREFERENCIA_REMESAValue(const aValue: String); + function GetREFERENCIA_REMESAIsNull: Boolean; + procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); + function GetFECHA_EMISIONValue: DateTime; + procedure SetFECHA_EMISIONValue(const aValue: DateTime); + function GetFECHA_EMISIONIsNull: Boolean; + procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); + function GetFECHA_VENCIMIENTOValue: DateTime; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); + function GetFECHA_VENCIMIENTOIsNull: Boolean; + procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); + function GetDESCRIPCIONValue: String; + procedure SetDESCRIPCIONValue(const aValue: String); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); + function GetOBSERVACIONESValue: String; + procedure SetOBSERVACIONESValue(const aValue: String); + function GetOBSERVACIONESIsNull: Boolean; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); + function GetIMPORTEValue: Currency; + procedure SetIMPORTEValue(const aValue: Currency); + function GetIMPORTEIsNull: Boolean; + procedure SetIMPORTEIsNull(const aValue: Boolean); + function GetOTROS_GASTOSValue: Currency; + procedure SetOTROS_GASTOSValue(const aValue: Currency); + function GetOTROS_GASTOSIsNull: Boolean; + procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); + function GetIMPORTE_TOTALValue: Currency; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALIsNull: Boolean; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetREFERENCIA_FACTURA_PROVValue: String; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); + function GetREFERENCIA_FACTURA_PROVIsNull: Boolean; + procedure SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); + function GetFECHA_FACTURAValue: DateTime; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); + function GetFECHA_FACTURAIsNull: Boolean; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); + function GetFORMA_PAGO_FACTURAValue: String; + procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); + function GetFORMA_PAGO_FACTURAIsNull: Boolean; + procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); + function GetIMPORTE_FACTURAValue: Currency; + procedure SetIMPORTE_FACTURAValue(const aValue: Currency); + function GetIMPORTE_FACTURAIsNull: Boolean; + procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetID_PROVEEDORValue: Integer; + procedure SetID_PROVEEDORValue(const aValue: Integer); + function GetID_PROVEEDORIsNull: Boolean; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); + function GetNOMBRE_PROVEEDORValue: String; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); + function GetNOMBRE_PROVEEDORIsNull: Boolean; + procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); + function GetNIF_CIF_PROVEEDORValue: String; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); + function GetNIF_CIF_PROVEEDORIsNull: Boolean; + procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); + function GetENTIDAD_PROVEEDORValue: String; + procedure SetENTIDAD_PROVEEDORValue(const aValue: String); + function GetENTIDAD_PROVEEDORIsNull: Boolean; + procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); + function GetSUCURSAL_PROVEEDORValue: String; + procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); + function GetSUCURSAL_PROVEEDORIsNull: Boolean; + procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); + function GetDC_PROVEEDORValue: String; + procedure SetDC_PROVEEDORValue(const aValue: String); + function GetDC_PROVEEDORIsNull: Boolean; + procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); + function GetCUENTA_PROVEEDORValue: String; + procedure SetCUENTA_PROVEEDORValue(const aValue: String); + function GetCUENTA_PROVEEDORIsNull: Boolean; + procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; + property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; + property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue; + property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; + property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; + property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; + property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; + property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; + property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue; + property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; + property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; + property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; + property REFERENCIA_FACTURA_PROVIsNull: Boolean read GetREFERENCIA_FACTURA_PROVIsNull write SetREFERENCIA_FACTURA_PROVIsNull; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; + property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; + property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; + property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; + property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; + property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; + property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; + property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; + property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; + property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; + property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; + property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; + property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + end; + + { TRecibosCompensadosProvDataTableRules } + TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_RECIBO_COMPENSADOValue: Integer; virtual; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; + function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual; + procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; + function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; + procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + function GetSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetID_FACTURAValue: Integer; virtual; + procedure SetID_FACTURAValue(const aValue: Integer); virtual; + function GetID_FACTURAIsNull: Boolean; virtual; + procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_REMESAValue: Integer; virtual; + procedure SetID_REMESAValue(const aValue: Integer); virtual; + function GetID_REMESAIsNull: Boolean; virtual; + procedure SetID_REMESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REMESAValue: String; virtual; + procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual; + function GetREFERENCIA_REMESAIsNull: Boolean; virtual; + procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual; + function GetFECHA_EMISIONValue: DateTime; virtual; + procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; + function GetFECHA_EMISIONIsNull: Boolean; virtual; + procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); virtual; + function GetFECHA_VENCIMIENTOValue: DateTime; virtual; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; + function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; + procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + function GetOBSERVACIONESValue: String; virtual; + procedure SetOBSERVACIONESValue(const aValue: String); virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; + function GetIMPORTEValue: Currency; virtual; + procedure SetIMPORTEValue(const aValue: Currency); virtual; + function GetIMPORTEIsNull: Boolean; virtual; + procedure SetIMPORTEIsNull(const aValue: Boolean); virtual; + function GetOTROS_GASTOSValue: Currency; virtual; + procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual; + function GetOTROS_GASTOSIsNull: Boolean; virtual; + procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_FACTURA_PROVValue: String; virtual; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual; + function GetREFERENCIA_FACTURA_PROVIsNull: Boolean; virtual; + procedure SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetFECHA_FACTURAIsNull: Boolean; virtual; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; + function GetFORMA_PAGO_FACTURAValue: String; virtual; + procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; + function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual; + procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_FACTURAValue: Currency; virtual; + procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual; + function GetIMPORTE_FACTURAIsNull: Boolean; virtual; + procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + function GetID_PROVEEDORIsNull: Boolean; virtual; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNOMBRE_PROVEEDORValue: String; virtual; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; + function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; + procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNIF_CIF_PROVEEDORValue: String; virtual; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; + function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual; + procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetENTIDAD_PROVEEDORValue: String; virtual; + procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual; + function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual; + procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetSUCURSAL_PROVEEDORValue: String; virtual; + procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual; + function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual; + procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetDC_PROVEEDORValue: String; virtual; + procedure SetDC_PROVEEDORValue(const aValue: String); virtual; + function GetDC_PROVEEDORIsNull: Boolean; virtual; + procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetCUENTA_PROVEEDORValue: String; virtual; + procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual; + function GetCUENTA_PROVEEDORIsNull: Boolean; virtual; + procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; + property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; + property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue; + property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; + property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; + property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; + property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; + property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; + property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue; + property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; + property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; + property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; + property REFERENCIA_FACTURA_PROVIsNull: Boolean read GetREFERENCIA_FACTURA_PROVIsNull write SetREFERENCIA_FACTURA_PROVIsNull; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; + property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; + property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; + property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; + property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; + property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; + property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; + property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; + property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; + property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; + property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; + property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; + property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IRecibosProveedor } + IRecibosProveedor = interface(IDAStronglyTypedDataTable) + ['{8650C3B1-16DF-4F3B-A9E8-FD4C23B128AD}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_RECIBO_COMPENSADOValue: Integer; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); + function GetID_RECIBO_COMPENSADOIsNull: Boolean; + procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); + function GetREFERENCIA_REC_COMPENSADOValue: String; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); + function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; + procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetREFERENCIA_PROVEEDORValue: String; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); + function GetREFERENCIA_PROVEEDORIsNull: Boolean; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); + function GetSITUACIONValue: String; + procedure SetSITUACIONValue(const aValue: String); + function GetSITUACIONIsNull: Boolean; + procedure SetSITUACIONIsNull(const aValue: Boolean); + function GetID_FACTURAValue: Integer; + procedure SetID_FACTURAValue(const aValue: Integer); + function GetID_FACTURAIsNull: Boolean; + procedure SetID_FACTURAIsNull(const aValue: Boolean); + function GetID_REMESAValue: Integer; + procedure SetID_REMESAValue(const aValue: Integer); + function GetID_REMESAIsNull: Boolean; + procedure SetID_REMESAIsNull(const aValue: Boolean); + function GetREFERENCIA_REMESAValue: String; + procedure SetREFERENCIA_REMESAValue(const aValue: String); + function GetREFERENCIA_REMESAIsNull: Boolean; + procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); + function GetFECHA_EMISIONValue: DateTime; + procedure SetFECHA_EMISIONValue(const aValue: DateTime); + function GetFECHA_EMISIONIsNull: Boolean; + procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); + function GetFECHA_VENCIMIENTOValue: DateTime; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); + function GetFECHA_VENCIMIENTOIsNull: Boolean; + procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); + function GetDESCRIPCIONValue: String; + procedure SetDESCRIPCIONValue(const aValue: String); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); + function GetOBSERVACIONESValue: String; + procedure SetOBSERVACIONESValue(const aValue: String); + function GetOBSERVACIONESIsNull: Boolean; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); + function GetIMPORTEValue: Currency; + procedure SetIMPORTEValue(const aValue: Currency); + function GetIMPORTEIsNull: Boolean; + procedure SetIMPORTEIsNull(const aValue: Boolean); + function GetOTROS_GASTOSValue: Currency; + procedure SetOTROS_GASTOSValue(const aValue: Currency); + function GetOTROS_GASTOSIsNull: Boolean; + procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); + function GetIMPORTE_TOTALValue: Currency; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALIsNull: Boolean; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetREFERENCIA_FACTURA_PROVValue: String; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); + function GetREFERENCIA_FACTURA_PROVIsNull: Boolean; + procedure SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); + function GetFECHA_FACTURAValue: DateTime; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); + function GetFECHA_FACTURAIsNull: Boolean; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); + function GetFORMA_PAGO_FACTURAValue: String; + procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); + function GetFORMA_PAGO_FACTURAIsNull: Boolean; + procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); + function GetIMPORTE_FACTURAValue: Currency; + procedure SetIMPORTE_FACTURAValue(const aValue: Currency); + function GetIMPORTE_FACTURAIsNull: Boolean; + procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetID_PROVEEDORValue: Integer; + procedure SetID_PROVEEDORValue(const aValue: Integer); + function GetID_PROVEEDORIsNull: Boolean; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); + function GetNOMBRE_PROVEEDORValue: String; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); + function GetNOMBRE_PROVEEDORIsNull: Boolean; + procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); + function GetNIF_CIF_PROVEEDORValue: String; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); + function GetNIF_CIF_PROVEEDORIsNull: Boolean; + procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); + function GetENTIDAD_PROVEEDORValue: String; + procedure SetENTIDAD_PROVEEDORValue(const aValue: String); + function GetENTIDAD_PROVEEDORIsNull: Boolean; + procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); + function GetSUCURSAL_PROVEEDORValue: String; + procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); + function GetSUCURSAL_PROVEEDORIsNull: Boolean; + procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); + function GetDC_PROVEEDORValue: String; + procedure SetDC_PROVEEDORValue(const aValue: String); + function GetDC_PROVEEDORIsNull: Boolean; + procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); + function GetCUENTA_PROVEEDORValue: String; + procedure SetCUENTA_PROVEEDORValue(const aValue: String); + function GetCUENTA_PROVEEDORIsNull: Boolean; + procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; + property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; + property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue; + property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; + property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; + property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; + property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; + property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; + property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue; + property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; + property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; + property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; + property REFERENCIA_FACTURA_PROVIsNull: Boolean read GetREFERENCIA_FACTURA_PROVIsNull write SetREFERENCIA_FACTURA_PROVIsNull; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; + property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; + property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; + property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; + property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; + property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; + property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; + property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; + property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; + property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; + property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; + property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; + property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + end; + + { TRecibosProveedorDataTableRules } + TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_RECIBO_COMPENSADOValue: Integer; virtual; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; + function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual; + procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; + function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; + procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + function GetSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetID_FACTURAValue: Integer; virtual; + procedure SetID_FACTURAValue(const aValue: Integer); virtual; + function GetID_FACTURAIsNull: Boolean; virtual; + procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_REMESAValue: Integer; virtual; + procedure SetID_REMESAValue(const aValue: Integer); virtual; + function GetID_REMESAIsNull: Boolean; virtual; + procedure SetID_REMESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REMESAValue: String; virtual; + procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual; + function GetREFERENCIA_REMESAIsNull: Boolean; virtual; + procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual; + function GetFECHA_EMISIONValue: DateTime; virtual; + procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; + function GetFECHA_EMISIONIsNull: Boolean; virtual; + procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); virtual; + function GetFECHA_VENCIMIENTOValue: DateTime; virtual; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; + function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; + procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + function GetOBSERVACIONESValue: String; virtual; + procedure SetOBSERVACIONESValue(const aValue: String); virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; + function GetIMPORTEValue: Currency; virtual; + procedure SetIMPORTEValue(const aValue: Currency); virtual; + function GetIMPORTEIsNull: Boolean; virtual; + procedure SetIMPORTEIsNull(const aValue: Boolean); virtual; + function GetOTROS_GASTOSValue: Currency; virtual; + procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual; + function GetOTROS_GASTOSIsNull: Boolean; virtual; + procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_FACTURA_PROVValue: String; virtual; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual; + function GetREFERENCIA_FACTURA_PROVIsNull: Boolean; virtual; + procedure SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetFECHA_FACTURAIsNull: Boolean; virtual; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; + function GetFORMA_PAGO_FACTURAValue: String; virtual; + procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; + function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual; + procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_FACTURAValue: Currency; virtual; + procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual; + function GetIMPORTE_FACTURAIsNull: Boolean; virtual; + procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + function GetID_PROVEEDORIsNull: Boolean; virtual; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNOMBRE_PROVEEDORValue: String; virtual; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; + function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; + procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNIF_CIF_PROVEEDORValue: String; virtual; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; + function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual; + procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetENTIDAD_PROVEEDORValue: String; virtual; + procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual; + function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual; + procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetSUCURSAL_PROVEEDORValue: String; virtual; + procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual; + function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual; + procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetDC_PROVEEDORValue: String; virtual; + procedure SetDC_PROVEEDORValue(const aValue: String); virtual; + function GetDC_PROVEEDORIsNull: Boolean; virtual; + procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetCUENTA_PROVEEDORValue: String; virtual; + procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual; + function GetCUENTA_PROVEEDORIsNull: Boolean; virtual; + procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_RECIBO_COMPENSADO: Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property ID_RECIBO_COMPENSADOIsNull: Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; + property REFERENCIA_REC_COMPENSADO: String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADOIsNull: Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; + property ID_REMESA: Integer read GetID_REMESAValue write SetID_REMESAValue; + property ID_REMESAIsNull: Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; + property REFERENCIA_REMESA: String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; + property REFERENCIA_REMESAIsNull: Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; + property FECHA_EMISION: DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; + property FECHA_EMISIONIsNull: Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; + property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OBSERVACIONES: String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; + property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue; + property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; + property OTROS_GASTOS: Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; + property OTROS_GASTOSIsNull: Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property REFERENCIA_FACTURA_PROV: String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; + property REFERENCIA_FACTURA_PROVIsNull: Boolean read GetREFERENCIA_FACTURA_PROVIsNull write SetREFERENCIA_FACTURA_PROVIsNull; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property FORMA_PAGO_FACTURA: String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; + property FORMA_PAGO_FACTURAIsNull: Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; + property IMPORTE_FACTURA: Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; + property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; + property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; + property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; + property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; + property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; + property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; + property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; + property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; + property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; + property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IPagosProveedor } + IPagosProveedor = interface(IDAStronglyTypedDataTable) + ['{341A818F-3B74-41CB-A905-269B48B1CD6F}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_RECIBOValue: Integer; + procedure SetID_RECIBOValue(const aValue: Integer); + function GetID_RECIBOIsNull: Boolean; + procedure SetID_RECIBOIsNull(const aValue: Boolean); + function GetTIPOValue: String; + procedure SetTIPOValue(const aValue: String); + function GetTIPOIsNull: Boolean; + procedure SetTIPOIsNull(const aValue: Boolean); + function GetFECHA_PAGOValue: DateTime; + procedure SetFECHA_PAGOValue(const aValue: DateTime); + function GetFECHA_PAGOIsNull: Boolean; + procedure SetFECHA_PAGOIsNull(const aValue: Boolean); + function GetTITULARValue: String; + procedure SetTITULARValue(const aValue: String); + function GetTITULARIsNull: Boolean; + procedure SetTITULARIsNull(const aValue: Boolean); + function GetENTIDADValue: String; + procedure SetENTIDADValue(const aValue: String); + function GetENTIDADIsNull: Boolean; + procedure SetENTIDADIsNull(const aValue: Boolean); + function GetSUCURSALValue: String; + procedure SetSUCURSALValue(const aValue: String); + function GetSUCURSALIsNull: Boolean; + procedure SetSUCURSALIsNull(const aValue: Boolean); + function GetDCValue: String; + procedure SetDCValue(const aValue: String); + function GetDCIsNull: Boolean; + procedure SetDCIsNull(const aValue: Boolean); + function GetCUENTAValue: String; + procedure SetCUENTAValue(const aValue: String); + function GetCUENTAIsNull: Boolean; + procedure SetCUENTAIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_RECIBO: Integer read GetID_RECIBOValue write SetID_RECIBOValue; + property ID_RECIBOIsNull: Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull; + property TIPO: String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; + property FECHA_PAGO: DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue; + property FECHA_PAGOIsNull: Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull; + property TITULAR: String read GetTITULARValue write SetTITULARValue; + property TITULARIsNull: Boolean read GetTITULARIsNull write SetTITULARIsNull; + property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; + property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; + property DC: String read GetDCValue write SetDCValue; + property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; + property CUENTA: String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + end; + + { TPagosProveedorDataTableRules } + TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_RECIBOValue: Integer; virtual; + procedure SetID_RECIBOValue(const aValue: Integer); virtual; + function GetID_RECIBOIsNull: Boolean; virtual; + procedure SetID_RECIBOIsNull(const aValue: Boolean); virtual; + function GetTIPOValue: String; virtual; + procedure SetTIPOValue(const aValue: String); virtual; + function GetTIPOIsNull: Boolean; virtual; + procedure SetTIPOIsNull(const aValue: Boolean); virtual; + function GetFECHA_PAGOValue: DateTime; virtual; + procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual; + function GetFECHA_PAGOIsNull: Boolean; virtual; + procedure SetFECHA_PAGOIsNull(const aValue: Boolean); virtual; + function GetTITULARValue: String; virtual; + procedure SetTITULARValue(const aValue: String); virtual; + function GetTITULARIsNull: Boolean; virtual; + procedure SetTITULARIsNull(const aValue: Boolean); virtual; + function GetENTIDADValue: String; virtual; + procedure SetENTIDADValue(const aValue: String); virtual; + function GetENTIDADIsNull: Boolean; virtual; + procedure SetENTIDADIsNull(const aValue: Boolean); virtual; + function GetSUCURSALValue: String; virtual; + procedure SetSUCURSALValue(const aValue: String); virtual; + function GetSUCURSALIsNull: Boolean; virtual; + procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; + function GetDCValue: String; virtual; + procedure SetDCValue(const aValue: String); virtual; + function GetDCIsNull: Boolean; virtual; + procedure SetDCIsNull(const aValue: Boolean); virtual; + function GetCUENTAValue: String; virtual; + procedure SetCUENTAValue(const aValue: String); virtual; + function GetCUENTAIsNull: Boolean; virtual; + procedure SetCUENTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_RECIBO: Integer read GetID_RECIBOValue write SetID_RECIBOValue; + property ID_RECIBOIsNull: Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull; + property TIPO: String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull; + property FECHA_PAGO: DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue; + property FECHA_PAGOIsNull: Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull; + property TITULAR: String read GetTITULARValue write SetTITULARValue; + property TITULARIsNull: Boolean read GetTITULARIsNull write SetTITULARIsNull; + property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull: Boolean read GetENTIDADIsNull write SetENTIDADIsNull; + property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull: Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; + property DC: String read GetDCValue write SetDCValue; + property DCIsNull: Boolean read GetDCIsNull write SetDCIsNull; + property CUENTA: String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull: Boolean read GetCUENTAIsNull write SetCUENTAIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + +implementation + +uses Variants, uROBinaryHelpers; + +{ TRecibosCompensadosProvDataTableRules } +constructor TRecibosCompensadosProvDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TRecibosCompensadosProvDataTableRules.Destroy; +begin + inherited; +end; + +function TRecibosCompensadosProvDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID].AsInteger := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvID].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_RECIBO_COMPENSADO].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID_RECIBO_COMPENSADO].AsInteger := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_RECIBO_COMPENSADOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_RECIBO_COMPENSADO].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvID_RECIBO_COMPENSADO].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIA_REC_COMPENSADOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_PROVEEDOR].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_PROVEEDOR].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_PROVEEDOR].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetSITUACIONValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvSITUACION].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetSITUACIONValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvSITUACION].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetSITUACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvSITUACION].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvSITUACION].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_FACTURAValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_FACTURA].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_FACTURAValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID_FACTURA].AsInteger := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_FACTURA].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvID_FACTURA].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_REMESAValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_REMESA].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_REMESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID_REMESA].AsInteger := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_REMESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_REMESA].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvID_REMESA].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIA_REMESAValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_REMESA].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIA_REMESAValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_REMESA].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIA_REMESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_REMESA].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_REMESA].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_EMISIONValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_EMISION].AsDateTime; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosCompensadosProvFECHA_EMISION].AsDateTime := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_EMISIONIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_EMISION].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_EMISIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvFECHA_EMISION].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_VENCIMIENTO].AsDateTime; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosCompensadosProvFECHA_VENCIMIENTO].AsDateTime := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_VENCIMIENTO].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvFECHA_VENCIMIENTO].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetDESCRIPCIONValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvDESCRIPCION].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetDESCRIPCIONValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvDESCRIPCION].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetDESCRIPCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvDESCRIPCION].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvDESCRIPCION].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetOBSERVACIONESValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvOBSERVACIONES].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetOBSERVACIONESValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvOBSERVACIONES].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetOBSERVACIONESIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvOBSERVACIONES].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvOBSERVACIONES].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetIMPORTEValue: Currency; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE].AsCurrency; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIMPORTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosCompensadosProvIMPORTE].AsCurrency := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetIMPORTEIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIMPORTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvIMPORTE].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetOTROS_GASTOSValue: Currency; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvOTROS_GASTOS].AsCurrency; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosCompensadosProvOTROS_GASTOS].AsCurrency := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetOTROS_GASTOSIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvOTROS_GASTOS].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetOTROS_GASTOSIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvOTROS_GASTOS].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetIMPORTE_TOTALValue: Currency; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_TOTAL].AsCurrency; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_TOTAL].AsCurrency := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetIMPORTE_TOTALIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_TOTAL].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_TOTAL].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIA_FACTURA_PROVValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_FACTURA_PROV].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_FACTURA_PROV].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetREFERENCIA_FACTURA_PROVIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_FACTURA_PROV].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvREFERENCIA_FACTURA_PROV].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_FACTURAValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_FACTURA].AsDateTime; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosCompensadosProvFECHA_FACTURA].AsDateTime := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_FACTURA].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvFECHA_FACTURA].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetFORMA_PAGO_FACTURAValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFORMA_PAGO_FACTURA].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvFORMA_PAGO_FACTURA].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFORMA_PAGO_FACTURA].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvFORMA_PAGO_FACTURA].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetIMPORTE_FACTURAValue: Currency; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_FACTURA].AsCurrency; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_FACTURA].AsCurrency := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetIMPORTE_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_FACTURA].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvIMPORTE_FACTURA].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].AsInteger := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvID_EMPRESA].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_PROVEEDORValue: Integer; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].AsInteger; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].AsInteger := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetID_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvID_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetNOMBRE_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvNOMBRE_PROVEEDOR].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvNOMBRE_PROVEEDOR].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvNOMBRE_PROVEEDOR].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvNOMBRE_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetNIF_CIF_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetNIF_CIF_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetENTIDAD_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetENTIDAD_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetENTIDAD_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetSUCURSAL_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetSUCURSAL_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetSUCURSAL_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetDC_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetDC_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetDC_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetDC_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetCUENTA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetCUENTA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetCUENTA_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_ALTA].AsDateTime; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosCompensadosProvFECHA_ALTA].AsDateTime := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_ALTA].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvFECHA_ALTA].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_MODIFICACION].AsDateTime; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosCompensadosProvFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_MODIFICACION].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvFECHA_MODIFICACION].AsVariant := Null; +end; + +function TRecibosCompensadosProvDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvUSUARIO].AsString; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosCompensadosProvUSUARIO].AsString := aValue; +end; + +function TRecibosCompensadosProvDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosCompensadosProvUSUARIO].IsNull; +end; + +procedure TRecibosCompensadosProvDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosCompensadosProvUSUARIO].AsVariant := Null; +end; + + +{ TRecibosProveedorDataTableRules } +constructor TRecibosProveedorDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TRecibosProveedorDataTableRules.Destroy; +begin + inherited; +end; + +function TRecibosProveedorDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_RecibosProveedorID].AsInteger; +end; + +procedure TRecibosProveedorDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosProveedorID].AsInteger := aValue; +end; + +function TRecibosProveedorDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorID].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorID].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetID_RECIBO_COMPENSADOValue: Integer; +begin + result := DataTable.Fields[idx_RecibosProveedorID_RECIBO_COMPENSADO].AsInteger; +end; + +procedure TRecibosProveedorDataTableRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosProveedorID_RECIBO_COMPENSADO].AsInteger := aValue; +end; + +function TRecibosProveedorDataTableRules.GetID_RECIBO_COMPENSADOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorID_RECIBO_COMPENSADO].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorID_RECIBO_COMPENSADO].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIA_REC_COMPENSADOValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_REC_COMPENSADO].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorREFERENCIA_REC_COMPENSADO].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIA_REC_COMPENSADOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_REC_COMPENSADO].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorREFERENCIA_REC_COMPENSADO].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorREFERENCIA].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorREFERENCIA].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_PROVEEDOR].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorREFERENCIA_PROVEEDOR].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_PROVEEDOR].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorREFERENCIA_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetSITUACIONValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorSITUACION].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetSITUACIONValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorSITUACION].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetSITUACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorSITUACION].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorSITUACION].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetID_FACTURAValue: Integer; +begin + result := DataTable.Fields[idx_RecibosProveedorID_FACTURA].AsInteger; +end; + +procedure TRecibosProveedorDataTableRules.SetID_FACTURAValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosProveedorID_FACTURA].AsInteger := aValue; +end; + +function TRecibosProveedorDataTableRules.GetID_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorID_FACTURA].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorID_FACTURA].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetID_REMESAValue: Integer; +begin + result := DataTable.Fields[idx_RecibosProveedorID_REMESA].AsInteger; +end; + +procedure TRecibosProveedorDataTableRules.SetID_REMESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosProveedorID_REMESA].AsInteger := aValue; +end; + +function TRecibosProveedorDataTableRules.GetID_REMESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorID_REMESA].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetID_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorID_REMESA].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIA_REMESAValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_REMESA].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIA_REMESAValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorREFERENCIA_REMESA].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIA_REMESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_REMESA].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorREFERENCIA_REMESA].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetFECHA_EMISIONValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosProveedorFECHA_EMISION].AsDateTime; +end; + +procedure TRecibosProveedorDataTableRules.SetFECHA_EMISIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosProveedorFECHA_EMISION].AsDateTime := aValue; +end; + +function TRecibosProveedorDataTableRules.GetFECHA_EMISIONIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorFECHA_EMISION].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetFECHA_EMISIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorFECHA_EMISION].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosProveedorFECHA_VENCIMIENTO].AsDateTime; +end; + +procedure TRecibosProveedorDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosProveedorFECHA_VENCIMIENTO].AsDateTime := aValue; +end; + +function TRecibosProveedorDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorFECHA_VENCIMIENTO].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorFECHA_VENCIMIENTO].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetDESCRIPCIONValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorDESCRIPCION].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetDESCRIPCIONValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorDESCRIPCION].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetDESCRIPCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorDESCRIPCION].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorDESCRIPCION].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetOBSERVACIONESValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorOBSERVACIONES].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetOBSERVACIONESValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorOBSERVACIONES].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetOBSERVACIONESIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorOBSERVACIONES].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorOBSERVACIONES].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetIMPORTEValue: Currency; +begin + result := DataTable.Fields[idx_RecibosProveedorIMPORTE].AsCurrency; +end; + +procedure TRecibosProveedorDataTableRules.SetIMPORTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosProveedorIMPORTE].AsCurrency := aValue; +end; + +function TRecibosProveedorDataTableRules.GetIMPORTEIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorIMPORTE].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetIMPORTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorIMPORTE].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetOTROS_GASTOSValue: Currency; +begin + result := DataTable.Fields[idx_RecibosProveedorOTROS_GASTOS].AsCurrency; +end; + +procedure TRecibosProveedorDataTableRules.SetOTROS_GASTOSValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosProveedorOTROS_GASTOS].AsCurrency := aValue; +end; + +function TRecibosProveedorDataTableRules.GetOTROS_GASTOSIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorOTROS_GASTOS].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetOTROS_GASTOSIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorOTROS_GASTOS].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetIMPORTE_TOTALValue: Currency; +begin + result := DataTable.Fields[idx_RecibosProveedorIMPORTE_TOTAL].AsCurrency; +end; + +procedure TRecibosProveedorDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosProveedorIMPORTE_TOTAL].AsCurrency := aValue; +end; + +function TRecibosProveedorDataTableRules.GetIMPORTE_TOTALIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorIMPORTE_TOTAL].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorIMPORTE_TOTAL].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIA_FACTURA_PROVValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_FACTURA_PROV].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorREFERENCIA_FACTURA_PROV].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetREFERENCIA_FACTURA_PROVIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorREFERENCIA_FACTURA_PROV].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorREFERENCIA_FACTURA_PROV].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetFECHA_FACTURAValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosProveedorFECHA_FACTURA].AsDateTime; +end; + +procedure TRecibosProveedorDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosProveedorFECHA_FACTURA].AsDateTime := aValue; +end; + +function TRecibosProveedorDataTableRules.GetFECHA_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorFECHA_FACTURA].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorFECHA_FACTURA].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetFORMA_PAGO_FACTURAValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorFORMA_PAGO_FACTURA].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorFORMA_PAGO_FACTURA].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetFORMA_PAGO_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorFORMA_PAGO_FACTURA].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorFORMA_PAGO_FACTURA].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetIMPORTE_FACTURAValue: Currency; +begin + result := DataTable.Fields[idx_RecibosProveedorIMPORTE_FACTURA].AsCurrency; +end; + +procedure TRecibosProveedorDataTableRules.SetIMPORTE_FACTURAValue(const aValue: Currency); +begin + DataTable.Fields[idx_RecibosProveedorIMPORTE_FACTURA].AsCurrency := aValue; +end; + +function TRecibosProveedorDataTableRules.GetIMPORTE_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorIMPORTE_FACTURA].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorIMPORTE_FACTURA].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_RecibosProveedorID_EMPRESA].AsInteger; +end; + +procedure TRecibosProveedorDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosProveedorID_EMPRESA].AsInteger := aValue; +end; + +function TRecibosProveedorDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorID_EMPRESA].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorID_EMPRESA].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetID_PROVEEDORValue: Integer; +begin + result := DataTable.Fields[idx_RecibosProveedorID_PROVEEDOR].AsInteger; +end; + +procedure TRecibosProveedorDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + DataTable.Fields[idx_RecibosProveedorID_PROVEEDOR].AsInteger := aValue; +end; + +function TRecibosProveedorDataTableRules.GetID_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorID_PROVEEDOR].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorID_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetNOMBRE_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorNOMBRE_PROVEEDOR].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorNOMBRE_PROVEEDOR].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorNOMBRE_PROVEEDOR].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorNOMBRE_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetNIF_CIF_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorNIF_CIF_PROVEEDOR].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorNIF_CIF_PROVEEDOR].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetNIF_CIF_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorNIF_CIF_PROVEEDOR].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorNIF_CIF_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetENTIDAD_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetENTIDAD_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetENTIDAD_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetSUCURSAL_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetSUCURSAL_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetSUCURSAL_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetDC_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetDC_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetDC_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetDC_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetCUENTA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetCUENTA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetCUENTA_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosProveedorFECHA_ALTA].AsDateTime; +end; + +procedure TRecibosProveedorDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosProveedorFECHA_ALTA].AsDateTime := aValue; +end; + +function TRecibosProveedorDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorFECHA_ALTA].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorFECHA_ALTA].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_RecibosProveedorFECHA_MODIFICACION].AsDateTime; +end; + +procedure TRecibosProveedorDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_RecibosProveedorFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TRecibosProveedorDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorFECHA_MODIFICACION].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorFECHA_MODIFICACION].AsVariant := Null; +end; + +function TRecibosProveedorDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_RecibosProveedorUSUARIO].AsString; +end; + +procedure TRecibosProveedorDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_RecibosProveedorUSUARIO].AsString := aValue; +end; + +function TRecibosProveedorDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_RecibosProveedorUSUARIO].IsNull; +end; + +procedure TRecibosProveedorDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_RecibosProveedorUSUARIO].AsVariant := Null; +end; + + +{ TPagosProveedorDataTableRules } +constructor TPagosProveedorDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TPagosProveedorDataTableRules.Destroy; +begin + inherited; +end; + +function TPagosProveedorDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_PagosProveedorID].AsInteger; +end; + +procedure TPagosProveedorDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_PagosProveedorID].AsInteger := aValue; +end; + +function TPagosProveedorDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorID].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorID].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetID_RECIBOValue: Integer; +begin + result := DataTable.Fields[idx_PagosProveedorID_RECIBO].AsInteger; +end; + +procedure TPagosProveedorDataTableRules.SetID_RECIBOValue(const aValue: Integer); +begin + DataTable.Fields[idx_PagosProveedorID_RECIBO].AsInteger := aValue; +end; + +function TPagosProveedorDataTableRules.GetID_RECIBOIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorID_RECIBO].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetID_RECIBOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorID_RECIBO].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetTIPOValue: String; +begin + result := DataTable.Fields[idx_PagosProveedorTIPO].AsString; +end; + +procedure TPagosProveedorDataTableRules.SetTIPOValue(const aValue: String); +begin + DataTable.Fields[idx_PagosProveedorTIPO].AsString := aValue; +end; + +function TPagosProveedorDataTableRules.GetTIPOIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorTIPO].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetTIPOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorTIPO].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetFECHA_PAGOValue: DateTime; +begin + result := DataTable.Fields[idx_PagosProveedorFECHA_PAGO].AsDateTime; +end; + +procedure TPagosProveedorDataTableRules.SetFECHA_PAGOValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PagosProveedorFECHA_PAGO].AsDateTime := aValue; +end; + +function TPagosProveedorDataTableRules.GetFECHA_PAGOIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorFECHA_PAGO].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetFECHA_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorFECHA_PAGO].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetTITULARValue: String; +begin + result := DataTable.Fields[idx_PagosProveedorTITULAR].AsString; +end; + +procedure TPagosProveedorDataTableRules.SetTITULARValue(const aValue: String); +begin + DataTable.Fields[idx_PagosProveedorTITULAR].AsString := aValue; +end; + +function TPagosProveedorDataTableRules.GetTITULARIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorTITULAR].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetTITULARIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorTITULAR].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetENTIDADValue: String; +begin + result := DataTable.Fields[idx_PagosProveedorENTIDAD].AsString; +end; + +procedure TPagosProveedorDataTableRules.SetENTIDADValue(const aValue: String); +begin + DataTable.Fields[idx_PagosProveedorENTIDAD].AsString := aValue; +end; + +function TPagosProveedorDataTableRules.GetENTIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorENTIDAD].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetENTIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorENTIDAD].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetSUCURSALValue: String; +begin + result := DataTable.Fields[idx_PagosProveedorSUCURSAL].AsString; +end; + +procedure TPagosProveedorDataTableRules.SetSUCURSALValue(const aValue: String); +begin + DataTable.Fields[idx_PagosProveedorSUCURSAL].AsString := aValue; +end; + +function TPagosProveedorDataTableRules.GetSUCURSALIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorSUCURSAL].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetSUCURSALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorSUCURSAL].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetDCValue: String; +begin + result := DataTable.Fields[idx_PagosProveedorDC].AsString; +end; + +procedure TPagosProveedorDataTableRules.SetDCValue(const aValue: String); +begin + DataTable.Fields[idx_PagosProveedorDC].AsString := aValue; +end; + +function TPagosProveedorDataTableRules.GetDCIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorDC].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetDCIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorDC].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetCUENTAValue: String; +begin + result := DataTable.Fields[idx_PagosProveedorCUENTA].AsString; +end; + +procedure TPagosProveedorDataTableRules.SetCUENTAValue(const aValue: String); +begin + DataTable.Fields[idx_PagosProveedorCUENTA].AsString := aValue; +end; + +function TPagosProveedorDataTableRules.GetCUENTAIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorCUENTA].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorCUENTA].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_PagosProveedorFECHA_ALTA].AsDateTime; +end; + +procedure TPagosProveedorDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PagosProveedorFECHA_ALTA].AsDateTime := aValue; +end; + +function TPagosProveedorDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorFECHA_ALTA].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorFECHA_ALTA].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_PagosProveedorFECHA_MODIFICACION].AsDateTime; +end; + +procedure TPagosProveedorDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_PagosProveedorFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TPagosProveedorDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorFECHA_MODIFICACION].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorFECHA_MODIFICACION].AsVariant := Null; +end; + +function TPagosProveedorDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_PagosProveedorUSUARIO].AsString; +end; + +procedure TPagosProveedorDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_PagosProveedorUSUARIO].AsString := aValue; +end; + +function TPagosProveedorDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_PagosProveedorUSUARIO].IsNull; +end; + +procedure TPagosProveedorDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PagosProveedorUSUARIO].AsVariant := Null; +end; + + +initialization + RegisterDataTableRules(RID_RecibosCompensadosProv, TRecibosCompensadosProvDataTableRules); + RegisterDataTableRules(RID_RecibosProveedor, TRecibosProveedorDataTableRules); + RegisterDataTableRules(RID_PagosProveedor, TPagosProveedorDataTableRules); + +end. diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.dcu b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.dcu new file mode 100644 index 00000000..29212663 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas new file mode 100644 index 00000000..25e2a086 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas @@ -0,0 +1,3311 @@ +unit schRecibosProveedorServer_Intf; + +interface + +uses + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schRecibosProveedorClient_Intf; + +const + { Delta rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_RecibosCompensadosProvDelta = '{1BF8059F-5381-4765-8B5A-251109CF804F}'; + RID_RecibosProveedorDelta = '{B134189D-C7D9-4781-9BEE-5C0EBE64025A}'; + RID_PagosProveedorDelta = '{9D89D1F1-4545-4E4C-ADEC-3A0846387899}'; + +type + { IRecibosCompensadosProvDelta } + IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) + ['{1BF8059F-5381-4765-8B5A-251109CF804F}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_RECIBO_COMPENSADOValue : Integer; + function GetOldREFERENCIA_REC_COMPENSADOValue : String; + function GetOldREFERENCIAValue : String; + function GetOldREFERENCIA_PROVEEDORValue : String; + function GetOldSITUACIONValue : String; + function GetOldID_FACTURAValue : Integer; + function GetOldID_REMESAValue : Integer; + function GetOldREFERENCIA_REMESAValue : String; + function GetOldFECHA_EMISIONValue : DateTime; + function GetOldFECHA_VENCIMIENTOValue : DateTime; + function GetOldDESCRIPCIONValue : String; + function GetOldOBSERVACIONESValue : String; + function GetOldIMPORTEValue : Currency; + function GetOldOTROS_GASTOSValue : Currency; + function GetOldIMPORTE_TOTALValue : Currency; + function GetOldREFERENCIA_FACTURA_PROVValue : String; + function GetOldFECHA_FACTURAValue : DateTime; + function GetOldFORMA_PAGO_FACTURAValue : String; + function GetOldIMPORTE_FACTURAValue : Currency; + function GetOldID_EMPRESAValue : Integer; + function GetOldID_PROVEEDORValue : Integer; + function GetOldNOMBRE_PROVEEDORValue : String; + function GetOldNIF_CIF_PROVEEDORValue : String; + function GetOldENTIDAD_PROVEEDORValue : String; + function GetOldSUCURSAL_PROVEEDORValue : String; + function GetOldDC_PROVEEDORValue : String; + function GetOldCUENTA_PROVEEDORValue : String; + function GetOldFECHA_ALTAValue : DateTime; + function GetOldFECHA_MODIFICACIONValue : DateTime; + function GetOldUSUARIOValue : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property OldID_REMESA : Integer read GetOldID_REMESAValue; + property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; + property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; + property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; + property OldIMPORTE : Currency read GetOldIMPORTEValue; + property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; + property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; + property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; + property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; + property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; + property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; + property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; + property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldUSUARIO : String read GetOldUSUARIOValue; + end; + + { TRecibosCompensadosProvBusinessProcessorRules } + TRecibosCompensadosProvBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosCompensadosProv, IRecibosCompensadosProvDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_RECIBO_COMPENSADOValue: Integer; virtual; + function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual; + function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual; + function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; + procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; + function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; + function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual; + function GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; + procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + function GetOldREFERENCIA_PROVEEDORValue: String; virtual; + function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + function GetSITUACIONIsNull: Boolean; virtual; + function GetOldSITUACIONValue: String; virtual; + function GetOldSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetID_FACTURAValue: Integer; virtual; + function GetID_FACTURAIsNull: Boolean; virtual; + function GetOldID_FACTURAValue: Integer; virtual; + function GetOldID_FACTURAIsNull: Boolean; virtual; + procedure SetID_FACTURAValue(const aValue: Integer); virtual; + procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_REMESAValue: Integer; virtual; + function GetID_REMESAIsNull: Boolean; virtual; + function GetOldID_REMESAValue: Integer; virtual; + function GetOldID_REMESAIsNull: Boolean; virtual; + procedure SetID_REMESAValue(const aValue: Integer); virtual; + procedure SetID_REMESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REMESAValue: String; virtual; + function GetREFERENCIA_REMESAIsNull: Boolean; virtual; + function GetOldREFERENCIA_REMESAValue: String; virtual; + function GetOldREFERENCIA_REMESAIsNull: Boolean; virtual; + procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual; + procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual; + function GetFECHA_EMISIONValue: DateTime; virtual; + function GetFECHA_EMISIONIsNull: Boolean; virtual; + function GetOldFECHA_EMISIONValue: DateTime; virtual; + function GetOldFECHA_EMISIONIsNull: Boolean; virtual; + procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); virtual; + function GetFECHA_VENCIMIENTOValue: DateTime; virtual; + function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; + function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; + function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; + procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + function GetOldDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + function GetOBSERVACIONESValue: String; virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + function GetOldOBSERVACIONESValue: String; virtual; + function GetOldOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESValue(const aValue: String); virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; + function GetIMPORTEValue: Currency; virtual; + function GetIMPORTEIsNull: Boolean; virtual; + function GetOldIMPORTEValue: Currency; virtual; + function GetOldIMPORTEIsNull: Boolean; virtual; + procedure SetIMPORTEValue(const aValue: Currency); virtual; + procedure SetIMPORTEIsNull(const aValue: Boolean); virtual; + function GetOTROS_GASTOSValue: Currency; virtual; + function GetOTROS_GASTOSIsNull: Boolean; virtual; + function GetOldOTROS_GASTOSValue: Currency; virtual; + function GetOldOTROS_GASTOSIsNull: Boolean; virtual; + procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual; + procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + function GetOldIMPORTE_TOTALValue: Currency; virtual; + function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_FACTURA_PROVValue: String; virtual; + function GetREFERENCIA_FACTURA_PROVIsNull: Boolean; virtual; + function GetOldREFERENCIA_FACTURA_PROVValue: String; virtual; + function GetOldREFERENCIA_FACTURA_PROVIsNull: Boolean; virtual; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual; + procedure SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + function GetFECHA_FACTURAIsNull: Boolean; virtual; + function GetOldFECHA_FACTURAValue: DateTime; virtual; + function GetOldFECHA_FACTURAIsNull: Boolean; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; + function GetFORMA_PAGO_FACTURAValue: String; virtual; + function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual; + function GetOldFORMA_PAGO_FACTURAValue: String; virtual; + function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual; + procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; + procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_FACTURAValue: Currency; virtual; + function GetIMPORTE_FACTURAIsNull: Boolean; virtual; + function GetOldIMPORTE_FACTURAValue: Currency; virtual; + function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual; + procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual; + procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + function GetOldID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + function GetID_PROVEEDORIsNull: Boolean; virtual; + function GetOldID_PROVEEDORValue: Integer; virtual; + function GetOldID_PROVEEDORIsNull: Boolean; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNOMBRE_PROVEEDORValue: String; virtual; + function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; + function GetOldNOMBRE_PROVEEDORValue: String; virtual; + function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; + procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNIF_CIF_PROVEEDORValue: String; virtual; + function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual; + function GetOldNIF_CIF_PROVEEDORValue: String; virtual; + function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; + procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetENTIDAD_PROVEEDORValue: String; virtual; + function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual; + function GetOldENTIDAD_PROVEEDORValue: String; virtual; + function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual; + procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual; + procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetSUCURSAL_PROVEEDORValue: String; virtual; + function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual; + function GetOldSUCURSAL_PROVEEDORValue: String; virtual; + function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual; + procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual; + procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetDC_PROVEEDORValue: String; virtual; + function GetDC_PROVEEDORIsNull: Boolean; virtual; + function GetOldDC_PROVEEDORValue: String; virtual; + function GetOldDC_PROVEEDORIsNull: Boolean; virtual; + procedure SetDC_PROVEEDORValue(const aValue: String); virtual; + procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetCUENTA_PROVEEDORValue: String; virtual; + function GetCUENTA_PROVEEDORIsNull: Boolean; virtual; + function GetOldCUENTA_PROVEEDORValue: String; virtual; + function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual; + procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual; + procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + function GetOldFECHA_ALTAValue: DateTime; virtual; + function GetOldFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; + function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + function GetUSUARIOIsNull: Boolean; virtual; + function GetOldUSUARIOValue: String; virtual; + function GetOldUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; + property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull; + property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADOIsNull : Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; + property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; + property OldREFERENCIA_REC_COMPENSADOIsNull : Boolean read GetOldREFERENCIA_REC_COMPENSADOIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; + property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; + property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull; + property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue; + property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; + property OldID_REMESA : Integer read GetOldID_REMESAValue; + property OldID_REMESAIsNull : Boolean read GetOldID_REMESAIsNull; + property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; + property REFERENCIA_REMESAIsNull : Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; + property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; + property OldREFERENCIA_REMESAIsNull : Boolean read GetOldREFERENCIA_REMESAIsNull; + property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; + property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; + property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; + property OldFECHA_EMISIONIsNull : Boolean read GetOldFECHA_EMISIONIsNull; + property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; + property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull; + property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; + property OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; + property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; + property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; + property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue; + property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; + property OldIMPORTE : Currency read GetOldIMPORTEValue; + property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull; + property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; + property OTROS_GASTOSIsNull : Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; + property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; + property OldOTROS_GASTOSIsNull : Boolean read GetOldOTROS_GASTOSIsNull; + property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; + property REFERENCIA_FACTURA_PROV : String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; + property REFERENCIA_FACTURA_PROVIsNull : Boolean read GetREFERENCIA_FACTURA_PROVIsNull write SetREFERENCIA_FACTURA_PROVIsNull; + property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; + property OldREFERENCIA_FACTURA_PROVIsNull : Boolean read GetOldREFERENCIA_FACTURA_PROVIsNull; + property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull; + property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; + property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; + property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; + property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull; + property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; + property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; + property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; + property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull; + property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; + property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; + property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; + property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; + property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; + property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull; + property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; + property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; + property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull; + property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; + property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; + property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; + property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull; + property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; + property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; + property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; + property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull; + property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; + property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; + property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; + property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull; + property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; + property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; + property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; + property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull; + property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; + property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; + property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IRecibosProveedorDelta } + IRecibosProveedorDelta = interface(IRecibosProveedor) + ['{B134189D-C7D9-4781-9BEE-5C0EBE64025A}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_RECIBO_COMPENSADOValue : Integer; + function GetOldREFERENCIA_REC_COMPENSADOValue : String; + function GetOldREFERENCIAValue : String; + function GetOldREFERENCIA_PROVEEDORValue : String; + function GetOldSITUACIONValue : String; + function GetOldID_FACTURAValue : Integer; + function GetOldID_REMESAValue : Integer; + function GetOldREFERENCIA_REMESAValue : String; + function GetOldFECHA_EMISIONValue : DateTime; + function GetOldFECHA_VENCIMIENTOValue : DateTime; + function GetOldDESCRIPCIONValue : String; + function GetOldOBSERVACIONESValue : String; + function GetOldIMPORTEValue : Currency; + function GetOldOTROS_GASTOSValue : Currency; + function GetOldIMPORTE_TOTALValue : Currency; + function GetOldREFERENCIA_FACTURA_PROVValue : String; + function GetOldFECHA_FACTURAValue : DateTime; + function GetOldFORMA_PAGO_FACTURAValue : String; + function GetOldIMPORTE_FACTURAValue : Currency; + function GetOldID_EMPRESAValue : Integer; + function GetOldID_PROVEEDORValue : Integer; + function GetOldNOMBRE_PROVEEDORValue : String; + function GetOldNIF_CIF_PROVEEDORValue : String; + function GetOldENTIDAD_PROVEEDORValue : String; + function GetOldSUCURSAL_PROVEEDORValue : String; + function GetOldDC_PROVEEDORValue : String; + function GetOldCUENTA_PROVEEDORValue : String; + function GetOldFECHA_ALTAValue : DateTime; + function GetOldFECHA_MODIFICACIONValue : DateTime; + function GetOldUSUARIOValue : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property OldID_REMESA : Integer read GetOldID_REMESAValue; + property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; + property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; + property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; + property OldIMPORTE : Currency read GetOldIMPORTEValue; + property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; + property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; + property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; + property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; + property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; + property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; + property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; + property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldUSUARIO : String read GetOldUSUARIOValue; + end; + + { TRecibosProveedorBusinessProcessorRules } + TRecibosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IRecibosProveedor, IRecibosProveedorDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_RECIBO_COMPENSADOValue: Integer; virtual; + function GetID_RECIBO_COMPENSADOIsNull: Boolean; virtual; + function GetOldID_RECIBO_COMPENSADOValue: Integer; virtual; + function GetOldID_RECIBO_COMPENSADOIsNull: Boolean; virtual; + procedure SetID_RECIBO_COMPENSADOValue(const aValue: Integer); virtual; + procedure SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REC_COMPENSADOValue: String; virtual; + function GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; + function GetOldREFERENCIA_REC_COMPENSADOValue: String; virtual; + function GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; virtual; + procedure SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); virtual; + procedure SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + function GetOldREFERENCIA_PROVEEDORValue: String; virtual; + function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + function GetSITUACIONIsNull: Boolean; virtual; + function GetOldSITUACIONValue: String; virtual; + function GetOldSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetID_FACTURAValue: Integer; virtual; + function GetID_FACTURAIsNull: Boolean; virtual; + function GetOldID_FACTURAValue: Integer; virtual; + function GetOldID_FACTURAIsNull: Boolean; virtual; + procedure SetID_FACTURAValue(const aValue: Integer); virtual; + procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_REMESAValue: Integer; virtual; + function GetID_REMESAIsNull: Boolean; virtual; + function GetOldID_REMESAValue: Integer; virtual; + function GetOldID_REMESAIsNull: Boolean; virtual; + procedure SetID_REMESAValue(const aValue: Integer); virtual; + procedure SetID_REMESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_REMESAValue: String; virtual; + function GetREFERENCIA_REMESAIsNull: Boolean; virtual; + function GetOldREFERENCIA_REMESAValue: String; virtual; + function GetOldREFERENCIA_REMESAIsNull: Boolean; virtual; + procedure SetREFERENCIA_REMESAValue(const aValue: String); virtual; + procedure SetREFERENCIA_REMESAIsNull(const aValue: Boolean); virtual; + function GetFECHA_EMISIONValue: DateTime; virtual; + function GetFECHA_EMISIONIsNull: Boolean; virtual; + function GetOldFECHA_EMISIONValue: DateTime; virtual; + function GetOldFECHA_EMISIONIsNull: Boolean; virtual; + procedure SetFECHA_EMISIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_EMISIONIsNull(const aValue: Boolean); virtual; + function GetFECHA_VENCIMIENTOValue: DateTime; virtual; + function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual; + function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual; + function GetOldFECHA_VENCIMIENTOIsNull: Boolean; virtual; + procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual; + procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + function GetOldDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + function GetOBSERVACIONESValue: String; virtual; + function GetOBSERVACIONESIsNull: Boolean; virtual; + function GetOldOBSERVACIONESValue: String; virtual; + function GetOldOBSERVACIONESIsNull: Boolean; virtual; + procedure SetOBSERVACIONESValue(const aValue: String); virtual; + procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; + function GetIMPORTEValue: Currency; virtual; + function GetIMPORTEIsNull: Boolean; virtual; + function GetOldIMPORTEValue: Currency; virtual; + function GetOldIMPORTEIsNull: Boolean; virtual; + procedure SetIMPORTEValue(const aValue: Currency); virtual; + procedure SetIMPORTEIsNull(const aValue: Boolean); virtual; + function GetOTROS_GASTOSValue: Currency; virtual; + function GetOTROS_GASTOSIsNull: Boolean; virtual; + function GetOldOTROS_GASTOSValue: Currency; virtual; + function GetOldOTROS_GASTOSIsNull: Boolean; virtual; + procedure SetOTROS_GASTOSValue(const aValue: Currency); virtual; + procedure SetOTROS_GASTOSIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + function GetOldIMPORTE_TOTALValue: Currency; virtual; + function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_FACTURA_PROVValue: String; virtual; + function GetREFERENCIA_FACTURA_PROVIsNull: Boolean; virtual; + function GetOldREFERENCIA_FACTURA_PROVValue: String; virtual; + function GetOldREFERENCIA_FACTURA_PROVIsNull: Boolean; virtual; + procedure SetREFERENCIA_FACTURA_PROVValue(const aValue: String); virtual; + procedure SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + function GetFECHA_FACTURAIsNull: Boolean; virtual; + function GetOldFECHA_FACTURAValue: DateTime; virtual; + function GetOldFECHA_FACTURAIsNull: Boolean; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; + function GetFORMA_PAGO_FACTURAValue: String; virtual; + function GetFORMA_PAGO_FACTURAIsNull: Boolean; virtual; + function GetOldFORMA_PAGO_FACTURAValue: String; virtual; + function GetOldFORMA_PAGO_FACTURAIsNull: Boolean; virtual; + procedure SetFORMA_PAGO_FACTURAValue(const aValue: String); virtual; + procedure SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_FACTURAValue: Currency; virtual; + function GetIMPORTE_FACTURAIsNull: Boolean; virtual; + function GetOldIMPORTE_FACTURAValue: Currency; virtual; + function GetOldIMPORTE_FACTURAIsNull: Boolean; virtual; + procedure SetIMPORTE_FACTURAValue(const aValue: Currency); virtual; + procedure SetIMPORTE_FACTURAIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + function GetOldID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetID_PROVEEDORValue: Integer; virtual; + function GetID_PROVEEDORIsNull: Boolean; virtual; + function GetOldID_PROVEEDORValue: Integer; virtual; + function GetOldID_PROVEEDORIsNull: Boolean; virtual; + procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; + procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNOMBRE_PROVEEDORValue: String; virtual; + function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; + function GetOldNOMBRE_PROVEEDORValue: String; virtual; + function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual; + procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; + procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetNIF_CIF_PROVEEDORValue: String; virtual; + function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual; + function GetOldNIF_CIF_PROVEEDORValue: String; virtual; + function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual; + procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual; + procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetENTIDAD_PROVEEDORValue: String; virtual; + function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual; + function GetOldENTIDAD_PROVEEDORValue: String; virtual; + function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual; + procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual; + procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetSUCURSAL_PROVEEDORValue: String; virtual; + function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual; + function GetOldSUCURSAL_PROVEEDORValue: String; virtual; + function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual; + procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual; + procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetDC_PROVEEDORValue: String; virtual; + function GetDC_PROVEEDORIsNull: Boolean; virtual; + function GetOldDC_PROVEEDORValue: String; virtual; + function GetOldDC_PROVEEDORIsNull: Boolean; virtual; + procedure SetDC_PROVEEDORValue(const aValue: String); virtual; + procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetCUENTA_PROVEEDORValue: String; virtual; + function GetCUENTA_PROVEEDORIsNull: Boolean; virtual; + function GetOldCUENTA_PROVEEDORValue: String; virtual; + function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual; + procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual; + procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + function GetOldFECHA_ALTAValue: DateTime; virtual; + function GetOldFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; + function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + function GetUSUARIOIsNull: Boolean; virtual; + function GetOldUSUARIOValue: String; virtual; + function GetOldUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_RECIBO_COMPENSADO : Integer read GetID_RECIBO_COMPENSADOValue write SetID_RECIBO_COMPENSADOValue; + property ID_RECIBO_COMPENSADOIsNull : Boolean read GetID_RECIBO_COMPENSADOIsNull write SetID_RECIBO_COMPENSADOIsNull; + property OldID_RECIBO_COMPENSADO : Integer read GetOldID_RECIBO_COMPENSADOValue; + property OldID_RECIBO_COMPENSADOIsNull : Boolean read GetOldID_RECIBO_COMPENSADOIsNull; + property REFERENCIA_REC_COMPENSADO : String read GetREFERENCIA_REC_COMPENSADOValue write SetREFERENCIA_REC_COMPENSADOValue; + property REFERENCIA_REC_COMPENSADOIsNull : Boolean read GetREFERENCIA_REC_COMPENSADOIsNull write SetREFERENCIA_REC_COMPENSADOIsNull; + property OldREFERENCIA_REC_COMPENSADO : String read GetOldREFERENCIA_REC_COMPENSADOValue; + property OldREFERENCIA_REC_COMPENSADOIsNull : Boolean read GetOldREFERENCIA_REC_COMPENSADOIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; + property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; + property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; + property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; + property OldID_FACTURA : Integer read GetOldID_FACTURAValue; + property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull; + property ID_REMESA : Integer read GetID_REMESAValue write SetID_REMESAValue; + property ID_REMESAIsNull : Boolean read GetID_REMESAIsNull write SetID_REMESAIsNull; + property OldID_REMESA : Integer read GetOldID_REMESAValue; + property OldID_REMESAIsNull : Boolean read GetOldID_REMESAIsNull; + property REFERENCIA_REMESA : String read GetREFERENCIA_REMESAValue write SetREFERENCIA_REMESAValue; + property REFERENCIA_REMESAIsNull : Boolean read GetREFERENCIA_REMESAIsNull write SetREFERENCIA_REMESAIsNull; + property OldREFERENCIA_REMESA : String read GetOldREFERENCIA_REMESAValue; + property OldREFERENCIA_REMESAIsNull : Boolean read GetOldREFERENCIA_REMESAIsNull; + property FECHA_EMISION : DateTime read GetFECHA_EMISIONValue write SetFECHA_EMISIONValue; + property FECHA_EMISIONIsNull : Boolean read GetFECHA_EMISIONIsNull write SetFECHA_EMISIONIsNull; + property OldFECHA_EMISION : DateTime read GetOldFECHA_EMISIONValue; + property OldFECHA_EMISIONIsNull : Boolean read GetOldFECHA_EMISIONIsNull; + property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue; + property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull; + property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue; + property OldFECHA_VENCIMIENTOIsNull : Boolean read GetOldFECHA_VENCIMIENTOIsNull; + property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; + property OBSERVACIONES : String read GetOBSERVACIONESValue write SetOBSERVACIONESValue; + property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; + property OldOBSERVACIONES : String read GetOldOBSERVACIONESValue; + property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; + property IMPORTE : Currency read GetIMPORTEValue write SetIMPORTEValue; + property IMPORTEIsNull : Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull; + property OldIMPORTE : Currency read GetOldIMPORTEValue; + property OldIMPORTEIsNull : Boolean read GetOldIMPORTEIsNull; + property OTROS_GASTOS : Currency read GetOTROS_GASTOSValue write SetOTROS_GASTOSValue; + property OTROS_GASTOSIsNull : Boolean read GetOTROS_GASTOSIsNull write SetOTROS_GASTOSIsNull; + property OldOTROS_GASTOS : Currency read GetOldOTROS_GASTOSValue; + property OldOTROS_GASTOSIsNull : Boolean read GetOldOTROS_GASTOSIsNull; + property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; + property REFERENCIA_FACTURA_PROV : String read GetREFERENCIA_FACTURA_PROVValue write SetREFERENCIA_FACTURA_PROVValue; + property REFERENCIA_FACTURA_PROVIsNull : Boolean read GetREFERENCIA_FACTURA_PROVIsNull write SetREFERENCIA_FACTURA_PROVIsNull; + property OldREFERENCIA_FACTURA_PROV : String read GetOldREFERENCIA_FACTURA_PROVValue; + property OldREFERENCIA_FACTURA_PROVIsNull : Boolean read GetOldREFERENCIA_FACTURA_PROVIsNull; + property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull; + property FORMA_PAGO_FACTURA : String read GetFORMA_PAGO_FACTURAValue write SetFORMA_PAGO_FACTURAValue; + property FORMA_PAGO_FACTURAIsNull : Boolean read GetFORMA_PAGO_FACTURAIsNull write SetFORMA_PAGO_FACTURAIsNull; + property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue; + property OldFORMA_PAGO_FACTURAIsNull : Boolean read GetOldFORMA_PAGO_FACTURAIsNull; + property IMPORTE_FACTURA : Currency read GetIMPORTE_FACTURAValue write SetIMPORTE_FACTURAValue; + property IMPORTE_FACTURAIsNull : Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull; + property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue; + property OldIMPORTE_FACTURAIsNull : Boolean read GetOldIMPORTE_FACTURAIsNull; + property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; + property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; + property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; + property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; + property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; + property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; + property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; + property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; + property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull; + property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue; + property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull; + property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue; + property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull; + property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue; + property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull; + property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue; + property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull; + property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue; + property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull; + property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue; + property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull; + property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue; + property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull; + property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue; + property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull; + property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue; + property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull; + property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue; + property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull; + property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; + property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; + property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IPagosProveedorDelta } + IPagosProveedorDelta = interface(IPagosProveedor) + ['{9D89D1F1-4545-4E4C-ADEC-3A0846387899}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_RECIBOValue : Integer; + function GetOldTIPOValue : String; + function GetOldFECHA_PAGOValue : DateTime; + function GetOldTITULARValue : String; + function GetOldENTIDADValue : String; + function GetOldSUCURSALValue : String; + function GetOldDCValue : String; + function GetOldCUENTAValue : String; + function GetOldFECHA_ALTAValue : DateTime; + function GetOldFECHA_MODIFICACIONValue : DateTime; + function GetOldUSUARIOValue : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_RECIBO : Integer read GetOldID_RECIBOValue; + property OldTIPO : String read GetOldTIPOValue; + property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue; + property OldTITULAR : String read GetOldTITULARValue; + property OldENTIDAD : String read GetOldENTIDADValue; + property OldSUCURSAL : String read GetOldSUCURSALValue; + property OldDC : String read GetOldDCValue; + property OldCUENTA : String read GetOldCUENTAValue; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldUSUARIO : String read GetOldUSUARIOValue; + end; + + { TPagosProveedorBusinessProcessorRules } + TPagosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IPagosProveedor, IPagosProveedorDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_RECIBOValue: Integer; virtual; + function GetID_RECIBOIsNull: Boolean; virtual; + function GetOldID_RECIBOValue: Integer; virtual; + function GetOldID_RECIBOIsNull: Boolean; virtual; + procedure SetID_RECIBOValue(const aValue: Integer); virtual; + procedure SetID_RECIBOIsNull(const aValue: Boolean); virtual; + function GetTIPOValue: String; virtual; + function GetTIPOIsNull: Boolean; virtual; + function GetOldTIPOValue: String; virtual; + function GetOldTIPOIsNull: Boolean; virtual; + procedure SetTIPOValue(const aValue: String); virtual; + procedure SetTIPOIsNull(const aValue: Boolean); virtual; + function GetFECHA_PAGOValue: DateTime; virtual; + function GetFECHA_PAGOIsNull: Boolean; virtual; + function GetOldFECHA_PAGOValue: DateTime; virtual; + function GetOldFECHA_PAGOIsNull: Boolean; virtual; + procedure SetFECHA_PAGOValue(const aValue: DateTime); virtual; + procedure SetFECHA_PAGOIsNull(const aValue: Boolean); virtual; + function GetTITULARValue: String; virtual; + function GetTITULARIsNull: Boolean; virtual; + function GetOldTITULARValue: String; virtual; + function GetOldTITULARIsNull: Boolean; virtual; + procedure SetTITULARValue(const aValue: String); virtual; + procedure SetTITULARIsNull(const aValue: Boolean); virtual; + function GetENTIDADValue: String; virtual; + function GetENTIDADIsNull: Boolean; virtual; + function GetOldENTIDADValue: String; virtual; + function GetOldENTIDADIsNull: Boolean; virtual; + procedure SetENTIDADValue(const aValue: String); virtual; + procedure SetENTIDADIsNull(const aValue: Boolean); virtual; + function GetSUCURSALValue: String; virtual; + function GetSUCURSALIsNull: Boolean; virtual; + function GetOldSUCURSALValue: String; virtual; + function GetOldSUCURSALIsNull: Boolean; virtual; + procedure SetSUCURSALValue(const aValue: String); virtual; + procedure SetSUCURSALIsNull(const aValue: Boolean); virtual; + function GetDCValue: String; virtual; + function GetDCIsNull: Boolean; virtual; + function GetOldDCValue: String; virtual; + function GetOldDCIsNull: Boolean; virtual; + procedure SetDCValue(const aValue: String); virtual; + procedure SetDCIsNull(const aValue: Boolean); virtual; + function GetCUENTAValue: String; virtual; + function GetCUENTAIsNull: Boolean; virtual; + function GetOldCUENTAValue: String; virtual; + function GetOldCUENTAIsNull: Boolean; virtual; + procedure SetCUENTAValue(const aValue: String); virtual; + procedure SetCUENTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + function GetOldFECHA_ALTAValue: DateTime; virtual; + function GetOldFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; + function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + function GetUSUARIOIsNull: Boolean; virtual; + function GetOldUSUARIOValue: String; virtual; + function GetOldUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_RECIBO : Integer read GetID_RECIBOValue write SetID_RECIBOValue; + property ID_RECIBOIsNull : Boolean read GetID_RECIBOIsNull write SetID_RECIBOIsNull; + property OldID_RECIBO : Integer read GetOldID_RECIBOValue; + property OldID_RECIBOIsNull : Boolean read GetOldID_RECIBOIsNull; + property TIPO : String read GetTIPOValue write SetTIPOValue; + property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; + property OldTIPO : String read GetOldTIPOValue; + property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; + property FECHA_PAGO : DateTime read GetFECHA_PAGOValue write SetFECHA_PAGOValue; + property FECHA_PAGOIsNull : Boolean read GetFECHA_PAGOIsNull write SetFECHA_PAGOIsNull; + property OldFECHA_PAGO : DateTime read GetOldFECHA_PAGOValue; + property OldFECHA_PAGOIsNull : Boolean read GetOldFECHA_PAGOIsNull; + property TITULAR : String read GetTITULARValue write SetTITULARValue; + property TITULARIsNull : Boolean read GetTITULARIsNull write SetTITULARIsNull; + property OldTITULAR : String read GetOldTITULARValue; + property OldTITULARIsNull : Boolean read GetOldTITULARIsNull; + property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; + property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull; + property OldENTIDAD : String read GetOldENTIDADValue; + property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull; + property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue; + property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull; + property OldSUCURSAL : String read GetOldSUCURSALValue; + property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull; + property DC : String read GetDCValue write SetDCValue; + property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull; + property OldDC : String read GetOldDCValue; + property OldDCIsNull : Boolean read GetOldDCIsNull; + property CUENTA : String read GetCUENTAValue write SetCUENTAValue; + property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull; + property OldCUENTA : String read GetOldCUENTAValue; + property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull; + property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; + property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; + property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; + property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + +implementation + +uses + Variants, uROBinaryHelpers, uDAInterfaces; + +{ TRecibosCompensadosProvBusinessProcessorRules } +constructor TRecibosCompensadosProvBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TRecibosCompensadosProvBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_RECIBO_COMPENSADO] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REC_COMPENSADO] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_PROVEEDOR] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSITUACION]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSITUACION]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetSITUACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSITUACION] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_FACTURA]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_FACTURA] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_REMESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_REMESA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_REMESA]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_REMESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_REMESA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_REMESA]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_REMESA] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_REMESA] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_REMESAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_REMESA] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_EMISION]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_EMISION]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_EMISIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_EMISION] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_VENCIMIENTO] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDESCRIPCION]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDESCRIPCION]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDESCRIPCION]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDESCRIPCION]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDESCRIPCION] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDESCRIPCION] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOBSERVACIONESValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOBSERVACIONES]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOBSERVACIONES]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldOBSERVACIONESValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOBSERVACIONES]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOBSERVACIONES]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOBSERVACIONES] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOBSERVACIONES] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOTROS_GASTOSValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOTROS_GASTOS]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvOTROS_GASTOS]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetOTROS_GASTOSIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvOTROS_GASTOS] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_TOTAL] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvREFERENCIA_FACTURA_PROV] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_FACTURA]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_FACTURA] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFORMA_PAGO_FACTURA] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvIMPORTE_FACTURA] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_EMPRESA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_EMPRESA]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_EMPRESA] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_PROVEEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvID_PROVEEDOR]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvID_PROVEEDOR] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNOMBRE_PROVEEDOR] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetNIF_CIF_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_ALTA]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_ALTA]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_MODIFICACION] := Null; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO]); +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvUSUARIO]; +end; + +function TRecibosCompensadosProvBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvUSUARIO]); +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO] := aValue; +end; + +procedure TRecibosCompensadosProvBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvUSUARIO] := Null; +end; + + +{ TRecibosProveedorBusinessProcessorRules } +constructor TRecibosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TRecibosProveedorBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TRecibosProveedorBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetID_RECIBO_COMPENSADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetID_RECIBO_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_RECIBO_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_RECIBO_COMPENSADOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_RECIBO_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_RECIBO_COMPENSADO] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REC_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REC_COMPENSADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REC_COMPENSADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REC_COMPENSADO] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_PROVEEDOR] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSITUACION]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSITUACION]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSITUACION] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_FACTURAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_FACTURA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_FACTURA]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_FACTURA] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetID_REMESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetID_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_REMESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_REMESA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_REMESA]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_REMESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_REMESA] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REMESAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REMESAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REMESA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_REMESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_REMESA]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REMESAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_REMESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_REMESA] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFECHA_EMISIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFECHA_EMISIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_EMISIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_EMISION]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_EMISIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_EMISION]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_EMISIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_EMISIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_EMISION] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_VENCIMIENTO] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDESCRIPCION]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDESCRIPCION]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDESCRIPCION] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOBSERVACIONESValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldOBSERVACIONESValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOBSERVACIONES]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOBSERVACIONES]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOBSERVACIONES] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetIMPORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetIMPORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOTROS_GASTOSValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOTROS_GASTOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldOTROS_GASTOSValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOTROS_GASTOS]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldOTROS_GASTOSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorOTROS_GASTOS]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetOTROS_GASTOSValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetOTROS_GASTOSIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorOTROS_GASTOS] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_TOTAL]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_TOTAL]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_TOTAL] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetREFERENCIA_FACTURA_PROVIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldREFERENCIA_FACTURA_PROVIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetREFERENCIA_FACTURA_PROVIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorREFERENCIA_FACTURA_PROV] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_FACTURA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_FACTURA]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_FACTURA] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFORMA_PAGO_FACTURAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFORMA_PAGO_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFORMA_PAGO_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFORMA_PAGO_FACTURAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFORMA_PAGO_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFORMA_PAGO_FACTURA] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_FACTURAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetIMPORTE_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_FACTURAValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_FACTURA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldIMPORTE_FACTURAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorIMPORTE_FACTURA]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_FACTURAValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetIMPORTE_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorIMPORTE_FACTURA] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_EMPRESA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_EMPRESA]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetID_PROVEEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorID_PROVEEDOR]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_PROVEEDOR] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNOMBRE_PROVEEDOR] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetNIF_CIF_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_ALTA]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_ALTA]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_MODIFICACION]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorFECHA_MODIFICACION]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_MODIFICACION] := Null; +end; + +function TRecibosProveedorBusinessProcessorRules.GetUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO]); +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorUSUARIO]; +end; + +function TRecibosProveedorBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorUSUARIO]); +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO] := aValue; +end; + +procedure TRecibosProveedorBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorUSUARIO] := Null; +end; + + +{ TPagosProveedorBusinessProcessorRules } +constructor TPagosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TPagosProveedorBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TPagosProveedorBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID]; +end; + +function TPagosProveedorBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetID_RECIBOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO]; +end; + +function TPagosProveedorBusinessProcessorRules.GetID_RECIBOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldID_RECIBOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_RECIBO]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldID_RECIBOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorID_RECIBO]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetID_RECIBOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetID_RECIBOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorID_RECIBO] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO]; +end; + +function TPagosProveedorBusinessProcessorRules.GetTIPOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTIPO]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldTIPOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTIPO]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetTIPOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTIPO] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetFECHA_PAGOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO]; +end; + +function TPagosProveedorBusinessProcessorRules.GetFECHA_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldFECHA_PAGOValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_PAGO]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldFECHA_PAGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_PAGO]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetFECHA_PAGOValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetFECHA_PAGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_PAGO] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetTITULARValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR]; +end; + +function TPagosProveedorBusinessProcessorRules.GetTITULARIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldTITULARValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTITULAR]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldTITULARIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorTITULAR]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetTITULARValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetTITULARIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorTITULAR] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetENTIDADValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD]; +end; + +function TPagosProveedorBusinessProcessorRules.GetENTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldENTIDADValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorENTIDAD]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldENTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorENTIDAD]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetENTIDADValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorENTIDAD] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetSUCURSALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL]; +end; + +function TPagosProveedorBusinessProcessorRules.GetSUCURSALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldSUCURSALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorSUCURSAL]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorSUCURSAL]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetSUCURSALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorSUCURSAL] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetDCValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC]; +end; + +function TPagosProveedorBusinessProcessorRules.GetDCIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldDCValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorDC]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldDCIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorDC]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetDCValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetDCIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorDC] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA]; +end; + +function TPagosProveedorBusinessProcessorRules.GetCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldCUENTAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorCUENTA]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldCUENTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorCUENTA]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetCUENTAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorCUENTA] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA]; +end; + +function TPagosProveedorBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_ALTA]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_ALTA]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_ALTA] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION]; +end; + +function TPagosProveedorBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_MODIFICACION]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorFECHA_MODIFICACION]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorFECHA_MODIFICACION] := Null; +end; + +function TPagosProveedorBusinessProcessorRules.GetUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO]; +end; + +function TPagosProveedorBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO]); +end; + +function TPagosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorUSUARIO]; +end; + +function TPagosProveedorBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PagosProveedorUSUARIO]); +end; + +procedure TPagosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO] := aValue; +end; + +procedure TPagosProveedorBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PagosProveedorUSUARIO] := Null; +end; + + +initialization + RegisterBusinessProcessorRules(RID_RecibosCompensadosProvDelta, TRecibosCompensadosProvBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_RecibosProveedorDelta, TRecibosProveedorBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_PagosProveedorDelta, TPagosProveedorBusinessProcessorRules); + +end. diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.dcu new file mode 100644 index 00000000..24358fdf Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.pas b/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.pas new file mode 100644 index 00000000..b11e95c7 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/uBizPagosProveedor.pas @@ -0,0 +1,70 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uBizPagosProveedor; + +interface + +uses + uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosProveedorClient_Intf; + +const + BIZ_CLIENT_IBIZPAGOSPROVEEDOR = 'Client.IBizPagosProveedor'; + + CTE_PAGO = 'Pago'; + CTE_DEVOLUCION = 'Devolución'; + +type + IBizPagosProveedor = interface(IPagosProveedor) + ['{5446E4B5-09E7-4FF0-ACFE-E157E9CADB17}'] + end; + + TBizPagosProveedor = class(TPagosProveedorDataTableRules, IBizPagosProveedor) + protected + procedure BeforeInsert(Sender: TDADataTable); override; + end; + +implementation + +uses + DB; + +{ TBizPagosProveedor } + +procedure TBizPagosProveedor.BeforeInsert(Sender: TDADataTable); +var + AMasterTable : TDADataTable; +begin + inherited; + AMasterTable := DataTable.GetMasterDataTable; + if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then + AMasterTable.Post; +end; + +initialization + RegisterDataTableRules(BIZ_CLIENT_IBIZPAGOSPROVEEDOR, TBizPagosProveedor); + +finalization + +end. + diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosCliCompensados.pas b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosCliCompensados.pas new file mode 100644 index 00000000..1bb4d432 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosCliCompensados.pas @@ -0,0 +1,68 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uBizRecibosCliCompensados; + +interface + +uses + uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosProveedorClient_Intf; + +const + BIZ_CLIENT_RECIBOS_COMPENSADOSPROV = 'Client.RecibosCompensadosProv'; + +type + IBizRecibosCompensadosProv = interface(IRecibosCompensadosProv) + ['{64F55788-08FC-473D-A5CA-5F99509C2529}'] + end; + + TBizRecibosCompensadosProv = class(TRecibosCompensadosProvDataTableRules, IBizRecibosCompensadosProv) + protected + procedure BeforeInsert(Sender: TDADataTable); override; + end; + +implementation + +uses + DB; + + +{ TBizRecibosCompensadosProv } + +procedure TBizRecibosCompensadosProv.BeforeInsert(Sender: TDADataTable); +var + AMasterTable : TDADataTable; +begin + inherited; + AMasterTable := DataTable.GetMasterDataTable; + if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then + AMasterTable.Post; +end; + +initialization + RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOSPROV, TBizRecibosCompensadosProv); + +finalization + +end. + diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProvCompensados.dcu b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProvCompensados.dcu new file mode 100644 index 00000000..c4ba332d Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProvCompensados.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProvCompensados.pas b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProvCompensados.pas new file mode 100644 index 00000000..78783f57 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProvCompensados.pas @@ -0,0 +1,68 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uBizRecibosProvCompensados; + +interface + +uses + uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosProveedorClient_Intf; + +const + BIZ_CLIENT_RECIBOS_COMPENSADOSPROV = 'Client.RecibosCompensadosProv'; + +type + IBizRecibosCompensadosProv = interface(IRecibosCompensadosProv) + ['{64F55788-08FC-473D-A5CA-5F99509C2529}'] + end; + + TBizRecibosCompensadosProv = class(TRecibosCompensadosProvDataTableRules, IBizRecibosCompensadosProv) + protected + procedure BeforeInsert(Sender: TDADataTable); override; + end; + +implementation + +uses + DB; + + +{ TBizRecibosCompensadosProv } + +procedure TBizRecibosCompensadosProv.BeforeInsert(Sender: TDADataTable); +var + AMasterTable : TDADataTable; +begin + inherited; + AMasterTable := DataTable.GetMasterDataTable; + if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then + AMasterTable.Post; +end; + +initialization + RegisterDataTableRules(BIZ_CLIENT_RECIBOS_COMPENSADOSPROV, TBizRecibosCompensadosProv); + +finalization + +end. + diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.dcu new file mode 100644 index 00000000..5a0ec46d Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas new file mode 100644 index 00000000..2bb0df14 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas @@ -0,0 +1,211 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uBizRecibosProveedor; + +interface + +uses + uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosProveedorClient_Intf, + uBizPagosProveedor, uBizRecibosProvCompensados, uBizContactos; + +const + BIZ_CLIENT_IBIZRECIBOSPROVEEDOR = 'Client.IBizRecibosProveedor'; + + CTE_PENDIENTE = 'PENDIENTE'; + CTE_PAGADO = 'PAGADO'; + CTE_DEVUELTO = 'DEVUELTO'; + +type + + IBizRecibosProveedor = interface(IRecibosProveedor) + ['{FEE753DF-0471-4754-A86C-58BF615929CF}'] + function EsNuevo : Boolean; + + // No se puede cambiar el Proveedor por que depende de la factura + function GetProveedor : IBizProveedor; + property Proveedor : IBizProveedor read GetProveedor; + + // Esta propidad es para que el controlador pueda acceder directamente + // a la propiedad Proveedor + procedure _SetProveedor(AValue : IBizProveedor); + function _GetProveedor : IBizProveedor; + property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor; + + procedure SetPagos(AValue : IBizPagosProveedor); + function GetPagos : IBizPagosProveedor; + property Pagos : IBizPagosProveedor read GetPagos write SetPagos; + + function GetRecibosCompensados: IBizRecibosCompensadosProv; + procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosProv); + property RecibosCompensados: IBizRecibosCompensadosProv read GetRecibosCompensados write SetRecibosCompensados; + end; + + + TBizRecibosProveedor = class(TRecibosProveedorDataTableRules, IBizRecibosProveedor, ISeleccionable) + protected + FPagos : IBizPagosProveedor; + FPagosLink : TDADataSource; + FRecibosCompensados: IBizRecibosCompensadosProv; + FRecibosCompensadosLink : TDADataSource; + FProveedor : IBizProveedor; + FSeleccionableInterface : ISeleccionable; + + // No se puede cambiar el Proveedor por que depende de la factura + function GetProveedor : IBizProveedor; + property Proveedor : IBizProveedor read GetProveedor; + + // Esta propidad es para que el controlador pueda acceder directamente + // a la propiedad Proveedor + procedure _SetProveedor(AValue : IBizProveedor); + function _GetProveedor : IBizProveedor; + property _Proveedor : IBizProveedor read _GetProveedor write _SetProveedor; + + procedure SetPagos(AValue : IBizPagosProveedor); + function GetPagos : IBizPagosProveedor; + procedure OnNewRecord(Sender: TDADataTable); override; + + function GetRecibosCompensados: IBizRecibosCompensadosProv; + procedure SetRecibosCompensados(const Value: IBizRecibosCompensadosProv); + + procedure SetID_REMESAValue(const aValue: Integer); override; + + public + property RecibosCompensados: IBizRecibosCompensadosProv read GetRecibosCompensados write SetRecibosCompensados; + property Pagos : IBizPagosProveedor read GetPagos write SetPagos; + property SeleccionableInterface : ISeleccionable read FSeleccionableInterface + write FSeleccionableInterface + implements ISeleccionable; + + procedure IniciarValoresIBizRecibosProveedorNuevo; + function EsNuevo : Boolean; + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + end; + +implementation + +{ TBizRecibosProveedor } + +uses + SysUtils, uDataTableUtils, schContactosClient_Intf; + + function TBizRecibosProveedor.GetProveedor: IBizProveedor; +begin + Result := FProveedor; +end; + +function TBizRecibosProveedor.GetRecibosCompensados: IBizRecibosCompensadosProv; +begin + Result := FRecibosCompensados; +end; + +function TBizRecibosProveedor.GetPagos: IBizPagosProveedor; +begin + Result := FPagos; +end; + +procedure TBizRecibosProveedor.SetID_REMESAValue(const aValue: Integer); +begin + if (aValue = 0) then + SetFieldNull(DataTable, fld_RecibosProveedorID_REMESA) + else + inherited; +end; + +procedure TBizRecibosProveedor.SetPagos(AValue: IBizPagosProveedor); + begin + FPagos := AValue; + EnlazarMaestroDetalle(FPagosLink, FPagos); + end; + +procedure TBizRecibosProveedor.SetRecibosCompensados(const Value: IBizRecibosCompensadosProv); +begin + FRecibosCompensados := Value; + EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados); + + if Assigned(FRecibosCompensados) then + if not FRecibosCompensados.DataTable.Active then + FRecibosCompensados.DataTable.Active := True; +end; + +function TBizRecibosProveedor._GetProveedor: IBizProveedor; +begin + Result := FProveedor; +end; + +procedure TBizRecibosProveedor._SetProveedor(AValue: IBizProveedor); +begin + FProveedor := AValue; +end; + +constructor TBizRecibosProveedor.Create(aDataTable: TDADataTable); +begin + inherited; + FProveedor := Nil; + FPagos := Nil; + FRecibosCompensados := Nil; + + FPagosLink := TDADataSource.Create(NIL); + FPagosLink.DataTable := aDataTable; + FRecibosCompensadosLink := TDADataSource.Create(NIL); + FRecibosCompensadosLink.DataTable := aDataTable; + + FSeleccionableInterface := TSeleccionable.Create(aDataTable); +end; + +destructor TBizRecibosProveedor.Destroy; +begin + FPagos := NIL; + FRecibosCompensados := Nil; + FreeAndNIL(FPagosLink); + FreeAndNIL(FRecibosCompensadosLink); + FSeleccionableInterface := NIL; + inherited; +end; + +function TBizRecibosProveedor.EsNuevo: Boolean; +begin + Result := (ID < 0); +end; + +procedure TBizRecibosProveedor.IniciarValoresIBizRecibosProveedorNuevo; +begin + FECHA_EMISION := Date; + IMPORTE := 0; + OTROS_GASTOS := 0; +end; + +procedure TBizRecibosProveedor.OnNewRecord(Sender: TDADataTable); +begin + inherited; + IniciarValoresIBizRecibosProveedorNuevo; +end; + +initialization + RegisterDataTableRules(BIZ_CLIENT_IBIZRECIBOSPROVEEDOR, TBizRecibosProveedor); + +finalization + +end. + diff --git a/Source/Modulos/Recibos de proveedor/Model/uIDataModuleRecibosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Model/uIDataModuleRecibosProveedor.dcu new file mode 100644 index 00000000..d94cb79d Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/uIDataModuleRecibosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Model/uIDataModuleRecibosProveedorReport.dcu b/Source/Modulos/Recibos de proveedor/Model/uIDataModuleRecibosProveedorReport.dcu new file mode 100644 index 00000000..4f5119d0 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Model/uIDataModuleRecibosProveedorReport.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.bdsproj b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.bdsproj new file mode 100644 index 00000000..45b23667 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.bdsproj @@ -0,0 +1,496 @@ + + + + + + + + + + + + RecibosProveedor_plugin.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 3 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + EurekaLog 5.1.9 + + + + diff --git a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dcu b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dcu new file mode 100644 index 00000000..55221337 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dpk b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dpk new file mode 100644 index 00000000..291bdd71 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dpk @@ -0,0 +1,34 @@ +package RecibosProveedor_plugin; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} + +requires + RecibosProveedor_controller, + RecibosProveedor_view; + +contains + uPluginRecibosProveedor in 'uPluginRecibosProveedor.pas' {PluginRecibosProveedor}; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dproj b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dproj new file mode 100644 index 00000000..50093945 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dproj @@ -0,0 +1,599 @@ + + + {e7d762a1-3a15-46b2-bd5b-3821d13b8347} + RecibosProveedor_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RecibosProveedor_plugin.bpl + + + 7.0 + False + False + 0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + 3 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + + + + + + + + + + + + + + RemObjects Pascal Script - RemObjects SDK 3.0 Integration + EurekaLog 5.1.9 + + + RecibosProveedor_plugin.dpk + + + + + + + MainSource + + + + +
PluginRecibosProveedor
+ + + + + diff --git a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.drc b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.drc new file mode 100644 index 00000000..408b180b --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.drc @@ -0,0 +1,17 @@ +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler + because -GD or --drc was supplied to the compiler. + + This file contains compiler-generated resources that + were bound to the executable. + If this file is empty, then no compiler-generated + resources were bound to the produced executable. +*/ + +STRINGTABLE +BEGIN +END + +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de proveedor\Plugin\uPluginRecibosProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de proveedor\Plugin\RecibosProveedor_plugin.res */ +/* C:\Codigo Tecsitel\Source\Modulos\Recibos de proveedor\Plugin\RecibosProveedor_plugin.drf */ diff --git a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.identcache b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.identcache new file mode 100644 index 00000000..024853f6 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.identcache differ diff --git a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.rc b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.res b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.res differ diff --git a/Source/Modulos/Recibos de proveedor/Plugin/uPluginRecibosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Plugin/uPluginRecibosProveedor.dcu new file mode 100644 index 00000000..ed7b6ff9 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Plugin/uPluginRecibosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Plugin/uPluginRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Plugin/uPluginRecibosProveedor.dfm new file mode 100644 index 00000000..feb60d0c --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Plugin/uPluginRecibosProveedor.dfm @@ -0,0 +1,124 @@ +object PluginRecibosProveedor: TPluginRecibosProveedor + OldCreateOrder = True + DefaultAction = actRecibosProveedor + Description = 'Compras' + ModuleMenu = MainMenu + ModuleName = 'Recibos de proveedor' + SmallImages = SmallImages + LargeImages = LargeImages + Author = 'Rodax Software' + Version = '1.0.0' + Height = 252 + Width = 401 + object LargeImages: TPngImageList + Height = 24 + Width = 24 + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000022E4944415478DA + 63FCFFFF3F032D01E3D0B760D9965334B321CAC78C116C41A4B729491AFFFCFD + CFF0F7EF3F869FBFFE80E93FFFFE8169301B887FFDFECB109E5EC7707EE77484 + 0589270D091AFC17189CBFFEFE65F8F5E70F98FEF2EB17840FC2404B607245BF + 9633CC5BBA09D382F9E6E7512C927EEBCDD0E4D98C61D13FA06120ECB9DA9EE1 + 23CF03B0E197025E3028AD14045B52F17715A605AAAB85196E87BE051B006283 + C0CD903760FA02E37906E393C6400120479D81E1ACF95906CD1F5A0CBF803E10 + 58CE0F56F33F1D12958C33191926736D47B58056910CB6106601AD221AC5025A + 44348605D48E68AC168000888D6C38BE880EDAE2C1F094FD36C38DE0D760B562 + 8BB919EA18D6E2F701CC70E6534C0C7FCDFE816990E167E3CE3218CF035AA4CD + C0F059E70B03EF151E86D72A6F18C277FA32EC8D3AC620BC880BEC8376968DD8 + 2D400F1AE6E5400B2281162C668218BECC98E16C14909E65CCF021E22383C016 + 7E86172E2F19A2F604305CF873011E1FBDEC5B88B400D9075781121C40FC8301 + EC83B76AEF18846F09313C9179C210773094E1D4CFB3700B6079016F2A8259F2 + 17A8E132CB25481C5C044AE843E240EEAD3CC3CF1F3F300C0701B805200EAEE2 + 02A458F1831F438D732DD8927FE0B4FE178E41FCE8BD8170C37FA6FC01E764BC + 16C0003C6D03F1BBEFDF51F8C818391F2003AC16A0E7D23FD09CF9EDC72F243E + 50EE1F420E9E93A17C901C085CB97907D382298B775056F0A001140BBA27CFA7 + AAE13030F42B7D0062D74EABC521DC370000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end> + Left = 232 + Top = 16 + Bitmap = {} + end + object ModuleActionList: TActionList + Images = LargeImages + Left = 40 + Top = 72 + object actRecibosProveedor: TAction + Category = 'Compras' + Caption = 'Recibos de proveedor' + ImageIndex = 0 + OnExecute = actRecibosProveedorExecute + end + end + object MainMenu: TMainMenu + Images = LargeImages + Left = 40 + Top = 16 + object Compras1: TMenuItem + Caption = 'Compras' + object RecibosdeProveedor1: TMenuItem + Tag = 106 + Action = actRecibosProveedor + end + end + end + object SmallImages: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000CE4944415478DA + 63FCFFFF3F03258071E00D58B6E514D92644F99831820D50F76666987C3219AB + A2DF7FFF327CFFF387E1DBEFDF0C1F7FFC00B3E7FA6F6548F198C3707EE77484 + 0120003364AED9390C836CB6C9C13583008A0154090372BD81620039DE801BB0 + 4B240DAE10A699F9141344E02A03C3DFC47F60A6E65A5186EF4097805C23B72C + 810803AE42C4600628AC10006B06618DD5A90C8C20419021C8068024975B5FC6 + F002B26690570CD767220C8005225812AA08A6109BD8D9F4B390308019D03D79 + 3E79D138E0990900FC7AC6454D6D985F0000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end> + PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] + Left = 308 + Top = 16 + Bitmap = {} + end + object ExtraImages: TPngImageList + Height = 28 + Width = 28 + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF + 940000000970485973000017120000171201679FD252000002364944415478DA + EDD6CF4B14611807F0EF685094522674298C540C2D08199AED1C1D0A2DA488D5 + 090429F07FF0D021C14BC70E91878404C14B102CD882122D25B830EC6604E6A6 + 1BF823977564FD518E3A33DBF3BED36C3BEE4CE8E2CE251F7879DF79DFD9F7C3 + 33EF33C30AD96C167E8670081E3838148AFA26CAAD92C0C18E96AB456DA01B59 + 188649BDC97B3E36F3C6BCA77B682ED8FD18B1F0F3BF60D744F39E21838E61DB + 30B0ADEB56BFBB1160AF8F48D348CE2DA0A7AFBF101C08C41CF059B5054F6EF5 + 7AC2266D6CF28C0CB4BEBE8ED58AEF1C9B6C5B42ED701547C35202738B3FBC41 + 166CEC86C58518C40911F84A17170125A0A0516BE2206B774337B1703481A97B + 697EFF99C1131895BE61319572827E150D8B1CE857E138403F0AA7002C75E1B8 + 82A52C1CCF0CF3B1F2681990A4C71834AD31614AA702F125C19780F5CB1BA87C + 5301D401E9FA6504C3B731268FA3FAD5719E6124308BD472DA1D747B94E5C384 + 980476103858666143221499FA7E1199F6559C0A9DE4F72EDD48411E6D435C8F + E7CEF3C3B524D415751F20CB2A41E0833F197EA1C963D434F00CD58615548F9C + E619CE9F9B47E7FBFB886E2939F0A394C4DA7AE6DFA05BC1B033FA7C64D23AC3 + 4F3471C53AC31AF53C5FD377760A30161171063F7FAD59209BF0FABCB11F5CC8 + DCE1A85D14ACD955997FAD6D6EE2E1B89CC3B61EE9105EF0EDF1AE39014DDB70 + 07ED707DB7F6D1F2C3132CE6EBA13BE6768D69DD0E57F06D245ED4E76DAFE100 + 9F3E1B282966C77FF027EA103CE8F80DA807BCA3E9817F640000000049454E44 + AE426082} + Name = 'PngImage0' + Background = clWindow + end> + Left = 232 + Top = 80 + Bitmap = {} + end +end diff --git a/Source/Modulos/Recibos de proveedor/Plugin/uPluginRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Plugin/uPluginRecibosProveedor.pas new file mode 100644 index 00000000..2b57a331 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Plugin/uPluginRecibosProveedor.pas @@ -0,0 +1,74 @@ +unit uPluginRecibosProveedor; + +interface + +uses + uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, + ImgList, Controls, PngImageList; + +type + IMCRecibosProveedor = interface(IInterface) + ['{24A23E95-D148-404C-9987-B1ED4A19D3CA}'] + end; + + TPluginRecibosProveedor = class(TModuleController, IMCRecibosProveedor) + actRecibosProveedor: TAction; + ExtraImages: TPngImageList; + LargeImages: TPngImageList; + MainMenu: TMainMenu; + ModuleActionList: TActionList; + SmallImages: TPngImageList; + Compras1: TMenuItem; + RecibosdeProveedor1: TMenuItem; + procedure actRecibosProveedorExecute(Sender: TObject); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +{$R *.dfm} + +uses + Forms, Dialogs, SysUtils, + uRecibosProveedorController, uBizRecibosProveedor, uRecibosProveedorViewRegister; + +function GetModule : TModuleController; +begin + Result := TPluginRecibosProveedor.Create(NIL); +end; + +exports + GetModule name GET_MODULE_FUNC; + +procedure TPluginRecibosProveedor.actRecibosProveedorExecute(Sender: TObject); +var + ARecibosProveedorController : IRecibosProveedorController; + ARecibosProveedor : IBizRecibosProveedor; + +begin + ARecibosProveedorController := TRecibosProveedorController.Create; + ARecibosProveedor := (ARecibosProveedorController.BuscarTodos as IBizRecibosProveedor); + ARecibosProveedorController.VerTodos(ARecibosProveedor); +end; + +constructor TPluginRecibosProveedor.Create(AOwner: TComponent); +begin + inherited; + uRecibosProveedorViewRegister.RegisterViews; +end; + +destructor TPluginRecibosProveedor.Destroy; +begin + uRecibosProveedorViewRegister.UnregisterViews; + inherited; +end; + +initialization + RegisterModuleClass(TPluginRecibosProveedor); + +finalization + UnRegisterModuleClass(TPluginRecibosProveedor); + +end. diff --git a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj new file mode 100644 index 00000000..985d07b4 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj @@ -0,0 +1,124 @@ + + + {9e374daa-b130-47db-a2de-c184f072bea0} + + + + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosCliente_Server.dfm new file mode 100644 index 00000000..39427bb8 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosCliente_Server.dfm @@ -0,0 +1,755 @@ +object RptRecibosCliente: TRptRecibosCliente + OldCreateOrder = True + OnCreate = DataModuleCreate + Height = 405 + Width = 447 + object DADataCabecera: TDADataSource + DataTable = tbl_Cabecera + Left = 264 + Top = 72 + end + object tbl_Cabecera: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = <> + Params = <> + MasterMappingMode = mmDataRequest + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + SchemaCall.Params = <> + DataRequestCall.Params = <> + DataUpdateCall.Params = <> + ScriptCall.Params = <> + ReadOnly = False + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + IndexDefs = <> + Left = 264 + Top = 128 + end + object DABINAdapter: TDABINAdapter + Left = 48 + Top = 80 + end + object frxRichObject1: TfrxRichObject + Left = 48 + Top = 296 + end + object frxBarCodeObject1: TfrxBarCodeObject + Left = 144 + Top = 296 + end + object frxOLEObject1: TfrxOLEObject + Left = 48 + Top = 344 + end + object frxCrossObject1: TfrxCrossObject + Left = 144 + Top = 344 + end + object frxCheckBoxObject1: TfrxCheckBoxObject + Left = 256 + Top = 296 + end + object frxGradientObject1: TfrxGradientObject + Left = 360 + Top = 296 + end + object frxChartObject1: TfrxChartObject + Left = 256 + Top = 344 + end + object schReport: TDASchema + ConnectionManager = dmServer.ConnectionManager + DataDictionary = DataDictionary + Datasets = < + item + Params = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'REMESAS_CLIENTE' + SQL = + 'SELECT'#10' V_RECIBOS_CLIENTE.ID,'#10' V_RECIBOS_CLIENTE.ID_EMPRES' + + 'A,'#10' V_RECIBOS_CLIENTE.REFERENCIA,'#10' V_RECIBOS_CLIENTE.SITUA' + + 'CION,'#10' V_RECIBOS_CLIENTE.ID_FACTURA,'#10' V_RECIBOS_CLIENTE.ID' + + '_REMESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REMESA,'#10' V_RECIBOS_' + + 'CLIENTE.FECHA_EMISION,'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO,'#10 + + ' V_RECIBOS_CLIENTE.DESCRIPCION,'#10' V_RECIBOS_CLIENTE.OBSERVA' + + 'CIONES,'#10' V_RECIBOS_CLIENTE.IMPORTE,'#10' V_RECIBOS_CLIENTE.OTR' + + 'OS_GASTOS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBOS_CL' + + 'IENTE.FECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTURA,'#10' ' + + ' V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.NOMB' + + 'RE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_RECIBOS' + + '_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIBOS_CLIENTE.SUCURSAL_CLIENTE' + + ','#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' V_RECIBOS_CLIENTE.CUENTA' + + '_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZ' + + 'ON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACI' + + 'ON as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMP' + + 'RESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRE' + + 'SAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1' + + ','#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS' + + '.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS O' + + 'N (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS' + + '_CLIENTE.ID = :ID' + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'ID_FACTURA' + TableField = 'ID_FACTURA' + end + item + DatasetField = 'ID_REMESA' + TableField = 'ID_REMESA' + end + item + DatasetField = 'REFERENCIA_REMESA' + TableField = 'REFERENCIA_REMESA' + end + item + DatasetField = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' + end + item + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' + end + item + DatasetField = 'OBSERVACIONES' + TableField = 'OBSERVACIONES' + end + item + DatasetField = 'IMPORTE' + TableField = 'IMPORTE' + end + item + DatasetField = 'FECHA_FACTURA' + TableField = 'FECHA_FACTURA' + end + item + DatasetField = 'FORMA_PAGO_FACTURA' + TableField = 'FORMA_PAGO_FACTURA' + end + item + DatasetField = 'IMPORTE_FACTURA' + TableField = 'IMPORTE_FACTURA' + end + item + DatasetField = 'NOMBRE_CLIENTE' + TableField = 'NOMBRE_CLIENTE' + end + item + DatasetField = 'NIF_CIF_CLIENTE' + TableField = 'NIF_CIF_CLIENTE' + end + item + DatasetField = 'ENTIDAD_CLIENTE' + TableField = 'ENTIDAD_CLIENTE' + end + item + DatasetField = 'SUCURSAL_CLIENTE' + TableField = 'SUCURSAL_CLIENTE' + end + item + DatasetField = 'DC_CLIENTE' + TableField = 'DC_CLIENTE' + end + item + DatasetField = 'CUENTA_CLIENTE' + TableField = 'CUENTA_CLIENTE' + end + item + DatasetField = 'NIF_CIF_EMPRESA' + TableField = 'NIF_CIF_EMPRESA' + end + item + DatasetField = 'RAZON_SOCIAL' + TableField = 'RAZON_SOCIAL' + end + item + DatasetField = 'CALLE_EMPRESA' + TableField = 'CALLE_EMPRESA' + end + item + DatasetField = 'POBLACION_EMPRESA' + TableField = 'POBLACION_EMPRESA' + end + item + DatasetField = 'PROVINCIA_EMPRESA' + TableField = 'PROVINCIA_EMPRESA' + end + item + DatasetField = 'CODIGO_POSTAL_EMPRESA' + TableField = 'CODIGO_POSTAL_EMPRESA' + end + item + DatasetField = 'TELEFONO_1' + TableField = 'TELEFONO_1' + end + item + DatasetField = 'FAX' + TableField = 'FAX' + end + item + DatasetField = 'MOVIL_1' + TableField = 'MOVIL_1' + end + item + DatasetField = 'EMAIL_1' + TableField = 'EMAIL_1' + end + item + DatasetField = 'PAGINA_WEB' + TableField = 'PAGINA_WEB' + end + item + DatasetField = 'REGISTRO_MERCANTIL' + TableField = 'REGISTRO_MERCANTIL' + end + item + DatasetField = 'LOGOTIPO' + TableField = 'LOGOTIPO' + end + item + DatasetField = 'OTROS_GASTOS' + TableField = 'OTROS_GASTOS' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'FECHA_EMISION' + TableField = 'FECHA_EMISION' + end> + end> + Name = 'Informe_Cabecera' + Fields = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_REMESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_REMESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OTROS_GASTOS' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FORMA_PAGO_FACTURA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_FACTURA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ENTIDAD_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SUCURSAL_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DC_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CUENTA_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_EMPRESA' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'RAZON_SOCIAL' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CODIGO_POSTAL_EMPRESA' + DataType = datString + Size = 10 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FAX' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'EMAIL_1' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PAGINA_WEB' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REGISTRO_MERCANTIL' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'LOGOTIPO' + DataType = datBlob + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + BusinessRulesClient.ScriptLanguage = rslPascalScript + BusinessRulesServer.ScriptLanguage = rslPascalScript + end> + Commands = <> + RelationShips = <> + UpdateRules = <> + Left = 48 + Top = 16 + end + object DataDictionary: TDADataDictionary + Fields = <> + Left = 46 + Top = 158 + end + object frxReport: TfrxReport + Version = '3.23.7' + DotMatrixReport = False + EngineOptions.DoublePass = True + IniFile = '\Software\Fast Reports' + PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] + PreviewOptions.OutlineWidth = 180 + PreviewOptions.Zoom = 1.000000000000000000 + PrintOptions.Printer = 'Default' + ReportOptions.CreateDate = 37871.995398692100000000 + ReportOptions.Description.Strings = ( + 'Demonstrates how to create simple list report.') + ReportOptions.LastChange = 39169.739683333330000000 + ReportOptions.VersionBuild = '1' + ReportOptions.VersionMajor = '12' + ReportOptions.VersionMinor = '13' + ReportOptions.VersionRelease = '1' + ScriptLanguage = 'PascalScript' + ScriptText.Strings = ( + 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' + 'var' + ' Cadena: String;' + 'begin' + ' DatosEmpresa.Lines.Clear;' + ' DatosEmpresa.Lines.Add();' + ' DatosEmpresa.Lines.Add();' + '' + ' Cadena := '#39#39';' + ' if ( <> '#39#39') then' + ' Cadena := '#39'TLF: '#39' + ;' + ' if ( <> '#39#39') then' + ' Cadena := Cadena + '#39' FAX: '#39' + ;' + ' DatosEmpresa.Lines.Add(Cadena);' + '' + ' Cadena := '#39#39';' + ' if ( <> '#39#39') then' + ' Cadena := ;' + ' if ( <> '#39#39') then' + + ' Cadena := Cadena + '#39' '#39' + ;' + ' if ( <> '#39#39') then' + + ' Cadena := Cadena + '#39' - '#39' + ;' + ' DatosEmpresa.Lines.Add(Cadena);' + 'end;' + '' + 'begin' + '' + 'end.') + ShowProgress = False + StoreInDFM = False + Left = 169 + Top = 16 + Datasets = < + item + DataSet = frxDBCabecera + DataSetName = 'frxDBCabecera' + end> + Variables = <> + Style = <> + end + object frxDBCabecera: TfrxDBDataset + UserName = 'frxDBCabecera' + CloseDataSource = False + DataSource = DADataCabecera + Left = 264 + Top = 16 + end +end diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosCliente_Server.pas b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosCliente_Server.pas new file mode 100644 index 00000000..97eb3d1a --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosCliente_Server.pas @@ -0,0 +1,82 @@ +unit uRptRecibosCliente_Server; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, frxClass, frxDBSet, uDAScriptingProvider, + uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, + frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, + uDAInterfaces; + +type + TRptRecibosCliente = class(TDataModule) + DADataCabecera: TDADataSource; + tbl_Cabecera: TDACDSDataTable; + DABINAdapter: TDABINAdapter; + frxRichObject1: TfrxRichObject; + frxBarCodeObject1: TfrxBarCodeObject; + frxOLEObject1: TfrxOLEObject; + frxCrossObject1: TfrxCrossObject; + frxCheckBoxObject1: TfrxCheckBoxObject; + frxGradientObject1: TfrxGradientObject; + frxChartObject1: TfrxChartObject; + frxDBCabecera: TfrxDBDataset; + schReport: TDASchema; + DataDictionary: TDADataDictionary; + frxReport: TfrxReport; + procedure DataModuleCreate(Sender: TObject); + private + FConnection: IDAConnection; + public + function GenerarRecibo(const ID : Integer): Binary; + end; + +implementation + +{$R *.dfm} + +uses + uDataModuleServer; + +const + rptInforme = 'InfReciboCliente.fr3'; + + { Dataset names for schReport } + ds_InformeCabecera = 'Informe_Cabecera'; + +{ TRptReciboCliente } + + +procedure TRptRecibosCliente.DataModuleCreate(Sender: TObject); +begin + schReport.ConnectionManager := dmServer.ConnectionManager; + FConnection := dmServer.DarNuevaConexion; + frxReport.EngineOptions.NewSilentMode := simReThrow; +end; + +function TRptRecibosCliente.GenerarRecibo(const ID: Integer): Binary; +var + dsMaster: IDADataset; + AStream: TMemoryStream; +begin + AStream := TMemoryStream.Create; + Result := Binary.Create; + FConnection.BeginTransaction; + try + dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]); + + AStream.Clear; + DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); + DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE); + + frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); + frxReport.PrepareReport; + frxReport.PreviewPages.SaveToStream(Result); + finally + AStream.Free; + FConnection.RollbackTransaction; + end; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm new file mode 100644 index 00000000..39427bb8 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm @@ -0,0 +1,755 @@ +object RptRecibosCliente: TRptRecibosCliente + OldCreateOrder = True + OnCreate = DataModuleCreate + Height = 405 + Width = 447 + object DADataCabecera: TDADataSource + DataTable = tbl_Cabecera + Left = 264 + Top = 72 + end + object tbl_Cabecera: TDACDSDataTable + RemoteUpdatesOptions = [] + Fields = <> + Params = <> + MasterMappingMode = mmDataRequest + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + SchemaCall.Params = <> + DataRequestCall.Params = <> + DataUpdateCall.Params = <> + ScriptCall.Params = <> + ReadOnly = False + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + IndexDefs = <> + Left = 264 + Top = 128 + end + object DABINAdapter: TDABINAdapter + Left = 48 + Top = 80 + end + object frxRichObject1: TfrxRichObject + Left = 48 + Top = 296 + end + object frxBarCodeObject1: TfrxBarCodeObject + Left = 144 + Top = 296 + end + object frxOLEObject1: TfrxOLEObject + Left = 48 + Top = 344 + end + object frxCrossObject1: TfrxCrossObject + Left = 144 + Top = 344 + end + object frxCheckBoxObject1: TfrxCheckBoxObject + Left = 256 + Top = 296 + end + object frxGradientObject1: TfrxGradientObject + Left = 360 + Top = 296 + end + object frxChartObject1: TfrxChartObject + Left = 256 + Top = 344 + end + object schReport: TDASchema + ConnectionManager = dmServer.ConnectionManager + DataDictionary = DataDictionary + Datasets = < + item + Params = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'REMESAS_CLIENTE' + SQL = + 'SELECT'#10' V_RECIBOS_CLIENTE.ID,'#10' V_RECIBOS_CLIENTE.ID_EMPRES' + + 'A,'#10' V_RECIBOS_CLIENTE.REFERENCIA,'#10' V_RECIBOS_CLIENTE.SITUA' + + 'CION,'#10' V_RECIBOS_CLIENTE.ID_FACTURA,'#10' V_RECIBOS_CLIENTE.ID' + + '_REMESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REMESA,'#10' V_RECIBOS_' + + 'CLIENTE.FECHA_EMISION,'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO,'#10 + + ' V_RECIBOS_CLIENTE.DESCRIPCION,'#10' V_RECIBOS_CLIENTE.OBSERVA' + + 'CIONES,'#10' V_RECIBOS_CLIENTE.IMPORTE,'#10' V_RECIBOS_CLIENTE.OTR' + + 'OS_GASTOS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBOS_CL' + + 'IENTE.FECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTURA,'#10' ' + + ' V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.NOMB' + + 'RE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_RECIBOS' + + '_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIBOS_CLIENTE.SUCURSAL_CLIENTE' + + ','#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' V_RECIBOS_CLIENTE.CUENTA' + + '_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZ' + + 'ON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACI' + + 'ON as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMP' + + 'RESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRE' + + 'SAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1' + + ','#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS' + + '.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS O' + + 'N (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS' + + '_CLIENTE.ID = :ID' + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'ID_FACTURA' + TableField = 'ID_FACTURA' + end + item + DatasetField = 'ID_REMESA' + TableField = 'ID_REMESA' + end + item + DatasetField = 'REFERENCIA_REMESA' + TableField = 'REFERENCIA_REMESA' + end + item + DatasetField = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' + end + item + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' + end + item + DatasetField = 'OBSERVACIONES' + TableField = 'OBSERVACIONES' + end + item + DatasetField = 'IMPORTE' + TableField = 'IMPORTE' + end + item + DatasetField = 'FECHA_FACTURA' + TableField = 'FECHA_FACTURA' + end + item + DatasetField = 'FORMA_PAGO_FACTURA' + TableField = 'FORMA_PAGO_FACTURA' + end + item + DatasetField = 'IMPORTE_FACTURA' + TableField = 'IMPORTE_FACTURA' + end + item + DatasetField = 'NOMBRE_CLIENTE' + TableField = 'NOMBRE_CLIENTE' + end + item + DatasetField = 'NIF_CIF_CLIENTE' + TableField = 'NIF_CIF_CLIENTE' + end + item + DatasetField = 'ENTIDAD_CLIENTE' + TableField = 'ENTIDAD_CLIENTE' + end + item + DatasetField = 'SUCURSAL_CLIENTE' + TableField = 'SUCURSAL_CLIENTE' + end + item + DatasetField = 'DC_CLIENTE' + TableField = 'DC_CLIENTE' + end + item + DatasetField = 'CUENTA_CLIENTE' + TableField = 'CUENTA_CLIENTE' + end + item + DatasetField = 'NIF_CIF_EMPRESA' + TableField = 'NIF_CIF_EMPRESA' + end + item + DatasetField = 'RAZON_SOCIAL' + TableField = 'RAZON_SOCIAL' + end + item + DatasetField = 'CALLE_EMPRESA' + TableField = 'CALLE_EMPRESA' + end + item + DatasetField = 'POBLACION_EMPRESA' + TableField = 'POBLACION_EMPRESA' + end + item + DatasetField = 'PROVINCIA_EMPRESA' + TableField = 'PROVINCIA_EMPRESA' + end + item + DatasetField = 'CODIGO_POSTAL_EMPRESA' + TableField = 'CODIGO_POSTAL_EMPRESA' + end + item + DatasetField = 'TELEFONO_1' + TableField = 'TELEFONO_1' + end + item + DatasetField = 'FAX' + TableField = 'FAX' + end + item + DatasetField = 'MOVIL_1' + TableField = 'MOVIL_1' + end + item + DatasetField = 'EMAIL_1' + TableField = 'EMAIL_1' + end + item + DatasetField = 'PAGINA_WEB' + TableField = 'PAGINA_WEB' + end + item + DatasetField = 'REGISTRO_MERCANTIL' + TableField = 'REGISTRO_MERCANTIL' + end + item + DatasetField = 'LOGOTIPO' + TableField = 'LOGOTIPO' + end + item + DatasetField = 'OTROS_GASTOS' + TableField = 'OTROS_GASTOS' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'FECHA_EMISION' + TableField = 'FECHA_EMISION' + end> + end> + Name = 'Informe_Cabecera' + Fields = < + item + Name = 'ID' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_FACTURA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ID_REMESA' + DataType = datInteger + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REFERENCIA_REMESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'OTROS_GASTOS' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FORMA_PAGO_FACTURA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'IMPORTE_FACTURA' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NOMBRE_CLIENTE' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'ENTIDAD_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'SUCURSAL_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'DC_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CUENTA_CLIENTE' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'NIF_CIF_EMPRESA' + DataType = datString + Size = 15 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'RAZON_SOCIAL' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CALLE_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'POBLACION_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PROVINCIA_EMPRESA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'CODIGO_POSTAL_EMPRESA' + DataType = datString + Size = 10 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'FAX' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'EMAIL_1' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'PAGINA_WEB' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'REGISTRO_MERCANTIL' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'LOGOTIPO' + DataType = datBlob + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end> + BusinessRulesClient.ScriptLanguage = rslPascalScript + BusinessRulesServer.ScriptLanguage = rslPascalScript + end> + Commands = <> + RelationShips = <> + UpdateRules = <> + Left = 48 + Top = 16 + end + object DataDictionary: TDADataDictionary + Fields = <> + Left = 46 + Top = 158 + end + object frxReport: TfrxReport + Version = '3.23.7' + DotMatrixReport = False + EngineOptions.DoublePass = True + IniFile = '\Software\Fast Reports' + PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] + PreviewOptions.OutlineWidth = 180 + PreviewOptions.Zoom = 1.000000000000000000 + PrintOptions.Printer = 'Default' + ReportOptions.CreateDate = 37871.995398692100000000 + ReportOptions.Description.Strings = ( + 'Demonstrates how to create simple list report.') + ReportOptions.LastChange = 39169.739683333330000000 + ReportOptions.VersionBuild = '1' + ReportOptions.VersionMajor = '12' + ReportOptions.VersionMinor = '13' + ReportOptions.VersionRelease = '1' + ScriptLanguage = 'PascalScript' + ScriptText.Strings = ( + 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' + 'var' + ' Cadena: String;' + 'begin' + ' DatosEmpresa.Lines.Clear;' + ' DatosEmpresa.Lines.Add();' + ' DatosEmpresa.Lines.Add();' + '' + ' Cadena := '#39#39';' + ' if ( <> '#39#39') then' + ' Cadena := '#39'TLF: '#39' + ;' + ' if ( <> '#39#39') then' + ' Cadena := Cadena + '#39' FAX: '#39' + ;' + ' DatosEmpresa.Lines.Add(Cadena);' + '' + ' Cadena := '#39#39';' + ' if ( <> '#39#39') then' + ' Cadena := ;' + ' if ( <> '#39#39') then' + + ' Cadena := Cadena + '#39' '#39' + ;' + ' if ( <> '#39#39') then' + + ' Cadena := Cadena + '#39' - '#39' + ;' + ' DatosEmpresa.Lines.Add(Cadena);' + 'end;' + '' + 'begin' + '' + 'end.') + ShowProgress = False + StoreInDFM = False + Left = 169 + Top = 16 + Datasets = < + item + DataSet = frxDBCabecera + DataSetName = 'frxDBCabecera' + end> + Variables = <> + Style = <> + end + object frxDBCabecera: TfrxDBDataset + UserName = 'frxDBCabecera' + CloseDataSource = False + DataSource = DADataCabecera + Left = 264 + Top = 16 + end +end diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas new file mode 100644 index 00000000..decfe3af --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas @@ -0,0 +1,82 @@ +unit uRptRecibosProveedor_Server; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, frxClass, frxDBSet, uDAScriptingProvider, + uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, + frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, + uDAInterfaces; + +type + TRptRecibosCliente = class(TDataModule) + DADataCabecera: TDADataSource; + tbl_Cabecera: TDACDSDataTable; + DABINAdapter: TDABINAdapter; + frxRichObject1: TfrxRichObject; + frxBarCodeObject1: TfrxBarCodeObject; + frxOLEObject1: TfrxOLEObject; + frxCrossObject1: TfrxCrossObject; + frxCheckBoxObject1: TfrxCheckBoxObject; + frxGradientObject1: TfrxGradientObject; + frxChartObject1: TfrxChartObject; + frxDBCabecera: TfrxDBDataset; + schReport: TDASchema; + DataDictionary: TDADataDictionary; + frxReport: TfrxReport; + procedure DataModuleCreate(Sender: TObject); + private + FConnection: IDAConnection; + public + function GenerarRecibo(const ID : Integer): Binary; + end; + +implementation + +{$R *.dfm} + +uses + uDataModuleServer; + +const + rptInforme = 'InfReciboCliente.fr3'; + + { Dataset names for schReport } + ds_InformeCabecera = 'Informe_Cabecera'; + +{ TRptReciboCliente } + + +procedure TRptRecibosCliente.DataModuleCreate(Sender: TObject); +begin + schReport.ConnectionManager := dmServer.ConnectionManager; + FConnection := dmServer.DarNuevaConexion; + frxReport.EngineOptions.NewSilentMode := simReThrow; +end; + +function TRptRecibosCliente.GenerarRecibo(const ID: Integer): Binary; +var + dsMaster: IDADataset; + AStream: TMemoryStream; +begin + AStream := TMemoryStream.Create; + Result := Binary.Create; + FConnection.BeginTransaction; + try + dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]); + + AStream.Clear; + DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); + DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE); + + frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); + frxReport.PrepareReport; + frxReport.PreviewPages.SaveToStream(Result); + finally + AStream.Free; + FConnection.RollbackTransaction; + end; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dcu b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dcu new file mode 100644 index 00000000..9c6df903 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm new file mode 100644 index 00000000..de32d286 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm @@ -0,0 +1,1577 @@ +object srvRecibosProveedor: TsrvRecibosProveedor + OldCreateOrder = True + OnCreate = DARemoteServiceCreate + SessionManager = dmServer.SessionManager + ConnectionName = 'IBX' + ServiceSchema = schRecibosProveedor + ServiceDataStreamer = Bin2DataStreamer + ExportedDataTables = <> + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection + Height = 247 + Width = 347 + object schRecibosProveedor: TDASchema + ConnectionManager = dmServer.ConnectionManager + DataDictionary = DADataDictionary + Datasets = < + item + Params = <> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_RECIBOS_PROVEEDOR' + StatementType = stAutoSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_RECIBO_COMPENSADO' + TableField = 'ID_RECIBO_COMPENSADO' + end + item + DatasetField = 'REFERENCIA_REC_COMPENSADO' + TableField = 'REFERENCIA_REC_COMPENSADO' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'ID_FACTURA' + TableField = 'ID_FACTURA' + end + item + DatasetField = 'ID_REMESA' + TableField = 'ID_REMESA' + end + item + DatasetField = 'REFERENCIA_REMESA' + TableField = 'REFERENCIA_REMESA' + end + item + DatasetField = 'FECHA_EMISION' + TableField = 'FECHA_EMISION' + end + item + DatasetField = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' + end + item + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' + end + item + DatasetField = 'OBSERVACIONES' + TableField = 'OBSERVACIONES' + end + item + DatasetField = 'IMPORTE' + TableField = 'IMPORTE' + end + item + DatasetField = 'OTROS_GASTOS' + TableField = 'OTROS_GASTOS' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'REFERENCIA_FACTURA_PROV' + TableField = 'REFERENCIA_FACTURA_PROV' + end + item + DatasetField = 'FECHA_FACTURA' + TableField = 'FECHA_FACTURA' + end + item + DatasetField = 'FORMA_PAGO_FACTURA' + TableField = 'FORMA_PAGO_FACTURA' + end + item + DatasetField = 'IMPORTE_FACTURA' + TableField = 'IMPORTE_FACTURA' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'ID_PROVEEDOR' + TableField = 'ID_PROVEEDOR' + end + item + DatasetField = 'NOMBRE_PROVEEDOR' + TableField = 'NOMBRE_PROVEEDOR' + end + item + DatasetField = 'NIF_CIF_PROVEEDOR' + TableField = 'NIF_CIF_PROVEEDOR' + end + item + DatasetField = 'ENTIDAD_PROVEEDOR' + TableField = 'ENTIDAD_PROVEEDOR' + end + item + DatasetField = 'SUCURSAL_PROVEEDOR' + TableField = 'SUCURSAL_PROVEEDOR' + end + item + DatasetField = 'DC_PROVEEDOR' + TableField = 'DC_PROVEEDOR' + end + item + DatasetField = 'CUENTA_PROVEEDOR' + TableField = 'CUENTA_PROVEEDOR' + end + item + DatasetField = 'FECHA_ALTA' + TableField = 'FECHA_ALTA' + end + item + DatasetField = 'FECHA_MODIFICACION' + TableField = 'FECHA_MODIFICACION' + end + item + DatasetField = 'USUARIO' + TableField = 'USUARIO' + end> + end> + Name = 'RecibosCompensadosProv' + Fields = < + item + Name = 'ID' + DataType = datInteger + Required = True + ServerAutoRefresh = True + InPrimaryKey = True + end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + end + item + Name = 'REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + end + item + Name = 'ID_FACTURA' + DataType = datInteger + end + item + Name = 'ID_REMESA' + DataType = datInteger + end + item + Name = 'REFERENCIA_REMESA' + DataType = datString + Size = 255 + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 + end + item + Name = 'IMPORTE' + DataType = datCurrency + end + item + Name = 'OTROS_GASTOS' + DataType = datCurrency + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end + item + Name = 'REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + end + item + Name = 'FORMA_PAGO_FACTURA' + DataType = datString + Size = 255 + end + item + Name = 'IMPORTE_FACTURA' + DataType = datCurrency + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + end + item + Name = 'NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + end + item + Name = 'NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'ENTIDAD_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'SUCURSAL_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'DC_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'CUENTA_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + end> + end + item + Params = <> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_RECIBOS_PROVEEDOR' + StatementType = stAutoSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_RECIBO_COMPENSADO' + TableField = 'ID_RECIBO_COMPENSADO' + end + item + DatasetField = 'REFERENCIA_REC_COMPENSADO' + TableField = 'REFERENCIA_REC_COMPENSADO' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'ID_FACTURA' + TableField = 'ID_FACTURA' + end + item + DatasetField = 'ID_REMESA' + TableField = 'ID_REMESA' + end + item + DatasetField = 'REFERENCIA_REMESA' + TableField = 'REFERENCIA_REMESA' + end + item + DatasetField = 'FECHA_EMISION' + TableField = 'FECHA_EMISION' + end + item + DatasetField = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' + end + item + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' + end + item + DatasetField = 'OBSERVACIONES' + TableField = 'OBSERVACIONES' + end + item + DatasetField = 'IMPORTE' + TableField = 'IMPORTE' + end + item + DatasetField = 'OTROS_GASTOS' + TableField = 'OTROS_GASTOS' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'REFERENCIA_FACTURA_PROV' + TableField = 'REFERENCIA_FACTURA_PROV' + end + item + DatasetField = 'FECHA_FACTURA' + TableField = 'FECHA_FACTURA' + end + item + DatasetField = 'FORMA_PAGO_FACTURA' + TableField = 'FORMA_PAGO_FACTURA' + end + item + DatasetField = 'IMPORTE_FACTURA' + TableField = 'IMPORTE_FACTURA' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'ID_PROVEEDOR' + TableField = 'ID_PROVEEDOR' + end + item + DatasetField = 'NOMBRE_PROVEEDOR' + TableField = 'NOMBRE_PROVEEDOR' + end + item + DatasetField = 'NIF_CIF_PROVEEDOR' + TableField = 'NIF_CIF_PROVEEDOR' + end + item + DatasetField = 'ENTIDAD_PROVEEDOR' + TableField = 'ENTIDAD_PROVEEDOR' + end + item + DatasetField = 'SUCURSAL_PROVEEDOR' + TableField = 'SUCURSAL_PROVEEDOR' + end + item + DatasetField = 'DC_PROVEEDOR' + TableField = 'DC_PROVEEDOR' + end + item + DatasetField = 'CUENTA_PROVEEDOR' + TableField = 'CUENTA_PROVEEDOR' + end + item + DatasetField = 'FECHA_ALTA' + TableField = 'FECHA_ALTA' + end + item + DatasetField = 'FECHA_MODIFICACION' + TableField = 'FECHA_MODIFICACION' + end + item + DatasetField = 'USUARIO' + TableField = 'USUARIO' + end> + end> + Name = 'RecibosProveedor' + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID' + DictionaryEntry = 'RecibosProveedor_ID' + InPrimaryKey = True + end + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + DictionaryEntry = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + end + item + Name = 'REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_REFERENCIA' + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_REFERENCIA_PROVEEDOR' + end + item + Name = 'SITUACION' + DataType = datString + Size = 9 + DictionaryEntry = 'RecibosProveedor_SITUACION' + end + item + Name = 'ID_FACTURA' + DataType = datInteger + DictionaryEntry = 'RecibosProveedor_ID_FACTURA' + end + item + Name = 'ID_REMESA' + DataType = datInteger + DictionaryEntry = 'RecibosProveedor_ID_REMESA' + end + item + Name = 'REFERENCIA_REMESA' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_REFERENCIA_REMESA' + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + DictionaryEntry = 'RecibosProveedor_FECHA_EMISION' + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + DictionaryEntry = 'RecibosProveedor_FECHA_VENCIMIENTO' + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_DESCRIPCION' + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_OBSERVACIONES' + end + item + Name = 'IMPORTE' + DataType = datCurrency + DictionaryEntry = 'RecibosProveedor_IMPORTE' + end + item + Name = 'OTROS_GASTOS' + DataType = datCurrency + DictionaryEntry = 'RecibosProveedor_OTROS_GASTOS' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL' + end + item + Name = 'REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV' + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA' + end + item + Name = 'FORMA_PAGO_FACTURA' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA' + end + item + Name = 'IMPORTE_FACTURA' + DataType = datCurrency + DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA' + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'RecibosProveedor_ID_EMPRESA' + end + item + Name = 'ID_PROVEEDOR' + DataType = datInteger + DictionaryEntry = 'RecibosProveedor_ID_PROVEEDOR' + end + item + Name = 'NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR' + end + item + Name = 'NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR' + end + item + Name = 'ENTIDAD_PROVEEDOR' + DataType = datString + Size = 15 + DictionaryEntry = 'RecibosProveedor_ENTIDAD_PROVEEDOR' + end + item + Name = 'SUCURSAL_PROVEEDOR' + DataType = datString + Size = 15 + DictionaryEntry = 'RecibosProveedor_SUCURSAL_PROVEEDOR' + end + item + Name = 'DC_PROVEEDOR' + DataType = datString + Size = 15 + DictionaryEntry = 'RecibosProveedor_DC_PROVEEDOR' + end + item + Name = 'CUENTA_PROVEEDOR' + DataType = datString + Size = 15 + DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + DictionaryEntry = 'RecibosProveedor_FECHA_ALTA' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + DictionaryEntry = 'RecibosProveedor_FECHA_MODIFICACION' + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DictionaryEntry = 'RecibosCliente_USUARIO' + end> + end + item + Params = <> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PAGOS_PROVEEDOR' + StatementType = stAutoSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_RECIBO' + TableField = 'ID_RECIBO' + end + item + DatasetField = 'TIPO' + TableField = 'TIPO' + end + item + DatasetField = 'FECHA_PAGO' + TableField = 'FECHA_PAGO' + end + item + DatasetField = 'TITULAR' + TableField = 'TITULAR' + end + item + DatasetField = 'ENTIDAD' + TableField = 'ENTIDAD' + end + item + DatasetField = 'SUCURSAL' + TableField = 'SUCURSAL' + end + item + DatasetField = 'DC' + TableField = 'DC' + end + item + DatasetField = 'CUENTA' + TableField = 'CUENTA' + end + item + DatasetField = 'FECHA_ALTA' + TableField = 'FECHA_ALTA' + end + item + DatasetField = 'FECHA_MODIFICACION' + TableField = 'FECHA_MODIFICACION' + end + item + DatasetField = 'USUARIO' + TableField = 'USUARIO' + end> + end> + Name = 'PagosProveedor' + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_PAGOS_PROVEEDOR_ID' + DictionaryEntry = 'PagosProveedor_ID' + InPrimaryKey = True + end + item + Name = 'ID_RECIBO' + DataType = datInteger + DictionaryEntry = 'PagosProveedor_ID_RECIBO' + end + item + Name = 'TIPO' + DataType = datString + Size = 255 + DictionaryEntry = 'PagosProveedor_TIPO' + end + item + Name = 'FECHA_PAGO' + DataType = datDateTime + DictionaryEntry = 'PagosProveedor_FECHA_PAGO' + end + item + Name = 'TITULAR' + DataType = datString + Size = 255 + DictionaryEntry = 'PagosProveedor_TITULAR' + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + DictionaryEntry = 'PagosProveedor_ENTIDAD' + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + DictionaryEntry = 'PagosProveedor_SUCURSAL' + end + item + Name = 'DC' + DataType = datString + Size = 15 + DictionaryEntry = 'PagosProveedor_DC' + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + DictionaryEntry = 'PagosProveedor_CUENTA' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + DictionaryEntry = 'PagosProveedor_FECHA_ALTA' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + DictionaryEntry = 'PagosProveedor_FECHA_MODIFICACION' + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + DictionaryEntry = 'PagosProveedor_USUARIO' + end> + end> + JoinDataTables = <> + UnionDataTables = <> + Commands = < + item + Params = < + item + Name = 'ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID_FACTURA' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'OTROS_GASTOS' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'RECIBOS_PROVEEDOR' + SQL = + 'INSERT'#10' INTO RECIBOS_PROVEEDOR'#10' (ID, ID_FACTURA, REFERENCIA,' + + ' REFERENCIA_PROVEEDOR, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' + + 'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO)'#10' VALUE' + + 'S'#10' (:ID, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :FE' + + 'CHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10' ' + + ' :IMPORTE, :OTROS_GASTOS, :USUARIO)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_RecibosProveedor' + end + item + Params = < + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'RECIBOS_PROVEEDOR' + SQL = 'DELETE '#10' FROM'#10' RECIBOS_PROVEEDOR'#10' WHERE'#10' (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_RecibosProveedor' + end + item + Params = < + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_EMISION' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'OBSERVACIONES' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'ID_REMESA' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'IMPORTE' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'OTROS_GASTOS' + DataType = datFloat + Value = '' + ParamType = daptInput + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + Value = '' + ParamType = daptInput + end + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'RECIBOS_PROVEEDOR' + SQL = + 'UPDATE RECIBOS_PROVEEDOR'#10' SET '#10' REFERENCIA_PROVEEDOR = :REFE' + + 'RENCIA_PROVEEDOR,'#10' FECHA_EMISION = :FECHA_EMISION,'#10' FECHA_' + + 'VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' DESCRIPCION = :DESCRIPCION' + + ','#10' OBSERVACIONES = :OBSERVACIONES,'#10' ID_REMESA = :ID_REMESA' + + ','#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GASTOS,'#10' ' + + 'USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_RecibosProveedor' + end + item + Params = < + item + Name = 'ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID_RECIBO' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'TIPO' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_PAGO' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'TITULAR' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + Value = '' + ParamType = daptInput + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + Value = '' + ParamType = daptInput + end + item + Name = 'DC' + DataType = datString + Size = 15 + Value = '' + ParamType = daptInput + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + Value = '' + ParamType = daptInput + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PAGOS_PROVEEDOR' + SQL = + 'INSERT'#10' INTO PAGOS_PROVEEDOR'#10' (ID, ID_RECIBO, TIPO, FECHA_PA' + + 'GO, TITULAR, ENTIDAD, '#10' SUCURSAL, DC, CUENTA, USUARIO)'#10' VAL' + + 'UES'#10' (:ID, :ID_RECIBO, :TIPO, :FECHA_PAGO, :TITULAR, :ENTIDAD' + + ', '#10' :SUCURSAL, :DC, :CUENTA, :USUARIO)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_PagosProveedor' + end + item + Params = < + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PAGOS_PROVEEDOR' + SQL = 'DELETE '#10' FROM'#10' PAGOS_PROVEEDOR'#10' WHERE'#10' (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_PagosProveedor' + end + item + Params = < + item + Name = 'ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID_RECIBO' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'TIPO' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'FECHA_PAGO' + DataType = datDateTime + Value = '' + ParamType = daptInput + end + item + Name = 'TITULAR' + DataType = datString + Size = 255 + Value = '' + ParamType = daptInput + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + Value = '' + ParamType = daptInput + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + Value = '' + ParamType = daptInput + end + item + Name = 'DC' + DataType = datString + Size = 15 + Value = '' + ParamType = daptInput + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + Value = '' + ParamType = daptInput + end + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'PAGOS_PROVEEDOR' + SQL = + 'UPDATE PAGOS_PROVEEDOR'#10' SET '#10' ID = :ID, '#10' ID_RECIBO = :ID' + + '_RECIBO, '#10' TIPO = :TIPO, '#10' FECHA_PAGO = :FECHA_PAGO, '#10' ' + + 'TITULAR = :TITULAR, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = :SU' + + 'CURSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA'#10' WHERE'#10' (ID = :' + + 'OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_PagosProveedor' + end + item + Params = < + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_RECIBOS_PROVEEDOR' + SQL = + 'UPDATE RECIBOS_PROVEEDOR'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_C' + + 'OMPENSADO'#10'WHERE (ID = :ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_RecibosCompensadosProv' + end + item + Params = < + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_RECIBOS_PROVEEDOR' + SQL = + 'UPDATE RECIBOS_PROVEEDOR'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_C' + + 'OMPENSADO'#10'WHERE (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_RecibosCompensadosProv' + end + item + Params = < + item + Name = 'ID_RECIBO_COMPENSADO' + DataType = datInteger + Value = '' + ParamType = daptInput + end + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_RECIBOS_PROVEEDOR' + SQL = + 'UPDATE RECIBOS_PROVEEDOR'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_C' + + 'OMPENSADO'#10'WHERE (ID = :OLD_ID)' + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_RecibosCompensadosProv' + end> + RelationShips = < + item + Name = 'FK_RecibosCompensados' + MasterDatasetName = 'RecibosProveedor' + MasterFields = 'ID' + DetailDatasetName = 'RecibosCompensadosProv' + DetailFields = 'ID_RECIBO_COMPENSADO' + RelationshipType = rtForeignKey + end + item + Name = 'FK_PagosProveedor' + MasterDatasetName = 'RecibosProveedor' + MasterFields = 'ID' + DetailDatasetName = 'PagosProveedor' + DetailFields = 'ID_RECIBO' + RelationshipType = rtForeignKey + end> + UpdateRules = < + item + Name = 'Insert RecibosProveedor' + DoUpdate = False + DoDelete = False + DatasetName = 'RecibosProveedor' + FailureBehavior = fbRaiseException + end + item + Name = 'Insert PagosProveedor' + DoUpdate = False + DoDelete = False + DatasetName = 'PagosProveedor' + FailureBehavior = fbRaiseException + end + item + Name = 'Update RecibosProveedor' + DoInsert = False + DoDelete = False + DatasetName = 'RecibosProveedor' + FailureBehavior = fbRaiseException + end + item + Name = 'Update PagosProveedor' + DoInsert = False + DoDelete = False + DatasetName = 'PagosProveedor' + FailureBehavior = fbRaiseException + end + item + Name = 'Delete PagosProveedor' + DoUpdate = False + DoInsert = False + DatasetName = 'PagosProveedor' + FailureBehavior = fbRaiseException + end + item + Name = 'Delete RecibosProveedor' + DoUpdate = False + DoInsert = False + DatasetName = 'RecibosProveedor' + FailureBehavior = fbRaiseException + end> + Version = 0 + Left = 48 + Top = 24 + end + object bpRecibosProveedor: TDABusinessProcessor + Schema = schRecibosProveedor + InsertCommandName = 'Insert_RecibosProveedor' + DeleteCommandName = 'Delete_RecibosProveedor' + UpdateCommandName = 'Update_RecibosProveedor' + ReferencedDataset = 'RecibosProveedor' + ProcessorOptions = [poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 192 + Top = 24 + end + object DADataDictionary: TDADataDictionary + Fields = < + item + Name = 'RecibosProveedor_ID_PROVEEDOR' + DataType = datInteger + end + item + Name = 'RecibosProveedor_NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + end + item + Name = 'RecibosProveedor_NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'RecibosProveedor_ENTIDAD_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'RecibosProveedor_SUCURSAL_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'RecibosProveedor_DC_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'RecibosProveedor_CUENTA_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'PagosProveedor_ID' + DataType = datAutoInc + GeneratorName = 'GEN_PAGOS_PROVEEDOR_ID' + Required = True + DisplayLabel = 'ID' + ServerAutoRefresh = True + end + item + Name = 'PagosProveedor_ID_RECIBO' + DataType = datInteger + DisplayLabel = 'PagosCliente_ID_RECIBO' + end + item + Name = 'PagosProveedor_TIPO' + DataType = datString + Size = 255 + DisplayLabel = 'PagosCliente_TIPO' + end + item + Name = 'PagosProveedor_FECHA_PAGO' + DataType = datDateTime + DisplayLabel = 'PagosCliente_FECHA_PAGO' + end + item + Name = 'PagosProveedor_TITULAR' + DataType = datString + Size = 255 + DisplayLabel = 'PagosCliente_TITULAR' + end + item + Name = 'PagosProveedor_ENTIDAD' + DataType = datString + Size = 15 + DisplayLabel = 'PagosCliente_ENTIDAD' + end + item + Name = 'PagosProveedor_SUCURSAL' + DataType = datString + Size = 15 + DisplayLabel = 'PagosCliente_SUCURSAL' + end + item + Name = 'PagosProveedor_DC' + DataType = datString + Size = 15 + DisplayLabel = 'PagosCliente_DC' + end + item + Name = 'PagosProveedor_CUENTA' + DataType = datString + Size = 15 + DisplayLabel = 'PagosCliente_CUENTA' + end + item + Name = 'PagosProveedor_FECHA_ALTA' + DataType = datDateTime + DisplayLabel = 'PagosCliente_FECHA_ALTA' + end + item + Name = 'PagosProveedor_FECHA_MODIFICACION' + DataType = datDateTime + DisplayLabel = 'PagosCliente_FECHA_MODIFICACION' + end + item + Name = 'PagosProveedor_USUARIO' + DataType = datString + Size = 20 + DisplayLabel = 'PagosCliente_USUARIO' + end + item + Name = 'RecibosProveedor_ID' + DataType = datAutoInc + GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID' + Required = True + DisplayLabel = 'ID' + ServerAutoRefresh = True + end + item + Name = 'RecibosProveedor_REFERENCIA' + DataType = datString + Size = 255 + DisplayLabel = 'REFERENCIA' + end + item + Name = 'RecibosProveedor_SITUACION' + DataType = datString + Size = 9 + DisplayLabel = 'SITUACION' + end + item + Name = 'RecibosProveedor_ID_FACTURA' + DataType = datInteger + DisplayLabel = 'ID_FACTURA' + end + item + Name = 'RecibosProveedor_FECHA_EMISION' + DataType = datDateTime + DisplayLabel = 'RecibosCliente_FECHA_EMISION' + end + item + Name = 'RecibosProveedor_FECHA_VENCIMIENTO' + DataType = datDateTime + DisplayLabel = 'FECHA_VENCIMIENTO' + end + item + Name = 'RecibosProveedor_DESCRIPCION' + DataType = datString + Size = 255 + DisplayLabel = 'DESCRIPCION' + end + item + Name = 'RecibosProveedor_OBSERVACIONES' + DataType = datString + Size = 255 + DisplayLabel = 'OBSERVACIONES' + end + item + Name = 'RecibosProveedor_IMPORTE' + DataType = datCurrency + DisplayLabel = 'IMPORTE' + Alignment = taRightJustify + end + item + Name = 'RecibosProveedor_OTROS_GASTOS' + DataType = datCurrency + DisplayLabel = 'RecibosCliente_OTROS_GASTOS' + Alignment = taRightJustify + end + item + Name = 'RecibosProveedor_IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'IMPORTE_TOTAL' + Alignment = taRightJustify + end + item + Name = 'RecibosProveedor_FECHA_FACTURA' + DataType = datDateTime + DisplayLabel = 'FECHA_FACTURA' + end + item + Name = 'RecibosProveedor_FORMA_PAGO_FACTURA' + DataType = datString + Size = 255 + DisplayLabel = 'FORMA_PAGO_FACTURA' + end + item + Name = 'RecibosProveedor_IMPORTE_FACTURA' + DataType = datCurrency + DisplayLabel = 'IMPORTE_FACTURA' + Alignment = taRightJustify + end + item + Name = 'RecibosProveedor_ID_EMPRESA' + DataType = datInteger + DisplayLabel = 'ID_EMPRESA' + end + item + Name = 'RecibosProveedor_FECHA_ALTA' + DataType = datDateTime + DisplayLabel = 'FECHA_ALTA' + end + item + Name = 'RecibosProveedor_FECHA_MODIFICACION' + DataType = datDateTime + DisplayLabel = 'FECHA_MODIFICACION' + end + item + Name = 'RecibosCliente_USUARIO' + DataType = datString + Size = 20 + DisplayLabel = 'USUARIO' + end + item + Name = 'RecibosProveedor_Refresh_FECHA_EMISION' + DataType = datDateTime + DisplayLabel = 'FECHA_EMISION' + end + item + Name = 'RecibosProveedor_Refresh_ID_PROVEEDOR' + DataType = datInteger + end + item + Name = 'RecibosProveedor_Refresh_NOMBRE_PROVEEDOR' + DataType = datString + Size = 255 + end + item + Name = 'RecibosProveedor_Refresh_NIF_CIF_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'RecibosProveedor_Refresh_ENTIDAD_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'RecibosProveedor_Refresh_SUCURSAL_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'RecibosProveedor_Refresh_DC_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'RecibosProveedor_Refresh_CUENTA_PROVEEDOR' + DataType = datString + Size = 15 + end + item + Name = 'RecibosProveedor_USUARIO' + DataType = datString + Size = 20 + DisplayLabel = 'USUARIO' + end + item + Name = 'RecibosProveedor_REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + DisplayLabel = 'REFERENCIA_PROVEEDOR' + end + item + Name = 'RecibosProveedor_ID_REMESA' + DataType = datInteger + DisplayLabel = 'ID_REMESA' + end + item + Name = 'RecibosProveedor_REFERENCIA_REMESA' + DataType = datString + Size = 255 + DisplayLabel = 'REFERENCIA_REMESA' + end + item + Name = 'RecibosProveedor_REFERENCIA_FACTURA_PROV' + DataType = datString + Size = 255 + DisplayLabel = 'Ref. factura prov.' + end + item + Name = 'RecibosProveedor_ID_RECIBO_COMPENSADO' + DataType = datInteger + end + item + Name = 'RecibosProveedor_REFERENCIA_REC_COMPENSADO' + DataType = datString + Size = 255 + end> + Left = 48 + Top = 152 + end + object bpPagosProveedor: TDABusinessProcessor + Schema = schRecibosProveedor + InsertCommandName = 'Insert_PagosProveedor' + DeleteCommandName = 'Delete_PagosProveedor' + UpdateCommandName = 'Update_PagosProveedor' + ReferencedDataset = 'PagosProveedor' + ProcessorOptions = [poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 192 + Top = 88 + end + object bpRecibosCompensados: TDABusinessProcessor + Schema = schRecibosProveedor + InsertCommandName = 'Insert_RecibosCompensadosProv' + DeleteCommandName = 'Delete_RecibosCompensadosProv' + UpdateCommandName = 'Update_RecibosCompensadosProv' + ReferencedDataset = 'RecibosCompensadosProv' + ProcessorOptions = [poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 192 + Top = 152 + end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 88 + end +end diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas new file mode 100644 index 00000000..0ba79204 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas @@ -0,0 +1,99 @@ +unit srvRecibosProveedor_Impl; + +{----------------------------------------------------------------------------} +{ This unit was automatically generated by the RemObjects SDK after reading } +{ the RODL file associated with this project . } +{ } +{ This is where you are supposed to code the implementation of your objects. } +{----------------------------------------------------------------------------} + +interface + +uses + {vcl:} Classes, SysUtils, + {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces; + +type + { TsrvRecibosProveedor } + TsrvRecibosProveedor = class(TDataAbstractService, IsrvRecibosProveedor) + bpRecibosProveedor: TDABusinessProcessor; + bpPagosProveedor: TDABusinessProcessor; + bpRecibosCompensados: TDABusinessProcessor; + Bin2DataStreamer: TDABin2DataStreamer; + schRecibosProveedor: TDASchema; + DADataDictionary: TDADataDictionary; + procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; + const IncludeSchema: Boolean; const MaxRecords: Integer); + procedure DARemoteServiceCreate(Sender: TObject); + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); + protected + { IsrvRecibosProveedor methods } + function GenerateReport(const ID: Integer): Binary; + end; + +implementation + +{$R *.dfm} +uses + Dialogs, + {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, + schRecibosProveedorClient_Intf, uRestriccionesUsuarioUtils; +// uRptRecibosProveedor_Server; //, uBizRecibosProveedorServer; + +procedure Create_srvRecibosProveedor(out anInstance : IUnknown); +begin + anInstance := TsrvRecibosProveedor.Create(NIL); +end; + +{ srvRecibosProveedor } + +procedure TsrvRecibosProveedor.DARemoteServiceBeforeGetDatasetData( + const Dataset: IDADataset; const IncludeSchema: Boolean; + const MaxRecords: Integer); +begin +{ + if DataSet.Name = nme_RecibosProveedor then + begin + { Aquí se asegura que el usuario sólo accede a Recibos + de las empresas a las que tiene permiso para acceder + filtrando DataSet por ID_EMPRESA. } +{ FiltrarAccesoUsuario(Session, Connection, schRecibosProveedor, DataSet, fld_RecibosProveedorID_EMPRESA); + end; +} +end; + +procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject); +begin + SessionManager := dmServer.SessionManager; +end; + +procedure TsrvRecibosProveedor.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); +begin + ConnectionName := dmServer.ConnectionName; +end; + +function TsrvRecibosProveedor.GenerateReport(const ID: Integer): Binary; +//var +// AReportGenerator : TRptRecibosProveedor; +begin +// AReportGenerator := TRptRecibosProveedor.Create(nil); +// try +// Result := AReportGenerator.GenerarRecibo(ID); +// finally +// FreeAndNIL(AReportGenerator); +// end; + Result := NIL; +end; + +initialization + TROClassFactory.Create('srvRecibosProveedor', Create_srvRecibosProveedor, TsrvRecibosProveedor_Invoker); + +finalization + +end. diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas.bak b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas.bak new file mode 100644 index 00000000..ddb10d4b --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas.bak @@ -0,0 +1,106 @@ +unit srvRecibosProveedor_Impl; + +{----------------------------------------------------------------------------} +{ This unit was automatically generated by the RemObjects SDK after reading } +{ the RODL file associated with this project . } +{ } +{ This is where you are supposed to code the implementation of your objects. } +{----------------------------------------------------------------------------} + +interface + +uses + {vcl:} Classes, SysUtils, + {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} FactuGES_Intf, uDAScriptingProvider, uDABusinessProcessor, + uDAClasses, uDADataTable, uDABINAdapter, + + uDACDSDataTable, uDAInterfaces, DB, +{ + frxClass, frxDBSet, frxDCtrl, frxDMPExport, frxGradient, + frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode, uDADataStreamer, +} + uDABin2DataStreamer, uDADataStreamer; + +type + { TsrvRecibosProveedor } + TsrvRecibosProveedor = class(TDataAbstractService, IsrvRecibosProveedor) + bpRecibosProveedor: TDABusinessProcessor; + bpPagosProveedor: TDABusinessProcessor; + bpRecibosCompensados: TDABusinessProcessor; + Bin2DataStreamer: TDABin2DataStreamer; + schRecibosProveedor: TDASchema; + DADataDictionary: TDADataDictionary; + procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; + const IncludeSchema: Boolean; const MaxRecords: Integer); + procedure DARemoteServiceCreate(Sender: TObject); + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; + var aConnectionName: string); + protected + { IsrvRecibosProveedor methods } + function GenerateReport(const ID: Integer): Binary; + end; + +implementation + +{$R *.dfm} +uses + Dialogs, + {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, + schRecibosProveedorClient_Intf, uRestriccionesUsuarioUtils; +// uRptRecibosProveedor_Server; //, uBizRecibosProveedorServer; + +procedure Create_srvRecibosProveedor(out anInstance : IUnknown); +begin + anInstance := TsrvRecibosProveedor.Create(NIL); +end; + +{ srvRecibosProveedor } + +procedure TsrvRecibosProveedor.DARemoteServiceBeforeGetDatasetData( + const Dataset: IDADataset; const IncludeSchema: Boolean; + const MaxRecords: Integer); +begin +{ + if DataSet.Name = nme_RecibosProveedor then + begin + { Aquí se asegura que el usuario sólo accede a Recibos + de las empresas a las que tiene permiso para acceder + filtrando DataSet por ID_EMPRESA. } +{ FiltrarAccesoUsuario(Session, Connection, schRecibosProveedor, DataSet, fld_RecibosProveedorID_EMPRESA); + end; +} +end; + +procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject); +begin + SessionManager := dmServer.SessionManager; +end; + +procedure TsrvRecibosProveedor.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); +begin + ConnectionName := dmServer.ConnectionName; +end; + +function TsrvRecibosProveedor.GenerateReport(const ID: Integer): Binary; +//var +// AReportGenerator : TRptRecibosProveedor; +begin +// AReportGenerator := TRptRecibosProveedor.Create(nil); +// try +// Result := AReportGenerator.GenerarRecibo(ID); +// finally +// FreeAndNIL(AReportGenerator); +// end; + Result := NIL; +end; + +initialization + TROClassFactory.Create('srvRecibosProveedor', Create_srvRecibosProveedor, TsrvRecibosProveedor_Invoker); + +finalization + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/DataAbstract3_Intf.dcu b/Source/Modulos/Recibos de proveedor/Views/DataAbstract3_Intf.dcu new file mode 100644 index 00000000..36d4f9ce Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/DataAbstract3_Intf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/DataAbstract4_Intf.dcu b/Source/Modulos/Recibos de proveedor/Views/DataAbstract4_Intf.dcu new file mode 100644 index 00000000..9c7ccf87 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/DataAbstract4_Intf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.bdsproj b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.bdsproj new file mode 100644 index 00000000..80688d14 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.bdsproj @@ -0,0 +1,492 @@ + + + + + + + + + + + + RecibosProveedor_view.dpk + + + 7.0 + + + 8 + 0 + 1 + 1 + 0 + 0 + 1 + 1 + 1 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + 0 + 0 + 0 + 0 + 0 + 1 + 0 + 1 + 1 + 1 + True + True + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + True + False + False + False + True + True + True + True + True + True + + + + 0 + 0 + False + 1 + False + False + False + 16384 + 1048576 + 4194304 + + + + + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + + + + False + + + + + + False + + + True + False + + + + $00000000 + + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dcu b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dcu new file mode 100644 index 00000000..971fddfb Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk new file mode 100644 index 00000000..f00b694f --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk @@ -0,0 +1,46 @@ +package RecibosProveedor_view; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} + +requires + GUIBase, + RecibosProveedor_controller, + RecibosProveedor_model, + JvGlobusD11R; + +contains + uEditorRecibosProveedor in 'uEditorRecibosProveedor.pas' {fEditorRecibosProveedor: TfEditorRecibosCliente}, + uViewRecibosProveedor in 'uViewRecibosProveedor.pas' {frViewRecibosProveedor: TFrame}, + uViewReciboProveedor in 'uViewReciboProveedor.pas' {frViewReciboProveedor: TFrame}, + uViewPagosProveedor in 'uViewPagosProveedor.pas' {frViewPagosProveedor: TFrame}, + uEditorFechaPagoProveedor in 'uEditorFechaPagoProveedor.pas' {fEditorFechaPagoProveedor}, + uEditorReciboProveedorReport in 'uEditorReciboProveedorReport.pas' {fEditorReciboProveedorPreview: TfEditorReciboClienteReport}, + uEditorElegirRecibosProveedor in 'uEditorElegirRecibosProveedor.pas' {fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor}, + uRecibosProveedorViewRegister in 'uRecibosProveedorViewRegister.pas', + uViewReciboProvImportes in 'uViewReciboProvImportes.pas' {frViewReciboProvImportes: TFrame}, + uViewRecibosProvCompensados in 'uViewRecibosProvCompensados.pas' {frViewRecibosProvCompensados: TFrame}, + uEditorReciboProveedor in 'uEditorReciboProveedor.pas' {fEditorReciboProveedor: TfEditorReciboProveedor}; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj new file mode 100644 index 00000000..df609a85 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj @@ -0,0 +1,618 @@ + + + {74e7da8d-38a8-404c-b92c-c3a913b30982} + RecibosProveedor_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\RecibosProveedor_view.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + RecibosProveedor_view.dpk + + + + + + + MainSource + + + + + + +
fEditorElegirRecibosProveedor
+ TfEditorElegirRecibosProveedor + + +
fEditorFechaPagoProveedor
+ + +
fEditorReciboProveedor
+ TfEditorReciboProveedor + + +
fEditorReciboProveedorPreview
+ TfEditorReciboClienteReport + + +
fEditorRecibosProveedor
+ TfEditorRecibosCliente + + + +
frViewPagosProveedor
+ TFrame + + +
frViewReciboProveedor
+ TFrame + + +
frViewReciboProvImportes
+ TFrame + + +
frViewRecibosProvCompensados
+ TFrame + + +
frViewRecibosProveedor
+ TFrame + + + + + diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.identcache b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.identcache new file mode 100644 index 00000000..f3f286dd Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.identcache differ diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.rc b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.rc new file mode 100644 index 00000000..e69de29b diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res new file mode 100644 index 00000000..86c94e6a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDABusinessProcessor.dcu b/Source/Modulos/Recibos de proveedor/Views/uDABusinessProcessor.dcu new file mode 100644 index 00000000..a038e2e6 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDABusinessProcessor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAClasses.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAClasses.dcu new file mode 100644 index 00000000..3f2ca6f9 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAClasses.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDADataStreamer.dcu b/Source/Modulos/Recibos de proveedor/Views/uDADataStreamer.dcu new file mode 100644 index 00000000..5f4fd3a6 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDADataStreamer.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDADataTable.dcu b/Source/Modulos/Recibos de proveedor/Views/uDADataTable.dcu new file mode 100644 index 00000000..b384c91c Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDADataTable.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDADelta.dcu b/Source/Modulos/Recibos de proveedor/Views/uDADelta.dcu new file mode 100644 index 00000000..ab977498 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDADelta.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDADriverManager.dcu b/Source/Modulos/Recibos de proveedor/Views/uDADriverManager.dcu new file mode 100644 index 00000000..277c85d8 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDADriverManager.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAEngine.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAEngine.dcu new file mode 100644 index 00000000..ca569718 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAEngine.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAExpressionEvaluator.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAExpressionEvaluator.dcu new file mode 100644 index 00000000..f676670f Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAExpressionEvaluator.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAHelpers.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAHelpers.dcu new file mode 100644 index 00000000..81eea9e9 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAHelpers.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAInterfaces.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAInterfaces.dcu new file mode 100644 index 00000000..1e7199d6 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAInterfaces.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAInterfacesEx.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAInterfacesEx.dcu new file mode 100644 index 00000000..c314e6fc Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAInterfacesEx.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAMacroProcessors.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAMacroProcessors.dcu new file mode 100644 index 00000000..b3d01615 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAMacroProcessors.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAMacros.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAMacros.dcu new file mode 100644 index 00000000..19c83332 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAMacros.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAMemDataTable.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAMemDataTable.dcu new file mode 100644 index 00000000..a96a9a02 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAMemDataTable.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAMemDataset.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAMemDataset.dcu new file mode 100644 index 00000000..7ab57658 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAMemDataset.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAOracleInterfaces.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAOracleInterfaces.dcu new file mode 100644 index 00000000..00871b9a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAOracleInterfaces.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDARegExpr.dcu b/Source/Modulos/Recibos de proveedor/Views/uDARegExpr.dcu new file mode 100644 index 00000000..d7bf3423 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDARegExpr.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDARes.dcu b/Source/Modulos/Recibos de proveedor/Views/uDARes.dcu new file mode 100644 index 00000000..3626f87b Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDARes.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDASQL92Interfaces.dcu b/Source/Modulos/Recibos de proveedor/Views/uDASQL92Interfaces.dcu new file mode 100644 index 00000000..ef5f207b Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDASQL92Interfaces.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDASQL92QueryBuilder.dcu b/Source/Modulos/Recibos de proveedor/Views/uDASQL92QueryBuilder.dcu new file mode 100644 index 00000000..1a7c6e25 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDASQL92QueryBuilder.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAScriptingProvider.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAScriptingProvider.dcu new file mode 100644 index 00000000..a93d05da Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAScriptingProvider.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDASupportClasses.dcu b/Source/Modulos/Recibos de proveedor/Views/uDASupportClasses.dcu new file mode 100644 index 00000000..73e0ad12 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDASupportClasses.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAUtils.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAUtils.dcu new file mode 100644 index 00000000..ee8aa421 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAUtils.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAWhere.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAWhere.dcu new file mode 100644 index 00000000..ce5b58f8 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAWhere.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uDAXMLUtils.dcu b/Source/Modulos/Recibos de proveedor/Views/uDAXMLUtils.dcu new file mode 100644 index 00000000..1e71e6ba Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uDAXMLUtils.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dcu new file mode 100644 index 00000000..3f299f1d Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm new file mode 100644 index 00000000..491a46be --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm @@ -0,0 +1,410 @@ +inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor + Caption = 'Seleccionar recibos de cliente' + ClientWidth = 654 + ExplicitWidth = 662 + PixelsPerInch = 96 + TextHeight = 13 + object JvgWizardHeader1: TJvgWizardHeader [0] + Left = 0 + Top = 0 + Width = 654 + Height = 60 + CaptionFont.Charset = DEFAULT_CHARSET + CaptionFont.Color = clWindowText + CaptionFont.Height = -11 + CaptionFont.Name = 'Tahoma' + CaptionFont.Style = [fsBold] + CommentFont.Charset = DEFAULT_CHARSET + CommentFont.Color = clWindowText + CommentFont.Height = -11 + CommentFont.Name = 'Tahoma' + CommentFont.Style = [] + SymbolFont.Charset = DEFAULT_CHARSET + SymbolFont.Color = clHighlightText + SymbolFont.Height = -35 + SymbolFont.Name = 'Wingdings' + SymbolFont.Style = [fsBold] + Captions.Strings = ( + 'Seleccione recibos de cliente') + Comments.Strings = ( + ' ') + Gradient.FromColor = clHighlight + Gradient.ToColor = clWindow + Gradient.Active = False + Gradient.Orientation = fgdVertical + BufferedDraw = False + ExplicitLeft = -8 + ExplicitTop = -21 + ExplicitWidth = 656 + end + inherited JvNavPanelHeader: TJvNavPanelHeader + Top = 144 + Width = 654 + Visible = False + ExplicitTop = 144 + ExplicitWidth = 654 + inherited Image1: TImage + Left = 627 + ExplicitLeft = 629 + end + end + inherited TBXDock: TTBXDock + Top = 171 + Width = 654 + ExplicitTop = 171 + ExplicitWidth = 654 + inherited tbxMain: TTBXToolbar + ExplicitWidth = 126 + inherited TBXItem5: TTBXItem + Visible = False + end + inherited TBXItem6: TTBXItem + Visible = False + end + inherited TBXItem36: TTBXItem + Action = actAnchoAuto2 + end + end + inherited tbxFiltro: TTBXToolbar + Left = 126 + Top = 23 + DockPos = 104 + DockRow = 1 + Visible = False + ExplicitLeft = 126 + ExplicitTop = 23 + inherited TBXItem34: TTBXItem + Action = actQuitarFiltro2 + end + end + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 654 + end + inherited TBXTMain2: TTBXToolbar + Left = 334 + ExplicitLeft = 334 + end + end + inherited StatusBar: TJvStatusBar + Top = 609 + Width = 654 + ExplicitTop = 609 + ExplicitWidth = 654 + end + inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] + Left = 0 + Top = 628 + Width = 654 + Height = 36 + Align = alBottom + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 4 + ReadOnly = False + ExplicitTop = 628 + ExplicitWidth = 654 + ExplicitHeight = 36 + inherited JvFooter1: TJvFooter + Width = 654 + Height = 36 + ExplicitWidth = 654 + ExplicitHeight = 36 + inherited bSeleccionar: TJvFooterBtn + Left = 442 + Top = 3 + ExplicitLeft = 444 + ExplicitTop = 3 + end + inherited bCancelar: TJvFooterBtn + Left = 546 + Top = 4 + ExplicitLeft = 546 + ExplicitTop = 4 + end + end + inherited BarraSeleccionActionList: TActionList + inherited actSeleccionar: TAction + OnExecute = frViewBarraSeleccion1actSeleccionarExecute + OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate + end + inherited actCancelar: TAction + OnExecute = frViewBarraSeleccion1actCancelarExecute + end + end + end + inherited frViewRecibosProveedor1: TfrViewRecibosProveedor [5] + Top = 246 + Width = 654 + Height = 363 + ExplicitTop = 246 + ExplicitWidth = 654 + ExplicitHeight = 363 + inherited cxGrid: TcxGrid + Width = 654 + Height = 235 + RootLevelOptions.DetailTabsPosition = dtpNone + ExplicitWidth = 654 + ExplicitHeight = 235 + inherited cxGridView: TcxGridDBTableView + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewRecibosProveedor1.cxGridViewIMPORTE_TOTAL + end> + DataController.Summary.FooterSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + end + item + Format = '0 recibos' + Kind = skCount + Column = frViewRecibosProveedor1.cxGridViewFECHA_EMISION + end> + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 654 + ExplicitWidth = 654 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 654 + inherited dxLayoutControl1: TdxLayoutControl + Width = 654 + ExplicitWidth = 654 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end + inherited edtFechaFinFiltro: TcxDateEdit + ExplicitWidth = 343 + Width = 343 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 654 + inherited tbxBotones: TTBXToolbar + Width = 644 + end + end + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 337 + ExplicitTop = 337 + ExplicitWidth = 654 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 654 + ExplicitWidth = 654 + inherited TBXToolbar1: TTBXToolbar + Width = 644 + ExplicitWidth = 644 + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + BuiltInReportLink = True + end + end + inherited cxViewGridPopupMenu: TcxGridPopupMenu + PopupMenus = < + item + GridView = frViewRecibosProveedor1.cxGridView + HitTypes = [gvhtCell] + Index = 0 + end> + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end + end + object pnlFiltrar: TTBXDockablePanel [6] + Left = 0 + Top = 60 + Align = alTop + Caption = 'Filtrar' + CaptionRotation = dpcrAlwaysVert + DockedHeight = 84 + DockMode = dmCannotFloat + DockPos = 88 + DockRow = 2 + FloatingWidth = 128 + FloatingHeight = 84 + ShowCaptionWhenDocked = False + SupportedDocks = [dkStandardDock, dkMultiDock] + TabOrder = 5 + object Label1: TLabel + Left = 329 + Top = 50 + Width = 17 + Height = 13 + Caption = 'y el' + end + object txtFiltroTodo: TcxTextEdit + Left = 201 + Top = 16 + Properties.OnChange = txtFiltroTodoPropertiesChange + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Width = 273 + end + object edtFechaFiltro1: TcxDateEdit + Left = 201 + Top = 46 + Enabled = False + Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Width = 121 + end + object edtFechaFiltro2: TcxDateEdit + Left = 353 + Top = 46 + Enabled = False + Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 2 + Width = 121 + end + object rbTodo: TcxRadioButton + Left = 16 + Top = 18 + Width = 145 + Height = 17 + Caption = 'Recibos que contengan:' + Checked = True + TabOrder = 3 + TabStop = True + OnClick = rbTodoClick + LookAndFeel.Kind = lfStandard + LookAndFeel.NativeStyle = True + end + object rbFechas: TcxRadioButton + Left = 16 + Top = 48 + Width = 174 + Height = 17 + Caption = 'Recibos con vencimiento entre:' + TabOrder = 4 + OnClick = rbTodoClick + LookAndFeel.Kind = lfStandard + LookAndFeel.NativeStyle = True + end + object Button1: TBitBtn + Left = 503 + Top = 43 + Width = 163 + Height = 25 + Action = actQuitarFiltro2 + Caption = 'Quitar filtro y ver todo' + TabOrder = 5 + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000000000000000000000000000000000000FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00A505 + E1007204CA00FE00FF00FF00FF00FF00FF00E800F5003E09C100FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00AB17 + F900161DC600C400E700FF00FF00FF00FF00520DC9000F30D600D71BCF00942A + 8A004D493C004D493C00942A8A00D71BCF00FF00FF00FF00FF00D71BCF008B2C + 92002843B900141B980070208D004615BA000F30D600C20BF80069605800F8D5 + AD00F8C89000F8C89000E7AB63004D493C00FF00FF00FF00FF0069605800F8D5 + AD00C8ACA6001036E4002125A6000F30D600B20EF600FF00FF0069605800FFD8 + C000F8D5AD00F8C89000F8C890004D493C004D493C004D493C0069605800FFD8 + C000EFCDAD005F65C6000A38ED002637A300927C6C00FF00FF0069605800F0F0 + F000FFD8C000F8D5AD00F8C8900069605800696058006960580069605800FFF8 + FF008372B1000F30D6002750F7000F30D60025256F00FF00FF00942A8A006960 + 58006960580069605800942A8A00D71BCF00FF00FF00FF00FF00D71BCF004F24 + 9E000F30D600434D8A00605D6C004D69E3000F30D6006D05CC00FF00FF006648 + 54004D493C00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000F30 + D6008F1FF300FF00FF00FF00FF00C811FD003154EB000024D300FF00FF00FF00 + FF00664854004D493C00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF004D493C004D493C00FF00FF00FF00FF00FF00 + FF00FF00FF0066485400696058004D493C00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00696058004D493C00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF0066485400D419D000FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00A8658D0069605800FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00 + FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00} + end + end + inherited EditorActionList: TActionList [9] + Left = 112 + Top = 192 + end + inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] + end + inherited dsDataTable: TDADataSource [11] + Left = 8 + Top = 192 + end + inherited JvFormStorage: TJvFormStorage [13] + end + inherited GridPopupMenu: TPopupMenu + Left = 80 + Top = 192 + end + object EditorSeleccionActionList: TActionList + Images = SmallImages + Left = 152 + Top = 192 + object actBuscar2: TAction + Category = 'Buscar' + Caption = 'Buscar' + ImageIndex = 10 + ShortCut = 114 + end + object actQuitarFiltro2: TAction + Category = 'Buscar' + Caption = 'Quitar filtro y ver todo' + ImageIndex = 19 + OnExecute = actQuitarFiltro2Execute + end + object actAnchoAuto2: TAction + Category = 'Ver' + Caption = 'Ancho autom'#225'tico' + ImageIndex = 21 + OnExecute = actAnchoAuto2Execute + end + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.pas new file mode 100644 index 00000000..e8a727e3 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.pas @@ -0,0 +1,211 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uEditorElegirRecibosProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage, + JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, + ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid, + JvExComCtrls, JvStatusBar, + ComCtrls, TB2ExtItems, TBXExtItems, TBX, + TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, + JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, + + uViewRecibosProveedor, uEditorRecibosProveedor, uBizRecibosProveedor, uIEditorElegirRecibosProveedor, + Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls, + cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog; + + +type + TfEditorElegirRecibosProveedor = class(TfEditorRecibosProveedor, IEditorElegirRecibosProveedor) + frViewBarraSeleccion1: TfrViewBarraSeleccion; + JvgWizardHeader1: TJvgWizardHeader; + EditorSeleccionActionList: TActionList; + actBuscar2: TAction; + actQuitarFiltro2: TAction; + actAnchoAuto2: TAction; + pnlFiltrar: TTBXDockablePanel; + Label1: TLabel; + txtFiltroTodo: TcxTextEdit; + edtFechaFiltro1: TcxDateEdit; + edtFechaFiltro2: TcxDateEdit; + rbTodo: TcxRadioButton; + rbFechas: TcxRadioButton; + Button1: TBitBtn; + procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject); + procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject); + procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure actAnchoAuto2Execute(Sender: TObject); + procedure actQuitarFiltro2Execute(Sender: TObject); + procedure txtFiltroTodoPropertiesChange(Sender: TObject); + procedure edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject); + procedure rbTodoClick(Sender: TObject); + protected + procedure SetMultiSelect (AValue : Boolean); + function GetMultiSelect : Boolean; + function GetRecibosProveedorSeleccionados: IBizRecibosProveedor; + procedure SetViewGrid(const Value: IViewGridBase); override; + procedure SetMensaje (const AValue: String); + function GetMensaje: String; + public + property Mensaje : String read GetMensaje write SetMensaje; + property RecibosProveedorSeleccionados: IBizRecibosProveedor read GetRecibosProveedorSeleccionados; + property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect; + end; + +implementation + +uses + uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils, + uGridUtils, uDialogUtils, uEditorBase, uRecibosProveedorController; + +{$R *.dfm} + +{ TfEditorElegirRecibosProveedor } + +procedure TfEditorElegirRecibosProveedor.actAnchoAuto2Execute(Sender: TObject); +begin + inherited; + actAnchoAuto.Execute; +end; + +procedure TfEditorElegirRecibosProveedor.actQuitarFiltro2Execute(Sender: TObject); +begin +// inherited; + + if Assigned(ViewGrid) then + begin + txtFiltroTodo.Clear; + edtFechaFiltro1.Clear; + edtFechaFiltro2.Clear; + (ViewGrid as IViewRecibosProveedor).FiltrarPorFechas(null, null); + inherited; + end; + +// actQuitarFiltro.Execute; +end; + +procedure TfEditorElegirRecibosProveedor.edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject); +begin + if not VarIsNull(edtFechaFiltro1.EditValue) and not VarIsNull(edtFechaFiltro2.EditValue) then + begin + if (edtFechaFiltro1.EditValue > edtFechaFiltro2.EditValue) then + begin + ShowWarningMessage('La fecha de inicio debe ser anterior a la fecha final'); + edtFechaFiltro1.SetFocus; + end + else + (ViewGrid as IViewRecibosProveedor).FiltrarPorFechas(edtFechaFiltro1.EditValue, edtFechaFiltro2.EditValue); + end; +end; + +procedure TfEditorElegirRecibosProveedor.FormShow(Sender: TObject); +begin + inherited; + EditorActionList.State := asSuspended; + frViewRecibosProveedor1.cxViewGridPopupMenu.PopupMenus.Items[0].HitTypes := []; +end; + +procedure TfEditorElegirRecibosProveedor.frViewBarraSeleccion1actCancelarExecute( + Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfEditorElegirRecibosProveedor.frViewBarraSeleccion1actSeleccionarExecute( + Sender: TObject); +begin + inherited; + ModalResult := mrOk; +end; + +procedure TfEditorElegirRecibosProveedor.frViewBarraSeleccion1actSeleccionarUpdate( + Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0) +end; + +function TfEditorElegirRecibosProveedor.GetRecibosProveedorSeleccionados: IBizRecibosProveedor; +begin + SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (RecibosProveedor as ISeleccionable).SelectedRecords); + // En SelectedRecords tengo los ID de las filas seleccionadas del grid + Result := (Controller as IRecibosProveedorController).ExtraerSeleccionados(RecibosProveedor) as IBizRecibosProveedor; +end; + +procedure TfEditorElegirRecibosProveedor.rbTodoClick(Sender: TObject); +begin + actQuitarFiltro.Execute; + + if rbTodo.Checked then + begin + edtFechaFiltro1.Enabled := False; + edtFechaFiltro2.Enabled := False; + txtFiltroTodo.Enabled := True; + end + else begin + edtFechaFiltro1.Enabled := True; + edtFechaFiltro2.Enabled := True; + txtFiltroTodo.Enabled := False; + end; +end; + +function TfEditorElegirRecibosProveedor.GetMensaje: String; +begin + Result := JvgWizardHeader1.Comments.Text; +end; + +function TfEditorElegirRecibosProveedor.GetMultiSelect: Boolean; +begin + Result := ViewGrid.MultiSelect; +end; + +procedure TfEditorElegirRecibosProveedor.SetMensaje(const AValue: String); +begin + JvgWizardHeader1.Comments.Text := AValue; +end; + +procedure TfEditorElegirRecibosProveedor.SetMultiSelect(AValue: Boolean); +begin + ViewGrid.MultiSelect := AValue; +end; + +procedure TfEditorElegirRecibosProveedor.SetViewGrid(const Value: IViewGridBase); +begin + inherited; + ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute; +end; + +procedure TfEditorElegirRecibosProveedor.txtFiltroTodoPropertiesChange(Sender: TObject); +begin + if Assigned(ViewGrid) then + ViewGrid.Filter := txtFiltroTodo.Text; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dcu b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dcu new file mode 100644 index 00000000..c5072e75 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm new file mode 100644 index 00000000..59e52778 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm @@ -0,0 +1,78 @@ +object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor + Left = 0 + Top = 0 + BorderStyle = bsDialog + Caption = 'Fecha del cobro / devoluci'#243'n' + ClientHeight = 167 + ClientWidth = 283 + Color = clWindow + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 21 + Top = 16 + Width = 246 + Height = 26 + Caption = + 'Introduzca la fecha en la que se ha hecho efectivo '#13#10'el cobro o ' + + 'la devoluci'#243'n:' + end + object Label2: TLabel + Left = 38 + Top = 67 + Width = 33 + Height = 13 + Alignment = taRightJustify + Caption = 'Fecha:' + FocusControl = eFechaPago + end + object eFechaPago: TcxDateEdit + Left = 77 + Top = 64 + Properties.OnChange = eFechaPagoPropertiesChange + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Width = 132 + end + object Panel1: TPanel + Left = 0 + Top = 126 + Width = 283 + Height = 41 + Align = alBottom + TabOrder = 1 + object bAceptar: TButton + Left = 119 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Aceptar' + ModalResult = 1 + TabOrder = 0 + end + object bCancelar: TButton + Left = 200 + Top = 8 + Width = 75 + Height = 25 + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 1 + end + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas new file mode 100644 index 00000000..c331b881 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas @@ -0,0 +1,51 @@ +unit uEditorFechaPagoProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, + cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor; + +type + TfEditorFechaPagoProveedor = class(TfEditorBasico, IEditorFechaPagoProveedor) + Label1: TLabel; + eFechaPago: TcxDateEdit; + bAceptar: TButton; + bCancelar: TButton; + Label2: TLabel; + Panel1: TPanel; + procedure FormShow(Sender: TObject); + procedure eFechaPagoPropertiesChange(Sender: TObject); + private + FFechaPago : TDateTime; + function GetFechaPago: TDateTime; + procedure SetFechaPago(const Value: TDateTime); + public + property FechaPago: TDateTime Read GetFechaPago write SetFechaPago; + end; + +implementation +{$R *.dfm} + +procedure TfEditorFechaPagoProveedor.eFechaPagoPropertiesChange(Sender: TObject); +begin + FechaPago := eFechaPago.Date; +end; + +procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject); +begin + eFechaPago.Date := Date; +end; + +function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime; +begin + Result := FFechaPago; +end; + +procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime); +begin + FFechaPago := Value; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dcu b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dcu new file mode 100644 index 00000000..18b48efb Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm new file mode 100644 index 00000000..73f04ebc --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm @@ -0,0 +1,356 @@ +inherited fEditorReciboProveedor: TfEditorReciboProveedor + Caption = 'Recibo de cliente' + ClientHeight = 554 + ClientWidth = 691 + OnClose = CustomEditorClose + ExplicitWidth = 699 + ExplicitHeight = 588 + PixelsPerInch = 96 + TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + Width = 691 + Caption = 'Recibo de cliente' + ExplicitWidth = 691 + inherited Image1: TImage + Left = 664 + Picture.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 + 0000180806000000E0773DF80000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB51930000022E4944415478DA63FCFFFF3F + 032D01E3D0B760D9965334B321CAC78C116C41A4B729491AFFFCFDCFF0F7EF3F + 869FBFFE80E93FFFFE8169301B887FFDFECB109E5EC7707EE774840589270D09 + 1AFC17189CBFFEFE65F8F5E70F98FEF2EB17840FC2404B607245BF9633CC5BBA + 09D382F9E6E7512C927EEBCDD0E4D98C61D13FA06120ECB9DA9EE123CF03B0E1 + 97025E3028AD14045B52F17715A605AAAB85196E87BE051B006283C0CD903760 + FA02E37906E393C6400120479D81E1ACF95906CD1F5A0CBF803E1058CE0F56F3 + 3F1D12958C33191926736D47B58056910CB6106601AD221AC5025A44348605D4 + 8E68AC168000888D6C38BE880EDAE2C1F094FD36C38DE0D760B5628BB919EA18 + D6E2F701CC70E6534C0C7FCDFE816990E167E3CE3218CF035AA4CDC0F059E70B + 03EF151E86D72A6F18C277FA32EC8D3AC620BC880BEC8376968DD82D400F1AE6 + E5400B2281162C668218BECC98E16C14909E65CCF021E22383C0167E86172E2F + 19A2F604305CF873011E1FBDEC5B88B400D9075781121C40FC8301EC83B76AEF + 18846F09313C9179C210773094E1D4CFB3700B6079016F2A8259F217A8E132CB + 25481C5C044AE843E240EEAD3CC3CF1F3F300C0701B805200EAEE202A458F183 + 1F438D732DD8927FE0B4FE178E41FCE8BD8170C37FA6FC01E764BC16C0003C6D + 03F1BBEFDF51F8C818391F2003AC16A0E7D23FD09CF9EDC72F243E50EE1F420E + 9E93A17C901C085CB97907D382298B775056F0A001140BBA27CFA7AAE13030F4 + 2B7D0062D74EABC521DC370000000049454E44AE426082} + ExplicitLeft = 574 + end + end + inherited TBXDock: TTBXDock + Width = 691 + ExplicitWidth = 691 + inherited tbxMain: TTBXToolbar + ExplicitWidth = 267 + end + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 691 + end + end + inherited pgPaginas: TPageControl + Width = 691 + Height = 359 + ExplicitWidth = 691 + ExplicitHeight = 359 + inherited pagGeneral: TTabSheet + ExplicitLeft = 4 + ExplicitTop = 24 + ExplicitWidth = 683 + ExplicitHeight = 331 + inline frViewReciboProveedor1: TfrViewReciboProveedor + Left = 0 + Top = 0 + Width = 683 + Height = 350 + Align = alTop + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False + ExplicitWidth = 683 + ExplicitHeight = 350 + inherited dxLayoutControl1: TdxLayoutControl + Width = 683 + Height = 350 + ExplicitWidth = 683 + DesignSize = ( + 683 + 350) + inherited eReferencia: TcxDBTextEdit + ExplicitWidth = 50 + Width = 50 + end + inherited eSituacion: TcxDBTextEdit + ExplicitWidth = 216 + Width = 216 + end + inherited edtFechaVencimiento: TcxDBDateEdit + ExplicitWidth = 216 + Width = 216 + end + inherited memObservaciones: TcxDBMemo + ExplicitWidth = 274 + Width = 274 + end + inherited eFechaEmision: TcxDBTextEdit + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 20 + Width = 20 + end + inherited eFormaPago: TcxDBTextEdit + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 42 + Width = 42 + end + inherited eImporteTotal: TcxDBCurrencyEdit + Left = 431 + Style.IsFontAssigned = True + ExplicitLeft = 431 + ExplicitWidth = 182 + Width = 182 + end + inherited eNombreCliente: TcxDBTextEdit + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 171 + Width = 171 + end + inherited eNifCif: TcxDBTextEdit + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 255 + Width = 255 + end + inherited eEntidad: TcxDBTextEdit + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 90 + Width = 90 + end + inherited eSucursal: TcxDBTextEdit + Left = 545 + ExplicitLeft = 545 + ExplicitWidth = 75 + Width = 75 + end + inherited eDC: TcxDBTextEdit + Left = 628 + ExplicitLeft = 628 + end + inherited eCuenta: TcxDBTextEdit + Left = 431 + ExplicitLeft = 431 + ExplicitWidth = 83 + Width = 83 + end + inherited eRemesa: TcxDBTextEdit + ExplicitWidth = 113 + Width = 113 + end + inherited edtFechaEmision: TcxDBDateEdit + ExplicitWidth = 97 + Width = 97 + end + inherited eReferenciaProveedor: TcxDBTextEdit + ExplicitWidth = 129 + Width = 129 + end + inherited rReferenciaFacturaProv: TcxDBTextEdit + Left = 431 + ExplicitLeft = 431 + end + inherited rRefReciboCompensado: TcxDBTextEdit + ExplicitWidth = 216 + Width = 216 + end + end + end + end + object pagPagos: TTabSheet + Caption = 'Pagos' + ImageIndex = 1 + inline frViewPagosProveedor1: TfrViewPagosProveedor + Left = 0 + Top = 0 + Width = 683 + Height = 331 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False + ExplicitWidth = 683 + ExplicitHeight = 331 + inherited dxLayoutControl1: TdxLayoutControl + Width = 683 + Height = 331 + ExplicitWidth = 683 + ExplicitHeight = 331 + inherited ListaPagosProveedor: TcxGrid + Width = 252 + Height = 105 + ExplicitWidth = 252 + ExplicitHeight = 105 + inherited ListaPagosProveedorDBTableView1: TcxGridDBTableView + inherited ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn + IsCaptionAssigned = True + end + end + end + inherited ToolBar1: TToolBar + Width = 622 + ExplicitWidth = 622 + end + end + inherited DADataSource: TDADataSource + Left = 32 + Top = 80 + end + end + end + object pagCompensados: TTabSheet + Caption = 'Compensados' + ImageIndex = 2 + inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados + Left = 0 + Top = 0 + Width = 683 + Height = 331 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False + ExplicitWidth = 683 + ExplicitHeight = 331 + inherited cxGrid: TcxGrid + Width = 683 + Height = 306 + ExplicitWidth = 683 + ExplicitHeight = 306 + inherited cxGridView: TcxGridDBTableView + DataController.Summary.FooterSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewRecibosProvCompensados1.cxGridViewIMPORTE_TOTAL + end> + DataController.Summary.OnAfterSummary = frViewRecibosProvCompensados1cxGridViewDataControllerSummaryAfterSummary + end + end + inherited ToolBar1: TToolBar + Width = 683 + ExplicitWidth = 683 + inherited ToolButton3: TToolButton + ExplicitWidth = 98 + end + inherited ToolButton8: TToolButton + ExplicitWidth = 99 + end + end + end + end + end + inherited StatusBar: TJvStatusBar + Top = 535 + Width = 691 + Panels = < + item + Width = 200 + end> + ExplicitTop = 535 + ExplicitWidth = 691 + end + inline frViewReciboProvImportes1: TfrViewReciboProvImportes [4] + Left = 0 + Top = 435 + Width = 691 + Height = 100 + Align = alBottom + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 4 + ReadOnly = False + ExplicitTop = 435 + ExplicitWidth = 691 + inherited dxLayoutControl1: TdxLayoutControl + Width = 691 + ExplicitWidth = 691 + inherited eImporte: TcxDBCurrencyEdit + DataBinding.DataSource = dsDataTable + Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged + ExplicitWidth = 150 + Width = 150 + end + inherited eOtrosGastos: TcxDBCurrencyEdit + DataBinding.DataSource = dsDataTable + end + inherited eImporteTotalRecibo: TcxCurrencyEdit + ExplicitWidth = 183 + Width = 183 + end + end + end + inherited EditorActionList: TActionList [5] + Left = 48 + Top = 144 + inherited actNuevo: TAction + Enabled = False + Visible = False + end + inherited actModificar: TAction + Enabled = False + Visible = False + end + inherited actEliminar: TAction + Enabled = False + Visible = False + end + inherited actPrevisualizar: TAction + Enabled = False + Visible = False + end + inherited actImprimir: TAction + Enabled = False + Visible = False + end + end + inherited SmallImages: TPngImageList [6] + end + inherited LargeImages: TPngImageList [7] + end + inherited JvFormStorage: TJvFormStorage [8] + OnSavePlacement = JvFormStorageSavePlacement + OnRestorePlacement = JvFormStorageRestorePlacement + end + inherited dsDataTable: TDADataSource [9] + Left = 8 + Top = 136 + end + inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] + end + object DADataSource1: TDADataSource + OnDataChange = dsDataTableDataChange + Left = 80 + Top = 168 + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas new file mode 100644 index 00000000..d62241ed --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas @@ -0,0 +1,326 @@ +unit uEditorReciboProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorDBItem, JvAppStorage, JvAppRegistryStorage, DB, uDADataTable, + JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, + ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item, TB2Dock, TB2Toolbar, + pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorReciboProveedor, + uCustomView, uViewBase, uViewReciboProveedor, uRecibosProveedorController, + uBizRecibosProveedor, uViewPagosProveedor, dxLayoutLookAndFeels, cxCustomData, + uViewDetallesGenerico, uViewRecibosProvCompensados, uViewReciboProvImportes; + +type + TfEditorReciboProveedor = class(TfEditorDBItem, IEditorReciboProveedor) + DADataSource1: TDADataSource; + frViewReciboProveedor1: TfrViewReciboProveedor; + pagPagos: TTabSheet; + pagCompensados: TTabSheet; + frViewPagosProveedor1: TfrViewPagosProveedor; + frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados; + frViewReciboProvImportes1: TfrViewReciboProvImportes; + procedure FormShow(Sender: TObject); + procedure dsDataTableDataChange(Sender: TObject; Field: TField); + procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); + procedure frViewReciboProveedor1eImportePropertiesValidate(Sender: TObject; + var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + + procedure frViewPagosProveedor1actAnadirExecute(Sender: TObject); + procedure frViewPagosProveedor1actEliminarExecute(Sender: TObject); + procedure frViewPagosProveedor1actEliminarUpdate(Sender: TObject); + procedure frViewPagosProveedor1actModificarUpdate(Sender: TObject); + procedure frViewPagosProveedor1actModificarExecute(Sender: TObject); + + procedure HabilitarRecibo; + procedure DeshabilitarRecibo; + procedure JvFormStorageRestorePlacement(Sender: TObject); + procedure JvFormStorageSavePlacement(Sender: TObject); + procedure frViewReciboProvImportes1eImportePropertiesEditValueChanged(Sender: TObject); + procedure frViewRecibosProvCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary); + + private + FController : IRecibosProveedorController; + FRecibo: IBizRecibosProveedor; + FViewRecibo : IViewReciboProveedor; + FImporteRestante : Double; + + function GetController : IRecibosProveedorController; + procedure SetController (const Value : IRecibosProveedorController); virtual; + function GetRecibo: IBizRecibosProveedor; + procedure SetRecibo(const Value: IBizRecibosProveedor); + function GetViewRecibo: IViewReciboProveedor; + procedure SetViewRecibo(const Value: IViewReciboProveedor); + property ViewRecibo: IViewReciboProveedor read GetViewRecibo write SetViewRecibo; + procedure CalcularTotal; + + protected + procedure PrevisualizarInterno; override; + procedure ImprimirInterno; override; + procedure GuardarInterno; override; + + procedure PonerTitulos(const ATitulo: string = ''); override; + + public + property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo; + constructor Create(AOwner: TComponent); override; + end; + +implementation + +uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase; + +{$R *.dfm} + +procedure TfEditorReciboProveedor.CalcularTotal; +var + ImporteAux: Double; +begin + + ImporteAux := 0; + if not VarIsNull(frViewRecibosProvCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]) then + ImporteAux := frViewRecibosProvCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]; + + frViewReciboProvImportes1.eImporteTotalRecibo.Value := frViewReciboProvImportes1.eImporte.Value + frViewReciboProvImportes1.eOtrosGastos.Value + ImporteAux; +end; + +constructor TfEditorReciboProveedor.Create(AOwner: TComponent); +begin + inherited; + FImporteRestante := 0; + pgPaginas.ActivePageIndex := 0; + ViewRecibo := frViewReciboProveedor1; +end; + +procedure TfEditorReciboProveedor.CustomEditorClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + dsDataTable.DataTable := NIL; + FViewRecibo := NIL; + FRecibo := NIL; +end; + +procedure TfEditorReciboProveedor.DeshabilitarRecibo; +begin + frViewReciboProveedor1.eReferenciaProveedor.Enabled := False; + frViewReciboProveedor1.edtFechaVencimiento.Enabled := False; + frViewReciboProvImportes1.eImporte.Enabled := False; + frViewReciboProvImportes1.eOtrosGastos.Enabled := False; +end; + +procedure TfEditorReciboProveedor.dsDataTableDataChange(Sender: TObject; Field: TField); +begin + inherited; + + if Assigned(FRecibo) and (not (FRecibo.DataTable.Fetching) or + not (FRecibo.DataTable.Opening) or not (FRecibo.DataTable.Closing)) then + PonerTitulos; +end; + +procedure TfEditorReciboProveedor.FormShow(Sender: TObject); +begin + inherited; + + if not Assigned(FViewRecibo) then + raise Exception.Create('No hay ninguna vista asignada'); + + if not Assigned(Recibo) then + raise Exception.Create('No hay ningún almacén asignado'); + + Recibo.DataTable.Active := True; +end; + +procedure TfEditorReciboProveedor.frViewPagosProveedor1actAnadirExecute(Sender: TObject); +begin + inherited; + + //En el caso de haber añadido el pago del recibo ya no podremos modificarlo + if FController.AnadirPago(Recibo) then + DeshabilitarRecibo + //Podremos modificar si anulamos el pago mediante una devolución + else + HabilitarRecibo; +end; + +procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarExecute(Sender: TObject); +begin + inherited; + //En el caso de eliminar un pago el recibo queda como devuelto o pendiente y por tanto se puede modificar + if (FController.EliminarPago(Recibo)) then + begin + FRecibo.Edit; + if FRecibo.Pagos.DataTable.RecordCount > 0 then + FRecibo.SITUACION := CTE_DEVUELTO + else + FRecibo.SITUACION := CTE_PENDIENTE; + HabilitarRecibo; + end + //No podremos modificar si anulamos una devolución porque el recibo queda cobrado + else + begin + FRecibo.Edit; + FRecibo.SITUACION := CTE_PAGADO; + DeshabilitarRecibo; + end; +end; + +procedure TfEditorReciboProveedor.frViewPagosProveedor1actEliminarUpdate(Sender: TObject); +begin + if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then + frViewPagosProveedor1.actEliminar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0) +end; + +procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarExecute(Sender: TObject); +begin + inherited; + FController.ModificarPago(Recibo); +end; + +procedure TfEditorReciboProveedor.frViewPagosProveedor1actModificarUpdate(Sender: TObject); +begin + inherited; + if Assigned(FRecibo) and Assigned(FRecibo.Pagos) then + frViewPagosProveedor1.actModificar.Enabled := (FRecibo.Pagos.DataTable.RecordCount > 0); +end; + +procedure TfEditorReciboProveedor.frViewReciboProvImportes1eImportePropertiesEditValueChanged( + Sender: TObject); +begin + inherited; + CalcularTotal; +end; + +procedure TfEditorReciboProveedor.frViewReciboProveedor1eImportePropertiesValidate( + Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; + var Error: Boolean); +begin + inherited; + + if (DisplayValue > frViewReciboProvImportes1.eImporte.DataBinding.Field.Value) then + begin + DisplayValue := frViewReciboProvImportes1.eImporte.DataBinding.Field.Value; + ErrorText := 'El importe debe ser menor o igual que el actual'; + Error := True; + end; +end; + +procedure TfEditorReciboProveedor.frViewRecibosProvCompensados1cxGridViewDataControllerSummaryAfterSummary(ASender: TcxDataSummary); +begin + inherited; + CalcularTotal; +end; + +function TfEditorReciboProveedor.GetController: IRecibosProveedorController; +begin + Result := FController; +end; + +function TfEditorReciboProveedor.GetRecibo: IBizRecibosProveedor; +begin + Result := FRecibo; +end; + +function TfEditorReciboProveedor.GetViewRecibo: IViewReciboProveedor; +begin + Result := FViewRecibo; +end; + +procedure TfEditorReciboProveedor.GuardarInterno; +begin + inherited; + FController.Guardar(FRecibo); + Modified := False; +end; + +procedure TfEditorReciboProveedor.HabilitarRecibo; +begin +//Si el recibo tiene sociado una remesa no se podrá cambiar nada + frViewReciboProveedor1.eReferenciaProveedor.Enabled := True; + frViewReciboProveedor1.edtFechaVencimiento.Enabled := True; + frViewReciboProvImportes1.eImporte.Enabled := True; + frViewReciboProvImportes1.eOtrosGastos.Enabled := True; +end; + +procedure TfEditorReciboProveedor.ImprimirInterno; +begin + inherited; + FController.Print(FRecibo); +end; + +procedure TfEditorReciboProveedor.JvFormStorageRestorePlacement(Sender: TObject); +begin + inherited; + frViewPagosProveedor1.ListaPagosProveedor.ActiveView.RestoreFromRegistry(JvAppRegistryStorage.Root); +end; + +procedure TfEditorReciboProveedor.JvFormStorageSavePlacement(Sender: TObject); +begin + inherited; + frViewPagosProveedor1.ListaPagosProveedor.ActiveView.StoreToRegistry(JvAppRegistryStorage.Root); +end; + +procedure TfEditorReciboProveedor.PonerTitulos(const ATitulo: string); +var + FTitulo : String; +begin + if Assigned(Recibo) then + begin + if Recibo.EsNuevo then + FTitulo := 'Nuevo recibo de proveedor' + else + FTitulo := 'Recibo de proveedor'; + end; + + if (Recibo.ID_RECIBO_COMPENSADO > 0) then + FTitulo := FTitulo + ' (compensado)'; + + if Length(Recibo.NOMBRE_PROVEEDOR) > 0 then + FTitulo := FTitulo + ' - ' + Recibo.NOMBRE_PROVEEDOR; + + inherited PonerTitulos(FTitulo); +end; + +procedure TfEditorReciboProveedor.PrevisualizarInterno; +begin + inherited; + FController.Preview(FRecibo); +end; + +procedure TfEditorReciboProveedor.SetController(const Value: IRecibosProveedorController); +begin + FController := Value; + if Assigned(FController) then + frViewRecibosProvCompensados1.Controller := FController; + +// (ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController); +end; + +procedure TfEditorReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor); +begin + FRecibo := Value; + dsDataTable.DataTable := FRecibo.DataTable; + + if Assigned(FViewRecibo) and Assigned(Recibo) then + begin + FViewRecibo.Recibo := Recibo; + frViewPagosProveedor1.Pagos := Recibo.Pagos; + frViewRecibosProvCompensados1.ReciboProveedor := FRecibo; + + if (FRecibo.SITUACION = CTE_PAGADO) then + DeshabilitarRecibo + else + HabilitarRecibo; + end; +end; + +procedure TfEditorReciboProveedor.SetViewRecibo(const Value: IViewReciboProveedor); +begin + FViewRecibo := Value; + + if Assigned(FViewRecibo) and Assigned(Recibo) then + FViewRecibo.Recibo := Recibo; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedorReport.dcu b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedorReport.dcu new file mode 100644 index 00000000..06db5c73 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedorReport.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedorReport.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedorReport.dfm new file mode 100644 index 00000000..bf7855e2 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedorReport.dfm @@ -0,0 +1,10 @@ +inherited fEditorReciboProveedorPreview: TfEditorReciboProveedorPreview + Caption = 'Previsualizar el recibo' + PixelsPerInch = 96 + TextHeight = 13 + inherited frxReport1: TfrxReport + Datasets = <> + Variables = <> + Style = <> + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedorReport.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedorReport.pas new file mode 100644 index 00000000..f9ec1785 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedorReport.pas @@ -0,0 +1,22 @@ +unit uEditorReciboProveedorReport; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass, + JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, + TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, + ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorRecibosProveedorPreview, + JvExComCtrls, JvStatusBar, frxDMPExport, frxGradient, frxChBox, frxCross, + frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage, + JvComponentBase; + +type + TfEditorReciboProveedorPreview = class(TfEditorPreview, IEditorRecibosProveedorPreview) + end; + +implementation +{$R *.dfm} + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dcu new file mode 100644 index 00000000..006a6bab Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm new file mode 100644 index 00000000..18bd8d76 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm @@ -0,0 +1,1538 @@ +inherited fEditorRecibosProveedor: TfEditorRecibosProveedor + Caption = 'Lista de recibos de proveedor' + ClientHeight = 664 + ClientWidth = 638 + ExplicitWidth = 646 + ExplicitHeight = 698 + PixelsPerInch = 96 + TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + Width = 638 + Caption = 'Lista de recibos de proveedor' + ExplicitWidth = 638 + inherited Image1: TImage + Left = 611 + Picture.Data = { + 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 + 0000180806000000E0773DF80000000970485973000017120000171201679FD2 + 520000000467414D410000B18E7CFB51930000022E4944415478DA63FCFFFF3F + 032D01E3D0B760D9965334B321CAC78C116C41A4B729491AFFFCFDCFF0F7EF3F + 869FBFFE80E93FFFFE8169301B887FFDFECB109E5EC7707EE774840589270D09 + 1AFC17189CBFFEFE65F8F5E70F98FEF2EB17840FC2404B607245BF9633CC5BBA + 09D382F9E6E7512C927EEBCDD0E4D98C61D13FA06120ECB9DA9EE123CF03B0E1 + 97025E3028AD14045B52F17715A605AAAB85196E87BE051B006283C0CD903760 + FA02E37906E393C6400120479D81E1ACF95906CD1F5A0CBF803E1058CE0F56F3 + 3F1D12958C33191926736D47B58056910CB6106601AD221AC5025A44348605D4 + 8E68AC168000888D6C38BE880EDAE2C1F094FD36C38DE0D760B5628BB919EA18 + D6E2F701CC70E6534C0C7FCDFE816990E167E3CE3218CF035AA4CDC0F059E70B + 03EF151E86D72A6F18C277FA32EC8D3AC620BC880BEC8376968DD82D400F1AE6 + E5400B2281162C668218BECC98E16C14909E65CCF021E22383C0167E86172E2F + 19A2F604305CF873011E1FBDEC5B88B400D9075781121C40FC8301EC83B76AEF + 18846F09313C9179C210773094E1D4CFB3700B6079016F2A8259F217A8E132CB + 25481C5C044AE843E240EEAD3CC3CF1F3F300C0701B805200EAEE202A458F183 + 1F438D732DD8927FE0B4FE178E41FCE8BD8170C37FA6FC01E764BC16C0003C6D + 03F1BBEFDF51F8C818391F2003AC16A0E7D23FD09CF9EDC72F243E50EE1F420E + 9E93A17C901C085CB97907D382298B775056F0A001140BBA27CFA7AAE13030F4 + 2B7D0062D74EABC521DC370000000049454E44AE426082} + ExplicitLeft = 613 + end + end + inherited TBXDock: TTBXDock + Width = 638 + ExplicitWidth = 638 + inherited tbxMain: TTBXToolbar + ExplicitWidth = 276 + end + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 638 + end + end + inherited StatusBar: TJvStatusBar + Top = 645 + Width = 638 + ExplicitTop = 645 + ExplicitWidth = 638 + end + inline frViewRecibosProveedor1: TfrViewRecibosProveedor [3] + Left = 0 + Top = 102 + Width = 638 + Height = 543 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 3 + ReadOnly = False + ExplicitTop = 102 + ExplicitWidth = 638 + ExplicitHeight = 543 + inherited cxGrid: TcxGrid + Width = 638 + Height = 415 + ExplicitWidth = 638 + ExplicitHeight = 415 + inherited cxGridView: TcxGridDBTableView + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewRecibosProveedor1.cxGridViewIMPORTE_TOTAL + end> + DataController.Summary.FooterSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewRecibosProveedor1.cxGridViewIMPORTE_TOTAL + end + item + Format = '0 recibos' + Kind = skCount + Column = frViewRecibosProveedor1.cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewRecibosProveedor1.cxGridViewIMPORTE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewRecibosProveedor1.cxGridViewOTROS_GASTOS + end> + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 638 + ExplicitWidth = 638 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 638 + inherited dxLayoutControl1: TdxLayoutControl + Width = 638 + ExplicitWidth = 638 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end + inherited edtFechaFinFiltro: TcxDateEdit + Left = 294 + ExplicitLeft = 294 + ExplicitWidth = 244 + Width = 244 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 638 + ExplicitWidth = 638 + inherited tbxBotones: TTBXToolbar + Width = 628 + ExplicitWidth = 628 + end + end + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 517 + ExplicitTop = 517 + ExplicitWidth = 638 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 638 + ExplicitWidth = 638 + inherited TBXToolbar1: TTBXToolbar + Width = 628 + ExplicitWidth = 628 + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 39211.785458622680000000 + BuiltInReportLink = True + end + end + inherited cxViewGridPopupMenu: TcxGridPopupMenu + PopupMenus = < + item + GridView = frViewRecibosProveedor1.cxGridView + HitTypes = [gvhtCell] + Index = 0 + end> + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end + end + inherited EditorActionList: TActionList [4] + Left = 136 + Top = 176 + inherited actNuevo: TAction + Enabled = False + ImageIndex = 22 + Visible = False + end + inherited actEliminar: TAction + Enabled = False + Visible = False + end + inherited actPrevisualizar: TAction + Enabled = False + end + inherited actImprimir: TAction + Enabled = False + end + inherited actDuplicar: TAction + Enabled = False + Visible = False + end + end + inherited SmallImages: TPngImageList [5] + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 + 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD + 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E + E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 + 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF + FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 + E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 + C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF + 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 + 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A + 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA + 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 + 000005100EB8572466A60000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001074944415478DA + 63FCFFFF3F032580912A06303232E2543079D1766F201505C520B02C37CE331A + C400EBC5670054F3960057330631617E0690B2F357EF336CDA7786A1B5289211 + AF01C89A254505183E7FFDC1F0F5DB0F06311101A021F7184E5DBA733927D643 + 0FAB01E89ADF7EF802D6FCF5FB4F866F406CA6AFC21095DBC6B06C7215238601 + C4689EB27807C3B153E7300D2056F38B371F18B62EDA79EDFCF9F9DA700348D4 + CC70E1C2024420022548D68C128D40C906A0E67A5234631860A6A752AF202346 + B466740396C2521AD020B0A49EA622C39C95BB716AC64889C0405C0A541C2501 + 4C2830804F33D6A40C8A09A0A62DF7EEDD03F3AF1FB98D372301A39191E2DC08 + 0029AC32F01825AACD0000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001514944415478DA + 635CB5E3DC7F062C20CCC388918108C0083220D4DD104570F5CEF30CEDFDB319 + CEEF9C4ED0109C06D818AB3278C7941134046E40CBAA0760819A3005B80B6000 + 9F21182EF8F1F30F10FF86E05F7F1882926B883300E60264C0C1805D5F69B802 + 238601E836FF04E2CDA7BF339484C9A368EE59F59261D9C1BB0CE7A75933C20D + F0B4D56698B0E5195617601AF09021DA4998C1297307C38D35A18C60031CCDD4 + C036FF84DAFCE7EF3F307DF0FA7FB001112D57C09A57D4E8800D98BBFA346A18 + 58EA2BC235C39C0FC2671EB0A2B8E0DBCF7F0C5F7FFE05E27F60B65DE26C8801 + 7316ADC11A58AEFE69282E4009C8284506F7F4B90C781349F7CA07FF4106A0DB + FCFD171003E980BCF9840D48F5916148EFBB8E2197EC2BCB1059B290B001512E + 92609BC1B602F1EF3FFFC1F437204EAE5A4CD8007F5B71B8E66F480681407AED + 12C20674CCDE884F0903000B1A00979E81F9710000000049454E44AE426082} + Name = 'PngImage3' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000E9C00000E9C01079453DD000002574944415478DA + 63FCFFFF3F03258011D9004646468696696B17FFFECAD0DE581A7C0D596155CF + 0AF77F7FFFD975944755A3E8413760EA929DAF393938D62785D8A7C1C48BBB17 + 711BABAB5C7AF9F6FDDFC2446F354206BC75B6D4E35ABCFE90536B49F87190F8 + E4853B2779DA1BE46EDE7FE62ED00015BC06F4CFDBBA24CACF26FAD0A99B5B42 + BDCC7C6BFA563B057B986FFDFDE72FC7D20D072B26D62574E235A0A26DA999B0 + 98E0F2607713F9251B8E85692A4B5698E9AB9AAEDA7EE2DEBB571F3DDAAB226F + E33500044A3B979507B898B6BF78F3FEA3B1B612FF992BF7FF1F3975336E425D + CC52903C4103EAEBEB5998450D8FAA2A889BC94888306CD977664D675964284C + 1D0103EA99F8DDF50C8CD439E3FFFE67CB7DFFE9DB1F7E3E9EC637DF5977DC98 + B3E73C0343E33F9C0670B8AC555292175BC8F6FF9BEEDF6FEF995E7DF8F95941 + 55EDE5AB17AFBEFCFAC7C2F1ECC5FBEF0C4C4C89FF0F47DDC36A8056F2A103FF + DEDEE465FBFFB5F1D577EECB8C8CFFF72AAA6A7CFFF4F842CED54D7907184CE7 + 4631B0B227FC3F1AE38AD5008D981DDFD9BEDE48BABCA1703983DE226E09891F + D754B4756F7DBC7FBAEFF286BCED0C32BD9C0CB222B7FF1F8B93C16A805ED2EE + D74CEFAF445FDC50B48BC172858E34DFFB6582B2DAFB38BEDCFC7166456A0583 + CE0471063EA103FF8FC66A623540C063F55669B6E747AE3DE3E861E5E158A9C8 + FBF1D1FD6F628BF4147977FC7A79D3E3F2736E39060E9E84FF47A202B0C782ED + 627356C6FF935998FEB349737FB9FE95E975F2F32D8DDF98EC9647B1FCFF55F0 + EB1FD31FA08EC2FF87634F6235801C0000382740F0DFD997BD0000000049454E + 44AE426082} + Name = 'PngImage4' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA + A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 + 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 + 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F + 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 + 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 + 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA + 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E + 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 + E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 + 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 + 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 + 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB + 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 + 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 + E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 + D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 + 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 + A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E + AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 + 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 + 5538F0EAB25B380000000049454E44AE426082} + Name = 'PngImage5' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001934944415478DA + 6364C002662430FC47E6672C606064C001C0122726A06AB870818121A1632A98 + 5D169DCD10E58B90B32840358C11A4D920622A5C604145365833482308D4F5E6 + 3134154F62A8EE4805F35B2B66334CDA8B3004C50098E62F2F6E823581347F7F + FB80E1E58DBD0C8BD67D6588F6656258BAF91F7E03AE3D66C009081A800CD61F + B161C0072243F419711AF0F7F777864D275D192282F5B06A5EB1F23C43D7FCD9 + 0CE7774E67C43000A41984B79EF3C36AC08F9F7F18366CB8CC10116EC860E491 + 85EA0298E6BFBFBE33ECB8120E36C071E64DB8E6ED09CA40037E33ECD87E03EC + 02142F206BFEF7FB07C3AE9BF1282E00D90CD20CC6BFFE30EC3B719561CAECE5 + 100374837B503483E8BDF733305C000333DC04198E9EBB893040CBAF1945F3DF + 3FDF190E3C2E041B806EF34F283E73E52EC200758F2A865B3B3A506CB927739E + C1C75383C177F17D0C17745971325CBEF51062004820CF19352F808065E64506 + 172748A0C16CFDF3F71F9806B9E4F683A70803B081E56B2EFEB7B19663D875F4 + 32CEC444D080AED9331808010085EE16005695A1DA0000000049454E44AE4260 + 82} + Name = 'PngImage6' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000002164944415478DA95D35F4853511CC0F1EFD491DD + D9587F2C83AC8C328DFE4949908BC0AC142A147BC8077B88A01EECA5E718F958 + 410486C384B50A1F7A991023CBEC0F594F81E5D4C211E130D7D4DDCDA15B5EEF + DD5DD74B1B8EA9D90FCEC3EFC0EFC3EF9CF33B06FE46CBE3AE042B886B176B0C + 0B73C342A0A9B17AD9E2FB4F5EE0E878C6E79776C37F03AAAAD2DAD1CDDEDD3B + B96EBB9B425604CC17CB8A4AFBD31EEA6BAC0CFF08A4907F02C962598EE374BD + D58F908C2581442241603C8CCBFD89D86C9C9C9C1C0A365A282DDE446FDF37E6 + AB9277B128F02B10C6DDF385CD074B10D6593019211E9CC2EF1DA5A0C0821895 + 68BE6D5F1A6873BEA6D07A0879951945CD626B1E6C372978BD7EBC5F4710D608 + DC6A712C0EC84A9C7B6DDDECAF3B459E315B3B3B685B9835448DCD30F4BE0FC1 + 94CB9D56672670A5E1A47E590F1EBDE374C3091D88CD4120063359902B4719F9 + D88F201835E0612670E97CA5DE41578F870A6B296BD79B096BC0B8B6C4DF3252 + 4024E81960832071B3FD7926D0587B5C7F32DFE8243FC74214EDD906AB4D4C29 + 1011230487BC1419BFB32BE8E06CE7BE4CE0C299637A07B3928CCF37816F4CD4 + F2040943365234823134C8E1FC094A8A8D4C0DF6B2E5EA8774A0BEFAA80E283A + A21012A791E6E6B4618249FF08AFEC97292B2CA7B64221BFAC9C90E74DFA289F + AB3A42FFB07FD90FE5B255A510B754379D062C1CD3E5E240AC931D9537B03537 + 19FE00839434866373C4BA0000000049454E44AE426082} + Name = 'PngImage7' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000001724944415478DA6364A0103062135CB1E2C26E20 + E5824F63448401235603809AA381D412374F5506413E2EB0D89FBFFF187EFFF9 + 0BC62F3EFD6728A999C0B0795E15A60150CD1540CD3A7B4FDCC5B0D5D94299E1 + CAD3BF0CDD3D53F280064CC666C06EA066176C36FF05B25F7F6544B11DC50098 + D3C3C3F519D6ECBA8C61BBBDA922C38D17FF41B6C384B6020DF261846AFE0FA4 + AE809C0EB21DDD6610FFCF9F7F0CE91553194CF49518A4558D1836AE59037609 + 23C8E6AB4F2E2C2136DAE4B5AC186E9CD9C570F3C1278801B53D0BFE3715C7E3 + D4F0E5C75F86CFDF8118487FF9F18F61C3BA350C12CA260C3B366F4218408CCD + 17AE3D03D3065A520CEC42AA0C278F1CC4EF02749BBF82F0CFBF0CC7F66E64F8 + C92AC970FDE259DC06A06BAE3DEFC390ABB49EE1FEB5530CCF9F3F6778FA919D + E1F5D3FBD80DC066F3AC743D8680EEB30CAFEE9E61D8BEF72C4CA90CD080A770 + 03A62FDB45542C400D006B062724DFA4366920FD84D86844D68C9212C905001F + 16FA1194E3DBC30000000049454E44AE426082} + Name = 'PngImage8' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD2520000015F4944415478DA6364A000FC3060F8CF884D62C5 + 8A0BBB81940BB258E7FC99286A8EBF9CCEC06EE4C5C088457334905AE2E6A9CA + 20C8C70516FBF3F71F8399770E44D3F9FF0C3F0D19219AE76D6364C4A2B902A8 + 5967EF89BB2806B7F54D6738E7C4C1F073793F58B3D1537986F33BA76318B01B + A8D905D9E6DF7FFE82B1437011C3B91DD31818BA8AC07246FB7EA01A00737A78 + B83EC39A5D9731C205E40274003700A8F93F90BA02723AC876649BFF02D920FE + 9F3FFF18D22BA63298E82B3148AB1A316C5CB38661F5B92A064690CD579F5C58 + 4228CAB6EC3E893D166A7B16FC6F2A8EC7A9F1CB8FBF0C9FBFFF65F08E2CC01E + 0B20038849342017608D055C2E80D9FC19487FF9F18F2125B3147B2C6033005D + 73ED791F86E7B334B1C702BA01E89ABF02F1AC743D8680EEB30CAFEE9E61D8BE + F72C4CA9CCE679554FE1064C5FB68B98A0801900D60C6230FA26B54903E92744 + E946B219C661244123560000C9AFE6B31530CB2E0000000049454E44AE426082} + Name = 'PngImage9' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000016A4944415478DA + 63FCFFFF3F03082CDD7212C22000627C2D18616C905E466403A27DCCF16A06AA + 61E89DB290E1FCCEE98C241BF0EFDF3F86E5DB4E33488B093314D5F5810D21DA + 0090E6DF7FFE31ACD97596C1C9429BE1E6BD176043CEED98C688D3804D0F0E30 + F45E6A02B37779EC62E05CC0C6B058EA38D80B3080D30090E6805D4E182E7911 + FC91E1C4E5C70C8F1E3F6298B774137603609AFFA4FC013B1B64738BB13743CD + D9AD0C8FFDDF81C5B6EC3B85DB00A6594C289A91C13DEF3740F1BF0C3B0F9DC5 + 6D0048C1EFDF7F21F49F7F50FA2FC31F181F2877E0E445EC068479988015F02C + E640B1F98EE72BB066CDDD120C676D1E311C3D7B05BB0181CE8660DB049773C3 + FD8DAC3957BB80219A379FE1D4C5EBD80DF0B1D7032B165BCD8B110330CD200B + CE5FBD85DD00776B1DB002E9F502609B13CF8781E50C840DE09A41165CB97907 + BB014EE69A1801060B44986610C06980ADB11AC3A63D2789C994D80D404EA6C4 + 0090010087546EF0ACB0C7920000000049454E44AE426082} + Name = 'PngImage10' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001024944415478DA + 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 + C493AF1EDC305B3E7F1A2323BA66090111A9272F9F301CD9BE99119701110999 + FF416A0E6FDB843000A4F9CFCF1F52F834C2808DA72FD8DF700348D18C6C08D8 + 004B77AF69F292F299308987CF1F4E979256DEB076DEE45D207E7052AEDBB3A7 + 770390D58000DC0B20FFCC98D0CE70E1053FC3DBBF3F191E7F66603831A310C5 + B6E533A6311C7CC080228F624046C534B82408AC690C856B9611976140970719 + 20ACA0CB30A53E13624068693F5CF2F2E3F70C37E7A5C163019BFCD7AD4D0C2B + 164C07A72146981F999998C17EFCFBEF2FD630C0260F3660C0933200BCB3BCE1 + CDA578040000000049454E44AE426082} + Name = 'PngImage11' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001C04944415478DA + 63FCFFFF3F0325801164C0C20D47A381F41292353332C6800D58B0FEC8FF8440 + 1BA234FDF9FB8FE1F79FBF60EC105CC4806200A3E14C86FFE7D3C13408E0627F + 3C12CF70ECEC0D86AAB659D80D4007FF806AFEFC41D80CC2672FDFC1340019C8 + 7A2C6178F2F22B98ADAE20C0D09869CCE06E29CD2068B788E1D9AE48868BD7EF + 117601C8E673D7DF309846AF6310E66767B8BE3E8441CC6929C3C36D610CD76E + 3FC46DC0CBB7DF19EA679C613870E619C3C3679F197EFCFA0B36106433C8F97F + 80F8D6FD27B8BD1053BD8F61E9B6DB0C0B9B1C181C4C2518E43D5780C54136CB + 7BAD62B8B12E90E1FEE367D85DF0F75C1A836FDE0E866D471E315C5A15CCF0F1 + CB4F06DBA42D6003EE6E0A6650F65BCB7061B90FC3F357AFB11BF0F3540AC3B1 + 8B2F18A2ABF6313C7BFD8DC1C14412E895E76003AEAEF6077B4123528661FFC4 + F3A806C4F859C1A30839CAE0ECDF10BE41E416860F7F32188E4F453320DCCB9C + 81CB621ED8A6177BA218245C9681D9B7360431A805AC03B37F306430FCF8C3C0 + F0E61B0483D8700382DC4CF0DAFC1B498EDD5785E1FD4A3417F83919319CBA78 + 8BA8FCF0DFCF908171139201A0DC3871C6529273637E46740C00F128724C706C + 80060000000049454E44AE426082} + Name = 'PngImage12' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000E9C00000E9C01079453DD000002324944415478DA + 63FCFFFF3F03258011640023232386C4922BFF0D9818FFC57EFFFE57FDEFBFFF + CC8CFF19BEF0F1B36D5C73E9EAAAD5613ABF60166318505FFF9F4939F077F98B + 97BF6BEFDCFEC6F9EDDB3F86BF7F810A9918192424D9FEF3F1B32FBFFA93236E + 5528C35FB8018D9B7E2C6DF0E38859759581F5E7BF3FD36EDEF89AF4E51B03E3 + B72F7FC0867EF8F897E1EF3F06867F40ACA1C9F96FE392D5BA5737265D831BE0 + 58F9F0BF83A5F83245796696CB973E87FEF9C70CD6FCE2D92B86E78F6EFCFCF7 + EFEF17360E5E4151590326666626067D7DDE65F57E1CD12806288BB3FF676567 + 66E0E062036B7EFEF425C39307576E8A2A19B9EE6A557DA217B2A88E9B5FBA41 + 405C87C1DC9CEF01D0004514031444391804843918409ADFBFFFCE70E7EA91FB + 9F3FF06BDED9E1F513A450357481341FBBD03D611973362B4B2C067CF8C1C060 + A020C0F0E3FB4F86CF1FDEBCBE7FFD84C3B54DC9D760812B13DACB29CAAAF84A + 58C69AC7C61A8B01CF9FFF61E014646190E365627870FD40C3A535718DC8D1AA + E2B1988F5788E7B998823597A5392FA6010C1F1EC0157FF8F081E1DF9F4F0D1C + EC6AFDA7965A7C02899924ED550746C555793523665D1D2ED440C49690D08149 + D2A9764E3ED90A037DEEFF3696BC7161EA0C4B8836402FF6A41A37AFF0690E2E + 7E3E7B5B9E65C08494084C48BF8832402BF40A0F8F30DB3E0E2E4153277B9E65 + 0DFE9C60A7E34CCA280098ACCDDF3C5A2925C913ACAFCBB51CA6997803ECF7B3 + 301C74FC834D0AC5004A000026261CF09ABF155A0000000049454E44AE426082} + Name = 'PngImage13' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA + 8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414 + A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D + 739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF + 425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008 + EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5 + 6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050 + 910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85 + CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15 + 205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7 + F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D + B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D + 09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02 + 161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE + 4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0 + 7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D + 02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747 + 2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7 + FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386 + 01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790 + E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6 + 9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74 + 2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD + BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03 + 503A4EA60D6AAC070000000049454E44AE426082} + Name = 'PngImage14' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA + 8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251 + 82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E + C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC + 5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910 + 082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537 + BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0 + 81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB + B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048 + 5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5 + E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676 + 3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8 + 8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002 + 29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29 + 5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF + 077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF + 0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5 + 1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF + AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632 + 83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4 + E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384 + 8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72 + CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD + DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8 + 3FA68502A9830000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A0000032A4944415478DA + 6D937B4814411CC77FB3B7777A5E7276969AA4648A20A5592A4585FE654122BD + 0CAA3FE2841EA45946697591BD8DB27748A2BDA0A43FA2420C893252D2A244B4 + 7C24495986AFBC3BDDDBDB9DDDBDDDDB663714B366F9B2BB33DFCF777E3BB383 + E0DF66235A19342370912538D0CAB2825BF00A6DA4EF2D1133D5A8AA2AA029EF + 4126B3292B2E21BA70697A5262626A9C393422040D0FBAFCAD6F3BF187C68ED6 + 9F5F472E2992524FBCE2F400735884ED40E6BAE58539F6CCD0B9F323009111C5 + EF075191600C7BA0ABEBAB5AF7A071A4ADBEE71CE7C615849126032823B52D77 + EFBAEBF6BDEBAD164B20E941A092EBF89ED75050960C6ECC805B6060D8E984E7 + 379B9C2D8F3AB71353CD4440CC8ACCE49725D7F2626DB3AC60A028C2535092FF + 4A2FCD5E1A0F2E3C062E9E8171D1034303A3F0E24CF3A7910EF72A1230826813 + BDAFF87CEE85ACCD19269AA2C16030C0093273EDC372C8DE92FFD7EACEDDE902 + 06B3D0F1A41777DEED2D5015F5369A1335BBB6ACFA4056745C24A22903941636 + EBF044C38204BCE003FBEE62B0DAFBC1237A61B8C7A9B69DE979ECF3F836A1A4 + 65F15F4EDD2A880BB606A12B45AD93B02C2BE023D2604D79FB8F02B5F533B022 + 078C9B55BBCF7EEBC43F8424B4243DE19BA37C678CC962844A47B71E204F8212 + 09F1EBF783474E02BBB105BC1207DE711EFACA06BE8B7D520C8A8A0D6F70DCD9 + 951E343B1061598067A54EA8AEBAA4435A0826D22A3976B21406B31B80F76160 + FB3975E8E2E84785F12F460166E3E91D17361D8E5D1E45F332062C8BD07EC300 + D7CA4EC1BEA292BF16B177751D6893304D5E9979E0AD5265354FDBC694B4EC05 + 7599FB57844906093862D04CCEBB913AE4D9F01EBC3E1EBC22AF87635680F1FB + EC4FB95DC922DBD8A105A0008BF1444641DAA1A88C8800CE8F8123656AA59A1F + A740FF9A7AF22CE8B0208AC035F258A8911C20C3D5A9BF72D8CC79C197E3D7CE + CBB12D0D09106862D4A13F9F343133F70E63F18D740F7E818330E3D30FD31CA3 + D5986F5B68B55B532DE128923248269F0EF2DF05856FC58372AF52013C5412AF + EB7FA7516B34512232C2063A944E44C1C82C7B14CEEFF2B793929F92B16E2265 + EA71FE0D330BBCF031BDB9A60000000049454E44AE426082} + Name = 'PngImage15' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A0000031C4944415478DA + 6D536B481451143E779D5D5D37D95AD354523445905AB32C0A0DFD653F92252B + 8BFA130A3D40F385D1C3B09766A5652548D23B34FA1115624894A0F6502845CB + 079298A5F8CA75737677E6CECCCEA3BB532DAB75868F3B73EFF77DE7CCBDF720 + F8374C045BFC97F8AD3504F8191D0ECEC639B91E32D741407B13154501E4F5ED + AFD3EBD263E2220A37A5C49BCD1B62F481214BD1F4E49CDCDDD18F3FB4F7758F + 8FCC5C9504A98570F9C506FAE01053715A46526166565AE0CA552180C88A24CB + C04B02FCC476181818519A1BDA677A5A862E32365C473482C740A3D5ECCFCECF + A8C9CADF613418FCC80C02853C678EB4425E5502D8300D368E8669AB155EDE7C + 67FDF8A4FF002135FE35884A4E4B787DFA464EB469B9117C341AA2D78008329C + CF6D55CBB39406C11C4BC33C6F87A989597855FEFEF34C9F6D2B319841948E2A + 387639BB327D6FAA8ED2505056F066C18E363DAE05CBBE5C30E7BBE02767071A + 3BA0EFD930EEBF3F9CA748CA5D141A1ED454F5A8383D22260C511A1FA8287CAF + 8ABC037302ECC92E0263D618D879274C0F59959EF2A1A72EBB6B378ADF1CFBE5 + FC9DBC9800A33F2201D547BB3C06A228818B80E55C2A728A4E01B3AB0B689B43 + 19BCF0B51F7FE7E2D1FA94B8AF25B587A274062DD971173C2C1D560D448F5020 + 26B23A1E3D790EA62C6DE09C6761B46AE21B3F2A44A1F0E8156D25F70EA7F807 + F9212C72F0A2C20ACFEB6B3C62F788094E9496C12411B32E0C8E314699BA32FB + 49A2E575C857AF2D3B58B9FB44745238C58A183AAF890BFEFF5259A947CC082C + B893D0EF9C22DDE0BCAD884A8EFB1813375A5637A71525070B3E023084E02631 + 24136E88564D262DADE0E4DD621EB08383F97AC7B8D82BA59363EC731B205F83 + F66C6ADEC6E3E1A921BE8C8C55B1BB54FDD34418DBD642DE3955CCF13C30ED2C + E61A85127251AE7B5FE5E0659101D5B1DB23334D9B96FA721421AA22FC3BEB9F + CC4C27C6FC5BE101FC8012A2995FDC4CA15AA336D7B4C69865DC605881C2343E + 82CEA50AD96F9CC476E3497158AA03166E11EEDCFFBAD11D1481196961271548 + 995100D28B768991E7E45E52F273B236482079B7F32FB7E1BAF0E8F71C040000 + 000049454E44AE426082} + Name = 'PngImage16' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000019E4944415478DA + 63FCFFFF3F4341F1F9FF0C6402469801BEFE4A0C0B16DD60583CC71CABC21F3F + FF327CFFF90748FF6128ABBCC2A0A5CEC0B072C752E20C40D6FCE3D71F86BAFA + 1B0CEB963B31A85A241336005DF38FDF7F18DA5AEE3098997032CC5D3D07BF01 + D834FFFCF597A1B7EB3E612FE0D20CC253263C625092FFC5B0F1C06AEC06E0D3 + 0CE2CF99F68C4152EC0BC3AE931B310D983EC908A119AA11A409660008CC9FF9 + 9C4180F72DC3E14B3B500D00019021840048F3F7EF3F19CEDCDE8F6AC09F3F40 + DB7EFC024B82E81FDF816C280D11FFC5F0F9D337B03C08DF7C79126180A7B73C + 86E6CF9FBF43C460867DFB09D70C32ECD1A7F308036CEC44C18A976E9A82D7F9 + 7CFF8DC19A4186BCFE7D0D618089193FD896B5BB67311CDA309341504A87E1C9 + ED930CEF3FFD60F8F0F927C3FD671F1956AD59CDF0EC96105833C8BBEFFFDF44 + 18A0A3CB0976EAB6C30B182E1CDDCBA06768C8B073FD02B8CDF79F7E64E89C34 + 87E1EE456EB06610403140599519EC827D6796312447F833F072B130B0B0B2A1 + 387FF5D6430C37CF72C0F9700318191919F49D72C9CAD200FAC9B5C145016BDA + 0000000049454E44AE426082} + Name = 'PngImage17' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000015D4944415478DA + 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 + 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 + 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 + E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 + 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 + 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 + 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 + BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 + 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 + E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 + 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 + 00000049454E44AE426082} + Name = 'PngImage18' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001B04944415478DA + 63FCFFFF3F03258071D400064674018780D0A7823C7C09EB97CCDD8D4B535EC3 + C493AF1EDC305BB1603A2323BA66090111A9272F9F301CD9BE99119701110999 + FF616A189135FFF9F9430A9F4618B0F1F405FB1B6E0021CDD70CF8FF0B09B0D7 + 481C78D50AE2FF7295B1FBC82F7AF0C585F30C8C96EE5ED3E425E533618A1F3E + 7F385D4A5A79C3DA79937781F8C149B96E6627F7F4F8B23ED3DD226BC2F04840 + 96A19CE72DC3E7E387182EDEF8389911E49F1913DA192EBCE06778FBF727C3E3 + CF0C0C276614A2B860F98C690C9BAA5A1854F7F530282A4830DC7FF08261E657 + 318689B76F33820DC8A89806D70C026B1A43E19A65C46518C0F25F3F3048CE28 + 6050BFBC9A61DB7F198693AE390C535AF220068496F6C3355F7EFC9EE1E6BC34 + 782CC0E47F5EBFC060D7E5C170E8BD208301F73B06BE7F1FFD642E316C6604F9 + F1D9D3BB01CC4CCCE070F8FBEF2F4618FC7D723D22F3EF93C4FB37DE301C1296 + D9E8FBE68198BED87F4BFEBF1FED084619087CB4178BB974FFD3D42B8F7E7801 + 6D390A12DB28C4BA51558ECB8F2803D6F1B2C67CFEF5C728EEE7FF62A006701A + 98C0C0202ECBCDB00A00547CD715F016991D0000000049454E44AE426082} + Name = 'PngImage19' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001034944415478DA + 636498F123988181610D032A0861C8E058CB400460041AF07F8201AA60C10520 + 91C1C1489201604DC40114D7313234DCF84FB4561868D080BB8E71F3BEBBFF7D + 1C9550E4FFFCFDC7F0E7CF5F86DF60FC0F4C83F8DF7EFC66084FAF6738BF733A + 7603D6DEFBC710B2FB378A61732CFF307888FF061B7AEDEE4B86EAD6C9B80D60 + 9CF993015B803EF0FDCAF0EBF75F863B8FDEE036006403EB9CDF0CA40628D800 + 0F3B05B01F393BEE911C9E6003ECCDA4188E9CBBCFF0F70F3B03A9010A36A0AE + B307ACB8A9BC04C5005C9A91031425B52107283ECDC8018AD500429A41F8D1F3 + F7D80D8005283ECDBF81F8F99B4FD80D8005283100AB01B0002516000097A51A + 7A68BA98860000000049454E44AE426082} + Name = 'PngImage20' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001124944415478DA + 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 + 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC + 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 + 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 + 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC + E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC + 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 + CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 + 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} + Name = 'PngImage21' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001684944415478DA + 63FCFFFF3FC394C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F + 19ACFDF319CEED98866A806DD17E14C587FB1CC134B2F8AE761B86B9ABF632CC + 5BBA09D3007CE0D7EFBF609B4178C98683D80D40770136B0AED69461E59623B8 + 0D80391B04FE01E5FEFCF907B7D9B7FE04C3AA4A6386B53B8EE13700E692BD9D + 760CCEE587E03607359F66585A6AC0B069CF49FC06A0DB0CC2207E58FB598685 + 85BA0CDB0E9CC16DC0C15E0706FBE203605B37375A809D0D02209BA3BB2F30CC + C9D566D87DE41C6E0340CE46B7F9E7AF3F6076D2C42B0C53D2D4180E9FBE8C69 + 4046941B8363E94194105F5E6EC810D9791ECC9E99A5C9903EED3A437F920AC3 + 89F357310D480E7386DB08A2435ACF302C2ED687B8049A067266DD62E88A5364 + 387BF906A60171410E280107B3191DB446C9315CBA7E1BD380283F3B147F23DB + FC1BC9E07FFFFE335CB97907D380502F6B86D5DB8E129D13310C0009900A4006 + 00004B6D80F047EC10D30000000049454E44AE426082} + Name = 'PngImage22' + Background = clWindow + end> + Bitmap = {} + end + inherited LargeImages: TPngImageList [6] + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 + 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F + 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 + B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 + A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 + EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 + 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 + 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 + F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 + CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A + C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 + 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 + B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 + 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 + F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 + 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 + 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 + 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 + 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 + BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 + 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 + C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 + 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 + C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 + C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F + 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E + A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 + 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA + 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 + 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 + F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 + 682F0000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000032A4944415478DA + BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 + 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C + 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D + 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC + 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 + EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F + 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 + 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 + AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C + AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 + F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D + ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 + 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 + 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 + 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F + F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 + C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 + FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C + C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 + E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 + E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 + A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D + 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD + AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A + 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 + B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000022C4944415478DA + 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF + 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 + 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 + 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 + 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 + 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 + D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 + 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 + 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 + 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 + F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 + 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F + 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 + FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE + 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC + 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 + 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 + 02140B6805009C1383EFACA508270000000049454E44AE426082} + Name = 'PngImage3' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA + B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 + 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E + 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 + 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 + E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 + 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA + BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 + 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 + 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F + 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 + 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 + D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 + EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 + 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D + 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D + 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 + 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA + 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 + 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 + 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E + 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 + BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 + 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 + A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 + 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 + 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA + 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 + C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 + 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C + 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D + 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 + 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 + F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 + 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 + 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 + BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 + 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D + 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C + 4A0000000049454E44AE426082} + Name = 'PngImage4' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA + B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B + 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 + 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 + B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE + A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 + 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 + 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C + 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 + D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E + A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C + EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A + 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 + BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC + 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E + 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F + BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 + 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 + D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 + 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 + 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 + C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 + 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E + 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 + 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 + FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 + 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C + 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 + DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 + 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 + BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 + A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C + A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 + C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C + 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 + 00000049454E44AE426082} + Name = 'PngImage5' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000027F4944415478DA + 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 + 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 + F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 + 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D + 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F + E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 + 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 + 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA + 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B + C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 + F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF + 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F + C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 + 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D + 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 + C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 + 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 + 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB + 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 + 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 + FA0000000049454E44AE426082} + Name = 'PngImage6' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000037C4944415478DA + B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 + 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 + 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 + 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F + 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 + FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 + E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 + CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 + 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB + 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 + C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 + 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 + 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 + C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 + 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE + 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 + 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B + 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB + B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 + F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 + B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F + E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 + 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C + 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C + E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E + 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 + 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 + 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 + 000049454E44AE426082} + Name = 'PngImage7' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA + 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 + 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 + E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D + 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 + 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 + D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 + 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF + C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 + CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 + AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F + 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 + 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 + A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 + DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 + 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 + F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 + 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 + 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 + 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 + 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} + Name = 'PngImage8' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA + B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 + D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 + 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F + EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 + B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE + 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 + CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 + 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C + 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 + 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E + 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 + 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED + 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 + 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D + CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 + D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 + 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A + B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 + 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 + 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 + 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE + 426082} + Name = 'PngImage9' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000029E4944415478DA + 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 + 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 + F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 + 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 + C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 + 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD + D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA + 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 + CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 + 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 + 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 + 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B + E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC + DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 + 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 + E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 + EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 + AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 + 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 + 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B + 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 + 0000000049454E44AE426082} + Name = 'PngImage10' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA + ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 + F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 + F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF + CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B + 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D + 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD + 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 + A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE + 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 + F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 + 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF + A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C + D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 + 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 + 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F + EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E + 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 + 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 + DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C + A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA + F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 + 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E + 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC + BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D + 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 + 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 + F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 + 49454E44AE426082} + Name = 'PngImage11' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000003784944415478DA + B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 + AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A + BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 + 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A + 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 + 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 + 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 + E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 + 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 + 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A + B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 + FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 + 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 + DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 + 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 + 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC + 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 + FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 + 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 + 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F + 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B + 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 + D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA + 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F + 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 + EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 + 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F + 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 + 4E44AE426082} + Name = 'PngImage12' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA + BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 + 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 + 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C + 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 + A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F + 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 + E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA + 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F + 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE + 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A + B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 + 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 + 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 + 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 + 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F + 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 + B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE + AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 + E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 + 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA + 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD + E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 + E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 + 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 + 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 + 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C + 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 + 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE + 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 + 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C + 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 + 000049454E44AE426082} + Name = 'PngImage13' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA + AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 + 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 + A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 + 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 + CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 + 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 + B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E + 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 + 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 + 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 + 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F + 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D + F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D + AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 + 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E + C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 + 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 + CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A + 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 + 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 + D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D + D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA + 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 + C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 + 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 + D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 + 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 + 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 + 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE + 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 + B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 + 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 + 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 + 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 + 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 + 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 + 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB + 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 + 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF + 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 + F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 + F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 + 49454E44AE426082} + Name = 'PngImage14' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA + AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED + C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B + 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 + 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 + 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 + B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB + 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 + 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 + 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 + 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 + 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 + A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 + E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A + EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 + 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 + 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 + 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A + 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 + 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC + 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 + F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 + 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 + B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A + 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 + 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E + 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F + 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC + 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 + D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D + 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B + D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC + F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 + 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA + 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 + C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF + BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 + 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F + 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 + 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 + 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 + 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 + 88E7298D620000000049454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA + 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E + 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 + D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 + F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B + 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 + C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB + B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A + 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD + 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 + 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 + 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C + 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 + 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 + 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E + 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 + 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 + 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F + 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 + 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA + 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 + 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 + 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 + 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 + 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC + 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 + 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 + D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 + 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 + 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 + F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 + 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 + FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 + 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B + FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 + 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 + 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 + E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF + 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 + 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F + 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 + 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 + 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 + 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 + 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 + 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 + FE66E507F40000000049454E44AE426082} + Name = 'PngImage16' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA + 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 + F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 + 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 + F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC + AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 + 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 + ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA + A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 + E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 + 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 + 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 + 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 + BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 + C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 + E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 + 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF + 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF + 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B + C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 + 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 + C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B + 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 + 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B + 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 + A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 + 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 + EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 + DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 + 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F + 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D + F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D + 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 + 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 + A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 + E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 + 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 + 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A + 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 + 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 + 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 + AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 + 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB + 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 + 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C + 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 + 2F15D20000000049454E44AE426082} + Name = 'PngImage15' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000002814944415478DA + 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF + 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 + EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A + 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC + 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 + E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 + 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 + 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 + 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F + 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 + BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A + 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 + 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A + 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 + 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 + 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F + C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 + 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 + 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 + CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 + 5838D40000000049454E44AE426082} + Name = 'PngImage17' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000026D4944415478DA + B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 + 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 + ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C + F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB + 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB + 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 + E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A + 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D + 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 + 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B + 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 + 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 + D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 + C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C + 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 + 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F + 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 + CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 + 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 + 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} + Name = 'PngImage18' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F8000000097048597300004E2000004E2001167D99DE000004124944415478DA + ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 + 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 + 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A + 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 + 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB + A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 + 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 + 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 + 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 + E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B + 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F + BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 + 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD + 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A + 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 + D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 + 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 + 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 + BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C + 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 + E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D + B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 + F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 + D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 + D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB + 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 + D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 + 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 + BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 + 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF + 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC + 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A + 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} + Name = 'PngImage19' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000001B74944415478DA + B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 + BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 + 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 + 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 + F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B + 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 + C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D + 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 + 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C + B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 + D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 + 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 + 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE + F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E + 44AE426082} + Name = 'PngImage20' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD2520000018C4944415478DA + 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E + 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F + C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 + 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 + 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB + FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE + 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 + FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F + 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 + FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD + BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 + EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 + 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} + Name = 'PngImage21' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D + F80000000970485973000017120000171201679FD252000001BE4944415478DA + 63FCFFFF3F032D0123B2054BB79CA49A6DD13EE68C582D004A906CD8DFBFFF80 + F83F980601EBC07C86733BA6E1B6C0B6683F8A0187FB1C711A8EAC765BB315C3 + C275FB19E62DDD84DF02525CEE507A9081455D89E1C08C1D0CEF0FC6312CD978 + 90B005D87C802E06027B3BEC189C2B0E311CD97F0BCC7FB32F8661F996C394F9 + E0FF3F605803F11FA0EB41EC3FFFFE41E3E01F98BD7ADB51D27D400C00F9E2F1 + 8E70860DBB4E106701CCDBA480075B431936EF3D459C05F8520E3600D2B3A850 + 8F61EB81D3C45B802BA86096C3E4616AE7E7EB32EC387486763E989DA3CDB0E7 + E839DAF96046A626C3FE131768E783A969EA0C874E5FC26F4184A729387792E3 + 838929AA0CC7CE5EC16F41A89B09387792E3839E042586D317AFE3B720C8D988 + C1ADFA08591674C62A309CBB7213BF057E8E060C5EB5C7F01A06B27CC1913F70 + 7E820D0BD882B62839868BD76FE3B7C0DB4E0F5EAEC0CA1850D9032BF393275F + C1881F18BF394296E1CACD3BF82DF0B0D6C16938884E9B760D6BF0116D818BA5 + 164EC3411667CDB88133E888B2C0DE541D6CD8BFBF88621966E1BFFFFFB1061F + 322068818D912AB844A404E0B5A077CA428A0C8701980500619929EF09CFCE42 + 0000000049454E44AE426082} + Name = 'PngImage22' + Background = clWindow + end> + Bitmap = {} + end + inherited JvFormStorage: TJvFormStorage [7] + end + inherited dsDataTable: TDADataSource [8] + end + inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] + end + inherited StatusBarImages: TPngImageList [10] + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas new file mode 100644 index 00000000..100ab9f7 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas @@ -0,0 +1,174 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uEditorRecibosProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, Menus, DB, uDADataTable, JvAppStorage, + JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList, + PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, + TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, + JvNavigationPane, uViewGrid, pngimage, JvComponentBase, + JvExComCtrls, JvStatusBar, uViewBase, uViewBarraSeleccion, uViewGridBase, + uEditorGridBase, uCustomView, + + uBizRecibosProveedor, uIEditorRecibosProveedor, uRecibosProveedorController, + uViewRecibosProveedor, uDAInterfaces; + +type + + TfEditorRecibosProveedor = class(TfEditorGridBase, IEditorRecibosProveedor) + frViewRecibosProveedor1: TfrViewRecibosProveedor; + procedure FormShow(Sender: TObject); + private + FRecibosProveedor: IBizRecibosProveedor; + FController : IRecibosProveedorController; + protected + function GetRecibosProveedor: IBizRecibosProveedor; + procedure SetRecibosProveedor(const Value: IBizRecibosProveedor); + function GetController : IRecibosProveedorController; + procedure SetController (const Value : IRecibosProveedorController); + + procedure NuevoInterno; override; + procedure EliminarInterno; override; + procedure ModificarInterno; override; + procedure DuplicarInterno; override; + procedure ImprimirInterno; override; + procedure PrevisualizarInterno; override; + public + procedure PonerTitulos(const ATitulo: string = ''); override; + property RecibosProveedor: IBizRecibosProveedor read GetRecibosProveedor write SetRecibosProveedor; + property Controller : IRecibosProveedorController read GetController write SetController; + + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + + +implementation + +uses + uDataModuleRecibosProveedor, uDataModuleUsuarios; + +{$R *.dfm} + +{ +*************************** TfEditorRecibosProveedor *************************** +} +constructor TfEditorRecibosProveedor.Create(AOwner: TComponent); +begin + inherited; + FController := TRecibosProveedorController.Create; + ViewGrid := frViewRecibosProveedor1; // CreateView(TfrViewRecibosProveedor) as IViewRecibosProveedor; +end; + +destructor TfEditorRecibosProveedor.Destroy; +begin + FRecibosProveedor := NIL; + FController := NIL; + inherited; +end; + +procedure TfEditorRecibosProveedor.DuplicarInterno; +begin +// No se pueden duplicar recibos +end; + +procedure TfEditorRecibosProveedor.EliminarInterno; +begin +// +//No se pueden eliminar recibos +end; + +procedure TfEditorRecibosProveedor.FormShow(Sender: TObject); +begin + inherited; + + if not Assigned(ViewGrid) then + raise Exception.Create('No hay ninguna vista asignada'); + + if not Assigned(FRecibosProveedor) then + raise Exception.Create('No hay ningún objeto asignado'); + + FRecibosProveedor.DataTable.Active := True; + ViewGrid.GotoFirst; +end; + +function TfEditorRecibosProveedor.GetController: IRecibosProveedorController; +begin + Result := FController; +end; + +function TfEditorRecibosProveedor.GetRecibosProveedor: IBizRecibosProveedor; +begin + Result := FRecibosProveedor; +end; + +procedure TfEditorRecibosProveedor.ImprimirInterno; +begin + inherited; +end; + +procedure TfEditorRecibosProveedor.ModificarInterno; +begin + inherited; + FController.Ver(FRecibosProveedor); + RefrescarInterno; +end; + +procedure TfEditorRecibosProveedor.NuevoInterno; +begin +// inherited; +//No se pueden añadir recibos nuevos +end; + +procedure TfEditorRecibosProveedor.PonerTitulos(const ATitulo: string); +var + FTitulo : String; +begin + FTitulo := 'Lista de recibos de proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE; + inherited PonerTitulos(FTitulo); +end; + +procedure TfEditorRecibosProveedor.PrevisualizarInterno; +begin + inherited; +end; + +procedure TfEditorRecibosProveedor.SetController(const Value: IRecibosProveedorController); +begin + FController := Value; +end; + +procedure TfEditorRecibosProveedor.SetRecibosProveedor(const Value: IBizRecibosProveedor); +begin + FRecibosProveedor := Value; + dsDataTable.DataTable := FRecibosProveedor.DataTable; + if Assigned(ViewGrid) then + (ViewGrid as IViewRecibosProveedor).Recibos := FRecibosProveedor; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uROBinaryHelpers.dcu b/Source/Modulos/Recibos de proveedor/Views/uROBinaryHelpers.dcu new file mode 100644 index 00000000..8ebcc4f3 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROBinaryHelpers.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROCipher.dcu b/Source/Modulos/Recibos de proveedor/Views/uROCipher.dcu new file mode 100644 index 00000000..4345d77a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROCipher.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROCiphers.dcu b/Source/Modulos/Recibos de proveedor/Views/uROCiphers.dcu new file mode 100644 index 00000000..69ac4395 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROCiphers.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROClasses.dcu b/Source/Modulos/Recibos de proveedor/Views/uROClasses.dcu new file mode 100644 index 00000000..36bb288e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROClasses.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROClient.dcu b/Source/Modulos/Recibos de proveedor/Views/uROClient.dcu new file mode 100644 index 00000000..433aa086 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROClient.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROClientIntf.dcu b/Source/Modulos/Recibos de proveedor/Views/uROClientIntf.dcu new file mode 100644 index 00000000..7d7b9f4c Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROClientIntf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROCompression.dcu b/Source/Modulos/Recibos de proveedor/Views/uROCompression.dcu new file mode 100644 index 00000000..989ac236 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROCompression.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uRODECConst.dcu b/Source/Modulos/Recibos de proveedor/Views/uRODECConst.dcu new file mode 100644 index 00000000..16c580cd Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uRODECConst.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uRODECUtil.dcu b/Source/Modulos/Recibos de proveedor/Views/uRODECUtil.dcu new file mode 100644 index 00000000..67c42d51 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uRODECUtil.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uRODL.dcu b/Source/Modulos/Recibos de proveedor/Views/uRODL.dcu new file mode 100644 index 00000000..1985e447 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uRODL.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uRODLToXML.dcu b/Source/Modulos/Recibos de proveedor/Views/uRODLToXML.dcu new file mode 100644 index 00000000..2ee02a17 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uRODLToXML.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uRODynamicRequest.dcu b/Source/Modulos/Recibos de proveedor/Views/uRODynamicRequest.dcu new file mode 100644 index 00000000..de8efec8 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uRODynamicRequest.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROEncryption.dcu b/Source/Modulos/Recibos de proveedor/Views/uROEncryption.dcu new file mode 100644 index 00000000..4da25c79 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROEncryption.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROEventRepository.dcu b/Source/Modulos/Recibos de proveedor/Views/uROEventRepository.dcu new file mode 100644 index 00000000..8bdd6f52 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROEventRepository.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROHTTPTools.dcu b/Source/Modulos/Recibos de proveedor/Views/uROHTTPTools.dcu new file mode 100644 index 00000000..9c52afd1 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROHTTPTools.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROHash.dcu b/Source/Modulos/Recibos de proveedor/Views/uROHash.dcu new file mode 100644 index 00000000..9db99d65 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROHash.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROMSXML2_TLB.dcu b/Source/Modulos/Recibos de proveedor/Views/uROMSXML2_TLB.dcu new file mode 100644 index 00000000..56778db3 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROMSXML2_TLB.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROMSXMLImpl.dcu b/Source/Modulos/Recibos de proveedor/Views/uROMSXMLImpl.dcu new file mode 100644 index 00000000..5cff6f12 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROMSXMLImpl.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uRORemoteService.dcu b/Source/Modulos/Recibos de proveedor/Views/uRORemoteService.dcu new file mode 100644 index 00000000..96315f29 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uRORemoteService.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uRORes.dcu b/Source/Modulos/Recibos de proveedor/Views/uRORes.dcu new file mode 100644 index 00000000..b78fc9c7 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uRORes.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROSerializer.dcu b/Source/Modulos/Recibos de proveedor/Views/uROSerializer.dcu new file mode 100644 index 00000000..0b400209 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROSerializer.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROServerIntf.dcu b/Source/Modulos/Recibos de proveedor/Views/uROServerIntf.dcu new file mode 100644 index 00000000..3a29f0b0 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROServerIntf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROSessions.dcu b/Source/Modulos/Recibos de proveedor/Views/uROSessions.dcu new file mode 100644 index 00000000..db07a355 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROSessions.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROTypes.dcu b/Source/Modulos/Recibos de proveedor/Views/uROTypes.dcu new file mode 100644 index 00000000..8dd79ff7 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROTypes.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROXMLIntf.dcu b/Source/Modulos/Recibos de proveedor/Views/uROXMLIntf.dcu new file mode 100644 index 00000000..1daf5da0 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROXMLIntf.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uROZLib.dcu b/Source/Modulos/Recibos de proveedor/Views/uROZLib.dcu new file mode 100644 index 00000000..4fcfc1a1 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uROZLib.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uRecibosProveedorViewRegister.dcu b/Source/Modulos/Recibos de proveedor/Views/uRecibosProveedorViewRegister.dcu new file mode 100644 index 00000000..fd07d901 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uRecibosProveedorViewRegister.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uRecibosProveedorViewRegister.pas b/Source/Modulos/Recibos de proveedor/Views/uRecibosProveedorViewRegister.pas new file mode 100644 index 00000000..439f82d0 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uRecibosProveedorViewRegister.pas @@ -0,0 +1,55 @@ +{ +=============================================================================== + Copyright (©) 2007. Rodax Software. +=============================================================================== + Los contenidos de este fichero son propiedad de Rodax Software titular del + copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, + en su totalidad o en parte, con el permiso escrito de Rodax Software, o de + acuerdo con los términos y condiciones establecidas en el acuerdo/contrato + bajo el que se suministra. + ----------------------------------------------------------------------------- + Web: www.rodax-software.com +=============================================================================== + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: +=============================================================================== + Modificaciones: + + Fecha Comentarios + --------------------------------------------------------------------------- +=============================================================================== +} + +unit uRecibosProveedorViewRegister; + +interface + +procedure RegisterViews; +procedure UnregisterViews; + +implementation + +uses + uEditorRegistryUtils, uEditorRecibosProveedor, uEditorReciboProveedor, uEditorElegirRecibosProveedor, + uEditorReciboProveedorReport, uEditorFechaPagoProveedor; + +procedure RegisterViews; +begin + EditorRegistry.RegisterClass(TfEditorFechaPagoProveedor, 'EditorFechaPagoProveedor'); + EditorRegistry.RegisterClass(TfEditorRecibosProveedor, 'EditorRecibosProveedor'); + EditorRegistry.RegisterClass(TfEditorReciboProveedor, 'EditorReciboProveedor'); + EditorRegistry.RegisterClass(TfEditorElegirRecibosProveedor, 'EditorElegirRecibosProveedor'); + EditorRegistry.RegisterClass(TfEditorReciboProveedorPreview, 'EditorRecibosProveedorPreview'); +end; + +procedure UnregisterViews; +begin + EditorRegistry.UnRegisterClass(TfEditorFechaPagoProveedor); + EditorRegistry.UnRegisterClass(TfEditorRecibosProveedor); + EditorRegistry.UnRegisterClass(TfEditorReciboProveedor); + EditorRegistry.UnRegisterClass(TfEditorReciboProveedorPreview); + EditorRegistry.UnRegisterClass(TfEditorElegirRecibosProveedor); +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dcu new file mode 100644 index 00000000..a3a4b764 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm new file mode 100644 index 00000000..d650bbb0 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm @@ -0,0 +1,316 @@ +inherited frViewPagosProveedor: TfrViewPagosProveedor + Width = 664 + Height = 355 + ExplicitWidth = 664 + ExplicitHeight = 355 + object dxLayoutControl1: TdxLayoutControl + Left = 0 + Top = 0 + Width = 664 + Height = 355 + Margins.Left = 0 + Margins.Top = 0 + Margins.Right = 0 + Margins.Bottom = 0 + Align = alClient + ParentBackground = True + TabOrder = 0 + AutoContentSizes = [acsWidth, acsHeight] + LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitWidth = 392 + ExplicitHeight = 189 + object ListaPagosProveedor: TcxGrid + Left = 22 + Top = 61 + Width = 252 + Height = 105 + TabOrder = 1 + LookAndFeel.Kind = lfStandard + LookAndFeel.NativeStyle = True + object ListaPagosProveedorDBTableView1: TcxGridDBTableView + NavigatorButtons.ConfirmDelete = False + OnCellDblClick = ListaPagosProveedorDBTableView1CellDblClick + DataController.DataSource = DADataSource + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnGrouping = False + OptionsCustomize.ColumnHidingOnGrouping = False + OptionsCustomize.ColumnMoving = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsData.Inserting = False + OptionsSelection.CellSelect = False + OptionsSelection.HideFocusRectOnExit = False + OptionsSelection.InvertSelect = False + OptionsSelection.UnselectFocusedRecordOnExit = False + OptionsView.CellEndEllipsis = True + OptionsView.FocusRect = False + OptionsView.ColumnAutoWidth = True + OptionsView.GroupByBox = False + object ListaPagosProveedorDBTableView1RecID: TcxGridDBColumn + DataBinding.FieldName = 'RecID' + Visible = False + end + object ListaPagosProveedorDBTableView1ID: TcxGridDBColumn + DataBinding.FieldName = 'ID' + Visible = False + end + object ListaPagosProveedorDBTableView1ID_RECIBO: TcxGridDBColumn + DataBinding.FieldName = 'ID_RECIBO' + Visible = False + end + object ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn + DataBinding.FieldName = 'TIPO' + PropertiesClassName = 'TcxImageComboBoxProperties' + Properties.Items = < + item + Description = 'Cobro' + ImageIndex = 0 + Value = 'Pago' + end + item + Description = 'Devoluci'#243'n' + Value = 'Devoluci'#243'n' + end> + Options.Focusing = False + IsCaptionAssigned = True + end + object ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn + Caption = 'Fecha' + DataBinding.FieldName = 'FECHA_PAGO' + PropertiesClassName = 'TcxDateEditProperties' + Options.Focusing = False + Width = 100 + end + object ListaPagosProveedorDBTableView1TITULAR: TcxGridDBColumn + DataBinding.FieldName = 'TITULAR' + Visible = False + end + object ListaPagosProveedorDBTableView1ENTIDAD: TcxGridDBColumn + DataBinding.FieldName = 'ENTIDAD' + Visible = False + end + object ListaPagosProveedorDBTableView1SUCURSAL: TcxGridDBColumn + DataBinding.FieldName = 'SUCURSAL' + Visible = False + end + object ListaPagosProveedorDBTableView1DC: TcxGridDBColumn + DataBinding.FieldName = 'DC' + Visible = False + end + object ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn + DataBinding.FieldName = 'CUENTA' + Visible = False + end + object ListaPagosProveedorDBTableView1FECHA_ALTA: TcxGridDBColumn + DataBinding.FieldName = 'FECHA_ALTA' + Visible = False + end + object ListaPagosProveedorDBTableView1FECHA_MODIFICACION: TcxGridDBColumn + DataBinding.FieldName = 'FECHA_MODIFICACION' + Visible = False + end + object ListaPagosProveedorDBTableView1USUARIO: TcxGridDBColumn + DataBinding.FieldName = 'USUARIO' + Visible = False + end + end + object ListaPagosProveedorLevel1: TcxGridLevel + GridView = ListaPagosProveedorDBTableView1 + end + end + object ToolBar1: TToolBar + Left = 22 + Top = 30 + Width = 622 + Height = 25 + ButtonWidth = 70 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Flat = False + Images = ContenidoImageList + List = True + ParentShowHint = False + ShowCaptions = True + ShowHint = True + TabOrder = 0 + Transparent = True + object ToolButton1: TToolButton + Left = 0 + Top = 2 + Action = actAnadir + AutoSize = True + end + object ToolButton4: TToolButton + Left = 62 + Top = 2 + Action = actModificar + AutoSize = True + end + object ToolButton5: TToolButton + Left = 136 + Top = 2 + Width = 8 + Caption = 'ToolButton5' + ImageIndex = 2 + Style = tbsSeparator + end + object ToolButton2: TToolButton + Left = 144 + Top = 2 + Action = actEliminar + AutoSize = True + end + end + object dxLayoutControl1Group_Root: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group1: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'Cobros y devoluciones del recibo' + object dxLayoutControl1Item3: TdxLayoutItem + ShowCaption = False + Control = ToolBar1 + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item1: TdxLayoutItem + AutoAligns = [aaHorizontal] + AlignVert = avClient + Control = ListaPagosProveedor + ControlOptions.ShowBorder = False + end + end + end + end + object DADataSource: TDADataSource + Left = 8 + Top = 8 + end + object ActionListContenido: TActionList + Images = ContenidoImageList + Left = 8 + Top = 40 + object actAnadir: TAction + Category = 'Operaciones' + Caption = 'A'#241'adir' + ImageIndex = 0 + ShortCut = 45 + end + object actModificar: TAction + Category = 'Operaciones' + Caption = 'Modificar' + ImageIndex = 2 + end + object actEliminar: TAction + Category = 'Operaciones' + Caption = 'Eliminar' + ImageIndex = 1 + ShortCut = 16430 + end + end + object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList + Left = 320 + Top = 248 + object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel + GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET + GroupOptions.CaptionOptions.Font.Color = clWindowText + GroupOptions.CaptionOptions.Font.Height = -11 + GroupOptions.CaptionOptions.Font.Name = 'Tahoma' + GroupOptions.CaptionOptions.Font.Style = [fsBold] + GroupOptions.CaptionOptions.TextColor = clHighlight + GroupOptions.CaptionOptions.UseDefaultFont = False + end + end + object ContenidoImageList: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000F84944415478DA + 63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA + 6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4 + 0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F + FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF + 63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911 + BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4 + 0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B + 39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945 + 4E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA + A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 + 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 + 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F + 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 + 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 + 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA + 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E + 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 + E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 + 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 + 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 + 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB + 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 + 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 + E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 + D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 + 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 + A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E + AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 + 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 + 5538F0EAB25B380000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000015D4944415478DA + 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 + 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 + 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 + E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 + 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 + 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 + 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 + BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 + 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 + E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 + 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 + 00000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001124944415478DA + 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 + 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC + 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 + 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 + 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC + E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC + 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 + CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 + 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} + Name = 'PngImage3' + Background = clWindow + end> + Left = 8 + Top = 72 + Bitmap = {} + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas new file mode 100644 index 00000000..60fa3c63 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas @@ -0,0 +1,99 @@ +unit uViewPagosProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewBase, DB, uDADataTable, dxLayoutControl, + cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, + cxCalendar, cxContainer, cxEdit, cxTextEdit, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxDBData, cxSpinEdit, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxGridCustomView, cxGrid, uBizPagosProveedor, ActnList, TB2Item, + TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList, + PngImageList, ComCtrls, ToolWin; + +type + IViewPagosProveedor = interface(IViewBase) + ['{B75503B3-C6D2-453B-990C-5C7AC775F4D0}'] + function GetPagos: IBizPagosProveedor; + procedure SetPagos(const Value: IBizPagosProveedor); + property Pagos: IBizPagosProveedor read GetPagos write SetPagos; + end; + + + TfrViewPagosProveedor = class(TfrViewBase, IViewPagosProveedor) + DADataSource: TDADataSource; + dxLayoutControl1Group_Root: TdxLayoutGroup; + dxLayoutControl1: TdxLayoutControl; + dxLayoutControl1Group1: TdxLayoutGroup; + dxLayoutControl1Item1: TdxLayoutItem; + ListaPagosProveedor: TcxGrid; + ListaPagosProveedorDBTableView1: TcxGridDBTableView; + ListaPagosProveedorLevel1: TcxGridLevel; + ListaPagosProveedorDBTableView1RecID: TcxGridDBColumn; + ListaPagosProveedorDBTableView1ID: TcxGridDBColumn; + ListaPagosProveedorDBTableView1ID_RECIBO: TcxGridDBColumn; + ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn; + ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn; + ListaPagosProveedorDBTableView1TITULAR: TcxGridDBColumn; + ListaPagosProveedorDBTableView1ENTIDAD: TcxGridDBColumn; + ListaPagosProveedorDBTableView1SUCURSAL: TcxGridDBColumn; + ListaPagosProveedorDBTableView1DC: TcxGridDBColumn; + ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn; + ListaPagosProveedorDBTableView1FECHA_ALTA: TcxGridDBColumn; + ListaPagosProveedorDBTableView1FECHA_MODIFICACION: TcxGridDBColumn; + ListaPagosProveedorDBTableView1USUARIO: TcxGridDBColumn; + ActionListContenido: TActionList; + actAnadir: TAction; + actEliminar: TAction; + actModificar: TAction; + dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; + dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; + dxLayoutControl1Item3: TdxLayoutItem; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton2: TToolButton; + ContenidoImageList: TPngImageList; + procedure ListaPagosProveedorDBTableView1CellDblClick( + Sender: TcxCustomGridTableView; + ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; + AShift: TShiftState; var AHandled: Boolean); + private + FPagos : IBizPagosProveedor; + function GetPagos: IBizPagosProveedor; + procedure SetPagos(const Value: IBizPagosProveedor); + public + property Pagos: IBizPagosProveedor read GetPagos write SetPagos; + end; + +implementation +{$R *.dfm} + +{ TfrViewPagosProveedor } + +function TfrViewPagosProveedor.GetPagos: IBizPagosProveedor; +begin + Result := FPagos; +end; + +procedure TfrViewPagosProveedor.ListaPagosProveedorDBTableView1CellDblClick( + Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; + AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + inherited; + actModificar.Execute; +end; + +procedure TfrViewPagosProveedor.SetPagos(const Value: IBizPagosProveedor); +begin + FPagos := Value; + if Assigned(FPagos) then + DADataSource.DataTable := FPagos.DataTable + else + DADataSource.DataTable := NIL; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dcu b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dcu new file mode 100644 index 00000000..e0d30298 Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm new file mode 100644 index 00000000..6399603b --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm @@ -0,0 +1,129 @@ +inherited frViewReciboProvImportes: TfrViewReciboProvImportes + Width = 451 + Height = 100 + Align = alBottom + ExplicitWidth = 451 + ExplicitHeight = 100 + object dxLayoutControl1: TdxLayoutControl + AlignWithMargins = True + Left = 0 + Top = 0 + Width = 451 + Height = 217 + Margins.Left = 0 + Margins.Top = 0 + Margins.Right = 0 + Margins.Bottom = 0 + Align = alTop + ParentBackground = True + TabOrder = 0 + AutoContentSizes = [acsWidth, acsHeight] + object eImporte: TcxDBCurrencyEdit + Left = 93 + Top = 28 + AutoSize = False + DataBinding.DataField = 'IMPORTE' + Properties.Alignment.Horz = taRightJustify + Properties.ReadOnly = False + Properties.UseLeftAlignmentOnEditing = False + Properties.UseThousandSeparator = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.TextColor = clWindowText + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Height = 21 + Width = 150 + end + object eOtrosGastos: TcxDBCurrencyEdit + Left = 93 + Top = 55 + AutoSize = False + DataBinding.DataField = 'OTROS_GASTOS' + Properties.Alignment.Horz = taRightJustify + Properties.ReadOnly = False + Properties.UseLeftAlignmentOnEditing = False + Properties.UseThousandSeparator = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clWindow + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.TextColor = clWindowText + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Height = 21 + Width = 183 + end + object eImporteTotalRecibo: TcxCurrencyEdit + Left = 354 + Top = 28 + Enabled = False + Properties.Alignment.Horz = taRightJustify + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.TextStyle = [fsBold] + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 2 + Width = 183 + end + object dxLayoutControl1Group_Root: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group1: TdxLayoutGroup + Caption = 'Importes recibo' + LayoutDirection = ldHorizontal + object dxLayoutControl1Group3: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Item1: TdxLayoutItem + Caption = 'Importe:' + Control = eImporte + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item2: TdxLayoutItem + Caption = 'Otros gastos:' + Control = eOtrosGastos + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Item3: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Importe total:' + Control = eImporteTotalRecibo + ControlOptions.ShowBorder = False + end + end + end + object dxLayoutControl1Group4: TdxLayoutGroup + end + end + object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList + Left = 40 + Top = 8 + object LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel + ItemOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET + ItemOptions.CaptionOptions.Font.Color = clWindowText + ItemOptions.CaptionOptions.Font.Height = -12 + ItemOptions.CaptionOptions.Font.Name = 'Tahoma' + ItemOptions.CaptionOptions.Font.Style = [fsBold] + ItemOptions.CaptionOptions.UseDefaultFont = False + end + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas new file mode 100644 index 00000000..5404dbdc --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas @@ -0,0 +1,37 @@ +unit uViewReciboProvImportes; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics, + cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, + cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, + ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, + cxDBLookupComboBox, cxCheckBox; + +type + TfrViewReciboProvImportes = class(TfrViewBase) + dxLayoutControl1Group_Root: TdxLayoutGroup; + dxLayoutControl1: TdxLayoutControl; + dxLayoutControl1Group1: TdxLayoutGroup; + dxLayoutControl1Group4: TdxLayoutGroup; + dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; + LookAndFeelIMPORTE_TOTAL: TdxLayoutStandardLookAndFeel; + dxLayoutControl1Item1: TdxLayoutItem; + eImporte: TcxDBCurrencyEdit; + dxLayoutControl1Item2: TdxLayoutItem; + eOtrosGastos: TcxDBCurrencyEdit; + dxLayoutControl1Item3: TdxLayoutItem; + eImporteTotalRecibo: TcxCurrencyEdit; + dxLayoutControl1Group3: TdxLayoutGroup; + public + { Public declarations } + end; + + +implementation + +{$R *.dfm} + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dcu b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dcu new file mode 100644 index 00000000..1d24aa6a Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm new file mode 100644 index 00000000..2437c4b4 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm @@ -0,0 +1,659 @@ +inherited frViewReciboProveedor: TfrViewReciboProveedor + Width = 618 + Height = 342 + ExplicitWidth = 618 + ExplicitHeight = 342 + object dxLayoutControl1: TdxLayoutControl + Left = 0 + Top = 0 + Width = 618 + Height = 342 + Align = alClient + ParentBackground = True + TabOrder = 0 + AutoContentSizes = [acsWidth, acsHeight] + LookAndFeel = dxLayoutOfficeLookAndFeel1 + DesignSize = ( + 618 + 342) + object eReferencia: TcxDBTextEdit + Left = 136 + Top = 30 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REFERENCIA' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Width = 50 + end + object eSituacion: TcxDBTextEdit + Left = 136 + Top = 138 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'SITUACION' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 4 + Width = 216 + end + object edtFechaVencimiento: TcxDBDateEdit + Left = 136 + Top = 111 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FECHA_VENCIMIENTO' + DataBinding.DataSource = DADataSource + Properties.ImmediatePost = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.Shadow = False + Style.ButtonStyle = bts3D + Style.ButtonTransparency = ebtNone + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 3 + Width = 216 + end + object memObservaciones: TcxDBMemo + Left = 22 + Top = 267 + Anchors = [akLeft, akTop, akRight, akBottom] + DataBinding.DataField = 'OBSERVACIONES' + DataBinding.DataSource = DADataSource + Properties.ScrollBars = ssVertical + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 7 + Height = 49 + Width = 274 + end + object eFechaEmision: TcxDBTextEdit + Left = 439 + Top = 57 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FECHA_FACTURA' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 9 + Width = 20 + end + object eFormaPago: TcxDBTextEdit + Left = 439 + Top = 84 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FORMA_PAGO_FACTURA' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 10 + Width = 42 + end + object eImporteTotal: TcxDBCurrencyEdit + Left = 439 + Top = 111 + AutoSize = False + DataBinding.DataField = 'IMPORTE_FACTURA' + DataBinding.DataSource = DADataSource + Enabled = False + ParentFont = False + Properties.Alignment.Horz = taRightJustify + Properties.ReadOnly = True + Properties.UseLeftAlignmentOnEditing = False + Properties.UseThousandSeparator = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.Font.Charset = DEFAULT_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -11 + Style.Font.Name = 'Tahoma' + Style.Font.Style = [fsBold] + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.TextColor = clWindowText + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 11 + Height = 21 + Width = 182 + end + object eNombreCliente: TcxDBTextEdit + Left = 439 + Top = 194 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'NOMBRE_PROVEEDOR' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 13 + Width = 171 + end + object eNifCif: TcxDBTextEdit + Left = 439 + Top = 167 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'NIF_CIF_PROVEEDOR' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 12 + Width = 147 + end + object eEntidad: TcxDBTextEdit + Left = 439 + Top = 221 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'ENTIDAD_PROVEEDOR' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 14 + Width = 90 + end + object eSucursal: TcxDBTextEdit + Left = 514 + Top = 221 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'SUCURSAL_PROVEEDOR' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 15 + Width = 75 + end + object eDC: TcxDBTextEdit + Left = 563 + Top = 221 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'DC_PROVEEDOR' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 16 + Width = 33 + end + object eCuenta: TcxDBTextEdit + Left = 439 + Top = 248 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'CUENTA_PROVEEDOR' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 17 + Width = 83 + end + object eRemesa: TcxDBTextEdit + Left = 136 + Top = 165 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 5 + Width = 113 + end + object edtFechaEmision: TcxDBDateEdit + Left = 136 + Top = 84 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FECHA_VENCIMIENTO' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ImmediatePost = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.Shadow = False + Style.ButtonStyle = bts3D + Style.ButtonTransparency = ebtNone + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 2 + Width = 668 + end + object eReferenciaProveedor: TcxDBTextEdit + Left = 136 + Top = 57 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REFERENCIA_PROVEEDOR' + DataBinding.DataSource = DADataSource + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Width = 287 + end + object rReferenciaFacturaProv: TcxDBTextEdit + Left = 439 + Top = 30 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REFERENCIA_FACTURA_PROV' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 8 + Width = 157 + end + object rRefReciboCompensado: TcxDBTextEdit + Left = 136 + Top = 216 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 6 + Width = 216 + end + object dxLayoutControl1Group_Root: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Group2: TdxLayoutGroup + AutoAligns = [aaVertical] + AlignHorz = ahClient + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group1: TdxLayoutGroup + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Datos del recibo' + object dxLayoutControl1Item1: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Referencia:' + Control = eReferencia + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item20: TdxLayoutItem + Caption = 'Referencia proveedor:' + Visible = False + Control = eReferenciaProveedor + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item19: TdxLayoutItem + Caption = 'Fecha emisi'#243'n:' + Control = edtFechaEmision + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item3: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Fecha vencimiento:' + Control = edtFechaVencimiento + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item2: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Situaci'#243'n:' + Control = eSituacion + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item16: TdxLayoutItem + Caption = 'Ref. remesa:' + Control = eRemesa + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group9: TdxLayoutGroup + Caption = 'Compensado en recibo' + object dxLayoutControl1Item4: TdxLayoutItem + Caption = 'Ref. recibo:' + Control = rRefReciboCompensado + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group7: TdxLayoutGroup + Caption = 'Observaciones' + object dxLayoutControl1Item5: TdxLayoutItem + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'Observaciones:' + ShowCaption = False + Control = memObservaciones + ControlOptions.ShowBorder = False + end + end + end + object dxLayoutControl1Group8: TdxLayoutGroup + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'New Group' + ShowCaption = False + ShowBorder = False + object dxLayoutControl1Group5: TdxLayoutGroup + Caption = 'Datos de la factura' + object dxLayoutControl1Item21: TdxLayoutItem + Caption = 'Ref. factura prov.:' + Control = rReferenciaFacturaProv + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item7: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Fecha emisi'#243'n:' + Control = eFechaEmision + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item8: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Forma pago:' + Control = eFormaPago + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item9: TdxLayoutItem + Caption = 'Total factura:' + Control = eImporteTotal + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group6: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'Datos del proveedor' + Offsets.Top = 5 + object dxLayoutControl1Item11: TdxLayoutItem + Caption = 'NIF/CIF:' + Control = eNifCif + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item10: TdxLayoutItem + Caption = 'Nombre:' + Control = eNombreCliente + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Group4: TdxLayoutGroup + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group11: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item12: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Entidad:' + Control = eEntidad + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item13: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Sucursal:' + Control = eSucursal + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item14: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + Caption = 'DC:' + Control = eDC + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Item15: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'C'#243'd. cuenta:' + Control = eCuenta + ControlOptions.ShowBorder = False + end + end + end + end + end + end + object DADataSource: TDADataSource + Left = 56 + Top = 16 + end + object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList + Left = 24 + Top = 16 + object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel + GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET + GroupOptions.CaptionOptions.Font.Color = clWindowText + GroupOptions.CaptionOptions.Font.Height = -11 + GroupOptions.CaptionOptions.Font.Name = 'Tahoma' + GroupOptions.CaptionOptions.Font.Style = [fsBold] + GroupOptions.CaptionOptions.TextColor = clHighlight + GroupOptions.CaptionOptions.UseDefaultFont = False + end + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas new file mode 100644 index 00000000..c73207a7 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas @@ -0,0 +1,102 @@ +unit uViewReciboProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl, + cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, + cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls; + +type + IViewReciboProveedor = interface(IViewBase) + ['{3EDDAF2C-2A99-43AE-8DBB-3AC300660D94}'] + function GetRecibo: IBizRecibosProveedor; + procedure SetRecibo(const Value: IBizRecibosProveedor); + property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo; + end; + + + TfrViewReciboProveedor = class(TfrViewBase, IViewReciboProveedor) + DADataSource: TDADataSource; + dxLayoutControl1Group_Root: TdxLayoutGroup; + dxLayoutControl1: TdxLayoutControl; + dxLayoutControl1Item1: TdxLayoutItem; + eReferencia: TcxDBTextEdit; + dxLayoutControl1Item2: TdxLayoutItem; + eSituacion: TcxDBTextEdit; + dxLayoutControl1Item3: TdxLayoutItem; + edtFechaVencimiento: TcxDBDateEdit; + dxLayoutControl1Item5: TdxLayoutItem; + memObservaciones: TcxDBMemo; + dxLayoutControl1Group1: TdxLayoutGroup; + dxLayoutControl1Item7: TdxLayoutItem; + eFechaEmision: TcxDBTextEdit; + dxLayoutControl1Item8: TdxLayoutItem; + eFormaPago: TcxDBTextEdit; + dxLayoutControl1Item9: TdxLayoutItem; + eImporteTotal: TcxDBCurrencyEdit; + dxLayoutControl1Group5: TdxLayoutGroup; + dxLayoutControl1Item10: TdxLayoutItem; + eNombreCliente: TcxDBTextEdit; + dxLayoutControl1Item11: TdxLayoutItem; + eNifCif: TcxDBTextEdit; + dxLayoutControl1Item12: TdxLayoutItem; + eEntidad: TcxDBTextEdit; + dxLayoutControl1Item13: TdxLayoutItem; + eSucursal: TcxDBTextEdit; + dxLayoutControl1Item14: TdxLayoutItem; + eDC: TcxDBTextEdit; + dxLayoutControl1Item15: TdxLayoutItem; + eCuenta: TcxDBTextEdit; + dxLayoutControl1Group6: TdxLayoutGroup; + dxLayoutControl1Group8: TdxLayoutGroup; + dxLayoutControl1Item16: TdxLayoutItem; + eRemesa: TcxDBTextEdit; + dxLayoutControl1Group4: TdxLayoutGroup; + dxLayoutControl1Group2: TdxLayoutGroup; + dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; + dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; + dxLayoutControl1Group7: TdxLayoutGroup; + dxLayoutControl1Group9: TdxLayoutGroup; + dxLayoutControl1Group11: TdxLayoutGroup; + dxLayoutControl1Item19: TdxLayoutItem; + edtFechaEmision: TcxDBDateEdit; + dxLayoutControl1Item20: TdxLayoutItem; + eReferenciaProveedor: TcxDBTextEdit; + dxLayoutControl1Item21: TdxLayoutItem; + rReferenciaFacturaProv: TcxDBTextEdit; + dxLayoutControl1Item4: TdxLayoutItem; + rRefReciboCompensado: TcxDBTextEdit; + private + FRecibo : IBizRecibosProveedor; + function GetRecibo: IBizRecibosProveedor; + procedure SetRecibo(const Value: IBizRecibosProveedor); + public + property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo; + end; + +var + frViewReciboProveedor: TfrViewReciboProveedor; + +implementation + +{$R *.dfm} + +{ TfrViewReciboProveedor } + +function TfrViewReciboProveedor.GetRecibo: IBizRecibosProveedor; +begin + Result := FRecibo; +end; + +procedure TfrViewReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor); +begin + FRecibo := Value; + if Assigned(FRecibo) then + DADataSource.DataTable := FRecibo.DataTable + else + DADataSource.DataTable := NIL; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dcu b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dcu new file mode 100644 index 00000000..558f5f3e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dfm new file mode 100644 index 00000000..98f73a1b --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.dfm @@ -0,0 +1,237 @@ +inherited frViewRecibosProvCompensados: TfrViewRecibosProvCompensados + Width = 549 + Height = 376 + OnShow = CustomViewShow + ExplicitWidth = 549 + ExplicitHeight = 376 + inherited cxGrid: TcxGrid + Width = 549 + Height = 351 + ExplicitWidth = 549 + ExplicitHeight = 351 + inherited cxGridView: TcxGridDBTableView + DataController.KeyFieldNames = 'RecID' + DataController.Summary.FooterSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewIMPORTE_TOTAL + end> + OptionsCustomize.ColumnMoving = True + OptionsData.Appending = False + OptionsData.CancelOnExit = True + OptionsData.Deleting = False + OptionsData.Editing = False + OptionsData.Inserting = False + OptionsView.Footer = True + OptionsView.GroupFooters = gfAlwaysVisible + object cxGridViewRecId: TcxGridDBColumn [0] + DataBinding.FieldName = 'RecId' + Visible = False + end + object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn + DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' + Visible = False + end + object cxGridViewREFERENCIA: TcxGridDBColumn + Caption = 'Referencia' + DataBinding.FieldName = 'REFERENCIA' + end + object cxGridViewSITUACION: TcxGridDBColumn + Caption = 'Situaci'#243'n' + DataBinding.FieldName = 'SITUACION' + end + object cxGridViewFECHA_EMISION: TcxGridDBColumn + Caption = 'Fecha emisi'#243'n' + DataBinding.FieldName = 'FECHA_EMISION' + end + object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn + Caption = 'Fecha vencimiento' + DataBinding.FieldName = 'FECHA_VENCIMIENTO' + end + object cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn + Caption = 'NIF/CIF' + DataBinding.FieldName = 'NIF_CLIF_PROVEEDOR' + end + object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn + Caption = 'Proveedor' + DataBinding.FieldName = 'NOMBRE_PROVEEDOR' + end + object cxGridViewIMPORTE: TcxGridDBColumn + Caption = 'Importe' + DataBinding.FieldName = 'IMPORTE' + end + object cxGridViewOTROS_GASTOS: TcxGridDBColumn + Caption = 'Otros gastos' + DataBinding.FieldName = 'OTROS_GASTOS' + end + object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn + Caption = 'Importe total' + DataBinding.FieldName = 'IMPORTE_TOTAL' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + HeaderAlignmentHorz = taRightJustify + end + end + end + inherited ToolBar1: TToolBar + Width = 549 + ExplicitWidth = 549 + inherited ToolButton1: TToolButton + ExplicitWidth = 62 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 74 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 67 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 117 + end + object ToolButton3: TToolButton + Left = 336 + Top = 2 + Action = actExpandir + AutoSize = True + end + object ToolButton8: TToolButton + Left = 434 + Top = 2 + Action = actContraer + AutoSize = True + end + end + inherited ContenidoImageList: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000F84944415478DA + 63FCFFFF3F03084C59BC03C2200072E33C19616C905E46640372623DF06A06AA + 6198B77413C3F99DD3194936E0DFBF7F0CD396EE62D051576128AAEB031B42B4 + 0120CDBFFFFC6398BD720F43B0A70DC3CD7B2FC0869CDB318D91A00130CDBF7F + FF6558B06E3FD80B3040D00064CDBFFF40F0AA6D47C1722083F01A804D3304FF + 63D8B2EF147E03F06906D13B0F9DC56D0058E16F540D20FC07C607CA1D387911 + BB01E991AE043583F847CF5EC16E4052881341CD207CEAE275EC06C406D813D4 + 0CC2E7AFDEC26E40848F2D41CD20B12B37EF603720D8C38AA06610C069809F8B + 39C3A63D2789C994D80D404EA6C400900100F58BBFF09BC1E25C000000004945 + 4E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000002854944415478DA + A5935D48536118C7FFAFDB8CCD557E7F34B33167F9119617A91596495D781304 + 451021A651362821B1ABA49B6EA4460961D88542055D84DD6545415992174994 + 9625CC8F9C329D9B5F3BE9CED9D9797BCEA1C932A3A0079EC3CBE13CBFE7FF7F + 9FF330CE39FE2798FAB80BA4E61559EB2551E67B07279AE8D51FA98F2CC99546 + 031A3D6E5FF329993F631D80B52227A6D7929F9BAEA459D1D73BE8DC3330D6B8 + 1AD206641414DA5A6224E1E8ECA47779660955D532EF642F1371BD74331A14FA + 9C27A4439F5D88777DAE1B65FD230D11485786B9363D65FD35C1EB4B9817427E + 9F80C335C05BD53E23B2A934132FB23662B71406C2B14698F38AF0E9EB9473E8 + E3C8655BD686D6F858A5DA3F27B04511E37E0195B5C0A00AD6003FE5259758F0 + 3AD1843C15125218CCB6AD707FF34EAC93973217041154ECF608D8770E188BD8 + 5A01A8A1DEC5F60CF4980CB0A890E8A47AFFF477EC3F037C8EBE975F006ADC37 + 60A7351E3D061DE222C522A5270047AD82DBAB27B21AC09EDA373525E9A52BCB + 7E5F4CB4822509BE80848AB3C0C09A806380EE7CA1BDC55EB4CDE17AF2984932 + 75A60CCA088739742A84CE1E49C1010730F41BA03B27CD595C517CB1FFF92B04 + E6035AF142101DCB12DA743AB413243FA468331D0F01E51780D1154057AAF148 + D92E7BE794778E8DB92634C901116FA6451CAA27214EC06802AE5227AA839ED2 + 45A0729AC6A406182DD9329C10A7B7F57D18D63A93DF99D92076905F4FB4DF56 + A08C20ED9476027CD1209C7BD9FBDC947BC1C0E2C9596A4B003E27E2F8E9301E + AEB507B700334968A6631D019C759C5F627780822413BA194312CDFB41958C13 + 7FDB4052739000430ECEDD913F313B568F9B8B326AC8F7CCBFAEB27A073F0058 + 5538F0EAB25B380000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000015D4944415478DA + 63FCFFFF3F03082CDD7212C22000627C2D1891F98CC80644FB98E3D50C54C3D0 + 3B6521C3F99DD3194936E0DFBF7F0CCBB79D6690161366B04C57058B715C6060 + 24CA0090E6DF7FFE31ACD9759621A4D68281352A97E1F7B2C90C8B2E10E10298 + E6DFBFFF325C5DC2C1F044E912C39B4B4B19984A3AB17BC171E64DACAEE860D0 + 60D0F399C2F0F2D636868587CC18A41A1A18D218F07801DD669866100E699161 + 10D5F6050726411720DB0CD35CDE369B61DED24DD80DF8FDE72FD856107D6319 + 1786E6ED7B4F311C387911BB01611E260C6E73EF80F9110C1F180C182C18C4D5 + BC5034830C3E7AF60A7603029D0D212E00FA7DEDAA2B0C2D2D210C6B6A9EA068 + 06E15317AF6337C0C75E8F2160D92330FF4E8B0B838B4B0D985D5CE907D70CC2 + E7AFDEC26E80BBB50E5CD11FA84B60E181C0FF18AEDCBC83DD0027734D829A41 + 00A701B6C66A0C9BF69C24265362370094D348012003002CB76B52FA97B19500 + 00000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000001124944415478DA + 63FCFFFF3F03258091620340848147C2FF0B3B1630A24B1223CE08E20CAC0B28 + 0A0098010B361C807BE3E7CF5F0C5FBF7D63F8F2ED3B98D65455C62ADE599ACC + 886240BCBF3D58E19FBFFF18BE7DFFC5F0EDC72F86D6A98B1826D7E760159FD2 + 908B69C0EF3F7F810A7E337C072ABC71FF15C3FC556B1916F69463155FD45B81 + 3060DAF21DFF93835D18BEFF80D8F0FDC71F8647CFDF334C9CB38061E5D446AC + E21B66B7220CE89AB3EE7F6AA80754D16F862F409BDE7FFCC6D0D43F8561DDCC + 76ACE2FB574C4418503771F1FFB4085F86DB0F5EA3847049633BC3C6F97D58C5 + CF6E9B8730A0A86DE6FF6FC0D0FDF4F90BC3E72F5FA1F417867FFFFE33589818 + 601587A78381CF4C941A00005C20FBD97F751C0A0000000049454E44AE426082} + Name = 'PngImage3' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000DF4944415478DA + 63FCFFFF3F032580916203600C9E351CFF19FE3130FCFF09A47EFD67F89EFC0B + 2E67E09180D596F3DBE733220C58C5F17F89572FC3FBAF1F1832D73630FCC8FA + CDC84000805CCF886CF314B73A86F7DF3E32546EEC63F8FF0B22F6BBF62FDCA0 + 8482061497CCEFAF676444B619A41946BFF9FC8E61CDBE7D0C7F5AFF32E27501 + F762F6FF309B9135BF06E20347CE33FCEDF987DF059C73D9FE839CFA1F1870A9 + 56C1709BC181F903283EE53F7E17C0386C5D2CFF838C1DB1DA4C542CB03633FF + FFFF8381289BB1BA801880350C48316008BB006F2C509A1B0127B3B6E11C11A1 + 6B0000000049454E44AE426082} + Name = 'PngImage4' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000914944415478DA + 63FCFFFF3F032580916203885164E09180D596F3DBE733320265C09220E23312 + FE02C41F80D8158F2520D7430C9838112CF0F7F74F868F4F6F33BC7F7283E1CB + EBC70C770E3C6008413220A1A001C525F3FBEB1919FF010D60041A80AE1904CE + 000D4821E4828F401ADDD91FA1F41F20CE20E4024A6200EC028A63812E2E18F8 + 30187817E0CF0B14E64600B6F869E1FAECCCBE0000000049454E44AE426082} + Name = 'PngImage5' + Background = clWindow + end> + Bitmap = {} + end + inherited ActionListContenido: TActionList + inherited actModificar: TAction + Enabled = False + Visible = False + end + object actExpandir: TAction + Category = 'Operaciones' + Caption = 'Expandir todo' + ImageIndex = 4 + Visible = False + OnExecute = actExpandirExecute + OnUpdate = actExpandirUpdate + end + object actContraer: TAction + Category = 'Operaciones' + Caption = 'Contraer todo' + ImageIndex = 5 + Visible = False + OnExecute = actContraerExecute + OnUpdate = actContraerUpdate + end + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas new file mode 100644 index 00000000..6459fdf4 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas @@ -0,0 +1,193 @@ +unit uViewRecibosProvCompensados; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter, + cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList, + uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, + cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor, + uBizRecibosProveedor, uRecibosProveedorController, Grids, DBGrids, cxSpinEdit, + dxLayoutControl; + +type + IViewRecibosCompensados = interface + ['{C683669A-002A-432D-BC20-3FA50BEA8721}'] + function GetReciboProveedor: IBizRecibosProveedor; + procedure SetReciboProveedor(const Value: IBizRecibosProveedor); + property ReciboProveedor: IBizRecibosProveedor read GetReciboProveedor write SetReciboProveedor; + + function GetController : IRecibosProveedorController; + procedure SetController (const Value : IRecibosProveedorController); + property Controller : IRecibosProveedorController read GetController write SetController; + end; + + TfrViewRecibosProvCompensados = class(TfrViewDetallesGenerico, IViewRecibosCompensados) + actExpandir: TAction; + actContraer: TAction; + ToolButton3: TToolButton; + ToolButton8: TToolButton; + cxGridViewREFERENCIA: TcxGridDBColumn; + cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; + cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn; + cxGridViewSITUACION: TcxGridDBColumn; + cxGridViewFECHA_EMISION: TcxGridDBColumn; + cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn; + cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn; + cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn; + cxGridViewIMPORTE: TcxGridDBColumn; + cxGridViewOTROS_GASTOS: TcxGridDBColumn; + cxGridViewRecId: TcxGridDBColumn; + procedure actExpandirExecute(Sender: TObject); + procedure actContraerExecute(Sender: TObject); + procedure CustomViewShow(Sender: TObject); + procedure actEliminarUpdate(Sender: TObject); + procedure actExpandirUpdate(Sender: TObject); + procedure actContraerUpdate(Sender: TObject); + procedure actAnadirUpdate(Sender: TObject); + protected + FHayCambios : Boolean; + FReciboProveedor : IBizRecibosProveedor; + FController : IRecibosProveedorController; + + procedure AnadirInterno; override; + procedure EliminarInterno; override; + + function GetReciboProveedor: IBizRecibosProveedor; + procedure SetReciboProveedor(const Value: IBizRecibosProveedor); + + function GetModified: Boolean; override; + procedure SetModified(const Value: Boolean); override; + + function GetController : IRecibosProveedorController; + procedure SetController (const Value : IRecibosProveedorController); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + property ReciboProveedor: IBizRecibosProveedor read GetReciboProveedor write SetReciboProveedor; + property Controller : IRecibosProveedorController read GetController write SetController; + end; + + +implementation + +{$R *.dfm} + +uses + uCustomView; + +{ TfrViewFacturasReciboProveedor } + +procedure TfrViewRecibosProvCompensados.actAnadirUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := (ReciboProveedor.SITUACION <> CTE_PAGADO); +end; + +procedure TfrViewRecibosProvCompensados.actContraerExecute(Sender: TObject); +begin + inherited; + cxGridView.ViewData.Collapse(True); +end; + +procedure TfrViewRecibosProvCompensados.actContraerUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := HayDatos; +end; + +procedure TfrViewRecibosProvCompensados.actEliminarUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0) + and (cxGridView.Controller.SelectedRows[0].HasCells) + and (ReciboProveedor.SITUACION <> CTE_PAGADO)); +end; + +procedure TfrViewRecibosProvCompensados.actExpandirExecute(Sender: TObject); +begin + inherited; + cxGridView.ViewData.Expand(True); +end; + +procedure TfrViewRecibosProvCompensados.actExpandirUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Enabled := HayDatos; +end; + +procedure TfrViewRecibosProvCompensados.AnadirInterno; +begin + //inherited; // No hacer el comportamiento normal + if FController.ElegirRecibosCompensados(ReciboProveedor) then + Modified := True; +end; + +constructor TfrViewRecibosProvCompensados.Create(AOwner: TComponent); +begin + inherited; + FHayCambios := False; +end; + +procedure TfrViewRecibosProvCompensados.CustomViewShow(Sender: TObject); +begin + inherited; + cxGridView.OptionsSelection.MultiSelect := False; +end; + +destructor TfrViewRecibosProvCompensados.Destroy; +begin + inherited; +end; + +procedure TfrViewRecibosProvCompensados.EliminarInterno; +begin + if cxGridView.Controller.SelectedRowCount > 0 then + if cxGridView.Controller.SelectedRows[0].HasCells then +// ViewGrid._FocusedView.Controller.SelectedRecordCount + FController.QuitarReciboCompensado(ReciboProveedor); + Modified := True; +end; + +function TfrViewRecibosProvCompensados.GetController: IRecibosProveedorController; +begin + Result := FController; +end; + +function TfrViewRecibosProvCompensados.GetModified: Boolean; +begin + Result := FHayCambios or inherited GetModified; +end; + +function TfrViewRecibosProvCompensados.GetReciboProveedor: IBizRecibosProveedor; +begin + Result := FReciboProveedor; +end; + +procedure TfrViewRecibosProvCompensados.SetController( + const Value: IRecibosProveedorController); +begin + FController := Value; +end; + +procedure TfrViewRecibosProvCompensados.SetModified(const Value: Boolean); +begin + FHayCambios := Value; + inherited; +end; + +procedure TfrViewRecibosProvCompensados.SetReciboProveedor(const Value: IBizRecibosProveedor); +begin + FReciboProveedor := Value; + FHayCambios := False; + if Assigned(FReciboProveedor) then + dsDetalles.DataTable := FReciboProveedor.RecibosCompensados.DataTable + else + dsDetalles.DataTable := NIL; + + actAnchoAutomatico.Execute; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dcu b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dcu new file mode 100644 index 00000000..38b8b31c Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dcu differ diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm new file mode 100644 index 00000000..f41367f6 --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm @@ -0,0 +1,307 @@ +inherited frViewRecibosProveedor: TfrViewRecibosProveedor + Width = 531 + Height = 415 + ExplicitWidth = 531 + ExplicitHeight = 415 + inherited cxGrid: TcxGrid + Width = 531 + Height = 287 + RootLevelOptions.DetailTabsPosition = dtpTop + OnActiveTabChanged = cxGridActiveTabChanged + ExplicitWidth = 531 + ExplicitHeight = 287 + inherited cxGridView: TcxGridDBTableView + DataController.KeyFieldNames = 'ID' + DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = cxGridViewIMPORTE_TOTAL + end> + DataController.Summary.FooterSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewIMPORTE_TOTAL + end + item + Format = '0 recibos' + Kind = skCount + Column = cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewIMPORTE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewOTROS_GASTOS + end> + OptionsCustomize.ColumnHidingOnGrouping = False + OptionsView.GroupFooters = gfAlwaysVisible + object cxGridViewREFERENCIA: TcxGridDBColumn + Caption = 'Referencia' + DataBinding.FieldName = 'REFERENCIA' + Width = 71 + end + object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn + Caption = 'Compensado' + DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' + OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell + end + object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn + Caption = 'Ref. recibo compensado' + DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO' + end + object cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn + Caption = 'Ref. factura prov.' + DataBinding.FieldName = 'REFERENCIA_FACTURA_PROV' + end + object cxGridViewSITUACION: TcxGridDBColumn + Caption = 'Situaci'#243'n' + DataBinding.FieldName = 'SITUACION' + PropertiesClassName = 'TcxImageComboBoxProperties' + Properties.Images = PngImageList + Properties.Items = < + item + Description = 'Pendiente' + Value = 'PENDIENTE' + end + item + Description = 'Pagado' + ImageIndex = 0 + Value = 'PAGADO' + end + item + Description = 'Devuelto' + ImageIndex = 1 + Value = 'DEVUELTO' + end> + Width = 55 + end + object cxGridViewFECHA_EMISION: TcxGridDBColumn + Caption = 'Fecha emisi'#243'n' + DataBinding.FieldName = 'FECHA_EMISION' + Width = 40 + end + object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn + Caption = 'Fecha vencimiento' + DataBinding.FieldName = 'FECHA_VENCIMIENTO' + Width = 61 + end + object cxGridViewDESCRIPCION: TcxGridDBColumn + Caption = 'Descripci'#243'n' + DataBinding.FieldName = 'DESCRIPCION' + Visible = False + end + object cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn + Caption = 'NIF/CIF' + DataBinding.FieldName = 'NIF_CIF_PROVEEDOR' + Visible = False + end + object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn + Caption = 'Proveedor' + DataBinding.FieldName = 'NOMBRE_PROVEEDOR' + Width = 61 + end + object cxGridViewIMPORTE: TcxGridDBColumn + Caption = 'Importe' + DataBinding.FieldName = 'IMPORTE' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify + Width = 60 + end + object cxGridViewOTROS_GASTOS: TcxGridDBColumn + Caption = 'Otros gastos' + DataBinding.FieldName = 'OTROS_GASTOS' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + HeaderAlignmentHorz = taRightJustify + Width = 30 + end + object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn + Caption = 'Importe total' + DataBinding.FieldName = 'IMPORTE_TOTAL' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + HeaderAlignmentHorz = taRightJustify + Width = 92 + end + object cxGridViewREFERENCIA_REMESA: TcxGridDBColumn + Caption = 'Ref. remesa' + DataBinding.FieldName = 'REFERENCIA_REMESA' + Visible = False + end + end + inherited cxGridLevel: TcxGridLevel + Caption = 'Todos' + end + object cxGridPendientes: TcxGridLevel + Caption = 'Pendientes' + end + object cxGridPagados: TcxGridLevel + Caption = 'Pagados' + end + object cxGridDevueltos: TcxGridLevel + Caption = 'Devueltos' + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 531 + ExplicitWidth = 531 + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 531 + inherited dxLayoutControl1: TdxLayoutControl + Width = 531 + ExplicitWidth = 531 + inherited edtFechaFinFiltro: TcxDateEdit + ExplicitWidth = 273 + Width = 273 + end + end + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 531 + ExplicitWidth = 531 + inherited tbxBotones: TTBXToolbar + Width = 521 + ExplicitWidth = 521 + end + end + end + end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 389 + Visible = True + ExplicitTop = 389 + ExplicitWidth = 531 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 531 + ExplicitWidth = 531 + inherited TBXToolbar1: TTBXToolbar + Width = 521 + ExplicitWidth = 521 + object TBXSeparatorItem1: TTBXSeparatorItem + end + object TBXItem2: TTBXItem + Action = actProveedor + end + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 38673.741107951390000000 + BuiltInReportLink = True + end + end + inherited cxStyleRepository1: TcxStyleRepository + object cxStylePendientes: TcxStyle + AssignedValues = [svTextColor] + TextColor = clGreen + end + object cxStylePagadas: TcxStyle + AssignedValues = [svTextColor] + TextColor = clBlack + end + object cxStyleDevueltas: TcxStyle + AssignedValues = [svTextColor] + TextColor = clRed + end + end + inherited ActionList1: TActionList + object actProveedor: TAction + Caption = 'Proveedor' + OnExecute = actProveedorExecute + OnUpdate = actProveedorUpdate + end + end + inherited dxPrintStyleManager1: TdxPrintStyleManager + inherited dxPrintStyleManager1Style1: TdxPSPrintStyle + BuiltInStyle = True + end + end + object PngImageList: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA + 63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929 + CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0 + 7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915 + EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF + B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED + FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E + 3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B + 9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2 + E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B + C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7 + CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5 + 4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80 + 86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91 + A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E + 413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000 + 49454E44AE426082} + Name = 'PngImage0' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000000097048597300000AEB00000AEB01828B0D5A0000029B4944415478DA + A5936B48536118C7FFE79CB5CD332F639B9A379C683051B232CDEA835D14BB40 + A444501FACCC254811F529858811519411917D705A5041D04D30A34F82214118 + D8B0455E2A755E6665BA9DCDED6C3BDBDE76365C9A981F7AE0BDF0C2FFF7FE9F + E7E1A10821F89FA0C27B7E8B8ED526D731085A9DAFAA6EFC4B1053FAA844AA8A + 377053B64ED27BAC99C2E6FB4574667A4F5676B23C5ECE9091FE2F97B98ECA4B + CB9405B794AAEC9CAB5E307A97C3ED8383AB26BD35CF29EC7ED68AA4A45A0483 + 4852B1484D64C9A8E9EB15AEB3F2E282962D7BBC5FA651B73A5C424AC0E59E05 + 673B88BEBAB762FA14726EC7639DB60BB1B145083DC4C824D0A62790E901CB75 + FB4B53A362EF060351B08D6E978706CF4F807356C0A41F10C1118018BA3B6A68 + 33DE8065F345080D82B4940432373933E863A43AC1E3A5E0E68730E72883F9D4 + E482B33F003136B6A52251DD831879B60811530A2FF1CEF31670F3DB60AAB52E + 2ECB528018EB8D5948D6F442264D8C8A03018299D94321DBED7FD775194051FE + E49C54A36CB2715E3AEA423CBD9E09CCD977C05C3FB222407DA0FD4A467E6643 + FF472B450221A15F2010FCF39048E222109F052E5B294CA72DCB008A8AA7E775 + 25B94DC343D394D3EE167F2670380CA1DCDBC02A8CA194F685213EE11B387E17 + 3ED78D4701CCF687E559C579AF79DE2B991AFB19B1EC703EC0BBEAE351AF85F7 + 4E42B6E626683A0182300CDFFC4E98CE58C300CDD1EEC9B8B5AAB4B1C13184AD + BBDD668CFB8A6139E15952B1BCBB19A10E192161F6840A3B04DE594ACC677F50 + CAC35D2F78BFBFCAEBE211A20BB0FFDA8A0FF57D2B0E4381510F09DD0412EC20 + 7DFA6A0A9B8C25502ABBC1307270DC35BCAF69587504739B3341532CF9543F10 + E94261CB16486417F07DF4082C06CFAA80455DF80DE5433FF01720E9DB000000 + 0049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000774494D45000000000000000973942E000000097048597300001712 + 0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9 + 2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD + 3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E + E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290 + 60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF + FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232 + E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043 + C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF + 194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4 + 67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A + 91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA + 9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583 + 000005100EB8572466A60000000049454E44AE426082} + Name = 'PngImage2' + Background = clWindow + end> + Left = 56 + Top = 48 + Bitmap = {} + end +end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas new file mode 100644 index 00000000..f525ff0b --- /dev/null +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas @@ -0,0 +1,287 @@ +unit uViewRecibosProveedor; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewGrid, uViewPreview, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, + dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, + dxPSFillPatterns, dxPSEdgePatterns, cxImageComboBox, cxTextEdit, ImgList, + PngImageList, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + dxPSCore, dxPScxCommon, dxPScxGridLnk, ActnList, uDADataTable, + cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxImage, Grids, DBGrids, uBizRecibosProveedor, cxGridCustomPopupMenu, + cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX, + TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces; + +type + IViewRecibosProveedor = interface(IViewGrid) + ['{2E26DF6E-CFCD-41CC-AC4C-FCF3AD0AD0D7}'] + function GetRecibos: IBizRecibosProveedor; + procedure SetRecibos(const Value: IBizRecibosProveedor); + property Recibos: IBizRecibosProveedor read GetRecibos write SetRecibos; + + procedure FiltrarPorFechas(const Fecha1, Fecha2: Variant); + end; + + TfrViewRecibosProveedor = class(TfrViewGrid, IViewRecibosProveedor) + PngImageList: TPngImageList; + cxStylePendientes: TcxStyle; + cxGridPendientes: TcxGridLevel; + cxGridPagados: TcxGridLevel; + cxStylePagadas: TcxStyle; + cxGridViewREFERENCIA: TcxGridDBColumn; + cxGridViewSITUACION: TcxGridDBColumn; + cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn; + cxGridViewDESCRIPCION: TcxGridDBColumn; + cxGridViewIMPORTE: TcxGridDBColumn; + cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn; + cxGridViewNIF_CIF_PROVEEDOR: TcxGridDBColumn; + cxGridViewREFERENCIA_REMESA: TcxGridDBColumn; + cxGridDevueltos: TcxGridLevel; + cxGridViewOTROS_GASTOS: TcxGridDBColumn; + cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; + cxGridViewFECHA_EMISION: TcxGridDBColumn; + cxStyleDevueltas: TcxStyle; + actProveedor: TAction; + TBXItem2: TTBXItem; + TBXSeparatorItem1: TTBXSeparatorItem; + cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn; + cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn; + cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn; + procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + out AStyle: TcxStyle); + procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel); + procedure cxGridViewIMPORTE_TOTALGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; + var AText: string); + procedure actProveedorExecute(Sender: TObject); + procedure actProveedorUpdate(Sender: TObject); + procedure cxGridViewID_RECIBO_COMPENSADOCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + + private + //Filtros relativos a la vista + procedure AnadirFiltroSituaciones; + procedure AnadirFiltroFechas; + + protected + FRecibos: IBizRecibosProveedor; + function GetRecibos: IBizRecibosProveedor; + procedure SetRecibos(const Value: IBizRecibosProveedor); + procedure AnadirOtrosFiltros; override; + + public + property Recibos: IBizRecibosProveedor read GetRecibos write SetRecibos; + procedure FiltrarPorFechas(const Fecha1, Fecha2: Variant); + end; + + +implementation + +uses + schRecibosProveedorClient_Intf, uDataModuleRecibosProveedor, DateUtils, uViewGridBase; + +{$R *.dfm} + +{ TfrViewRecibosProveedor } + +procedure TfrViewRecibosProveedor.actProveedorExecute(Sender: TObject); +begin + inherited; + if (cxGridViewNOMBRE_PROVEEDOR.GroupIndex < 0) then + begin + cxGridViewNOMBRE_PROVEEDOR.GroupIndex := cxGridView.GroupedColumnCount; + cxGridViewNOMBRE_PROVEEDOR.Visible := False; + end + else + begin + cxGridViewNOMBRE_PROVEEDOR.GroupIndex := -1; + cxGridViewNOMBRE_PROVEEDOR.Visible := True; + end; +end; + +procedure TfrViewRecibosProveedor.actProveedorUpdate(Sender: TObject); +begin + inherited; + (Sender as TAction).Checked := not (cxGridViewNOMBRE_PROVEEDOR.GroupIndex < 0); +end; + +procedure TfrViewRecibosProveedor.AnadirFiltroFechas; +var + Columna: TcxGridDBColumn; + Fecha1, Fecha2: Variant; + FFiltro : TcxFilterCriteriaItemList; +begin + Fecha1 := frViewFiltroBase1.edtFechaIniFiltro.EditValue; + Fecha2 := frViewFiltroBase1.edtFechaFinFiltro.EditValue; + + if not VarIsNull(Fecha1) + and not VarIsNull(Fecha2) then + begin + cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare]; + FFiltro := AddFilterGrid(fboAnd); + + Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosCompensadosProvFECHA_VENCIMIENTO); + FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2)); + end; +end; + +procedure TfrViewRecibosProveedor.AnadirFiltroSituaciones; +var + FFiltro : TcxFilterCriteriaItemList; +begin + FFiltro := AddFilterGrid(fboAnd); + + case cxGrid.ActiveLevel.Index of + 1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE); + 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADO, CTE_PAGADO); + 3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_DEVUELTO, CTE_DEVUELTO); + end; +end; + +procedure TfrViewRecibosProveedor.AnadirOtrosFiltros; +begin + inherited; + + AnadirFiltroSituaciones; + AnadirFiltroFechas; + + //Finalmente activamos el filtro si tenemos algo + if cxGridView.DataController.Filter.IsEmpty + then cxGridView.DataController.Filter.Active := False + else cxGridView.DataController.Filter.Active := True; + cxGrid.ActiveLevel.GridView := cxGridView; +end; + +procedure TfrViewRecibosProveedor.cxGridActiveTabChanged(Sender: TcxCustomGrid; + ALevel: TcxGridLevel); +begin + inherited; + RefrescarFiltro; +end; + +procedure TfrViewRecibosProveedor.cxGridViewICONOCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + R : TRect; +begin + inherited; +{ + R := AViewInfo.ContentBounds; + ACanvas.FillRect(R); + if (Pos('-', AViewInfo.GridRecord.DisplayTexts[cxGridViewIMPORTE_TOTAL.Index]) > 0) then + ACanvas.DrawImage(PngImageList, R.Left, R.Top, 3) + else + ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2); + ADone := True; +} +end; + +procedure TfrViewRecibosProveedor.cxGridViewID_RECIBO_COMPENSADOCustomDrawCell( + Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; + AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + R : TRect; +begin + inherited; + if not VarIsNull(AViewInfo.Value) then + begin + R := AViewInfo.ContentBounds; + ACanvas.FillRect(R); + ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2); + ADone := True; + end; +end; + +procedure TfrViewRecibosProveedor.cxGridViewIMPORTE_TOTALGetDisplayText( + Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; + var AText: string); +var + ImporteTotal : Double; +begin + //Se encarga de mostrar el campo calculado de importe total + ImporteTotal := -1; + + if not VarIsNull(ARecord.Values[cxGridViewIMPORTE.Index]) then + if not VarIsNull(ARecord.Values[cxGridViewOTROS_GASTOS.Index]) then + ImporteTotal := ARecord.Values[cxGridViewIMPORTE.Index] + ARecord.Values[cxGridViewOTROS_GASTOS.Index] + else + ImporteTotal := ARecord.Values[cxGridViewIMPORTE.Index]; + + if (ImporteTotal <> -1) then + begin + AText := FormatCurr(',0.00 €;-,0.00 €', FloatToCurr(ImporteTotal)); + + ARecord.Values[cxGridViewIMPORTE_TOTAL.Index] := ImporteTotal; + cxGridViewIMPORTE_TOTAL.EditValue := ImporteTotal; + cxGridViewIMPORTE_TOTAL.DataBinding.Field.Value := ImporteTotal; + end; +end; + +procedure TfrViewRecibosProveedor.cxGridViewStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + IndiceCol: Integer; + ASituacion: string; +begin + inherited; + + if Assigned(ARecord) then + begin + IndiceCol := cxGridViewSITUACION.Index; + ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol])); + if (ASituacion = CTE_PENDIENTE) then + AStyle := cxStylePendientes + else if (ASituacion = CTE_PAGADO) then + AStyle := cxStylePagadas + else if (ASituacion = CTE_DEVUELTO) then + AStyle := cxStyleDevueltas; + end; +end; + +procedure TfrViewRecibosProveedor.FiltrarPorFechas(const Fecha1, Fecha2: Variant); +var + Columna: TcxGridDBColumn; +begin + with cxGridView.DataController.Filter do + begin + BeginUpdate; + try + Options := [fcoCaseInsensitive, fcoSoftCompare]; + Root.Clear; + if not VarIsNull(Fecha1) + and not VarIsNull(Fecha2) then + begin + Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosCompensadosProvFECHA_VENCIMIENTO); + Root.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2)); + Active := True; + end + else + Active := False; + finally + EndUpdate; + end; + end; +end; + +function TfrViewRecibosProveedor.GetRecibos: IBizRecibosProveedor; +begin + Result := FRecibos; +end; + +procedure TfrViewRecibosProveedor.SetRecibos(const Value: IBizRecibosProveedor); +begin + FRecibos := Value; + if Assigned(FRecibos) then + dsDataSource.DataTable := FRecibos.DataTable; +end; + +end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uroCipher1.dcu b/Source/Modulos/Recibos de proveedor/Views/uroCipher1.dcu new file mode 100644 index 00000000..e356954e Binary files /dev/null and b/Source/Modulos/Recibos de proveedor/Views/uroCipher1.dcu differ