Presupuestos de cliente:
- Informe de presupuesto (sin terminar). - Editor con RichEditor para portada y memoria del presupuesto. - Procedimientos almacenados en BD que organizan el presupuesto en capítulos y conceptos de capítulos. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@159 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
d6e54902ce
commit
40a67a5c80
BIN
Database/FACTUGES.FDB
Normal file
BIN
Database/FACTUGES.FDB
Normal file
Binary file not shown.
@ -1,5 +1,5 @@
|
||||
/******************************************************************************/
|
||||
/**** Generated by IBExpert 2007.05.03 12/11/2007 21:23:54 ****/
|
||||
/**** Generated by IBExpert 2007.05.03 11/12/2007 16:51:58 ****/
|
||||
/******************************************************************************/
|
||||
|
||||
SET SQL DIALECT 3;
|
||||
@ -11,7 +11,6 @@ PAGE_SIZE 4096
|
||||
DEFAULT CHARACTER SET ISO8859_1;
|
||||
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
/**** User Defined Functions ****/
|
||||
/******************************************************************************/
|
||||
@ -22,7 +21,7 @@ DECLARE EXTERNAL FUNCTION F_RTFTOTEXT
|
||||
ENTRY_POINT 'RtfToText' MODULE_NAME 'udf_RtfToText.dll';
|
||||
|
||||
|
||||
DECLARE EXTERNAL FUNCTION MOD
|
||||
DECLARE EXTERNAL FUNCTION "MOD"
|
||||
INTEGER,
|
||||
INTEGER
|
||||
RETURNS DOUBLE PRECISION BY VALUE
|
||||
@ -116,7 +115,7 @@ CREATE GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID;
|
||||
SET GENERATOR GEN_CONTACTOS_DATOS_BANCO_ID TO 0;
|
||||
|
||||
CREATE GENERATOR GEN_CONTACTOS_DIR_ID;
|
||||
SET GENERATOR GEN_CONTACTOS_DIR_ID TO 3;
|
||||
SET GENERATOR GEN_CONTACTOS_DIR_ID TO 5;
|
||||
|
||||
CREATE GENERATOR GEN_CONTACTOS_ID;
|
||||
SET GENERATOR GEN_CONTACTOS_ID TO 2001;
|
||||
@ -201,6 +200,57 @@ SET GENERATOR GEN_USUARIOS_ID TO 0;
|
||||
|
||||
|
||||
|
||||
SET TERM ^ ;
|
||||
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Stored Procedures ****/
|
||||
/******************************************************************************/
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS (
|
||||
AID INTEGER)
|
||||
RETURNS (
|
||||
ID INTEGER,
|
||||
ID_PRESUPUESTO INTEGER,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
CONCEPTO VARCHAR(2000),
|
||||
IMPORTE_TOTAL NUMERIC(11,2),
|
||||
VISIBLE SMALLINT)
|
||||
AS
|
||||
BEGIN
|
||||
SUSPEND;
|
||||
END^
|
||||
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
|
||||
AID INTEGER)
|
||||
RETURNS (
|
||||
ID INTEGER,
|
||||
ID_PRESUPUESTO INTEGER,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
ID_CAPITULO INTEGER,
|
||||
ID_ARTICULO INTEGER,
|
||||
REFERENCIA VARCHAR(255),
|
||||
CONCEPTO VARCHAR(2000),
|
||||
CANTIDAD INTEGER,
|
||||
IMPORTE_UNIDAD NUMERIC(11,2),
|
||||
DESCUENTO FLOAT,
|
||||
IMPORTE_PORTE NUMERIC(11,2),
|
||||
IMPORTE_TOTAL NUMERIC(11,2),
|
||||
VISIBLE SMALLINT)
|
||||
AS
|
||||
BEGIN
|
||||
SUSPEND;
|
||||
END^
|
||||
|
||||
|
||||
|
||||
SET TERM ; ^
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Tables ****/
|
||||
/******************************************************************************/
|
||||
@ -214,6 +264,7 @@ CREATE TABLE AGENTES_COMISIONES (
|
||||
COMISION TIPO_PORCENTAJE DEFAULT 0
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE ALBARANES_CLIENTE (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -250,6 +301,7 @@ CREATE TABLE ALBARANES_CLIENTE (
|
||||
REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE ALBARANES_CLIENTE_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_ALBARAN TIPO_ID NOT NULL,
|
||||
@ -267,6 +319,7 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
|
||||
FECHA_MODIFICACION TIMESTAMP
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE ALBARANES_PROVEEDOR (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -301,6 +354,7 @@ CREATE TABLE ALBARANES_PROVEEDOR (
|
||||
REF_FACTURA_PROV VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_ALBARAN TIPO_ID NOT NULL,
|
||||
@ -318,6 +372,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (
|
||||
FECHA_MODIFICACION TIMESTAMP
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE ALMACENES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID NOT NULL,
|
||||
@ -336,6 +391,7 @@ CREATE TABLE ALMACENES (
|
||||
USUARIO TIPO_USUARIO
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE ARTICULOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -357,11 +413,13 @@ CREATE TABLE ARTICULOS (
|
||||
ELIMINADO TIPO_BOOLEANO
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE CATEGORIAS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
CATEGORIA VARCHAR(255) NOT NULL
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE CLIENTES_DATOS (
|
||||
ID_CLIENTE TIPO_ID NOT NULL,
|
||||
ID_AGENTE TIPO_ID,
|
||||
@ -379,6 +437,7 @@ CREATE TABLE CLIENTES_DATOS (
|
||||
CODIGO_ASIGNADO VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_CLIENTE TIPO_ID DEFAULT 0 NOT NULL,
|
||||
@ -386,10 +445,12 @@ CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
|
||||
DESCUENTO TIPO_PORCENTAJE DEFAULT 0
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE CLIENTES_GRUPOS (
|
||||
DESCRIPCION VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE COMISIONES_LIQUIDADAS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -403,12 +464,14 @@ CREATE TABLE COMISIONES_LIQUIDADAS (
|
||||
USUARIO TIPO_USUARIO
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE CONFIGURACION (
|
||||
CODIGO VARCHAR(50) NOT NULL,
|
||||
VALOR VARCHAR(255) NOT NULL,
|
||||
ID_EMPRESA TIPO_ID
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE CONTACTOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
NIF_CIF VARCHAR(15),
|
||||
@ -433,11 +496,13 @@ CREATE TABLE CONTACTOS (
|
||||
PERSONA_CONTACTO VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE CONTACTOS_CATEGORIAS (
|
||||
ID_CONTACTO TIPO_ID NOT NULL,
|
||||
ID_CATEGORIA TIPO_ID NOT NULL
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE CONTACTOS_DATOS_BANCO (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_CONTACTO TIPO_ID NOT NULL,
|
||||
@ -450,6 +515,7 @@ CREATE TABLE CONTACTOS_DATOS_BANCO (
|
||||
FECHA_MODIFICACION TIMESTAMP
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE CONTACTOS_DIRECCIONES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_CONTACTO TIPO_ID NOT NULL,
|
||||
@ -469,6 +535,7 @@ CREATE TABLE CONTACTOS_DIRECCIONES (
|
||||
FECHA_MODIFICACION TIMESTAMP
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE EMPLEADOS_DATOS (
|
||||
ID_EMPLEADO TIPO_ID NOT NULL,
|
||||
FECHA_NACIMIENTO DATE,
|
||||
@ -480,10 +547,12 @@ CREATE TABLE EMPLEADOS_DATOS (
|
||||
EXPERIENCIA TIPO_NOTAS
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE EMPLEADOS_GRUPOS (
|
||||
DESCRIPCION VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE EMPRESAS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
NIF_CIF VARCHAR(15),
|
||||
@ -510,11 +579,13 @@ CREATE TABLE EMPRESAS (
|
||||
IVA TIPO_PORCENTAJE
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE EMPRESAS_CONTACTOS (
|
||||
ID_EMPRESA TIPO_ID NOT NULL,
|
||||
ID_CONTACTO TIPO_ID NOT NULL
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE EMPRESAS_DATOS_BANCO (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID NOT NULL,
|
||||
@ -527,21 +598,25 @@ CREATE TABLE EMPRESAS_DATOS_BANCO (
|
||||
SUFIJO_N58 VARCHAR(3)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE EMPRESAS_USUARIOS (
|
||||
ID_EMPRESA TIPO_ID NOT NULL,
|
||||
ID_USUARIO TIPO_ID NOT NULL
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE F_PERFILES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
PERFIL TIPO_PERFIL NOT NULL
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE F_PERFILES_USUARIOS (
|
||||
ID_PERFIL TIPO_ID NOT NULL,
|
||||
ID_USUARIO TIPO_ID NOT NULL
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE F_USUARIOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
USUARIO TIPO_USUARIO NOT NULL,
|
||||
@ -550,6 +625,7 @@ CREATE TABLE F_USUARIOS (
|
||||
PASS VARCHAR(10)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE FACTURAS_CLIENTE (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -582,6 +658,7 @@ CREATE TABLE FACTURAS_CLIENTE (
|
||||
ID_COMISION_LIQUIDADA TIPO_ID
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE FACTURAS_CLIENTE_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_FACTURA TIPO_ID NOT NULL,
|
||||
@ -599,6 +676,7 @@ CREATE TABLE FACTURAS_CLIENTE_DETALLES (
|
||||
FECHA_MODIFICACION TIMESTAMP
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE FACTURAS_PROVEEDOR (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -631,6 +709,7 @@ CREATE TABLE FACTURAS_PROVEEDOR (
|
||||
RECARGO_EQUIVALENCIA TIPO_BOOLEANO
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_FACTURA TIPO_ID NOT NULL,
|
||||
@ -648,10 +727,12 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
|
||||
FECHA_MODIFICACION TIMESTAMP
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE FAMILIAS (
|
||||
DESCRIPCION VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE FORMAS_PAGO (
|
||||
ID TIPO_ID NOT NULL,
|
||||
REFERENCIA VARCHAR(255),
|
||||
@ -663,6 +744,7 @@ CREATE TABLE FORMAS_PAGO (
|
||||
CUENTA VARCHAR(15)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE FORMAS_PAGO_PLAZOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_FORMA_PAGO TIPO_ID NOT NULL,
|
||||
@ -670,6 +752,7 @@ CREATE TABLE FORMAS_PAGO_PLAZOS (
|
||||
PORCENTAJE TIPO_PORCENTAJE
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE INFORMES (
|
||||
ID SMALLINT NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -683,6 +766,7 @@ CREATE TABLE INFORMES (
|
||||
VISTA BLOB SUB_TYPE 2 SEGMENT SIZE 4096
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE MOVIMIENTOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_ALMACEN TIPO_ID,
|
||||
@ -693,6 +777,7 @@ CREATE TABLE MOVIMIENTOS (
|
||||
CAUSA TIPO_CONCEPTO
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PAGOS_CLIENTE (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_RECIBO TIPO_ID,
|
||||
@ -708,6 +793,7 @@ CREATE TABLE PAGOS_CLIENTE (
|
||||
USUARIO TIPO_USUARIO
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PAGOS_PROVEEDOR (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_RECIBO TIPO_ID,
|
||||
@ -723,6 +809,7 @@ CREATE TABLE PAGOS_PROVEEDOR (
|
||||
USUARIO TIPO_USUARIO
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PEDIDOS_CLIENTE (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -755,6 +842,7 @@ CREATE TABLE PEDIDOS_CLIENTE (
|
||||
REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_PEDIDO TIPO_ID NOT NULL,
|
||||
@ -772,6 +860,7 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
|
||||
FECHA_MODIFICACION TIMESTAMP
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PEDIDOS_PROVEEDOR (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -806,6 +895,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR (
|
||||
FECHA_ENVIO DATE
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_PEDIDO TIPO_ID NOT NULL,
|
||||
@ -823,6 +913,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
|
||||
FECHA_MODIFICACION TIMESTAMP
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PERMISOS (
|
||||
ID_USUARIO TIPO_ID,
|
||||
MODULO VARCHAR(50),
|
||||
@ -830,6 +921,7 @@ CREATE TABLE PERMISOS (
|
||||
CHECKSUM VARCHAR(250)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PERMISOSEX (
|
||||
ID_USUARIO TIPO_ID,
|
||||
MODULO VARCHAR(50),
|
||||
@ -838,6 +930,7 @@ CREATE TABLE PERMISOSEX (
|
||||
CHECKSUM VARCHAR(250)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PRESUPUESTOS_CLIENTE (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -867,6 +960,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
|
||||
CLIENTE_FINAL VARCHAR(255) COLLATE ES_ES
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_PRESUPUESTO TIPO_ID NOT NULL,
|
||||
@ -884,6 +978,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
|
||||
FECHA_MODIFICACION TIMESTAMP
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PROVEEDORES_DATOS (
|
||||
ID_PROVEEDOR TIPO_ID NOT NULL,
|
||||
DESCUENTO TIPO_PORCENTAJE,
|
||||
@ -898,10 +993,12 @@ CREATE TABLE PROVEEDORES_DATOS (
|
||||
HOMOLOGADO SMALLINT
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE PROVEEDORES_GRUPOS (
|
||||
DESCRIPCION VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE RECIBOS_CLIENTE (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_FACTURA TIPO_ID,
|
||||
@ -919,6 +1016,7 @@ CREATE TABLE RECIBOS_CLIENTE (
|
||||
ID_RECIBO_COMPENSADO INTEGER
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE RECIBOS_PROVEEDOR (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_FACTURA TIPO_ID,
|
||||
@ -937,6 +1035,7 @@ CREATE TABLE RECIBOS_PROVEEDOR (
|
||||
ID_RECIBO_COMPENSADO INTEGER
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE REFERENCIAS (
|
||||
CODIGO VARCHAR(50) NOT NULL,
|
||||
VALOR VARCHAR(255) NOT NULL,
|
||||
@ -944,6 +1043,7 @@ CREATE TABLE REFERENCIAS (
|
||||
DESCRIPCION VARCHAR(255) COLLATE ES_ES
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE REMESAS_CLIENTE (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -958,6 +1058,7 @@ CREATE TABLE REMESAS_CLIENTE (
|
||||
TIPO VARCHAR(40)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE REMESAS_PROVEEDOR (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
@ -972,6 +1073,7 @@ CREATE TABLE REMESAS_PROVEEDOR (
|
||||
TIPO VARCHAR(40)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE TIENDA_WEB (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID NOT NULL,
|
||||
@ -984,6 +1086,7 @@ CREATE TABLE TIENDA_WEB (
|
||||
BDPASS VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE TIPOS_IVA (
|
||||
ID TIPO_ID NOT NULL,
|
||||
REFERENCIA VARCHAR(255),
|
||||
@ -992,6 +1095,7 @@ CREATE TABLE TIPOS_IVA (
|
||||
RE TIPO_PORCENTAJE
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE USUARIOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
USERNAME VARCHAR(30),
|
||||
@ -1007,6 +1111,7 @@ CREATE TABLE USUARIOS (
|
||||
CHECKSUM VARCHAR(250)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE USUARIOS_EVENTOS (
|
||||
APLICACION VARCHAR(250),
|
||||
ID_USUARIO TIPO_ID,
|
||||
@ -1019,6 +1124,7 @@ CREATE TABLE USUARIOS_EVENTOS (
|
||||
TNAME VARCHAR(20)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE USUARIOS_LOGON (
|
||||
LOGONID CHAR(38) NOT NULL,
|
||||
ID_USUARIO TIPO_ID,
|
||||
@ -1029,6 +1135,7 @@ CREATE TABLE USUARIOS_LOGON (
|
||||
|
||||
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Views ****/
|
||||
/******************************************************************************/
|
||||
@ -2344,6 +2451,9 @@ LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2
|
||||
ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO)
|
||||
;
|
||||
|
||||
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Primary Keys ****/
|
||||
/******************************************************************************/
|
||||
@ -2486,3 +2596,145 @@ CREATE INDEX IDX_RECIBOS_PROVEEDOR ON RECIBOS_PROVEEDOR (ID_RECIBO_COMPENSADO);
|
||||
CREATE INDEX IDX_REFERENCIAS ON REFERENCIAS (ID_EMPRESA);
|
||||
CREATE INDEX IDX_REMESAS_CLIENTE ON REMESAS_CLIENTE (ID_DATOS_BANCO);
|
||||
CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO);
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Stored Procedures ****/
|
||||
/******************************************************************************/
|
||||
|
||||
|
||||
SET TERM ^ ;
|
||||
|
||||
ALTER PROCEDURE PRO_PRES_CAPITULOS (
|
||||
AID INTEGER)
|
||||
RETURNS (
|
||||
ID INTEGER,
|
||||
ID_PRESUPUESTO INTEGER,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
CONCEPTO VARCHAR(2000),
|
||||
IMPORTE_TOTAL NUMERIC(11,2),
|
||||
VISIBLE SMALLINT)
|
||||
AS
|
||||
declare variable num_capitulos integer;
|
||||
declare variable existe numeric(11,2);
|
||||
declare variable total_acumulado numeric(11,2);
|
||||
begin
|
||||
num_capitulos = 0;
|
||||
existe = 0;
|
||||
total_acumulado = 0.0;
|
||||
|
||||
/* ¿Existe el presupuesto? */
|
||||
for select count(*)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
into :EXISTE
|
||||
do
|
||||
begin
|
||||
if (existe = 0) then
|
||||
suspend;
|
||||
end
|
||||
|
||||
/* Ver si hay conceptos al principio sin capitulos */
|
||||
for select id, id_presupuesto, posicion, tipo_detalle
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
rows 1
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE
|
||||
do
|
||||
begin
|
||||
if (TIPO_DETALLE = 'Concepto') then
|
||||
EXISTE = 1;
|
||||
end
|
||||
|
||||
if (existe = 1) then
|
||||
begin
|
||||
/* Existen conceptos sin capitulo */
|
||||
for select tipo_detalle, importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :TIPO_DETALLE, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
if (tipo_detalle <> 'Concepto') then
|
||||
begin
|
||||
importe_total = total_acumulado;
|
||||
tipo_detalle = 'Titulo';
|
||||
concepto = 'General';
|
||||
visible = 1;
|
||||
ID = -1;
|
||||
posicion = -1;
|
||||
suspend;
|
||||
break;
|
||||
end
|
||||
else begin
|
||||
if (visible <> 0) then
|
||||
total_acumulado = total_acumulado + importe_total;
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
for select id, id_presupuesto, posicion, tipo_detalle, concepto,
|
||||
importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where tipo_detalle <> 'Concepto' and id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,
|
||||
:IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
suspend;
|
||||
|
||||
end
|
||||
^
|
||||
|
||||
ALTER PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
|
||||
AID INTEGER)
|
||||
RETURNS (
|
||||
ID INTEGER,
|
||||
ID_PRESUPUESTO INTEGER,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
ID_CAPITULO INTEGER,
|
||||
ID_ARTICULO INTEGER,
|
||||
REFERENCIA VARCHAR(255),
|
||||
CONCEPTO VARCHAR(2000),
|
||||
CANTIDAD INTEGER,
|
||||
IMPORTE_UNIDAD NUMERIC(11,2),
|
||||
DESCUENTO FLOAT,
|
||||
IMPORTE_PORTE NUMERIC(11,2),
|
||||
IMPORTE_TOTAL NUMERIC(11,2),
|
||||
VISIBLE SMALLINT)
|
||||
AS
|
||||
declare variable capitulo_actual integer;
|
||||
begin
|
||||
capitulo_actual = -1;
|
||||
ID_CAPITULO = -1;
|
||||
for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle,
|
||||
pre.id_articulo, articulos.referencia, pre.concepto, pre.cantidad,
|
||||
pre.importe_unidad, pre.descuento, pre.importe_porte,
|
||||
pre.importe_total, coalesce(pre.visible, 1)
|
||||
from presupuestos_cliente_detalles pre
|
||||
left join articulos on (pre.id_articulo = articulos.id)
|
||||
where pre.id_presupuesto = :AID
|
||||
order by pre.id_presupuesto, pre.posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :ID_ARTICULO,
|
||||
:REFERENCIA, :CONCEPTO, :CANTIDAD, :IMPORTE_UNIDAD, :DESCUENTO,
|
||||
:IMPORTE_PORTE, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
if (:tipo_detalle <> 'Concepto') then
|
||||
begin
|
||||
capitulo_actual = :ID;
|
||||
ID_CAPITULO = capitulo_actual;
|
||||
end
|
||||
else
|
||||
suspend;
|
||||
end
|
||||
end
|
||||
^
|
||||
|
||||
|
||||
SET TERM ; ^
|
||||
@ -60,56 +60,56 @@
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
|
||||
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxDataD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxEditorsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxExportD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxExtEditorsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxGridD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxIntl5D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxIntlPrintSys3D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxLibraryD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\cxPageControlD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxPSCoreD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\dxThemeD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Inventario\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl5D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -65,6 +65,7 @@ contains
|
||||
uEditorBasico in 'uEditorBasico.pas' {fEditorBasico},
|
||||
uDialogBase in 'uDialogBase.pas' {fDialogBase},
|
||||
uViewFiltroBase in 'uViewFiltroBase.pas' {frViewFiltroBase: TFrame},
|
||||
uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame};
|
||||
uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame},
|
||||
uViewRichEditor in 'uViewRichEditor.pas' {frViewRichEditor: TCustomView};
|
||||
|
||||
end.
|
||||
|
||||
@ -57,22 +57,22 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\dxBarD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\dxBarExtItemsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\dxLayoutControlD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\dxPScxCommonD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\dxPScxGridLnkD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\dxPsPrVwAdvD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGridLnkD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
@ -155,6 +155,10 @@
|
||||
<Form>frViewPreview</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewRichEditor.pas">
|
||||
<Form>frViewRichEditor</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewTotales.pas">
|
||||
<Form>frViewTotales</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
|
||||
Binary file not shown.
1395
Source/GUIBase/uViewRichEditor.dfm
Normal file
1395
Source/GUIBase/uViewRichEditor.dfm
Normal file
File diff suppressed because it is too large
Load Diff
238
Source/GUIBase/uViewRichEditor.pas
Normal file
238
Source/GUIBase/uViewRichEditor.pas
Normal file
@ -0,0 +1,238 @@
|
||||
unit uViewRichEditor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, Menus, cxLookAndFeelPainters, cxGraphics, cxSpinEdit,
|
||||
cxSpinButton, cxMaskEdit, cxFontNameComboBox, cxControls, cxContainer, cxEdit,
|
||||
cxTextEdit, cxDropDownEdit, cxColorComboBox, StdCtrls, cxButtons, ComCtrls,
|
||||
ToolWin, ImgList, ActnList, TBXExtItems, TB2ExtItems, TB2Item, TBX, TB2Dock,
|
||||
TB2Toolbar, PngImageList, cxMemo, cxRichEdit, ExtCtrls, DB, uDAInterfaces,
|
||||
uDADataTable, cxDBRichEdit;
|
||||
|
||||
type
|
||||
IViewRichEditor = interface(IViewBase)
|
||||
['{C29F4555-A57A-436D-BF23-2E2F013BC13D}']
|
||||
end;
|
||||
|
||||
|
||||
TfrViewRichEditor = class(TfrViewBase, IViewRichEditor)
|
||||
ActionList: TActionList;
|
||||
actEditCut: TAction;
|
||||
actEditCopy: TAction;
|
||||
actEditPaste: TAction;
|
||||
actEditFont: TAction;
|
||||
actBullets: TAction;
|
||||
pmColorSchemes: TPopupMenu;
|
||||
miStandard: TMenuItem;
|
||||
miHTML: TMenuItem;
|
||||
miWeb: TMenuItem;
|
||||
miWebSorted: TMenuItem;
|
||||
ToolbarImages: TImageList;
|
||||
TBXDock1: TTBXDock;
|
||||
TBXToolbar1: TTBXToolbar;
|
||||
bBold: TTBXItem;
|
||||
bItalic: TTBXItem;
|
||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
||||
bUnderline: TTBXItem;
|
||||
TBXSeparatorItem2: TTBXSeparatorItem;
|
||||
TBXItem5: TTBXItem;
|
||||
TBXItem6: TTBXItem;
|
||||
TBXItem7: TTBXItem;
|
||||
TBXSeparatorItem4: TTBXSeparatorItem;
|
||||
bAlignLeft: TTBXItem;
|
||||
bAlignCenter: TTBXItem;
|
||||
bAlignRight: TTBXItem;
|
||||
LargeImages: TPngImageList;
|
||||
SmallImages: TPngImageList;
|
||||
TBControlItem1: TTBControlItem;
|
||||
fcbFontName: TcxFontNameComboBox;
|
||||
TBXColorItem1: TTBXColorItem;
|
||||
RichEdit: TcxDBRichEdit;
|
||||
TBControlItem2: TTBControlItem;
|
||||
meFontSize: TcxMaskEdit;
|
||||
TBControlItem3: TTBControlItem;
|
||||
cxSpinButton: TcxSpinButton;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
TBXSeparatorItem5: TTBXSeparatorItem;
|
||||
bBullets: TTBXItem;
|
||||
procedure actBulletsExecute(Sender: TObject);
|
||||
procedure actEditCutExecute(Sender: TObject);
|
||||
procedure actEditCopyExecute(Sender: TObject);
|
||||
procedure actEditPasteExecute(Sender: TObject);
|
||||
procedure RichEditPropertiesChange(Sender: TObject);
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
procedure RichEditPropertiesSelectionChange(Sender: TObject);
|
||||
procedure cxFontNameComboBox1PropertiesChange(Sender: TObject);
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure fcbFontNamePropertiesInitPopup(Sender: TObject);
|
||||
procedure meFontSizePropertiesChange(Sender: TObject);
|
||||
procedure bBoldClick(Sender: TObject);
|
||||
procedure bItalicClick(Sender: TObject);
|
||||
procedure bUnderlineClick(Sender: TObject);
|
||||
procedure bAlignLeftClick(Sender: TObject);
|
||||
procedure bAlignCenterClick(Sender: TObject);
|
||||
procedure bAlignRightClick(Sender: TObject);
|
||||
procedure bBulletsClick(Sender: TObject);
|
||||
private
|
||||
FUpdating: Boolean;
|
||||
FChanged: Boolean;
|
||||
function CurrText: TTextAttributes;
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrViewRichEditor.actBulletsExecute(Sender: TObject);
|
||||
begin
|
||||
if FUpdating or (RichEdit = nil) then Exit;
|
||||
RichEdit.Paragraph.Numbering := TNumberingStyle(actBullets.Checked);
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.actEditCopyExecute(Sender: TObject);
|
||||
begin
|
||||
RichEdit.CopyToClipboard;
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.actEditCutExecute(Sender: TObject);
|
||||
begin
|
||||
RichEdit.CutToClipboard;
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.actEditPasteExecute(Sender: TObject);
|
||||
begin
|
||||
RichEdit.PasteFromClipboard;
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.bAlignCenterClick(Sender: TObject);
|
||||
begin
|
||||
if FUpdating or (RichEdit = nil) then Exit;
|
||||
RichEdit.Paragraph.Alignment := TAlignment(TControl(Sender).Tag);
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.bAlignLeftClick(Sender: TObject);
|
||||
begin
|
||||
if FUpdating or (RichEdit = nil) then Exit;
|
||||
RichEdit.Paragraph.Alignment := TAlignment(TControl(Sender).Tag);
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.bAlignRightClick(Sender: TObject);
|
||||
begin
|
||||
if FUpdating or (RichEdit = nil) then Exit;
|
||||
RichEdit.Paragraph.Alignment := TAlignment(TControl(Sender).Tag);
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.bBoldClick(Sender: TObject);
|
||||
begin
|
||||
if FUpdating then Exit;
|
||||
if bBold.Checked then
|
||||
CurrText.Style := CurrText.Style + [fsBold]
|
||||
else
|
||||
CurrText.Style := CurrText.Style - [fsBold];
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.bBulletsClick(Sender: TObject);
|
||||
begin
|
||||
if FUpdating or (RichEdit = nil) then Exit;
|
||||
RichEdit.Paragraph.Numbering := TNumberingStyle(bBullets.Checked);
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.bItalicClick(Sender: TObject);
|
||||
begin
|
||||
if FUpdating then Exit;
|
||||
if bItalic.Checked then
|
||||
CurrText.Style := CurrText.Style + [fsItalic]
|
||||
else
|
||||
CurrText.Style := CurrText.Style - [fsItalic];
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.bUnderlineClick(Sender: TObject);
|
||||
begin
|
||||
if FUpdating then Exit;
|
||||
if bUnderline.Checked then
|
||||
CurrText.Style := CurrText.Style + [fsUnderline]
|
||||
else
|
||||
CurrText.Style := CurrText.Style - [fsUnderline];
|
||||
end;
|
||||
|
||||
function TfrViewRichEditor.CurrText: TTextAttributes;
|
||||
begin
|
||||
{ if RichEdit.SelLength > 0 then}
|
||||
Result := RichEdit.SelAttributes
|
||||
{ else
|
||||
Result := RichEdit.DefAttributes;}
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.CustomViewCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
CurrText.Name := DefFontData.Name;
|
||||
RichEditPropertiesSelectionChange(Self);
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.CustomViewShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FChanged := False;
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.cxFontNameComboBox1PropertiesChange(
|
||||
Sender: TObject);
|
||||
begin
|
||||
if FUpdating then Exit;
|
||||
CurrText.Name := TcxFontNameComboBox(Sender).Text;
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.fcbFontNamePropertiesInitPopup(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
fcbFontName.Properties.FontPreview.FontStyle := CurrText.Style;
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.meFontSizePropertiesChange(Sender: TObject);
|
||||
begin
|
||||
if FUpdating then Exit;
|
||||
if meFontSize.EditText <> '' then
|
||||
CurrText.Size := StrToInt(meFontSize.EditText)
|
||||
else
|
||||
CurrText.Size := 0;
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.RichEditPropertiesChange(Sender: TObject);
|
||||
begin
|
||||
FChanged := True;
|
||||
end;
|
||||
|
||||
procedure TfrViewRichEditor.RichEditPropertiesSelectionChange(Sender: TObject);
|
||||
begin
|
||||
with RichEdit.Paragraph do
|
||||
try
|
||||
FUpdating := True;
|
||||
bBold.Checked := fsBold in CurrText.Style;
|
||||
bItalic.Checked := fsItalic in CurrText.Style;
|
||||
bUnderline.Checked := fsUnderline in CurrText.Style;
|
||||
bBullets.Checked := Boolean(Numbering);
|
||||
meFontSize.Text := IntToStr(CurrText.Size);
|
||||
fcbFontName.EditValue := CurrText.Name;
|
||||
//cxColorComboBox.EditValue := CurrText.Color;
|
||||
case Ord(Alignment) of
|
||||
0: begin
|
||||
bAlignLeft.Checked := True;
|
||||
end;
|
||||
1: begin
|
||||
bAlignRight.Checked := True;
|
||||
end;
|
||||
2: begin
|
||||
bAlignCenter.Checked := True;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
FUpdating := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
File diff suppressed because one or more lines are too long
@ -4,7 +4,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
ActiveControl = eNombre
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Cambiar datos de la direcci'#243'n'
|
||||
ClientHeight = 589
|
||||
ClientHeight = 499
|
||||
ClientWidth = 426
|
||||
Color = clBtnFace
|
||||
ParentFont = True
|
||||
@ -12,14 +12,14 @@ object fEditorDireccion: TfEditorDireccion
|
||||
Position = poOwnerFormCenter
|
||||
DesignSize = (
|
||||
426
|
||||
589)
|
||||
499)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Bevel1: TBevel
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 322
|
||||
Height = 511
|
||||
Width = 329
|
||||
Height = 457
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Shape = bsFrame
|
||||
end
|
||||
@ -120,20 +120,14 @@ object fEditorDireccion: TfEditorDireccion
|
||||
AutoSize = False
|
||||
Caption = 'Notas:'
|
||||
end
|
||||
object Bevel2: TBevel
|
||||
Left = 20
|
||||
Top = 457
|
||||
Width = 306
|
||||
Height = 9
|
||||
Shape = bsBottomLine
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 21
|
||||
Top = 489
|
||||
Left = 20
|
||||
Top = 471
|
||||
Width = 156
|
||||
Height = 13
|
||||
AutoSize = False
|
||||
Caption = 'Coste del env'#237'o a esta direcci'#243'n:'
|
||||
Visible = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 21
|
||||
@ -160,7 +154,6 @@ object fEditorDireccion: TfEditorDireccion
|
||||
Caption = '&Aceptar'
|
||||
ModalResult = 1
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 350
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 343
|
||||
@ -172,7 +165,6 @@ object fEditorDireccion: TfEditorDireccion
|
||||
Caption = '&Cancelar'
|
||||
ModalResult = 2
|
||||
TabOrder = 1
|
||||
ExplicitLeft = 350
|
||||
end
|
||||
object eDireccion: TDBEdit
|
||||
Left = 135
|
||||
@ -272,8 +264,8 @@ object fEditorDireccion: TfEditorDireccion
|
||||
TabOrder = 10
|
||||
end
|
||||
object ePortes: TcxDBCurrencyEdit
|
||||
Left = 183
|
||||
Top = 486
|
||||
Left = 194
|
||||
Top = 471
|
||||
DataBinding.DataField = 'PORTE'
|
||||
DataBinding.DataSource = dsDireccion
|
||||
Properties.UseThousandSeparator = True
|
||||
@ -286,6 +278,7 @@ object fEditorDireccion: TfEditorDireccion
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
Visible = False
|
||||
Width = 143
|
||||
end
|
||||
object eMovil: TDBEdit
|
||||
|
||||
@ -6,7 +6,7 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
||||
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton,
|
||||
cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit,
|
||||
uIEditorDireccionContacto, uDireccionesContactoController, uBizDireccionesContacto,
|
||||
cxCurrencyEdit;
|
||||
cxCurrencyEdit, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorDireccion = class(TForm, IEditorEditorDireccion)
|
||||
@ -33,7 +33,6 @@ type
|
||||
Label8: TLabel;
|
||||
Label9: TLabel;
|
||||
eNotas: TDBMemo;
|
||||
Bevel2: TBevel;
|
||||
Label10: TLabel;
|
||||
ePortes: TcxDBCurrencyEdit;
|
||||
Label11: TLabel;
|
||||
|
||||
@ -19,7 +19,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
ExplicitLeft = 613
|
||||
end
|
||||
object Label1: TLabel [3]
|
||||
Left = 366
|
||||
Left = 370
|
||||
Top = 307
|
||||
Width = 342
|
||||
Height = 26
|
||||
@ -29,37 +29,37 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
WordWrap = True
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Left = 124
|
||||
Left = 134
|
||||
Top = 304
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 124
|
||||
ExplicitLeft = 134
|
||||
ExplicitTop = 304
|
||||
ExplicitWidth = 264
|
||||
Width = 264
|
||||
end
|
||||
inherited eProvincia: TcxDBTextEdit
|
||||
Left = 124
|
||||
Left = 134
|
||||
Top = 358
|
||||
TabOrder = 12
|
||||
ExplicitLeft = 124
|
||||
ExplicitLeft = 134
|
||||
ExplicitTop = 358
|
||||
ExplicitWidth = 264
|
||||
Width = 264
|
||||
end
|
||||
inherited ePoblacion: TcxDBTextEdit
|
||||
Left = 124
|
||||
Left = 134
|
||||
Top = 331
|
||||
TabOrder = 10
|
||||
ExplicitLeft = 124
|
||||
ExplicitLeft = 134
|
||||
ExplicitTop = 331
|
||||
ExplicitWidth = 163
|
||||
Width = 163
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 271
|
||||
Left = 275
|
||||
Top = 331
|
||||
TabOrder = 11
|
||||
ExplicitLeft = 271
|
||||
ExplicitLeft = 275
|
||||
ExplicitTop = 331
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
@ -70,7 +70,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
Height = 20
|
||||
end
|
||||
object cxDBCheckBox1: TcxDBCheckBox [9]
|
||||
Left = 366
|
||||
Left = 370
|
||||
Top = 280
|
||||
Caption = 'Incluir este proveedor en la tienda web'
|
||||
DataBinding.DataField = 'TIENDA_WEB'
|
||||
@ -119,7 +119,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
Width = 326
|
||||
end
|
||||
object eCertificaciones: TcxDBTextEdit [11]
|
||||
Left = 124
|
||||
Left = 134
|
||||
Top = 220
|
||||
DataBinding.DataField = 'CERTIFICACION'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -138,7 +138,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
Width = 227
|
||||
end
|
||||
object cbGrupoProveedor: TcxDBComboBox [12]
|
||||
Left = 124
|
||||
Left = 134
|
||||
Top = 136
|
||||
DataBinding.DataField = 'GRUPO_PROVEEDOR'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -161,18 +161,8 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
TabOrder = 5
|
||||
Width = 227
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 461
|
||||
TabOrder = 14
|
||||
ExplicitLeft = 461
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 461
|
||||
TabOrder = 13
|
||||
ExplicitLeft = 461
|
||||
end
|
||||
object eDescripcionProveedor: TcxDBTextEdit [15]
|
||||
Left = 124
|
||||
object eDescripcionProveedor: TcxDBTextEdit [13]
|
||||
Left = 134
|
||||
Top = 82
|
||||
DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -190,8 +180,8 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
TabOrder = 3
|
||||
Width = 221
|
||||
end
|
||||
object eCodigoAsignado: TcxDBTextEdit [16]
|
||||
Left = 124
|
||||
object eCodigoAsignado: TcxDBTextEdit [14]
|
||||
Left = 134
|
||||
Top = 109
|
||||
DataBinding.DataField = 'CODIGO_ASIGNADO'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -209,53 +199,83 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
TabOrder = 4
|
||||
Width = 221
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 465
|
||||
TabOrder = 14
|
||||
ExplicitLeft = 465
|
||||
ExplicitWidth = 91
|
||||
Width = 91
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 465
|
||||
TabOrder = 13
|
||||
ExplicitLeft = 465
|
||||
ExplicitWidth = 127
|
||||
Width = 127
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 461
|
||||
Left = 465
|
||||
TabOrder = 15
|
||||
ExplicitLeft = 461
|
||||
ExplicitLeft = 465
|
||||
ExplicitWidth = 155
|
||||
Width = 155
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 461
|
||||
Left = 465
|
||||
TabOrder = 16
|
||||
ExplicitLeft = 461
|
||||
ExplicitLeft = 465
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited eNombre: TcxDBTextEdit
|
||||
Left = 124
|
||||
ExplicitLeft = 124
|
||||
Left = 134
|
||||
ExplicitLeft = 134
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 197
|
||||
ExplicitLeft = 197
|
||||
Left = 207
|
||||
ExplicitLeft = 207
|
||||
ExplicitWidth = 205
|
||||
Width = 205
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 461
|
||||
Left = 465
|
||||
Properties.Prefix = 'mailto:'
|
||||
TabOrder = 17
|
||||
ExplicitLeft = 461
|
||||
ExplicitLeft = 465
|
||||
ExplicitWidth = 133
|
||||
Width = 133
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 461
|
||||
Left = 465
|
||||
Properties.Prefix = 'mailto:'
|
||||
TabOrder = 18
|
||||
ExplicitLeft = 461
|
||||
ExplicitLeft = 465
|
||||
ExplicitWidth = 133
|
||||
Width = 133
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 461
|
||||
Left = 465
|
||||
TabOrder = 19
|
||||
ExplicitLeft = 461
|
||||
ExplicitLeft = 465
|
||||
ExplicitWidth = 133
|
||||
Width = 133
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Left = 124
|
||||
ExplicitLeft = 124
|
||||
Left = 134
|
||||
ExplicitLeft = 134
|
||||
ExplicitWidth = 38
|
||||
Width = 38
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Left = 124
|
||||
Left = 134
|
||||
Top = 277
|
||||
TabOrder = 8
|
||||
ExplicitLeft = 124
|
||||
ExplicitLeft = 134
|
||||
ExplicitTop = 277
|
||||
ExplicitWidth = 256
|
||||
Width = 256
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
|
||||
@ -286,7 +306,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem23: TdxLayoutItem
|
||||
Caption = 'Certificaciones:'
|
||||
Caption = 'Tipo de homologaci'#243'n:'
|
||||
Control = eCertificaciones
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
object RptFacturasCliente: TRptFacturasCliente
|
||||
OldCreateOrder = True
|
||||
OnCreate = DataModuleCreate
|
||||
Height = 405
|
||||
Width = 447
|
||||
Height = 577
|
||||
Width = 479
|
||||
object DADataCabecera: TDADataSource
|
||||
Left = 264
|
||||
Top = 72
|
||||
@ -39,34 +39,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Left = 344
|
||||
Top = 128
|
||||
end
|
||||
object DABINAdapter: TDABINAdapter
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object frxRichObject1: TfrxRichObject
|
||||
Left = 48
|
||||
Top = 296
|
||||
end
|
||||
object frxBarCodeObject1: TfrxBarCodeObject
|
||||
Left = 144
|
||||
Top = 296
|
||||
end
|
||||
object frxOLEObject1: TfrxOLEObject
|
||||
Left = 48
|
||||
Top = 344
|
||||
end
|
||||
object frxCrossObject1: TfrxCrossObject
|
||||
Left = 144
|
||||
Top = 344
|
||||
end
|
||||
object frxCheckBoxObject1: TfrxCheckBoxObject
|
||||
Left = 256
|
||||
Top = 296
|
||||
end
|
||||
object frxGradientObject1: TfrxGradientObject
|
||||
Left = 360
|
||||
Top = 296
|
||||
end
|
||||
object schReport: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
Datasets = <
|
||||
@ -823,7 +795,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '3.23.7'
|
||||
Version = '4.3'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
@ -831,6 +803,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
PreviewOptions.OutlineWidth = 180
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
PrintOptions.PrintOnSheet = 0
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 39290.847101226850000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
@ -986,70 +959,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
OnStartReport = 'frxReportOnStartReport'
|
||||
Left = 169
|
||||
Top = 16
|
||||
Datasets = <
|
||||
item
|
||||
DataSet = frxDBCabecera
|
||||
DataSetName = 'frxDBCabecera'
|
||||
end
|
||||
item
|
||||
DataSet = frxDBDetalles
|
||||
DataSetName = 'frxDBDetalles'
|
||||
end
|
||||
item
|
||||
DataSet = frxDBDataset1
|
||||
DataSetName = 'frxDBVencimientos'
|
||||
end>
|
||||
Variables = <
|
||||
item
|
||||
Name = ' Paginacion'
|
||||
Value = Null
|
||||
end
|
||||
item
|
||||
Name = 'Pagina'
|
||||
Value = Null
|
||||
end
|
||||
item
|
||||
Name = 'TotalPaginas'
|
||||
Value = Null
|
||||
end>
|
||||
Style = <
|
||||
item
|
||||
Name = 'Concepto normal'
|
||||
Color = clNone
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
end
|
||||
item
|
||||
Name = 'Concepto subtotal'
|
||||
Color = clNone
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
item
|
||||
Name = 'Cabecera de columna'
|
||||
Color = 15790320
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
|
||||
end
|
||||
item
|
||||
Name = 'Concepto titulo'
|
||||
Color = clNone
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end>
|
||||
end
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
@ -1087,4 +996,98 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Left = 344
|
||||
Top = 184
|
||||
end
|
||||
object frxBarCodeObject1: TfrxBarCodeObject
|
||||
Left = 280
|
||||
Top = 496
|
||||
end
|
||||
object frxOLEObject1: TfrxOLEObject
|
||||
Left = 184
|
||||
Top = 432
|
||||
end
|
||||
object frxCrossObject1: TfrxCrossObject
|
||||
Left = 384
|
||||
Top = 496
|
||||
end
|
||||
object frxCheckBoxObject1: TfrxCheckBoxObject
|
||||
Left = 280
|
||||
Top = 440
|
||||
end
|
||||
object frxGradientObject1: TfrxGradientObject
|
||||
Left = 384
|
||||
Top = 440
|
||||
end
|
||||
object IBDatabase1: TIBDatabase
|
||||
DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES.FDB'
|
||||
Params.Strings = (
|
||||
'user_name=sysdba'
|
||||
'password=masterkey'
|
||||
'lc_ctype=ISO8859_1')
|
||||
LoginPrompt = False
|
||||
DefaultTransaction = IBTransaction1
|
||||
Left = 48
|
||||
Top = 296
|
||||
end
|
||||
object IBTransaction1: TIBTransaction
|
||||
Left = 48
|
||||
Top = 352
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = cabecera
|
||||
Left = 216
|
||||
Top = 296
|
||||
end
|
||||
object DataSource2: TDataSource
|
||||
DataSet = detalles
|
||||
Left = 216
|
||||
Top = 352
|
||||
end
|
||||
object cabecera: TIBQuery
|
||||
Database = IBDatabase1
|
||||
Transaction = IBTransaction1
|
||||
SQL.Strings = (
|
||||
'SELECT '
|
||||
' ID, ID_EMPRESA, FECHA_PRESUPUESTO, FECHA_DECISION, '
|
||||
' REFERENCIA, SITUACION, ID_CLIENTE, NIF_CIF, NOMBRE, '
|
||||
' REFERENCIA_CLIENTE, CLIENTE_FINAL, PORTADA, MEMORIA, '
|
||||
|
||||
' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,' +
|
||||
' '
|
||||
' FECHA_MODIFICACION, USUARIO, IMPORTE_NETO, IMPORTE_PORTE, '
|
||||
' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, '
|
||||
' IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO'
|
||||
' FROM'
|
||||
' V_PRESUPUESTOS_CLIENTE'
|
||||
' WHERE V_PRESUPUESTOS_CLIENTE.ID = 31')
|
||||
Left = 136
|
||||
Top = 296
|
||||
end
|
||||
object detalles: TIBQuery
|
||||
Database = IBDatabase1
|
||||
Transaction = IBTransaction1
|
||||
SQL.Strings = (
|
||||
|
||||
'SELECT PRESUPUESTOS_CLIENTE_DETALLES.ID, PRESUPUESTOS_CLIENTE_DE' +
|
||||
'TALLES.ID_PRESUPUESTO,'
|
||||
|
||||
' PRESUPUESTOS_CLIENTE_DETALLES.POSICION, PRESUPUESTOS_CLIE' +
|
||||
'NTE_DETALLES.TIPO_DETALLE,'
|
||||
|
||||
' PRESUPUESTOS_CLIENTE_DETALLES.CONCEPTO, PRESUPUESTOS_CLIE' +
|
||||
'NTE_DETALLES.CANTIDAD,'
|
||||
|
||||
' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTO' +
|
||||
'S_CLIENTE_DETALLES.IMPORTE_TOTAL,'
|
||||
|
||||
' ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, ARTICULOS.REFERE' +
|
||||
'NCIA_PROV as REFERENCIA_PROVEEDOR'
|
||||
''
|
||||
'FROM PRESUPUESTOS_CLIENTE_DETALLES'
|
||||
|
||||
'LEFT JOIN ARTICULOS ON (PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICUL' +
|
||||
'O = ARTICULOS.ID)'
|
||||
'WHERE PRESUPUESTOS_CLIENTE_DETALLES.ID_PRESUPUESTO = 31'
|
||||
'ORDER BY POSICION')
|
||||
Left = 136
|
||||
Top = 352
|
||||
end
|
||||
end
|
||||
|
||||
@ -7,7 +7,7 @@ uses
|
||||
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
|
||||
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
|
||||
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
|
||||
uDAInterfaces, uDADataStreamer;
|
||||
uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase;
|
||||
|
||||
type
|
||||
TRptFacturasCliente = class(TDataModule)
|
||||
@ -15,13 +15,6 @@ type
|
||||
DADataDetalles: TDADataSource;
|
||||
tbl_FacturaCliente: TDACDSDataTable;
|
||||
tbl_DetallesFacturaCliente: TDACDSDataTable;
|
||||
DABINAdapter: TDABINAdapter;
|
||||
frxRichObject1: TfrxRichObject;
|
||||
frxBarCodeObject1: TfrxBarCodeObject;
|
||||
frxOLEObject1: TfrxOLEObject;
|
||||
frxCrossObject1: TfrxCrossObject;
|
||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
||||
frxGradientObject1: TfrxGradientObject;
|
||||
frxDBCabecera: TfrxDBDataset;
|
||||
frxDBDetalles: TfrxDBDataset;
|
||||
DADataVencimientos: TDADataSource;
|
||||
@ -30,10 +23,21 @@ type
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
frxReport: TfrxReport;
|
||||
frxBarCodeObject1: TfrxBarCodeObject;
|
||||
frxOLEObject1: TfrxOLEObject;
|
||||
frxCrossObject1: TfrxCrossObject;
|
||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
||||
frxGradientObject1: TfrxGradientObject;
|
||||
IBDatabase1: TIBDatabase;
|
||||
IBTransaction1: TIBTransaction;
|
||||
DataSource1: TDataSource;
|
||||
DataSource2: TDataSource;
|
||||
cabecera: TIBQuery;
|
||||
detalles: TIBQuery;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
//Genera cada uno de los albaranes a imprimir
|
||||
//Genera cada una de las facturas a imprimir
|
||||
procedure GenerarFactura(const ID: integer); overload;
|
||||
public
|
||||
function GenerarFactura(const AFacturaID : String): Binary; overload;
|
||||
@ -78,7 +82,7 @@ begin
|
||||
ID_Facturas := TStringList.Create;
|
||||
ID_Facturas.CommaText := AFacturaID;
|
||||
|
||||
//Vamos generando todos y cada uno de los albaranes recibidos
|
||||
//Vamos generando todos y cada una de las facturas recibidas
|
||||
for i := 0 to ID_Facturas.Count - 1 do
|
||||
GenerarFactura(StrToInt(ID_Facturas.Strings[i]));
|
||||
|
||||
@ -103,7 +107,7 @@ begin
|
||||
dsDetail := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Detalles, ['ID_FACTURA'], [ID], False);
|
||||
dsVencimientos := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Vencimientos, ['ID_FACTURA'], [ID], False);
|
||||
|
||||
AStream.Clear;
|
||||
{ AStream.Clear;
|
||||
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_FacturaCliente, TRUE, '', TRUE, TRUE);
|
||||
|
||||
@ -113,7 +117,7 @@ begin
|
||||
|
||||
AStream.Clear;
|
||||
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
|
||||
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);}
|
||||
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
|
||||
|
||||
@ -270,9 +270,8 @@ begin
|
||||
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||
FECHA_PRESUPUESTO := DateOf(Now);
|
||||
INCIDENCIAS_ACTIVAS := 0;
|
||||
// INCIDENCIAS := Nil;
|
||||
INCIDENCIAS := NIL;
|
||||
REFERENCIA := '';
|
||||
// SetFieldNull(DataTable, fld_PresupuestosClienteREF_TIENDA_WEB);
|
||||
end;
|
||||
Result.Post;
|
||||
finally
|
||||
|
||||
@ -63,7 +63,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Situaci'#195#179'n'
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
DictionaryEntry = 'PresupuestosCliente_SITUACION'
|
||||
end
|
||||
item
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -12,8 +12,8 @@ uses
|
||||
|
||||
type
|
||||
TRptPresupuestosCliente = class(TDataModule)
|
||||
DADataCabecera: TDADataSource;
|
||||
DADataDetalles: TDADataSource;
|
||||
DADSCabecera: TDADataSource;
|
||||
DADSDetalles: TDADataSource;
|
||||
frxBarCodeObject1: TfrxBarCodeObject;
|
||||
frxOLEObject1: TfrxOLEObject;
|
||||
frxCrossObject1: TfrxCrossObject;
|
||||
@ -21,18 +21,62 @@ type
|
||||
frxGradientObject1: TfrxGradientObject;
|
||||
frxDBCabecera: TfrxDBDataset;
|
||||
frxDBDetalles: TfrxDBDataset;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
tbl_Cabecera: TDAMemDataTable;
|
||||
tbl_Detalles: TDAMemDataTable;
|
||||
frxReport: TfrxReport;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
IBDatabase1: TIBDatabase;
|
||||
IBTransaction1: TIBTransaction;
|
||||
DataSource1: TDataSource;
|
||||
DataSource2: TDataSource;
|
||||
cabecera: TIBQuery;
|
||||
capitulos: TIBQuery;
|
||||
DataSource3: TDataSource;
|
||||
detalles: TIBQuery;
|
||||
DataSource4: TDataSource;
|
||||
resumen: TIBQuery;
|
||||
resumenID: TIntegerField;
|
||||
resumenID_PRESUPUESTO: TIntegerField;
|
||||
resumenPOSICION: TIntegerField;
|
||||
resumenTIPO_DETALLE: TIBStringField;
|
||||
resumenCONCEPTO: TIBStringField;
|
||||
resumenIMPORTE_TOTAL: TIBBCDField;
|
||||
resumenVISIBLE: TSmallintField;
|
||||
frxDBCapitulos: TfrxDBDataset;
|
||||
frxDBResumen: TfrxDBDataset;
|
||||
DABin2DataStreamer1: TDABin2DataStreamer;
|
||||
cabecera: TIBQuery;
|
||||
cabeceraID: TIntegerField;
|
||||
cabeceraID_EMPRESA: TIntegerField;
|
||||
cabeceraFECHA_PRESUPUESTO: TDateField;
|
||||
cabeceraREFERENCIA: TIBStringField;
|
||||
cabeceraPORTADA: TMemoField;
|
||||
cabeceraMEMORIA: TMemoField;
|
||||
cabeceraOBSERVACIONES: TMemoField;
|
||||
cabeceraIMPORTE_NETO: TIBBCDField;
|
||||
cabeceraIMPORTE_PORTE: TIBBCDField;
|
||||
cabeceraDESCUENTO: TFloatField;
|
||||
cabeceraIMPORTE_DESCUENTO: TIBBCDField;
|
||||
cabeceraBASE_IMPONIBLE: TIBBCDField;
|
||||
cabeceraIVA: TFloatField;
|
||||
cabeceraID_CLIENTE: TIntegerField;
|
||||
cabeceraREFERENCIA_CLIENTE: TIBStringField;
|
||||
cabeceraCLIENTE_FINAL: TIBStringField;
|
||||
cabeceraNIF_CIF: TIBStringField;
|
||||
cabeceraNOMBRE: TIBStringField;
|
||||
cabeceraIMPORTE_IVA: TIBBCDField;
|
||||
cabeceraIMPORTE_TOTAL: TIBBCDField;
|
||||
cabeceraPERSONA_CONTACTO: TIBStringField;
|
||||
cabeceraCALLE: TIBStringField;
|
||||
cabeceraPOBLACION: TIBStringField;
|
||||
cabeceraPROVINCIA: TIBStringField;
|
||||
cabeceraCODIGO_POSTAL: TIBStringField;
|
||||
DADSCapitulos: TDADataSource;
|
||||
tbl_Capitulos: TDAMemDataTable;
|
||||
DADSResumen: TDADataSource;
|
||||
tbl_Resumen: TDAMemDataTable;
|
||||
DAMemDataTable1: TDAMemDataTable;
|
||||
DAMemDataTable2: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
@ -53,7 +97,7 @@ const
|
||||
|
||||
{ Dataset names for schReport }
|
||||
ds_InformeCabecera = 'Informe_Cabecera';
|
||||
ds_InformeDetalles = 'Informe_Detalles';
|
||||
ds_InformeCapitulos = 'Informe_Capitulos';
|
||||
|
||||
|
||||
{ TRptPresupuestosProveedor }
|
||||
@ -93,35 +137,62 @@ end;
|
||||
procedure TRptPresupuestosCliente.GenerarPresupuesto(const AID: Integer);
|
||||
var
|
||||
AStream: TMemoryStream;
|
||||
dsMaster: IDADataset;
|
||||
dsDetail: IDADataset;
|
||||
dsCabecera: IDADataset;
|
||||
dsCapitulos: IDADataset;
|
||||
I: Integer;
|
||||
begin
|
||||
//AStream := TMemoryStream.Create;
|
||||
AStream := TMemoryStream.Create;
|
||||
|
||||
try
|
||||
{dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [AID]);
|
||||
dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID'], [AID], False);
|
||||
{ dsCabecera := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [AID]);
|
||||
dsCapitulos := schReport.NewDataset(FConnection, ds_InformeCapitulos, ['ID_PRESUPUESTO'], [AID], False);
|
||||
|
||||
AStream.Clear;
|
||||
Bin2DataStreamer.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
|
||||
Bin2DataStreamer.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
|
||||
|
||||
DABin2DataStreamer1.WriteDataset(AStream, dsCabecera, [woRows, woSchema]);
|
||||
DABin2DataStreamer1.ReadDataset(AStream, DAMemDataTable1, True, ds_InformeCabecera, True, True);
|
||||
AStream.Clear;
|
||||
DABin2DataStreamer1.WriteDataset(AStream, dsCapitulos, [woRows, woSchema]);
|
||||
DABin2DataStreamer1.ReadDataset(AStream, DAMemDataTable2, True, ds_InformeCapitulos, True, True);
|
||||
|
||||
|
||||
DADSCabecera.DataTable := DAMemDataTable1;
|
||||
frxDBCabecera.DataSource := DADSCabecera;
|
||||
|
||||
DADSCapitulos.DataTable := DAMemDataTable2;
|
||||
frxDBCapitulos.DataSource := DADSCapitulos;}
|
||||
|
||||
{ DAMemDataTable1.Active := True;
|
||||
|
||||
for I := 0 to DAMemDataTable1.RecordCount - 1 do
|
||||
ShowMessage(DAMemDataTable1.Fields[2].AsString);}
|
||||
|
||||
{ AStream.Clear;
|
||||
Bin2DataStreamer.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
|
||||
Bin2DataStreamer.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);}
|
||||
|
||||
frxDBCabecera.DataSource := DADSCabecera;
|
||||
frxDBCapitulos.DataSource := DADSCapitulos;
|
||||
frxDBDetalles.DataSource := DADSDetalles;
|
||||
frxDBResumen.DataSource := DADSResumen;
|
||||
|
||||
tbl_Cabecera.ParamByName('ID').AsInteger := AID;
|
||||
tbl_Detalles.ParamByName('ID').AsInteger := AID;
|
||||
tbl_Capitulos.ParamByName('ID_PRESUPUESTO').AsInteger := AID;
|
||||
tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsInteger := AID;
|
||||
tbl_Resumen.ParamByName('ID_PRESUPUESTO').AsInteger := AID;
|
||||
|
||||
tbl_Cabecera.Active := True;
|
||||
tbl_Capitulos.Active := True;
|
||||
tbl_Detalles.Active := True;
|
||||
tbl_Resumen.Active := True;
|
||||
|
||||
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
|
||||
frxReport.PrepareReport(False);
|
||||
//frxReport.ShowPreparedReport;
|
||||
|
||||
finally
|
||||
//AStream.Free;
|
||||
dsMaster := Nil;
|
||||
dsDetail := Nil;
|
||||
AStream.Free;
|
||||
dsCabecera := Nil;
|
||||
dsCapitulos := Nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
OldCreateOrder = True
|
||||
OnCreate = DARemoteServiceCreate
|
||||
RequiresSession = True
|
||||
SessionManager = dmServer.SessionManager
|
||||
ConnectionName = 'IBX'
|
||||
ServiceSchema = schPresupuestosCliente
|
||||
|
||||
@ -43,6 +43,8 @@
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
@ -51,11 +53,11 @@
|
||||
<DelphiCompile Include="PresupuestosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
|
||||
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
|
||||
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -2,19 +2,20 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 332
|
||||
Top = 147
|
||||
Caption = 'Nuevo pedido de cliente'
|
||||
ClientHeight = 631
|
||||
ClientWidth = 674
|
||||
ClientHeight = 615
|
||||
ClientWidth = 749
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 682
|
||||
ExplicitHeight = 658
|
||||
ExplicitTop = -85
|
||||
ExplicitWidth = 757
|
||||
ExplicitHeight = 642
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 674
|
||||
Width = 749
|
||||
Caption = 'Nuevo pedido de cliente'
|
||||
ExplicitWidth = 674
|
||||
inherited Image1: TImage
|
||||
Left = 647
|
||||
Left = 722
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -126,7 +127,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 674
|
||||
Width = 749
|
||||
ExplicitWidth = 674
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 488
|
||||
@ -141,30 +142,32 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 674
|
||||
ExplicitWidth = 749
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 674
|
||||
Height = 465
|
||||
Width = 749
|
||||
Height = 420
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 674
|
||||
ExplicitHeight = 465
|
||||
ExplicitHeight = 402
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 666
|
||||
ExplicitHeight = 437
|
||||
ExplicitWidth = 741
|
||||
ExplicitHeight = 421
|
||||
end
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 666
|
||||
ExplicitHeight = 374
|
||||
inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 666
|
||||
Height = 437
|
||||
Width = 741
|
||||
Height = 392
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -177,10 +180,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 666
|
||||
ExplicitHeight = 437
|
||||
ExplicitHeight = 374
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 666
|
||||
ExplicitWidth = 666
|
||||
Width = 741
|
||||
ExplicitWidth = 741
|
||||
inherited FontSize: TEdit
|
||||
Width = 57
|
||||
ExplicitWidth = 57
|
||||
@ -223,14 +226,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 666
|
||||
Height = 365
|
||||
Width = 741
|
||||
Height = 320
|
||||
ExplicitWidth = 666
|
||||
ExplicitHeight = 365
|
||||
ExplicitHeight = 302
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 666
|
||||
ExplicitWidth = 624
|
||||
Width = 741
|
||||
ExplicitWidth = 741
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 548
|
||||
end
|
||||
@ -240,11 +243,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
object pagInicidencias: TTabSheet
|
||||
Caption = 'Incidencias'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 666
|
||||
ExplicitHeight = 374
|
||||
inline frViewIncidenciasCli: TfrViewIncidencias
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 666
|
||||
Height = 437
|
||||
Width = 741
|
||||
Height = 392
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -255,24 +260,24 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 666
|
||||
ExplicitHeight = 437
|
||||
ExplicitHeight = 374
|
||||
inherited pnlSup: TPanel
|
||||
Width = 666
|
||||
ExplicitWidth = 624
|
||||
Width = 741
|
||||
ExplicitWidth = 741
|
||||
inherited eIncidenciaActiva: TcxDBCheckBox
|
||||
ExplicitHeight = 21
|
||||
end
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 666
|
||||
Height = 409
|
||||
ExplicitWidth = 666
|
||||
ExplicitHeight = 409
|
||||
Width = 741
|
||||
Height = 364
|
||||
ExplicitWidth = 741
|
||||
ExplicitHeight = 393
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 643
|
||||
ExplicitHeight = 376
|
||||
Height = 376
|
||||
Width = 643
|
||||
ExplicitWidth = 718
|
||||
ExplicitHeight = 360
|
||||
Height = 331
|
||||
Width = 718
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -280,55 +285,456 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
object pagPortada: TTabSheet
|
||||
Caption = 'Portada'
|
||||
ImageIndex = 3
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object edtPortada: TcxDBRichEdit
|
||||
ExplicitWidth = 666
|
||||
ExplicitHeight = 374
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 145
|
||||
Height = 392
|
||||
Align = alLeft
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 421
|
||||
object Image2: TImage
|
||||
Left = 16
|
||||
Top = 16
|
||||
Width = 115
|
||||
Height = 170
|
||||
AutoSize = True
|
||||
Picture.Data = {
|
||||
0B544A76474946496D6167651C0900004749463839617300AA00C400008E8E8E
|
||||
CFD3CF8C8C8CFF0000BDD6C697A997ABB9AB8997897888786874688689865763
|
||||
574950493944393539355F5F5F8A8C8A898B89878B87868A86888B88B7CCB7DA
|
||||
EADADEEFE7FBFEFB0000000000000000000000000000000000000000002C0000
|
||||
00007300AA000005FFE0238C64699E68AAAE6CEBBEE90360746DDF78AEEF7CEF
|
||||
FF401D60162C1A8FC8646EA86C3A9F4E26744AADE2A4D6AC5689DD1A2FB48BC5
|
||||
1B25928104CB187309D002E973B12BBFA9DDB4CADA8227D8EB3C74806F703501
|
||||
6B62346A35177E834B668F6169783C6018049717979282646A9C95407B996B8F
|
||||
9E5E171518A649019B8EA7917516993B7C04B9048739B59C83A856AD3A1615C6
|
||||
C7C8C6C38CB675C154B515B13701C9D6C9C36A71CEB35B63CBAAD7E2C7BF62AB
|
||||
80CF55CBC5E3EDC39BC0DD80ECC9BB8770E2CBB2928AC8DBC4048E4DE38721DD
|
||||
168160E088C221465F27796702EAA121D11841230685496394ECD7C51E19AB6C
|
||||
AC51D198C78F3B42FF4E6974C31A4A202AA1BCB241CFD8C230B572CDFC18F3C9
|
||||
B06AC84E9644C61322A0A137C2E5BBD8D34A3D1BE178D5C85914653251BB3055
|
||||
B859F523364663C20D44D9B44A49536B803A245896CA591C125FDE683BA5E6CD
|
||||
B8726BD085A274A40DBC790B1A05E40F07BBC034F6FE68C3B5DF3186167BC03A
|
||||
9945B1E47F3A902D0BB8F6CDAECE532CFB149823F20E31F0CE887E12D4F0D6C0
|
||||
AB2F77260D1934BAC1753148D5A1D4A18593BFF7D5C19C4329E5E2718E57C6BD
|
||||
328844E57626DE96947A0750E850853F6AC6A39A6D7EB1D154974C99FBC34789
|
||||
182551357EFAC55ADF15D1C4BE25BC9134F4498E05CFDCCB34969CA481565664
|
||||
F597CA54BF99220DFF5A79D9D74400BB65720E620E22569F8116BE546186566C
|
||||
C821151E7E084588229651A288249E98448AC5BDE2E26F2EB621231EBC3416CF
|
||||
45066060C00539F2A8A38E3CAA42C88F055EE446056DC028648C48B202E13D5D
|
||||
A968618A09B66198298CEDC1871850BAF8061BC1A98661125A426881014F9A89
|
||||
871A88F0718F9569C6999F896754E9E22B5CDEB1C96FF0BCC2279B6C38790897
|
||||
DC1034E7872C32F224186C26740F8CC1F1B1C8185E9EF7889E6CE099259F8BCA
|
||||
C8A86E7CF047DD266090CA28A98AA4875AA0AB5A2AC94EEA95CA6918F06C02AB
|
||||
AB83C0896AA56EBAC198AC36CA9128549B18C0272B3252DA68A7A03035A69485
|
||||
5E945E526069A29EFFB38040F8AB998E429A66318CA509AAB637D631289BDCEA
|
||||
36E821BD6AABEDA6E9BA57E2A1F242DBE0B3F692316CBE20E1CBAF16FBFE2B84
|
||||
BF02571170C173118CF0880A2F4CA7C3B8425CAFC4D1523CB1C5FA368CF11C1A
|
||||
6F0C53C71EFB7030C4233B5CF2C20635C4E6CA2CB7ECF2CB30C72CF3CC31D397
|
||||
4EB021B3D2AF2539FB00DD335A4A0A69927B32A69B1871F0122ABB1F76164C7A
|
||||
AB2893861FECAAA1C7677A540306928446DDB4724F5FB2553102FAB1891EC5A4
|
||||
8D41D64D0A7DE4DA1FB66743D8F2E93CF4224A2BE286D2BE7EB3088772EB6554
|
||||
E03D139BD2E009B5A3F8E28C37EEF8E2B41E7E1ABD18132ED8E4855B0236E299
|
||||
633EB0E79D33B439FFE83A534E6BA9C85A8E92E5741B220D3EBA4843602F4BDB
|
||||
1A2AE0A3F3F6CB6F2519E0FB613ABCB9EEB416B2CE7916A68F2AB9EEA11797BB
|
||||
F3D44EF5051B9C6019A85CC693FE5982C6866989A48BC2F8E4ECAB3F2FFA5FF4
|
||||
AC6D80693C24780FBB6D50823320D9337F6D58A6FA8CAAACFB5FFF52FDD06B5E
|
||||
52CC37C0E26C21795A00E0F9A6720863F10F3B59A144A8D6E72624ED4D52A0BA
|
||||
839BD8648F1AED4D5BDBABDA1B2865B8CFD98F229B2840019261ACF6A96147C6
|
||||
3AC4D8140207D4ECC849C56A081CD0B4153F7DC600014952350695883BCC4E81
|
||||
05ACD6F6D0059D49C187524CE3459226D510D4A16A68994A88BA6C072818212B
|
||||
72260CA0001941C0FF128E118C90205D1206C0C636BAF18D708CA31CE748473A
|
||||
A2F10AC76BC200F2B547EA2D4F8C4A1880A90649C8421AF290884C24A9FA8844
|
||||
3306F2022A24640114A9C84952F2928C2C23199F20480454E00007300002CE84
|
||||
8050FA6E01A034400110A0C20310E000AC2C80010E508054AE7047974C6426FF
|
||||
B8403D5E2096A15C00016A09CC06B49296A13C40058889CC55264095B0CCA52E
|
||||
EF983035224190D2A46410B349C95D86B1978F648FA9F8D40870719390E43CA7
|
||||
37D378C247568095BE83E62DE37900DEC952952AFCA431F019CA02B0E302B454
|
||||
A5EF4CE9CF6E52736E797C642D17504B5082B2A10F5DDF2C59998002240096A0
|
||||
4CC0026659CB65EEFFA8000DA8A80A1180CA02644291EBC4A3358F20C89509C8
|
||||
02FE64591A9451CE5A1CA09C2FFD8D25B5C1A67AFAC2A07EFC66127DD988429E
|
||||
D454472DAA528D3A4E7226B5A8494D6A4AABD9CE353602013B2A060C55F8BBF5
|
||||
AD301304C02A24D1764F597A9447AA34C92CB35A01510ED3586D95E5220F2AB8
|
||||
951A4190B57CE6442D5A4B675A80A1B48424031000D05AFE7585B2BC68011670
|
||||
818A5614920B18A549159B00563294A1279D2A42ED5A04410604882F8429017C
|
||||
578000A0094D6055651B4C220D202ED3B4A38DAD848669B5AF8E16A640C4E505
|
||||
345BD7AA5EB368874C6721854B2A7212979BBC4D4C42AD6A0157A266A6A44200
|
||||
67B6A7329F9E366DFFA3AC8525CF39D7A0B21390565DE84091A9530420A0A2A0
|
||||
0C08614BE90056821298C90C2C77BBDBC84D3A4190CB34E999D617CA46047499
|
||||
6D6DAE2AD62AD17D7E92B45C9BEF6EE9AA5CCE06019B97D41428141CDCE326F7
|
||||
72BE65298FD296861D6DA59E60F524402B3BD2551E200122150368D5CA80775A
|
||||
F4C4154880031AEA580B50D49F176E9D2F69B95863A890C4A504E86055B14A7F
|
||||
0E53BAAB9C2591CDEB5E022480000DA84003D24B52596E94C9FE64C02473BCDC
|
||||
DF2200B6AAA8A749E130C9D14E52BB6D15686BEFA9CFDCFAB8111C9D24478D15
|
||||
C9D17AD5025C7630105A4AE13E6392C11806EF6F555862589256A48FC5EA682B
|
||||
7AE459D212C07E36A1559E337CD7304FD201B965684819806220A2D8A2327631
|
||||
8A09CB0048469ABE9A04F48379244BB946A3AD000DEB0A893CC99BD6D2581515
|
||||
6D82FD7C61087459C3A70E76212F2C81C1C48707754CB6B297CDECBAE9C0D7ED
|
||||
3BA3F478D90B6983C620DECB1CF184CA1B9A79FBDBE00E77CD7E70328495BB60
|
||||
E71658BAFFB56E7EB53B5FEFB617004400837ADBFBDE2788C00414C0EF7EFBFB
|
||||
DF0AA000BE47F0801000003B}
|
||||
end
|
||||
end
|
||||
inline frViewRichEditor1: TfrViewRichEditor
|
||||
Left = 145
|
||||
Top = 0
|
||||
Width = 596
|
||||
Height = 392
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 145
|
||||
ExplicitWidth = 521
|
||||
ExplicitHeight = 374
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 596
|
||||
ExplicitWidth = 596
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 517
|
||||
inherited TBXColorItem1: TTBXColorItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited RichEdit: TcxDBRichEdit
|
||||
DataBinding.DataField = 'PORTADA'
|
||||
DataBinding.DataSource = dsDataTable
|
||||
TabOrder = 0
|
||||
Height = 437
|
||||
Width = 666
|
||||
ExplicitWidth = 596
|
||||
ExplicitHeight = 395
|
||||
Height = 366
|
||||
Width = 596
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagMemoria: TTabSheet
|
||||
Caption = 'Memoria'
|
||||
ImageIndex = 4
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
object cxDBMemo1: TcxDBMemo
|
||||
ExplicitWidth = 666
|
||||
ExplicitHeight = 374
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 145
|
||||
Height = 392
|
||||
Align = alLeft
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 374
|
||||
object Image3: TImage
|
||||
Left = 16
|
||||
Top = 16
|
||||
Width = 115
|
||||
Height = 170
|
||||
AutoSize = True
|
||||
Picture.Data = {
|
||||
0B544A76474946496D616765821E00004749463839617300AA00F70000DEE6DE
|
||||
E0E8E09C9C9CCDD5CDDAE2DAB1B1B1E4ECE4CDCDCDECF1ECE2EAE2D2DDC79FBB
|
||||
9FD2D3D2EAF2EAC4CBC4F2F5F2DCE4DCF7FCF7E5EEE5606160ADADADD4D9D4C4
|
||||
D5C4D0D8D0939593D8E0D8A4AAA4CCD2CCD1D5D1E6EFE6D6DED6E2EDE2C2D0B3
|
||||
E9EEE9C1C1C1BDBDBDE4EAE4D0D0D0CAD1CAD8E1CEB2C5A1DCE2DC979B97D3DA
|
||||
D3E8F0E8B5B5B5ABC4ABD6E2D6F8FAF8CACACAFBFEFBC6C6C6D4DCD4F0FAF0EC
|
||||
F4ECA5BB90BCC3BC868986C8C8C8EAF0EAA6A6A6D4D6D4B0C39EC4C4C4ACB2AC
|
||||
E1E6E18A8E8AB8B8B8DBE0DBDFE4DFE9F4E9D1D3D1F5F8F5D0DED0888A88D8DE
|
||||
D8E0EAE0DBE4D3DFE0DFA0A5A0EBF6EBE3E7E3DEE7DAF4F7F4DCE0DCCCDBCCC5
|
||||
D3B8F6F9F6B5CBB5A3A3A3E0E5E0E6ECE6E1E9E1797D79D7E3D7A8AEA8EEF3EE
|
||||
E5E7E5D7DCD7B9CAA9E1E2E1D2D7D2CBD8BFC9D6BCB7C9A78E8E8EF2FFF2F1FF
|
||||
F18C8C8CEEF7EEFCFCFCFDFDFDFBFBFBFAFAFAFEFFFEF9F9F9F5F5F5F8F8F8EF
|
||||
F7EFF6F6F6F3F3F3F7F7F7EFEFEFEEF8EEF1F1F1E5E5E5FDFEFDE3E3E3EEEEEE
|
||||
F2F2F2EBEBEBF4F4F4E9E9E9F0F0F0E2E2E2DBDBDBE7E7E7E4E4E4EDEDEDEAEA
|
||||
EAE6E6E6DDDDDDECECECE1E1E1E8E8E8F0F8F0DEDEDEE0E0E0D4D4D4F0FCF0F1
|
||||
FDF1DADADAF0FDF0DFDFDFF2FBF2F4FAF4ECEBECDCDCDCEFFBEFF2F9F2D7D7D7
|
||||
F1F9F1D8D8D8FCFEFCFAFDFAF6FBF6F5FBF5D9D9D9F1FEF1D6D7D6F8FCF8EDF8
|
||||
EDF9FDF9F2FEF2F3FAF3F7FBF7EEFAEEFBFDFBEAF3EAEBF4EBF3F9F3F1F8F1EC
|
||||
F7ECEBF5EBE9F2E9F9FCF9E8F2E8E6F0E6E7F1E7EDF9EDD5D5D5EFFAEFFCFDFC
|
||||
D6D6D6F5FAF5EEF9EEEAF5EAE7F0E7F0F9F0E8F3E8EDF6EDECF8ECFAFCFAECF6
|
||||
ECEFFCEFF8FDF8EAF4EADBE3DBF4FBF4FBFCFBDFE7DFEDF7EDF1FCF1F2FAF2EF
|
||||
F9EFDDDEDDE4E5E4CEDAC2E9EAE9F6FAF6E7F2E7F2FDF2FDFFFDD8D9D8E3E4E3
|
||||
8D928DB1B3B1F4F5F4F5F4F5C8CFC8F2F3F2F0F4F0BFD2BFB1B8B1F0F1F0E2E3
|
||||
E2F7FAF8EAECEAE8E9E8E6E7E6EDEEED838683D1D9D1E8EEE8D5DDD5BBCFBBEE
|
||||
FBEEBFCFB2AAAAAADFE3DFF3FBF3F3F6F3FEFEFEEFF8EFFF0000FFFFFF2C0000
|
||||
00007300AA000008FF0027B01948B0A0C18308132A5CC8B0A1C3870927A4F947
|
||||
B1A2C58B18336ADCC8B1A3C78F2035A69918B2A4C9932853661CA9915F2E2453
|
||||
A6F0B378274F9D3973EAD0B1C90F8E9B372A4BBA7192AAA8D1A348932A5DFA6D
|
||||
D045961891EC98F7601F821DE72A3A8244E80E224384202DE2A7884FA099413D
|
||||
D229630413264B6EE1BE8D2BB76E5CB773F3D6B5E42903368B502DEE9B87C400
|
||||
3A2C1642EC4040710E9E42780229AA2399CFA0418EF2A4F5D803D51A356B3E83
|
||||
E65B0953255895520FAB64A95725359E2A7942C52CF6306B9652F3C5E4698D3C
|
||||
381503578C0623890B0B168EBF414231CF1D3A6F0205CA4387CE1D3C7CDC6CF6
|
||||
282F3468D16B8C10FF10F3C10000004B123C83E00C420654093248B8C5C54006
|
||||
6901022C799680C0870E6B30734870245D8480175854C18F1B6EA0F5CF1C79FC
|
||||
54C78470C411471E11F2A3E186FF70B89D3C6A8016A277B648B00B14BA24B0CA
|
||||
07C57041CC325C1C838901BAEC328C2C461C634932B2F062C48F46F0A2062603
|
||||
52245C45485CB140005BA0530F0C15E581131E71D491071F70BC31481C6E4486
|
||||
C71D730C42591D786CF74F779F7927E29ADEA9B9C631B874B08B2C0068210131
|
||||
1DE82201149518E04907A01149A046FB2C8000005500E32085D439F7251C135E
|
||||
78474D6E8449251D66A2F9DD889C6EEA2617120010807A19A46000171D182001
|
||||
33104800412F6B08FF6A64811581F10F302E6CB1C30B149D03CC3F79C4810783
|
||||
77D471C720C50E02C74E6E5C3887991681C8669A9FCDC61A2AA8CCE6C96C9674
|
||||
63092AB2A566CD2FA8FC62095FDDA0326491FF1CF9CF14FBFCE385056F78110D
|
||||
3008FC0A07753F15AB93855B4E1A071C60425B91A66E8688CA2EBCEC22C12F25
|
||||
CA72CB07BAF0520C2FC9AC620431B7C8224B321D48204B071D58122BBBEEE672
|
||||
0E0C7EBC10801FC0EC632BB003BF01661C81D0E1061D37DDA1A1C117210C9EC2
|
||||
9530630F6ABCC5068B27C9C0C2CC30B9A5E6492BDB9ABBADC9B2B64B6B455320
|
||||
8084324982C11845C242B7D31CC77699AC834053242D78D4760AF7A66AF4E20C
|
||||
2EDC3823712F124CFF03C52DB7F4B2EEA019C1C0CEA9F05AB4614F6FBCA16196
|
||||
3E35CE8FE39303FDF68871B38939DD9E2CF32214BC2CE3092EB0AC720B31B00C
|
||||
3E2B471E5614C8757AE0314720783C163B1D7AF0C1C7B1AF5BDEE6D0D3D20DF7
|
||||
34B6FCBDCA30B610F3B72DC72CF3CBC9849744B9E48D579F65F58E3B6EB9DC99
|
||||
03FF7B88B354BC8B2D9EE0C98B2C293A638BEA5A5BE40B25F0C72FFFFCF4D76F
|
||||
3F25DAA575396BAD284C748896E89F35FA1722354CA312ADB0C4305AC1C06178
|
||||
822F0C649F701647C10A5AF08218DC4C19BC83895DAC82179ED8450270A18B8A
|
||||
C9A21706E8C02F02601E26F0E73CD2480100B8C0055E188005A24A4002D6E009
|
||||
946D2D0E9C08A210FF8748C4221AB188803013254664895F5462159858852D96
|
||||
B68A5E30E389ABF004C66E0105092C8317B6E8D82DF406B86570D116AB504319
|
||||
F2D73ED71D21050420400AE0384739C2D18E78AC631DF348C71464007F9BB9C3
|
||||
063AA089421AF290884CA42217698C0AAC0330B4E280E63CE5BDEE716F5335F8
|
||||
C676DC2089233080019E04652847F9C95082B294A814652A7B408EA7D0AA023C
|
||||
EC00FA48808B5540A103683400C348D0014F042F61D3AA40DB86B911E154400D
|
||||
C9D0A134A44100092400541D1055312490424BFE5234C224A63621699163628B
|
||||
2FD370E20353B307A835D133C2BBA49AB2B9CD6D1AF333B961A03C19882D0656
|
||||
A25CDB8A4D25C805FF4CB8B1B39DC43426686C71A20F10037D1238460778D18B
|
||||
1EA11002D200C031B8F08C345E3344FF0468DB04BA86D454A217C980022C6C31
|
||||
8C55AC42367C59853358B08555C08217D350273635AACD77AA0116A8C1296B24
|
||||
80CB63F054630630002F704149E1512BA33485D63BD710D25D1443A8B0508F34
|
||||
B8A10500E8491A44606668B6CAD5AE8606A949DD0E47CFE5096A50E35BD4A841
|
||||
6C3C610DD93C30ADDEDBDC3AC3BAD1577EC616BCE0852E8861005804A917BB38
|
||||
463A8B3AC9AFD21568C6B4841A52A3314FC84236BC99C52C06FBBD49AA41164E
|
||||
38ACC18433070E6CE0B3A00DAD68474B5AD25E836D9A4D8BBB52CBDA93ACB6B5
|
||||
B0FDC86B634B5B91FF6CADB6B85DC96D73CBDBD561C41FC00DAE70874BDCE21A
|
||||
F7B8C84DAE72977B5C8CACD61F14E1D0E23A5411D462E467D48DAE83AC7B11EE
|
||||
5E37BB8A0B0A745D9991F1766212238084284A3082479C62048E98011C18C087
|
||||
12F0036D7198541D06F1BA42CC010E5F82D0630AC1B3C9C0212737A9501DB234
|
||||
999C70E90D7A98D44E60978742C0C111C822D322ACE386053F2B24E3E5E66F29
|
||||
C208465060129DF0050F1621890224A2058A388021860088AFF061128798C425
|
||||
1E010A5F64621093C84420503C0944640214C1304421FAD08844FC41107D48C4
|
||||
230A7189433C22118458C49019D1883FFC21C79710C5250AC188415CB9CB97E8
|
||||
83200CD108449424FFC4D1B3C8783148E73E14E0CE78CEB39EF7CCE73EFBF9CE
|
||||
83A03376410267DF5EA4D02019F445805211467BC4BB1B51F47610FD5C8AF041
|
||||
0F83E00324F080E9400C623252CA0320F4C0083D4CA7108AC0031D1441084014
|
||||
820F74280464F800884CF357117A18F520E8100742142277778803AEF150162C
|
||||
717A1080B0892376470738B8BA1081885D1D4E42E9DD8E97108FE803930FC188
|
||||
3F8005118270041C08D107423819128280042020C108AE983B1382D0C3220C71
|
||||
09733F82109930C424B44D883F00421284D0C324BAF2874CF4E11108E7C39517
|
||||
D1874538C2DF8A484420FA60883F2022DB8C80B446AA5DDEF066841F71E08866
|
||||
CCB45DED7A1CBC51FF020EB59D6BEDDEA696E32376F961617E6899CF9CE51DB7
|
||||
7958692E678AA83A0E93D350F53434B00635EE1F0D0A3A3F7CB6F40A4AEEBE4A
|
||||
AF125022B46090E7E16714A49CCFDE7075A04CCF7152D77845783E768A0C4214
|
||||
92B844230E710A4628E2108D78049B3BE1884C48C2BDA7F0F1214051023D1CDC
|
||||
11A09004BDF3DD0847D43D116ADFFB244E510724EBE1125F3944261AF1864474
|
||||
821292100524324188BE23A204A2F8B22FE82D8A465C22C8A020C447C84E91F1
|
||||
BEA1427328BA4F642F7B38544810033BF01CDC607B45708952161A56202A64A1
|
||||
E2DF77F7737843EEAD64FBFF6A7A60C93F30EC0766A1FFFE7760ABC779CC754E
|
||||
53D6FFC3F50C2258FFB3DF50870569C80D816010EFF9016B30F1830EFF65D082
|
||||
DEE00629D19FF7AF577FE3F870FF37C43EF971001D3EC17BE1871375807F0DA2
|
||||
7F70C00F81B06007887F1BA77D35F70F7AC00092D009A2000A8D60777FD0085A
|
||||
76088740098F200987E0159D500892A0083D667A99700755760A97D00980D009
|
||||
24780A69C76486B0088D500887700986D00797700A8BF0070C508189100CA000
|
||||
0A7D100C9770090C700AA030828EE0838840837AE00B9DD008A7B081A0500811
|
||||
485E31777FBC677BF4477F3A337C0C528669D82003786079907EFAA77E0AD838
|
||||
3F9186FDB77EE1B7867958870BA27E0B388072E86813286283D868D9F30F82C8
|
||||
7D69E17DE3450790FF806B89D0707DE008E556268AB88812D873FF8007D8D607
|
||||
935071FAF6088BB0086C748928C188A60850A8988ADBB48AAC484CAEF88A6D13
|
||||
8BDAA57183365D64738BADC33A92A68A995876FFD00999100382700AA2100399
|
||||
700931E00825F00F8DC00025A08307000925D008345865815002A0C0004E3603
|
||||
80700062168383700878500207C000811003A2F0083B66088790088C4057ABF8
|
||||
078990059D000A0720008870083CF00714900833400114D008253003A0500023
|
||||
A0033FF0033340073A500222C00088100307C003A030030C9907220007053004
|
||||
F0350323100318A903EB1503F2F88BAD47118DC325BC1707F4C725F157218068
|
||||
7B75C886CDF27AF4FF4793F2F7870F46800B887F89E88B603881BD9868DFA512
|
||||
6C2376D0B28AC83607BC06213A91134B8707792008D6012115126139A10711F2
|
||||
188E21257560217AE094569207CA1296B16725846019D3E60871107B0213086F
|
||||
591DF0F7967300080473070DF87E6199251CB18A7A7008E7657A7DC000A5D709
|
||||
70000A7A708159980999C007832909806008A7B098BEC08E87F007A080088B40
|
||||
8377678C93F007A2B0085C368293608D8F900788B0856AD7099080085E060A3D
|
||||
28097CD00799D0839DA0768F197782D0087AF09728F97DD545398B1669A8855D
|
||||
82189416A1252AD96821D721DCA57CCDB911CA598886A689E7373949B7219473
|
||||
7EAFD713D029740BFFD8138FF31382365D4F677E146474DD295D20B738DB898B
|
||||
9A48889AF870DE168989509B178708885008AED608B699088640077F50647FC0
|
||||
08864089997925DC069B35466E78C008E4F607ECD60777200825C608892016B9
|
||||
D30707AA6D88C06E4A666EEDC60F84400892108970F0087EB7A11AFA077C805A
|
||||
4C59088ED06A7AF06A8C100880B0A374403B8B906E84E00875E0083BCA078A20
|
||||
088010167C40259726083973695C190890000998366A61826A80106F99460780
|
||||
A0088510A43B9A6B833089F29669A6060867010877F06BD211088BA0082A078C
|
||||
F429A7D7A594695194268116787A94F31967C07807E3494157C70FE5B7387D79
|
||||
9E42C7741EB22185FF4AA8BB878B19549E174468C1395E9E6808FF9607535A70
|
||||
93C0071D4807882009A27A0888609B1407081AFA088C300993706586908CD8D6
|
||||
0893000975206F9DE06D93E0088B300917A86D8FA0088AF0070E07A058260951
|
||||
866A8F9009BC2A7817C7A5A479071EC194D371077C1007C84260BC0619CB026D
|
||||
D0066BAA762974300879801D5639087AA007E14A3B3D83083D5A3BC66216C782
|
||||
3B68036B9B560780E018BBF6967CD0ADB4731D36E1181F069C43D9A7D465A7B2
|
||||
D811AB08217980AE80007407AB12AB6808A2D00930780A99508A0FFB66959AB1
|
||||
40438BAF2807201BB2220BB21A3BB0746A8A72E007A3200311500A9BF0B2B460
|
||||
0A2F6B0A11C00A06FF2B9C269B928A28071A2203AA1001D5600776D006445BB4
|
||||
46DB0676B009369B7D398BB33697B2AC1001AE100942DB067BB007FD90B55ABB
|
||||
B5FDB0076DD00FAAA094AB480850E6888290088B00097D800790F00F82106E7D
|
||||
A0339080136B59668810A18970B683F083A00A084BBA8974A0A18AF0087C3021
|
||||
88A0086576A46180004B601F4175B55C1BB95CDB0691A00A7280B01BFB0F3F98
|
||||
052418032AD099592008148007943003EC25026F30903140018640010C300407
|
||||
80073170081860BA2320020570008230046F70BB7870007FD0023360083A5000
|
||||
C12000DA30025FF00419A0010E80012B8003923BBD5BDB06A1300A98DBB4E335
|
||||
087860083A0A0889FF300885F0077AF008D8816B5CEA0693F0B690F0704E8607
|
||||
493A087F106D5C8A086E2A087050086FDA158010AE8280088E602ACC741F2B60
|
||||
002B90001D40BD0ADC0F7610011AE7B1A9C50F7EF00AA130B45FBBC018BCB576
|
||||
F0090F9CB973C007D079604107601A8207DA632142179E33D19E41A77542777E
|
||||
D1F000AE40B41EF3B5BC800CC5D00612800CFD50B45A4BB4597BC13ADCC335DC
|
||||
0F0D300E92039D04DB461368088B5965A040098E60798A8063A0700A7B370763
|
||||
26091BB87689000A89E0068690827FF00894700A88200A856008ABAA08929009
|
||||
A2700D62E00003E00117200F17300010600226F00C34300019300003B001B270
|
||||
0126B0022B000007FF3C001770C7805C0E2B90C70460006A7B0882F007C68A29
|
||||
3A3BA73AEB7F398160CDC2256FF9AFE5F75F6E8933D4875FB95725C817CA0038
|
||||
075360030D800BB220591E230B36800B0D6003B3800BB3E0310D800C00E0CBB5
|
||||
2C31C5200DBF2C590D70CBB260073000290C62218E06C18A76B32121C1A5D0C3
|
||||
19BCCD0ACCC102CBC9387B0737FA6A347A078EE094397A168E701D8570198A00
|
||||
08E7EB5FB33329B486AE7C90071746950F4002D2204B09404D12C005FF6C0023
|
||||
032AB3F00C06300B0630C9CF104D3AFC543A6400C5201F290401BC200DE7D0C1
|
||||
DA4B11A4160CDE067753BC6688109A7C406E8B8070BDE98EDC36096C9BA598CC
|
||||
AA3FAA08812009EFFF10058A0CC8CC440F1B9001047001CF201F1910D4D26002
|
||||
06F0D317B00282BC0201200FEE71D419400319B002F23000E50000414006D90B
|
||||
CE88C611A5C85D58A711721001D5ABB53BFCC341ACC0C870C13D8C0B921B09A4
|
||||
10AD994B9E2D8C88953313DB65D76CC368DCE507628DB592FBB56A2DB97630B9
|
||||
DAACB583ADCD76F00A779D735A4D1185C09991486E889B0789A00782A03B8200
|
||||
AC7D20D3642B0879E0A54E3C088BE09F6E90D982E00E3B202AB8800B09302AE7
|
||||
0101140500100000D250435C304300A02A1ED001CFE02A10150019D00114250D
|
||||
1EF00C0130C90FA00E5FEA6BC7B67D7EAAB36E6A085056C6AD7A6334AA6E88C0
|
||||
081727DD7F40088CFF10B889E081962D167320A089900FF6F10CCF0000F4400F
|
||||
EC4D001900011E4000F4B002F07D0BF2ED1E0170DB450DDFCF104344A02B5A50
|
||||
015AA00554E004D8400769EB64F6EB088AE0DCD779B21FA1947A4A116E900B91
|
||||
F0C3B7C0C3DCECC3A1E00A11400A32E0071B02B27020B225DBD816BE38B18788
|
||||
4E0114EF973DE8F920D49A256FF90F72A00CB510D8197CB5401C0AA5C00AC040
|
||||
E2B398B953080A97100C6E4C0943D807A1C7078210780C000A5F160C793BC668
|
||||
979B93200AA2A00832B0E3DC1CC4941B09A6400A247EB9B098B990C23307682C
|
||||
FEA77BB283211862802E8936A48C213CB3093CBEC05E6B07A630E4D60CB1994B
|
||||
4CFC100187BDCD48FFFB09618BE61A05C1662207B110097B2EB97D4E0B361BE8
|
||||
9BE1E8DBE107339CC15F1B0A11E0072F37E840C30FA570E8D40BC4A540E4A3BE
|
||||
D188983FDCA911DD69E1D7F50A5D9BD6918BEB485B0BB9B08B18C1465D8D7D16
|
||||
AE9C95831129EB0FAC1EE13ABB845BC1078E00AA8370A20ED76A7880A17CB008
|
||||
E60A6EFD9BB661110501200DF1DD0FEA510CB24D03060001101002F0F0078AC0
|
||||
15E7EAD9D37D0A89F079161708D3C86AB67900B9FA648FD00886503BCF4EA4FC
|
||||
F9A38EC00FA4F00AA5600AAEE00F9F200C367BB995F60FC9E608A8C60864266F
|
||||
AFB9667D90A493A09A492AA57ECB0886F707EBED011E60EE0100001210511E90
|
||||
0044E004593A098BFFC099E966BFAFFA07C100098F200AEEB808944008EDAEA1
|
||||
B22A9A87F0AA7217088850957C600888800DEB1005A1C0C045EB0F406C0A3311
|
||||
F11FE192137EEA635DBDA1400A982E3DD5E507ACB009190EC45BEB0F411C09D8
|
||||
1BF1ED19A81504F7EED921A490D693DEC36ECDB3189474404767B6B721D00174
|
||||
7DDFB36060035F3B0B92ABF6599BD84CAC89AC9608851003675C8D9770073170
|
||||
0AE7B58D93000AB9D9097480078320088F9D02ED6D001E304310B0025C400FCF
|
||||
400451B0086B1A052140054510045A000EF1E6768CF0038D00BEBE20021B187A
|
||||
A28008BEC0E5A439038E89C505070E1C400338E00004500E783C00BC90F63FFC
|
||||
0A8D0F8C5C3A6AC1FFE0A14516B794B0D9E0DBDD795B62171A6B7A4008B70D01
|
||||
2C900029D4DACE4402DA406BED800001D000CF1454195004EA00108AF82C9AC4
|
||||
480FA147A7FE2842B4E811A43E841205D2F3E78F4347DA9C2420106045066919
|
||||
00702190A0DFC97EFE50F653F52F4D9A7F3165FEF337F31FBF373671DAD4C92F
|
||||
263F552B85B6F9344A0E3F52B5DAEC19DAA6962A9F3CA54A95E3479552A15951
|
||||
FADBB3A74D283F2E61F2AC39D5EC593FB4DA68FD1A4BCEBF58A1D66AEDB79655
|
||||
D4B353FD98B233376BD73681DBD8F167C74E24A862A596CDDB38A61C6576B432
|
||||
55F596DF36C9744F120DEB5867AEBA6C07F7AB456B53A966FE22348B15F5E562
|
||||
CF8EF9BD9A6CA754FFD45891986A3E6927D7DBD8379545F27BD26B9B489B7291
|
||||
F2C3CF393F7FCE812B261B3C2F3F5A9957B6D9D4F95F50DE28F798C2EBD9CFA7
|
||||
E2750F9B6A0DDBE6EBEAD6CD8EAAB51BA59D4F32666ED2CEBB0DADF2F23A6A9B
|
||||
E2BC8AA41419F899CE26C664828F41F9CCA26DA848DC9AC995F0C4033036A084
|
||||
F2EA935C028C6FA607676A304299E428A5BFBA220890BF0CFBB16343CF46210E
|
||||
A5C13631AAB113A98310459D4CB1AFAE4FBC9389AF186714D12CF036B34398E6
|
||||
9E3BABC71265EA11453F3014CF8E08168CC994184FDA6449AA84F1EB493F72D9
|
||||
64135364F0D2449EAA8CE9CA086DDCAE3BA93609B39F311D9363945098F20ACA
|
||||
08EA0AACA837E78CFF73AC1F81948914EDF640542A2D335452B615FBF1AA3B52
|
||||
42DB6C9344695AD43D47632AF4BE6DC8443243498D348B9F5A24FB6F147EC014
|
||||
AAC2A9A86414CE52FF91E354944831AB993D43D1AF313F02DDA316A3F8D15328
|
||||
3B5A22D5C15DADECD5D74D769394CC7F3A0D3312611B6305A5CA6E7A76A56813
|
||||
D5755A20E5F864256542ED76CF7E72698C9F526474A5337E5C61718F2ED9F591
|
||||
D752DDDD8CC6A9720BB38D72D1AA662D69CDD5AA1475471DD151834F8A20AF2C
|
||||
87E4ADCFB3F88186B451647296C57EA05972DD8B81F42694932229F92C1551A6
|
||||
0B2C8EF569E315BCF0D50AE79607B6B6D7973555B9B1096394594068704DB149
|
||||
A18011584E9AFCB1FFFA6AACB3D67A6BAEBBF6FA6BB0C3E6DAE26B7992434B65
|
||||
6483394961E4F5D51461021C05BDAC4CF18CEAB2E5D0339499AF73C563BA5AA5
|
||||
B91456BCF419DA221DC3FB5A39A0B9B4313972B199AE70A792E315A979EA74C8
|
||||
3D7C733BA6C57B9503CCBB3C8B45D330793E8B15577FA27B3B57B8A5B66CAA4A
|
||||
59DABC8763FCAAF5999CA36A5C0FFB21E5F3D00B56E5763F0B059CAE80E53B2F
|
||||
3D3E6517DA51DF7FE267947D834B167AADF0E3B7FA9B681E97F37A652F3EB626
|
||||
4E00E10614501803847BD0F0211B1F3C9BCD8EE53DB4A374054E18E3867BDC00
|
||||
0456F0011AC660053304A92F2BD983B1E4753ECF48E1046700810F4E70023364
|
||||
C30A2750C0186243FF9FC90D2576FFE81F08E8D7040564C3841354004FFC00A3
|
||||
EDD0A26F64A3DD4CE4F039AAAC2A3C7B00178AFEF43A1CD18277D3AB219064A0
|
||||
1BDDE12942FC88051051678AE6D0B088D4D3216F3AD7BC0891E24638E28E8820
|
||||
3845C8B10289AC4A1C8A90E28AC088A71FC2481089AA054633662A75D2A3991F
|
||||
68B314E37C25027E00CE17E1C831276A06399533E32B42B140279982143EF1E3
|
||||
1FCD220731722F2B6DC81EF546510AA5CC25309188C0281AE9C8A9E00B7FAC8A
|
||||
161D1D23834D44C2505EB14328D8F046505AA72A68D45D2D4224BAEB91E215D5
|
||||
E84B609400CB5806470EC008E46490533AC6F1C30FA460052954F1CA60968A1F
|
||||
A0B18F3162668C48FF182314C668032F3E110B9399524037E4C727A73284028C
|
||||
E00092D0410C78400149FCC317824004F584B14013A84005E9D08000C2F1040C
|
||||
7CE10B40C001070A2000431460080260280F664081188C40051132A7540E5100
|
||||
0A9420064A98810E04808F42B4600605B884A3FC90AF3638400542D0800A9E90
|
||||
03210801084F8887061C00D0446060083C10C42918AA84110C211C1405A675E2
|
||||
C0074838020F8A28441D0CD1073AE8210F845884345F21196C66139BA108C500
|
||||
8A0080010CC004E2B80603245102DA55349A52F119F4243081814EE0095D8847
|
||||
17C491862CC0A16C6A5D2B4FF851A8F434A0010648802C0C908172B0A00CE6A8
|
||||
E75E8BDA57EBF0A367195BB4225194C1C76BF115B23691C364F1181EE4EC519C
|
||||
67D1EC667BD70CB948723B078AA2A34A6B5A93C5C214C4C91F8EECB089458E56
|
||||
8AB0A55E2EB09221E4B047B7249A001B8C7B5CE42657B9CB656E739DFBDCE52A
|
||||
2107D3A56E75AD3B5D2540B7B9130808003B}
|
||||
end
|
||||
end
|
||||
inline frViewRichEditor2: TfrViewRichEditor
|
||||
Left = 145
|
||||
Top = 0
|
||||
Width = 596
|
||||
Height = 392
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 145
|
||||
ExplicitWidth = 521
|
||||
ExplicitHeight = 374
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 596
|
||||
ExplicitWidth = 521
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
ExplicitWidth = 517
|
||||
inherited TBXColorItem1: TTBXColorItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited RichEdit: TcxDBRichEdit
|
||||
DataBinding.DataField = 'MEMORIA'
|
||||
DataBinding.DataSource = dsDataTable
|
||||
TabOrder = 0
|
||||
Height = 437
|
||||
Width = 666
|
||||
ExplicitWidth = 521
|
||||
ExplicitHeight = 348
|
||||
Height = 366
|
||||
Width = 596
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 612
|
||||
Width = 674
|
||||
Top = 596
|
||||
Width = 749
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 612
|
||||
ExplicitTop = 549
|
||||
ExplicitWidth = 674
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotales [4]
|
||||
Left = 0
|
||||
Top = 541
|
||||
Width = 674
|
||||
Height = 71
|
||||
Top = 496
|
||||
Width = 749
|
||||
Height = 100
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -338,11 +744,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 541
|
||||
ExplicitWidth = 674
|
||||
ExplicitHeight = 71
|
||||
ExplicitTop = 496
|
||||
ExplicitWidth = 749
|
||||
ExplicitHeight = 100
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 674
|
||||
Width = 749
|
||||
Height = 171
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 674
|
||||
@ -356,20 +762,20 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ExplicitWidth = 73
|
||||
end
|
||||
inherited Bevel3: TBevel
|
||||
Left = 333
|
||||
Left = 368
|
||||
Top = 11
|
||||
Width = 8
|
||||
Height = 54
|
||||
ExplicitLeft = 333
|
||||
ExplicitLeft = 368
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 8
|
||||
ExplicitHeight = 54
|
||||
end
|
||||
inherited Bevel4: TBevel
|
||||
Left = 450
|
||||
Left = 485
|
||||
Top = 92
|
||||
Width = 21
|
||||
ExplicitLeft = 450
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 92
|
||||
ExplicitWidth = 21
|
||||
end
|
||||
@ -383,19 +789,19 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Width = 93
|
||||
end
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 521
|
||||
Left = 556
|
||||
Top = 38
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 521
|
||||
ExplicitLeft = 556
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 451
|
||||
Left = 486
|
||||
Top = 112
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 451
|
||||
ExplicitLeft = 486
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
@ -408,37 +814,37 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
ExplicitTop = 112
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 450
|
||||
Left = 485
|
||||
Top = 38
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 450
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 38
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 450
|
||||
Left = 485
|
||||
Top = 11
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 450
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
inherited edtRE: TcxDBSpinEdit
|
||||
Left = 450
|
||||
Left = 485
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 450
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 65
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 521
|
||||
Left = 556
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 521
|
||||
ExplicitLeft = 556
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
@ -473,9 +879,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Width = 81
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 185
|
||||
Left = 220
|
||||
Top = 38
|
||||
ExplicitLeft = 185
|
||||
ExplicitLeft = 220
|
||||
ExplicitTop = 38
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
@ -501,9 +907,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited dxLayoutControl1Item10: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Group7: TdxLayoutGroup
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group3: TdxLayoutGroup
|
||||
@ -528,8 +931,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited EditorActionList: TActionList [5]
|
||||
end
|
||||
inherited SmallImages: TPngImageList [6]
|
||||
Top = 72
|
||||
end
|
||||
inherited LargeImages: TPngImageList [7]
|
||||
Left = 435
|
||||
Top = 72
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage [8]
|
||||
end
|
||||
|
||||
@ -16,7 +16,7 @@ uses
|
||||
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
|
||||
uIEditorPresupuestoCliente, uBizPresupuestosCliente, uViewPresupuestoCliente,
|
||||
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesPresupuestoCliente,
|
||||
uDAInterfaces, cxRichEdit, cxDBRichEdit;
|
||||
uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor;
|
||||
|
||||
type
|
||||
TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
|
||||
@ -29,8 +29,12 @@ type
|
||||
frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente;
|
||||
pagPortada: TTabSheet;
|
||||
pagMemoria: TTabSheet;
|
||||
cxDBMemo1: TcxDBMemo;
|
||||
edtPortada: TcxDBRichEdit;
|
||||
Panel1: TPanel;
|
||||
Image2: TImage;
|
||||
Panel2: TPanel;
|
||||
Image3: TImage;
|
||||
frViewRichEditor1: TfrViewRichEditor;
|
||||
frViewRichEditor2: TfrViewRichEditor;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||
@ -201,12 +205,9 @@ end;
|
||||
|
||||
procedure TfEditorPresupuestoCliente.ImprimirInterno;
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{
|
||||
inherited;
|
||||
if not Modified then
|
||||
FController.Print(FPresupuesto);
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
|
||||
@ -220,13 +221,14 @@ begin
|
||||
|
||||
AClientesController := TClientesController.Create;
|
||||
try
|
||||
{ // Esto podría ser configurable en el programa
|
||||
if not AClientesController.TieneDatosBancarios(FPresupuesto.Cliente) then
|
||||
MessageBox(0, 'Este cliente no tiene datos bancarios en su ficha', 'Atenci鏮', MB_ICONWARNING or MB_OK);
|
||||
MessageBox(0, 'Este cliente no tiene datos bancarios en su ficha', 'Atención', MB_ICONWARNING or MB_OK);}
|
||||
|
||||
case FPresupuesto.Cliente.Direcciones.RecordCount of
|
||||
0 : begin
|
||||
FController.QuitarDireccionEnvio(FPresupuesto);
|
||||
MessageBox(0, '，tenci鏮! Este cliente no tiene ' + #10#13 + 'ninguna direcci鏮 de env甐 en su ficha', 'Atenci鏮', MB_ICONWARNING or MB_OK);
|
||||
MessageBox(0, '¡Atención! Este cliente no tiene ' + #10#13 + 'ninguna dirección en su ficha', 'Atención', MB_ICONWARNING or MB_OK);
|
||||
FPresupuesto.Edit;
|
||||
FPresupuesto.IMPORTE_PORTE := 0;
|
||||
end;
|
||||
@ -290,12 +292,9 @@ end;
|
||||
|
||||
procedure TfEditorPresupuestoCliente.PrevisualizarInterno;
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{
|
||||
inherited;
|
||||
if not Modified then
|
||||
FController.Preview(FPresupuesto);
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorPresupuestoCliente.RecalcularPortePorUnidad;
|
||||
|
||||
@ -192,8 +192,6 @@ procedure TfEditorPresupuestosCliente.DuplicarInterno;
|
||||
var
|
||||
APresupuesto : IBizPresupuestoCliente;
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{
|
||||
inherited;
|
||||
APresupuesto := FController.Duplicar(Presupuestos);
|
||||
try
|
||||
@ -201,7 +199,6 @@ AppFactuGES.ShowCapado;
|
||||
finally
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorPresupuestosCliente.EliminarInterno;
|
||||
@ -283,8 +280,6 @@ var
|
||||
APresupuestos: IBizPresupuestoCliente;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{
|
||||
APresupuestos := Nil;
|
||||
AllItems := False;
|
||||
|
||||
@ -318,7 +313,6 @@ AppFactuGES.ShowCapado;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorPresupuestosCliente.ModificarInterno;
|
||||
@ -348,8 +342,6 @@ var
|
||||
APresupuestos: IBizPresupuestoCliente;
|
||||
AllItems: Boolean;
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{
|
||||
APresupuestos := Nil;
|
||||
AllItems := False;
|
||||
|
||||
@ -384,7 +376,6 @@ AppFactuGES.ShowCapado;
|
||||
end;
|
||||
end;
|
||||
APresupuestos := Nil;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorPresupuestosCliente.SetController(const Value: IPresupuestosClienteController);
|
||||
|
||||
@ -14,8 +14,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 740
|
||||
ExplicitHeight = 465
|
||||
DesignSize = (
|
||||
766
|
||||
513)
|
||||
@ -52,9 +50,13 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
Height = 253
|
||||
|
||||
@ -71,6 +71,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
BestFitMaxWidth = 25
|
||||
Width = 68
|
||||
end
|
||||
object cxGridViewSITUACION: TcxGridDBColumn
|
||||
Caption = 'Situaci'#243'n'
|
||||
DataBinding.FieldName = 'SITUACION'
|
||||
Width = 69
|
||||
end
|
||||
object cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn
|
||||
Caption = 'Fecha presupuesto'
|
||||
DataBinding.FieldName = 'FECHA_PRESUPUESTO'
|
||||
@ -79,10 +84,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
SortOrder = soDescending
|
||||
Width = 45
|
||||
end
|
||||
object cxGridViewSITUACION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SITUACION'
|
||||
Width = 69
|
||||
end
|
||||
object cxGridViewFECHA_DECISION: TcxGridDBColumn
|
||||
Caption = 'Fecha decisi'#243'n'
|
||||
DataBinding.FieldName = 'FECHA_DECISION'
|
||||
@ -101,7 +102,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
object cxGridViewCLIENTE_FINAL: TcxGridDBColumn
|
||||
Caption = 'Cliente final'
|
||||
DataBinding.FieldName = 'CLIENTE_FINAL'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
||||
Caption = 'Importe total'
|
||||
|
||||
@ -313,7 +313,6 @@
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</Service>
|
||||
|
||||
</Services>
|
||||
<EventSinks>
|
||||
</EventSinks>
|
||||
|
||||
Binary file not shown.
@ -95,7 +95,8 @@ uses
|
||||
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
|
||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
|
||||
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
|
||||
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas';
|
||||
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
|
||||
uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule};
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
@ -29,6 +29,10 @@
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
@ -83,6 +87,10 @@
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
VALUE "CompileDate", "miércoles, 05 de diciembre de 2007 20:03\0"
|
||||
VALUE "CompileDate", "viernes, 07 de diciembre de 2007 18:42\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user