Compare commits
21 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| 5df0770b1b | |||
| 0b5e8ef6af | |||
| 89a87e5287 | |||
| d5a1bb79fa | |||
| f2c4e7954f | |||
| 2cbd8d9c60 | |||
| 80e9fdb4df | |||
| aab3f9832f | |||
| 3c31071bc2 | |||
| 8663a34655 | |||
| 9817000e8d | |||
| ecacdd363e | |||
| 79d735110d | |||
| c988e231d1 | |||
| 1c57cd1a32 | |||
| 8763218d05 | |||
| 37c7ef375a | |||
| 60a934c755 | |||
| c6fd5c3a45 | |||
| 5e3c2396f3 | |||
| 458bf4e950 |
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -14,8 +14,8 @@
|
||||
<Notes>
|
||||
<![CDATA[]]>
|
||||
</Notes>
|
||||
<LastBuildRun>00:00:00</LastBuildRun>
|
||||
<LastBuildStart>16/02/2010 16:43:40</LastBuildStart>
|
||||
<LastBuildState>False</LastBuildState>
|
||||
<LastBuildRun>00:00:02</LastBuildRun>
|
||||
<LastBuildStart>05/05/2010 19:29:29</LastBuildStart>
|
||||
<LastBuildState>True</LastBuildState>
|
||||
</properties>
|
||||
</project>
|
||||
|
||||
BIN
Build/Build.fbz6
BIN
Build/Build.fbz6
Binary file not shown.
Binary file not shown.
@ -6,7 +6,7 @@
|
||||
<propertysets/>
|
||||
<variables>
|
||||
<project_path>
|
||||
<![CDATA[C:\Codigo Noviseda]]>
|
||||
<![CDATA[C:\Codigo noviseda]]>
|
||||
</project_path>
|
||||
</variables>
|
||||
<properties>
|
||||
|
||||
@ -710,7 +710,9 @@ CREATE TABLE FACTURAS_CLIENTE (
|
||||
RETENCION TIPO_PORCENTAJE,
|
||||
IMPORTE_RETENCION TIPO_IMPORTE,
|
||||
DESCUENTO2 TIPO_PORCENTAJE,
|
||||
IMPORTE_DESCUENTO2 TIPO_IMPORTE
|
||||
IMPORTE_DESCUENTO2 TIPO_IMPORTE,
|
||||
COMISION TIPO_PORCENTAJE,
|
||||
IMPORTE_COMISION TIPO_IMPORTE
|
||||
);
|
||||
|
||||
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
|
||||
@ -1875,6 +1877,7 @@ CREATE VIEW V_CLIENTES(
|
||||
REFERENCIA,
|
||||
PAIS,
|
||||
ID_AGENTE,
|
||||
COMISION,
|
||||
GRUPO_CLIENTE,
|
||||
NOMBRE_COMERCIAL,
|
||||
VENCIMIENTO_FACTURAS_1,
|
||||
@ -1888,7 +1891,7 @@ CREATE VIEW V_CLIENTES(
|
||||
ID_FORMA_PAGO,
|
||||
TIENDA_WEB,
|
||||
DESCUENTO,
|
||||
DESCUENTO2,
|
||||
DESCUENTO2,
|
||||
FELICITACION)
|
||||
AS
|
||||
SELECT
|
||||
@ -1917,6 +1920,7 @@ SELECT
|
||||
V_CONTACTOS.REFERENCIA,
|
||||
V_CONTACTOS.PAIS,
|
||||
CLIENTES_DATOS.ID_AGENTE,
|
||||
VENDEDORES_DATOS.COMISION,
|
||||
CLIENTES_DATOS.GRUPO_CLIENTE,
|
||||
CLIENTES_DATOS.NOMBRE_COMERCIAL,
|
||||
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1,
|
||||
@ -1935,9 +1939,9 @@ SELECT
|
||||
FROM
|
||||
V_CONTACTOS
|
||||
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
|
||||
LEFT OUTER JOIN VENDEDORES_DATOS ON (CLIENTES_DATOS.ID_AGENTE = VENDEDORES_DATOS.ID_VENDEDOR)
|
||||
WHERE
|
||||
V_CONTACTOS.ID_CATEGORIA = 1
|
||||
;
|
||||
V_CONTACTOS.ID_CATEGORIA = 1;
|
||||
|
||||
|
||||
|
||||
@ -2224,49 +2228,52 @@ GROUP BY ID_FACTURA
|
||||
|
||||
/* View: V_FACTURAS_CLIENTE */
|
||||
CREATE VIEW V_FACTURAS_CLIENTE(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
ID_COMISION_LIQUIDADA,
|
||||
FECHA_FACTURA,
|
||||
FECHA_VENCIMIENTO,
|
||||
FECHA_RETENCION,
|
||||
SITUACION,
|
||||
BASE_IMPONIBLE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
RE,
|
||||
IMPORTE_RE,
|
||||
IMPORTE_TOTAL,
|
||||
OBSERVACIONES,
|
||||
ID_CLIENTE,
|
||||
NIF_CIF,
|
||||
NOMBRE,
|
||||
ID_DIRECCION,
|
||||
CALLE,
|
||||
POBLACION,
|
||||
PROVINCIA,
|
||||
CODIGO_POSTAL,
|
||||
DATOS_BANCARIOS,
|
||||
PERSONA_CONTACTO,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
ID_FORMA_PAGO,
|
||||
RECARGO_EQUIVALENCIA,
|
||||
ID_TIPO_IVA,
|
||||
IMPORTE_NETO,
|
||||
IMPORTE_PORTE,
|
||||
ID_AGENTE,
|
||||
REFERENCIA_COMISION,
|
||||
RETENCION,
|
||||
IMPORTE_RETENCION,
|
||||
DESCUENTO2,
|
||||
IMPORTE_DESCUENTO2)
|
||||
AS
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
ID_COMISION_LIQUIDADA,
|
||||
FECHA_FACTURA,
|
||||
FECHA_VENCIMIENTO,
|
||||
FECHA_RETENCION,
|
||||
SITUACION,
|
||||
BASE_IMPONIBLE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
RE,
|
||||
IMPORTE_RE,
|
||||
IMPORTE_TOTAL,
|
||||
OBSERVACIONES,
|
||||
ID_CLIENTE,
|
||||
NIF_CIF,
|
||||
NOMBRE,
|
||||
ID_DIRECCION,
|
||||
CALLE,
|
||||
POBLACION,
|
||||
PROVINCIA,
|
||||
CODIGO_POSTAL,
|
||||
DATOS_BANCARIOS,
|
||||
PERSONA_CONTACTO,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
ID_FORMA_PAGO,
|
||||
RECARGO_EQUIVALENCIA,
|
||||
ID_TIPO_IVA,
|
||||
IMPORTE_NETO,
|
||||
IMPORTE_PORTE,
|
||||
ID_AGENTE,
|
||||
REFERENCIA_COMISION,
|
||||
RETENCION,
|
||||
IMPORTE_RETENCION,
|
||||
DESCUENTO2,
|
||||
IMPORTE_DESCUENTO2,
|
||||
COMISION,
|
||||
IMPORTE_COMISION)
|
||||
|
||||
AS
|
||||
SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.ID_EMPRESA,
|
||||
FACTURAS_CLIENTE.REFERENCIA,
|
||||
@ -2308,15 +2315,17 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.RETENCION,
|
||||
FACTURAS_CLIENTE.IMPORTE_RETENCION,
|
||||
FACTURAS_CLIENTE.DESCUENTO2,
|
||||
FACTURAS_CLIENTE.IMPORTE_DESCUENTO2
|
||||
|
||||
FACTURAS_CLIENTE.IMPORTE_DESCUENTO2,
|
||||
FACTURAS_CLIENTE.COMISION,
|
||||
FACTURAS_CLIENTE.IMPORTE_COMISION
|
||||
|
||||
FROM V_FAC_CLI_SITUACION
|
||||
LEFT JOIN FACTURAS_CLIENTE
|
||||
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
|
||||
LEFT JOIN COMISIONES_LIQUIDADAS
|
||||
ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
|
||||
LEFT JOIN CLIENTES_DATOS
|
||||
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE);
|
||||
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
|
||||
;
|
||||
|
||||
|
||||
@ -2453,8 +2462,6 @@ ON (V_ALB_PROV_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID)
|
||||
WHERE (V_ALB_PROV_DETALLES.ID_ALMACEN IS NOT NULL)
|
||||
;
|
||||
|
||||
|
||||
|
||||
/* View: V_HIS_MOV_REGULARIZACIONES */
|
||||
CREATE VIEW V_HIS_MOV_REGULARIZACIONES(
|
||||
FECHA,
|
||||
@ -2467,12 +2474,11 @@ AS
|
||||
SELECT FECHA_MOVIMIENTO, ID_ALMACEN, ID_ARTICULO, TIPO,
|
||||
CASE WHEN TIPO = 'S' THEN (-1)* CANTIDAD
|
||||
ELSE CANTIDAD END,
|
||||
'Regularizaci¢n por - ' || CAUSA
|
||||
'Regularización por - ' || CAUSA
|
||||
FROM MOVIMIENTOS
|
||||
;
|
||||
|
||||
|
||||
|
||||
/* View: V_HIS_MOV_AUX */
|
||||
CREATE VIEW V_HIS_MOV_AUX(
|
||||
FECHA,
|
||||
@ -3287,10 +3293,7 @@ SELECT ID_ALMACEN, ID_ARTICULO, 0 as STOCK, 0 as PENDIENTES, CANTIDAD AS RESERVA
|
||||
FROM V_INV_RESERVAS
|
||||
;
|
||||
|
||||
|
||||
|
||||
/* View: V_INVENTARIO */
|
||||
CREATE VIEW V_INVENTARIO(
|
||||
CREATE VIEW V_INVENTARIO_SIN_COLORES(
|
||||
ID_ALMACEN,
|
||||
ID_EMPRESA,
|
||||
TIPO_ALMACEN,
|
||||
@ -3366,6 +3369,65 @@ HAVING ((SUM(STOCK) <> 0 ) OR (SUM(RESERVA) <> 0) OR (SUM(PENDIENTE_RECEPCION) <
|
||||
;
|
||||
|
||||
|
||||
CREATE VIEW V_INVENTARIO(
|
||||
ID_ALMACEN,
|
||||
ID_EMPRESA,
|
||||
TIPO_ALMACEN,
|
||||
NOMBRE,
|
||||
ID_ARTICULO,
|
||||
REFERENCIA,
|
||||
FAMILIA,
|
||||
DESCRIPCION,
|
||||
REFERENCIA_FAB,
|
||||
UNIDAD_MEDIDA,
|
||||
CAMPOTECNICO,
|
||||
CODIGOTECNICO,
|
||||
DISENOTECNICO,
|
||||
COLOR1,
|
||||
COLOR2,
|
||||
COLOR3,
|
||||
COLOR4,
|
||||
COLOR5,
|
||||
COLOR6,
|
||||
COLOR7,
|
||||
COLOR8,
|
||||
COLOR9,
|
||||
COLOR10,
|
||||
COLOR11,
|
||||
COLOR12,
|
||||
STOCK,
|
||||
UNIDADES_ALMACEN,
|
||||
RESERVA,
|
||||
PENDIENTE_RECEPCION)
|
||||
AS
|
||||
SELECT
|
||||
v_inventario_sin_colores.ID_ALMACEN, v_inventario_sin_colores.ID_EMPRESA,
|
||||
v_inventario_sin_colores.TIPO_ALMACEN, v_inventario_sin_colores.NOMBRE as ALMACEN,
|
||||
v_inventario_sin_colores.ID_ARTICULO, v_inventario_sin_colores.REFERENCIA,
|
||||
v_inventario_sin_colores.FAMILIA, v_inventario_sin_colores.DESCRIPCION,
|
||||
v_inventario_sin_colores.REFERENCIA_FAB, v_inventario_sin_colores.UNIDAD_MEDIDA,
|
||||
v_inventario_sin_colores.CAMPOTECNICO, v_inventario_sin_colores.CODIGOTECNICO,
|
||||
v_inventario_sin_colores.DISENOTECNICO,
|
||||
|
||||
/* REFERENCIA_PROV as REFERENCIA_PROVEEDOR, PRECIO_NETO, COSTE_UNIDADES, SE ELIMINAN LOS PRECIOS CON HASTA SABER QUE DECISIONES SE TOMAN*/
|
||||
|
||||
V_INV_STOCK_COLOR.COLOR1, V_INV_STOCK_COLOR.COLOR2,
|
||||
V_INV_STOCK_COLOR.COLOR3, V_INV_STOCK_COLOR.COLOR4,
|
||||
V_INV_STOCK_COLOR.COLOR5, V_INV_STOCK_COLOR.COLOR6,
|
||||
V_INV_STOCK_COLOR.COLOR7, V_INV_STOCK_COLOR.COLOR8,
|
||||
V_INV_STOCK_COLOR.COLOR9, V_INV_STOCK_COLOR.COLOR10,
|
||||
V_INV_STOCK_COLOR.COLOR11, V_INV_STOCK_COLOR.COLOR12,
|
||||
|
||||
v_inventario_sin_colores.STOCK, v_inventario_sin_colores.UNIDADES_ALMACEN,
|
||||
v_inventario_sin_colores.RESERVA, v_inventario_sin_colores.PENDIENTE_RECEPCION
|
||||
|
||||
|
||||
FROM v_inventario_sin_colores
|
||||
LEFT JOIN V_INV_STOCK_COLOR ON ((V_INV_STOCK_COLOR.ID_ALMACEN = v_inventario_sin_colores.id_almacen) and (V_INV_STOCK_COLOR.ID_ARTICULO = v_inventario_sin_colores.ID_ARTICULO))
|
||||
ORDER BY v_inventario_sin_colores.ID_ARTICULO
|
||||
;
|
||||
|
||||
|
||||
/* View: V_OBRAS */
|
||||
CREATE VIEW V_OBRAS(
|
||||
ID,
|
||||
@ -4269,7 +4331,8 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
|
||||
FORMA_PAGO,
|
||||
REF_TIENDA_WEB,
|
||||
FECHA_PREVISTA_ENVIO,
|
||||
DATOS_BANCARIOS)
|
||||
DATOS_BANCARIOS,
|
||||
ID_VENDEDOR)
|
||||
AS
|
||||
SELECT
|
||||
PEDIDOS_CLIENTE.ID,
|
||||
@ -4307,12 +4370,14 @@ SELECT
|
||||
FORMAS_PAGO.DESCRIPCION,
|
||||
PEDIDOS_CLIENTE.REF_TIENDA_WEB,
|
||||
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
|
||||
PEDIDOS_CLIENTE.DATOS_BANCARIOS
|
||||
PEDIDOS_CLIENTE.DATOS_BANCARIOS,
|
||||
clientes_datos.id_agente
|
||||
FROM
|
||||
V_PED_CLI_SITUACION
|
||||
INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
|
||||
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
|
||||
LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO)
|
||||
left join clientes_datos on (clientes_datos.id_cliente = contactos.id)
|
||||
;
|
||||
|
||||
/**************************************************/
|
||||
@ -4473,6 +4538,46 @@ or ((v_ped_cli_detalle_colores.COLOR11 - coalesce(v_alb_cli_detalle_colores.COLO
|
||||
or ((v_ped_cli_detalle_colores.COLOR12 - coalesce(v_alb_cli_detalle_colores.COLOR12, 0)) <> 0)
|
||||
;
|
||||
|
||||
CREATE VIEW V_ARTICULOS_PENDIENTES(
|
||||
ID_ARTICULO,
|
||||
REFERENCIA,
|
||||
DESCRIPCION,
|
||||
COLOR1,
|
||||
COLOR2,
|
||||
COLOR3,
|
||||
COLOR4,
|
||||
COLOR5,
|
||||
COLOR6,
|
||||
COLOR7,
|
||||
COLOR8,
|
||||
COLOR9,
|
||||
COLOR10,
|
||||
COLOR11,
|
||||
COLOR12,
|
||||
TOTAL)
|
||||
AS
|
||||
select V_PED_CLI_ART_COLORES_PEND.ID_ARTICULO, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR1),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR2),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR3),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR4),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR5),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR6),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR7),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR8),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR9),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR10),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR11),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR12),
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR1) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR2) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR3) +
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR4) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR5) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR6) +
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR7) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR8) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR9) +
|
||||
SUM(V_PED_CLI_ART_COLORES_PEND.COLOR10)+SUM(V_PED_CLI_ART_COLORES_PEND.COLOR11) + SUM(V_PED_CLI_ART_COLORES_PEND.COLOR12)
|
||||
|
||||
from V_PED_CLI_ART_COLORES_PEND
|
||||
left join articulos on (articulos.ID = V_PED_CLI_ART_COLORES_PEND.ID_ARTICULO)
|
||||
group by 1,2,3
|
||||
;
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Primary Keys ****/
|
||||
@ -4564,6 +4669,7 @@ ALTER TABLE COMISIONES_LIQUIDADAS ADD CONSTRAINT FK_COMISIONES_LIQUIDADAS FOREIG
|
||||
ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT FK_EMPRESAS_CONTACTOS FOREIGN KEY (ID_CONTACTO) REFERENCES CONTACTOS (ID) ON DELETE CASCADE ON UPDATE CASCADE;
|
||||
ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT FK_EMPRESAS_DATOS_BANCO FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE CASCADE ON UPDATE CASCADE;
|
||||
ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT FK_FACTURAS_CLIENTE_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
|
||||
ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT FK_FACTURAS_CLIENTE_COMISION FOREIGN KEY (ID_COMISION_LIQUIDADA) REFERENCES COMISIONES_LIQUIDADAS (ID) ON DELETE SET NULL ON UPDATE CASCADE;
|
||||
ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
|
||||
ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS2 FOREIGN KEY (ID_ALMACEN) REFERENCES ALMACENES (ID);
|
||||
ALTER TABLE OBRAS_EJECUCIONES_PRESUPUESTOS ADD CONSTRAINT FK_OBRAS_EJE_PRE_1 FOREIGN KEY (ID_EJECUCION) REFERENCES OBRAS_EJECUCIONES (ID);
|
||||
@ -4684,7 +4790,7 @@ CREATE INDEX IDX_REMESAS_CLIENTE ON REMESAS_CLIENTE (ID_DATOS_BANCO);
|
||||
CREATE INDEX REMESAS_CLIENTE_IDX1 ON REMESAS_CLIENTE (FECHA_REMESA);
|
||||
CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO);
|
||||
CREATE INDEX REMESAS_PROVEEDOR_IDX1 ON REMESAS_PROVEEDOR (FECHA_REMESA);
|
||||
|
||||
CREATE UNIQUE INDEX ARTICULOS_IDX1 ON ARTICULOS (REFERENCIA);
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Stored Procedures ****/
|
||||
|
||||
@ -18,8 +18,10 @@ INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (14,
|
||||
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (15, NULL, 'REF_VENDEDORES', '0000001', 'Ref. vendedores');
|
||||
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (16, 2, 'REF_FACTURAS_CLIENTE', '10-000001', 'Ref. facturas de cliente');
|
||||
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (17, 2, 'REF_REMESAS_CLIENTE', '10-000001', 'Ref. remesas de cliente');
|
||||
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (18, 1, 'REF_COMISIONES', '10/001', 'Ref. comisiones de vendedor');
|
||||
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (19, 2, 'REF_COMISIONES', '10-001', 'Ref. comisiones de vendedor');
|
||||
|
||||
SET GENERATOR GEN_REFERENCIAS_ID TO 18;
|
||||
SET GENERATOR GEN_REFERENCIAS_ID TO 20;
|
||||
COMMIT WORK;
|
||||
|
||||
INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (1, 'IVA16', 'IVA16', 16, 4);
|
||||
|
||||
@ -113,6 +113,7 @@ type
|
||||
FController : IEmpresasController;
|
||||
FProvincias : TStringList;
|
||||
FPoblaciones : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FFormasPago: TStringList;
|
||||
FTiposIVA: TStringList;
|
||||
procedure CargarProvincias;
|
||||
@ -192,27 +193,29 @@ end;
|
||||
procedure TfrViewEmpresa.CargarPoblaciones;
|
||||
var
|
||||
i : integer;
|
||||
AID : Integer;
|
||||
begin
|
||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(AID);
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewEmpresa.CargarProvincias;
|
||||
@ -286,6 +289,7 @@ end;
|
||||
constructor TfrViewEmpresa.Create(AOwner : TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
bModificarCatalogo := False;
|
||||
|
||||
@ -3,6 +3,8 @@ unit uPlugins_Intf;
|
||||
interface
|
||||
|
||||
const
|
||||
MODULENAME_CONTACTOS = 'Contactos_plugin.bpl';
|
||||
|
||||
MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl';
|
||||
MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl';
|
||||
MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl';
|
||||
@ -13,9 +15,15 @@ const
|
||||
MODULENAME_ALBARANES_PROVEEDOR = 'AlbaranesProveedor_plugin.bpl';
|
||||
MODULENAME_FACTURAS_PROVEEDOR = 'FacturasProveedor_plugin.bpl';
|
||||
MODULENAME_RECIBOS_PROVEEDOR = 'RecibosProveedor_plugin.bpl';
|
||||
|
||||
MODULENAME_COMISIONES = 'Comisiones_plugin.bpl';
|
||||
|
||||
type
|
||||
IMCContactos = interface(IInterface)
|
||||
['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}']
|
||||
procedure VerClientesVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor : String = '');
|
||||
end;
|
||||
|
||||
IMCPresupuestosCliente = interface(IInterface)
|
||||
['{D09E6FFF-50C7-48E2-8380-4CB57B74BB93}']
|
||||
procedure VerPresupuestos(const ID_Cliente: Integer;
|
||||
@ -26,6 +34,8 @@ type
|
||||
['{6ACDE97F-AC9A-406C-8ADC-3B730D01CB89}']
|
||||
procedure VerPedidos(const ID_Cliente: Integer;
|
||||
const ANombreCliente : String = '');
|
||||
procedure VerPedidosVendedor(const ID_Vendedor: Integer;
|
||||
const ANombreVendedor : String = '');
|
||||
end;
|
||||
|
||||
IMCAlbaranesCliente = interface(IInterface)
|
||||
@ -72,6 +82,10 @@ type
|
||||
const ANombreProveedor : String = '');
|
||||
end;
|
||||
|
||||
IMCComisiones = interface(IInterface)
|
||||
['{DE38F25C-4B46-4553-A8C1-B07A58585A1C}']
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
|
||||
@ -53,57 +53,57 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Almacenes\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\tb2k_d11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\SpTBXLib_d11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\tb2k_d11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Controller\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
@ -12,9 +12,8 @@ object dmConexion: TdmConexion
|
||||
object ROChannel: TROWinInetHTTPChannel
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
TrustInvalidCA = False
|
||||
DispatchOptions = []
|
||||
ServerLocators = <>
|
||||
DispatchOptions = []
|
||||
Left = 40
|
||||
Top = 24
|
||||
end
|
||||
|
||||
@ -86,8 +86,9 @@ begin
|
||||
|
||||
{ Si la tabla está abierta, la cerramos antes de aplicar los filtros
|
||||
porque por cada cambio en el filtro se hacen llamadas internas de TDADataTable. }
|
||||
if ASource.Active then
|
||||
ASource.Close;
|
||||
//Se comenta porque el cierre y apertura de la tabla ocasiona el recuperar todos los registros nuevamente
|
||||
// if ASource.Active then
|
||||
// ASource.Close;
|
||||
|
||||
// Si la tabla origen viene con un filtro, lo guardamos para luego restablecerlo.
|
||||
if ASource.Filtered then
|
||||
@ -121,8 +122,9 @@ begin
|
||||
ATarget.LogicalName := ASource.LogicalName; // We need to specify new dataset LogicalName
|
||||
ATarget.RemoteFetchEnabled := False; // "Desconectamos" la tabla destino del servidor
|
||||
|
||||
if not ASource.Active then
|
||||
ASource.Open;
|
||||
//Se comenta porque el cierre y apertura de la tabla ocasiona el recuperar todos los registros nuevamente
|
||||
// if not ASource.Active then
|
||||
// ASource.Open;
|
||||
|
||||
ASource.First;
|
||||
|
||||
|
||||
@ -1,6 +1,7 @@
|
||||
program FactuGES;
|
||||
|
||||
uses
|
||||
ExceptionLog,
|
||||
Forms,
|
||||
Windows,
|
||||
SysUtils,
|
||||
|
||||
@ -54,7 +54,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,2,0
|
||||
PRODUCTVERSION 1,0,2,0
|
||||
FILEVERSION 1,0,8,0
|
||||
PRODUCTVERSION 1,0,8,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "1.0.2.0\0"
|
||||
VALUE "FileVersion", "1.0.8.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "1.0.2.0\0"
|
||||
VALUE "ProductVersion", "1.0.8.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -27,7 +27,7 @@ begin
|
||||
// LoadModule('Fabricantes_plugin.bpl');
|
||||
// LoadModule('UnidadesMedida_plugin.bpl');
|
||||
|
||||
LoadModule('Contactos_plugin.bpl');
|
||||
LoadModule(MODULENAME_CONTACTOS);
|
||||
|
||||
LoadModule('Almacenes_plugin.bpl');
|
||||
// LoadModule('Obras_plugin.bpl');
|
||||
@ -53,7 +53,8 @@ begin
|
||||
LoadModule('Inventario_plugin.bpl');
|
||||
LoadModule('HistoricoMovimientos_plugin.bpl');
|
||||
|
||||
// LoadModule('GestorInformes_plugin.bpl');
|
||||
LoadModule(MODULENAME_COMISIONES);
|
||||
LoadModule('GestorInformes_plugin.bpl');
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -59,32 +59,32 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Servidor\Base.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxExtCommonD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPScxPCProdD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Servidor\frx11.dcp" />
|
||||
<DCCReference Include="..\Servidor\frxe11.dcp" />
|
||||
<DCCReference Include="..\Servidor\fs11.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Servidor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxPScxExtCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxPScxPCProdD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -94,6 +94,9 @@ object fEditorBase: TfEditorBase
|
||||
Action = actGuardarCerrar
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object SpTBXItem1: TSpTBXItem
|
||||
Action = actGuardarYNuevo
|
||||
end
|
||||
object TBXItem27: TSpTBXItem
|
||||
Action = actGuardar
|
||||
end
|
||||
@ -395,6 +398,14 @@ object fEditorBase: TfEditorBase
|
||||
ImageIndex = 20
|
||||
OnExecute = actDuplicarExecute
|
||||
end
|
||||
object actGuardarYNuevo: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Guardar y nuevo'
|
||||
Enabled = False
|
||||
ImageIndex = 17
|
||||
ShortCut = 112
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
object SmallImages: TPngImageList
|
||||
ShareImages = True
|
||||
|
||||
@ -109,6 +109,8 @@ type
|
||||
TBXSeparatorItem15: TSpTBXSeparatorItem;
|
||||
StatusBarImages: TPngImageList;
|
||||
StatusBar: TJvStatusBar;
|
||||
actGuardarYNuevo: TAction;
|
||||
SpTBXItem1: TSpTBXItem;
|
||||
procedure actCerrarExecute(Sender: TObject);
|
||||
procedure actGuardarCerrarExecute(Sender: TObject);
|
||||
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
||||
|
||||
@ -20,8 +20,15 @@ inherited fEditorColores: TfEditorColores
|
||||
inherited pnlBotones: TPanel
|
||||
Top = 179
|
||||
Width = 767
|
||||
ExplicitTop = 179
|
||||
ExplicitTop = 183
|
||||
ExplicitWidth = 767
|
||||
object Label14: TLabel [0]
|
||||
Left = 8
|
||||
Top = 6
|
||||
Width = 137
|
||||
Height = 13
|
||||
Caption = 'F1 - Aceptar Esc - Cancelar'
|
||||
end
|
||||
inherited btnAceptar: TButton
|
||||
Left = 595
|
||||
Top = 6
|
||||
@ -638,6 +645,7 @@ inherited fEditorColores: TfEditorColores
|
||||
inherited ActionList1: TActionList
|
||||
Top = 0
|
||||
inherited actAceptar: TAction
|
||||
ShortCut = 112
|
||||
OnExecute = actAceptarExecute
|
||||
end
|
||||
inherited actCancelar: TAction
|
||||
|
||||
@ -49,6 +49,7 @@ type
|
||||
lColor10: TLabel;
|
||||
lColor11: TLabel;
|
||||
lColor12: TLabel;
|
||||
Label14: TLabel;
|
||||
procedure actAceptarExecute(Sender: TObject);
|
||||
procedure actCancelarExecute(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
@ -100,6 +101,7 @@ procedure TfEditorColores.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
PonerTituloArticulo;
|
||||
eColor1.SetFocus;
|
||||
end;
|
||||
|
||||
function TfEditorColores.GetTotal: Double;
|
||||
|
||||
@ -8,6 +8,12 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
ExplicitHeight = 495
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object JvEnterAsTab1: TJvEnterAsTab [0]
|
||||
Left = 10
|
||||
Top = 6
|
||||
Width = 28
|
||||
Height = 28
|
||||
end
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 901
|
||||
ExplicitWidth = 901
|
||||
@ -66,7 +72,7 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
end
|
||||
end
|
||||
end
|
||||
object pgPaginas: TPageControl [2]
|
||||
object pgPaginas: TPageControl [3]
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 79
|
||||
@ -77,10 +83,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
TabOrder = 2
|
||||
object pagGeneral: TTabSheet
|
||||
Caption = 'General'
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
|
||||
@ -11,7 +11,7 @@ uses
|
||||
uViewBase, JvAppStorage, JvAppRegistryStorage,
|
||||
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels,
|
||||
JvExComCtrls, JvStatusBar, uDAInterfaces, cxControls, cxContainer, cxEdit,
|
||||
cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
|
||||
cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
|
||||
|
||||
type
|
||||
IEditorDBItem = interface(IEditorDBBase)
|
||||
@ -23,6 +23,7 @@ type
|
||||
pagGeneral: TTabSheet;
|
||||
imgStatus: TImage;
|
||||
lblDesbloquear: TcxLabel;
|
||||
JvEnterAsTab1: TJvEnterAsTab;
|
||||
procedure lblDesbloquearClick(Sender: TObject);
|
||||
protected
|
||||
procedure EliminarInterno; override;
|
||||
|
||||
@ -30,7 +30,7 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
DockPos = 0
|
||||
DragHandleStyle = dhDouble
|
||||
TabOrder = 1
|
||||
ExplicitWidth = 600
|
||||
ExplicitWidth = 457
|
||||
inherited TBXItem29: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -59,10 +59,9 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
inherited TBXSeparatorItem2: TSpTBXSeparatorItem [15]
|
||||
Visible = True
|
||||
end
|
||||
inherited TBXItem25: TSpTBXItem
|
||||
Visible = False
|
||||
inherited TBXItem23: TSpTBXItem [16]
|
||||
end
|
||||
inherited TBXSeparatorItem11: TSpTBXSeparatorItem
|
||||
inherited TBXItem25: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
object TBXItem36: TSpTBXItem [19]
|
||||
@ -75,6 +74,9 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
object TBXItem938: TSpTBXItem [21]
|
||||
Action = actExpandir
|
||||
end
|
||||
inherited TBXSeparatorItem11: TSpTBXSeparatorItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem28: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -256,6 +258,8 @@ inherited fEditorGridBase: TfEditorGridBase
|
||||
object actExportarExcel: TAction
|
||||
Category = 'Archivo'
|
||||
Caption = 'Exportar a fichero Excel...'
|
||||
Enabled = False
|
||||
Visible = False
|
||||
OnExecute = actExportarExcelExecute
|
||||
OnUpdate = actExportarExcelUpdate
|
||||
end
|
||||
|
||||
@ -1,26 +1,25 @@
|
||||
inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
Width = 549
|
||||
Height = 109
|
||||
Width = 629
|
||||
Height = 136
|
||||
Visible = False
|
||||
ExplicitWidth = 549
|
||||
ExplicitHeight = 109
|
||||
ExplicitWidth = 629
|
||||
ExplicitHeight = 136
|
||||
object TBXDockablePanel1: TSpTBXDockablePanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 549
|
||||
Height = 109
|
||||
Width = 629
|
||||
Height = 136
|
||||
Caption = 'TBXDockablePanel1'
|
||||
Align = alClient
|
||||
DockMode = dmCannotFloatOrChangeDocks
|
||||
TabOrder = 0
|
||||
ShowCaption = False
|
||||
ShowCaptionWhenDocked = False
|
||||
ExplicitHeight = 105
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 549
|
||||
Height = 73
|
||||
Width = 629
|
||||
Height = 97
|
||||
Align = alTop
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
@ -67,7 +66,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
Width = 100
|
||||
end
|
||||
object edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 198
|
||||
Left = 225
|
||||
Top = 37
|
||||
Properties.OnChange = OnCamposFiltroChange
|
||||
Style.HotTrack = False
|
||||
@ -87,7 +86,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
Width = 100
|
||||
end
|
||||
object eLista: TcxComboBox
|
||||
Left = 332
|
||||
Left = 375
|
||||
Top = 37
|
||||
Properties.DropDownListStyle = lsEditFixedList
|
||||
Properties.OnChange = OnCamposFiltroChange
|
||||
@ -99,6 +98,27 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
TabOrder = 3
|
||||
Width = 215
|
||||
end
|
||||
object edtNumFinFiltro: TcxSpinEdit
|
||||
Left = 225
|
||||
Top = 64
|
||||
Properties.ImmediatePost = True
|
||||
Properties.SpinButtons.Visible = False
|
||||
Properties.ValueType = vtInt
|
||||
Properties.OnChange = OnCamposFiltroChange
|
||||
Style.HotTrack = False
|
||||
TabOrder = 5
|
||||
Width = 113
|
||||
end
|
||||
object edtNumIniFiltro: TcxSpinEdit
|
||||
Left = 87
|
||||
Top = 64
|
||||
Properties.ImmediatePost = True
|
||||
Properties.SpinButtons.Visible = False
|
||||
Properties.OnChange = OnCamposFiltroChange
|
||||
Style.HotTrack = False
|
||||
TabOrder = 4
|
||||
Width = 121
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
AlignHorz = ahParentManaged
|
||||
AlignVert = avParentManaged
|
||||
@ -137,13 +157,30 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object lgroupnum: TdxLayoutGroup
|
||||
CaptionOptions.Text = 'New Group'
|
||||
Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Entre el:'
|
||||
Control = edtNumIniFiltro
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
CaptionOptions.Text = 'y'
|
||||
Control = edtNumFinFiltro
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
AlignWithMargins = True
|
||||
Left = 10
|
||||
Top = 73
|
||||
Width = 539
|
||||
Top = 97
|
||||
Width = 619
|
||||
Height = 30
|
||||
Margins.Left = 10
|
||||
Margins.Top = 0
|
||||
@ -156,7 +193,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase
|
||||
object tbxBotones: TSpTBXToolbar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 539
|
||||
Width = 619
|
||||
Height = 30
|
||||
Align = alTop
|
||||
AutoResize = False
|
||||
|
||||
@ -8,7 +8,7 @@ uses
|
||||
SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList,
|
||||
cxGraphics, dxLayoutLookAndFeels, dxLayoutControl, cxDropDownEdit, cxMaskEdit,
|
||||
cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase, uDMBase,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
|
||||
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters, cxSpinEdit;
|
||||
|
||||
type
|
||||
IViewFiltroBase = interface(IViewBase)
|
||||
@ -45,6 +45,11 @@ type
|
||||
TBXAlignmentPanel1: TSpTBXDockablePanel;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
eLista: TcxComboBox;
|
||||
edtNumFinFiltro: TcxSpinEdit;
|
||||
dxLayoutControl1Item5: TdxLayoutItem;
|
||||
edtNumIniFiltro: TcxSpinEdit;
|
||||
dxLayoutControl1Item6: TdxLayoutItem;
|
||||
lgroupnum: TdxLayoutGroup;
|
||||
procedure OnCamposFiltroChange(Sender: TObject);
|
||||
procedure actQuitarFiltroExecute(Sender: TObject);
|
||||
|
||||
@ -59,10 +64,10 @@ type
|
||||
procedure SetTexto(const Value: String);
|
||||
|
||||
protected
|
||||
procedure LimpiarCampos; virtual;
|
||||
function ValidarCampos: Boolean; virtual;
|
||||
|
||||
public
|
||||
procedure LimpiarCampos; virtual;
|
||||
function GetModified: Boolean;
|
||||
property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange;
|
||||
property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros;
|
||||
@ -108,6 +113,9 @@ begin
|
||||
txtFiltroTodo.Clear;
|
||||
edtFechaIniFiltro.Clear;
|
||||
edtFechaFinFiltro.Clear;
|
||||
eLista.Clear;
|
||||
edtNumIniFiltro.Clear;
|
||||
edtNumFinFiltro.Clear;
|
||||
end;
|
||||
|
||||
procedure TfrViewFiltroBase.OnCamposFiltroChange(Sender: TObject);
|
||||
@ -129,7 +137,18 @@ begin
|
||||
edtFechaIniFiltro.SetFocus;
|
||||
Result := False;
|
||||
end
|
||||
end;
|
||||
end;
|
||||
|
||||
if (lgroupnum.Visible) then
|
||||
if (VarIsNull(edtNumIniFiltro.Value <> 0) and (edtNumFinFiltro.Value <> 0)) then
|
||||
begin
|
||||
if (edtNumIniFiltro.Value > edtNumFinFiltro.Value) then
|
||||
begin
|
||||
ShowWarningMessage('La cantidad de inicio debe ser inferior a la cantidad final');
|
||||
edtNumIniFiltro.SetFocus;
|
||||
Result := False;
|
||||
end
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewFiltroBase.actQuitarFiltroExecute(Sender: TObject);
|
||||
|
||||
File diff suppressed because one or more lines are too long
67
Source/Informes/1/InformeIVAClientes.fr3
Normal file
67
Source/Informes/1/InformeIVAClientes.fr3
Normal file
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
65
Source/Informes/2/InformeIVAClientes.fr3
Normal file
65
Source/Informes/2/InformeIVAClientes.fr3
Normal file
@ -0,0 +1,65 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="40342,8057137847" ScriptLanguage="PascalScript" ScriptText.Text="begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
|
||||
<TfrxLineView Name="Line1" Align="baLeft" Left="0" Top="129,10235" Width="312" Height="0" ShowHint="False" Frame.Typ="4" Frame.Width="4"/>
|
||||
<TfrxShapeView Name="Shape5" Left="513" Top="4" Width="495" Height="129" ShowHint="False" Color="-16777211"/>
|
||||
<TfrxMemoView Name="NombreCliente" Left="521,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA DE FACTURAS DE CLIENTE"/>
|
||||
<TfrxMemoView Name="Memo3" Left="521,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [<Date>] - Página [Page#] de [TotalPages#] [TextoParametros]"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="552" Width="1009,13451" PrintOnLastPage="False">
|
||||
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="212" Width="1009,13451" Condition="frxDBInformeListadoFacturas."MES"" ReprintOnNewPage="True">
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="88,77953" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
|
||||
<TfrxMemoView Name="Memo28" Left="88,77953" Top="25" Width="363,75" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||
<TfrxMemoView Name="Memo49" Left="452,53" Top="25" Width="81,33859" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
|
||||
<TfrxMemoView Name="Memo50" Left="626,54" Top="25" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
||||
<TfrxMemoView Name="Memo51" Left="721,54" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
||||
<TfrxMemoView Name="Memo52" Left="909,78742599" Top="25" Width="102" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo8" Left="533,87" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
|
||||
<TfrxMemoView Name="Memo7" Left="0" Top="3,77953" Width="485,37013" Height="15" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas."TITULO"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="816" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe RE"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxMasterData Name="DatosMaestros1" Height="17,00787402" Left="0" Top="272" Width="1009,13451" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="88,78" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo4" Left="88,78" Top="0" Width="363,75" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="452,53" Top="0" Width="81,34" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."NIF_CIF"]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="533,87" Top="0" Width="92,68" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo29" Left="626,54" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo30" Left="721,54" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_IVA"]"/>
|
||||
<TfrxMemoView Name="Memo31" Left="912,55" Top="0" Width="99" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo2" Left="817" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas."IMPORTE_RE"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupFooter Name="" Height="16" Left="0" Top="309" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo6" Left="911" Top="0,37774772" Width="100" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_TOTAL">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo14" Left="721" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_IVA">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo15" Left="626" Top="0,37774772" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."BASE_IMPONIBLE">,DatosMaestros1)]"/>
|
||||
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="625" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas."TITULO"]:"/>
|
||||
<TfrxMemoView Name="Memo5" Left="816" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturas."IMPORTE_RE">,DatosMaestros1)]"/>
|
||||
</TfrxGroupFooter>
|
||||
<TfrxHeader Name="Header1" Height="75" Left="0" Top="345" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo13" Left="0" Top="60" Width="383,62987" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Resumen por meses de facturas de cliente"/>
|
||||
<TfrxMemoView Name="Memo16" Left="383,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
||||
<TfrxMemoView Name="Memo17" Left="478,62987" Top="60" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
|
||||
<TfrxMemoView Name="Memo22" Left="668,63" Top="60" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
|
||||
<TfrxMemoView Name="Memo23" Left="0" Top="23" Width="485,37013" Height="20,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por tipos de IVA de las facturas de cliente"/>
|
||||
<TfrxMemoView Name="Memo19" Left="573" Top="60" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe RE"/>
|
||||
</TfrxHeader>
|
||||
<TfrxMasterData Name="DatosMAestros2" Height="17" Left="0" Top="440" Width="1009,13451" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
|
||||
<TfrxMemoView Name="Memo9" Left="0" Top="0" Width="383,63" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen."IVA"]"/>
|
||||
<TfrxMemoView Name="Memo10" Left="383,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo11" Left="478,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen."IMPORTE_IVA"]"/>
|
||||
<TfrxMemoView Name="Memo12" Left="668,63" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL"]"/>
|
||||
<TfrxMemoView Name="Memo33" Left="574" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen."IMPORTE_RE"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxReportSummary Name="ReportSummary1" Height="15" Left="0" Top="517" Width="1009,13451">
|
||||
<TfrxMemoView Name="Memo24" Align="baLeft" Left="0" Top="0" Width="383,62987" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total: "/>
|
||||
<TfrxMemoView Name="Memo25" Align="baLeft" Left="383,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturasResumen."BASE_IMPONIBLE">,DatosMaestros2)]"/>
|
||||
<TfrxMemoView Name="Memo26" Align="baLeft" Left="478,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturasResumen."IMPORTE_IVA">,DatosMaestros2)]"/>
|
||||
<TfrxMemoView Name="Memo32" Align="baLeft" Left="668,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturasResumen."IMPORTE_TOTAL">,DatosMaestros2)]"/>
|
||||
<TfrxMemoView Name="Memo34" Align="baLeft" Left="573,62987" Top="0" Width="95" Height="15" ShowHint="False" Color="-16777211" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(<frxDBInformeListadoFacturasResumen."IMPORTE_RE">,DatosMaestros2)]"/>
|
||||
</TfrxReportSummary>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40276,6903403472" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Memo30OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) then begin Memo29.Visible := False; Memo30.Visible := False; Memo24.Visible := False; Memo25.Visible := False; end else begin Memo29.Visible := True; Memo30.Visible := True; Memo24.Visible := True; Memo25.Visible := True; end; end; procedure Memo34OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo33.Visible := False; Memo34.Visible := False; Memo31.Visible := False; Memo32.Visible := False; end else begin Memo33.Visible := True; Memo34.Visible := True; Memo31.Visible := True; Memo32.Visible := True; end; end; procedure Line3OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) and (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo18.Visible := False; Memo20.Visible := False; end else begin Memo18.Visible := True; Memo20.Visible := True; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40365,5537128704" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Memo30OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) then begin Memo29.Visible := False; Memo30.Visible := False; Memo24.Visible := False; Memo25.Visible := False; end else begin Memo29.Visible := True; Memo30.Visible := True; Memo24.Visible := True; Memo25.Visible := True; end; end; procedure Memo34OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo33.Visible := False; Memo34.Visible := False; Memo31.Visible := False; Memo32.Visible := False; end else begin Memo33.Visible := True; Memo34.Visible := True; Memo31.Visible := True; Memo32.Visible := True; end; end; procedure Line3OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) and (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo18.Visible := False; Memo20.Visible := False; end else begin Memo18.Visible := True; Memo20.Visible := True; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
@ -35,15 +35,15 @@
|
||||
<TfrxLineView Name="Line2" Left="0" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line3" Left="86" Top="269,50406638" Width="0" Height="628" OnBeforePrint="Line3OnBeforePrint" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Align="baLeft" Left="506,71653543" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="362" Height="120,94488433" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
|
||||
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="125,42517" Width="342,2047" Height="111,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="<b>[frxDBCabecera."NOMBRE"]</b> [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="0" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Albarán"/>
|
||||
<TfrxMemoView Name="Memo22" Left="0" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="111,11" Width="362" Height="130,94" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
|
||||
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="113,42517" Width="342,2047" Height="123,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="<b>[frxDBCabecera."NOMBRE_COMERCIAL"]</b> [frxDBCabecera."NOMBRE"] [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="0" Top="111,84" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Albarán"/>
|
||||
<TfrxMemoView Name="Memo22" Left="0" Top="132,52" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="60,5906" Top="224,09462" Width="62,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[<Pagina>]/[<TotalPaginas>]"/>
|
||||
<TfrxMemoView Name="Memo2" Left="1" Top="224,09462" Width="60,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Página nº:"/>
|
||||
<TfrxMemoView Name="Memo28" Left="3,5906" Top="51" Width="183,46444" Height="33,78740157" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-24" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" Text="ALBARÁN"/>
|
||||
<TfrxMemoView Name="Memo3" Left="130,44094" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Fecha Alb."/>
|
||||
<TfrxMemoView Name="Memo4" Left="130,44094" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."FECHA_ALBARAN"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="130,44094" Top="111,84" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Fecha Alb."/>
|
||||
<TfrxMemoView Name="Memo4" Left="130,44094" Top="132,52" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."FECHA_ALBARAN"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="47,03154" Top="166,44094" Width="85,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REF_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo6" Left="0,44094" Top="166,44094" Width="45,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Cliente:"/>
|
||||
<TfrxMemoView Name="Memo7" Left="166,03154" Top="166,44094" Width="93,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."NIF_CIF"]"/>
|
||||
|
||||
49
Source/Informes/InfComision.fr3
Normal file
49
Source/Informes/InfComision.fr3
Normal file
@ -0,0 +1,49 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="" ReportOptions.LastChange="40360,6828532292" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="begin end. " ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C4700000020446174615365743D225270744661637475726173436C69656E74652E6672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C0F000000204E616D653D22204665636861732200010C10000000204E616D653D224665636861496E692200010C10000000204E616D653D22466563686146696E220000055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C87000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band2" Height="83,08652142" Left="0" Top="16" Width="1046,92981">
|
||||
<TfrxMemoView Name="Memo15" Left="399,93723" Top="11,33859" Width="639,43352" Height="41,57483" ShowHint="False" Font.Charset="1" Font.Color="12632256" Font.Height="-32" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haRight" ParentFont="False" Text="LIQUIDACIONES DE COMISIONES"/>
|
||||
<TfrxMemoView Name="Memo7" Left="419,30736" Top="58,14966" Width="612,50433" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Página nº: [<Page#>] / [<TotalPages#>]"/>
|
||||
</TfrxPageHeader>
|
||||
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="255" Width="1046,92981" ColumnWidth="0" ColumnGap="0" DataSet="RptFacturasCliente.frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo2" Left="4" Top="2" Width="64,47248" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."FECHA_FACTURA"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="77,9765" Top="2" Width="63,47248" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo10" Left="235,80334" Top="1,88976378" Width="521,95292677" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo13" Left="149,1812" Top="2" Width="81,37013" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles."SITUACION"]"/>
|
||||
<TfrxLineView Name="Line8" Left="72,5906" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Left="145,51181102" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line10" Left="233,95275591" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line4" Left="763,46456693" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line3" Left="874,96062992" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line7" Left="1040,50393701" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line1" Left="0,37795276" Top="0" Width="0" Height="23,81102362" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo5" Left="765" Top="2" Width="105" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles."BASE_IMPONIBLE"]"/>
|
||||
<TfrxMemoView Name="Memo11" Left="878" Top="2" Width="50" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles."COMISION"]"/>
|
||||
<TfrxMemoView Name="Memo12" Left="934" Top="2" Width="103" Height="18,89765" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles."IMPORTE_COMISION"]"/>
|
||||
<TfrxLineView Name="Line2" Left="932" Top="0" Width="0" Height="22,81102362" ShowHint="False" Frame.Typ="1"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxGroupHeader Name="GroupHeader1" Height="75,5906" Left="0" Top="159" Width="1046,92981" Condition="frxDBCabecera."ID"" OutlineText="frxDBCabecera."ID"">
|
||||
<TfrxMemoView Name="Memo18" Left="931,07143" Top="52,91342" Width="109,92130622" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Imp. comisión "/>
|
||||
<TfrxMemoView Name="Memo27" Left="0" Top="0" Width="1040,8825" Height="52,91340291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxMemoView Name="Memo14" Left="60,25201" Top="30,23624" Width="412,18924" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo6" Left="174,99227" Top="3,77953" Width="253,44898" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo16" Left="525,35467" Top="3,77953" Width="948,8825" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBCabecera."FECHA"]"/>
|
||||
<TfrxMemoView Name="Memo17" Left="555,59091" Top="30,23624" Width="476,44125" Height="18,89765" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="[frxDBCabecera."DESCRIPCION"]"/>
|
||||
<TfrxMemoView Name="Memo20" Left="11,33859" Top="3,77952999999999" Width="160,75603" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº liquidación de comisiones:"/>
|
||||
<TfrxMemoView Name="Memo21" Left="480,00031" Top="3,77952999999999" Width="42,45671" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
|
||||
<TfrxMemoView Name="Memo22" Left="480,00031" Top="30,23624" Width="72,69295" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Descripción:"/>
|
||||
<TfrxMemoView Name="Memo25" Left="11,33859" Top="30,23624" Width="46,01577" Height="18,89765" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Agente:"/>
|
||||
<TfrxMemoView Name="Memo23" Left="0" Top="52,91342" Width="73,32282" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fec. factura"/>
|
||||
<TfrxMemoView Name="Memo1" Left="72,5906" Top="52,91342" Width="73,32282" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura"/>
|
||||
<TfrxMemoView Name="Memo3" Left="145,63791" Top="52,91342" Width="88,44094" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Situación"/>
|
||||
<TfrxMemoView Name="Memo4" Left="234,03958" Top="52,91342" Width="532,91355913" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Cliente"/>
|
||||
<TfrxMemoView Name="Memo24" Left="763,46464016" Top="52,91342" Width="113,38583898" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
||||
<TfrxMemoView Name="Memo8" Left="876" Top="53" Width="55,38583898" Height="22,67716291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="comisión"/>
|
||||
</TfrxGroupHeader>
|
||||
<TfrxGroupFooter Name="GroupFooter1" Height="41,57483" Left="0" Top="298" Width="1046,92981">
|
||||
<TfrxMemoView Name="Memo28" Left="0" Top="0" Width="1040,8825" Height="26,45669291" ShowHint="False" Color="16777215" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
|
||||
<TfrxMemoView Name="Memo30" Left="733,22882" Top="3,77953" Width="301,953" Height="19,11812" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Total comisión: [frxDBCabecera."IMPORTE_TOTAL"]"/>
|
||||
</TfrxGroupFooter>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40227,4339049421" ScriptLanguage="PascalScript" ScriptText.Text="procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBEtiquetas."CALLE_ENVIO"> <> '') then begin mCalleFiscal.Visible := False; mPoblacionFiscal.Visible := False; mCodigoPostalFiscal.Visible := False; end else begin mCalleEnvio.Visible := False; mPoblacionEnvio.Visible := False; mCodigoPostalEnvio.Visible := False; end; end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin // Memo5.lines.clear; end; begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3600000020446174615365743D2266727844424574697175657461732220446174615365744E616D653D226672784442457469717565746173220000095661726961626C657301010C10000000204E616D653D2220496E666F726D652200010C11000000204E616D653D224D657263616E6369612200010C0E000000204E616D653D2242756C746F73220000055374796C650100">
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40365,554343831" ScriptLanguage="PascalScript" ScriptText.Text="procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBEtiquetas."CALLE_ENVIO"> <> '') then begin mCalleFiscal.Visible := False; mPoblacionFiscal.Visible := False; mCodigoPostalFiscal.Visible := False; end else begin mCalleEnvio.Visible := False; mPoblacionEnvio.Visible := False; mCodigoPostalEnvio.Visible := False; end; end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin // Memo5.lines.clear; end; begin end. " ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3600000020446174615365743D2266727844424574697175657461732220446174615365744E616D653D226672784442457469717565746173220000095661726961626C657301010C10000000204E616D653D2220496E666F726D652200010C11000000204E616D653D224D657263616E6369612200010C0E000000204E616D653D2242756C746F73220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMasterData Name="MasterData1" Height="277" Left="0" Top="16" Width="718,1107" OnBeforePrint="MasterData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSet="frxDBEtiquetas" DataSetName="frxDBEtiquetas" RowCount="0">
|
||||
@ -12,6 +12,7 @@
|
||||
<TfrxMemoView Name="mCalleEnvio" Left="176" Top="136" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CALLE_ENVIO"]"/>
|
||||
<TfrxMemoView Name="mCodigoPostalEnvio" Left="176" Top="170" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."CODIGO_POSTAL_ENVIO"] [frxDBEtiquetas."POBLACION_ENVIO"] ([frxDBEtiquetas."PROVINCIA_ENVIO"])"/>
|
||||
<TfrxMemoView Name="Memo1" Left="176" Top="209" Width="427" Height="18" ShowHint="False" DisplayFormat.FormatStr="%g" Text="[Mercancia]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="176" Top="72" Width="427" Height="18" ShowHint="False" Text="[frxDBEtiquetas."NOMBRE_COMERCIAL"]"/>
|
||||
</TfrxMasterData>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40275,6904642245" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Memo30OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) then begin Memo29.Visible := False; Memo30.Visible := False; Memo24.Visible := False; Memo25.Visible := False; end else begin Memo29.Visible := True; Memo30.Visible := True; Memo24.Visible := True; Memo25.Visible := True; end; end; procedure Memo34OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo33.Visible := False; Memo34.Visible := False; Memo31.Visible := False; Memo32.Visible := False; end else begin Memo33.Visible := True; Memo34.Visible := True; Memo31.Visible := True; Memo32.Visible := True; end; end; procedure Line3OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) and (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo18.Visible := False; Memo20.Visible := False; end else begin Memo18.Visible := True; Memo20.Visible := True; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
|
||||
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="40365,5526718287" ScriptLanguage="PascalScript" ScriptText.Text="var Pagina: Variant; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; procedure PageHeader1OnBeforePrint(Sender: TfrxComponent); begin if not Engine.FinalPass then Set('TotalPaginas', (<TotalPaginas> + 1)); if Engine.FinalPass then Set('Pagina', (<Pagina> + 1)); end; procedure frxReportOnStartReport(Sender: TfrxComponent); begin Set('Pagina', 0); Set('TotalPaginas', 0); end; procedure Memo30OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) then begin Memo29.Visible := False; Memo30.Visible := False; Memo24.Visible := False; Memo25.Visible := False; end else begin Memo29.Visible := True; Memo30.Visible := True; Memo24.Visible := True; Memo25.Visible := True; end; end; procedure Memo34OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo33.Visible := False; Memo34.Visible := False; Memo31.Visible := False; Memo32.Visible := False; end else begin Memo33.Visible := True; Memo34.Visible := True; Memo31.Visible := True; Memo32.Visible := True; end; end; procedure Line3OnBeforePrint(Sender: TfrxComponent); begin if (<frxDBCabecera."DESCUENTO"> = 0) and (<frxDBCabecera."DESCUENTO2"> = 0) then begin Memo18.Visible := False; Memo20.Visible := False; end else begin Memo18.Visible := True; Memo20.Visible := True; end; end; begin end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C16000000204E616D653D222056697375616C697A6163696F6E2200010C13000000204E616D653D2253686F4C6F676F7469706F2200010C23000000204E616D653D22436F6E4F62736572766163696F6E6573496E636964656E63696173220000055374796C650100">
|
||||
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="373" Width="718,101251175" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
@ -35,15 +35,15 @@
|
||||
<TfrxLineView Name="Line2" Left="0" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line3" Left="86" Top="269,50406638" Width="0" Height="628" OnBeforePrint="Line3OnBeforePrint" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Align="baLeft" Left="612,43307086" Top="269,50406638" Width="0" Height="628" ShowHint="False" Frame.Color="8421504" Frame.Typ="1"/>
|
||||
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="121,10760667" Width="362" Height="120,94488433" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
|
||||
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="125,42517" Width="342,2047" Height="111,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="<b>[frxDBCabecera."NOMBRE"]</b> [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="0" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Pedido"/>
|
||||
<TfrxMemoView Name="Memo22" Left="0" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxShapeView Name="Shape4" Left="353,68243666" Top="111,11" Width="362" Height="130,94" ShowHint="False" Color="-16777211" Curve="2" Frame.Color="13056"/>
|
||||
<TfrxMemoView Name="Memo19" Left="358,56957333" Top="111,42517" Width="342,2047" Height="128,49612157" ShowHint="False" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaCenter" Text="<b>[frxDBCabecera."NOMBRE_COMERCIAL"]</b> [frxDBCabecera."NOMBRE"] [frxDBCabecera."CALLE"] [<frxDBCabecera."CODIGO_POSTAL">] [<frxDBCabecera."POBLACION">] [<frxDBCabecera."PROVINCIA">]"/>
|
||||
<TfrxMemoView Name="Memo21" Left="0" Top="111,84" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Nº Pedido"/>
|
||||
<TfrxMemoView Name="Memo22" Left="0" Top="132,52" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="60,5906" Top="224,09462" Width="62,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[<Pagina>]/[<TotalPaginas>]"/>
|
||||
<TfrxMemoView Name="Memo2" Left="1" Top="224,09462" Width="60,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Página nº:"/>
|
||||
<TfrxMemoView Name="Memo28" Left="3,5906" Top="51" Width="183,46444" Height="33,78740157" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-24" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" ParentFont="False" Text="PEDIDO"/>
|
||||
<TfrxMemoView Name="Memo3" Left="130,44094" Top="121,84261" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Fecha Ped."/>
|
||||
<TfrxMemoView Name="Memo4" Left="130,44094" Top="142,51979" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."FECHA_PEDIDO"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="130,44094" Top="111,84" Width="130,05504" Height="20" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Text="Fecha Ped."/>
|
||||
<TfrxMemoView Name="Memo4" Left="130,44094" Top="132,52" Width="129,90538" Height="17,00787157" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."FECHA_PEDIDO"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="47,03154" Top="166,44094" Width="85,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."REF_CLIENTE"]"/>
|
||||
<TfrxMemoView Name="Memo6" Left="0,44094" Top="166,44094" Width="45,85807" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="Cliente:"/>
|
||||
<TfrxMemoView Name="Memo7" Left="166,03154" Top="166,44094" Width="93,46444" Height="17,00787402" ShowHint="False" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."NIF_CIF"]"/>
|
||||
|
||||
@ -19,6 +19,7 @@
|
||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
|
||||
<Projects Include="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" />
|
||||
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
|
||||
<Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
|
||||
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
|
||||
@ -146,15 +147,6 @@
|
||||
<Target Name="AlbaranesCliente_plugin:Make">
|
||||
<MSBuild Projects="Plugin\AlbaranesCliente_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Clean">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -164,6 +156,15 @@
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Clean">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesProveedor_view">
|
||||
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -281,14 +282,23 @@
|
||||
<Target Name="FacturasCliente_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Clean">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;FacturasCliente_view;FacturasCliente_data;FacturasCliente_controller" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES_Server;FactuGES;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;FacturasCliente_view;FacturasCliente_data;FacturasCliente_controller;PedidosCliente_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;FacturasCliente_view:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES_Server:Clean;FactuGES:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;FacturasCliente_view:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PedidosCliente_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;FacturasCliente_view:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES_Server:Make;FactuGES:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;FacturasCliente_view:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PedidosCliente_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -49,10 +49,10 @@
|
||||
<DelphiCompile Include="AlbaranesCliente_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_data.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_data.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="uAlbaranesClienteController.pas" />
|
||||
<DCCReference Include="uAlbaranesClienteReportController.pas" />
|
||||
<DCCReference Include="uArticulosAlbaranClienteController.pas" />
|
||||
|
||||
Binary file not shown.
@ -588,8 +588,21 @@ end;
|
||||
procedure TAlbaranesClienteController.Ver(AAlbaran: IBizAlbaranCliente);
|
||||
var
|
||||
AEditor : IEditorAlbaranCliente;
|
||||
// AAlbaran2: IBizAlbaranCliente;
|
||||
// Esnuevo: Boolean;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
// Esnuevo := AAlbaran.ID < 0;
|
||||
//Es modificación
|
||||
// if not Esnuevo then
|
||||
// begin
|
||||
// AAlbaran2 := Buscar(AAlbaran.ID);
|
||||
// AAlbaran2.DataTable.Active := True;
|
||||
// end
|
||||
// else
|
||||
// AAlbaran2 := Nuevo;
|
||||
|
||||
RecuperarObjetos(AAlbaran);
|
||||
|
||||
if (AAlbaran.TIPO = CTE_TIPO_ALBARAN) then
|
||||
@ -614,6 +627,10 @@ begin
|
||||
//MODO CONSULTAR (Se deja la tabla como estaba)
|
||||
if AEditor.ReadOnly then
|
||||
SetDataTableReadOnly(AAlbaran.DataTable, False);
|
||||
|
||||
// if Esnuevo then
|
||||
// DuplicarRegistro(AAlbaran.DataTable, AAlbaran.DataTable, True, True, True);
|
||||
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
|
||||
@ -10,12 +10,12 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
Top = 16
|
||||
end
|
||||
object rda_AlbaranesCliente: TDARemoteDataAdapter
|
||||
DataStreamer = Bin2DataStreamer
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 43
|
||||
Top = 151
|
||||
end
|
||||
|
||||
@ -9,8 +9,7 @@ uses
|
||||
|
||||
uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente, uBizDetalleColoresAlbaranCliente,
|
||||
uIDataModuleAlbaranesClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
|
||||
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils,
|
||||
uDADataAdapter;
|
||||
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils;
|
||||
|
||||
type
|
||||
TDataModuleAlbaranesCliente = class(TDataModuleBase, IDataModuleAlbaranesCliente, IDataModuleAlbaranesClienteReport)
|
||||
|
||||
@ -69,17 +69,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
'ESCUENTO,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES' +
|
||||
'_CLIENTE.DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' ' +
|
||||
' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as RE' +
|
||||
'F_CLIENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CL' +
|
||||
'IENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, ' +
|
||||
'CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBL' +
|
||||
'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' +
|
||||
'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' +
|
||||
'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' +
|
||||
') AS CODIGO_POSTAL'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONT' +
|
||||
'ACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT ' +
|
||||
'OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ' +
|
||||
'V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID =' +
|
||||
' :ID'#10#10
|
||||
'F_CLIENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' CLIENTES_DATOS' +
|
||||
'.NOMBRE_COMERCIAL,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_A' +
|
||||
'LBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.POBLACION,'#10' V_ALB' +
|
||||
'ARANES_CLIENTE.PROVINCIA,'#10' V_ALBARANES_CLIENTE.CODIGO_POSTAL'#10#10'F' +
|
||||
'ROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.I' +
|
||||
'D = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT JOIN CLIENTES_DATOS O' +
|
||||
'N (CLIENTES_DATOS.ID_CLIENTE = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10'W' +
|
||||
'HERE V_ALBARANES_CLIENTE.ID = :ID'#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -181,6 +178,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'DATOS_BANCARIOS'
|
||||
TableField = 'DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_COMERCIAL'
|
||||
TableField = 'NOMBRE_COMERCIAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -240,7 +241,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
@ -248,7 +249,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
@ -273,6 +274,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
@ -427,18 +433,20 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
TargetTable = 'ALBARANES_CLIENTE_DETALLES'
|
||||
SQL =
|
||||
'SELECT V_ALBARANES_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLI' +
|
||||
'ENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE' +
|
||||
'.PERSONA_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTO' +
|
||||
'S_DIRECCIONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POB' +
|
||||
'LACION_FISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_EN' +
|
||||
'VIO,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRE' +
|
||||
'CCIONES.PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL ' +
|
||||
'AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL A' +
|
||||
'S CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN C' +
|
||||
'ONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LE' +
|
||||
'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
|
||||
'_contacto = V_ALBARANES_CLIENTE.ID_cliente)'#10'WHERE V_ALBARANES_CL' +
|
||||
'IENTE.ID = :ID'#10
|
||||
'ENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' CLIENTES_DATOS.NOMB' +
|
||||
'RE_COMERCIAL,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' CONTACTO' +
|
||||
'S.CALLE AS CALLE_FISCAL,'#10' CONTACTOS_DIRECCIONES.CALLE AS CALLE_' +
|
||||
'ENVIO,'#10' CONTACTOS.POBLACION AS POBLACION_FISCAL,'#10' CONTACTOS_DI' +
|
||||
'RECCIONES.POBLACION AS POBLACION_ENVIO,'#10' CONTACTOS.PROVINCIA AS' +
|
||||
' PROVINCIA_FISCAL,'#10' CONTACTOS_DIRECCIONES.PROVINCIA AS PROVINCI' +
|
||||
'A_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL AS CODIGO_POSTAL_FISCAL,'#10' CO' +
|
||||
'NTACTOS_DIRECCIONES.CODIGO_POSTAL AS CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' ' +
|
||||
' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V' +
|
||||
'_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIREC' +
|
||||
'CIONES ON (CONTACTOS_DIRECCIONES.ID_contacto = V_ALBARANES_CLIEN' +
|
||||
'TE.ID_cliente)'#10' LEFT JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_' +
|
||||
'CLIENTE = V_ALBARANES_CLIENTE.ID_cliente)'#10'WHERE V_ALBARANES_CLIE' +
|
||||
'NTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -504,6 +512,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DatasetField = 'CODIGO_POSTAL_ENVIO'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'CODIGO_POSTAL_ENVIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_COMERCIAL'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'NOMBRE_COMERCIAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Etiquetas'
|
||||
@ -527,6 +540,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
@ -883,7 +901,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
@ -891,7 +909,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO2'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO2'
|
||||
@ -916,6 +934,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
@ -1087,6 +1110,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
|
||||
@ -60,10 +60,10 @@ type
|
||||
tbl_Detalles: TDAMemDataTable;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
DABin2DataStreamer1: TDABin2DataStreamer;
|
||||
schReport: TDASchema;
|
||||
frxDBEtiquetas: TfrxDBDataset;
|
||||
DADSEtiquetas: TDADataSource;
|
||||
tbl_Etiquetas: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
private
|
||||
|
||||
@ -54,34 +54,34 @@
|
||||
<DelphiCompile Include="AlbaranesCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Base.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\vclx.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
|
||||
<DCCReference Include="uEditorAlbaranCliente.pas">
|
||||
<Form>fEditorAlbaranCliente</Form>
|
||||
|
||||
@ -203,74 +203,77 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Height = 51
|
||||
ExplicitWidth = 841
|
||||
ExplicitHeight = 51
|
||||
inherited ToolButton14: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 399
|
||||
inherited FontName: TJvFontComboBox [3]
|
||||
Left = 278
|
||||
Top = 0
|
||||
ExplicitLeft = 399
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit [4]
|
||||
Left = 423
|
||||
Top = 0
|
||||
Width = 250
|
||||
ExplicitLeft = 423
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 250
|
||||
end
|
||||
inherited UpDown1: TUpDown [5]
|
||||
Left = 673
|
||||
Top = 0
|
||||
ExplicitLeft = 673
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton13: TToolButton [6]
|
||||
Left = 544
|
||||
Top = 0
|
||||
Wrap = False
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton4: TToolButton [7]
|
||||
end
|
||||
inherited ToolButton6: TToolButton [8]
|
||||
Left = 56
|
||||
Wrap = False
|
||||
ExplicitLeft = 56
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 122
|
||||
Top = 27
|
||||
ExplicitLeft = 122
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 189
|
||||
Top = 27
|
||||
ExplicitLeft = 189
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 272
|
||||
Top = 27
|
||||
Wrap = False
|
||||
ExplicitLeft = 272
|
||||
ExplicitTop = 27
|
||||
ExplicitHeight = 22
|
||||
end
|
||||
inherited ToolButton6: TToolButton [7]
|
||||
Left = 552
|
||||
Top = 0
|
||||
ExplicitLeft = 552
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton7: TToolButton [8]
|
||||
Left = 618
|
||||
Top = 0
|
||||
ExplicitLeft = 618
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton8: TToolButton [9]
|
||||
Left = 0
|
||||
Top = 22
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton12: TToolButton [10]
|
||||
Top = 22
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited FontSize: TEdit [11]
|
||||
Left = 0
|
||||
Top = 49
|
||||
Width = 250
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
ExplicitWidth = 250
|
||||
end
|
||||
inherited UpDown1: TUpDown [12]
|
||||
Left = 250
|
||||
ExplicitLeft = 250
|
||||
inherited ToolButton14: TToolButton [12]
|
||||
Left = 280
|
||||
ExplicitLeft = 280
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 267
|
||||
Top = 49
|
||||
ExplicitLeft = 267
|
||||
ExplicitTop = 49
|
||||
Left = 345
|
||||
Top = 27
|
||||
ExplicitLeft = 345
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 412
|
||||
Top = 49
|
||||
ExplicitLeft = 412
|
||||
ExplicitTop = 49
|
||||
Left = 490
|
||||
Top = 27
|
||||
ExplicitLeft = 490
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 537
|
||||
Top = 49
|
||||
ExplicitLeft = 537
|
||||
ExplicitTop = 49
|
||||
Left = 615
|
||||
Top = 27
|
||||
ExplicitLeft = 615
|
||||
ExplicitTop = 27
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
@ -339,16 +342,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 607
|
||||
Width = 855
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 607
|
||||
ExplicitWidth = 855
|
||||
end
|
||||
inline frViewTotalesAlbaran1: TfrViewTotalesAlbaran [4]
|
||||
Left = 0
|
||||
Top = 464
|
||||
@ -372,18 +365,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
ExplicitWidth = 855
|
||||
ExplicitHeight = 143
|
||||
inherited Bevel3: TBevel
|
||||
Left = 338
|
||||
Left = 437
|
||||
Height = 201
|
||||
ExplicitLeft = 338
|
||||
ExplicitLeft = 437
|
||||
ExplicitHeight = 201
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 471
|
||||
Width = 342
|
||||
Height = 9
|
||||
ExplicitLeft = 471
|
||||
ExplicitWidth = 342
|
||||
ExplicitHeight = 9
|
||||
Left = 570
|
||||
ExplicitLeft = 570
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -393,24 +382,22 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 542
|
||||
Left = 641
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 542
|
||||
ExplicitLeft = 641
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 471
|
||||
Left = 570
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 471
|
||||
ExplicitWidth = 90
|
||||
Width = 90
|
||||
ExplicitLeft = 570
|
||||
end
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -420,41 +407,41 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 471
|
||||
Left = 570
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 471
|
||||
ExplicitLeft = 570
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 471
|
||||
Left = 570
|
||||
DataBinding.DataField = 'IMPORTE_NETO'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 471
|
||||
ExplicitLeft = 570
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 471
|
||||
Left = 570
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 471
|
||||
ExplicitLeft = 570
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 542
|
||||
Left = 641
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 542
|
||||
ExplicitLeft = 641
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -477,37 +464,28 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 190
|
||||
ExplicitLeft = 190
|
||||
Left = 289
|
||||
ExplicitLeft = 289
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited Panel1: TPanel
|
||||
Width = 185
|
||||
ExplicitWidth = 185
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited EditorActionList: TActionList [5]
|
||||
Left = 32
|
||||
Top = 96
|
||||
object actEnviarEMail: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Enviar por e-mail...'
|
||||
Enabled = False
|
||||
ImageIndex = 21
|
||||
Visible = False
|
||||
OnExecute = actEnviarEMailExecute
|
||||
OnUpdate = actEnviarEMailUpdate
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar [5]
|
||||
Top = 607
|
||||
Width = 855
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 607
|
||||
ExplicitWidth = 855
|
||||
end
|
||||
inherited SmallImages: TPngImageList [6]
|
||||
inherited SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
@ -1013,7 +991,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
end>
|
||||
Bitmap = {}
|
||||
end
|
||||
inherited LargeImages: TPngImageList [7]
|
||||
inherited LargeImages: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
@ -1809,10 +1787,23 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
end>
|
||||
Bitmap = {}
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage [8]
|
||||
inherited EditorActionList: TActionList [9]
|
||||
Left = 32
|
||||
Top = 96
|
||||
object actEnviarEMail: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Enviar por e-mail...'
|
||||
Enabled = False
|
||||
ImageIndex = 21
|
||||
Visible = False
|
||||
OnExecute = actEnviarEMailExecute
|
||||
OnUpdate = actEnviarEMailUpdate
|
||||
end
|
||||
end
|
||||
inherited dsDataTable: TDADataSource [10]
|
||||
Left = 24
|
||||
Top = 136
|
||||
end
|
||||
inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
|
||||
end
|
||||
end
|
||||
|
||||
@ -15,7 +15,7 @@ uses
|
||||
uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente,
|
||||
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
|
||||
uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids, uViewTotalesAlbaran,
|
||||
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
|
||||
cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
|
||||
|
||||
type
|
||||
TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente)
|
||||
@ -227,8 +227,8 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
|
||||
{var
|
||||
ADireccion : IBizDireccionesContacto;}
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
if Assigned(FAlbaran) then
|
||||
begin
|
||||
@ -245,7 +245,7 @@ begin
|
||||
end;
|
||||
|
||||
// Elegir la dirección de envio
|
||||
{ case FAlbaran.Cliente.Direcciones.RecordCount of
|
||||
case FAlbaran.Cliente.Direcciones.RecordCount of
|
||||
0 : begin
|
||||
ADireccion := NIL;
|
||||
//ShowWarningMessage('Este cliente no tiene ninguna dirección de envío en su ficha');
|
||||
@ -260,7 +260,7 @@ begin
|
||||
begin
|
||||
try
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
// FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
FController.CopiarDireccionEnvio(ADireccion, FAlbaran);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
@ -268,10 +268,10 @@ begin
|
||||
end
|
||||
else begin
|
||||
FController.QuitarDireccionEnvio(FAlbaran);
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := 0;
|
||||
// FAlbaran.Edit;
|
||||
// FAlbaran.IMPORTE_PORTE := 0;
|
||||
end;
|
||||
}
|
||||
|
||||
|
||||
// Si el pedido tiene detalles hay que mirar si los descuentos
|
||||
// para los artículos hay que cambiarlos.
|
||||
|
||||
@ -199,10 +199,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
inherited actAnchoAuto: TAction
|
||||
ImageIndex = 22
|
||||
end
|
||||
inherited actExportarExcel: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
object actGenerarFactura: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Generar factura'
|
||||
|
||||
@ -483,7 +483,7 @@ begin
|
||||
// end;
|
||||
// 100 : begin // Albaran nuevo vacio
|
||||
if FController.Anadir(Albaranes) then
|
||||
FController.Ver(Albaranes);
|
||||
FController.Ver(Albaranes);
|
||||
// end;
|
||||
// end;
|
||||
// end;
|
||||
|
||||
@ -137,6 +137,7 @@ type
|
||||
FFormasPago : IBizFormaPago;
|
||||
FFormasPagoController : IFormasPagoController;
|
||||
FProvincias : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FPoblaciones : TStringList;
|
||||
|
||||
procedure CargarProvincias;
|
||||
@ -243,27 +244,29 @@ end;
|
||||
procedure TfrViewAlbaranCliente.CargarPoblaciones;
|
||||
var
|
||||
i : integer;
|
||||
AID : Integer;
|
||||
begin
|
||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(AID);
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranCliente.CargarProvincias;
|
||||
|
||||
@ -1,15 +1,20 @@
|
||||
inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
Width = 802
|
||||
Height = 490
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
OnShow = CustomViewShow
|
||||
ExplicitWidth = 802
|
||||
ExplicitHeight = 490
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 65
|
||||
Width = 802
|
||||
Height = 362
|
||||
Height = 399
|
||||
RootLevelOptions.DetailTabsPosition = dtpTop
|
||||
OnActiveTabChanged = cxGridActiveTabChanged
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 802
|
||||
ExplicitHeight = 362
|
||||
ExplicitHeight = 399
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
|
||||
@ -87,9 +92,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
end
|
||||
object cxGridViewREF_PEDIDO: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'REF_PEDIDO'
|
||||
Visible = False
|
||||
BestFitMaxWidth = 45
|
||||
VisibleForCustomization = False
|
||||
Width = 39
|
||||
end
|
||||
object cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn
|
||||
@ -142,8 +145,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
end
|
||||
object cxGridViewPROVINCIA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'PROVINCIA'
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'PERSONA_CONTACTO'
|
||||
@ -193,10 +194,14 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 802
|
||||
Height = 65
|
||||
ExplicitWidth = 802
|
||||
ExplicitHeight = 65
|
||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||
Width = 802
|
||||
Height = 65
|
||||
ExplicitWidth = 802
|
||||
ExplicitHeight = 65
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 802
|
||||
ExplicitWidth = 802
|
||||
@ -217,25 +222,33 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
|
||||
Width = 228
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 257
|
||||
Left = 252
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 257
|
||||
ExplicitLeft = 252
|
||||
ExplicitWidth = 460
|
||||
Width = 460
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 638
|
||||
Left = 647
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 638
|
||||
ExplicitLeft = 647
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||
CaptionOptions.Text = 'Provincia:'
|
||||
Visible = True
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 792
|
||||
|
||||
@ -78,16 +78,25 @@ type
|
||||
procedure cxGridViewDataControllerCompare(
|
||||
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
||||
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
||||
procedure OnFiltroListaPropertiesChange(Sender: TObject);
|
||||
procedure OnFiltroListaPropertiesInitPopup(Sender: TObject);
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
procedure AnadirFiltroSituaciones;
|
||||
procedure AnadirFiltroFechas;
|
||||
procedure AnadirFiltroProvincia;
|
||||
|
||||
protected
|
||||
FProvincias : TStringList;
|
||||
FAlbaranes: IBizAlbaranCliente;
|
||||
function GetAlbaranes: IBizAlbaranCliente;
|
||||
procedure SetAlbaranes(const Value: IBizAlbaranCliente);
|
||||
procedure CargarProvincias;
|
||||
|
||||
public
|
||||
procedure AnadirOtrosFiltros; override;
|
||||
property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes;
|
||||
@ -97,7 +106,7 @@ implementation
|
||||
|
||||
uses
|
||||
SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf,
|
||||
uViewGridBase, uReferenciasUtils, cxVariants;
|
||||
uViewGridBase, uReferenciasUtils, cxVariants, uProvinciasPoblacionesController, uStringsUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -166,6 +175,23 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.AnadirFiltroProvincia;
|
||||
var
|
||||
FFiltro : TcxFilterCriteriaItemList;
|
||||
begin
|
||||
|
||||
//Solo se aplica este filtro en el caso de tener activo el panel de detalle de filtro
|
||||
//y sobre la lista de pedidos
|
||||
if frViewFiltroBase1.Visible then
|
||||
begin
|
||||
if (VarToStr(frViewFiltroBase1.eLista.EditValue) <> 'Todos') then
|
||||
begin
|
||||
FFiltro := AddFilterGrid(fboAnd);
|
||||
FFiltro.AddItem(cxGridViewPROVINCIA, foEqual, VarToStr(frViewFiltroBase1.eLista.EditValue), VarToStr(frViewFiltroBase1.eLista.EditValue));
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.AnadirFiltroSituaciones;
|
||||
var
|
||||
FFiltro : TcxFilterCriteriaItemList;
|
||||
@ -192,6 +218,7 @@ begin
|
||||
|
||||
AnadirFiltroSituaciones;
|
||||
AnadirFiltroFechas;
|
||||
AnadirFiltroProvincia;
|
||||
|
||||
//Finalmente activamos el filtro si tenemos algo
|
||||
if cxGridView.DataController.Filter.IsEmpty
|
||||
@ -200,6 +227,57 @@ begin
|
||||
cxGrid.ActiveLevel.GridView := cxGridView;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.CargarProvincias;
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FProvincias := DarListaProvincias;
|
||||
|
||||
with frViewFiltroBase1.eLista.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
Add('Todos'); //Case 0
|
||||
for i := 0 to FProvincias.Count - 1 do
|
||||
Add(FProvincias.Names[i]);
|
||||
|
||||
frViewFiltroBase1.eLista.ItemIndex := 0;
|
||||
finally
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.CustomViewCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FProvincias := NIL;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.CustomViewDestroy(Sender: TObject);
|
||||
begin
|
||||
frViewFiltroBase1.eLista.Properties.OnChange := Nil;
|
||||
frViewFiltroBase1.eLista.Properties.OnInitPopup := Nil;
|
||||
|
||||
if Assigned(FProvincias) then
|
||||
FreeANDNIL(FProvincias);
|
||||
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.CustomViewShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frViewFiltroBase1.eLista.Properties.OnChange := OnFiltroListaPropertiesChange;
|
||||
frViewFiltroBase1.eLista.Properties.OnInitPopup := OnFiltroListaPropertiesInitPopup;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
|
||||
begin
|
||||
inherited;
|
||||
@ -272,6 +350,24 @@ begin
|
||||
Result := FAlbaranes;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.OnFiltroListaPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarFiltro;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.OnFiltroListaPropertiesInitPopup(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if not Assigned(FProvincias) then
|
||||
CargarProvincias;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranesCliente.SetAlbaranes(const Value: IBizAlbaranCliente);
|
||||
begin
|
||||
FAlbaranes := Value;
|
||||
|
||||
@ -12,8 +12,6 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitHeight = 129
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 64
|
||||
Top = 10
|
||||
@ -142,64 +140,67 @@ inherited frViewDireccionEntregaAlbaranCliente: TfrViewDireccionEntregaAlbaranCl
|
||||
Width = 263
|
||||
end
|
||||
object dxLayoutGroup1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
AlignHorz = ahParentManaged
|
||||
AlignVert = avParentManaged
|
||||
CaptionOptions.Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
Caption = 'Calle:'
|
||||
CaptionOptions.Text = 'Calle:'
|
||||
Control = eCalle
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
CaptionOptions.Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
CaptionOptions.Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
CaptionOptions.Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Provincia:'
|
||||
CaptionOptions.Text = 'Provincia:'
|
||||
Control = cbProvincia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'C.P.:'
|
||||
CaptionOptions.Text = 'C.P.:'
|
||||
Control = eCodigoPostal
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
Caption = 'Poblaci'#243'n:'
|
||||
CaptionOptions.Text = 'Poblaci'#243'n:'
|
||||
Control = cbPoblacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
CaptionOptions.Visible = False
|
||||
ButtonOptions.Buttons = <>
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Contacto:'
|
||||
CaptionOptions.Text = 'Contacto:'
|
||||
Control = ePersonaContacto
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Tel'#233'fono:'
|
||||
CaptionOptions.Text = 'Tel'#233'fono:'
|
||||
Control = eTlfTrabajo
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -7,7 +7,8 @@ uses
|
||||
Dialogs, uViewBase, uBizAlbaranesCliente, cxGraphics, dxLayoutControl, cxMemo,
|
||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
|
||||
ActnList, uAlbaranesClienteController, Buttons, cxDBEdit, uDAInterfaces;
|
||||
ActnList, uAlbaranesClienteController, Buttons, cxDBEdit, uDAInterfaces,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
|
||||
|
||||
type
|
||||
IViewDireccionEntregaAlbaranCliente = interface(IViewBase)
|
||||
@ -47,7 +48,9 @@ type
|
||||
FAlbaran : IBizAlbaranCliente;
|
||||
FController : IAlbaranesClienteController;
|
||||
FProvincias : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
FPoblaciones : TStringList;
|
||||
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
function GetAlbaranCliente: IBizAlbaranCliente;
|
||||
@ -71,27 +74,29 @@ uses
|
||||
procedure TfrViewDireccionEntregaAlbaranCliente.CargarPoblaciones;
|
||||
var
|
||||
i : integer;
|
||||
AID : Integer;
|
||||
begin
|
||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(AID);
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewDireccionEntregaAlbaranCliente.CargarProvincias;
|
||||
@ -168,6 +173,7 @@ end;
|
||||
constructor TfrViewDireccionEntregaAlbaranCliente.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FIDProvincia := 0;
|
||||
FAlbaran := NIL;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
|
||||
@ -6,7 +6,8 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
||||
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
|
||||
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||
uIEditorDireccionEntregaAlbaranProveedor, uBizAlbaranesProveedor,
|
||||
uDAInterfaces, cxGraphics, cxMaskEdit, cxDropDownEdit;
|
||||
uDAInterfaces, cxGraphics, cxMaskEdit, cxDropDownEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters;
|
||||
|
||||
type
|
||||
TfEditorDireccionEntregaAlbaranProveedor = class(TForm, IEditorDireccionEntregaAlbaranProveedor)
|
||||
@ -38,6 +39,7 @@ type
|
||||
pDireccion: String;
|
||||
pPoblacion: String;
|
||||
pProvincia: String;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
pCodigoPostal: String;
|
||||
pPersonaContacto: String;
|
||||
pTelefono: String;
|
||||
@ -63,27 +65,30 @@ uses
|
||||
procedure TfEditorDireccionEntregaAlbaranProveedor.CargarPoblaciones;
|
||||
var
|
||||
i : integer;
|
||||
AID : Integer;
|
||||
begin
|
||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(AID);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
begin
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfEditorDireccionEntregaAlbaranProveedor.CargarProvincias;
|
||||
@ -154,6 +159,7 @@ end;
|
||||
|
||||
procedure TfEditorDireccionEntregaAlbaranProveedor.FormCreate(Sender: TObject);
|
||||
begin
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
end;
|
||||
|
||||
@ -51,6 +51,7 @@ type
|
||||
FAlmacen: IBizAlmacen;
|
||||
FProvincias : TStringList;
|
||||
FPoblaciones : TStringList;
|
||||
FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
function GetAlmacen: IBizAlmacen;
|
||||
@ -78,27 +79,30 @@ uses
|
||||
procedure TfrViewAlmacen.CargarPoblaciones;
|
||||
var
|
||||
i : integer;
|
||||
AID : Integer;
|
||||
begin
|
||||
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(AID);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
begin
|
||||
if (FIDProvincia <> StrToInt(FProvincias.Values[cbProvincia.Text])) then
|
||||
Begin
|
||||
FIDProvincia := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||
with TProvinciasPoblacionesController.Create do
|
||||
try
|
||||
FPoblaciones := DarListaPoblaciones(FIDProvincia);
|
||||
|
||||
with cbPoblacion.Properties.Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Clear;
|
||||
for i := 0 to FPoblaciones.Count - 1 do
|
||||
Add(FPoblaciones.Names[i]);
|
||||
finally
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
End;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlmacen.CargarProvincias;
|
||||
@ -153,6 +157,7 @@ end;
|
||||
constructor TfrViewAlmacen.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FIDProvincia := 0;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
end;
|
||||
|
||||
@ -13,6 +13,7 @@
|
||||
<Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||
<Projects Include="..\Inventario\Views\Inventario_view.dproj" />
|
||||
<Projects Include="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" />
|
||||
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
|
||||
<Projects Include="Controller\Articulos_controller.dproj" />
|
||||
<Projects Include="Data\Articulos_data.dproj" />
|
||||
@ -161,14 +162,23 @@
|
||||
<Target Name="PresupuestosCliente_view:Make">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Clean">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedidosCliente_view:Make">
|
||||
<MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;FacturasCliente_model;Inventario_view;PresupuestosCliente_view" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;Articulos_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;FacturasCliente_model;Inventario_view;PresupuestosCliente_view;PedidosCliente_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;FacturasCliente_model:Clean;Inventario_view:Clean;PresupuestosCliente_view:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;Articulos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;FacturasCliente_model:Clean;Inventario_view:Clean;PresupuestosCliente_view:Clean;PedidosCliente_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;FacturasCliente_model:Make;Inventario_view:Make;PresupuestosCliente_view:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;Articulos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;FacturasCliente_model:Make;Inventario_view:Make;PresupuestosCliente_view:Make;PedidosCliente_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -103,8 +103,8 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schArticulosClient_Intf, uFactuGES_App,
|
||||
uIEditorArticulos, uIEditorArticulo, uIEditorElegirArticulos,
|
||||
cxControls, DB, uEditorRegistryUtils, schArticulosClient_Intf,
|
||||
uFactuGES_App, uIEditorArticulos, uIEditorArticulo, uIEditorElegirArticulos,
|
||||
uDataModuleArticulos, uDataModuleUsuarios, uDAInterfaces, Dialogs,
|
||||
uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
@ -652,6 +652,7 @@ begin
|
||||
AArticulo.DataTable.ApplyUpdates;
|
||||
|
||||
Result := True;
|
||||
|
||||
finally
|
||||
//Para que no salten los eventos de calculo de PVP que daría un pete importante
|
||||
AArticulo.DataTable.EnableControls;
|
||||
|
||||
@ -9,7 +9,7 @@ uses
|
||||
uDADesigntimeCall,
|
||||
uIDataModuleArticulos, uBizArticulos, uDataModuleBase, uDARemoteDataAdapter,
|
||||
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable,
|
||||
uBizArticulosProveedores, uDADataAdapter;
|
||||
uBizArticulosProveedores;
|
||||
|
||||
type
|
||||
TDataModuleArticulos = class(TDataModuleBase, IDataModuleArticulos)
|
||||
|
||||
@ -55,14 +55,14 @@
|
||||
<DelphiCompile Include="Articulos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Fabricantes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\Familias_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos de cliente\Views\UnidadesMedida_controller.dcp" />
|
||||
<DCCReference Include="..\..\Inventario\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Inventario\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Inventario\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Inventario\Fabricantes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Inventario\Familias_controller.dcp" />
|
||||
<DCCReference Include="..\..\Inventario\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Inventario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\Inventario\UnidadesMedida_controller.dcp" />
|
||||
<DCCReference Include="uArticulosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorArticulo.pas">
|
||||
<Form>fEditorArticulo</Form>
|
||||
|
||||
@ -45,25 +45,28 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
Width = 905
|
||||
ExplicitWidth = 905
|
||||
inherited tbxMain: TSpTBXToolbar
|
||||
ExplicitWidth = 330
|
||||
ExplicitWidth = 331
|
||||
inherited TBXItem2: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited SpTBXItem1: TSpTBXItem
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
inherited TBXItem5: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem23: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem3: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
object TBXSeparatorItem6: TSpTBXSeparatorItem [11]
|
||||
end
|
||||
object TBXItem33: TSpTBXItem [12]
|
||||
Action = actFamilias
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
inherited TBXItem3: TSpTBXItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TSpTBXToolbar
|
||||
DockPos = 0
|
||||
@ -111,6 +114,146 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 891
|
||||
ExplicitHeight = 376
|
||||
inline frViewArticulo1: TfrViewArticulo
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 891
|
||||
Height = 376
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitTop = 76
|
||||
ExplicitWidth = 905
|
||||
ExplicitHeight = 410
|
||||
inherited dxLayoutControlArticulo: TdxLayoutControl
|
||||
Width = 891
|
||||
Height = 376
|
||||
ExplicitWidth = 905
|
||||
ExplicitHeight = 410
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 829
|
||||
ExplicitLeft = 829
|
||||
end
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 829
|
||||
ExplicitLeft = 829
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 290
|
||||
Width = 290
|
||||
end
|
||||
inherited eDescripcion: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 290
|
||||
Width = 290
|
||||
end
|
||||
inherited eNoComisionable: TcxDBCheckBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 290
|
||||
Width = 290
|
||||
end
|
||||
inherited eImagen: TcxImage
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 355
|
||||
ExplicitHeight = 98
|
||||
Height = 98
|
||||
Width = 355
|
||||
end
|
||||
inherited cbFamilia: TcxDBComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 290
|
||||
Width = 290
|
||||
end
|
||||
inherited cbNoInventariable: TcxDBCheckBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 290
|
||||
Width = 290
|
||||
end
|
||||
inherited cbUnidadMedida: TcxDBComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 290
|
||||
Width = 290
|
||||
end
|
||||
inherited cbFabricante: TcxDBComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 290
|
||||
Width = 290
|
||||
end
|
||||
inherited eReferenciaFabr: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited eCodigo: TcxDBTextEdit
|
||||
Left = 506
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 506
|
||||
ExplicitWidth = 300
|
||||
Width = 300
|
||||
end
|
||||
inherited eCampoTecnico: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 727
|
||||
Width = 727
|
||||
end
|
||||
inherited ePrecio: TcxDBCurrencyEdit
|
||||
Left = 653
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 653
|
||||
ExplicitWidth = 300
|
||||
Width = 300
|
||||
end
|
||||
inherited eDiseno: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 744
|
||||
Width = 744
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
@ -119,6 +262,12 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end
|
||||
item
|
||||
Text =
|
||||
'F1 - Guardar y nuevo Ctrl + F1 - Guardar Ctrl + Del - El' +
|
||||
'iminar Esc - Cerrar'
|
||||
Width = 50
|
||||
end>
|
||||
ExplicitTop = 486
|
||||
ExplicitWidth = 905
|
||||
@ -126,6 +275,55 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
inherited EditorActionList: TActionList
|
||||
Left = 40
|
||||
Top = 128
|
||||
inherited actGuardarCerrar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actGuardarYNuevo: TAction [3]
|
||||
Enabled = True
|
||||
Visible = True
|
||||
OnExecute = actGuardarYNuevoExecute
|
||||
end
|
||||
inherited actGuardar: TAction [4]
|
||||
ShortCut = 16496
|
||||
end
|
||||
inherited actEliminar: TAction [5]
|
||||
ShortCut = 16430
|
||||
end
|
||||
inherited actConfPagina: TAction [6]
|
||||
end
|
||||
inherited actPrevisualizar: TAction [7]
|
||||
end
|
||||
inherited actImprimir: TAction [8]
|
||||
end
|
||||
inherited actDeshacer: TEditUndo [9]
|
||||
end
|
||||
inherited actCortar: TEditCut [10]
|
||||
end
|
||||
inherited actCerrar: TAction [11]
|
||||
end
|
||||
inherited actCopiar: TEditCopy [12]
|
||||
end
|
||||
inherited actPegar: TEditPaste [13]
|
||||
end
|
||||
inherited actSeleccionarTodo: TEditSelectAll [14]
|
||||
end
|
||||
inherited actLimpiar: TEditDelete [15]
|
||||
end
|
||||
inherited actRefrescar: TAction [16]
|
||||
end
|
||||
inherited actAcercaDe: TAction [17]
|
||||
end
|
||||
inherited actBuscar: TAction [18]
|
||||
end
|
||||
inherited actAnterior: TAction [19]
|
||||
end
|
||||
inherited actSiguiente: TAction [20]
|
||||
end
|
||||
inherited actCancelarCambios: TAction [21]
|
||||
end
|
||||
inherited actDuplicar: TAction [22]
|
||||
end
|
||||
object actFamilias: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Familias'
|
||||
@ -136,7 +334,18 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
OnExecute = actFamiliasExecute
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList
|
||||
inherited dsDataTable: TDADataSource [6]
|
||||
Left = 8
|
||||
Top = 128
|
||||
end
|
||||
inherited LargeImages: TPngImageList
|
||||
Top = 112
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage
|
||||
Left = 400
|
||||
Top = 152
|
||||
end
|
||||
inherited SmallImages: TPngImageList [9]
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
@ -642,17 +851,6 @@ inherited fEditorArticulo: TfEditorArticulo
|
||||
Top = 112
|
||||
Bitmap = {}
|
||||
end
|
||||
inherited dsDataTable: TDADataSource [6]
|
||||
Left = 8
|
||||
Top = 128
|
||||
end
|
||||
inherited LargeImages: TPngImageList [7]
|
||||
Top = 112
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage [8]
|
||||
Left = 400
|
||||
Top = 152
|
||||
end
|
||||
inherited JvAppRegistryStorage: TJvAppRegistryStorage
|
||||
Left = 432
|
||||
Top = 152
|
||||
|
||||
@ -19,17 +19,19 @@ uses
|
||||
cxClasses, cxControls, cxGridCustomView, cxGrid, uViewDetallesGenerico,
|
||||
uViewArticulosProveedores, dxLayoutControl, cxContainer,
|
||||
cxTextEdit, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit, cxLabel,
|
||||
cxLookAndFeels, cxLookAndFeelPainters;
|
||||
cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab;
|
||||
|
||||
type
|
||||
TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo)
|
||||
TBXItem33: TSpTBXItem;
|
||||
actFamilias: TAction;
|
||||
TBXSeparatorItem6: TSpTBXSeparatorItem;
|
||||
frViewArticulo1: TfrViewArticulo;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure actFamiliasExecute(Sender: TObject);
|
||||
procedure actGuardarYNuevoExecute(Sender: TObject);
|
||||
protected
|
||||
FController : IArticulosController;
|
||||
FArticulo: IBizArticulo;
|
||||
@ -86,7 +88,19 @@ end;
|
||||
procedure TfEditorArticulo.GuardarInterno;
|
||||
begin
|
||||
inherited;
|
||||
FController.Guardar(FArticulo);
|
||||
try
|
||||
FController.Guardar(FArticulo);
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
if (Pos('ARTICULOS_IDX1', E.Message) > 0) then
|
||||
begin
|
||||
frViewArticulo1.eReferencia.SetFocus;
|
||||
raise Exception.Create ('No se puede guardar este artículo porque, ya existe un artículo con esa referencia');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
Modified := False;
|
||||
end;
|
||||
|
||||
@ -172,11 +186,22 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorArticulo.actGuardarYNuevoExecute(Sender: TObject);
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if actGuardar.Execute then
|
||||
FController.Anadir(Articulo);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorArticulo.AsignarVista;
|
||||
var
|
||||
AViewArticulo: TfrViewArticulo;
|
||||
begin
|
||||
AViewArticulo := TfrViewArticulo.create(Self);
|
||||
AViewArticulo := frViewArticulo1;
|
||||
with AViewArticulo do
|
||||
begin
|
||||
Parent := pagGeneral;
|
||||
|
||||
@ -9,7 +9,7 @@ inherited fEditorArticulos: TfEditorArticulos
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 822
|
||||
Caption = 'Lista de articulos'
|
||||
ExplicitWidth = 657
|
||||
ExplicitWidth = 822
|
||||
inherited Image1: TImage
|
||||
Left = 795
|
||||
Picture.Data = {
|
||||
@ -31,33 +31,20 @@ inherited fEditorArticulos: TfEditorArticulos
|
||||
end
|
||||
inherited TBXDock: TSpTBXDock
|
||||
Width = 822
|
||||
ExplicitWidth = 657
|
||||
ExplicitWidth = 822
|
||||
inherited tbxMain: TSpTBXToolbar
|
||||
ExplicitWidth = 632
|
||||
end
|
||||
inherited tbxFiltro: TSpTBXToolbar
|
||||
ExplicitWidth = 287
|
||||
inherited TBXItem37: TSpTBXItem
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited cbxListaAnos: TSpTBXComboBox
|
||||
Left = 129
|
||||
ExplicitLeft = 129
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TSpTBXToolbar
|
||||
ExplicitWidth = 822
|
||||
end
|
||||
inherited TBXTMain2: TSpTBXToolbar
|
||||
Left = 287
|
||||
DockPos = 267
|
||||
ExplicitLeft = 287
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Width = 822
|
||||
ExplicitWidth = 657
|
||||
ExplicitWidth = 822
|
||||
end
|
||||
object pgPaginas: TPageControl [3]
|
||||
AlignWithMargins = True
|
||||
@ -69,17 +56,14 @@ inherited fEditorArticulos: TfEditorArticulos
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
OnChange = pgPaginasChange
|
||||
ExplicitWidth = 651
|
||||
object pagArticulos: TTabSheet
|
||||
Caption = 'Todos los art'#237'culos'
|
||||
ExplicitWidth = 643
|
||||
end
|
||||
object pagArticulosPorProveedor: TTabSheet
|
||||
Caption = 'Art'#237'culos por proveedor'
|
||||
Enabled = False
|
||||
ImageIndex = 1
|
||||
TabVisible = False
|
||||
ExplicitWidth = 643
|
||||
inline frViewArticulosPorProveedor1: TfrViewArticulosPorProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -94,13 +78,13 @@ inherited fEditorArticulos: TfEditorArticulos
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 643
|
||||
ExplicitWidth = 808
|
||||
ExplicitHeight = 349
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 808
|
||||
Height = 119
|
||||
Height = 221
|
||||
ExplicitWidth = 808
|
||||
ExplicitHeight = 119
|
||||
ExplicitHeight = 221
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -112,13 +96,13 @@ inherited fEditorArticulos: TfEditorArticulos
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 808
|
||||
ExplicitWidth = 643
|
||||
ExplicitWidth = 808
|
||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||
Width = 808
|
||||
ExplicitWidth = 643
|
||||
ExplicitWidth = 808
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 808
|
||||
ExplicitWidth = 643
|
||||
ExplicitWidth = 808
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -132,48 +116,51 @@ inherited fEditorArticulos: TfEditorArticulos
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 157
|
||||
Width = 157
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 456
|
||||
Left = 439
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 456
|
||||
ExplicitLeft = 439
|
||||
ExplicitWidth = 145
|
||||
Width = 145
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 766
|
||||
Left = 739
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 766
|
||||
ExplicitLeft = 739
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 798
|
||||
ExplicitWidth = 633
|
||||
ExplicitWidth = 798
|
||||
inherited tbxBotones: TSpTBXToolbar
|
||||
Width = 798
|
||||
ExplicitWidth = 633
|
||||
ExplicitWidth = 798
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TSpTBXDockablePanel
|
||||
Top = 221
|
||||
Top = 323
|
||||
Width = 808
|
||||
ExplicitTop = 323
|
||||
ExplicitWidth = 643
|
||||
ExplicitWidth = 808
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 808
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 643
|
||||
ExplicitWidth = 808
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 808
|
||||
ExplicitWidth = 643
|
||||
ExplicitWidth = 808
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -209,13 +196,13 @@ inherited fEditorArticulos: TfEditorArticulos
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 102
|
||||
ExplicitWidth = 657
|
||||
ExplicitWidth = 822
|
||||
ExplicitHeight = 383
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 822
|
||||
Height = 256
|
||||
ExplicitWidth = 657
|
||||
ExplicitHeight = 153
|
||||
ExplicitWidth = 822
|
||||
ExplicitHeight = 256
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -227,13 +214,13 @@ inherited fEditorArticulos: TfEditorArticulos
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 822
|
||||
ExplicitWidth = 657
|
||||
ExplicitWidth = 822
|
||||
inherited TBXDockablePanel1: TSpTBXDockablePanel
|
||||
Width = 822
|
||||
ExplicitWidth = 657
|
||||
ExplicitWidth = 822
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 822
|
||||
ExplicitWidth = 657
|
||||
ExplicitWidth = 822
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -247,32 +234,36 @@ inherited fEditorArticulos: TfEditorArticulos
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 157
|
||||
Width = 157
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 463
|
||||
Left = 446
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 463
|
||||
ExplicitLeft = 446
|
||||
ExplicitWidth = 145
|
||||
Width = 145
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 779
|
||||
Left = 752
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 779
|
||||
ExplicitLeft = 752
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 812
|
||||
ExplicitWidth = 647
|
||||
ExplicitWidth = 812
|
||||
inherited tbxBotones: TSpTBXToolbar
|
||||
Width = 812
|
||||
ExplicitWidth = 647
|
||||
ExplicitWidth = 812
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -284,10 +275,10 @@ inherited fEditorArticulos: TfEditorArticulos
|
||||
ExplicitWidth = 822
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 822
|
||||
ExplicitWidth = 657
|
||||
ExplicitWidth = 822
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 822
|
||||
ExplicitWidth = 657
|
||||
ExplicitWidth = 822
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -26,6 +26,7 @@ type
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actFamiliasExecute(Sender: TObject);
|
||||
procedure pgPaginasChange(Sender: TObject);
|
||||
procedure actQuitarFiltroExecute(Sender: TObject);
|
||||
private
|
||||
FArticulos: IBizArticulo;
|
||||
FArticulosPorProveedor: IBizArticulo;
|
||||
@ -332,6 +333,12 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorArticulos.actQuitarFiltroExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frViewArticulos1.frViewFiltroBase1actQuitarFiltroExecute(Sender);
|
||||
end;
|
||||
|
||||
constructor TfEditorArticulos.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -1,27 +1,26 @@
|
||||
inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 658
|
||||
Height = 504
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
OnShow = CustomViewShow
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
object dxLayoutControlArticulo: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 658
|
||||
Height = 504
|
||||
Width = 451
|
||||
Height = 304
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
658
|
||||
504)
|
||||
451
|
||||
304)
|
||||
object PngSpeedButton2: TPngSpeedButton
|
||||
Left = 613
|
||||
Left = 389
|
||||
Top = 358
|
||||
Width = 23
|
||||
Height = 22
|
||||
@ -48,7 +47,7 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
end
|
||||
object PngSpeedButton1: TPngSpeedButton
|
||||
Left = 613
|
||||
Left = 389
|
||||
Top = 386
|
||||
Width = 23
|
||||
Height = 22
|
||||
@ -63,7 +62,7 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clWindow
|
||||
Style.Color = 14745599
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
@ -297,13 +296,13 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 171
|
||||
end
|
||||
object eCodigo: TcxDBTextEdit
|
||||
Left = 392
|
||||
Left = 273
|
||||
Top = 28
|
||||
DataBinding.DataField = 'CODIGOTECNICO'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = 14745599
|
||||
Style.Color = clWindow
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
@ -345,13 +344,14 @@ inherited frViewArticulo: TfrViewArticulo
|
||||
Width = 727
|
||||
end
|
||||
object ePrecio: TcxDBCurrencyEdit
|
||||
Left = 499
|
||||
Left = 340
|
||||
Top = 109
|
||||
DataBinding.DataField = 'PRECIO'
|
||||
DataBinding.DataSource = dsViewArticulo
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = 14745599
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
|
||||
@ -11,7 +11,8 @@ uses
|
||||
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
|
||||
uFamiliasController, uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit,
|
||||
uArticulosController, uUnidadesMedidaController, uFabricantesController, uDAInterfaces,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters;
|
||||
cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters, JvExControls,
|
||||
JvEnterTab;
|
||||
|
||||
type
|
||||
IViewArticulo = interface(IViewBase)
|
||||
@ -87,6 +88,7 @@ type
|
||||
procedure cbFabricantePropertiesInitPopup(Sender: TObject);
|
||||
procedure cbFabricantePropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
private
|
||||
procedure CargarImagen;
|
||||
procedure SalvarImagen;
|
||||
@ -321,6 +323,12 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulo.CustomViewShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
eReferencia.SetFocus;
|
||||
end;
|
||||
|
||||
function TfrViewArticulo.GetArticulo: IBizArticulo;
|
||||
begin
|
||||
Result := FArticulo;
|
||||
|
||||
@ -8,7 +8,7 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
Width = 715
|
||||
Height = 330
|
||||
ExplicitWidth = 715
|
||||
ExplicitHeight = 232
|
||||
ExplicitHeight = 330
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.KeyFieldNames = 'RecID'
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
@ -79,6 +79,10 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
object cxGridViewPRECIO: TcxGridDBColumn
|
||||
Caption = 'Precio'
|
||||
DataBinding.FieldName = 'PRECIO'
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
@ -107,28 +111,23 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 272
|
||||
Width = 272
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 376
|
||||
Left = 355
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 376
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
ExplicitLeft = 355
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 634
|
||||
Left = 598
|
||||
Properties.DropDownRows = 20
|
||||
Properties.OnChange = frViewFiltroBase1eListaPropertiesChange
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 634
|
||||
ExplicitLeft = 598
|
||||
ExplicitWidth = 71
|
||||
Width = 71
|
||||
end
|
||||
@ -141,6 +140,9 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited lgroupnum: TdxLayoutGroup
|
||||
Visible = True
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
@ -167,11 +169,9 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
ExplicitHeight = 25
|
||||
inherited TBXAlignmentPanel1: TSpTBXDockablePanel
|
||||
Width = 715
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 715
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
Width = 715
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 715
|
||||
object TBXSeparatorItem1: TSpTBXSeparatorItem
|
||||
end
|
||||
@ -192,9 +192,6 @@ inherited frViewArticulos: TfrViewArticulos
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
inherited dxPSEngineController1: TdxPSEngineController
|
||||
Active = True
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
Left = 360
|
||||
Top = 280
|
||||
|
||||
@ -58,13 +58,15 @@ type
|
||||
procedure actFabricanteUpdate(Sender: TObject);
|
||||
procedure cxGridView2DataControllerCompare(ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
||||
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
||||
procedure frViewFiltroBase1eListaPropertiesChange(Sender: TObject);
|
||||
procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
procedure cxGridViewDataControllerCompare(
|
||||
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
||||
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
||||
|
||||
private
|
||||
procedure AnadirFiltroReferencias;
|
||||
|
||||
protected
|
||||
FArticulos: IBizArticulo;
|
||||
FController: IArticulosController;
|
||||
@ -154,10 +156,31 @@ begin
|
||||
(Sender as TAction).Checked := not (cxGridViewFAMILIA.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulos.AnadirFiltroReferencias;
|
||||
var
|
||||
Columna: TcxGridDBColumn;
|
||||
Referencia1, Referencia2: Variant;
|
||||
FFiltro : TcxFilterCriteriaItemList;
|
||||
begin
|
||||
Referencia1 := frViewFiltroBase1.edtNumIniFiltro.Value;
|
||||
Referencia2 := frViewFiltroBase1.edtNumFinFiltro.Value;
|
||||
|
||||
if (Referencia1 <> 0) and (Referencia2 <> 0) then
|
||||
begin
|
||||
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
|
||||
FFiltro := AddFilterGrid(fboAnd);
|
||||
|
||||
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('REFERENCIA');
|
||||
FFiltro.AddItem(Columna, foBetween, varArrayOf([Referencia1, Referencia2]), VarToStr(Referencia1) + ' and ' + VarToStr(Referencia2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulos.AnadirOtrosFiltros;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
AnadirFiltroReferencias;
|
||||
|
||||
//Finalmente activamos el filtro si tenemos algo
|
||||
if cxGridView.DataController.Filter.IsEmpty
|
||||
then cxGridView.DataController.Filter.Active := False
|
||||
@ -197,14 +220,7 @@ end;
|
||||
|
||||
procedure TfrViewArticulos.frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject);
|
||||
begin
|
||||
frViewFiltroBase1.txtFiltroTodo.Clear;
|
||||
frViewFiltroBase1.eLista.Clear;
|
||||
end;
|
||||
|
||||
procedure TfrViewArticulos.frViewFiltroBase1eListaPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
RefrescarFiltro;
|
||||
frViewFiltroBase1.LimpiarCampos;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -2,52 +2,99 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
|
||||
ParentBiDiMode = False
|
||||
OnShow = CustomViewShow
|
||||
inherited ToolBar1: TToolBar
|
||||
Height = 73
|
||||
ExplicitHeight = 73
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 278
|
||||
Top = 0
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Top = 22
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Top = 22
|
||||
Width = 42
|
||||
ExplicitTop = 22
|
||||
ExplicitWidth = 42
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 187
|
||||
Top = 22
|
||||
Width = 17
|
||||
ExplicitLeft = 187
|
||||
ExplicitTop = 22
|
||||
ExplicitWidth = 17
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 204
|
||||
Top = 22
|
||||
ExplicitLeft = 204
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 212
|
||||
Top = 22
|
||||
ExplicitLeft = 212
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 278
|
||||
Top = 22
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 345
|
||||
Top = 22
|
||||
ExplicitLeft = 345
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 428
|
||||
ExplicitLeft = 428
|
||||
Left = 0
|
||||
Top = 22
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 22
|
||||
ExplicitHeight = 27
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 436
|
||||
ExplicitLeft = 436
|
||||
Left = 0
|
||||
Top = 49
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 581
|
||||
ExplicitLeft = 581
|
||||
Left = 145
|
||||
Top = 49
|
||||
ExplicitLeft = 145
|
||||
ExplicitTop = 49
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 706
|
||||
ExplicitLeft = 706
|
||||
Left = 270
|
||||
Top = 49
|
||||
ExplicitLeft = 270
|
||||
ExplicitTop = 49
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
ExplicitTop = 121
|
||||
Top = 99
|
||||
Height = 205
|
||||
ExplicitTop = 99
|
||||
ExplicitHeight = 205
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
OptionsSelection.CellMultiSelect = True
|
||||
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||
MinWidth = 69
|
||||
Width = 69
|
||||
@ -135,7 +182,7 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
|
||||
end
|
||||
end
|
||||
inherited TBXDock1: TSpTBXDock
|
||||
ExplicitTop = 100
|
||||
Top = 73
|
||||
inherited TBXToolbar1: TSpTBXToolbar
|
||||
inherited TBXSubmenuItem1: TSpTBXSubmenuItem
|
||||
object TBXSeparatorItem8: TSpTBXSeparatorItem [4]
|
||||
|
||||
234
Source/Modulos/Comisiones/Comisiones_Group.groupproj
Normal file
234
Source/Modulos/Comisiones/Comisiones_Group.groupproj
Normal file
@ -0,0 +1,234 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{4fc2fdb5-faa5-4b92-afc6-33a803d10c02}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
|
||||
<Projects Include="..\..\Base\Base.dproj" />
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
|
||||
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
|
||||
<Projects Include="..\Contactos\Plugin\Contactos_plugin.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Data\FacturasCliente_data.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||
<Projects Include="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" />
|
||||
<Projects Include="..\Remesas de cliente\Views\RemesasCliente_view.dproj" />
|
||||
<Projects Include="Controller\Comisiones_controller.dproj" />
|
||||
<Projects Include="Data\Comisiones_data.dproj" />
|
||||
<Projects Include="Model\Comisiones_model.dproj" />
|
||||
<Projects Include="Plugin\Comisiones_plugin.dproj" />
|
||||
<Projects Include="Views\Comisiones_view.dproj" />
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="Base">
|
||||
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Base:Clean">
|
||||
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Base:Make">
|
||||
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="GUIBase">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="GUIBase:Clean">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="GUIBase:Make">
|
||||
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase:Clean">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="ApplicationBase:Make">
|
||||
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_model">
|
||||
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contactos_model:Clean">
|
||||
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contactos_model:Make">
|
||||
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_data">
|
||||
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contactos_data:Clean">
|
||||
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contactos_data:Make">
|
||||
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_controller">
|
||||
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contactos_controller:Clean">
|
||||
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contactos_controller:Make">
|
||||
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_view">
|
||||
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contactos_view:Clean">
|
||||
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contactos_view:Make">
|
||||
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Contactos_plugin">
|
||||
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Contactos_plugin:Clean">
|
||||
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Contactos_plugin:Make">
|
||||
<MSBuild Projects="..\Contactos\Plugin\Contactos_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_model">
|
||||
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_model:Clean">
|
||||
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_model:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_data">
|
||||
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_data:Clean">
|
||||
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_data:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_controller">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_controller:Clean">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_view">
|
||||
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_view:Clean">
|
||||
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_view:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_model">
|
||||
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_model:Clean">
|
||||
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_model:Make">
|
||||
<MSBuild Projects="Model\Comisiones_model.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_data">
|
||||
<MSBuild Projects="Data\Comisiones_data.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_data:Clean">
|
||||
<MSBuild Projects="Data\Comisiones_data.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_data:Make">
|
||||
<MSBuild Projects="Data\Comisiones_data.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_controller">
|
||||
<MSBuild Projects="Controller\Comisiones_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_controller:Clean">
|
||||
<MSBuild Projects="Controller\Comisiones_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_controller:Make">
|
||||
<MSBuild Projects="Controller\Comisiones_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_view">
|
||||
<MSBuild Projects="Views\Comisiones_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_view:Clean">
|
||||
<MSBuild Projects="Views\Comisiones_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_view:Make">
|
||||
<MSBuild Projects="Views\Comisiones_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_plugin">
|
||||
<MSBuild Projects="Plugin\Comisiones_plugin.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_plugin:Clean">
|
||||
<MSBuild Projects="Plugin\Comisiones_plugin.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="Comisiones_plugin:Make">
|
||||
<MSBuild Projects="Plugin\Comisiones_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Clean">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES:Make">
|
||||
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server:Clean">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="RemesasCliente_view">
|
||||
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="RemesasCliente_view:Clean">
|
||||
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="RemesasCliente_view:Make">
|
||||
<MSBuild Projects="..\Remesas de cliente\Views\RemesasCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="RemesasCliente_controller">
|
||||
<MSBuild Projects="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="RemesasCliente_controller:Clean">
|
||||
<MSBuild Projects="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="RemesasCliente_controller:Make">
|
||||
<MSBuild Projects="..\Remesas de cliente\Controller\RemesasCliente_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;Comisiones_model;Comisiones_data;Comisiones_controller;Comisiones_view;Comisiones_plugin;FactuGES;FactuGES_Server;RemesasCliente_view;RemesasCliente_controller" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;Comisiones_model:Clean;Comisiones_data:Clean;Comisiones_controller:Clean;Comisiones_view:Clean;Comisiones_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasCliente_view:Clean;RemesasCliente_controller:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;Comisiones_model:Make;Comisiones_data:Make;Comisiones_controller:Make;Comisiones_view:Make;Comisiones_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasCliente_view:Make;RemesasCliente_controller:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
BIN
Source/Modulos/Comisiones/Controller/Comisiones_controller.dpk
Normal file
BIN
Source/Modulos/Comisiones/Controller/Comisiones_controller.dpk
Normal file
Binary file not shown.
549
Source/Modulos/Comisiones/Controller/Comisiones_controller.dproj
Normal file
549
Source/Modulos/Comisiones/Controller/Comisiones_controller.dproj
Normal file
@ -0,0 +1,549 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{f8fdcc68-4417-434e-891b-81db965b457a}</ProjectGuid>
|
||||
<MainSource>Comisiones_controller.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_controller.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Comisiones_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Comisiones_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="uComisionesController.pas" />
|
||||
<DCCReference Include="uComisionesReportController.pas" />
|
||||
<DCCReference Include="View\adortl.dcp" />
|
||||
<DCCReference Include="View\ApplicationBase.dcp" />
|
||||
<DCCReference Include="View\Comisiones_data.dcp" />
|
||||
<DCCReference Include="View\Comisiones_model.dcp" />
|
||||
<DCCReference Include="View\Contactos_controller.dcp" />
|
||||
<DCCReference Include="View\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="View\dbrtl.dcp" />
|
||||
<DCCReference Include="View\dsnap.dcp" />
|
||||
<DCCReference Include="View\dxCoreD11.dcp" />
|
||||
<DCCReference Include="View\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="View\dxThemeD11.dcp" />
|
||||
<DCCReference Include="View\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="View\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="View\rtl.dcp" />
|
||||
<DCCReference Include="View\uIEditorComision.pas" />
|
||||
<DCCReference Include="View\uIEditorComisiones.pas" />
|
||||
<DCCReference Include="View\uIEditorComisionesPreview.pas" />
|
||||
<DCCReference Include="View\vcl.dcp" />
|
||||
<DCCReference Include="View\vcldb.dcp" />
|
||||
<DCCReference Include="View\vclx.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
BIN
Source/Modulos/Comisiones/Controller/Comisiones_controller.res
Normal file
BIN
Source/Modulos/Comisiones/Controller/Comisiones_controller.res
Normal file
Binary file not shown.
@ -0,0 +1,23 @@
|
||||
unit uIEditorComision;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorDBItem, uBizComisiones, uComisionesController;
|
||||
|
||||
type
|
||||
IEditorComision = interface(IEditorDBItem)
|
||||
['{B7EC6674-46EE-4D01-BB5E-92D8BFA690F4}']
|
||||
function GetController : IComisionesController;
|
||||
procedure SetController (const Value : IComisionesController);
|
||||
property Controller : IComisionesController read GetController
|
||||
write SetController;
|
||||
|
||||
function GetComision: IBizComision;
|
||||
procedure SetComision(const Value: IBizComision);
|
||||
property Comision: IBizComision read GetComision write SetComision;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,23 @@
|
||||
unit uIEditorComisiones;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorGridBase, uBizComisiones, uComisionesController;
|
||||
|
||||
type
|
||||
IEditorComisiones = interface(IEditorGridBase)
|
||||
['{E9DBC45C-E4BC-444E-930F-E0C073C4E855}']
|
||||
function GetComisiones: IBizComision;
|
||||
procedure SetComisiones(const Value: IBizComision);
|
||||
property Comisiones: IBizComision read GetComisiones write SetComisiones;
|
||||
|
||||
function GetController : IComisionesController;
|
||||
procedure SetController (const Value : IComisionesController);
|
||||
property Controller : IComisionesController read GetController write SetController;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,16 @@
|
||||
unit uIEditorComisionesPreview;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorPreview, uComisionesReportController;
|
||||
|
||||
type
|
||||
IEditorComisionesPreview = interface(IEditorPreview)
|
||||
['{532597DC-84EE-4CFD-8F23-E60A5854B311}']
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
995
Source/Modulos/Comisiones/Controller/uComisionesController.pas
Normal file
995
Source/Modulos/Comisiones/Controller/uComisionesController.pas
Normal file
@ -0,0 +1,995 @@
|
||||
unit uComisionesController;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleComisiones,
|
||||
//uDetallesFacturaClienteController,
|
||||
uBizComisiones;
|
||||
|
||||
type
|
||||
IComisionesController = interface(IControllerBase)
|
||||
['{A6452334-2891-4CF4-A018-E7E8BE3B11E7}']
|
||||
|
||||
function Buscar(const ID: Integer): IBizComision;
|
||||
function BuscarTodos: IBizComision; overload;
|
||||
// function BuscarTodos(const AID_Cliente: Integer): IBizComision; overload;
|
||||
procedure Ver(AComision : IBizComision);
|
||||
procedure VerTodos(AComisiones: IBizComision;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
function Nuevo (withInsert: Boolean = True) : IBizComision;
|
||||
function Anadir(AComision : IBizComision) : Boolean; overload;
|
||||
function Eliminar(const ID : Integer): Boolean; overload;
|
||||
function Eliminar(AComision : IBizComision; AllItems: Boolean = false): Boolean; overload;
|
||||
function Guardar(AComision : IBizComision): Boolean;
|
||||
procedure DescartarCambios(AComision : IBizComision);
|
||||
function Existe(const ID: Integer) : Boolean;
|
||||
|
||||
procedure Preview(AComision : IBizComision; AllItems: Boolean = false);
|
||||
procedure Print(AComision : IBizComision; AllItems: Boolean = false);
|
||||
|
||||
procedure RecalcularImportes(AComision: IBizComision);
|
||||
function EsModificable(AComision: IBizComision): Boolean;
|
||||
function EsEliminable(AComision: IBizComision): Boolean;
|
||||
|
||||
function ElegirFacturasComision(AComision : IBizComision): Boolean;
|
||||
function ExtraerSeleccionados(AComisiones: IBizComision) : IBizComision;
|
||||
|
||||
function DarListaAnosComisiones: TStringList;
|
||||
procedure FiltrarAno(AComision: IBizComision; ADynWhereDataTable: WideString; const Ano: String);
|
||||
end;
|
||||
|
||||
TComisionesController = class(TControllerBase, IComisionesController)
|
||||
private
|
||||
FDataModule : IDataModuleComisiones;
|
||||
|
||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||
function _Vacio : IBizComision;
|
||||
|
||||
procedure FiltrarEmpresa(AComision: IBizComision);
|
||||
function ValidarComision(AComision: IBizComision): Boolean;
|
||||
|
||||
protected
|
||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
function Eliminar(const ID : Integer): Boolean; overload;
|
||||
function Eliminar(AComision : IBizComision; AllItems: Boolean = false): Boolean; overload;
|
||||
function Guardar(AComision : IBizComision): Boolean;
|
||||
procedure DescartarCambios(AComision : IBizComision); virtual;
|
||||
function Existe(const ID: Integer) : Boolean; virtual;
|
||||
function Anadir(AComision : IBizComision): Boolean; overload;
|
||||
// function Anadir(AComisions : IBizComision; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
|
||||
// function Anadir(AComision : IBizComision; const IDPedido : Integer): Boolean; overload;
|
||||
function Buscar(const ID: Integer): IBizComision;
|
||||
function BuscarTodos: IBizComision; overload;
|
||||
// function BuscarTodos(const AID_Cliente: Integer): IBizComision; overload;
|
||||
// function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizComision;
|
||||
function Nuevo (withInsert: Boolean = True) : IBizComision;
|
||||
procedure Ver(AComision : IBizComision);
|
||||
procedure VerTodos(AComisiones: IBizComision;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
|
||||
procedure Preview(AComision : IBizComision; AllItems: Boolean = false);
|
||||
procedure Print(AComision : IBizComision; AllItems: Boolean = false);
|
||||
|
||||
procedure RecalcularImportes(AComision: IBizComision);
|
||||
function EsModificable(AComision: IBizComision): Boolean;
|
||||
function EsEliminable(AComision: IBizComision): Boolean;
|
||||
|
||||
function ElegirFacturasComision(AComision : IBizComision): Boolean;
|
||||
function ExtraerSeleccionados(AComisiones: IBizComision) : IBizComision;
|
||||
|
||||
function DarListaAnosComisiones: TStringList;
|
||||
procedure FiltrarAno(AComision: IBizComision; ADynWhereDataTable: WideString; const Ano: String);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Dialogs, uDialogUtils, Windows, Controls, cxControls, DB, uEditorRegistryUtils, schComisionesClient_Intf,
|
||||
uBizContactos, uIEditorComisiones, uIEditorComision, uFactuGES_App,
|
||||
uDataModuleComisiones, uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
|
||||
uROTypes, DateUtils, Forms, uIntegerListUtils, uSistemaFunc, uDialogElegirEMail, uEMailUtils, uStringsUtils,
|
||||
uROXMLIntf, uBizFacturasCliente, uFacturasClienteController, uComisionesReportController;
|
||||
|
||||
|
||||
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
|
||||
ADestino : IBizDetallesFacturaCliente);
|
||||
var
|
||||
i : integer;
|
||||
ADetallesController : IDetallesFacturaClienteController;
|
||||
begin
|
||||
if not Assigned(AOrigen) then
|
||||
raise Exception.Create ('Origen no asignado (CopiarArticulosPedido)');
|
||||
|
||||
if not Assigned(ADestino) then
|
||||
raise Exception.Create ('Destino no asignado (CopiarArticulosPedido)');
|
||||
|
||||
if not AOrigen.DataTable.Active then
|
||||
AOrigen.DataTable.Active := True;
|
||||
|
||||
if not ADestino.DataTable.Active then
|
||||
ADestino.DataTable.Active := True;
|
||||
|
||||
ADetallesController := TDetallesFacturaClienteController.Create;
|
||||
try
|
||||
//OJO IMPORTANTE
|
||||
//Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
|
||||
//obligarle siempre a recalcular los detalles una sola vez
|
||||
ADetallesController.BeginUpdate(ADestino);
|
||||
|
||||
AOrigen.DataTable.First;
|
||||
for i := 0 to AOrigen.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
|
||||
ADestino.Edit;
|
||||
ADestino.REFERENCIA := AOrigen.REFERENCIA;
|
||||
if AOrigen.ID_ARTICULO > 0 then
|
||||
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
|
||||
ADestino.CONCEPTO := AOrigen.CONCEPTO;
|
||||
ADestino.CANTIDAD := AOrigen.CANTIDAD;
|
||||
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
|
||||
ADestino.IMPORTE_TOTAL := AOrigen.IMPORTE_TOTAL;
|
||||
ADestino.DESCUENTO := AOrigen.DESCUENTO;
|
||||
ADestino.IMPORTE_PORTE := AOrigen.IMPORTE_PORTE;
|
||||
ADestino.VISIBLE := AOrigen.VISIBLE;
|
||||
ADestino.REFERENCIA_PROVEEDOR := AOrigen.REFERENCIA_PROVEEDOR;
|
||||
ADestino.Post;
|
||||
AOrigen.Next;
|
||||
end;
|
||||
finally
|
||||
ADetallesController.EndUpdate(ADestino);
|
||||
ADetallesController := NIL;
|
||||
end;
|
||||
end;}
|
||||
|
||||
|
||||
|
||||
{ TComisionesController }
|
||||
|
||||
function TComisionesController.Anadir(AComision: IBizComision) : Boolean;
|
||||
begin
|
||||
if not Assigned(AComision) then
|
||||
raise Exception.Create ('Comision no asignada (Anadir)');
|
||||
AComision.Insert;
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
{
|
||||
function TComisionesController.Anadir(AComisions: IBizComision;
|
||||
AListaAlbaranes: IBizAlbaranCliente): Boolean;
|
||||
var
|
||||
AComisionActual : IBizComision;
|
||||
AAlbaranesController : IAlbaranesClienteController;
|
||||
I: Integer;
|
||||
bEnEdicion : Boolean;
|
||||
begin
|
||||
// ATENCIÓN!!! AComisions tiene que estar vacio para no pisar facturas
|
||||
// ya generadas.
|
||||
if not Assigned(AComisions) then
|
||||
raise Exception.Create ('Factura no asignada (Anadir)');
|
||||
|
||||
if not Assigned(AListaAlbaranes) then
|
||||
raise Exception.Create ('Albaranes no asignados (Anadir)');
|
||||
|
||||
if not AComisions.DataTable.Active then
|
||||
AComisions.DataTable.Active := True;
|
||||
|
||||
if not AListaAlbaranes.DataTable.Active then
|
||||
AListaAlbaranes.DataTable.Active := True;
|
||||
|
||||
ShowHourglassCursor;
|
||||
Application.ProcessMessages;
|
||||
|
||||
AAlbaranesController := TAlbaranesClienteController.Create;
|
||||
try
|
||||
// Ordenar por fecha de albaran
|
||||
AListaAlbaranes.DataTable.Sort([fld_AlbaranesClienteFECHA_ALBARAN], [uDADataTable.sdAscending]);
|
||||
AListaAlbaranes.First;
|
||||
for I := 0 to AListaAlbaranes.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
AListaAlbaranes._Cliente := NIL;
|
||||
AComisionActual := NIL;
|
||||
|
||||
// Busco si hay alguna factura ya hecha de ese cliente
|
||||
AComisions.DataTable.First;
|
||||
if AComisions.DataTable.Locate(fld_ComisionesID_CLIENTE, AListaAlbaranes.ID_CLIENTE, []) then
|
||||
begin
|
||||
AComisionActual := AComisions;
|
||||
RecuperarCliente(AComisionActual);
|
||||
AComisionActual.Cliente.DataTable.Active := True;
|
||||
end
|
||||
else begin
|
||||
// No hay factura de ese cliente. Creo una nueva
|
||||
Anadir(AComisions);
|
||||
AAlbaranesController.RecuperarCliente(AListaAlbaranes);
|
||||
AListaAlbaranes.Cliente.DataTable.Active := True;
|
||||
AComisions.Cliente := AListaAlbaranes.Cliente;
|
||||
|
||||
//Si el albaran es de tipo devolución hacemos la factura de tipo abono
|
||||
if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then
|
||||
begin
|
||||
bEnEdicion := (AComisions.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
AComisions.Edit;
|
||||
AComisions.TIPO := CTE_TIPO_ABONO;
|
||||
AComisions.Post;
|
||||
if bEnEdicion then
|
||||
AComisions.Edit;
|
||||
end;
|
||||
|
||||
AComisionActual := AComisions;
|
||||
end;
|
||||
|
||||
// Ya tengo la factura. Le añado los conceptos del albarán
|
||||
AComisionActual.Detalles.DataTable.Last;
|
||||
// Añado el título
|
||||
Self.DetallesController.Add(AComisionActual.Detalles, TIPO_DETALLE_TITULO);
|
||||
with AComisionActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
|
||||
Post;
|
||||
end;
|
||||
// Añado el contenido del albarán
|
||||
CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AComisionActual.Detalles);
|
||||
|
||||
Self.DetallesController.Add(AComisionActual.Detalles, TIPO_DETALLE_CONCEPTO);
|
||||
with AComisionActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Porte del albarán';
|
||||
CANTIDAD := 1;
|
||||
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_PORTE;
|
||||
Post;
|
||||
end;
|
||||
|
||||
// Añado el resumen
|
||||
Self.DetallesController.Add(AComisionActual.Detalles, TIPO_DETALLE_SUBTOTAL);
|
||||
with AComisionActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA;
|
||||
Post;
|
||||
end;
|
||||
|
||||
// Añado una línea en blanco
|
||||
Self.DetallesController.Add(AComisionActual.Detalles, TIPO_DETALLE_CONCEPTO);
|
||||
with AComisionActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := '';
|
||||
Post;
|
||||
end;
|
||||
|
||||
// Guardo la factura que acabo de generar o editar
|
||||
AComisionActual.CalcularImporteTotal;
|
||||
Self.Guardar(AComisionActual);
|
||||
// Asocio la factura con el albarán
|
||||
AListaAlbaranes.Edit;
|
||||
AListaAlbaranes.ID_FACTURA := AComisionActual.ID;
|
||||
AListaAlbaranes.Post;
|
||||
AAlbaranesController.Guardar(AListaAlbaranes);
|
||||
|
||||
AListaAlbaranes.Next;
|
||||
end;
|
||||
Result := True;
|
||||
finally
|
||||
AAlbaranesController := NIL;
|
||||
HideHourglassCursor
|
||||
end;
|
||||
end;
|
||||
}
|
||||
|
||||
{function TComisionesController.Anadir(AComision: IBizComision;
|
||||
const IDPedido: Integer): Boolean;
|
||||
var
|
||||
APedidosController : IPedidosClienteController;
|
||||
APedido : IBizPedidoCliente;
|
||||
begin
|
||||
Result := False;
|
||||
if not Assigned(AComision) then
|
||||
raise Exception.Create ('Factura no asignada (Anadir)');
|
||||
|
||||
if (IDPedido < 0) or (IDPedido = 0) then
|
||||
raise Exception.Create (Format('ID de pedido (%d) incorrecto (Anadir)', [IDPedido]));
|
||||
|
||||
if not AComision.DataTable.Active then
|
||||
AComision.DataTable.Active := True;
|
||||
|
||||
ShowHourglassCursor;
|
||||
Application.ProcessMessages;
|
||||
|
||||
APedido := NIL;
|
||||
APedidosController := TPedidosClienteController.Create;
|
||||
try
|
||||
APedido := APedidosController.Buscar(IDPedido);
|
||||
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create (Format('No se ha encontrado un pedido de cliente con ID %d (Anadir)', [IDPedido]));
|
||||
|
||||
APedido.DataTable.Active := True;
|
||||
APedidosController.RecuperarCliente(APedido);
|
||||
Self.Anadir(AComision);
|
||||
AComision.Cliente := APedido.Cliente;
|
||||
|
||||
CopiarArticulosPedido(APedido.Detalles, AComision.Detalles);
|
||||
|
||||
// Guardo la factura que acabo de generar
|
||||
AComision.CalcularImporteTotal;
|
||||
Self.Guardar(AComision);
|
||||
|
||||
Result := True;
|
||||
finally
|
||||
APedido := NIL;
|
||||
APedidosController := NIL;
|
||||
HideHourglassCursor;
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
end;}
|
||||
|
||||
|
||||
function TComisionesController.Buscar(const ID: Integer): IBizComision;
|
||||
begin
|
||||
Result := (FDataModule as IDataModuleComisiones).GetItem(ID);
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
{
|
||||
function TComisionesController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizComision;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
//Todas las facturas de un agente determinado
|
||||
Condicion := NewBinaryExpression(NewField('', fld_ComisionesID_AGENTE), NewConstant(IdAgente, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
//Todas aquellas que no esten asociadas a ninguna comisión o asociadas a la comisión,
|
||||
//pero no asociadas en el editor de la comision, esto es porque se puede agregar y quitar
|
||||
//facturas y todos los cambios estan el cache y por lo tanto al pedir las facturas a seleccionar
|
||||
//debemos tener en cuenta dichso cambios en cache
|
||||
Condicion := NewBinaryExpression(NewField('', fld_ComisionesID_COMISION_LIQUIDADA), NewNull(), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
{REPASARRRRRRR
|
||||
//Quitamos aquellas que ya están asociadas
|
||||
if length(IdFacturasAsociadas) > 0 then
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
Condicion := NewBinaryExpression(NewField('', fld_ComisionesID), ' not in (' + IdFacturasAsociadas + ')');, dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
|
||||
CLOSEBraket;
|
||||
AddOperator(opOR);
|
||||
|
||||
OpenBraket;
|
||||
//En caso de ser facturas ya asociadas lo limitamos a la comision actual
|
||||
//ya que no debemos poder elegir facturas asociadas a otras comisiones
|
||||
OpenBraket;
|
||||
AddText(fld_ComisionesID_COMISION_LIQUIDADA + ' = ' + IntToStr(IdComision));
|
||||
CloseBraket;
|
||||
//En el caso de que halla facturas asociadas
|
||||
if length(IdFacturasAsociadas) > 0 then
|
||||
begin
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_ComisionesID + ' not in (' + IdFacturasAsociadas + ')');
|
||||
CloseBraket;
|
||||
end;
|
||||
CloseBraket;
|
||||
|
||||
CloseBraket;
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
|
||||
{
|
||||
function TComisionesController.BuscarTodos(
|
||||
const AID_Cliente: Integer): IBizComision;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// ID_CLIENTE
|
||||
Condicion := NewBinaryExpression(NewField('', fld_ComisionesID_CLIENTE), NewConstant(AID_Cliente, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
|
||||
function TComisionesController.BuscarTodos: IBizComision;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
constructor TComisionesController.Create;
|
||||
begin
|
||||
inherited;
|
||||
FDataModule := TDataModuleComisiones.Create(Nil);
|
||||
// FDetallesController := TDetallesFacturaClienteController.Create;
|
||||
// FDetallesController.addObservador(Self);
|
||||
end;
|
||||
|
||||
function TComisionesController.CreateEditor(const AName: String;
|
||||
const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
function TComisionesController.DarListaAnosComisiones: TStringList;
|
||||
begin
|
||||
Result := FDataModule.GetAnosItems;
|
||||
end;
|
||||
|
||||
procedure TComisionesController.DescartarCambios(AComision: IBizComision);
|
||||
begin
|
||||
if not Assigned(AComision) then
|
||||
raise Exception.Create ('Comision no asignada');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (AComision.State in dsEditModes) then
|
||||
AComision.Cancel;
|
||||
|
||||
AComision.DataTable.CancelUpdates;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TComisionesController.Destroy;
|
||||
begin
|
||||
FDataModule := Nil;
|
||||
// FDetallesController := Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TComisionesController.ValidarComision(AComision: IBizComision): Boolean;
|
||||
begin
|
||||
if not Assigned(AComision) then
|
||||
raise Exception.Create ('Comision no asignada');
|
||||
|
||||
if (AComision.DataTable.State in dsEditModes) then
|
||||
AComision.DataTable.Post;
|
||||
|
||||
//Tambien hacemos post de sus tablas hija
|
||||
if (AComision.FacturasComision.DataTable.State in dsEditModes) then
|
||||
AComision.FacturasComision.DataTable.Post;
|
||||
|
||||
if (AComision.ID_AGENTE < 0) or (AComision.ID_AGENTE = 0) then
|
||||
// No comprobar el objeto Cliente por que puede fallar la validación
|
||||
// cuando se generan facturas automáticamente.
|
||||
{ (not Assigned(AComision.Cliente)) or
|
||||
(AComision.Cliente.IsEmpty) then}
|
||||
raise Exception.Create('Debe indicar el vendedor de esta comision');
|
||||
|
||||
if (EsFechaVacia(AComision.FECHA)) then
|
||||
raise Exception.Create('Debe indicar la fecha de esta comision');
|
||||
|
||||
if (AComision.FacturasComision.DataTable.RecordCount = 0) then
|
||||
raise Exception.Create('La comisión debe tener al menos una factura en su contenido');
|
||||
|
||||
{ Asegurarse de valores en campos "automáticos" tanto
|
||||
en MODIFICACIÓN como en INSERCIÓN. }
|
||||
AComision.Edit;
|
||||
try
|
||||
AComision.USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||
Result := True;
|
||||
finally
|
||||
AComision.Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TComisionesController.Ver(AComision: IBizComision);
|
||||
var
|
||||
AEditor : IEditorComision;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorComision', IEditorComision, AEditor);
|
||||
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
AEditor.Comision := AComision;
|
||||
|
||||
//MODO CONSULTAR
|
||||
if not EsModificable(AComision) then
|
||||
begin
|
||||
SetDataTableReadOnly(AComision.DataTable, True);
|
||||
AEditor.ReadOnly := True;
|
||||
end;
|
||||
|
||||
AEditor.ShowModal;
|
||||
|
||||
//MODO CONSULTAR (Se deja la tabla como estaba)
|
||||
if AEditor.ReadOnly then
|
||||
SetDataTableReadOnly(AComision.DataTable, False);
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TComisionesController.VerTodos(AComisiones: IBizComision;
|
||||
const AVerModal : Boolean = False; const AWindowCaption: String = '';
|
||||
const AHeaderText: String = '');
|
||||
var
|
||||
AEditor : IEditorComisiones;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
CreateEditor('EditorComisiones', IEditorComisiones, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
if not EsCadenaVacia(AWindowCaption) then
|
||||
AEditor.WindowCaption := AWindowCaption;
|
||||
|
||||
if not EsCadenaVacia(AHeaderText) then
|
||||
AEditor.HeaderText := AHeaderText;
|
||||
|
||||
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
AEditor.Comisiones := AComisiones;
|
||||
AEditor.MultiSelect := True;
|
||||
if AVerModal then
|
||||
AEditor.ShowModal
|
||||
else
|
||||
AEditor.ShowEmbedded;
|
||||
finally
|
||||
if AVerModal then
|
||||
AEditor.Release;
|
||||
AEditor := Nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TComisionesController._Vacio: IBizComision;
|
||||
begin
|
||||
Result := Buscar(ID_NULO);
|
||||
end;
|
||||
|
||||
function TComisionesController.Eliminar(const ID: Integer): Boolean;
|
||||
var
|
||||
AComision : IBizComision;
|
||||
begin
|
||||
AComision := Buscar(ID);
|
||||
|
||||
if not Assigned(AComision) then
|
||||
raise Exception.Create(Format('No se ha encontrado la comision con ID = %d', [ID]));
|
||||
|
||||
Result := Eliminar(AComision);
|
||||
AComision := NIL;
|
||||
end;
|
||||
|
||||
{
|
||||
function TComisionesController.ElegirComisiones(AComisions: IBizComision; AMensaje: String;
|
||||
AMultiSelect: Boolean): IBizComision;
|
||||
var
|
||||
AEditor : IEditorElegirComisiones;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
CreateEditor('EditorElegirComisiones', IEditorElegirComisiones, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.Facturas := AComisions;
|
||||
AEditor.MultiSelect := AMultiSelect;
|
||||
AEditor.Mensaje := AMensaje;
|
||||
if IsPositiveResult(AEditor.ShowModal) then
|
||||
Result := AEditor.ComisionesSeleccionados;
|
||||
finally
|
||||
AEditor.Release;
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
|
||||
function TComisionesController.ElegirFacturasComision(AComision: IBizComision): Boolean;
|
||||
var
|
||||
AFacturasClienteController: IFacturasClienteController;
|
||||
AFacturasAgente : IBizFacturaCliente;
|
||||
AFacturasSeleccionadas : IBizFacturaCliente;
|
||||
Cadena: String;
|
||||
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if (AComision.ID_AGENTE <> 0) then
|
||||
begin
|
||||
|
||||
if Assigned(AComision.FacturasComision) then
|
||||
begin
|
||||
with AComision.FacturasComision.DataTable do
|
||||
begin
|
||||
if not Active then Active := True;
|
||||
First;
|
||||
Cadena := '';
|
||||
While not Eof do
|
||||
begin
|
||||
if (Length(Cadena) > 0) then
|
||||
Cadena := Cadena + ', ';
|
||||
Cadena := Cadena + IntToStr(AComision.FacturasComision.ID);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
AFacturasClienteController := TFacturasClienteController.Create;
|
||||
AFacturasAgente := AFacturasClienteController.BuscarTodasPendientesComision(AComision.ID_AGENTE, AComision.ID, Cadena);
|
||||
AFacturasSeleccionadas := (AFacturasClienteController.ElegirFacturas(AFacturasAgente, 'Elija uno o más facturas para incluirlos en esta liquidación de comisiones', True) as IBizFacturaCliente);
|
||||
|
||||
if Assigned(AFacturasSeleccionadas) then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
//Copia las facturas seleccionadas de las facturas de la comision
|
||||
DuplicarRegistros(AFacturasSeleccionadas.DataTable, AComision.FacturasComision.DataTable, mdrTodos, True, True, True);
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
AFacturasClienteController := Nil;
|
||||
AFacturasAgente := Nil;
|
||||
AFacturasSeleccionadas := Nil;
|
||||
end
|
||||
else
|
||||
ShowWarningMessage('Debe elegir primero el vendedor asociado a la liquidación');
|
||||
end;
|
||||
|
||||
function TComisionesController.Eliminar(AComision: IBizComision; AllItems: Boolean = false): Boolean;
|
||||
//En el caso de eliminar almenos un elemento del conjunto se devuelve true
|
||||
var
|
||||
bEliminado: Boolean;
|
||||
|
||||
begin
|
||||
//Importante revisar que existe la FK_FACTURAS_CLIENTE_COMISION ya que cuando se elimina la cabecera es lo que funciona
|
||||
//no funciona el comando deletefacturascomision por business
|
||||
|
||||
bEliminado := False;
|
||||
|
||||
if not Assigned(AComision) then
|
||||
raise Exception.Create ('Comision no asignada');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if not AComision.DataTable.Active then
|
||||
AComision.DataTable.Active := True;
|
||||
|
||||
if (AComision.State in dsEditModes) then
|
||||
AComision.Cancel;
|
||||
|
||||
//Siempre eliminaremos el seleccionado
|
||||
if EsEliminable(AComision) then
|
||||
begin
|
||||
AComision.Delete;
|
||||
bEliminado := True;
|
||||
end;
|
||||
|
||||
//En el caso de querer eliminar todos los items del objeto AAlbaran
|
||||
if AllItems then
|
||||
begin
|
||||
with AComision.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
if EsEliminable(AComision) then
|
||||
begin
|
||||
AComision.Delete;
|
||||
bEliminado := True
|
||||
end
|
||||
else Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
if bEliminado then
|
||||
begin
|
||||
try
|
||||
AComision.DataTable.ApplyUpdates;
|
||||
Result := True
|
||||
except
|
||||
//En el caso de una factura que tiene recibos con devoluciones hechas no se puede borrar aunque la factura este en situacion de pendiente
|
||||
AComision.DataTable.CancelUpdates;
|
||||
Result := False;
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := False;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TComisionesController.EsEliminable(AComision: IBizComision): Boolean;
|
||||
begin
|
||||
Result := EsModificable(AComision);
|
||||
end;
|
||||
|
||||
function TComisionesController.EsModificable(AComision: IBizComision): Boolean;
|
||||
begin
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure TComisionesController.RecalcularImportes(
|
||||
AComision: IBizComision);
|
||||
var
|
||||
bEnEdicion : Boolean;
|
||||
ADetallePosAct : Integer;
|
||||
begin
|
||||
{
|
||||
if not Assigned(AComision) then
|
||||
raise Exception.Create ('Factura no asignado (RecalcularImportes)');
|
||||
|
||||
if AComision.DataTable.Active then
|
||||
AComision.DataTable.Active := True;
|
||||
|
||||
{ Hay que guardar la posición en la que estamos en los detalles por que
|
||||
la asignación de valores a los campos IMPORTE_NETO e IMPORTE_PORTE
|
||||
(ver más adelante) colocan el puntero en la tabla detalle al principio.
|
||||
No he encontrado la razón por la que mueve el puntero. }
|
||||
{
|
||||
ADetallePosAct := AComision.Detalles.POSICION;
|
||||
|
||||
bEnEdicion := (AComision.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
AComision.Edit;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AComision.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(AComision.Detalles);
|
||||
AComision.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(AComision.Detalles);
|
||||
|
||||
if not bEnEdicion then
|
||||
AComision.Post;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
// Restaurar la posición que teníamos en los detalles.
|
||||
FDetallesController.LocalizarPosicion(AComision.Detalles, ADetallePosAct);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TComisionesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
var
|
||||
AComision : IBizComision;
|
||||
AFacturasComision : IBizFacturasComision;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if Supports(ADataTable, IBizFacturasComision, AFacturasComision) and
|
||||
Supports(AFacturasComision.DataTable.MasterSource.DataTable, IBizComision, AComision) then
|
||||
begin
|
||||
RecalcularImportes(AComision);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TComisionesController.Existe(const ID: Integer): Boolean;
|
||||
var
|
||||
AComision : IBizComision;
|
||||
begin
|
||||
try
|
||||
AComision := Buscar(ID);
|
||||
Result := Assigned(AComision) and (AComision.ID = ID);
|
||||
finally
|
||||
AComision := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TComisionesController.ExtraerSeleccionados(AComisiones: IBizComision): IBizComision;
|
||||
var
|
||||
ASeleccionados : IBizComision;
|
||||
begin
|
||||
ASeleccionados := (Self.Buscar(ID_NULO) as IBizComision);
|
||||
CopyDataTableDA5(AComisiones.DataTable, ASeleccionados.DataTable, True);
|
||||
Result := ASeleccionados;
|
||||
end;
|
||||
|
||||
procedure TComisionesController.FiltrarAno(AComision: IBizComision; ADynWhereDataTable: WideString; const Ano: String);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
FechaIni: String;
|
||||
FechaFin: String;
|
||||
|
||||
begin
|
||||
AComision.DataTable.DynamicWhere.Clear;
|
||||
AComision.DataTable.DynamicWhere.Xml := ADynWhereDataTable;
|
||||
|
||||
if (Ano <> 'Todos') then
|
||||
begin
|
||||
// Filtrar las facturas actuales por empresa
|
||||
FechaIni := '01/01/' + Ano;
|
||||
FechaFin := '31/12/' + Ano;
|
||||
with AComision.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (FECHA_INICIO between FECHA_FIN)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_ComisionesFECHA), NewConstant(FechaIni, datString), dboGreaterOrEqual);
|
||||
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_ComisionesFECHA), NewConstant(FechaFin, datString), dboLessOrEqual), Condicion, dboAnd);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Condicion, Expression, dboAnd);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TComisionesController.FiltrarEmpresa(AComision: IBizComision);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
if AComision.DataTable.Active then
|
||||
AComision.DataTable.Active := False;
|
||||
|
||||
// Filtrar las comisiones actuales por empresa
|
||||
with AComision.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID_EMPRESA >= ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_ComisionesID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TComisionesController.Guardar(AComision: IBizComision): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(AComision) then
|
||||
raise Exception.Create ('Comision no asignada');
|
||||
|
||||
if ValidarComision(AComision) then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
|
||||
// Asegurarnos de que todos los importes están bien.
|
||||
RecalcularImportes(AComision);
|
||||
|
||||
try
|
||||
AComision.DataTable.ApplyUpdates;
|
||||
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TComisionesController.Nuevo(withInsert: Boolean = True): IBizComision;
|
||||
var
|
||||
AComision : IBizComision;
|
||||
begin
|
||||
AComision := FDataModule.NewItem;
|
||||
FiltrarEmpresa(AComision);
|
||||
AComision.DataTable.Active := True;
|
||||
if WithInsert then
|
||||
AComision.Insert;
|
||||
Result := AComision;
|
||||
end;
|
||||
|
||||
procedure TComisionesController.Preview(AComision: IBizComision; AllItems: Boolean = false);
|
||||
var
|
||||
AReportController : IComisionesReportController;
|
||||
ID_Comisiones: TIntegerList;
|
||||
|
||||
begin
|
||||
AReportController := TComisionesReportController.Create;
|
||||
ID_Comisiones := TIntegerList.Create;
|
||||
|
||||
try
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
if AllItems then
|
||||
begin
|
||||
with AComision.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
ID_Comisiones.Add(AComision.ID);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
//Solo previsualizamos el item seleccionado
|
||||
else
|
||||
ID_Comisiones.Add(AComision.ID);
|
||||
|
||||
AReportController.Preview(ID_Comisiones);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
FreeANDNIL(ID_Comisiones);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TComisionesController.Print(AComision: IBizComision; AllItems: Boolean = false);
|
||||
var
|
||||
AReportController : IComisionesReportController;
|
||||
ID_Comisiones: TIntegerList;
|
||||
|
||||
begin
|
||||
AReportController := TComisionesReportController.Create;
|
||||
ID_Comisiones := TIntegerList.Create;
|
||||
|
||||
try
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
if AllItems then
|
||||
begin
|
||||
with AComision.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
ID_Comisiones.Add(AComision.ID);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
//Solo previsualizamos el item seleccionado
|
||||
else
|
||||
ID_Comisiones.Add(AComision.ID);
|
||||
|
||||
AReportController.Print(ID_Comisiones);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
FreeANDNIL(ID_Comisiones);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,117 @@
|
||||
unit uComisionesReportController;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleComisionesReport,
|
||||
uBizComisiones, uIntegerListUtils;
|
||||
|
||||
type
|
||||
IComisionesReportController = interface(IControllerBase)
|
||||
['{60FDD06C-2B59-4276-BC24-D14EBCB87FE6}']
|
||||
procedure Preview(const AListaID : TIntegerList);
|
||||
procedure Print(const AListaID : TIntegerList);
|
||||
end;
|
||||
|
||||
TComisionesReportController = class(TControllerBase, IComisionesReportController)
|
||||
private
|
||||
FDataModule : IDataModuleComisionesReport;
|
||||
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure Preview(const AListaID : TIntegerList);
|
||||
procedure Print(const AListaID : TIntegerList);
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uROTypes, uEditorRegistryUtils,
|
||||
uIEditorComisionesPreview,
|
||||
uEditorPreview, uDataModuleComisiones, uEditorBase, cxControls,
|
||||
uStringsUtils, uSistemaFunc;
|
||||
|
||||
{ TComisionesReportController }
|
||||
|
||||
constructor TComisionesReportController.Create;
|
||||
begin
|
||||
inherited;
|
||||
FDataModule := TDataModuleComisiones.Create(Nil);
|
||||
end;
|
||||
|
||||
function TComisionesReportController.CreateEditor(const AName: String;
|
||||
const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
|
||||
destructor TComisionesReportController.Destroy;
|
||||
begin
|
||||
FDataModule := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TComisionesReportController.Preview(const AListaID : TIntegerList);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorComisionesPreview;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetRptComisiones(AListaID);
|
||||
try
|
||||
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.ListaID := AListaID;
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Preview;
|
||||
finally
|
||||
AEditor.Release;
|
||||
end;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
AEditor := Nil;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TComisionesReportController.Print(const AListaID : TIntegerList);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorComisionesPreview;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetRptComisiones(AListaID);
|
||||
try
|
||||
CreateEditor('EditorComisionesPreview', IEditorComisionesPreview, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.Controller := Self;
|
||||
AEditor.LoadFromStream(AStream);
|
||||
AEditor.Print;
|
||||
finally
|
||||
AEditor.Release;
|
||||
end;
|
||||
finally
|
||||
FreeAndNil(AStream);
|
||||
AEditor := Nil;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
BIN
Source/Modulos/Comisiones/Data/Comisiones_data.dpk
Normal file
BIN
Source/Modulos/Comisiones/Data/Comisiones_data.dpk
Normal file
Binary file not shown.
543
Source/Modulos/Comisiones/Data/Comisiones_data.dproj
Normal file
543
Source/Modulos/Comisiones/Data/Comisiones_data.dproj
Normal file
@ -0,0 +1,543 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{26de542f-970f-4e56-aaf6-401887defb78}</ProjectGuid>
|
||||
<MainSource>Comisiones_data.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_data.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Comisiones_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Comisiones_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Contactos\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\Comisiones_model.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Contactos\vclx.dcp" />
|
||||
<DCCReference Include="uDataModuleComisiones.pas">
|
||||
<Form>DataModuleComisiones</Form>
|
||||
<DesignClass>TDAClientDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
BIN
Source/Modulos/Comisiones/Data/Comisiones_data.res
Normal file
BIN
Source/Modulos/Comisiones/Data/Comisiones_data.res
Normal file
Binary file not shown.
235
Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
Normal file
235
Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm
Normal file
@ -0,0 +1,235 @@
|
||||
inherited DataModuleComisiones: TDataModuleComisiones
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Height = 269
|
||||
Width = 387
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
Channel = dmConexion.ROChannel
|
||||
ServiceName = 'srvComisiones'
|
||||
Left = 48
|
||||
Top = 24
|
||||
end
|
||||
object rda_Comisiones: TDARemoteDataAdapter
|
||||
DataStreamer = Bin2DataStreamer
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
Left = 51
|
||||
Top = 143
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object tbl_ListaAnosComisiones: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ANO'
|
||||
DataType = datString
|
||||
Size = 254
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Comisiones
|
||||
LogicalName = 'ListaAnosComisiones'
|
||||
IndexDefs = <>
|
||||
Left = 168
|
||||
Top = 72
|
||||
end
|
||||
object ds_ListaAnosComisiones: TDADataSource
|
||||
DataSet = tbl_ListaAnosComisiones.Dataset
|
||||
DataTable = tbl_ListaAnosComisiones
|
||||
Left = 168
|
||||
Top = 16
|
||||
end
|
||||
object tbl_Comisiones: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_COMISIONES_LIQUID_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Comisiones_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Comisiones_ID_EMPRESA'
|
||||
DictionaryEntry = 'Comisiones_ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Comisiones_REFERENCIA'
|
||||
DictionaryEntry = 'Comisiones_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Comisiones_ID_AGENTE'
|
||||
DictionaryEntry = 'Comisiones_ID_AGENTE'
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Comisiones_AGENTE'
|
||||
DictionaryEntry = 'Comisiones_AGENTE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Comisiones_DESCRIPCION'
|
||||
DictionaryEntry = 'Comisiones_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Comisiones_FECHA'
|
||||
DictionaryEntry = 'Comisiones_FECHA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Comisiones_IMPORTE_TOTAL'
|
||||
DictionaryEntry = 'Comisiones_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
DisplayLabel = 'Comisiones_USUARIO'
|
||||
DictionaryEntry = 'Comisiones_USUARIO'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Comisiones
|
||||
LogicalName = 'Comisiones'
|
||||
IndexDefs = <>
|
||||
Left = 168
|
||||
Top = 184
|
||||
end
|
||||
object ds_Comisiones: TDADataSource
|
||||
DataSet = tbl_Comisiones.Dataset
|
||||
DataTable = tbl_Comisiones
|
||||
Left = 168
|
||||
Top = 128
|
||||
end
|
||||
object tbl_FacturasComision: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'FacturasComision_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_COMISION_LIQUIDADA'
|
||||
DataType = datInteger
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
DisplayLabel = 'Referencia'
|
||||
DictionaryEntry = 'FacturasCliente_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha de las factura'
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha de vencimiento'
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO'
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
DictionaryEntry = 'FacturasCliente_SITUACION'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Base imponible'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'NIF/CIF'
|
||||
DictionaryEntry = 'FacturasCliente_NIF_CIF'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
DisplayLabel = 'Cliente'
|
||||
DictionaryEntry = 'FacturasCliente_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_AGENTE'
|
||||
end
|
||||
item
|
||||
Name = 'COMISION'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'FacturasCliente_COMISION'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COMISION'
|
||||
DataType = datCurrency
|
||||
DecimalPrecision = 11
|
||||
DecimalScale = 2
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION'
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Comisiones
|
||||
MasterSource = ds_Comisiones
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_COMISION_LIQUIDADA'
|
||||
LogicalName = 'FacturasComision'
|
||||
IndexDefs = <>
|
||||
Left = 296
|
||||
Top = 184
|
||||
end
|
||||
object ds_FacturasComision: TDADataSource
|
||||
DataSet = tbl_FacturasComision.Dataset
|
||||
DataTable = tbl_FacturasComision
|
||||
Left = 296
|
||||
Top = 128
|
||||
end
|
||||
end
|
||||
164
Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
Normal file
164
Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas
Normal file
@ -0,0 +1,164 @@
|
||||
unit uDataModuleComisiones;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uRORemoteService, uROClient, uROBinMessage,
|
||||
|
||||
uIDataModuleComisiones, uBizComisiones, uIDataModuleComisionesReport,
|
||||
uDADesigntimeCall, uDataModuleBase,
|
||||
uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
|
||||
uDARemoteDataAdapter, uIntegerListUtils;
|
||||
|
||||
type
|
||||
TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones, IDataModuleComisionesReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
rda_Comisiones: TDARemoteDataAdapter;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
tbl_ListaAnosComisiones: TDAMemDataTable;
|
||||
ds_ListaAnosComisiones: TDADataSource;
|
||||
tbl_Comisiones: TDAMemDataTable;
|
||||
ds_Comisiones: TDADataSource;
|
||||
tbl_FacturasComision: TDAMemDataTable;
|
||||
ds_FacturasComision: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
private
|
||||
function _GetFacturasComision : IBizFacturasComision;
|
||||
public
|
||||
function GetAnosItems : TStringList;
|
||||
function GetItems : IBizComision;
|
||||
function GetItem(const ID : Integer) : IBizComision;
|
||||
function NewItem : IBizComision;
|
||||
|
||||
// Report
|
||||
function GetRptComisiones(const AListaID: TIntegerList): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
||||
schComisionesClient_Intf, uBizContactos, Dialogs;
|
||||
|
||||
{ TdmComisiones }
|
||||
|
||||
procedure TDataModuleComisiones.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
|
||||
function TDataModuleComisiones.GetRptComisiones(const AListaID: TIntegerList): Binary;
|
||||
var
|
||||
AParam : TIntegerArray;
|
||||
begin
|
||||
AParam := AListaID.ToIntegerArray;
|
||||
try
|
||||
Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam);
|
||||
finally
|
||||
FreeANDNIL(AParam);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones.NewItem: IBizComision;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones._GetFacturasComision: IBizFacturasComision;
|
||||
var
|
||||
AFacturasComision : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AFacturasComision := CloneDataTable(tbl_FacturasComision);
|
||||
with AFacturasComision do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_FACTURASCOMISION;
|
||||
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (AFacturasComision as IBizFacturasComision);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones.GetItem(const ID: Integer): IBizComision;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID = :ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_ComisionesID), NewConstant(ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones.GetAnosItems: TStringList;
|
||||
var
|
||||
AListaAnos: TStringList;
|
||||
begin
|
||||
AListaAnos := TStringList.Create;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
with tbl_ListaAnosComisiones do
|
||||
begin
|
||||
Open;
|
||||
First;
|
||||
while not eof do
|
||||
begin
|
||||
AListaAnos.Add(Format('%s=%s', [Fields[0].AsString, Fields[0].AsString]));
|
||||
Next;
|
||||
end;
|
||||
Close;
|
||||
end;
|
||||
Result := AListaAnos;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleComisiones.GetItems: IBizComision;
|
||||
var
|
||||
AComision : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AComision := CloneDataTable(tbl_Comisiones);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
AComision.FieldByName(fld_ComisionesREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
|
||||
AComision.BusinessRulesID := BIZ_CLIENT_COMISIONES;
|
||||
|
||||
with TBizComision(AComision.BusinessEventsObj) do
|
||||
begin
|
||||
FacturasComision := _GetFacturasComision;
|
||||
end;
|
||||
|
||||
Result := (AComision as IBizComision);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
BIN
Source/Modulos/Comisiones/Model/Comisiones_model.dpk
Normal file
BIN
Source/Modulos/Comisiones/Model/Comisiones_model.dpk
Normal file
Binary file not shown.
545
Source/Modulos/Comisiones/Model/Comisiones_model.dproj
Normal file
545
Source/Modulos/Comisiones/Model/Comisiones_model.dproj
Normal file
@ -0,0 +1,545 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ed454295-ce74-4b0c-9303-cdc58434faae}</ProjectGuid>
|
||||
<MainSource>Comisiones_model.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_model.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Comisiones_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Comisiones_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="Data\adortl.dcp" />
|
||||
<DCCReference Include="Data\Base.dcp" />
|
||||
<DCCReference Include="Data\Contactos_model.dcp" />
|
||||
<DCCReference Include="Data\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="Data\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\dbrtl.dcp" />
|
||||
<DCCReference Include="Data\dsnap.dcp" />
|
||||
<DCCReference Include="Data\dxCoreD11.dcp" />
|
||||
<DCCReference Include="Data\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="Data\dxThemeD11.dcp" />
|
||||
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\rtl.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleComisiones.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleComisionesReport.pas" />
|
||||
<DCCReference Include="Data\vcl.dcp" />
|
||||
<DCCReference Include="Data\vcldb.dcp" />
|
||||
<DCCReference Include="Data\vclx.dcp" />
|
||||
<DCCReference Include="schComisionesClient_Intf.pas" />
|
||||
<DCCReference Include="schComisionesServer_Intf.pas" />
|
||||
<DCCReference Include="uBizComisiones.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
BIN
Source/Modulos/Comisiones/Model/Comisiones_model.res
Normal file
BIN
Source/Modulos/Comisiones/Model/Comisiones_model.res
Normal file
Binary file not shown.
@ -0,0 +1,19 @@
|
||||
unit uIDataModuleComisiones;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, uROTypes, uBizComisiones;
|
||||
|
||||
type
|
||||
IDataModuleComisiones = interface
|
||||
['{ECECAA67-E784-414F-80D1-83A14382F658}']
|
||||
function GetAnosItems : TStringList;
|
||||
function GetItems: IBizComision;
|
||||
function GetItem(const ID : Integer) : IBizComision;
|
||||
function NewItem : IBizComision;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,16 @@
|
||||
unit uIDataModuleComisionesReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, Classes, uROTypes, uIntegerListUtils;
|
||||
|
||||
type
|
||||
IDataModuleComisionesReport = interface
|
||||
['{D445F984-7696-448F-9FC4-162AA7288515}']
|
||||
function GetRptComisiones(const AListaID: TIntegerList): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
988
Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
Normal file
988
Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas
Normal file
@ -0,0 +1,988 @@
|
||||
unit schComisionesClient_Intf;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, 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_ListaAnosComisiones = '{66E00D22-209F-4E5E-85DF-BE652D61F802}';
|
||||
RID_FacturasComision = '{A126BC5D-015C-4584-A4B9-0A06FF260E0F}';
|
||||
RID_Comisiones = '{E62AD8E5-0BBA-4075-88FC-90D4A33BFEDA}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosComisiones = 'ListaAnosComisiones';
|
||||
nme_FacturasComision = 'FacturasComision';
|
||||
nme_Comisiones = 'Comisiones';
|
||||
|
||||
{ ListaAnosComisiones fields }
|
||||
fld_ListaAnosComisionesANO = 'ANO';
|
||||
|
||||
{ ListaAnosComisiones field indexes }
|
||||
idx_ListaAnosComisionesANO = 0;
|
||||
|
||||
{ FacturasComision fields }
|
||||
fld_FacturasComisionID = 'ID';
|
||||
fld_FacturasComisionID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_FacturasComisionID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
|
||||
fld_FacturasComisionREFERENCIA = 'REFERENCIA';
|
||||
fld_FacturasComisionFECHA_FACTURA = 'FECHA_FACTURA';
|
||||
fld_FacturasComisionFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
|
||||
fld_FacturasComisionSITUACION = 'SITUACION';
|
||||
fld_FacturasComisionBASE_IMPONIBLE = 'BASE_IMPONIBLE';
|
||||
fld_FacturasComisionID_CLIENTE = 'ID_CLIENTE';
|
||||
fld_FacturasComisionNIF_CIF = 'NIF_CIF';
|
||||
fld_FacturasComisionNOMBRE = 'NOMBRE';
|
||||
fld_FacturasComisionID_AGENTE = 'ID_AGENTE';
|
||||
fld_FacturasComisionCOMISION = 'COMISION';
|
||||
fld_FacturasComisionIMPORTE_COMISION = 'IMPORTE_COMISION';
|
||||
|
||||
{ FacturasComision field indexes }
|
||||
idx_FacturasComisionID = 0;
|
||||
idx_FacturasComisionID_EMPRESA = 1;
|
||||
idx_FacturasComisionID_COMISION_LIQUIDADA = 2;
|
||||
idx_FacturasComisionREFERENCIA = 3;
|
||||
idx_FacturasComisionFECHA_FACTURA = 4;
|
||||
idx_FacturasComisionFECHA_VENCIMIENTO = 5;
|
||||
idx_FacturasComisionSITUACION = 6;
|
||||
idx_FacturasComisionBASE_IMPONIBLE = 7;
|
||||
idx_FacturasComisionID_CLIENTE = 8;
|
||||
idx_FacturasComisionNIF_CIF = 9;
|
||||
idx_FacturasComisionNOMBRE = 10;
|
||||
idx_FacturasComisionID_AGENTE = 11;
|
||||
idx_FacturasComisionCOMISION = 12;
|
||||
idx_FacturasComisionIMPORTE_COMISION = 13;
|
||||
|
||||
{ Comisiones fields }
|
||||
fld_ComisionesID = 'ID';
|
||||
fld_ComisionesID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_ComisionesREFERENCIA = 'REFERENCIA';
|
||||
fld_ComisionesID_AGENTE = 'ID_AGENTE';
|
||||
fld_ComisionesAGENTE = 'AGENTE';
|
||||
fld_ComisionesDESCRIPCION = 'DESCRIPCION';
|
||||
fld_ComisionesFECHA = 'FECHA';
|
||||
fld_ComisionesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
|
||||
fld_ComisionesUSUARIO = 'USUARIO';
|
||||
|
||||
{ Comisiones field indexes }
|
||||
idx_ComisionesID = 0;
|
||||
idx_ComisionesID_EMPRESA = 1;
|
||||
idx_ComisionesREFERENCIA = 2;
|
||||
idx_ComisionesID_AGENTE = 3;
|
||||
idx_ComisionesAGENTE = 4;
|
||||
idx_ComisionesDESCRIPCION = 5;
|
||||
idx_ComisionesFECHA = 6;
|
||||
idx_ComisionesIMPORTE_TOTAL = 7;
|
||||
idx_ComisionesUSUARIO = 8;
|
||||
|
||||
type
|
||||
{ IListaAnosComisiones }
|
||||
IListaAnosComisiones = interface(IDAStronglyTypedDataTable)
|
||||
['{1349D704-D40A-462B-95FE-2038BE81C5FE}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
function GetANOIsNull: Boolean;
|
||||
procedure SetANOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ANO: String read GetANOValue write SetANOValue;
|
||||
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
|
||||
end;
|
||||
|
||||
{ TListaAnosComisionesDataTableRules }
|
||||
TListaAnosComisionesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosComisiones)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String; virtual;
|
||||
procedure SetANOValue(const aValue: String); virtual;
|
||||
function GetANOIsNull: Boolean; virtual;
|
||||
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ANO: String read GetANOValue write SetANOValue;
|
||||
property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IFacturasComision }
|
||||
IFacturasComision = interface(IDAStronglyTypedDataTable)
|
||||
['{C3BFD07E-6C74-4487-8281-11341EB61A5B}']
|
||||
{ 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_COMISION_LIQUIDADAValue: Integer;
|
||||
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
|
||||
function GetID_COMISION_LIQUIDADAIsNull: Boolean;
|
||||
procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
|
||||
function GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
function GetREFERENCIAIsNull: Boolean;
|
||||
procedure SetREFERENCIAIsNull(const aValue: Boolean);
|
||||
function GetFECHA_FACTURAValue: DateTime;
|
||||
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
|
||||
function GetFECHA_FACTURAIsNull: Boolean;
|
||||
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
|
||||
function GetFECHA_VENCIMIENTOValue: DateTime;
|
||||
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
||||
function GetFECHA_VENCIMIENTOIsNull: Boolean;
|
||||
procedure SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
|
||||
function GetSITUACIONValue: String;
|
||||
procedure SetSITUACIONValue(const aValue: String);
|
||||
function GetSITUACIONIsNull: Boolean;
|
||||
procedure SetSITUACIONIsNull(const aValue: Boolean);
|
||||
function GetBASE_IMPONIBLEValue: Currency;
|
||||
procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
|
||||
function GetBASE_IMPONIBLEIsNull: Boolean;
|
||||
procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
|
||||
function GetID_CLIENTEValue: Integer;
|
||||
procedure SetID_CLIENTEValue(const aValue: Integer);
|
||||
function GetID_CLIENTEIsNull: Boolean;
|
||||
procedure SetID_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetNIF_CIFValue: String;
|
||||
procedure SetNIF_CIFValue(const aValue: String);
|
||||
function GetNIF_CIFIsNull: Boolean;
|
||||
procedure SetNIF_CIFIsNull(const aValue: Boolean);
|
||||
function GetNOMBREValue: String;
|
||||
procedure SetNOMBREValue(const aValue: String);
|
||||
function GetNOMBREIsNull: Boolean;
|
||||
procedure SetNOMBREIsNull(const aValue: Boolean);
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetID_AGENTEIsNull: Boolean;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
function GetCOMISIONValue: Float;
|
||||
procedure SetCOMISIONValue(const aValue: Float);
|
||||
function GetCOMISIONIsNull: Boolean;
|
||||
procedure SetCOMISIONIsNull(const aValue: Boolean);
|
||||
function GetIMPORTE_COMISIONValue: Currency;
|
||||
procedure SetIMPORTE_COMISIONValue(const aValue: Currency);
|
||||
function GetIMPORTE_COMISIONIsNull: Boolean;
|
||||
procedure SetIMPORTE_COMISIONIsNull(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_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
|
||||
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
||||
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
|
||||
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
|
||||
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
||||
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
|
||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
||||
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
|
||||
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
|
||||
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
|
||||
property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
|
||||
property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
|
||||
end;
|
||||
|
||||
{ TFacturasComisionDataTableRules }
|
||||
TFacturasComisionDataTableRules = class(TIntfObjectDADataTableRules, IFacturasComision)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EMPRESAValue: Integer; virtual;
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||
function GetID_EMPRESAIsNull: Boolean; virtual;
|
||||
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_COMISION_LIQUIDADAValue: Integer; virtual;
|
||||
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual;
|
||||
function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual;
|
||||
procedure SetID_COMISION_LIQUIDADAIsNull(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 GetFECHA_FACTURAValue: DateTime; virtual;
|
||||
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_FACTURAIsNull(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 GetSITUACIONValue: String; virtual;
|
||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
||||
function GetSITUACIONIsNull: Boolean; virtual;
|
||||
procedure SetSITUACIONIsNull(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 GetID_CLIENTEValue: Integer; virtual;
|
||||
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
||||
function GetID_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetNIF_CIFValue: String; virtual;
|
||||
procedure SetNIF_CIFValue(const aValue: String); virtual;
|
||||
function GetNIF_CIFIsNull: Boolean; virtual;
|
||||
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
|
||||
function GetNOMBREValue: String; virtual;
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
function GetNOMBREIsNull: Boolean; virtual;
|
||||
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetCOMISIONValue: Float; virtual;
|
||||
procedure SetCOMISIONValue(const aValue: Float); virtual;
|
||||
function GetCOMISIONIsNull: Boolean; virtual;
|
||||
procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetIMPORTE_COMISIONValue: Currency; virtual;
|
||||
procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_COMISIONIsNull: Boolean; virtual;
|
||||
procedure SetIMPORTE_COMISIONIsNull(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_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
|
||||
property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
||||
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
|
||||
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
|
||||
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
||||
property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
|
||||
property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
|
||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
||||
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
|
||||
property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
|
||||
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
|
||||
property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue;
|
||||
property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ IComisiones }
|
||||
IComisiones = interface(IDAStronglyTypedDataTable)
|
||||
['{8B6313BD-F198-4D7D-9695-70B105957CB3}']
|
||||
{ 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 GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
function GetREFERENCIAIsNull: Boolean;
|
||||
procedure SetREFERENCIAIsNull(const aValue: Boolean);
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetID_AGENTEIsNull: Boolean;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
function GetAGENTEValue: String;
|
||||
procedure SetAGENTEValue(const aValue: String);
|
||||
function GetAGENTEIsNull: Boolean;
|
||||
procedure SetAGENTEIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
function GetFECHAValue: DateTime;
|
||||
procedure SetFECHAValue(const aValue: DateTime);
|
||||
function GetFECHAIsNull: Boolean;
|
||||
procedure SetFECHAIsNull(const aValue: Boolean);
|
||||
function GetIMPORTE_TOTALValue: Currency;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
function GetIMPORTE_TOTALIsNull: Boolean;
|
||||
procedure SetIMPORTE_TOTALIsNull(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_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
||||
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
||||
end;
|
||||
|
||||
{ TComisionesDataTableRules }
|
||||
TComisionesDataTableRules = class(TIntfObjectDADataTableRules, IComisiones)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EMPRESAValue: Integer; virtual;
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||
function GetID_EMPRESAIsNull: Boolean; virtual;
|
||||
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetREFERENCIAIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
function GetAGENTEIsNull: Boolean; virtual;
|
||||
procedure SetAGENTEIsNull(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 GetFECHAValue: DateTime; virtual;
|
||||
procedure SetFECHAValue(const aValue: DateTime); virtual;
|
||||
function GetFECHAIsNull: Boolean; virtual;
|
||||
procedure SetFECHAIsNull(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 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_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property FECHA: DateTime read GetFECHAValue write SetFECHAValue;
|
||||
property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
|
||||
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;
|
||||
|
||||
{ TListaAnosComisionesDataTableRules }
|
||||
constructor TListaAnosComisionesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TListaAnosComisionesDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TListaAnosComisionesDataTableRules.GetANOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ListaAnosComisionesANO].AsString;
|
||||
end;
|
||||
|
||||
procedure TListaAnosComisionesDataTableRules.SetANOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ListaAnosComisionesANO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TListaAnosComisionesDataTableRules.GetANOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ListaAnosComisionesANO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TListaAnosComisionesDataTableRules.SetANOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ListaAnosComisionesANO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasComisionDataTableRules }
|
||||
constructor TFacturasComisionDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TFacturasComisionDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetID_EMPRESAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionID_EMPRESA].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionID_EMPRESA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetID_EMPRESAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionID_EMPRESA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionID_EMPRESA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetREFERENCIAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionREFERENCIA].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetREFERENCIAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionREFERENCIA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetREFERENCIAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionREFERENCIA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionREFERENCIA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetFECHA_FACTURAValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].AsDateTime;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetFECHA_FACTURAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionFECHA_VENCIMIENTO].AsDateTime;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionFECHA_VENCIMIENTO].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetFECHA_VENCIMIENTOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionFECHA_VENCIMIENTO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetFECHA_VENCIMIENTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionFECHA_VENCIMIENTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetSITUACIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionSITUACION].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetSITUACIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionSITUACION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetSITUACIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionSITUACION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionSITUACION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetBASE_IMPONIBLEValue: Currency;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].AsCurrency;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].AsCurrency := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetID_CLIENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionID_CLIENTE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionID_CLIENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetID_CLIENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionID_CLIENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionID_CLIENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetNIF_CIFValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionNIF_CIF].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetNIF_CIFValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionNIF_CIF].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetNIF_CIFIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionNIF_CIF].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionNIF_CIF].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetNOMBREValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionNOMBRE].AsString;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetNOMBREValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionNOMBRE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetNOMBREIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionNOMBRE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionNOMBRE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionID_AGENTE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionID_AGENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetID_AGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionID_AGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionID_AGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetCOMISIONValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionCOMISION].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetCOMISIONValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionCOMISION].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetCOMISIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionCOMISION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetCOMISIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionCOMISION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetIMPORTE_COMISIONValue: Currency;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].AsCurrency;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Currency);
|
||||
begin
|
||||
DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].AsCurrency := aValue;
|
||||
end;
|
||||
|
||||
function TFacturasComisionDataTableRules.GetIMPORTE_COMISIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFacturasComisionDataTableRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TComisionesDataTableRules }
|
||||
constructor TComisionesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TComisionesDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ComisionesID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ComisionesID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetID_EMPRESAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesID_EMPRESA].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ComisionesID_EMPRESA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetID_EMPRESAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesID_EMPRESA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ComisionesID_EMPRESA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetREFERENCIAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesREFERENCIA].AsString;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetREFERENCIAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ComisionesREFERENCIA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetREFERENCIAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesREFERENCIA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ComisionesREFERENCIA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesID_AGENTE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ComisionesID_AGENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetID_AGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesID_AGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ComisionesID_AGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetAGENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesAGENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetAGENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ComisionesAGENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetAGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesAGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetAGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ComisionesAGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesDESCRIPCION].AsString;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ComisionesDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesDESCRIPCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ComisionesDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetFECHAValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesFECHA].AsDateTime;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetFECHAValue(const aValue: DateTime);
|
||||
begin
|
||||
DataTable.Fields[idx_ComisionesFECHA].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetFECHAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesFECHA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetFECHAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ComisionesFECHA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetIMPORTE_TOTALValue: Currency;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsCurrency;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
begin
|
||||
DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsCurrency := aValue;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].IsNull;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetUSUARIOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesUSUARIO].AsString;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetUSUARIOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ComisionesUSUARIO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TComisionesDataTableRules.GetUSUARIOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ComisionesUSUARIO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TComisionesDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ComisionesUSUARIO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_ListaAnosComisiones, TListaAnosComisionesDataTableRules);
|
||||
RegisterDataTableRules(RID_FacturasComision, TFacturasComisionDataTableRules);
|
||||
RegisterDataTableRules(RID_Comisiones, TComisionesDataTableRules);
|
||||
|
||||
end.
|
||||
1161
Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
Normal file
1161
Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas
Normal file
File diff suppressed because it is too large
Load Diff
170
Source/Modulos/Comisiones/Model/uBizComisiones.pas
Normal file
170
Source/Modulos/Comisiones/Model/uBizComisiones.pas
Normal file
@ -0,0 +1,170 @@
|
||||
unit uBizComisiones;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADataTable, schComisionesClient_Intf, uDBSelectionListUtils, Classes;
|
||||
// uBizContactos, uBizDetallesFacturaCliente
|
||||
|
||||
const
|
||||
BIZ_CLIENT_COMISIONES = 'Client.Comisiones';
|
||||
BIZ_CLIENT_FACTURASCOMISION = 'Client.FacturasComision';
|
||||
|
||||
type
|
||||
IBizFacturasComision = interface(IFacturasComision)
|
||||
['{341B5CD1-2BCD-43F5-8F0C-AF72C1780512}']
|
||||
end;
|
||||
|
||||
IBizComision = interface(IComisiones)
|
||||
['{78E17CC4-F4A6-489D-99C3-2D56F8730A33}']
|
||||
|
||||
function GetFacturasComision: IBizFacturasComision;
|
||||
procedure SetFacturasComision(Value: IBizFacturasComision);
|
||||
property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision;
|
||||
|
||||
function EsNuevo : Boolean;
|
||||
end;
|
||||
|
||||
TBizFacturasComision = class(TFacturasComisionDataTableRules, IBizFacturasComision)
|
||||
protected
|
||||
procedure CalcularComision;
|
||||
procedure COMISIONOnChange(Sender: TDACustomField);
|
||||
procedure BeforeInsert(Sender: TDADataTable); override;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
TBizComision = class(TComisionesDataTableRules, IBizComision, ISeleccionable)
|
||||
private
|
||||
FSeleccionableInterface : ISeleccionable;
|
||||
|
||||
protected
|
||||
FFacturasComision : IBizFacturasComision;
|
||||
FFacturasComisionLink : TDADataSource;
|
||||
|
||||
function GetFacturasComision: IBizFacturasComision;
|
||||
procedure SetFacturasComision(Value: IBizFacturasComision);
|
||||
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
|
||||
public
|
||||
function EsNuevo : Boolean;
|
||||
procedure IniciarValoresComisionNueva;
|
||||
|
||||
property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision;
|
||||
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface write FSeleccionableInterface implements ISeleccionable;
|
||||
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios,
|
||||
Variants, cxDateUtils, uFactuGES_App;
|
||||
|
||||
{ TBizComision }
|
||||
constructor TBizComision.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
FFacturasComisionLink := TDADataSource.Create(NIL);
|
||||
FFacturasComisionLink.DataTable := aDataTable;
|
||||
|
||||
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
||||
end;
|
||||
|
||||
destructor TBizComision.Destroy;
|
||||
begin
|
||||
FFacturasComision := NIL;
|
||||
FFacturasComisionLink.Free;
|
||||
FSeleccionableInterface := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TBizComision.EsNuevo: Boolean;
|
||||
begin
|
||||
Result := (ID < 0);
|
||||
end;
|
||||
|
||||
function TBizComision.GetFacturasComision: IBizFacturasComision;
|
||||
begin
|
||||
Result := FFacturasComision;
|
||||
end;
|
||||
|
||||
procedure TBizComision.IniciarValoresComisionNueva;
|
||||
begin
|
||||
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
||||
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||
FECHA := DateOf(Now);
|
||||
end;
|
||||
|
||||
procedure TBizComision.OnNewRecord(Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
IniciarValoresComisionNueva;
|
||||
end;
|
||||
|
||||
procedure TBizComision.SetFacturasComision(Value: IBizFacturasComision);
|
||||
begin
|
||||
FFacturasComision := Value;
|
||||
EnlazarMaestroDetalle(FFacturasComisionLink, FFacturasComision);
|
||||
end;
|
||||
|
||||
{ TBizFacturasComision }
|
||||
|
||||
procedure TBizFacturasComision.BeforeInsert(Sender: TDADataTable);
|
||||
var
|
||||
AMasterTable : TDADataTable;
|
||||
begin
|
||||
inherited;
|
||||
AMasterTable := DataTable.GetMasterDataTable;
|
||||
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
|
||||
begin
|
||||
AMasterTable.Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBizFacturasComision.CalcularComision;
|
||||
begin
|
||||
if not Self.DataTable.Editing then
|
||||
Edit;
|
||||
IMPORTE_COMISION := (COMISION / 100) * BASE_IMPONIBLE;
|
||||
end;
|
||||
|
||||
procedure TBizFacturasComision.COMISIONOnChange(Sender: TDACustomField);
|
||||
begin
|
||||
CalcularComision;
|
||||
end;
|
||||
|
||||
constructor TBizFacturasComision.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
with DataTable do
|
||||
begin
|
||||
FieldByName(fld_FacturasComisionCOMISION).OnChange := COMISIONOnChange;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TBizFacturasComision.Destroy;
|
||||
begin
|
||||
with DataTable do
|
||||
begin
|
||||
FieldByName(fld_FacturasComisionCOMISION).OnChange := NIL;
|
||||
end;
|
||||
|
||||
inherited;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(BIZ_CLIENT_COMISIONES, TBizComision);
|
||||
RegisterDataTableRules(BIZ_CLIENT_FACTURASCOMISION, TBizFacturasComision);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
|
||||
106
Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
Normal file
106
Source/Modulos/Comisiones/Model/uBizComisionesServer.pas
Normal file
@ -0,0 +1,106 @@
|
||||
unit uBizComisionesServer;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDAInterfaces, uDADelta, uDABusinessProcessor,
|
||||
schComisionesServer_Intf;
|
||||
|
||||
const
|
||||
BIZ_SERVER_COMISIONES = 'Server.Comsiones';
|
||||
|
||||
type
|
||||
TBizComisionesServer = class(TComisionesBusinessProcessorRules)
|
||||
private
|
||||
FReferenciaAutomatica : Boolean;
|
||||
function DarReferencia : String;
|
||||
function IncrementarReferencia : Boolean;
|
||||
protected
|
||||
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
|
||||
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
|
||||
var CanRemoveFromDelta: Boolean); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Variants, uDAClasses, uBusinessUtils, uROClasses, uROServer, SysUtils,
|
||||
uDataModuleServer, schComisionesClient_Intf, FactuGES_Intf;
|
||||
|
||||
const
|
||||
REF_COMiSIONES = 'REF_COMISIONES';
|
||||
|
||||
|
||||
{ TBizComisionesServer }
|
||||
|
||||
procedure TBizComisionesServer.AfterProcessChange(
|
||||
Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
|
||||
var CanRemoveFromDelta: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
{ Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
|
||||
CanRemoveFromDelta := False;
|
||||
|
||||
case aChange.ChangeType of
|
||||
ctInsert, ctUpdate: begin
|
||||
if FReferenciaAutomatica then
|
||||
begin
|
||||
IncrementarReferencia;
|
||||
FReferenciaAutomatica := False;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBizComisionesServer.BeforeProcessDelta(
|
||||
Sender: TDABusinessProcessor; const aDelta: IDADelta);
|
||||
begin
|
||||
FReferenciaAutomatica := False;
|
||||
|
||||
case Sender.CurrentChange.ChangeType of
|
||||
ctInsert, ctUpdate: begin
|
||||
//Si la referencia no ha sido asignada le asignamos una nosotros
|
||||
if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then
|
||||
begin
|
||||
FReferenciaAutomatica := True;
|
||||
REFERENCIA := DarReferencia;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TBizComisionesServer.DarReferencia: String;
|
||||
var
|
||||
AReferenciasService : IsrvReferencias;
|
||||
Intf : IInterface;
|
||||
AClientID : TGUID;
|
||||
begin
|
||||
// Aunque sea un abono, la referencia es la misma que una factura
|
||||
|
||||
CreateGUID(AClientID);
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.DarNuevaReferencia(REF_COMISIONES, ID_EMPRESA)
|
||||
end;
|
||||
|
||||
function TBizComisionesServer.IncrementarReferencia: Boolean;
|
||||
var
|
||||
AReferenciasService : IsrvReferencias;
|
||||
Intf : IInterface;
|
||||
AClientID : TGUID;
|
||||
begin
|
||||
// Aunque sea un abono, la referencia es la misma que una factura
|
||||
|
||||
CreateGUID(AClientID);
|
||||
|
||||
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
|
||||
AReferenciasService := Intf as IsrvReferencias;
|
||||
Result := AReferenciasService.IncrementarValorReferencia(REF_COMISIONES, Self.REFERENCIA, ID_EMPRESA)
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(BIZ_SERVER_COMISIONES, TBizComisionesServer);
|
||||
|
||||
end.
|
||||
BIN
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dpk
Normal file
BIN
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dpk
Normal file
Binary file not shown.
542
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dproj
Normal file
542
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.dproj
Normal file
@ -0,0 +1,542 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{88ee61c0-20ab-40b0-96d6-2904393ad926}</ProjectGuid>
|
||||
<MainSource>Comisiones_plugin.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Comisiones_plugin.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\Lib\D11</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Comisiones_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Comisiones_plugin.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Comisiones_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\Comisiones_view.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\..\Servidor\vclx.dcp" />
|
||||
<DCCReference Include="uPluginComisiones.pas">
|
||||
<Form>PluginComisiones</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
BIN
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.res
Normal file
BIN
Source/Modulos/Comisiones/Plugin/Comisiones_plugin.res
Normal file
Binary file not shown.
131
Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm
Normal file
131
Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm
Normal file
@ -0,0 +1,131 @@
|
||||
object PluginComisiones: TPluginComisiones
|
||||
OldCreateOrder = True
|
||||
DefaultAction = actComisiones
|
||||
Description = 'Ventas'
|
||||
ModuleMenu = MainMenu
|
||||
ModuleName = 'Comisiones'
|
||||
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
|
||||
F80000000970485973000017120000171201679FD252000001BE4944415478DA
|
||||
63FCFFFF3F032D0123B2054BB79CA49A6DD13EE68C582D004A906CD8DFBFFF80
|
||||
F83F980601EBC07C86733BA6E1B6C0B6683F8A0187FB1C711A8EAC765BB315C3
|
||||
C275FB19E62DDD84DF02525CEE507A9081455D89E1C08C1D0CEF0FC6312CD978
|
||||
90B005D87C802E06027B3BEC189C2B0E311CD97F0BCC7FB32F8661F996C394F9
|
||||
E0FF3F605803F11FA0EB41EC3FFFFE41E3E01F98BD7ADB51D27D400C00F9E2F1
|
||||
8E70860DBB4E106701CCDBA480075B431936EF3D459C05F8520E3600D2B3A850
|
||||
8F61EB81D3C45B802BA86096C3E4616AE7E7EB32EC387486763E989DA3CDB0E7
|
||||
E839DAF96046A626C3FE131768E783A969EA0C874E5FC26F4184A729387792E3
|
||||
838929AA0CC7CE5EC16F41A89B09387792E3839E042586D317AFE3B720C8D988
|
||||
C1ADFA08591674C62A309CBB7213BF057E8E060C5EB5C7F01A06B27CC1913F70
|
||||
7E820D0BD882B62839868BD76FE3B7C0DB4E0F5EAEC0CA1850D9032BF393275F
|
||||
C1881F18BF394296E1CACD3BF82DF0B0D6C16938884E9B760D6BF0116D818BA5
|
||||
164EC3411667CDB88133E888B2C0DE541D6CD8BFBF88621966E1BFFFFFB1061F
|
||||
322068818D912AB844A404E0B5A077CA428A0C8701980500619929EF09CFCE42
|
||||
0000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 232
|
||||
Top = 16
|
||||
Bitmap = {}
|
||||
end
|
||||
object ModuleActionList: TActionList
|
||||
Images = LargeImages
|
||||
Left = 40
|
||||
Top = 72
|
||||
object actComisiones: TAction
|
||||
Category = 'Ventas'
|
||||
Caption = 'Comisiones'
|
||||
ImageIndex = 0
|
||||
OnExecute = actComisionesExecute
|
||||
end
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Images = LargeImages
|
||||
Left = 40
|
||||
Top = 16
|
||||
object Ventas1: TMenuItem
|
||||
Tag = 400
|
||||
Caption = '&Ventas'
|
||||
GroupIndex = 1
|
||||
ImageIndex = 0
|
||||
object Comisiones1: TMenuItem
|
||||
Tag = 700
|
||||
Action = actComisiones
|
||||
end
|
||||
end
|
||||
end
|
||||
object SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001684944415478DA
|
||||
63FCFFFF3FC394C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F
|
||||
19ACFDF319CEED98866A806DD17E14C587FB1CC134B2F8AE761B86B9ABF632CC
|
||||
5BBA09D3007CE0D7EFBF609B4178C98683D80D40770136B0AED69461E59623B8
|
||||
0D80391B04FE01E5FEFCF907B7D9B7FE04C3AA4A6386B53B8EE13700E692BD9D
|
||||
760CCEE587E03607359F66585A6AC0B069CF49FC06A0DB0CC2207E58FB598685
|
||||
85BA0CDB0E9CC16DC0C15E0706FBE203605B37375A809D0D02209BA3BB2F30CC
|
||||
C9D566D87DE41C6E0340CE46B7F9E7AF3F6076D2C42B0C53D2D4180E9FBE8C69
|
||||
4046941B8363E94194105F5E6EC810D9791ECC9E99A5C9903EED3A437F920AC3
|
||||
89F357310D480E7386DB08A2435ACF302C2ED687B8049A067266DD62E88A5364
|
||||
387BF906A60171410E280107B3191DB446C9315CBA7E1BD380283F3B147F23DB
|
||||
FC1BC9E07FFFFE335CB97907D380502F6B86D5DB8E129D13310C0009900A4006
|
||||
00004B6D80F047EC10D30000000049454E44AE426082}
|
||||
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
|
||||
940000000970485973000017120000171201679FD252000002834944415478DA
|
||||
BDD6ED4F52511800F087ECDFA8B5D6CB2A8550FC525862BC28B56966F9B2D658
|
||||
5B7373D69ABDACF5A12FADD6875EB6968DD922299C1481888680C0E555485494
|
||||
20B2FADCFAD6565FE53EDD7B0B86099C6BD7F970D9E53CDC7B7EE73907388810
|
||||
11363344C5A023F0916BB0B9FC73559B7970C7DFD7DCFBDC8150B5A5AA24705A
|
||||
23159505C7A90CB62A0EFCF7E869A62F9A46C8E568C8D134C8DB2EC382EB6979
|
||||
D0EE4F635B5335340C506B3A0B3F549485FEBDDE7DF730182C7E308C38F881EB
|
||||
0D1654CBF680FFD70A04F42EF819D181D14691C131DF073C79ACA66C85A5F2C1
|
||||
078D70F44A0022D4E742EE47E81C98EC413268F3A6B05D29E65D19BB4EB91C72
|
||||
E7E2B56373E6C93019B47A97F0945252B212BEC156FADDDB031667940738CD80
|
||||
AA3F60F114AD37BE79BAC1EA9A21836F3D8BD8A13EC881953E959582BD77F4BA
|
||||
14ECD3713268712791F9A20A064D572530E19B25836FDC0B7846535B002BAD65
|
||||
7E40C5D7E4EF310E88C14925C8E06BD73C7636D709AEF0F9A56AF084E7798053
|
||||
0CD8221C1CEADF0FBE68920C9AA7E6B0AB4526784AF57DFB808A2D92C1516702
|
||||
BBB5F5822B1CECDD0BA1D9140FF05D023BB532EEA74A08F8F8C26E88CEA5C9E0
|
||||
C8E47B660DEB41712D28684A1F9DDF05F164861FD8A1AE03E58DB0A00AEFEB76
|
||||
4262294B064D13716C57D582E666541078EFEC0E486696C9E02B470C5B9BA470
|
||||
FC568C57E7ECA086232B85B64EBE9503EFF46C8754F60B3FF044A3A4F49643AF
|
||||
FEFBD03B985DB3CEF9F6EDAE6D905EFE4A065F8ECFA0F6888488B103EAD37F2A
|
||||
39EDEB028DF62836378889187BBE38547EFBE20D0E8F4550231713B172B9E2E0
|
||||
05BEB0855175A886DBCB362288A0C11AC227CFCC1B82E5A322B819F11BFB7D9A
|
||||
E74CD9D0710000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 232
|
||||
Top = 80
|
||||
Bitmap = {}
|
||||
end
|
||||
end
|
||||
72
Source/Modulos/Comisiones/Plugin/uPluginComisiones.pas
Normal file
72
Source/Modulos/Comisiones/Plugin/uPluginComisiones.pas
Normal file
@ -0,0 +1,72 @@
|
||||
unit uPluginComisiones;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||
ImgList, Controls, PngImageList, uPlugins_Intf;
|
||||
|
||||
type
|
||||
TPluginComisiones = class(TModuleController, IMCComisiones)
|
||||
actComisiones: TAction;
|
||||
ExtraImages: TPngImageList;
|
||||
LargeImages: TPngImageList;
|
||||
MainMenu: TMainMenu;
|
||||
ModuleActionList: TActionList;
|
||||
SmallImages: TPngImageList;
|
||||
Ventas1: TMenuItem;
|
||||
Comisiones1: TMenuItem;
|
||||
procedure actComisionesExecute(Sender: TObject);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
Forms, Dialogs, SysUtils, cxControls,
|
||||
uComisionesController, uBizComisiones, uComisionesViewRegister;
|
||||
|
||||
function GetModule : TModuleController;
|
||||
begin
|
||||
Result := TPluginComisiones.Create(NIL);
|
||||
end;
|
||||
|
||||
exports
|
||||
GetModule name GET_MODULE_FUNC;
|
||||
|
||||
procedure TPluginComisiones.actComisionesExecute(Sender: TObject);
|
||||
var
|
||||
AComisionesController : IComisionesController;
|
||||
AComisiones : IBizComision;
|
||||
|
||||
begin
|
||||
AComisionesController := TComisionesController.Create;
|
||||
AComisiones := (AComisionesController.BuscarTodos as IBizComision);
|
||||
AComisionesController.VerTodos(AComisiones);
|
||||
end;
|
||||
|
||||
constructor TPluginComisiones.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
ModuleName := MODULENAME_COMISIONES;
|
||||
uComisionesViewRegister.RegisterViews;
|
||||
end;
|
||||
|
||||
destructor TPluginComisiones.Destroy;
|
||||
begin
|
||||
uComisionesViewRegister.UnregisterViews;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterModuleClass(TPluginComisiones);
|
||||
|
||||
finalization
|
||||
UnRegisterModuleClass(TPluginComisiones);
|
||||
|
||||
end.
|
||||
965
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
Normal file
965
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
Normal file
@ -0,0 +1,965 @@
|
||||
object RptComisiones: TRptComisiones
|
||||
OldCreateOrder = True
|
||||
OnCreate = DataModuleCreate
|
||||
Height = 405
|
||||
Width = 630
|
||||
object DADataCabecera: TDADataSource
|
||||
DataSet = tbl_Comisiones.Dataset
|
||||
DataTable = tbl_Comisiones
|
||||
Left = 264
|
||||
Top = 72
|
||||
end
|
||||
object tbl_Comisiones: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
Required = True
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'FECHA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeComisiones'
|
||||
IndexDefs = <>
|
||||
Left = 264
|
||||
Top = 128
|
||||
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'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'V_FACTURAS_CLIENTE'
|
||||
Name = 'IBX'
|
||||
SQL =
|
||||
'SELECT '#10' ID, ID_EMPRESA, REFERENCIA, TIPO, ID_COMISION_LIQUID' +
|
||||
'ADA, '#10' FECHA_FACTURA, SITUACION, BASE_IMPONIBLE, DESCUENTO, '#10 +
|
||||
' IMPORTE_DESCUENTO, IVA, IMPORTE_IVA, RE, IMPORTE_RE, '#10' IM' +
|
||||
'PORTE_TOTAL, OBSERVACIONES, ID_CLIENTE, NOMBRE,'#10' NIF_CIF, CAL' +
|
||||
'LE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' FECHA_ALTA, FECHA_M' +
|
||||
'ODIFICACION, USUARIO, ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA, I' +
|
||||
'D_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10' ID_AGENTE, COMISION' +
|
||||
', IMPORTE_COMISION'#10' FROM'#10' V_FACTURAS_CLIENTE'#10' WHERE ID_COMI' +
|
||||
'SION_LIQUIDADA = :ID'#10' order by referencia'#10
|
||||
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 = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_COMISION_LIQUIDADA'
|
||||
TableField = 'ID_COMISION_LIQUIDADA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_FACTURA'
|
||||
TableField = 'FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'SITUACION'
|
||||
TableField = 'SITUACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'BASE_IMPONIBLE'
|
||||
TableField = 'BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCUENTO'
|
||||
TableField = 'DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_DESCUENTO'
|
||||
TableField = 'IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IVA'
|
||||
TableField = 'IVA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_IVA'
|
||||
TableField = 'IMPORTE_IVA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'RE'
|
||||
TableField = 'RE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_RE'
|
||||
TableField = 'IMPORTE_RE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'OBSERVACIONES'
|
||||
TableField = 'OBSERVACIONES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CLIENTE'
|
||||
TableField = 'ID_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NIF_CIF'
|
||||
TableField = 'NIF_CIF'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
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 = 'FECHA_ALTA'
|
||||
TableField = 'FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_MODIFICACION'
|
||||
TableField = 'FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'USUARIO'
|
||||
TableField = 'USUARIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_FORMA_PAGO'
|
||||
TableField = 'ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'RECARGO_EQUIVALENCIA'
|
||||
TableField = 'RECARGO_EQUIVALENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_TIPO_IVA'
|
||||
TableField = 'ID_TIPO_IVA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_NETO'
|
||||
TableField = 'IMPORTE_NETO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_PORTE'
|
||||
TableField = 'IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_AGENTE'
|
||||
TableField = 'ID_AGENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'COMISION'
|
||||
TableField = 'COMISION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_COMISION'
|
||||
TableField = 'IMPORTE_COMISION'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeComisionesFacturas'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end
|
||||
item
|
||||
Name = 'ID_COMISION_LIQUIDADA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'RE'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COMISION'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COMISION'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'COMISIONES_LIQUIDADAS'
|
||||
SQL =
|
||||
'SELECT '#10' COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_E' +
|
||||
'MPRESA, COMISIONES_LIQUIDADAS.REFERENCIA,'#10' COMISIONES_LIQUIDA' +
|
||||
'DAS.ID_AGENTE, CONTACTOS.NOMBRE, COMISIONES_LIQUIDADAS.DESCRIPCI' +
|
||||
'ON,'#10' COMISIONES_LIQUIDADAS.FECHA, COMISIONES_LIQUIDADAS.IMPOR' +
|
||||
'TE_TOTAL,'#10' COMISIONES_LIQUIDADAS.FECHA_ALTA, COMISIONES_LIQUI' +
|
||||
'DADAS.FECHA_MODIFICACION,'#10' COMISIONES_LIQUIDADAS.USUARIO'#10' FR' +
|
||||
'OM'#10' COMISIONES_LIQUIDADAS'#10' LEFT JOIN CONTACTOS ON (CONTACTOS' +
|
||||
'.ID = COMISIONES_LIQUIDADAS.ID_AGENTE)'#10' WHERE COMISIONES_LIQUID' +
|
||||
'ADAS.ID = :ID'#10
|
||||
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 = 'ID_AGENTE'
|
||||
TableField = 'ID_AGENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA'
|
||||
TableField = 'FECHA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
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 = 'NOMBRE'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'NOMBRE'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeComisiones'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
Required = True
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'FECHA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
Commands = <>
|
||||
RelationShips = <>
|
||||
UpdateRules = <>
|
||||
Version = 0
|
||||
Left = 48
|
||||
Top = 16
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <
|
||||
item
|
||||
Name = 'FacturasCliente_ID'
|
||||
DataType = datAutoInc
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha de las factura'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_VENCIMIENTO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Vencimiento'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_BASE_IMPONIBLE'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Base imponible'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_IMPORTE_DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Importe dto.'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_IMPORTE_IVA'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Importe IVA'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_FORMA_PAGO'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Forma de pago'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'NIF/CIF'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DisplayLabel = 'C'#243'd. postal'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Observaciones'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_NOMBRE'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
DisplayLabel = 'Cliente'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_CALLE'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
DisplayLabel = 'Direcci'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
DisplayLabel = 'Provincia'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_POBLACION'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
DisplayLabel = 'Poblaci'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_IVA'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'IVA'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_USUARIO'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
DisplayLabel = 'USUARIO'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
DisplayLabel = 'Referencia'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Dto.'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_ID'
|
||||
DataType = datAutoInc
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_ID_FACTURA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DisplayLabel = 'Tipo detalle'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DisplayLabel = 'Concepto'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Importe unidad'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_VISIBLE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = #191'Visible?'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_POSICION'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Posici'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_CANTIDAD'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cantidad'
|
||||
end>
|
||||
Left = 46
|
||||
Top = 150
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '4.8.11'
|
||||
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'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 40360.677744004630000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
ReportOptions.VersionRelease = '1'
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ShowProgress = False
|
||||
StoreInDFM = False
|
||||
Left = 169
|
||||
Top = 16
|
||||
end
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
CloseDataSource = False
|
||||
DataSource = DADataCabecera
|
||||
BCDToCurrency = False
|
||||
Left = 264
|
||||
Top = 16
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object frxDBDetalles1: TfrxDBDataset
|
||||
UserName = 'frxDBDetalles'
|
||||
CloseDataSource = False
|
||||
DataSource = DADataDetalles
|
||||
BCDToCurrency = False
|
||||
Left = 352
|
||||
Top = 16
|
||||
end
|
||||
object DADataDetalles: TDADataSource
|
||||
DataSet = tbl_Facturas.Dataset
|
||||
DataTable = tbl_Facturas
|
||||
Left = 352
|
||||
Top = 72
|
||||
end
|
||||
object tbl_Facturas: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end
|
||||
item
|
||||
Name = 'ID_COMISION_LIQUIDADA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 19
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'RE'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'COMISION'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_COMISION'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
LogChanges = False
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteFetchEnabled = False
|
||||
LocalSchema = schReport
|
||||
LocalDataStreamer = Bin2DataStreamer
|
||||
LogicalName = 'InformeComisionesFacturas'
|
||||
IndexDefs = <>
|
||||
Left = 352
|
||||
Top = 128
|
||||
end
|
||||
end
|
||||
105
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
Normal file
105
Source/Modulos/Comisiones/Reports/uRptComisiones_Server.pas
Normal file
@ -0,0 +1,105 @@
|
||||
unit uRptComisiones_Server;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, FactuGES_Intf,
|
||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||
uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable;
|
||||
|
||||
type
|
||||
TRptComisiones = class(TDataModule)
|
||||
DADataCabecera: TDADataSource;
|
||||
tbl_Comisiones: TDAMemDataTable;
|
||||
frxRichObject1: TfrxRichObject;
|
||||
frxBarCodeObject1: TfrxBarCodeObject;
|
||||
frxOLEObject1: TfrxOLEObject;
|
||||
frxCrossObject1: TfrxCrossObject;
|
||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
||||
frxGradientObject1: TfrxGradientObject;
|
||||
frxChartObject1: TfrxChartObject;
|
||||
frxDBCabecera: TfrxDBDataset;
|
||||
frxReport: TfrxReport;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
frxDBDetalles1: TfrxDBDataset;
|
||||
DADataDetalles: TDADataSource;
|
||||
tbl_Facturas: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
//Genera cada uno de los albaranes a imprimir
|
||||
procedure GenerarComision(const ID: integer); overload;
|
||||
public
|
||||
function GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uSistemaFunc, uDataModuleServer;
|
||||
|
||||
const
|
||||
rptComision = 'InfComision.fr3';
|
||||
|
||||
{ TRptComision }
|
||||
|
||||
procedure TRptComisiones.DataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
schReport.ConnectionManager := dmServer.ConnectionManager;
|
||||
FConnection := dmServer.DarNuevaConexion;
|
||||
frxReport.EngineOptions.NewSilentMode := simReThrow;
|
||||
end;
|
||||
|
||||
procedure TRptComisiones.GenerarComision(const ID: integer);
|
||||
var
|
||||
AInforme: Variant;
|
||||
|
||||
begin
|
||||
FConnection.BeginTransaction;
|
||||
try
|
||||
tbl_Comisiones.Active := False;
|
||||
tbl_Facturas.Active := False;
|
||||
|
||||
tbl_Comisiones.ParamByName('ID').AsInteger := ID;
|
||||
tbl_Facturas.ParamByName('ID').AsInteger := ID;
|
||||
|
||||
tbl_Comisiones.Active := True;
|
||||
tbl_Facturas.Active := True;
|
||||
|
||||
AInforme := DarRutaFichero(DarRutaInformes, rptComision, tbl_Comisiones.FieldByName('ID_EMPRESA').AsString);
|
||||
if VarIsNull(AInforme) then
|
||||
raise Exception.Create (('Error Servidor: GenerarComision, no encuentra informe' + rptComision));
|
||||
|
||||
frxReport.LoadFromFile(AInforme, True);
|
||||
frxReport.ReportOptions.Name := 'Comisiones';
|
||||
frxReport.PrepareReport(False);
|
||||
finally
|
||||
FConnection.RollbackTransaction;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TRptComisiones.GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
var
|
||||
ID_Comisiones: TStringList;
|
||||
i: Integer;
|
||||
|
||||
begin
|
||||
Result := Binary.Create;
|
||||
try
|
||||
//Vamos generando todos y cada una de las comisiones recibidas
|
||||
for i := 0 to ListaID.Count - 1 do
|
||||
GenerarComision(ListaID.Items[i]);
|
||||
|
||||
frxReport.PreviewPages.SaveToStream(Result);
|
||||
finally
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
1124
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
Normal file
1124
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm
Normal file
File diff suppressed because it is too large
Load Diff
101
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
Normal file
101
Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas
Normal file
@ -0,0 +1,101 @@
|
||||
unit srvComisiones_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, uROClient;
|
||||
|
||||
type
|
||||
{ TsrvComisiones }
|
||||
TsrvComisiones = class(TDataAbstractService, IsrvComisiones)
|
||||
Diagrams: TDADiagrams;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
bpComisiones: TDABusinessProcessor;
|
||||
bpFacturasComision: TDABusinessProcessor;
|
||||
schComisiones: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
|
||||
const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||
procedure DARemoteServiceCreate(Sender: TObject);
|
||||
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
|
||||
private
|
||||
protected
|
||||
{ IsrvComisiones methods }
|
||||
function GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, Dialogs, uSistemaFunc, uROClasses,
|
||||
uDataModuleServer, uDatabaseUtils, uUsersManager, schComisionesClient_Intf,
|
||||
uRestriccionesUsuarioUtils, uBizComisionesServer, uRptComisiones_Server;
|
||||
// uRptWordFacturaCliente, ;
|
||||
|
||||
procedure Create_srvComisiones(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvComisiones.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvComisones }
|
||||
|
||||
procedure TsrvComisiones.DARemoteServiceBeforeGetDatasetData(
|
||||
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
const MaxRecords: Integer);
|
||||
begin
|
||||
{
|
||||
if DataSet.Name = nme_FacturasCliente then
|
||||
begin
|
||||
{ Aquí se asegura que el usuario sólo accede a facturas
|
||||
de las empresas a las que tiene permiso para acceder
|
||||
filtrando DataSet por ID_EMPRESA. }
|
||||
{ FiltrarAccesoUsuario(Session, Connection, schFacturasCliente, DataSet, fld_FacturasClienteID_EMPRESA);
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TsrvComisiones.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
//SessionManager := dmServer.SessionManager;
|
||||
bpComisiones.BusinessRulesID := BIZ_SERVER_COMISIONES;
|
||||
end;
|
||||
|
||||
procedure TsrvComisiones.DataAbstractServiceBeforeAcquireConnection(
|
||||
aSender: TObject; var aConnectionName: string);
|
||||
begin
|
||||
ConnectionName := dmServer.ConnectionName;
|
||||
end;
|
||||
|
||||
function TsrvComisiones.GenerarInforme(const ListaID: TIntegerArray): Binary;
|
||||
var
|
||||
AReportGenerator : TRptComisiones;
|
||||
begin
|
||||
AReportGenerator := TRptComisiones.Create(nil);
|
||||
try
|
||||
Result := AReportGenerator.GenerarInforme(ListaID);
|
||||
finally
|
||||
FreeAndNIL(AReportGenerator);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvComisiones', Create_srvComisiones, TsrvComisiones_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user