Compare commits
No commits in common. "DA3-D7" and "master" have entirely different histories.
@ -1,191 +0,0 @@
|
||||
--------------- SQL ---------------
|
||||
CREATE USER [usuario_gft]
|
||||
FOR LOGIN [usuario_gft]
|
||||
WITH DEFAULT_SCHEMA = [dbo]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_FILIALES] (
|
||||
[CODFILIAL] char(6) NULL,
|
||||
[CODBARRA] varchar(17) NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_FILIALES]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
COMMIT
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010082','8422416200065')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010083','8422416200058')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010086','8422416200041')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010089','8422416200102')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010090','8422416200126')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010091','8422416200133')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010092','8422416200188')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010244','8422416101256')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010094','8422416200959')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010096','8422416209068')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010088','8422416200089')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010103','8422416200140')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('010087','8422416200072')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_FILIALES] ([CODFILIAL], [CODBARRA])
|
||||
VALUES
|
||||
('000001','8435159800003')
|
||||
GO
|
||||
|
||||
COMMIT
|
||||
GO
|
||||
|
||||
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_TALLAS] (
|
||||
[TALLA] char(2) NOT NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_TALLAS]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_TALLAS] ([TALLA])
|
||||
VALUES
|
||||
('38')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_TALLAS] ([TALLA])
|
||||
VALUES
|
||||
('40')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_TALLAS] ([TALLA])
|
||||
VALUES
|
||||
('42')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_TALLAS] ([TALLA])
|
||||
VALUES
|
||||
('44')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_TALLAS] ([TALLA])
|
||||
VALUES
|
||||
('46')
|
||||
GO
|
||||
|
||||
INSERT INTO [RDX_TALLAS] ([TALLA])
|
||||
VALUES
|
||||
('48')
|
||||
GO
|
||||
|
||||
COMMIT
|
||||
GO
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/* Códigos de barra de ECI que son referencias nulas */
|
||||
|
||||
INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR])
|
||||
VALUES
|
||||
('61800000000','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL)
|
||||
GO
|
||||
|
||||
INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR])
|
||||
VALUES
|
||||
('61810001406','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL)
|
||||
GO
|
||||
|
||||
INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR])
|
||||
VALUES
|
||||
('61810001547','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL)
|
||||
GO
|
||||
|
||||
INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR])
|
||||
VALUES
|
||||
('61810001042','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL)
|
||||
GO
|
||||
|
||||
INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR])
|
||||
VALUES
|
||||
('61810001141','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL)
|
||||
GO
|
||||
|
||||
INSERT INTO [PRODUTOS_BARRA] ([CODIGO_BARRA], [PRODUTO], [COR_PRODUTO], [TAMANHO], [GRADE], [DATA_PARA_TRANSFERENCIA], [CODIGO_BARRA_PADRAO], [NOME_CLIFOR])
|
||||
VALUES
|
||||
('8300733557232','107CH.EN.01','300',1,'38',CURRENT_TIMESTAMP,0,NULL)
|
||||
GO
|
||||
|
||||
COMMIT
|
||||
GO
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,519 +0,0 @@
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_CABINV] (
|
||||
[NUMDOC] varchar(25) NOT NULL,
|
||||
[TIPODOC] varchar(3) NULL,
|
||||
[TIPOLIQ] varchar(3) NULL,
|
||||
[FECHA] datetime NULL,
|
||||
[FECHALIQ] datetime NULL,
|
||||
[EMISOR] varchar(17) NULL,
|
||||
[RECEPTOR] varchar(17) NULL,
|
||||
[DPTO] varchar(3) NULL,
|
||||
[CENTRO] varchar(17) NULL,
|
||||
[FECHA_CARGA] datetime NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_CABINV]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_CABINV]
|
||||
ADD PRIMARY KEY CLUSTERED ([NUMDOC])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
CREATE NONCLUSTERED INDEX [RDX_CABINV_idx] ON [RDX_CABINV]
|
||||
([FECHALIQ])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
CREATE NONCLUSTERED INDEX [RDX_CABINV_idx2] ON [RDX_CABINV]
|
||||
([CENTRO])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_LININV] (
|
||||
[NUMDOC] varchar(25) NOT NULL,
|
||||
[NUMLIN] numeric(6, 0) NOT NULL,
|
||||
[CODART] varchar(17) NULL,
|
||||
[FAMILIA] varchar(17) NULL,
|
||||
[BARRA] varchar(17) NULL,
|
||||
[TALLA] varchar(17) NULL,
|
||||
[MARCA] varchar(25) NULL,
|
||||
[TAMANO] varchar(25) NULL,
|
||||
[SERIE] varchar(25) NULL,
|
||||
[COLOR] varchar(25) NULL,
|
||||
[MODELO] varchar(25) NULL,
|
||||
[DIBUJO] varchar(25) NULL,
|
||||
[DESCRIP] varchar(70) NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_LININV]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_LININV]
|
||||
ADD PRIMARY KEY CLUSTERED ([NUMDOC], [NUMLIN])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
CREATE NONCLUSTERED INDEX [RDX_LININV_idx] ON [RDX_LININV]
|
||||
([CODART])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_CANTINV] (
|
||||
[NUMDOC] varchar(25) NOT NULL,
|
||||
[NUMLIN] numeric(6, 0) NOT NULL,
|
||||
[NUMCANT] numeric(6, 0) NOT NULL,
|
||||
[TIPOCANT] varchar(3) NULL,
|
||||
[CANTIDAD] numeric(15, 0) NULL,
|
||||
[CENTRO] varchar(17) NULL,
|
||||
[TMOV] varchar(3) NULL,
|
||||
[FACT] varchar(12) NULL,
|
||||
[DEPTO] varchar(3) NULL,
|
||||
[IDVEN] varchar(10) NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_CANTINV]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_CANTINV]
|
||||
ADD PRIMARY KEY CLUSTERED ([NUMDOC], [NUMLIN], [NUMCANT])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
CREATE NONCLUSTERED INDEX [RDX_CANTINV_idx] ON [RDX_CANTINV]
|
||||
([TIPOCANT])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
CREATE NONCLUSTERED INDEX [RDX_CANTINV_idx2] ON [RDX_CANTINV]
|
||||
([IDVEN])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_CABVEN] (
|
||||
[CLAVE1] numeric(10, 0) NOT NULL,
|
||||
[NUMINF] varchar(35) NULL,
|
||||
[FUNCION] varchar(10) NULL,
|
||||
[FECINI] datetime NULL,
|
||||
[FECFIN] datetime NULL,
|
||||
[FECINF] datetime NULL,
|
||||
[PERVENINI] datetime NULL,
|
||||
[PERVENFIN] datetime NULL,
|
||||
[EANOFI] varchar(17) NULL,
|
||||
[EANEMI] varchar(17) NULL,
|
||||
[EANREC] varchar(17) NULL,
|
||||
[EANVEN] varchar(17) NULL,
|
||||
[EANALM] varchar(17) NULL,
|
||||
[EANREP] varchar(17) NULL,
|
||||
[EANPRO] varchar(17) NULL,
|
||||
[EANADMSA] varchar(17) NULL,
|
||||
[EANREPSR] varchar(17) NULL,
|
||||
[ADMVENSA] varchar(35) NULL,
|
||||
[REPDEPSR] varchar(35) NULL,
|
||||
[EMAILSA] varchar(35) NULL,
|
||||
[NUMFAXSA] varchar(35) NULL,
|
||||
[NUMTELSA] varchar(35) NULL,
|
||||
[NUMTLXSA] varchar(35) NULL,
|
||||
[X400SA] varchar(35) NULL,
|
||||
[EMAILSR] varchar(35) NULL,
|
||||
[NUMFAXSR] varchar(35) NULL,
|
||||
[NUMTELSR] varchar(35) NULL,
|
||||
[NUMTLXSR] varchar(35) NULL,
|
||||
[X400SR] varchar(35) NULL,
|
||||
[NUMPRE] varchar(35) NULL,
|
||||
[NUMINFSC] varchar(35) NULL,
|
||||
[NUMCON] varchar(35) NULL,
|
||||
[FECPRE] datetime NULL,
|
||||
[FECINFSC] datetime NULL,
|
||||
[FECCON] datetime NULL,
|
||||
[DIVPED] varchar(3) NULL,
|
||||
[DIVPRE] varchar(3) NULL,
|
||||
[DIVPAG] varchar(3) NULL,
|
||||
[DIVPEDF] varchar(3) NULL,
|
||||
[DIVPREF] varchar(3) NULL,
|
||||
[DIVPAGF] varchar(3) NULL,
|
||||
[TASCAM] numeric(15, 3) NULL,
|
||||
[FECTAS] datetime NULL,
|
||||
[FECHA_CARGA] datetime NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_CABVEN]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_CABVEN]
|
||||
ADD PRIMARY KEY CLUSTERED ([CLAVE1])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_LUGVEN] (
|
||||
[CLAVE1] numeric(10, 0) NOT NULL,
|
||||
[CLAVE2] numeric(5, 0) NOT NULL,
|
||||
[EANLUG] varchar(17) NULL,
|
||||
[LUGVEN] varchar(70) NULL,
|
||||
[FECINI] datetime NULL,
|
||||
[FECFIN] datetime NULL,
|
||||
[PERVENINI] datetime NULL,
|
||||
[PERVENFIN] datetime NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_LUGVEN]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_LUGVEN]
|
||||
ADD PRIMARY KEY CLUSTERED ([CLAVE1], [CLAVE2])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
CREATE NONCLUSTERED INDEX [RDX_LUGVEN_PERVENINI_IDX] ON [RDX_LUGVEN]
|
||||
([PERVENINI])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_LUGVEN]
|
||||
ADD CONSTRAINT [FK__RDX_LUGVE__CLAVE__4A59F0B5] FOREIGN KEY ([CLAVE1])
|
||||
REFERENCES [RDX_CABVEN] ([CLAVE1])
|
||||
ON UPDATE CASCADE
|
||||
ON DELETE CASCADE
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_LUGVEN]
|
||||
NOCHECK CONSTRAINT [FK__RDX_LUGVE__CLAVE__4A59F0B5]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_ARTVEN] (
|
||||
[CLAVE1] numeric(10, 0) NOT NULL,
|
||||
[CLAVE2] numeric(5, 0) NOT NULL,
|
||||
[CLAVE3] numeric(5, 0) NOT NULL,
|
||||
[EANART] varchar(17) NULL,
|
||||
[CODCOM] varchar(35) NULL,
|
||||
[NUMVAR] varchar(35) NULL,
|
||||
[CODPRO] varchar(35) NULL,
|
||||
[DESARTCO] varchar(35) NULL,
|
||||
[DESART] varchar(70) NULL,
|
||||
[NUMCON] varchar(35) NULL,
|
||||
[NUMLIS] varchar(35) NULL,
|
||||
[CONESP1] varchar(3) NULL,
|
||||
[CONESP2] varchar(3) NULL,
|
||||
[CONESP3] varchar(3) NULL,
|
||||
[VALVEN] numeric(15, 3) NULL,
|
||||
[PRENETCT] numeric(15, 3) NULL,
|
||||
[PREBRUCT] numeric(15, 3) NULL,
|
||||
[PREINFET] numeric(15, 3) NULL,
|
||||
[PREINFFT] numeric(15, 3) NULL,
|
||||
[PRECALCT] numeric(15, 3) NULL,
|
||||
[PRENETCA] numeric(15, 3) NULL,
|
||||
[PREBRUCA] numeric(15, 3) NULL,
|
||||
[PREINFEA] numeric(15, 3) NULL,
|
||||
[PREINFFA] numeric(15, 3) NULL,
|
||||
[PRECALCA] numeric(15, 3) NULL,
|
||||
[BAPRUN1] numeric(9, 0) NULL,
|
||||
[UNIMED1] varchar(3) NULL,
|
||||
[BAPRUN2] numeric(9, 0) NULL,
|
||||
[UNIMED2] varchar(3) NULL,
|
||||
[BAPRUN3] numeric(9, 0) NULL,
|
||||
[UNIMED3] varchar(3) NULL,
|
||||
[BAPRUN4] numeric(9, 0) NULL,
|
||||
[UNIMED4] varchar(3) NULL,
|
||||
[BAPRUN5] numeric(9, 0) NULL,
|
||||
[UNIMED5] varchar(3) NULL,
|
||||
[CANVEN] numeric(15, 3) NULL,
|
||||
[EXIPRO] numeric(15, 3) NULL,
|
||||
[DESEXI] numeric(15, 3) NULL,
|
||||
[ESPMEDCV] varchar(3) NULL,
|
||||
[ESPMEDEP] varchar(3) NULL,
|
||||
[ESPMEDDE] varchar(3) NULL,
|
||||
[CANDEV] numeric(15, 3) NULL,
|
||||
[EANVEN] varchar(17) NULL,
|
||||
[NOMVEN] varchar(70) NULL,
|
||||
[NUMTALON] varchar(35) NULL,
|
||||
[CANVENNET] numeric(15, 3) NULL,
|
||||
[UMEDVENNET] varchar(3) NULL,
|
||||
[CANESP] numeric(15, 3) NULL,
|
||||
[UMEDESP] varchar(3) NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_ARTVEN]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_ARTVEN]
|
||||
ADD PRIMARY KEY CLUSTERED ([CLAVE1], [CLAVE2], [CLAVE3])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_ARTVEN]
|
||||
ADD CONSTRAINT [FK__RDX_ARTVEN__56BFC79A] FOREIGN KEY ([CLAVE1], [CLAVE2])
|
||||
REFERENCES [RDX_LUGVEN] ([CLAVE1], [CLAVE2])
|
||||
ON UPDATE CASCADE
|
||||
ON DELETE CASCADE
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_ARTVEN]
|
||||
NOCHECK CONSTRAINT [FK__RDX_ARTVEN__56BFC79A]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_INFORMES] (
|
||||
[ID] smallint IDENTITY(1, 1) NOT NULL,
|
||||
[CATEGORIA] varchar(15) NULL,
|
||||
[ICONO] smallint NULL,
|
||||
[NOMBRE] varchar(50) NULL,
|
||||
[DESCRIPCION] varchar(255) NULL,
|
||||
[ORDEN] smallint NULL,
|
||||
[VISTA] text NULL,
|
||||
[MODIFICABLE] char(1) CONSTRAINT [DF__RDX_INFOR__MODIF__5C78A0F0] DEFAULT 'S' NOT NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
TEXTIMAGE_ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_INFORMES]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_INFORMES]
|
||||
ADD CONSTRAINT [RDX_INFORMES_pk]
|
||||
PRIMARY KEY CLUSTERED ([ID])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_ARTVEN]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_CABINV]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_CABVEN]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_CANTINV]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_LININV]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_LUGVEN]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_LOG_CARGA] (
|
||||
[ID] int IDENTITY(1, 1) NOT NULL,
|
||||
[REPORT] varchar(10) NOT NULL,
|
||||
[FECHA] datetime NOT NULL,
|
||||
[OK] bit NOT NULL,
|
||||
[ERROR_MSG] varchar(255) NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_LOG_CARGA]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_LOG_CARGA]
|
||||
ADD UNIQUE NONCLUSTERED ([ID])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_REFERENCIA_GENERICA] (
|
||||
[NUMINF] varchar(35) NOT NULL,
|
||||
[CLAVE1] numeric(10, 0) NOT NULL,
|
||||
[CLAVE2] numeric(5, 0) NOT NULL,
|
||||
[CLAVE3] numeric(5, 0) NOT NULL,
|
||||
[FECHACAMBIO] datetime NOT NULL,
|
||||
[ESTADO] char(1) NOT NULL,
|
||||
[CODIGO_BARRA] varchar(25) NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_REFERENCIA_GENERICA]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_REFERENCIA_GENERICA]
|
||||
ADD CONSTRAINT [PK__RDX_REFERENCIA_G__68DE77D5]
|
||||
PRIMARY KEY CLUSTERED ([NUMINF], [CLAVE1], [CLAVE2], [CLAVE3])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_AJUSTES_ALBARAN] (
|
||||
[ALBARAN] char(7) NOT NULL,
|
||||
[ESTADO] varchar(15) NULL,
|
||||
[OBSERVACIONES] varchar(255) NULL,
|
||||
[CONTABILIZAR] char(1) NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_AJUSTES_ALBARAN]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_AJUSTES_ALBARAN]
|
||||
ADD CONSTRAINT [PK__RDX_AJUSTES_ALBA__1B69F7A2]
|
||||
PRIMARY KEY CLUSTERED ([ALBARAN])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_AJUSTES_HOJA_DEVOLUCIONES] (
|
||||
[NUMHOJA] char(8) NOT NULL,
|
||||
[ESTADO] varchar(20) NULL,
|
||||
[OBSERVACIONES] varchar(255) NULL,
|
||||
[CONTABILIZAR] char(1) CONSTRAINT [DF__RDX_AJUST__CONTA__7BF14C49] DEFAULT 'S' NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_AJUSTES_HOJA_DEVOLUCIONES]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_AJUSTES_HOJA_DEVOLUCIONES]
|
||||
ADD CONSTRAINT [PK__RDX_AJUSTES_HOJA__483C9E19]
|
||||
PRIMARY KEY CLUSTERED ([NUMHOJA])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_DEVOLUCION_AJUSTES] (
|
||||
[FECHA] datetime NOT NULL,
|
||||
[CENTRO] varchar(17) NOT NULL,
|
||||
[CODIGO] varchar(12) NOT NULL,
|
||||
[COLOR] varchar(10) NOT NULL,
|
||||
[APROBADO] char(1) NULL,
|
||||
[FECHACAMBIO] datetime NULL,
|
||||
[CANT38] numeric(15, 0) NULL,
|
||||
[CANT40] numeric(15, 0) NULL,
|
||||
[CANT42] numeric(15, 0) NULL,
|
||||
[CANT44] numeric(15, 0) NULL,
|
||||
[CANT46] numeric(15, 0) NULL,
|
||||
[CANT48] numeric(15, 0) NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_DEVOLUCION_AJUSTES]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_DEVOLUCION_AJUSTES]
|
||||
ADD CONSTRAINT [PK_RDX_DEVOLUCION_AJUSTES_2F70F04A]
|
||||
PRIMARY KEY CLUSTERED ([FECHA], [CENTRO], [CODIGO], [COLOR])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_RECEPCION_AJUSTES] (
|
||||
[FECHA] datetime NOT NULL,
|
||||
[CENTRO] varchar(17) NOT NULL,
|
||||
[CODIGO] varchar(12) NOT NULL,
|
||||
[COLOR] varchar(10) NOT NULL,
|
||||
[APROBADO] char(1) NULL,
|
||||
[FECHACAMBIO] datetime NULL,
|
||||
[CANT38] numeric(15, 0) NULL,
|
||||
[CANT40] numeric(15, 0) NULL,
|
||||
[CANT42] numeric(15, 0) NULL,
|
||||
[CANT44] numeric(15, 0) NULL,
|
||||
[CANT46] numeric(15, 0) NULL,
|
||||
[CANT48] numeric(15, 0) NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_RECEPCION_AJUSTES]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_RECEPCION_AJUSTES]
|
||||
ADD CONSTRAINT [PK_RDX_RECEPCION_AJUSTES_2F70F04F]
|
||||
PRIMARY KEY CLUSTERED ([FECHA], [CENTRO], [CODIGO], [COLOR])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
--------------- SQL ---------------
|
||||
CREATE TABLE [RDX_TRASPASOS_AJUSTES] (
|
||||
[FECHA] datetime NOT NULL,
|
||||
[CENTRO] varchar(17) NOT NULL,
|
||||
[CENTRO2] varchar(17) NOT NULL,
|
||||
[CODIGO] varchar(12) NOT NULL,
|
||||
[COLOR] varchar(10) NOT NULL,
|
||||
[APROBADO] char(1) NULL,
|
||||
[ESTADO] varchar(20) NULL,
|
||||
[OBSERVACIONES] varchar(255) NULL,
|
||||
[CONTABILIZAR] char(1) NULL,
|
||||
[FECHACAMBIO] datetime NULL,
|
||||
[CANT38] numeric(15, 0) NULL,
|
||||
[CANT40] numeric(15, 0) NULL,
|
||||
[CANT42] numeric(15, 0) NULL,
|
||||
[CANT44] numeric(15, 0) NULL,
|
||||
[CANT46] numeric(15, 0) NULL,
|
||||
[CANT48] numeric(15, 0) NULL,
|
||||
[TIPOCANT] varchar(3) NOT NULL
|
||||
)
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_TRASPASOS_AJUSTES]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
ALTER TABLE [RDX_TRASPASOS_AJUSTES]
|
||||
ADD CONSTRAINT [PK_RDX_TRASPASOS_AJUSTES_2F70F04A]
|
||||
PRIMARY KEY CLUSTERED ([FECHA], [CENTRO], [CENTRO2], [CODIGO], [COLOR], [TIPOCANT])
|
||||
ON [PRIMARY]
|
||||
GO
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,431 +0,0 @@
|
||||
--
|
||||
-- Definition for view RDX_V_STOCK_VARELA :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_STOCK_VARELA AS
|
||||
SELECT ESTOQUE_PRODUTOS.FILIAL,
|
||||
ESTOQUE_PRODUTOS.PRODUTO AS CODIGO,
|
||||
ESTOQUE_PRODUTOS.COR_PRODUTO AS COLOR,
|
||||
PRODUCTO = PRODUTOS.DESC_PRODUTO,
|
||||
PRODUTOS.TIPO_PRODUTO,
|
||||
PRODUTOS.GRUPO_PRODUTO,
|
||||
COLECCION=COLECOES.DESC_COLECAO,
|
||||
|
||||
ESTOQUE_PRODUTOS.ES1 as K38,
|
||||
ESTOQUE_PRODUTOS.ES2 as K40,
|
||||
ESTOQUE_PRODUTOS.ES3 as K42,
|
||||
ESTOQUE_PRODUTOS.ES4 as K44,
|
||||
ESTOQUE_PRODUTOS.ES5 as K46,
|
||||
ESTOQUE_PRODUTOS.ES6 as K48,
|
||||
ESTOQUE_PRODUTOS.ESTOQUE as KT
|
||||
|
||||
FROM ESTOQUE_PRODUTOS
|
||||
LEFT OUTER JOIN PRODUTOS ON (PRODUTOS.PRODUTO = ESTOQUE_PRODUTOS.PRODUTO)
|
||||
LEFT OUTER JOIN COLECOES ON (PRODUTOS.COLECAO = COLECOES.COLECAO)
|
||||
|
||||
WHERE FILIAL LIKE '%VARELA IMAGEN Y DISEÑO%'
|
||||
GO
|
||||
|
||||
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_STOCK_VENTAS :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_STOCK_VENTAS AS
|
||||
SELECT
|
||||
PERVENINI AS FECHA,
|
||||
DAY(PERVENINI) AS DIA,
|
||||
DATENAME(DW, PERVENINI) DIASEMANA,
|
||||
DATENAME(MONTH, PERVENINI) AS MES,
|
||||
YEAR(PERVENINI) AS ANO,
|
||||
FILIAL AS CENTRO,
|
||||
CODIGO = ISNULL(PRODUTO, '107CH.EN.01'),
|
||||
DESC_PRODUTO AS PRODUCTO,
|
||||
GRUPO_PRODUTO AS GRUPOPRODUCTO,
|
||||
TIPO_PRODUTO AS TIPOPRODUCTO,
|
||||
DESC_COLECAO AS COLECCION,
|
||||
COLOR = ISNULL(COR_PRODUTO, '300'),
|
||||
GRADE AS TALLA,
|
||||
CANTIDAD = ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0)
|
||||
FROM
|
||||
RDX_V_VENTASEDI_RESUELTAS
|
||||
WHERE NOT ((DESC_PRODUTO LIKE '%ERROR REFERENCIA%') AND ((VALVEN < 1) AND (VALVEN > 0))) /* QUITAR COMPOSTURAS */
|
||||
GO
|
||||
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_V_STOCK_VENTAS]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_STOCK_INVENTARIO :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_STOCK_INVENTARIO AS
|
||||
SELECT
|
||||
FECHA = ISNULL(RDX_V_INVENTARIOEDI.FECHA, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FECHA, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FECHA))),
|
||||
CENTRO = ISNULL(RDX_V_INVENTARIOEDI.FILIAL, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FILIAL, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FILIAL, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FILIAL))),
|
||||
CODIGO = ISNULL(RDX_V_INVENTARIOEDI.CODIGO, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CODIGO, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CODIGO))),
|
||||
PRODUCTO = ISNULL(RDX_V_INVENTARIOEDI.PRODUCTO, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.PRODUCTO, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.PRODUCTO, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.PRODUCTO))),
|
||||
COLOR = ISNULL(RDX_V_INVENTARIOEDI.COLOR, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.COLOR, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.COLOR))),
|
||||
TALLA = ISNULL(RDX_V_INVENTARIOEDI.TALLA, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TALLA, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.TALLA))),
|
||||
CANTIDAD = ISNULL(RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CANTIDAD, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CANTIDAD, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CANTIDAD, RDX_V_INVENTARIOEDI.CANTIDAD))),
|
||||
/*RDX_V_INVENTARIOEDI.CANTIDAD,
|
||||
RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CANTIDAD,
|
||||
RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CANTIDAD,
|
||||
RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CANTIDAD,*/
|
||||
OPERACION = CASE RDX_V_INVENTARIOEDI.TIPOCANT
|
||||
WHEN '194' THEN 'R'
|
||||
WHEN '46' THEN 'E'
|
||||
WHEN '145' THEN 'RM'
|
||||
WHEN '48' THEN 'S'
|
||||
WHEN '61' THEN 'D'
|
||||
WHEN '65' THEN 'T'
|
||||
ELSE
|
||||
CASE
|
||||
WHEN RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CANTIDAD IS NOT NULL THEN 'R'
|
||||
WHEN RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CANTIDAD IS NOT NULL THEN 'D'
|
||||
ELSE RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TIPO
|
||||
END
|
||||
END
|
||||
FROM RDX_V_INVENTARIOEDI
|
||||
FULL OUTER JOIN RDX_V_INVENTARIO_MAXFECHAS ON
|
||||
(RDX_V_INVENTARIO_MAXFECHAS.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND
|
||||
(RDX_V_INVENTARIO_MAXFECHAS.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND
|
||||
(RDX_V_INVENTARIO_MAXFECHAS.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND
|
||||
(RDX_V_INVENTARIO_MAXFECHAS.TALLA = RDX_V_INVENTARIOEDI.TALLA)
|
||||
FULL OUTER JOIN RDX_V_RECEPCION_AJUSTES_DESGLOSADO ON
|
||||
(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND
|
||||
(RDX_V_INVENTARIOEDI.CENTRO = RDX_V_INVENTARIOEDI.CENTRO2) AND
|
||||
(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND
|
||||
(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND
|
||||
(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI.TALLA) AND
|
||||
(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA)
|
||||
FULL OUTER JOIN RDX_V_TRASPASOS_AJUSTES_DESGLOSADO ON
|
||||
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND
|
||||
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CENTRO2 = RDX_V_INVENTARIOEDI.CENTRO2) AND
|
||||
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND
|
||||
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND
|
||||
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI.TALLA) AND
|
||||
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA) AND
|
||||
(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.TIPO = RDX_V_INVENTARIOEDI.TIPOCANT)
|
||||
FULL OUTER JOIN RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO ON
|
||||
(RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CENTRO = RDX_V_INVENTARIOEDI.CENTRO) AND
|
||||
(RDX_V_INVENTARIOEDI.CENTRO = RDX_V_INVENTARIOEDI.CENTRO2) AND
|
||||
(RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.CODIGO = RDX_V_INVENTARIOEDI.CODIGO) AND
|
||||
(RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.COLOR = RDX_V_INVENTARIOEDI.COLOR) AND
|
||||
(RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.TALLA = RDX_V_INVENTARIOEDI.TALLA) AND
|
||||
(RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FECHA = RDX_V_INVENTARIOEDI.FECHA)
|
||||
WHERE
|
||||
((RDX_V_INVENTARIO_MAXFECHAS.FECHA IS NULL) /* Puede haber prendas que no se hayan inventariado nunca */
|
||||
OR
|
||||
(ISNULL(RDX_V_INVENTARIOEDI.FECHA, ISNULL(RDX_V_RECEPCION_AJUSTES_DESGLOSADO.FECHA, ISNULL(RDX_V_TRASPASOS_AJUSTES_DESGLOSADO.FECHA, RDX_V_DEVOLUCION_AJUSTES_DESGLOSADO.FECHA))) >= RDX_V_INVENTARIO_MAXFECHAS.FECHA))
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_V_STOCK_INVENTARIO]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_STOCK :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_STOCK AS
|
||||
SELECT
|
||||
CENTRO = ISNULL(RDX_V_STOCK_INVENTARIO.CENTRO, RDX_V_STOCK_VENTAS.CENTRO),
|
||||
CODIGO = ISNULL(RDX_V_STOCK_INVENTARIO.CODIGO, RDX_V_STOCK_VENTAS.CODIGO),
|
||||
PRODUCTO = ISNULL(RDX_V_STOCK_INVENTARIO.PRODUCTO, RDX_V_STOCK_VENTAS.PRODUCTO),
|
||||
TIPO_PRODUCTO = PRODUTOS.TIPO_PRODUTO,
|
||||
GRUPO_PRODUCTO = PRODUTOS.GRUPO_PRODUTO,
|
||||
COLECCION = COLECOES.DESC_COLECAO,
|
||||
COLOR = ISNULL(RDX_V_STOCK_INVENTARIO.COLOR, RDX_V_STOCK_VENTAS.COLOR),
|
||||
E38 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '38' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
E40 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '40' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
E42 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '42' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
E44 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '44' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
E46 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '46' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
E48 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '48' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'RM' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'R' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
WHEN 'E' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) > 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
S38 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '38' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
S40 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '40' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
S42 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '42' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
S44 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '44' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
S46 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '46' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END),
|
||||
|
||||
S48 = SUM(CASE ISNULL(RDX_V_STOCK_INVENTARIO.TALLA, RDX_V_STOCK_VENTAS.TALLA)
|
||||
WHEN '48' THEN
|
||||
CASE RDX_V_STOCK_INVENTARIO.OPERACION
|
||||
WHEN 'D' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'S' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
WHEN 'T' THEN RDX_V_STOCK_INVENTARIO.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
+
|
||||
CASE
|
||||
WHEN ((RDX_V_STOCK_VENTAS.CANTIDAD * (-1)) < 0) THEN
|
||||
RDX_V_STOCK_VENTAS.CANTIDAD * (-1)
|
||||
ELSE
|
||||
0
|
||||
END
|
||||
END)
|
||||
FROM
|
||||
RDX_V_STOCK_INVENTARIO
|
||||
FULL OUTER JOIN RDX_V_STOCK_VENTAS ON
|
||||
(RDX_V_STOCK_INVENTARIO.CENTRO = RDX_V_STOCK_VENTAS.CENTRO)
|
||||
AND (RDX_V_STOCK_INVENTARIO.CODIGO = RDX_V_STOCK_VENTAS.CODIGO)
|
||||
AND (RDX_V_STOCK_INVENTARIO.COLOR = RDX_V_STOCK_VENTAS.COLOR)
|
||||
AND (RDX_V_STOCK_INVENTARIO.TALLA = RDX_V_STOCK_VENTAS.TALLA)
|
||||
AND (RDX_V_STOCK_INVENTARIO.FECHA = RDX_V_STOCK_VENTAS.FECHA)
|
||||
LEFT OUTER JOIN PRODUTOS ON
|
||||
(PRODUTOS.PRODUTO = ISNULL(RDX_V_STOCK_INVENTARIO.CODIGO, RDX_V_STOCK_VENTAS.CODIGO))
|
||||
LEFT OUTER JOIN COLECOES ON
|
||||
(COLECOES.COLECAO = PRODUTOS.COLECAO)
|
||||
|
||||
GROUP BY
|
||||
ISNULL(RDX_V_STOCK_INVENTARIO.CENTRO, RDX_V_STOCK_VENTAS.CENTRO),
|
||||
ISNULL(RDX_V_STOCK_INVENTARIO.CODIGO, RDX_V_STOCK_VENTAS.CODIGO),
|
||||
ISNULL(RDX_V_STOCK_INVENTARIO.PRODUCTO, RDX_V_STOCK_VENTAS.PRODUCTO),
|
||||
PRODUTOS.TIPO_PRODUTO,
|
||||
PRODUTOS.GRUPO_PRODUTO,
|
||||
COLECOES.DESC_COLECAO,
|
||||
ISNULL(RDX_V_STOCK_INVENTARIO.COLOR, RDX_V_STOCK_VENTAS.COLOR)
|
||||
GO
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_STOCK_CALCULADO :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_STOCK_CALCULADO AS
|
||||
SELECT
|
||||
CENTRO,
|
||||
CODIGO,
|
||||
PRODUCTO,
|
||||
TIPO_PRODUCTO,
|
||||
GRUPO_PRODUCTO,
|
||||
COLECCION,
|
||||
COLOR,
|
||||
E38,
|
||||
E40,
|
||||
E42,
|
||||
E44,
|
||||
E46,
|
||||
E48,
|
||||
TE = ISNULL(E38, 0) + ISNULL(E40, 0) + ISNULL(E42, 0) + ISNULL(E44, 0) + ISNULL(E46, 0) + ISNULL(E48, 0),
|
||||
S38,
|
||||
S40,
|
||||
S42,
|
||||
S44,
|
||||
S46,
|
||||
S48,
|
||||
TS = ISNULL(S38, 0) + ISNULL(S40, 0) + ISNULL(S42, 0) + ISNULL(S44, 0) + ISNULL(S46, 0) + ISNULL(S48, 0),
|
||||
K38 = ISNULL(E38, 0) + ISNULL(S38, 0),
|
||||
K40 = ISNULL(E40, 0) + ISNULL(S40, 0),
|
||||
K42 = ISNULL(E42, 0) + ISNULL(S42, 0),
|
||||
K44 = ISNULL(E44, 0) + ISNULL(S44, 0),
|
||||
K46 = ISNULL(E46, 0) + ISNULL(S46, 0),
|
||||
K48 = ISNULL(E48, 0) + ISNULL(S48, 0),
|
||||
KT = ISNULL(E38, 0) + ISNULL(S38, 0) + ISNULL(E40, 0) + ISNULL(S40, 0) +
|
||||
ISNULL(E42, 0) + ISNULL(S42, 0) + ISNULL(E44, 0) + ISNULL(S44, 0) +
|
||||
ISNULL(E46, 0) + ISNULL(S46, 0) + ISNULL(E48, 0) + ISNULL(S48, 0)
|
||||
|
||||
FROM RDX_V_STOCK
|
||||
GO
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,302 +0,0 @@
|
||||
--
|
||||
-- Definition for view RDX_V_VENTASEDI :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_VENTASEDI
|
||||
AS
|
||||
SELECT
|
||||
RDX_CABVEN.NUMINF,
|
||||
RDX_ARTVEN.CLAVE1,
|
||||
RDX_ARTVEN.CLAVE2,
|
||||
RDX_ARTVEN.CLAVE3,
|
||||
RDX_LUGVEN.PERVENINI,
|
||||
RDX_ARTVEN.NUMTALON,
|
||||
RDX_LUGVEN.EANLUG,
|
||||
FILIAL = ISNULL(FILIAIS.FILIAL, RDX_LUGVEN.EANLUG),
|
||||
RDX_ARTVEN.EANVEN,
|
||||
LOJA_VENDEDORES.VENDEDOR AS CODVEN,
|
||||
VENDEDOR = ISNULL(LTRIM(RTRIM(LOJA_VENDEDORES.NOME_VENDEDOR)) + ' ' + LTRIM(RTRIM(LOJA_VENDEDORES.VENDEDOR_APELIDO)), RDX_ARTVEN.EANVEN),
|
||||
RDX_ARTVEN.EANART,
|
||||
RDX_ARTVEN.CODCOM,
|
||||
produtos.PRODUTO,
|
||||
ISNULL(produtos.DESC_PRODUTO, '*** ERROR REFERENCIA **** LLAMAR AL CI') AS DESC_PRODUTO,
|
||||
PRODUTOS_BARRA.COR_PRODUTO,
|
||||
PRODUTOS_BARRA.GRADE,
|
||||
produtos.TIPO_PRODUTO,
|
||||
produtos.GRUPO_PRODUTO,
|
||||
COLECOES.DESC_COLECAO,
|
||||
RDX_ARTVEN.VALVEN,
|
||||
RDX_ARTVEN.CANVEN,
|
||||
RDX_ARTVEN.CANDEV,
|
||||
RDX_ARTVEN.CANVENNET,
|
||||
RDX_ARTVEN.CANESP
|
||||
FROM
|
||||
RDX_ARTVEN
|
||||
INNER JOIN RDX_LUGVEN ON (RDX_ARTVEN.CLAVE1 = RDX_LUGVEN.CLAVE1 AND RDX_ARTVEN.CLAVE2 = RDX_LUGVEN.CLAVE2)
|
||||
INNER JOIN RDX_CABVEN ON (RDX_LUGVEN.CLAVE1 = RDX_CABVEN.CLAVE1)
|
||||
left outer join RDX_FILIALES on (RDX_FILIALES.CODBARRA = RDX_LUGVEN.EANLUG)
|
||||
left outer join FILIAIS on (FILIAIS.COD_FILIAL = RDX_FILIALES.CODFILIAL)
|
||||
LEFT OUTER JOIN LOJA_VENDEDORES ON (LOJA_VENDEDORES.RG LIKE '%' + RDX_ARTVEN.EANVEN + '%')
|
||||
LEFT OUTER JOIN PRODUTOS_BARRA ON ((PRODUTOS_BARRA.CODIGO_BARRA = RDX_ARTVEN.EANART) or (PRODUTOS_BARRA.CODIGO_BARRA = RDX_ARTVEN.CODCOM))
|
||||
LEFT OUTER JOIN PRODUTOS on (produtos.PRODUTO = PRODUTOS_BARRA.PRODUTO)
|
||||
LEFT OUTER JOIN COLECOES on (COLECOES.COLECAO = PRODUTOS.COLECAO)
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_V_VENTASEDI]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_REFERENCIAS_RESUELTAS :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_REFERENCIAS_RESUELTAS
|
||||
AS
|
||||
SELECT *
|
||||
FROM RDX_REFERENCIA_GENERICA
|
||||
WHERE ESTADO = 'R'
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_V_REFERENCIAS_RESUELTAS]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_VENTASEDI_RESUELTAS :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_VENTASEDI_RESUELTAS
|
||||
AS
|
||||
SELECT
|
||||
RDX_V_VENTASEDI.NUMINF,
|
||||
RDX_V_VENTASEDI.CLAVE1,
|
||||
RDX_V_VENTASEDI.CLAVE2,
|
||||
RDX_V_VENTASEDI.CLAVE3,
|
||||
RDX_V_VENTASEDI.PERVENINI,
|
||||
RDX_V_VENTASEDI.NUMTALON,
|
||||
RDX_V_VENTASEDI.EANLUG,
|
||||
RDX_V_VENTASEDI.FILIAL,
|
||||
RDX_V_VENTASEDI.EANVEN,
|
||||
RDX_V_VENTASEDI.CODVEN,
|
||||
RDX_V_VENTASEDI.VENDEDOR,
|
||||
EANART = ISNULL(RDX_V_REFERENCIAS_RESUELTAS.CODIGO_BARRA, RDX_V_VENTASEDI.EANART),
|
||||
RDX_V_VENTASEDI.CODCOM,
|
||||
PRODUTO = ISNULL(PRODUTOS_BARRA.PRODUTO, RDX_V_VENTASEDI.PRODUTO),
|
||||
DESC_PRODUTO = ISNULL(PRODUTOS.DESC_PRODUTO, RDX_V_VENTASEDI.DESC_PRODUTO),
|
||||
COR_PRODUTO = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, RDX_V_VENTASEDI.COR_PRODUTO),
|
||||
GRADE = ISNULL(PRODUTOS_BARRA.GRADE, RDX_V_VENTASEDI.GRADE),
|
||||
TIPO_PRODUTO = ISNULL(PRODUTOS.TIPO_PRODUTO, RDX_V_VENTASEDI.TIPO_PRODUTO),
|
||||
GRUPO_PRODUTO = ISNULL(PRODUTOS.GRUPO_PRODUTO, RDX_V_VENTASEDI.GRUPO_PRODUTO),
|
||||
DESC_COLECAO = ISNULL(COLECOES.DESC_COLECAO, RDX_V_VENTASEDI.DESC_COLECAO),
|
||||
RDX_V_VENTASEDI.VALVEN,
|
||||
RDX_V_VENTASEDI.CANVEN,
|
||||
RDX_V_VENTASEDI.CANDEV,
|
||||
RDX_V_VENTASEDI.CANVENNET,
|
||||
RDX_V_VENTASEDI.CANESP
|
||||
FROM RDX_V_VENTASEDI
|
||||
LEFT JOIN RDX_V_REFERENCIAS_RESUELTAS ON (
|
||||
(RDX_V_REFERENCIAS_RESUELTAS.NUMINF = RDX_V_VENTASEDI.NUMINF) AND
|
||||
(RDX_V_REFERENCIAS_RESUELTAS.CLAVE1 = RDX_V_VENTASEDI.CLAVE1) AND
|
||||
(RDX_V_REFERENCIAS_RESUELTAS.CLAVE2 = RDX_V_VENTASEDI.CLAVE2) AND
|
||||
(RDX_V_REFERENCIAS_RESUELTAS.CLAVE3 = RDX_V_VENTASEDI.CLAVE3))
|
||||
LEFT JOIN PRODUTOS_BARRA ON (
|
||||
(PRODUTOS_BARRA.CODIGO_BARRA = ISNULL(RDX_V_REFERENCIAS_RESUELTAS.CODIGO_BARRA, RDX_V_VENTASEDI.EANART)))
|
||||
LEFT JOIN PRODUTOS ON (
|
||||
(PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO))
|
||||
LEFT JOIN COLECOES ON (
|
||||
(COLECOES.COLECAO = PRODUTOS.COLECAO))
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_V_VENTASEDI_RESUELTAS]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_VENTASEDI_ERRONEAS :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_VENTASEDI_ERRONEAS
|
||||
AS
|
||||
SELECT
|
||||
*
|
||||
FROM
|
||||
RDX_V_VENTASEDI
|
||||
WHERE PRODUTO = '107CH.EN.01'
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_V_VENTASEDI_ERRONEAS]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_VENTASTERMINADAS :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_VENTASTERMINADAS
|
||||
AS
|
||||
SELECT
|
||||
NUMINF,
|
||||
CLAVE1,
|
||||
CLAVE2,
|
||||
CLAVE3,
|
||||
PERVENINI AS FECHA,
|
||||
DAY(PERVENINI) AS DIA,
|
||||
DATENAME(DW, PERVENINI) DIASEMANA,
|
||||
DATENAME(MONTH, PERVENINI) AS MES,
|
||||
YEAR(PERVENINI) AS ANO,
|
||||
FILIAL AS CENTRO,
|
||||
VENDEDOR,
|
||||
NUMTALON,
|
||||
PRODUTO AS CODIGO,
|
||||
DESC_PRODUTO AS PRODUCTO,
|
||||
GRUPO_PRODUTO AS GRUPOPRODUCTO,
|
||||
TIPO_PRODUTO AS TIPOPRODUCTO,
|
||||
DESC_COLECAO AS COLECCION,
|
||||
COR_PRODUTO AS COLOR,
|
||||
GRADE AS TALLA,
|
||||
TALLA38 = CASE WHEN (GRADE = 38) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END,
|
||||
TALLA40 = CASE WHEN (GRADE = 40) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END,
|
||||
TALLA42 = CASE WHEN (GRADE = 42) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END,
|
||||
TALLA44 = CASE WHEN (GRADE = 44) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END,
|
||||
TALLA46 = CASE WHEN (GRADE = 46) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END,
|
||||
TALLA48 = CASE WHEN (GRADE = 48) THEN ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0) ELSE NULL END,
|
||||
VENTAS = CASE WHEN (CANVEN > 0) THEN CANVEN ELSE 0 END +
|
||||
CASE WHEN (CANVENNET > 0) THEN CANVENNET ELSE 0 END,
|
||||
|
||||
DEVOLUCIONES = CASE WHEN (CANVEN < 0) THEN CANVEN ELSE 0 END +
|
||||
CASE WHEN (CANVENNET < 0) THEN CANVENNET ELSE 0 END,
|
||||
|
||||
TOTAL = ISNULL(CANVEN, 0) + ISNULL(CANVENNET, 0),
|
||||
VALVEN = CASE WHEN (VALVEN > 0) THEN VALVEN ELSE 0 END,
|
||||
VALDEV = CASE WHEN (VALVEN < 0) THEN VALVEN ELSE 0 END,
|
||||
VALTOT = VALVEN
|
||||
FROM
|
||||
RDX_V_VENTASEDI_RESUELTAS
|
||||
WHERE NOT ((DESC_PRODUTO LIKE '%ERROR REFERENCIA%') AND ((VALVEN < 1) AND (VALVEN > 0))) /* QUITAR COMPOSTURAS */
|
||||
AND (CANESP IS NULL OR CANESP = 0) /* QUITAR INICIO V.PROCESO */
|
||||
AND (VALVEN IS NOT NULL) /* QUITAR CAMBIO DE TALLA */
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_V_VENTASTERMINADAS]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_VENTASPROCESO :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_VENTASPROCESO AS
|
||||
SELECT
|
||||
NUMINF,
|
||||
CLAVE1,
|
||||
CLAVE2,
|
||||
CLAVE3,
|
||||
PERVENINI AS FECHA,
|
||||
DAY(PERVENINI) AS DIA,
|
||||
DATENAME(DW, PERVENINI) DIASEMANA,
|
||||
DATENAME(MONTH, PERVENINI) AS MES,
|
||||
YEAR(PERVENINI) AS ANO,
|
||||
FILIAL AS CENTRO,
|
||||
VENDEDOR,
|
||||
NUMTALON,
|
||||
PRODUTO AS CODIGO,
|
||||
DESC_PRODUTO AS PRODUCTO,
|
||||
GRUPO_PRODUTO AS GRUPOPRODUCTO,
|
||||
TIPO_PRODUTO AS TIPOPRODUCTO,
|
||||
DESC_COLECAO AS COLECCION,
|
||||
COR_PRODUTO AS COLOR,
|
||||
GRADE AS TALLA,
|
||||
CANESP AS INICIO,
|
||||
CANVENNET AS FINAL,
|
||||
VALVEN AS IMPORTE
|
||||
FROM
|
||||
RDX_V_VENTASEDI_RESUELTAS
|
||||
WHERE ((CANESP IS NOT NULL) OR (CANVENNET IS NOT NULL))
|
||||
AND NOT ((DESC_PRODUTO LIKE '%ERROR REFERENCIA%') AND ((VALVEN < 1) AND (VALVEN > 0))) /* QUITAR COMPOSTURAS */
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_V_VENTASPROCESO]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_VENTASPROCESOPENDIENTES :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_VENTASPROCESOPENDIENTES AS
|
||||
SELECT NUMTALON,
|
||||
CODIGO,
|
||||
COLOR,
|
||||
TALLA,
|
||||
SUM(ISNULL(INICIO, 0)) AS INICIO,
|
||||
SUM(ABS(ISNULL(FINAL, 0))) AS FINAL
|
||||
FROM RDX_V_VENTASPROCESO
|
||||
GROUP BY NUMTALON, CODIGO, COLOR, TALLA
|
||||
HAVING ((SUM(ISNULL(INICIO, 0)) <> 0) AND
|
||||
(SUM(ISNULL(INICIO, 0)) > SUM(ABS(ISNULL(FINAL, 0)))))
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_V_VENTASPROCESOPENDIENTES]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
|
||||
|
||||
--------------- SQL ---------------
|
||||
|
||||
--
|
||||
-- Definition for view RDX_V_REFERENCIA_GENERICA :
|
||||
--
|
||||
|
||||
CREATE VIEW RDX_V_REFERENCIA_GENERICA
|
||||
AS
|
||||
SELECT DISTINCT
|
||||
VENTAS.NUMINF,
|
||||
VENTAS.CLAVE1,
|
||||
VENTAS.CLAVE2,
|
||||
VENTAS.CLAVE3,
|
||||
VENTAS.PERVENINI AS FECHA,
|
||||
VENTAS.EANLUG AS CODCENTRO,
|
||||
VENTAS.FILIAL AS CENTRO,
|
||||
VENTAS.EANVEN AS CODVENDEDOR,
|
||||
VENTAS.VENDEDOR,
|
||||
VENTAS.NUMTALON,
|
||||
CODIGO_BARRA = ISNULL(PRODUTOS_BARRA.CODIGO_BARRA, VENTAS.EANART),
|
||||
CODIGO = ISNULL(PRODUTOS_BARRA.PRODUTO, VENTAS.PRODUTO),
|
||||
PRODUCTO = ISNULL(PRODUTOS.DESC_PRODUTO, VENTAS.DESC_PRODUTO),
|
||||
COLOR = ISNULL(PRODUTOS_BARRA.COR_PRODUTO, VENTAS.COR_PRODUTO),
|
||||
TALLA = ISNULL(PRODUTOS_BARRA.GRADE, VENTAS.GRADE),
|
||||
VENTAS.CANESP AS VTAPROCESO,
|
||||
VENTAS.CANVENNET AS VTAFINAL,
|
||||
VTATERM = VENTAS.CANVEN,
|
||||
VALTOT = VENTAS.VALVEN,
|
||||
REF.ESTADO,
|
||||
REF.FECHACAMBIO
|
||||
FROM RDX_V_VENTASEDI_ERRONEAS VENTAS
|
||||
LEFT OUTER JOIN RDX_REFERENCIA_GENERICA REF ON
|
||||
(REF.NUMINF = VENTAS.NUMINF AND REF.CLAVE1 = VENTAS.CLAVE1 AND
|
||||
REF.CLAVE2 = VENTAS.CLAVE2 AND REF.CLAVE3 = VENTAS.CLAVE3)
|
||||
LEFT OUTER JOIN PRODUTOS_BARRA on
|
||||
(PRODUTOS_BARRA.CODIGO_BARRA = REF.CODIGO_BARRA)
|
||||
LEFT OUTER JOIN PRODUTOS ON
|
||||
(PRODUTOS.PRODUTO = PRODUTOS_BARRA.PRODUTO)
|
||||
WHERE NOT ((VENTAS.VALVEN < 1) AND (VENTAS.VALVEN > 0)) /* QUITAR COMPOSTURAS */
|
||||
GO
|
||||
|
||||
GRANT SELECT, INSERT, DELETE, REFERENCES, UPDATE
|
||||
ON [RDX_V_REFERENCIA_GENERICA]
|
||||
TO [public]
|
||||
GO
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -1,69 +0,0 @@
|
||||
#------------------------------------------------------------------------------
|
||||
VERSION = BWS.01
|
||||
#------------------------------------------------------------------------------
|
||||
!ifndef ROOT
|
||||
ROOT = $(MAKEDIR)\..
|
||||
!endif
|
||||
#------------------------------------------------------------------------------
|
||||
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
||||
DCC = $(ROOT)\bin\dcc32.exe $**
|
||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
||||
#------------------------------------------------------------------------------
|
||||
PROJECTS = DataAbstract_D7.bpl BaseD7.bpl ControlesBaseD7.bpl Usuarios.bpl \
|
||||
Configuracion.bpl FicherosEDI.bpl VentasTerminadas.bpl VentasProceso.bpl \
|
||||
ReferenciaGenerica.bpl Recepciones.bpl Devoluciones.bpl Traspasos.bpl Stock.bpl \
|
||||
AdminPV.exe AdminPV_Server.exe CargaEDI.exe
|
||||
#------------------------------------------------------------------------------
|
||||
default: $(PROJECTS)
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
|
||||
AdminPV_Server.exe: Servidor\AdminPV_Server.dpr
|
||||
$(DCC)
|
||||
|
||||
BaseD7.bpl: Base\BaseD7.dpk
|
||||
$(DCC)
|
||||
|
||||
Usuarios.bpl: Usuarios\Usuarios.dpk
|
||||
$(DCC)
|
||||
|
||||
AdminPV.exe: Cliente\AdminPV.dpr
|
||||
$(DCC)
|
||||
|
||||
Configuracion.bpl: Configuracion\Configuracion.dpk
|
||||
$(DCC)
|
||||
|
||||
DataAbstract_D7.bpl: DataAbstract_D7\DataAbstract_D7.dpk
|
||||
$(DCC)
|
||||
|
||||
FicherosEDI.bpl: Modulos\FicherosEDI\Cliente\FicherosEDI.dpk
|
||||
$(DCC)
|
||||
|
||||
ControlesBaseD7.bpl: ControlesBase\ControlesBaseD7.dpk
|
||||
$(DCC)
|
||||
|
||||
VentasProceso.bpl: Modulos\VentasProceso\Cliente\VentasProceso.dpk
|
||||
$(DCC)
|
||||
|
||||
VentasTerminadas.bpl: Modulos\VentasTerminadas\Cliente\VentasTerminadas.dpk
|
||||
$(DCC)
|
||||
|
||||
CargaEDI.exe: CargaEDI\CargaEDI.dpr
|
||||
$(DCC)
|
||||
|
||||
ReferenciaGenerica.bpl: Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.dpk
|
||||
$(DCC)
|
||||
|
||||
Recepciones.bpl: Modulos\Recepciones\Cliente\Recepciones.dpk
|
||||
$(DCC)
|
||||
|
||||
Devoluciones.bpl: Modulos\Devoluciones\Cliente\Devoluciones.dpk
|
||||
$(DCC)
|
||||
|
||||
Traspasos.bpl: Modulos\Traspasos\Cliente\Traspasos.dpk
|
||||
$(DCC)
|
||||
|
||||
Stock.bpl: Modulos\Stock\Cliente\Stock.dpk
|
||||
$(DCC)
|
||||
|
||||
|
||||
@ -1,41 +0,0 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O-
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W+
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-GD
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-N".\"
|
||||
-LE"..\..\Output\Cliente"
|
||||
-LN"..\Lib"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
@ -1,468 +0,0 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=0
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=1
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=3
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=.\
|
||||
PackageDLLOutputDir=..\..\Output\Cliente
|
||||
PackageDCPOutputDir=..\Lib
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=3
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=3082
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.3.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview
|
||||
T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlUnitOutputDirectory]
|
||||
Count=1
|
||||
Item0=.\
|
||||
[HistoryLists\hlBPLOutput]
|
||||
Count=1
|
||||
Item0=..\..\Output\Cliente
|
||||
[HistoryLists\hlDCPOutput]
|
||||
Count=1
|
||||
Item0=..\Lib
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=0
|
||||
Freeze Message=The application seems to be frozen.
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
Show TerminateBtn=1
|
||||
TerminateBtn Operation=1
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=1
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesSection=1
|
||||
loSaveCPUSection=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModule=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpUser=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=0
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndCompressAllFiles=0
|
||||
edoShowExceptionDialog=1
|
||||
edoSendEmailChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=1
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoShowProcedureOffset=0
|
||||
boActivateCrashDetection=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error."
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_CustomDataCaption=1
|
||||
mtDialog_CustomDataCaption0="Other"
|
||||
Count mtDialog_CustomDataHeader=1
|
||||
mtDialog_CustomDataHeader0="Other Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModule=1
|
||||
mtLog_ExcModule0="Module"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpUser=1
|
||||
mtLog_CmpUser0="User"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
|
||||
|
||||
@ -1,112 +0,0 @@
|
||||
package BaseD7;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$RUNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
vcldb,
|
||||
GUISDK_D7,
|
||||
vcljpg,
|
||||
dbrtl,
|
||||
dsnap,
|
||||
vcldb,
|
||||
PNG_D7,
|
||||
PngComponentsD7,
|
||||
JvCoreD7R,
|
||||
JvStdCtrlsD7R,
|
||||
JvPageCompsD7R,
|
||||
cxLibraryVCLD7,
|
||||
dxThemeD7,
|
||||
cxEditorsVCLD7,
|
||||
cxDataD7,
|
||||
cxExtEditorsVCLD7,
|
||||
cxGridVCLD7,
|
||||
cxPageControlVCLD7,
|
||||
tb2k_d7,
|
||||
tbx_d7,
|
||||
vclx,
|
||||
vclactnband,
|
||||
designide,
|
||||
cxExportVCLD7,
|
||||
adortl,
|
||||
JvSystemD7R,
|
||||
dxPSCoreD7,
|
||||
dxPScxCommonD7,
|
||||
dxPScxGridLnkD7,
|
||||
cxIntlPrintSys3D7,
|
||||
dxBarD7,
|
||||
dxBarExtItemsD7,
|
||||
cxIntl5D7,
|
||||
DataAbstract_D7,
|
||||
dxPsPrVwAdvD7,
|
||||
ccpack70,
|
||||
JvMMD7R,
|
||||
JvCtrlsD7R,
|
||||
tee,
|
||||
frx7,
|
||||
fs7,
|
||||
frxe7,
|
||||
dxLayoutControlD7,
|
||||
dxComnD7,
|
||||
Jcl,
|
||||
JclVcl,
|
||||
JvAppFrmD7R,
|
||||
dxPSLnksD7,
|
||||
vclshlctrls,
|
||||
dclcxLibraryVCLD7,
|
||||
teeui,
|
||||
fsTee7,
|
||||
frxTee7,
|
||||
DataAbstract_D7;
|
||||
|
||||
contains
|
||||
uDataModuleBase in 'uDataModuleBase.pas' {dmBase: TDAClientDataModule},
|
||||
uEditorBase in 'uEditorBase.pas' {fEditorBase},
|
||||
uEditorGridBase in 'uEditorGridBase.pas' {fEditorGridBase},
|
||||
uEditorItem in 'uEditorItem.pas' {fEditorItem},
|
||||
uDataTableUtils in 'uDataTableUtils.pas',
|
||||
uEditorUtils in 'uEditorUtils.pas',
|
||||
uEditorPreview in 'uEditorPreview.pas' {fEditorPreview},
|
||||
uViewPreview in 'uViewPreview.pas' {frViewPreview: TFrame},
|
||||
uViewBase in 'uViewBase.pas' {frViewBase: TCustomView},
|
||||
uViewGridBase in 'uViewGridBase.pas' {frViewGridBase: TCustomView},
|
||||
uEditorDBBase in 'uEditorDBBase.pas' {fEditorDBBase: TCustomEditor},
|
||||
uEditorDBItem in 'uEditorDBItem.pas' {fEditorDBItem: TCustomEditor},
|
||||
uExceptions in 'uExceptions.pas',
|
||||
uViewBarraSeleccion in 'uViewBarraSeleccion.pas' {frViewBarraSeleccion: TFrame},
|
||||
uDBSelectionList in 'uDBSelectionList.pas',
|
||||
uConfigurarConexion in 'uConfigurarConexion.pas' {fConfigurarConexion},
|
||||
uBizInformesBase in 'uBizInformesBase.pas',
|
||||
uSysFunc in 'uSysFunc.pas',
|
||||
VARELA_Intf in '..\Servidor\VARELA_Intf.pas',
|
||||
uViewGrid in 'uViewGrid.pas' {frViewGrid: TCustomView},
|
||||
uIntegerList in 'uIntegerList.pas',
|
||||
schStockClient_Intf in '..\Modulos\Stock\Reglas\schStockClient_Intf.pas',
|
||||
schStockServer_Intf in '..\Modulos\Stock\Reglas\schStockServer_Intf.pas',
|
||||
uGridUtils in 'uGridUtils.pas';
|
||||
|
||||
end.
|
||||
@ -1,16 +0,0 @@
|
||||
/* VER150
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
#define uROWinInetHttpChannel_sxInvalidURLformat 65520
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
uROWinInetHttpChannel_sxInvalidURLformat, "Invalid URL format"
|
||||
END
|
||||
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@ -1,254 +0,0 @@
|
||||
unit uDataModuleBase;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Controls, PngImageList, JvComponent, JvNavigationPane, TBXSwitcher,
|
||||
TBXOffice2003Theme, Classes, ImgList, uROClient, uROBinMessage,
|
||||
uROServiceComponent, uRORemoteService, uROWinInetHttpChannel,
|
||||
DataAbstract_Intf, uDADataTable, uDABINAdapter, cxintl, cxIntlPrintSys3,
|
||||
JvAppStorage, JvAppRegistryStorage, SysUtils,
|
||||
JvComponentBase;
|
||||
|
||||
type
|
||||
TdmBase = class(TDataModule)
|
||||
ROChannel: TROWinInetHTTPChannel;
|
||||
SmallImages: TPngImageList;
|
||||
StyleManager: TJvNavPaneStyleManager;
|
||||
TBXSwitcher: TTBXSwitcher;
|
||||
cxIntl: TcxIntl;
|
||||
cxIntlPrintSys3: TcxIntlPrintSys3;
|
||||
ROMessage: TROBinMessage;
|
||||
DABINAdapter: TDABINAdapter;
|
||||
JvAppRegistryStorage: TJvAppRegistryStorage;
|
||||
RORemoteService: TRORemoteService;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
procedure ROChannelFailure(Sender: TROTransportChannel;
|
||||
anException: Exception; var Retry: Boolean);
|
||||
procedure ROChannelProgress(iSender: TObject; iType: TProgressType;
|
||||
iDirection: TProgressDirection; iTransferred, iTotal: Integer);
|
||||
private
|
||||
FOnThemeChange: TNotifyEvent;
|
||||
function GetAdapter: TDABINAdapter;
|
||||
function GetChannel: TROWinInetHTTPChannel;
|
||||
function GetCodigoEmpresa: Integer;
|
||||
function GetMessage: TROBinMessage;
|
||||
procedure InitStyleManager;
|
||||
procedure OnTBXThemeChange(Sender: TObject);
|
||||
procedure LeerConfiguracion;
|
||||
procedure SalvarConfiguracion;
|
||||
public
|
||||
function DarVersion : String;
|
||||
procedure ConfigurarConexion;
|
||||
function HayConexion(const ATargetURL : String = ''): Boolean;
|
||||
property Adapter: TDABINAdapter read GetAdapter;
|
||||
property Channel: TROWinInetHTTPChannel read GetChannel;
|
||||
property CodigoEmpresa: Integer read GetCodigoEmpresa;
|
||||
property Message: TROBinMessage read GetMessage;
|
||||
property OnThemeChange: TNotifyEvent read FOnThemeChange write
|
||||
FOnThemeChange;
|
||||
end;
|
||||
|
||||
var
|
||||
dmBase: TdmBase;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
Dialogs, TBX, TBXThemes, uConfigurarConexion, WinInet, Forms, Windows,
|
||||
JclFileUtils, VARELA_Intf, cxControls;
|
||||
|
||||
const
|
||||
SERVER_URL = 'http://localhost:8099/bin';
|
||||
IE_OFFLINE_ERROR = 'Unexpected error in WinInet HTTP Channel (2)';
|
||||
|
||||
{
|
||||
*********************************** TdmBase ************************************
|
||||
}
|
||||
procedure TdmBase.ConfigurarConexion;
|
||||
begin
|
||||
with TfConfigurarConexion.Create(NIL) do
|
||||
try
|
||||
TargetURL := ROChannel.TargetURL;
|
||||
if ShowModal = mrOk then
|
||||
begin
|
||||
ROChannel.TargetURL := TargetURL;
|
||||
ROChannel.Connected := False;
|
||||
ROChannel.Connected := True;
|
||||
SalvarConfiguracion;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
TBXSwitcher.OnThemeChange := OnTBXThemeChange;
|
||||
TBXSetTheme('Office2003');
|
||||
|
||||
LeerConfiguracion;
|
||||
end;
|
||||
|
||||
function TdmBase.GetAdapter: TDABINAdapter;
|
||||
begin
|
||||
Result := DABinAdapter;
|
||||
end;
|
||||
|
||||
function TdmBase.GetChannel: TROWinInetHTTPChannel;
|
||||
begin
|
||||
Result := ROChannel;
|
||||
end;
|
||||
|
||||
function TdmBase.GetCodigoEmpresa: Integer;
|
||||
begin
|
||||
Result := 1;
|
||||
end;
|
||||
|
||||
function TdmBase.GetMessage: TROBinMessage;
|
||||
begin
|
||||
Result := ROMessage;
|
||||
end;
|
||||
|
||||
procedure TdmBase.InitStyleManager;
|
||||
begin
|
||||
if not USE_THEMES then
|
||||
begin
|
||||
TBXSwitcher.EnableXPStyles := False;
|
||||
StyleManager.Theme := nptStandard;
|
||||
end
|
||||
else begin
|
||||
TBXSwitcher.EnableXPStyles := True;
|
||||
with StyleManager do
|
||||
begin
|
||||
if CurrentTheme is TTBXOffice2003Theme then
|
||||
begin
|
||||
case GetOffice2003Scheme of
|
||||
osBlue : Theme := nptXPBlue;
|
||||
osMetallic : Theme := nptXPSilver;
|
||||
osGreen : Theme := nptXPOlive;
|
||||
else
|
||||
Theme := nptStandard;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TdmBase.LeerConfiguracion;
|
||||
begin
|
||||
ROChannel.TargetURL := JvAppRegistryStorage.ReadString('ServerURL', SERVER_URL);
|
||||
end;
|
||||
|
||||
procedure TdmBase.OnTBXThemeChange(Sender: TObject);
|
||||
begin
|
||||
InitStyleManager;
|
||||
|
||||
if Assigned(FOnThemeChange) then
|
||||
FOnThemeChange(Sender);
|
||||
end;
|
||||
|
||||
procedure TdmBase.SalvarConfiguracion;
|
||||
begin
|
||||
JvAppRegistryStorage.BeginUpdate;
|
||||
try
|
||||
JvAppRegistryStorage.WriteString('ServerURL', ROChannel.TargetURL);
|
||||
finally
|
||||
JvAppRegistryStorage.EndUpdate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdmBase.ROChannelFailure(Sender: TROTransportChannel;
|
||||
anException: Exception; var Retry: Boolean);
|
||||
begin
|
||||
if (Pos(anException.Message, IE_OFFLINE_ERROR) > 0) then
|
||||
begin
|
||||
// Preguntar al usuario si se quiere conectar
|
||||
if InternetGoOnline(PAnsiChar(ROChannel.TargetURL), GetDesktopWindow(), 0) then
|
||||
Retry := True // Si el usuario pulsa en 'Conectar' reintentar la operación
|
||||
else
|
||||
Abort; // Si el usuario pulsa en 'Seguir desconectado' parar todo
|
||||
end
|
||||
else
|
||||
Retry := True;
|
||||
// raise Exception.Create(anException.Message);
|
||||
end;
|
||||
|
||||
procedure TdmBase.ROChannelProgress(iSender: TObject; iType: TProgressType;
|
||||
iDirection: TProgressDirection; iTransferred, iTotal: Integer);
|
||||
begin
|
||||
{ if iType = ptInProgress then
|
||||
begin
|
||||
if not Form1.Visible then
|
||||
Form1.Show;
|
||||
end
|
||||
else
|
||||
Form1.Hide;}
|
||||
end;
|
||||
|
||||
function TdmBase.DarVersion: String;
|
||||
var
|
||||
Obj : TJclFileVersionInfo;
|
||||
begin
|
||||
Obj := TJclFileVersionInfo.Create(Application.ExeName);
|
||||
try
|
||||
Result := 'v' + Obj.FileVersion;
|
||||
finally
|
||||
FreeAndNil(Obj);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TdmBase.HayConexion(const ATargetURL: String): Boolean;
|
||||
var
|
||||
AHTTPChannel: TROWinInetHTTPChannel;
|
||||
AROBinMessage: TROBinMessage;
|
||||
ACoService: TRORemoteService;
|
||||
begin
|
||||
AHTTPChannel := TROWinInetHTTPChannel.Create(Self);
|
||||
AROBinMessage := TROBinMessage.Create(Self);
|
||||
ACoService := TRORemoteService.Create(Self);
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
with AHTTPChannel do
|
||||
begin
|
||||
Name := 'HTTPChannel';
|
||||
UserAgent := 'AdminPV';
|
||||
if Length(ATargetURL) > 0 then
|
||||
TargetURL := ATargetURL
|
||||
else
|
||||
TargetURL := ROChannel.TargetURL;
|
||||
end;
|
||||
|
||||
with ACoService do
|
||||
begin
|
||||
ServiceName := 'srvLogin';
|
||||
Message := AROBinMessage;
|
||||
Channel := AHTTPChannel;
|
||||
end;
|
||||
|
||||
try
|
||||
(ACoService as IsrvLogin).Ping;
|
||||
Result := True;
|
||||
except
|
||||
Result := False;
|
||||
end;
|
||||
finally
|
||||
AHTTPChannel.Connected := False;
|
||||
FreeAndNil(AHTTPChannel);
|
||||
FreeAndNil(ACoService);
|
||||
FreeAndNil(AROBinMessage);
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
dmBase := TdmBase.Create(NIL);
|
||||
|
||||
finalization
|
||||
dmBase.Free;
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@ -1,60 +0,0 @@
|
||||
inherited fEditorDBBase: TfEditorDBBase
|
||||
Left = 295
|
||||
Top = 247
|
||||
Width = 660
|
||||
Height = 494
|
||||
Caption = 'fEditorDBBase'
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 652
|
||||
inherited Image1: TImage
|
||||
Left = 625
|
||||
Picture.Data = {00}
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 652
|
||||
end
|
||||
inherited StatusBar: TStatusBar
|
||||
Top = 441
|
||||
Width = 652
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
inherited actModificar: TAction
|
||||
OnUpdate = actModificarUpdate
|
||||
end
|
||||
inherited actGuardar: TAction
|
||||
OnExecute = actGuardarExecute
|
||||
end
|
||||
inherited actEliminar: TAction
|
||||
OnExecute = actEliminarExecute
|
||||
OnUpdate = actEliminarUpdate
|
||||
end
|
||||
inherited actPrevisualizar: TAction
|
||||
OnUpdate = actPrevisualizarUpdate
|
||||
end
|
||||
inherited actImprimir: TAction
|
||||
OnUpdate = actImprimirUpdate
|
||||
end
|
||||
inherited actRefrescar: TAction
|
||||
OnExecute = actRefrescarExecute
|
||||
OnUpdate = actRefrescarUpdate
|
||||
end
|
||||
inherited actAnterior: TAction
|
||||
OnExecute = actAnteriorExecute
|
||||
OnUpdate = actAnteriorUpdate
|
||||
end
|
||||
inherited actSiguiente: TAction
|
||||
OnExecute = actSiguienteExecute
|
||||
OnUpdate = actSiguienteUpdate
|
||||
end
|
||||
inherited actCancelarCambios: TAction
|
||||
OnExecute = actCancelarCambiosExecute
|
||||
end
|
||||
end
|
||||
object dsDataTable: TDADataSource
|
||||
Left = 40
|
||||
Top = 88
|
||||
end
|
||||
end
|
||||
Binary file not shown.
@ -1,51 +0,0 @@
|
||||
inherited fEditorDBItem: TfEditorDBItem
|
||||
Left = 450
|
||||
Top = 321
|
||||
Width = 664
|
||||
Height = 499
|
||||
Caption = 'fEditorDBItem'
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 656
|
||||
inherited Image1: TImage
|
||||
Left = 629
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 656
|
||||
inherited tbxMain: TTBXToolbar
|
||||
inherited TBXItem26: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXItem25: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TStatusBar
|
||||
Top = 446
|
||||
Width = 656
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 112
|
||||
inherited actEliminar: TAction
|
||||
ShortCut = 0
|
||||
end
|
||||
inherited actPrevisualizar: TAction
|
||||
OnExecute = actPrevisualizarExecute
|
||||
end
|
||||
inherited actImprimir: TAction
|
||||
OnExecute = actImprimirExecute
|
||||
end
|
||||
end
|
||||
inherited dsDataTable: TDADataSource
|
||||
Left = 48
|
||||
Top = 112
|
||||
end
|
||||
end
|
||||
@ -1,89 +0,0 @@
|
||||
unit uEditorDBItem;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorItem, ImgList, PngImageList, StdActns, ActnList, TBX,
|
||||
TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent,
|
||||
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
|
||||
uViewBase, JvAppStorage, JvAppRegistryStorage,
|
||||
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase;
|
||||
|
||||
type
|
||||
IEditorDBItem = interface(IEditorDBBase)
|
||||
['{497AE4CE-D061-4F75-A29A-320F8565FF54}']
|
||||
end;
|
||||
|
||||
TfEditorDBItem = class(TfEditorDBBase, IEditorDBItem)
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
procedure actPrevisualizarExecute(Sender: TObject);
|
||||
procedure actImprimirExecute(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
fEditorDBItem: TfEditorDBItem;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uBizInformesBase;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfEditorDBItem.actEliminarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
actCerrar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorDBItem.actPrevisualizarExecute(Sender: TObject);
|
||||
var
|
||||
Respuesta: Integer;
|
||||
aInf : IBizInformesAware;
|
||||
begin
|
||||
inherited;
|
||||
{ if Modified then
|
||||
begin
|
||||
if (Application.MessageBox('Se han producido cambios y no se puede previsualizar hasta que no se guarden.' + #10#13 +
|
||||
'¿Desea guardarlos ahora?', 'Atención', MB_YESNO) = IDYES) then
|
||||
actGuardar.Execute
|
||||
else begin
|
||||
Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'Información', MB_OK);
|
||||
Exit;
|
||||
end;
|
||||
end;}
|
||||
|
||||
if Assigned(dsDataTable.DataTable) and
|
||||
Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then
|
||||
aInf.Preview;
|
||||
end;
|
||||
|
||||
procedure TfEditorDBItem.actImprimirExecute(Sender: TObject);
|
||||
var
|
||||
Respuesta: Integer;
|
||||
aInf : IBizInformesAware;
|
||||
begin
|
||||
inherited;
|
||||
{ if Modified then
|
||||
begin
|
||||
if (Application.MessageBox('Se han producido cambios y no se puede imprimir hasta que no se guarden.' + #10#13 +
|
||||
'¿Desea guardarlos ahora?', 'Atención', MB_YESNO) = IDYES) then
|
||||
actGuardar.Execute
|
||||
else begin
|
||||
Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'Información', MB_OK);
|
||||
Exit;
|
||||
end;
|
||||
end;}
|
||||
|
||||
if Assigned(dsDataTable.DataTable) and
|
||||
Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then
|
||||
aInf.Print;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,194 +0,0 @@
|
||||
{*******************************************************}
|
||||
{ }
|
||||
{ Administración de puntos de venta }
|
||||
{ }
|
||||
{ Copyright (C) 2006 Rodax Software S.L. }
|
||||
{ }
|
||||
{*******************************************************}
|
||||
|
||||
unit uEditorGridBase;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||
JvNavigationPane, ActnList, TB2Dock, TB2Toolbar, TBX, TB2Item,
|
||||
ImgList, PngImageList, StdActns, TB2ExtItems, TBXExtItems, uViewGridBase,
|
||||
uEditorDBBase, DB, uDADataTable, Menus, JvFormAutoSize,
|
||||
uDAScriptingProvider, uDACDSDataTable, AppEvnts, JvAppStorage,
|
||||
JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls,
|
||||
JvComponentBase;
|
||||
|
||||
type
|
||||
IEditorGridBase = interface(IEditorDBBase)
|
||||
['{CB8CDE00-B225-4A1D-9A5C-EC6FBE2C854B}']
|
||||
end;
|
||||
|
||||
TfEditorGridBase = class(TfEditorDBBase, IEditorGridBase)
|
||||
tbxEditFiltro: TTBXEditItem;
|
||||
tbxFiltro: TTBXToolbar;
|
||||
TBXItem7: TTBXItem;
|
||||
GridPopupMenu: TPopupMenu;
|
||||
Modificar1: TMenuItem;
|
||||
Eliminar1: TMenuItem;
|
||||
N1: TMenuItem;
|
||||
Nuevo1: TMenuItem;
|
||||
TBXLabelItem1: TTBXLabelItem;
|
||||
actQuitarFiltro: TAction;
|
||||
N2: TMenuItem;
|
||||
Previsualizar1: TMenuItem;
|
||||
Imprimir1: TMenuItem;
|
||||
TBXSeparatorItem14: TTBXSeparatorItem;
|
||||
TBXItem33: TTBXItem;
|
||||
actDuplicar: TAction;
|
||||
TBXSeparatorItem15: TTBXSeparatorItem;
|
||||
TBXItem34: TTBXItem;
|
||||
Duplicar1: TMenuItem;
|
||||
procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
|
||||
procedure FormShow(Sender: TObject); override;
|
||||
procedure actPrevisualizarExecute(Sender: TObject);
|
||||
procedure actConfPaginaExecute(Sender: TObject);
|
||||
procedure actImprimirExecute(Sender: TObject);
|
||||
procedure actQuitarFiltroExecute(Sender: TObject);
|
||||
procedure actDuplicarUpdate(Sender: TObject);
|
||||
procedure JvFormStorageSavePlacement(Sender: TObject);
|
||||
procedure JvFormStorageRestorePlacement(Sender: TObject);
|
||||
procedure actRefrescarExecute(Sender: TObject);
|
||||
private
|
||||
FViewGrid : IViewGridBase;
|
||||
protected
|
||||
procedure SetViewGrid(const Value : IViewGridBase); virtual;
|
||||
function GetViewGrid: IViewGridBase;
|
||||
public
|
||||
property ViewGrid: IViewGridBase read GetViewGrid write SetViewGrid;
|
||||
constructor Create(AOwner : TComponent); override;
|
||||
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uDataModuleBase, uCustomEditor, cxGridTableView;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{
|
||||
********************************* TfEditorGridBase *****************************
|
||||
}
|
||||
destructor TfEditorGridBase.Destroy;
|
||||
begin
|
||||
FViewGrid := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfEditorGridBase.GetViewGrid: IViewGridBase;
|
||||
begin
|
||||
Result := FViewGrid;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.SetViewGrid(const Value: IViewGridBase);
|
||||
begin
|
||||
FViewGrid := Value;
|
||||
if Assigned(FViewGrid) then
|
||||
begin
|
||||
FViewGrid.PopupMenu := GridPopupMenu;
|
||||
FViewGrid.OnDblClick := actModificar.OnExecute;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.tbxEditFiltroChange(Sender: TObject; const Text: String);
|
||||
begin
|
||||
if Assigned(ViewGrid) then
|
||||
ViewGrid.Filter := Text;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid.ShowEmbedded(Self);
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.actPrevisualizarExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid.Preview;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.actConfPaginaExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid.PrintSetup;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.actImprimirExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ViewGrid.Print;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.actQuitarFiltroExecute(Sender: TObject);
|
||||
begin
|
||||
if Assigned(ViewGrid) then
|
||||
begin
|
||||
tbxEditFiltro.Text := '';
|
||||
ViewGrid.Filter := '';
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TfEditorGridBase.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
actModificar.ShortCut := ShortCut(VK_RETURN, []);
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.actDuplicarUpdate(Sender: TObject);
|
||||
begin
|
||||
if Assigned(dsDataTable.DataTable) then
|
||||
(Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
|
||||
and not (dsDataTable.DataTable.State = dsInsert)
|
||||
else
|
||||
(Sender as TAction).Enabled := False;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.JvFormStorageSavePlacement(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if Assigned(ViewGrid) then
|
||||
ViewGrid.StoreToRegistry(JvAppRegistryStorage.Root);
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.JvFormStorageRestorePlacement(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if Assigned(ViewGrid) then
|
||||
begin
|
||||
ViewGrid.RestoreFromRegistry(JvAppRegistryStorage.Root);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorGridBase.actRefrescarExecute(Sender: TObject);
|
||||
var
|
||||
FocusedRow, TopRow : Integer;
|
||||
begin
|
||||
TopRow := ViewGrid._FocusedView.Controller.TopRowIndex;
|
||||
FocusedRow := ViewGrid._FocusedView.DataController.FocusedRowIndex;
|
||||
ViewGrid._FocusedView.BeginUpdate;
|
||||
try
|
||||
inherited;
|
||||
finally
|
||||
ViewGrid._FocusedView.EndUpdate;
|
||||
ViewGrid._FocusedView.DataController.FocusedRowIndex := FocusedRow;
|
||||
ViewGrid._FocusedView.Controller.TopRowIndex := TopRow;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterClass(TfEditorGridBase);
|
||||
|
||||
finalization
|
||||
UnRegisterClass(TfEditorGridBase);
|
||||
|
||||
end.
|
||||
|
||||
@ -1,53 +0,0 @@
|
||||
inherited fEditorItem: TfEditorItem
|
||||
Left = 423
|
||||
Top = 273
|
||||
Width = 686
|
||||
Height = 535
|
||||
Caption = 'fEditorItem'
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 678
|
||||
Visible = False
|
||||
inherited Image1: TImage
|
||||
Left = 651
|
||||
end
|
||||
end
|
||||
object pgPaginas: TPageControl [1]
|
||||
Left = 0
|
||||
Top = 76
|
||||
Width = 678
|
||||
Height = 406
|
||||
ActivePage = pagGeneral
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
object pagGeneral: TTabSheet
|
||||
Caption = 'General'
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 678
|
||||
inherited tbxMain: TTBXToolbar
|
||||
inherited TBXItem5: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||
inherited TBXItem10: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TStatusBar
|
||||
Top = 482
|
||||
Width = 678
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 104
|
||||
inherited actEliminar: TAction
|
||||
ShortCut = 0
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -1,935 +0,0 @@
|
||||
inherited fEditorPreview: TfEditorPreview
|
||||
Left = 521
|
||||
Top = 340
|
||||
Caption = 'Previsualizar'
|
||||
WindowState = wsMaximized
|
||||
OnDestroy = FormDestroy
|
||||
OnResize = FormResize
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Top = 75
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Height = 75
|
||||
inherited tbxMain: TTBXToolbar
|
||||
Top = 49
|
||||
DefaultDock = TBXDock
|
||||
Visible = False
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
DockPos = -24
|
||||
inherited TBXSubmenuItem5: TTBXSubmenuItem
|
||||
Visible = False
|
||||
end
|
||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||
Visible = False
|
||||
end
|
||||
object TBXSubmenuItem2: TTBXSubmenuItem [3]
|
||||
Caption = '&Ir'
|
||||
object TBXItem47: TTBXItem
|
||||
Action = actPrimeraPagina
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem43: TTBXItem
|
||||
Action = actPaginaAnterior
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem44: TTBXItem
|
||||
Action = actPaginaSiguiente
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem45: TTBXItem
|
||||
Action = actUltimaPagina
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
end
|
||||
inherited TBXSubmenuItem6: TTBXSubmenuItem
|
||||
Caption = '&Zoom'
|
||||
inherited TBXItem18: TTBXItem
|
||||
Action = actZoomIn
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem38: TTBXItem
|
||||
Action = actZoomOut
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXSeparatorItem19: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem48: TTBXItem
|
||||
Action = actAnchoPagina
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem46: TTBXItem
|
||||
Action = actTodaPagina
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
end
|
||||
object TBXSubmenuItem3: TTBXSubmenuItem [5]
|
||||
Caption = '&Herramientas'
|
||||
object TBXItem49: TTBXItem
|
||||
Action = actToolHand
|
||||
Checked = True
|
||||
GroupIndex = 1
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem50: TTBXItem
|
||||
Action = actToolZoom
|
||||
GroupIndex = 1
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
end
|
||||
end
|
||||
object TBXToolbar1: TTBXToolbar
|
||||
Left = 0
|
||||
Top = 23
|
||||
Caption = 'TBXToolbar1'
|
||||
DefaultDock = TBXDock
|
||||
DragHandleStyle = dhNone
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 2
|
||||
object TBXItem39: TTBXItem
|
||||
Action = actImprimir
|
||||
DisplayMode = nbdmImageAndText
|
||||
Images = SmallImages
|
||||
end
|
||||
object TBXSeparatorItem18: TTBXSeparatorItem
|
||||
end
|
||||
object tbxMano: TTBXItem
|
||||
Action = actToolHand
|
||||
Checked = True
|
||||
DisplayMode = nbdmImageAndText
|
||||
GroupIndex = 1
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXSeparatorItem14: TTBXSeparatorItem
|
||||
end
|
||||
object tbxZoom: TTBXItem
|
||||
Action = actToolZoom
|
||||
DisplayMode = nbdmImageAndText
|
||||
GroupIndex = 1
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem42: TTBXItem
|
||||
Action = actTodaPagina
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem41: TTBXItem
|
||||
Action = actAnchoPagina
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem40: TTBXItem
|
||||
Action = actZoomOut
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object cbZoom: TTBXComboBoxItem
|
||||
Caption = 'Zoom'
|
||||
ReadOnly = True
|
||||
OnItemClick = cbZoomItemClick
|
||||
end
|
||||
object TBXItem37: TTBXItem
|
||||
Action = actZoomIn
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXSeparatorItem17: TTBXSeparatorItem
|
||||
end
|
||||
object TBXSeparatorItem16: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem35: TTBXItem
|
||||
Action = actPrimeraPagina
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem34: TTBXItem
|
||||
Action = actPaginaAnterior
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem33: TTBXItem
|
||||
Action = actPaginaSiguiente
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXItem36: TTBXItem
|
||||
Action = actUltimaPagina
|
||||
Images = PreviewSmallImageList
|
||||
end
|
||||
object TBXSeparatorItem15: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem7: TTBXItem
|
||||
Action = actCerrar
|
||||
Images = SmallImages
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TStatusBar
|
||||
Panels = <
|
||||
item
|
||||
Width = 150
|
||||
end
|
||||
item
|
||||
Width = 50
|
||||
end>
|
||||
Visible = True
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 104
|
||||
inherited actNuevo: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actModificar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actGuardarCerrar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actGuardar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actEliminar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actConfPagina: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actPrevisualizar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actImprimir: TAction
|
||||
OnExecute = actImprimirExecute
|
||||
end
|
||||
inherited actDeshacer: TEditUndo
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actCortar: TEditCut
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actCopiar: TEditCopy
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actPegar: TEditPaste
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actSeleccionarTodo: TEditSelectAll
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actLimpiar: TEditDelete
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actBuscar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
inherited actCancelarCambios: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList
|
||||
Left = 43
|
||||
Top = 104
|
||||
end
|
||||
inherited LargeImages: TPngImageList
|
||||
Left = 75
|
||||
Top = 104
|
||||
end
|
||||
inherited JvFormStorage: TJvFormStorage
|
||||
Left = 376
|
||||
Top = 136
|
||||
end
|
||||
inherited JvAppRegistryStorage: TJvAppRegistryStorage
|
||||
Left = 408
|
||||
Top = 136
|
||||
end
|
||||
object PreviewActionList: TActionList
|
||||
Images = PreviewSmallImageList
|
||||
Left = 344
|
||||
Top = 104
|
||||
object actPrimeraPagina: TAction
|
||||
Category = 'Ver'
|
||||
Caption = 'Primera p'#225'gina'
|
||||
ImageIndex = 0
|
||||
OnExecute = actPrimeraPaginaExecute
|
||||
end
|
||||
object actUltimaPagina: TAction
|
||||
Category = 'Ver'
|
||||
Caption = #218'ltima p'#225'gina'
|
||||
ImageIndex = 3
|
||||
OnExecute = actUltimaPaginaExecute
|
||||
end
|
||||
object actPaginaAnterior: TAction
|
||||
Category = 'Ver'
|
||||
Caption = 'P'#225'gina anterior'
|
||||
ImageIndex = 1
|
||||
OnExecute = actPaginaAnteriorExecute
|
||||
end
|
||||
object actPaginaSiguiente: TAction
|
||||
Category = 'Ver'
|
||||
Caption = 'P'#225'gina siguiente'
|
||||
ImageIndex = 2
|
||||
OnExecute = actPaginaSiguienteExecute
|
||||
end
|
||||
object actZoomIn: TAction
|
||||
Category = 'Ver'
|
||||
Caption = 'M'#225's zoom'
|
||||
ImageIndex = 8
|
||||
OnExecute = actZoomInExecute
|
||||
end
|
||||
object actZoomOut: TAction
|
||||
Category = 'Ver'
|
||||
Caption = 'Menos zoom'
|
||||
ImageIndex = 9
|
||||
OnExecute = actZoomOutExecute
|
||||
end
|
||||
object actTodaPagina: TAction
|
||||
Category = 'Ver'
|
||||
Caption = 'Toda la p'#225'gina'
|
||||
GroupIndex = 1
|
||||
ImageIndex = 4
|
||||
OnExecute = actTodaPaginaExecute
|
||||
end
|
||||
object actAnchoPagina: TAction
|
||||
Category = 'Ver'
|
||||
Caption = 'Ancho de p'#225'gina'
|
||||
GroupIndex = 1
|
||||
ImageIndex = 5
|
||||
OnExecute = actAnchoPaginaExecute
|
||||
end
|
||||
object actToolHand: TAction
|
||||
Category = 'Herramientas'
|
||||
AutoCheck = True
|
||||
Caption = 'Mano'
|
||||
GroupIndex = 1
|
||||
ImageIndex = 10
|
||||
OnExecute = actToolHandExecute
|
||||
end
|
||||
object actToolZoom: TAction
|
||||
Category = 'Herramientas'
|
||||
AutoCheck = True
|
||||
Caption = 'Zoom'
|
||||
GroupIndex = 1
|
||||
ImageIndex = 6
|
||||
OnExecute = actToolZoomExecute
|
||||
end
|
||||
end
|
||||
object PreviewSmallImageList: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000000F14944415478DA
|
||||
C5D2A10EC2301006E01B4F30893C39C59619EC70937B843D014C829B0339DEA0
|
||||
1289638EC9C9E1160C9553A43882A0B45DC80223A30112CE346DFA7F697A6770
|
||||
CEE19B327E0A8C663BB5A14506348D8CE7CBDEB4E0DBB96D7402518010C5A405
|
||||
C8B0840F9B493710FA08F1E21190E1D0B7C5F9F23D10780849D200F7705102AC
|
||||
D73A8023005203F73065A08022D3003C0B81AC08A0E3810C33115600156BAE01
|
||||
3888E2A9F50BDC71CE07EE105875025A01B09268007D01A4CD1F48E4DAB3809D
|
||||
657F35001440963E764122C78BA50798268ACF6ACF8142F6F97B400E8B9AC617
|
||||
93887EC23B814FEAFFC00D0E3CD3E1153EE1F30000000049454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000000A34944415478DA
|
||||
63FCFFFF3F032580912606303232628839545CF8BFBF5D9F912C03409A1F5C38
|
||||
C0707F7B3EE90680342778E83334744C24DD0098E60B371818366C20D10098E6
|
||||
071F18C0065C384082018E9517C19A3F0035830D7800A44F90E802A3BC13FFF5
|
||||
8CCC193EBCF8C8F0E00503C3871B0B480F039021FF9834183EFC00721E906100
|
||||
CC9077BF34C837006EC8AD13E41B00020A1E13FE136D002960E00D000045F48A
|
||||
E13771044B0000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000000A44944415478DA
|
||||
63FCFFFF3F03258091260638565EFC7FA0C380115D1C9B5A9C067CFAF683E1DC
|
||||
240B46B20D48F0D06798B4EE248A21241BF0E10703C3A26D0843483220C0419F
|
||||
E1C10706860F407CE91AC410920C70B0506078F0829FE1C2838F0C1F1E3C009A
|
||||
7480E1FEF67C46A20D30D0506038708301AEF9C18E02D25C202020C070E1C207
|
||||
B86692C3800118800F6E2034936CC0830BA89A493680A294480A18780300CF22
|
||||
A8E18A4EF6A30000000049454E44AE426082}
|
||||
Name = 'PngImage3'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000000EC4944415478DA
|
||||
C5D2A10EC2301405D0DB2FA012F9246E95C8E290FB04FE8049703890842F5850
|
||||
2882021CB5185210044725B220086E74908D40C252020937A97BF7A479792C49
|
||||
127C13F673A0D65E27AA27D8EBA06CE97C70D10D5821703A5FB01A54D92B1085
|
||||
84A813633F6B16038D7A80C178F984A440A34EE8F43C017B0186D3079202A124
|
||||
F4FB1E402803180B58F736DB3B72038403620F405609E65082364758639CA440
|
||||
42425608F1C803106E50ED9097CD3CBAFD40106132F10038E7D0DAE6E56C07A2
|
||||
EC80B90700B740B37B9433801CA07C00A39FCB19C039412B0FE0DD25A6709A42
|
||||
E0D3FC1FB8020318D0E1923D9C4B0000000049454E44AE426082}
|
||||
Name = 'PngImage2'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD2520000017E4944415478DA
|
||||
630C9B1C9ACFC0C03081813C50C00834E07F7E400E51AAFFFEFBC3F0EBDF7786
|
||||
9F7F2138C9268F01C58073FBBF113444C9EA0B58F38469B3192E2DBB8C69404E
|
||||
AC07568DBFFE303058F86431D44EB264F8053460DACC25B80DA89FBC1FC38092
|
||||
144706FBC02C86F27E03B00BE6CE594B9C0B4036FFFC0DA15D43B31872BB95C0
|
||||
062C5FB09B341764C4383278476631A4754882BDB076F111FC2E40B619860363
|
||||
B318125A05187E026362CBD2B3A4B92036D491212C218B21B2999DE1C7DF6F0C
|
||||
7B565CC76E4072B807D8E6BFFF1036FFFE0BA16352B218021BFE82C3E0F0EA07
|
||||
080372FC3218FEFEFFCD70E5D07F8698200F86FE79982E08F4756448CAC862F0
|
||||
AA05A5836F0CA7D6BD421890E6130F36F5DE311E86303F0F145B616C1048C9CC
|
||||
6270AE7A05567B71E3678401F19E6160C1A7274519E62DDD843725DA943F04BB
|
||||
E0C696BF080322DC7CC151034BE390F4FE0DCA47D07FFEFF01D37F81F4EDAD8C
|
||||
0803829C5DC04993540033207F57D36EB2B2B35B9D6B0100103839527F8C36D7
|
||||
0000000049454E44AE426082}
|
||||
Name = 'PngImage5'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001714944415478DA
|
||||
630C9B1C9ACFC0C03081813C50C00834E07F7E400E51AAFFFEFBC3F0EBDF7786
|
||||
9F7F2138C9268F016EC099973B18F253E4198E6ED6C4A9D9CEFF36C3C4390F19
|
||||
64793519264C9BCD7069D9658801D6962A60CDC40290216B171F411880CF05BF
|
||||
A0CE05D17E619FC09A05D8C519E6CE598B6AC0B9FDDF8876018BEE6986E50B76
|
||||
631A9013EB8153D3AF3F0C0C3F7F3330D807663124B40A607A016640FDE4FD58
|
||||
0D2849716458B86607C3BCA59B18229BD919B62C3D4B9C0B603683E8E51B2006
|
||||
0436FC65D8B3E23A692EC888716458BB05628057ED1786C3AB1F200CC8F1CB60
|
||||
B878F0178A0B906D86E1CD3B20063857BD6238B5EE15C280349F7886EB8799F1
|
||||
BA2036D49161C76E880136E50F192E6EFC8C3020DE338CE1DE311EB001D86CFE
|
||||
FD1742EFDB0F31C0B4E43AC38D2D7F110644B8F9323C3D29CA901CEE81A219A6
|
||||
11C63E7604628051F16586DB5B1911060439BB304C9BB984E88404033003F277
|
||||
35ED262B3BBBD5B9160000C8E01B524AB937870000000049454E44AE426082}
|
||||
Name = 'PngImage4'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
61000000097048597300000AEB00000AEB01828B0D5A000002E64944415478DA
|
||||
8D936B4893511CC6FF67DA74BAC9BC9478C9357338CC4B0EBC1709F929A25414
|
||||
A13E48082D8CFC20267E1B925DD004B3120C75919AA99B5DADD485E56DA2791D
|
||||
739ABA2D9DB7A953379D6EEF5EDFDE14859C810F3C5F0ECFF33BFFF38783E0FF
|
||||
425902A13B668448DCB4C5B658709C40D8F0A4563120A97FB1B61F3AAC291008
|
||||
EDB1630ED7ECECA97C6F7F6FAEABB72BCDB46902B54CAD5BD4CCF7AAC68772C5
|
||||
6F8A06C8286E05484EAEB3F10BB6A49FE2B2F2C2628318E0C440063300410050
|
||||
910596D4B344F7BBB63169FBA7B4D6E65AA915205320E47A9EF4ECB89A7CCE85
|
||||
CDA021950141E2BD2E9049645029E683BB3301EB2AE5F657E15B4955457EAA15
|
||||
205B5095CD8BE33D0C8BE0523C1002B50120E5C12EE03509D8A60078386EC1B7
|
||||
F2066DA3A89C8FFE1DBF9076CADFADFA4A467C829E70829C82AE43B79B97150D
|
||||
B3522956F3F4C9B3030001DD87C3AE49C84CBCBC646640FCA5D29DF3A0B8A09D
|
||||
09F62469E1C3A4B4D7F2EAF1A3DA834FA064DC2D2D8E4DB9984E63F922ED2A02
|
||||
161DE04EE1EE13D4ED7CB090CB5CD9C6E1439978A3FE655189D50E52D37263CE
|
||||
4486374725C5D2168DF6C88E2CE414ED02942400030246C6A7087149C5688DF0
|
||||
7EC63EE0F38DB3C79974A8ECB70B7459649E0F64F17854767800C588D390830D
|
||||
02172A19226F5E58D211DFEB9AF40DD5CFCB46E5DD0568AFECC6C43FFA470747
|
||||
2CEBF420D2048072C57ED3CB2F846005F9D19CBD4E80C96882B9F16942D1DBA7
|
||||
FBD15C2B960F77159355056AB919E0E3E24C17F9C58487E1737218966D429386
|
||||
01F235CB8589854D87D3DCD0448613938D61669B89B1C1099552DEB9AA9B9790
|
||||
E559D204FA99C5EBF78D0A0FB5D5ABA0BF6F0D7AA66CA1757CC4B862D808E9D6
|
||||
9826C990236927D236A4B748AF92C6F6FF82243F890861AE817CC8001D6A0A74
|
||||
2A478D1AFD7A926CC6FC058E20743BEDFA2F1ECC70B45A0CDA2614CB5AFDFAAD
|
||||
BE19B3E828E51D009FCFE710C6F546ED680F473DFF3B7E70DAFCFEA8E5BFFA03
|
||||
503A4EA60D6AAC070000000049454E44AE426082}
|
||||
Name = 'PngImage6'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
61000000097048597300000AEB00000AEB01828B0D5A000002E44944415478DA
|
||||
8D936B48D35118C6DFB379D9D4C9BC94A8CB399B38CC4B0E9C9A45427D8C5251
|
||||
82FA2021B430F08398F4258650145A615642A12E4A31AF6565795958A69B685E
|
||||
C7BCB4B92D9D3AA74E7771BAFD37FFFDA728E40A7CE0FDF6FC9E73DE877310FC
|
||||
5FA850200CC22C90ECB06EB1EC76870347D8F88C6E7244D4F8D2B06FFA172910
|
||||
082998BBD7154F8A079F11C5E0043002A8D64D2BA8A56AFDB2463BA8928F1537
|
||||
BF2D1B21AC0E9780ECEC06323BCE9E17CE61DE4D4C8BA5812F0D996C00380EE0
|
||||
81ECB0A25EC0FBDFF74C4B7E7CCAEDEEAC97B8041408849C906321BD97B24FFB
|
||||
B36854A43221106B01ECCE007780203F1CCC2AE576BBF09DA8A6BA24C725A048
|
||||
5053C43DCFBD9F98C4210523046A13C0D0320099BCBBF0360920D87B0BBE56B5
|
||||
E8DA9AAAF8E8EFEB3FA2864705D65ECC4FCF30E2BE70BB54ECD28F542485D676
|
||||
3E2C482458DDD327CF0E04087CC222597519059917566C34B8F358BC031C94A8
|
||||
8B0F339241FBEB870FEA0FAE40CABFF5A23CEDF2B93C2A3302E9D611307D0002
|
||||
29006EC4D529A4DD2ED6B61DF0A1B279A3F15559854B0739B9C5A92792799D29
|
||||
5969D4650B05791200C31B804A74E046B831C061423E8B3757544FD509EFE5EF
|
||||
077CBE76F208DD07DE0C7BC6F82FD3CFC430B95C0F162F9A64715091171981BF
|
||||
0761224E5E5AD1E3DF1A3A8C2DB5CF2BA764FDA5680F0EA43B3E469D8A4B5AD5
|
||||
1BA149130DCA35CA66283B1E67C6B2A97EA147C16AB1C2A27C0E9F1C1CD27FEF
|
||||
AC6F968D8BCB097412755D8F0EF3F7F36962A7F2121D8B3218976E4287860632
|
||||
83FDAC6269D3EB38272193E64B6761988DAC981E55A894B2BE75BD5644C00BC4
|
||||
E0E867217738228597E06654C1F090010666DDA05B3E6159336DC4F76BAC3384
|
||||
8968007C8971BE842D62D6C159C5DE5F109564E1F17403C8C64CD0AB26419F72
|
||||
CAA2319AB3A4F3B62F7008A19BB9577F71613E52A7C3A04731B9AA339A6F0CCD
|
||||
DB9A0E03EF04F0F9FC48DC626ED34D0D44AAB5BFD347E76CAD87859DFA0386D8
|
||||
3FA68502A9830000000049454E44AE426082}
|
||||
Name = 'PngImage7'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000000E14944415478DA
|
||||
63FCFFFF3F032580717019C0C8C8086787B4DDF8FFEBD76F869F3F7F33EC6C37
|
||||
824BA05B88D300BF86CBFFA3A35419A6CFB8C870A0CF9C7403DC2BCFFD8F88D4
|
||||
66983DEB34C3B12936C41910DA7E13EE6C100E0D37609837E7180358EC0708FF
|
||||
6278B0218011A701FE8D57C0CEFEF68391E1DB770630FD1D88BF7C07E26F8C0C
|
||||
6B17AE6178B1230CB7011E55E7FF836C86B9C23FC48661C9BC5D609B7F40F187
|
||||
0331B80D400E03DDF85DFF3D039D1856CEDFCCF0706320E981A816BEF5BF8BBF
|
||||
07D8D92F7786936E80BCFFFAFF30677F3C184B9C01E480616000007F3BB6E1E0
|
||||
0AF3B40000000049454E44AE426082}
|
||||
Name = 'PngImage8'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000000714944415478DA
|
||||
63FCFFFF3F03258071D4002A1B10DA7E13CC01897DFDFA83E1DBB71F60FAFBB7
|
||||
9F0C9F3F7F03E3F7FBA219F11A1013A500E77FFCCCC8F0EA1D23C38BB74C0CCF
|
||||
5E3131AC9E3397E1F7E914DC0684B4DDF88FCBE62F9FBF33FCF9F397E1FFF974
|
||||
DC060C7C208E1A401E0000EFE473E127272ED00000000049454E44AE426082}
|
||||
Name = 'PngImage9'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001C74944415478DA
|
||||
A5934D4B5B411885CF5D9982288874EB0F306E5CBA9A646514E33536264AE456
|
||||
5184528AE0424A043751FCC08228E24788894631D5D6D12C5C08EA2A74512AD8
|
||||
E4070822EE44A3E255CC386F24264AAE5978609881B9E739EFCCBC571142E03D
|
||||
5208A0284ADECDA08FB9E4342087EFF3C04124772F139C1790319614C3DCE456
|
||||
B116E2D0EF11CF051502FCD7BA54F37A98C3E951110E70783A5584FC3C2E0155
|
||||
0501DB534C34389F92DD9A342E7068DD2A96FC1CD296AE44F3EE470C019B934C
|
||||
A8AE6CF2E29C9C3B6C5809EEC0EEA84194C7E212506508D8F8C144735B36D93F
|
||||
232B69B72212DE43BDBD1A5BBFFFA1C7B7AF3C03424396C6B252F08714709184
|
||||
F94311E22DEDD9E4C0FC0E9CEE1AFC8AC4505B5789E876025F867300D1694BFA
|
||||
CCA49FCB1C046AD5B2C94B813D383E3D25334B0576778FF17524074047C8944D
|
||||
A2B3BB3C36E8BA8E3BFD363DEEEF74DC5C5F2179718ED89F4B7C1B7B0520AD8E
|
||||
3241C9F4B191F93A798943F90EBDE37900A4908F0987CB6A6826FD3D02FA260C
|
||||
0024FF201374DBF9CCA767B7F28E4CF07C7F03409AF532411796319391747266
|
||||
C2C77298651F240AFE4C53FD4CA4E48BA464FBD1CBD09ACCB29D132F5AF93D7A
|
||||
04D7A238F0C903C3480000000049454E44AE426082}
|
||||
Name = 'PngImage10'
|
||||
Background = clWindow
|
||||
end>
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
Left = 371
|
||||
Top = 104
|
||||
Bitmap = {}
|
||||
end
|
||||
object PreviewLargeImageList: TPngImageList
|
||||
Height = 24
|
||||
Width = 24
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000001894944415478DA
|
||||
63FCFFFF3F032D01E3F0B4C0B1F2228AE0810E03467C8638545CF8BFBF5D1FAB
|
||||
1A9C1604D9E980D97D93A6303CD851C088CFF007170E30DCDF9E4F7D0B408683
|
||||
D481D450DD0298E1DF7EFE679831732A752D4036FCDBAF7F0C8BE64F27CF82AF
|
||||
3FFE33CC9C3515C50274C3BF03E9D5CB66906E81BB9936C3E7EFFF18962D9E0E
|
||||
B7009BE1DF7FFD67D8B26626E91658E96A022DF8CFB079CD0CB005B80CFFF693
|
||||
8161DF66322CD055D160F80C0CA2035B663228183830E032FC0B50CDA9DDB348
|
||||
B74041469DE1D3B77F0CE7F6CD06FBC028EFC47F1F6B430CC3BFFEF8C770F5F0
|
||||
1CD22D10125265F8F0F53FC3BD9373E07100B2C44A4F1FC5F0AF400B1F9C9A4B
|
||||
BA054CEC2A0C1F813E787B791E4A2A0259A222AF07371C64D19B4BF348B7E0F3
|
||||
5F25A00FFE31FCBDB700231F802CE113D0061B0EC23F6ECD27DD82C79F1418FE
|
||||
FE03721E2CC09A9341967C63D064F8018C0F901A922D78F04101C2C16101CC92
|
||||
77BF34686701DC925B27C8B0005804C3003E0B4040C163C27F922CA02618B580
|
||||
200000A0D9B0E00198A13A0000000049454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000000FA4944415478DA
|
||||
63FCFFFF3F032D01E3F0B680919111AF66878A0BFFF7B7EBE35544B60520C31F
|
||||
5C38C0707F7B3EF52D00191E64A7C3D037690AF52D8019FEEDE77F861933A752
|
||||
D70264C3BFFDFAC7B068FE74EA59806EF87720BD7AD90CEA5880CDF0EFBFFE33
|
||||
6C593393720B7019FEED2703C3BECD145AE0587911A7E15F7EFC6738B57B16E5
|
||||
3E30CA3BF1DFC7DA10C3F0AF3FFE315C3D3C873A7100B2C44A4F1FC5F0AF400B
|
||||
1F9C9A4BBD5404B244455E0F6E38C8A23797E651371F802CE113D0061B0EC23F
|
||||
6ECDA77E4E0659F28D4193E107303E181E2CA04D5904B2E4DD2F0DDA5900B7E4
|
||||
D609DA5900020A1E13FE53640135C0A805040100D3AF21E00AC8E9BE00000000
|
||||
49454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD2520000012E4944415478DA
|
||||
63FCFFFF3F032D01E3F0B6C0B1F2E2FF031D068CF80C20E440BC16D8955FF9FF
|
||||
F5C7578673932C705A429105B6400BF2037518DA979FC469094516D8945DFD5F
|
||||
10A40D66E3B284220BACCBAEFD2F0CD202B37FFDF9CFD0BBFA148625145A701D
|
||||
688126D8F0EFBFFE337CFBF99F61C18E33289650648155E98DFF39FEEA70C3C1
|
||||
F8D73F862D47CFC32DA1C802CBD29BFF533C55510CFFFE13E29B63972E822DA1
|
||||
C8028B929BFFA39D55300CFFF69381E1CB8FFF0CA776CF62B8BF3D9F916C0BCC
|
||||
4B6EFD0FB251C269F8831D0594F9C0ACF8F67F4F73799C86531C07A6C577FE3B
|
||||
1AC8E2349C620B4C8AEEFEB7D496C66938152CB8F75F5F450AA7E1145B605C74
|
||||
FFBF8A8C044EC329B6C0A8F0C1FFF73736E2349C620B0C0B1FFEBF30418176F5
|
||||
0135C0A80504010058FB49E08BBA20470000000049454E44AE426082}
|
||||
Name = 'PngImage3'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000001C24944415478DA
|
||||
63FCFFFF3F032D01E3F0B4C0B1F2E2FF031D068CF834DA965D46D178A85307AB
|
||||
7AAC16D8955FF9FFF5C7578673932C705A02B220D44113CCEE9B3485E1FEF67C
|
||||
E22DB0055A901FA8C3D0BEFC244E4B28B2C0A6ECEAFF82206D301B9725145960
|
||||
5D76ED7F61901698FDEBCF7F86DED5A7302CA1D082EB400B34C1867FFFF59FE1
|
||||
DBCFFF0C0B769C41B10466C1D71FFF1966CE9A4A9A0556A537FEE7F8ABC30D07
|
||||
E35FFF18B61C3D0FB7046481978506C3E7EFFF18962D9E4E9A0596A537FFA778
|
||||
AAA218FEFD27C437C72E5D045B02B2C0565F0D68C17F86CD6B6690668145C9CD
|
||||
FFD1CE2A18867FFBC9C0F0051824A776CF6290D5736630505365F80CE41FD832
|
||||
93340BCC4B6EFD0FB251C269F8831D05601F28CBA9307CFAF68FE1DCBED9A459
|
||||
60567CFBBFA7B93C4EC36171202AA2C4F0E1EB7F867B27E790668169F19DFF8E
|
||||
06B2380D8759C0CAA9C8F011E883B797E791668149D1DDFF96DAD2380D8759F0
|
||||
EDBF3CD007FF18FEDE5B40AA05F7FEEBAB48E1341C66C1B32FB20C7FFF01390F
|
||||
48B4C0B8E8FE7F1519099C86C32C78FC4916C221D502A3C207FFDFDFD888D370
|
||||
8A2D302C7CF8FFC2040582F5C1E34B7BE17C922CA02618B5802000000BFCA8E0
|
||||
E6ADB53E0000000049454E44AE426082}
|
||||
Name = 'PngImage2'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000002344944415478DA
|
||||
63FCFFFF3F032D0123C882F02961F940F6042A9B5DB03267D5449805FFF30372
|
||||
C832E51FC35F863FFF7E31FCFEF713887F41D9BF18526C0A19DEBF7ACF489105
|
||||
7FFE430C86190AA3A74C5FC87069D965FC169CDBFF8D24CB642C5EC32D993173
|
||||
397116E4C47AE035F4EFBFFF0CBFFFFC65B0F2CB63A89C680CF7C1DCD96B29B7
|
||||
0066F89C957B18E62DDDC450DAAF0BF7C1C2B99B89B7A07EF27E9C9614275932
|
||||
2C5A77006C4141AF3ADC07CBE6EF24DF073097FFFAFD87E1F7EFBF0CCB371F06
|
||||
5B90D3AD08F7C1AA85FBA9E383CC48638635DB8F812D48ED9060F8FD1F62C1C6
|
||||
C52748F701BACB21ECBF0C9BF69C045B90D02E04CF0FDB969EA78E0FA2FD7418
|
||||
761D3A0BB620A695079ED9762FBF8ADF0250EEBCB0FF27D8825F409722BB18CE
|
||||
868AEF3F7E016C4178332B3C0EF6AFBC8DDB0258D6BF72F03F435AA42B43EBF4
|
||||
43387D10E8AAC670E4F465B005418DFFE1417464F523EC1620972B370FB33124
|
||||
8638E174394CFCD4856B600BFCEA7FC283E8E4DA179816E40664A2145AF78EF2
|
||||
30C404D8E3351CC43E7FF526D802F79AF7607D20FD17367CC2B420D32F19A544
|
||||
7C745C8821CCDB06AFE120F6959B77C0163855BD84177C5736FDC0B420C93B12
|
||||
A5447C794A9A21D0CD9261FDAEE30C8400C802DB8A4770BD37B7FCC3B420D633
|
||||
18A5D87D7B4611AC915860597607ACF7DFFFBF0CB7B732625A10E9EE8BE20314
|
||||
1AADDCC7C506190E02582D087175A78AE1382D087076045714D402E816E4EF6A
|
||||
DA4DD54ADFADCE1551E9D31200008EE53CFED5D704CB0000000049454E44AE42
|
||||
6082}
|
||||
Name = 'PngImage5'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000003154944415478DA
|
||||
B5956D48536114C7CFC89022883E288415547E48F243651451425A6A929361A2
|
||||
0E13D14553985AA411944A5A4804622AE9AC25CBDCD0125F4B526CD87C2F75E8
|
||||
544C83B23EE45829E6667AEFEEEDDE3377756D6B1BD98167CFB37BEEF9FFCE39
|
||||
CF81CBA3691A783C1ED8B300F1043D28F5B3EF64ED50390D9A14877ED4667F62
|
||||
4B633298FF45EB9D1FB579B8EFF7CF71A8CFBE33D8DF0931A20E7BEE2B3592DA
|
||||
0716009D2190709EF43BDE902EF48562E5B45544F12D1DFAD65B5CC401C8CA96
|
||||
425BFD4E20A8152099C5EE974E5D8539DD1CCF066011D7FDF400EF1D24279428
|
||||
914177B39FD99FE08BCFBECC52603018F15C505803F5B55B51BCB44C0E238A51
|
||||
5BC049FE04C88B4428CE9A716909F4FA1F60342E81EC5987154037E7012B0401
|
||||
8B8B065CEC595AF91A140A0ACAA54AFB00D658C8FD7C3127AEFF6E0634B60E73
|
||||
80E4A85D306FF0E4C4170D06A8AC56A1385B81EC519D7DC090CA5C6E5AE16748
|
||||
BB1C0125152D56FD7E98B91764EA3D78B1164B8A0F42F1A7B907711A57F6F580
|
||||
5CD6EC182049388781BCC352F3A80D8BED4E1045D1B029A002CFF36F13813499
|
||||
20242E0BC4F77C40C1B4CA29C002B10760C54913059EC71E73E2CA66353CA96E
|
||||
02518117D4CA55AE011C65CE8A13A4094892427182D95FB47623E0E2DD6DD058
|
||||
D5E71C905BA202572C5578940199A0A1BD0F01B1F99BE155F5B0FB15B0D912A6
|
||||
D5AC194182A902AB612B61CE2D6F061010759B8676E5987B007BE224D722F36A
|
||||
530F22203277195435531BD7A278BE3FDE87AA578380F0EC05E87A3EE35A05AE
|
||||
646EB96CF5BB11049CBDA987FEBA6FB68034412A6854CB1CC01D7176927A87C6
|
||||
1010786306340D0BB680D44811683B6904B041F9659D2EB52832D817C7F4FDC8
|
||||
04024E5C9F066DD32F5B40F279214C756D811461A85B9913ABEF69C63F20E068
|
||||
E6384CB650B68084F00BF0A9673B2445075B055314E5549C7DAE9D9C46C0916B
|
||||
A330F592670B1086F1E16B9F1724084E637071D5804B2D0A3ABE1B77A780E890
|
||||
30981DF001213FD02AB3BF5D36C5C45ACC29407026083F141B657F0232DAF2DA
|
||||
8BFE5D76CD427342D63EFAFFD37E031AD161FE86E3B8C60000000049454E44AE
|
||||
426082}
|
||||
Name = 'PngImage4'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA
|
||||
AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4
|
||||
4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3
|
||||
A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3
|
||||
7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117
|
||||
CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671
|
||||
584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7
|
||||
B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E
|
||||
1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3
|
||||
88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37
|
||||
33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8
|
||||
29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F
|
||||
0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D
|
||||
F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D
|
||||
AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480
|
||||
651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E
|
||||
C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56
|
||||
4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5
|
||||
CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A
|
||||
3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6
|
||||
30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020
|
||||
D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D
|
||||
D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA
|
||||
9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50
|
||||
C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6
|
||||
80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152
|
||||
D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1
|
||||
38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11
|
||||
5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242
|
||||
60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE
|
||||
47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3
|
||||
B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7
|
||||
7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130
|
||||
26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7
|
||||
98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981
|
||||
2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0
|
||||
4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877
|
||||
4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB
|
||||
2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366
|
||||
752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF
|
||||
6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688
|
||||
F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811
|
||||
F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000
|
||||
49454E44AE426082}
|
||||
Name = 'PngImage7'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA
|
||||
AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED
|
||||
C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B
|
||||
139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24
|
||||
5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4
|
||||
8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5
|
||||
B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB
|
||||
5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191
|
||||
6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5
|
||||
05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262
|
||||
6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56
|
||||
488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0
|
||||
A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36
|
||||
E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A
|
||||
EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098
|
||||
0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7
|
||||
20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0
|
||||
9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A
|
||||
7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715
|
||||
2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC
|
||||
0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1
|
||||
F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9
|
||||
6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407
|
||||
B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A
|
||||
2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0
|
||||
8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E
|
||||
5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F
|
||||
82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC
|
||||
4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536
|
||||
D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D
|
||||
932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B
|
||||
D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC
|
||||
F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134
|
||||
1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA
|
||||
4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4
|
||||
C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF
|
||||
BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25
|
||||
6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F
|
||||
0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707
|
||||
274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4
|
||||
697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16
|
||||
949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855
|
||||
88E7298D620000000049454E44AE426082}
|
||||
Name = 'PngImage6'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000001324944415478DA
|
||||
63FCFFFF3F032D0123DD2C606464C4A9C8A5EF22862BF614E9E3D480EC68A22D
|
||||
C8F05765F8FDE72F10FF63888B5ECEC0702183BA16247B2B810DFF03B424297E
|
||||
15F52D887357001B0EB2243D790DF52D887296051B0E0AA69CF4F5D4B720D45E
|
||||
1A6CF89FBF7F190AB23651DF82006B09B0E1205F94E66D21DD02D7FE4B783384
|
||||
8F85283C88AA8AB633B8C459E254BBBB508F11AB05C8491116A1B06081B1C172
|
||||
28FCBF0CBF7E0331880DA4174F3ECBF0FF7C3A760B909322398683D82B675CC0
|
||||
6D01725224C770107BFD9CCBB82DD8B3E838F6480686B7A52637DCF0DEC683F8
|
||||
A20BBB05845291892A27DCE5935A8F503F99EA2BB2C1836546D771EA5BA025CB
|
||||
0C0FE7797DA7A86F818A04034A52A4BA057222A84991EA1648F2FF42498A54B7
|
||||
002309936A01ADC0D0B700000ADFCFE01EDA3C000000000049454E44AE426082}
|
||||
Name = 'PngImage8'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD2520000007C4944415478DA
|
||||
63FCFFFF3F032D01E3A805A3168C5A80B0C0B5FF12D56CDA5DA8C788D5829C20
|
||||
751485BFFFFC65F8F1F30FC38F5FBF19BE83E89F501ACAFFF6E317C3B7EFBF21
|
||||
F40F087D68CD3D86FFE7D3095B408EE13F7EFD6138B5E911610BC8351C04F05A
|
||||
B067D171AAC401560B6805462D18B560D4023A5800007B57E2D1072B1BE80000
|
||||
000049454E44AE426082}
|
||||
Name = 'PngImage9'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||
F80000000970485973000017120000171201679FD252000002E84944415478DA
|
||||
A5957D48144118C69F2B29B3FA23222C02598AA48F3B4A304A839C120C925022
|
||||
4AA2F2B3B313FB80A0C20E333F52FC2348C24AC49490D4C414394D4D4F33112B
|
||||
C1F0233090C9D0142BA920AFDA73DAD975E5923BDDB5178679776EEFF9CD3CF3
|
||||
CEAC8131061E0683010B457126392175D699C7CC186B6BB9BBF7544D595727A0
|
||||
373A21D238D8DF83CE4EDA27014CFF0D5067BD7C198CD3D3C0C9984870404707
|
||||
057FF6F242DFDCD5E805CCCEFA5517C5A93805D0DE4E117F4EC9E7AE4617E071
|
||||
2E615167668520C1E4BCAD8DE26C929237355124E7B41A160528CD21CCD59658
|
||||
B392DBED1489C94ADED048B1CA0758B254B12BFABABD5C33E0D12DC2DCD9D2DC
|
||||
4C61B9A0E4F5CF284E4707E3F3F8A86C9704306906487BC03CD992743102EF07
|
||||
DEC2564761B61CC4C8872154D7505CB96337680614A513E6C9164B72388606FB
|
||||
516B93C0E6FD181B19465535C5B53C1D80C234C23CD992981486E1A141D4D44A
|
||||
D6252816555651A4DCD5012848254C8B2DB171BB31F96502159514D67C378092
|
||||
AC03EA356094DA6C5DDFB712A6DAF2E923C5BED07088E21F74B5352260AF620B
|
||||
1FF73706E0C7B749943DA148BDE71E201F289EAB1B6A4E6F35E4A710C66DE1EF
|
||||
BD68A8C19E9030389D22DEBC6C812930184E0936D0F31A9BB79AE4F1E29277B8
|
||||
F1C03D40AE163554CFF975C06D718AA23C732EA2E4A22CAEF4A23CFECB3185D2
|
||||
328A9B051E5610142418FD77ECFA07A2568B1671DE2AAAC69151E86193F98686
|
||||
84085021FC37AD3397DBD4149EDABE23AB689E2AE29E87860AD8B27DA76E7187
|
||||
E3276CCF45643F5CA04CF3AE1276284C80DF267F5DE27CBCBE05C829D1700E6E
|
||||
5F262CFCB080F51BFD348B8F8E39F05BF4764877D10A4D072DF71261114704AC
|
||||
59BB6E41711E9DDDC0065F44E9BA4DB3CF1376345280CFCAD5F38AABB397D240
|
||||
09D0AF19C023C342D8F163829C7B12EFEEF586691BA2F8A773511FFD34B3B492
|
||||
085F7C9D1897055DC3555C2D6FDD001ED678C2F8C99E96FEC2783F93BB8ACF05
|
||||
FC0592430CFE3F77C7A70000000049454E44AE426082}
|
||||
Name = 'PngImage10'
|
||||
Background = clWindow
|
||||
end>
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
Left = 403
|
||||
Top = 104
|
||||
Bitmap = {}
|
||||
end
|
||||
object frxReport1: TfrxReport
|
||||
Version = '3.23.7'
|
||||
DotMatrixReport = False
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
ReportOptions.CreateDate = 38658.858023541660000000
|
||||
ReportOptions.LastChange = 38658.858023541660000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
'begin'
|
||||
''
|
||||
'end.')
|
||||
StoreInDFM = False
|
||||
Left = 16
|
||||
Top = 200
|
||||
Datasets = <>
|
||||
Variables = <>
|
||||
Style = <>
|
||||
end
|
||||
object frxBarCodeObject1: TfrxBarCodeObject
|
||||
Left = 16
|
||||
Top = 240
|
||||
end
|
||||
object frxOLEObject1: TfrxOLEObject
|
||||
Left = 48
|
||||
Top = 240
|
||||
end
|
||||
object frxChartObject1: TfrxChartObject
|
||||
Left = 16
|
||||
Top = 272
|
||||
end
|
||||
object frxRichObject1: TfrxRichObject
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
object frxCrossObject1: TfrxCrossObject
|
||||
Left = 80
|
||||
Top = 240
|
||||
end
|
||||
object frxCheckBoxObject1: TfrxCheckBoxObject
|
||||
Left = 80
|
||||
Top = 272
|
||||
end
|
||||
object frxGradientObject1: TfrxGradientObject
|
||||
Left = 16
|
||||
Top = 304
|
||||
end
|
||||
object frxDotMatrixExport1: TfrxDotMatrixExport
|
||||
UseFileCache = True
|
||||
ShowProgress = True
|
||||
EscModel = 0
|
||||
GraphicFrames = False
|
||||
SaveToFile = False
|
||||
UseIniSettings = True
|
||||
Left = 48
|
||||
Top = 304
|
||||
end
|
||||
object frxDialogControls1: TfrxDialogControls
|
||||
Left = 80
|
||||
Top = 304
|
||||
end
|
||||
object frxTIFFExport1: TfrxTIFFExport
|
||||
ShowDialog = False
|
||||
UseFileCache = True
|
||||
ShowProgress = True
|
||||
Monochrome = True
|
||||
Left = 144
|
||||
Top = 240
|
||||
end
|
||||
object frxPDFExport1: TfrxPDFExport
|
||||
ShowDialog = False
|
||||
UseFileCache = True
|
||||
ShowProgress = True
|
||||
PrintOptimized = False
|
||||
Outline = False
|
||||
Author = 'FastReport'#174
|
||||
Subject = 'FastReport'#174' PDF export'
|
||||
Background = False
|
||||
Creator = 'FastReport'#174' (http://www.fast-report.com)'
|
||||
HTMLTags = False
|
||||
Left = 144
|
||||
Top = 280
|
||||
end
|
||||
object frxBMPExport1: TfrxBMPExport
|
||||
ShowDialog = False
|
||||
UseFileCache = True
|
||||
ShowProgress = True
|
||||
Monochrome = True
|
||||
Left = 144
|
||||
Top = 320
|
||||
end
|
||||
end
|
||||
@ -1,312 +0,0 @@
|
||||
unit uEditorPreview;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorBase, ImgList, PngImageList, StdActns, ActnList, TBX,
|
||||
TB2Item, TB2Dock, TB2Toolbar, JvExControls, JvComponent, JvNavigationPane,
|
||||
TB2ExtItems, TBXExtItems, uViewPreview, frxClass, ComCtrls, frxPreview,
|
||||
JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
||||
pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport,
|
||||
frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode,
|
||||
ExtCtrls, JvComponentBase;
|
||||
|
||||
type
|
||||
IEditorPreview = interface(IEditorBase)
|
||||
['{7E79BEFC-C817-43D9-A60F-9573D1777068}']
|
||||
function GetReport: TfrxReport;
|
||||
property Report: TfrxReport read GetReport;
|
||||
procedure LoadFromStream(AStream : TStream);
|
||||
function ExportToFile : String;
|
||||
end;
|
||||
|
||||
TfEditorPreview = class(TfEditorBase, IEditorPreview)
|
||||
TBXToolbar1: TTBXToolbar;
|
||||
TBXItem7: TTBXItem;
|
||||
TBXItem33: TTBXItem;
|
||||
TBXItem34: TTBXItem;
|
||||
TBXItem39: TTBXItem;
|
||||
TBXSeparatorItem14: TTBXSeparatorItem;
|
||||
TBXSeparatorItem15: TTBXSeparatorItem;
|
||||
TBXSeparatorItem16: TTBXSeparatorItem;
|
||||
cbZoom: TTBXComboBoxItem;
|
||||
PreviewActionList: TActionList;
|
||||
PreviewSmallImageList: TPngImageList;
|
||||
PreviewLargeImageList: TPngImageList;
|
||||
actPrimeraPagina: TAction;
|
||||
actUltimaPagina: TAction;
|
||||
actPaginaAnterior: TAction;
|
||||
actPaginaSiguiente: TAction;
|
||||
TBXItem35: TTBXItem;
|
||||
TBXItem36: TTBXItem;
|
||||
actZoomIn: TAction;
|
||||
actZoomOut: TAction;
|
||||
actTodaPagina: TAction;
|
||||
actAnchoPagina: TAction;
|
||||
TBXSeparatorItem17: TTBXSeparatorItem;
|
||||
TBXItem37: TTBXItem;
|
||||
TBXItem40: TTBXItem;
|
||||
TBXItem41: TTBXItem;
|
||||
TBXItem42: TTBXItem;
|
||||
frxReport1: TfrxReport;
|
||||
actToolHand: TAction;
|
||||
actToolZoom: TAction;
|
||||
tbxZoom: TTBXItem;
|
||||
tbxMano: TTBXItem;
|
||||
TBXSeparatorItem18: TTBXSeparatorItem;
|
||||
frxBarCodeObject1: TfrxBarCodeObject;
|
||||
frxOLEObject1: TfrxOLEObject;
|
||||
frxChartObject1: TfrxChartObject;
|
||||
frxRichObject1: TfrxRichObject;
|
||||
frxCrossObject1: TfrxCrossObject;
|
||||
frxCheckBoxObject1: TfrxCheckBoxObject;
|
||||
frxGradientObject1: TfrxGradientObject;
|
||||
frxDotMatrixExport1: TfrxDotMatrixExport;
|
||||
frxDialogControls1: TfrxDialogControls;
|
||||
frxTIFFExport1: TfrxTIFFExport;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
frxBMPExport1: TfrxBMPExport;
|
||||
TBXItem38: TTBXItem;
|
||||
TBXSeparatorItem19: TTBXSeparatorItem;
|
||||
TBXItem43: TTBXItem;
|
||||
TBXItem44: TTBXItem;
|
||||
TBXItem45: TTBXItem;
|
||||
TBXItem46: TTBXItem;
|
||||
TBXItem47: TTBXItem;
|
||||
TBXSubmenuItem2: TTBXSubmenuItem;
|
||||
TBXItem48: TTBXItem;
|
||||
TBXSubmenuItem3: TTBXSubmenuItem;
|
||||
TBXItem49: TTBXItem;
|
||||
TBXItem50: TTBXItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actPrimeraPaginaExecute(Sender: TObject);
|
||||
procedure actUltimaPaginaExecute(Sender: TObject);
|
||||
procedure actPaginaAnteriorExecute(Sender: TObject);
|
||||
procedure actPaginaSiguienteExecute(Sender: TObject);
|
||||
procedure actZoomInExecute(Sender: TObject);
|
||||
procedure actTodaPaginaExecute(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormResize(Sender: TObject);
|
||||
procedure actImprimirExecute(Sender: TObject);
|
||||
procedure actAnchoPaginaExecute(Sender: TObject);
|
||||
procedure actZoomOutExecute(Sender: TObject);
|
||||
procedure cbZoomItemClick(Sender: TObject);
|
||||
procedure actToolHandExecute(Sender: TObject);
|
||||
procedure actToolZoomExecute(Sender: TObject);
|
||||
private
|
||||
FPreview : TfrViewPreview;
|
||||
function GetReport: TfrxReport;
|
||||
procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer);
|
||||
procedure UpdateZoom;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
property Report: TfrxReport read GetReport;
|
||||
procedure Print;
|
||||
procedure LoadFromStream(AStream : TStream);
|
||||
function ExportToFile : String;
|
||||
end;
|
||||
|
||||
var
|
||||
fEditorPreview: TfEditorPreview;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
frxRes, frxUtils, frxPrinter, uCustomEditor, uSysFunc, frxFormUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorBase1 }
|
||||
|
||||
function TfEditorPreview.GetReport: TfrxReport;
|
||||
begin
|
||||
Result := frxReport1;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfEditorPreview.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
UpdateZoom;
|
||||
actPrimeraPagina.Execute;
|
||||
FPreview.ShowEmbedded(Self);
|
||||
Report.ShowPreparedReport;
|
||||
actAnchoPagina.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actPrimeraPaginaExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPreview.Preview.First;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actUltimaPaginaExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPreview.Preview.Last;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actPaginaAnteriorExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPreview.Preview.Prior;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actPaginaSiguienteExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPreview.Preview.Next;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actZoomInExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPreview.Preview.Zoom := FPreview.Preview.Zoom + 0.25;
|
||||
UpdateZoom;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.UpdateZoom;
|
||||
begin
|
||||
cbZoom.Text := IntToStr(Round(FPreview.Preview.Zoom * 100)) + '%';
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actTodaPaginaExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPreview.Preview.ZoomMode := zmWholePage;
|
||||
UpdateZoom;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPreview.Free;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.FormResize(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
UpdateZoom;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actImprimirExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if not frxPrinters.HasPhysicalPrinters then
|
||||
frxErrorMsg(frxResources.Get('clNoPrinters'))
|
||||
else
|
||||
FPreview.Preview.Print;
|
||||
Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actAnchoPaginaExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPreview.Preview.ZoomMode := zmPageWidth;
|
||||
UpdateZoom;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actZoomOutExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPreview.Preview.Zoom := FPreview.Preview.Zoom - 0.25;
|
||||
UpdateZoom;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.cbZoomItemClick(Sender: TObject);
|
||||
var
|
||||
s: String;
|
||||
begin
|
||||
FPreview.Preview.SetFocus;
|
||||
|
||||
if cbZoom.ItemIndex = 6 then
|
||||
actAnchoPagina.Execute
|
||||
else if cbZoom.ItemIndex = 7 then
|
||||
actTodaPagina.Execute
|
||||
else
|
||||
begin
|
||||
s := cbZoom.Text;
|
||||
|
||||
if Pos('%', s) <> 0 then
|
||||
s[Pos('%', s)] := ' ';
|
||||
while Pos(' ', s) <> 0 do
|
||||
Delete(s, Pos(' ', s), 1);
|
||||
|
||||
if s <> '' then
|
||||
FPreview.Preview.Zoom := frxStrToFloat(s) / 100;
|
||||
end;
|
||||
|
||||
UpdateZoom;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actToolHandExecute(Sender: TObject);
|
||||
begin
|
||||
if tbxMano.Checked then
|
||||
FPreview.Preview.Tool := ptHand
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.actToolZoomExecute(Sender: TObject);
|
||||
begin
|
||||
if tbxZoom.Checked then
|
||||
FPreview.Preview.Tool := ptZoom;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.OnPageChanged(Sender: TfrxPreview;
|
||||
PageNo: Integer);
|
||||
begin
|
||||
StatusBar.Panels[0].Text := Format(frxResources.Get('clPageOf'),
|
||||
[PageNo, Sender.PageCount]);
|
||||
end;
|
||||
|
||||
constructor TfEditorPreview.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
with cbZoom.Strings do
|
||||
begin
|
||||
Clear;
|
||||
Add('25%');
|
||||
Add('50%');
|
||||
Add('75%');
|
||||
Add('100%');
|
||||
Add('150%');
|
||||
Add('200%');
|
||||
Add(frxResources.Get('zmPageWidth'));
|
||||
Add(frxResources.Get('zmWholePage'));
|
||||
end;
|
||||
|
||||
FPreview := TfrViewPreview.Create(Self);
|
||||
Report.Preview := FPreview.Preview;
|
||||
FPreview.Preview.OnPageChanged := OnPageChanged;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.Print;
|
||||
begin
|
||||
actImprimir.Execute;
|
||||
end;
|
||||
|
||||
function TfEditorPreview.ExportToFile: String;
|
||||
var
|
||||
AFile : String;
|
||||
begin
|
||||
Result := '';
|
||||
AFile := DarFicheroTIFFTemporal;
|
||||
frxTIFFExport1.SeparateFiles := False;
|
||||
frxTIFFExport1.DefaultPath := ExtractFilePath(AFile);
|
||||
frxTIFFExport1.FileName := ExtractFileName(AFile);
|
||||
try
|
||||
if Report.Export(frxTIFFExport1) then
|
||||
Result := AFile;
|
||||
finally
|
||||
frxTIFFExport1.DefaultPath := '';
|
||||
frxTIFFExport1.FileName := '';
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorPreview.LoadFromStream(AStream: TStream);
|
||||
begin
|
||||
Report.PreviewPages.LoadFromStream(AStream);
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -1,335 +0,0 @@
|
||||
{*******************************************************}
|
||||
{ }
|
||||
{ Administración de puntos de venta }
|
||||
{ }
|
||||
{ Copyright (C) 2006 Rodax Software S.L. }
|
||||
{ }
|
||||
{*******************************************************}
|
||||
|
||||
unit uViewGridBase;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
|
||||
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxGrid, Menus, ActnList, Grids,
|
||||
DBGrids, JvComponent, JvFormAutoSize, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk, dxPrnDlg,
|
||||
cxIntlPrintSys3, dxPSPrvwAdv, uGridUtils;
|
||||
|
||||
type
|
||||
IViewGridBase = interface(IViewBase)
|
||||
['{D5B9B017-2A2E-44AC-8223-E54664C6BC66}']
|
||||
procedure ExpandirTodo;
|
||||
procedure ContraerTodo;
|
||||
procedure AjustarAncho;
|
||||
|
||||
procedure Preview;
|
||||
procedure Print;
|
||||
procedure PrintSetup;
|
||||
|
||||
procedure SaveGridStatus;
|
||||
procedure RestoreGridStatus;
|
||||
|
||||
procedure GotoFirst;
|
||||
procedure GotoLast;
|
||||
|
||||
function GetFocusedView : TcxGridDBTableView;
|
||||
property _FocusedView : TcxGridDBTableView read GetFocusedView;
|
||||
|
||||
function GetGrid : TcxGrid;
|
||||
property _Grid : TcxGrid read GetGrid;
|
||||
|
||||
procedure StoreToRegistry (const Path : String);
|
||||
procedure RestoreFromRegistry (const Path : String);
|
||||
|
||||
procedure SetDblClick(const Value: TNotifyEvent);
|
||||
function GetDblClick: TNotifyEvent;
|
||||
property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
|
||||
|
||||
procedure SetPopupMenu(const Value: TPopupMenu);
|
||||
function GetPopupMenu: TPopupMenu;
|
||||
property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
|
||||
|
||||
function GetMultiSelect: Boolean;
|
||||
procedure SetMultiSelect(const Value: Boolean);
|
||||
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
||||
|
||||
procedure SetFilter(const Value: string);
|
||||
function GetFilter: string;
|
||||
property Filter: string read GetFilter write SetFilter;
|
||||
|
||||
function GetFilterAsSQL: string;
|
||||
end;
|
||||
|
||||
|
||||
TfrViewGridBase = class(TfrViewBase, IViewGridBase)
|
||||
dsDataSource: TDADataSource;
|
||||
private
|
||||
FFilter: string;
|
||||
FOnFilterChanged : TNotifyEvent;
|
||||
FPopupMenu: TPopupMenu;
|
||||
procedure FiltrarGrid(TextoFiltro : String);
|
||||
protected
|
||||
FGridStatus : TcxGridStatus;
|
||||
FOnDblClick: TNotifyEvent;
|
||||
function GetMultiSelect: Boolean; virtual;
|
||||
procedure SetMultiSelect(const Value: Boolean); virtual;
|
||||
procedure SetPopupMenu(const Value: TPopupMenu); virtual;
|
||||
function GetPopupMenu: TPopupMenu; virtual;
|
||||
procedure SetDblClick(const Value: TNotifyEvent); virtual;
|
||||
function GetDblClick: TNotifyEvent; virtual;
|
||||
function GetGrid : TcxGrid; virtual; abstract;
|
||||
function GetFocusedView : TcxGridDBTableView; virtual; abstract;
|
||||
procedure SetFilter(const Value: string); virtual;
|
||||
function GetFilter: string; virtual;
|
||||
procedure FilterChanged(Sender : TObject); virtual;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
|
||||
procedure ShowEmbedded(const AParent : TWinControl); override;
|
||||
|
||||
procedure ExpandirTodo;
|
||||
procedure ContraerTodo;
|
||||
procedure AjustarAncho;
|
||||
|
||||
procedure SaveGridStatus;
|
||||
procedure RestoreGridStatus;
|
||||
|
||||
procedure Preview; virtual;
|
||||
procedure Print; virtual;
|
||||
procedure PrintSetup; virtual;
|
||||
|
||||
procedure GotoFirst;
|
||||
procedure GotoLast;
|
||||
|
||||
procedure StoreToRegistry (const Path : String);
|
||||
procedure RestoreFromRegistry (const Path : String);
|
||||
|
||||
function GetFilterAsSQL: string;
|
||||
|
||||
property Filter: string read GetFilter write SetFilter;
|
||||
property _FocusedView : TcxGridDBTableView read GetFocusedView;
|
||||
property _Grid : TcxGrid read GetGrid;
|
||||
property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
|
||||
property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
|
||||
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
CCReg, uDataModuleBase, uDBSelectionList;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterCustomContainer(TfrViewGridBase);
|
||||
end;
|
||||
|
||||
{ TfrViewGrid }
|
||||
|
||||
procedure TfrViewGridBase.AjustarAncho;
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
_FocusedView.ApplyBestFit;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.ContraerTodo;
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
_FocusedView.ViewData.Collapse(True);
|
||||
end;
|
||||
|
||||
constructor TfrViewGridBase.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FGridStatus := nil;
|
||||
FFilter := '';
|
||||
FOnFilterChanged := FilterChanged;
|
||||
FPopupMenu := nil;
|
||||
FOnDblClick := nil;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.ExpandirTodo;
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
_FocusedView.ViewData.Expand(True);
|
||||
end;
|
||||
|
||||
function TfrViewGridBase.GetDblClick: TNotifyEvent;
|
||||
begin
|
||||
Result := FOnDblClick;
|
||||
end;
|
||||
|
||||
function TfrViewGridBase.GetFilter: string;
|
||||
begin
|
||||
Result := FFilter;
|
||||
end;
|
||||
|
||||
function TfrViewGridBase.GetMultiSelect: Boolean;
|
||||
begin
|
||||
Result := _FocusedView.OptionsSelection.MultiSelect;
|
||||
end;
|
||||
|
||||
function TfrViewGridBase.GetPopupMenu: TPopupMenu;
|
||||
begin
|
||||
Result := FPopupMenu;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.GotoFirst;
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
_FocusedView.DataController.GotoFirst;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.GotoLast;
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
_FocusedView.DataController.GotoLast;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.Preview;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.Print;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.PrintSetup;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.RestoreFromRegistry(const Path : String);
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
_FocusedView.RestoreFromRegistry(Path + '\\GridSettings\\' + Self.Name, False, False, []);
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.SetDblClick(const Value: TNotifyEvent);
|
||||
begin
|
||||
FOnDblClick := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.SetFilter(const Value: string);
|
||||
begin
|
||||
if FFilter <> Value then
|
||||
begin
|
||||
FFilter := Value;
|
||||
FiltrarGrid(FFilter);
|
||||
if Assigned(FOnFilterChanged) then
|
||||
FOnFilterChanged(Self);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.SetMultiSelect(const Value: Boolean);
|
||||
begin
|
||||
_FocusedView.OptionsSelection.MultiSelect := True;
|
||||
// _FocusedView..OnSelectionChanged := SelectionChanged;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.SetPopupMenu(const Value: TPopupMenu);
|
||||
begin
|
||||
FPopupMenu := Value;
|
||||
_FocusedView.PopupMenu := FPopupMenu;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.ShowEmbedded(const AParent: TWinControl);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
// No activar la tabla ya por si acaso tuviera parámetros
|
||||
{ if not DADataSource.DataTable.Active then
|
||||
DADataSource.DataTable.Active := True;}
|
||||
GotoFirst;
|
||||
_FocusedView.Focused := True;
|
||||
if _FocusedView.ViewData.RecordCount > 0 then
|
||||
begin
|
||||
_FocusedView.ViewData.Records[0].Selected := True;
|
||||
_FocusedView.ViewData.Records[0].Focused := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.StoreToRegistry(const Path : String);
|
||||
begin
|
||||
if Assigned(_FocusedView) then
|
||||
_FocusedView.StoreToRegistry(Path + '\\GridSettings\\' + Self.Name, False, []);
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.FiltrarGrid(TextoFiltro : String);
|
||||
var
|
||||
Columna: TcxGridDBColumn;
|
||||
i: Integer;
|
||||
AItemList: TcxFilterCriteriaItemList;
|
||||
begin
|
||||
with _FocusedView.DataController.Filter do
|
||||
begin
|
||||
BeginUpdate;
|
||||
try
|
||||
Options := [fcoCaseInsensitive, fcoSoftCompare];
|
||||
Root.Clear;
|
||||
if Length(TextoFiltro) > 0 then
|
||||
begin
|
||||
AItemList := Root.AddItemList(fboAnd);
|
||||
AItemList.BoolOperatorKind := fboOr;
|
||||
for i:=0 to (_FocusedView as TcxGridDBTableView).ColumnCount - 1 do
|
||||
begin
|
||||
Columna := (_FocusedView as TcxGridDBTableView).Columns[i];
|
||||
if (Length(Columna.Caption) > 0) and (Columna.Caption <> 'RecID') then
|
||||
AItemList.AddItem(Columna, foLike, '%'+TextoFiltro+'%', IntToStr(i));
|
||||
end;
|
||||
Active := True;
|
||||
end
|
||||
else
|
||||
Active := False;
|
||||
finally
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrViewGridBase.FilterChanged(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
destructor TfrViewGridBase.Destroy;
|
||||
begin
|
||||
FOnFilterChanged := Nil;
|
||||
FreeAndNIL(FGridStatus);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.RestoreGridStatus;
|
||||
begin
|
||||
if Assigned(FGridStatus) then
|
||||
FGridStatus.Restore(_FocusedView);
|
||||
end;
|
||||
|
||||
procedure TfrViewGridBase.SaveGridStatus;
|
||||
begin
|
||||
FreeAndNIL(FGridStatus);
|
||||
FGridStatus := TcxGridStatus.Create(_FocusedView);
|
||||
end;
|
||||
|
||||
function TfrViewGridBase.GetFilterAsSQL: string;
|
||||
begin
|
||||
with _FocusedView.DataController.Filter do
|
||||
Result := FilterText;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -1,479 +0,0 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=3
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=..\..\Output\Cliente
|
||||
UnitOutputDir=.\
|
||||
PackageDLLOutputDir=..\Lib
|
||||
PackageDCPOutputDir=..\Lib
|
||||
SearchPath=..\Lib
|
||||
Packages=BaseD7;Configuracion;FicherosEDI
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=1
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=3082
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview
|
||||
T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlSearchPath]
|
||||
Count=2
|
||||
Item0=..\Lib
|
||||
Item1=..\..\..\Lib
|
||||
[HistoryLists\hlUnitOutputDirectory]
|
||||
Count=1
|
||||
Item0=.\
|
||||
[HistoryLists\hlOutputDirectorry]
|
||||
Count=2
|
||||
Item0=..\..\Output\Cliente
|
||||
Item1=..\..\Output\Servidor
|
||||
[HistoryLists\hlBPLOutput]
|
||||
Count=3
|
||||
Item0=..\Lib
|
||||
Item1=..\..\..\..\Output\Cliente
|
||||
Item2=..\..\Output\Cliente
|
||||
[HistoryLists\hlDCPOutput]
|
||||
Count=2
|
||||
Item0=..\Lib
|
||||
Item1=..\..\..\Lib
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
Freeze Message=The application seems to be frozen.
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
Show TerminateBtn=1
|
||||
TerminateBtn Operation=1
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=1
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesSection=1
|
||||
loSaveCPUSection=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModule=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpUser=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndCompressAllFiles=0
|
||||
edoShowExceptionDialog=1
|
||||
edoSendEmailChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoShowProcedureOffset=0
|
||||
boActivateCrashDetection=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error."
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_CustomDataCaption=1
|
||||
mtDialog_CustomDataCaption0="Other"
|
||||
Count mtDialog_CustomDataHeader=1
|
||||
mtDialog_CustomDataHeader0="Other Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModule=1
|
||||
mtLog_ExcModule0="Module"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpUser=1
|
||||
mtLog_CmpUser0="User"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
|
||||
|
||||
@ -1,14 +0,0 @@
|
||||
/* VER150
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
Binary file not shown.
@ -1,163 +0,0 @@
|
||||
unit uCargaEDI;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ExtCtrls, jpeg, ComCtrls, StdCtrls, JvExComCtrls, JvAnimate,
|
||||
pngimage, XPMan, ImgList;
|
||||
|
||||
type
|
||||
TIconoEstado = (ieOK, ieMAL, ieNada);
|
||||
|
||||
TfCargaEDI = class(TForm)
|
||||
Label13: TLabel;
|
||||
JvAnimate1: TJvAnimate;
|
||||
Button1: TButton;
|
||||
TimerCuentaAtrasCerrar: TTimer;
|
||||
ListView1: TListView;
|
||||
Image1: TImage;
|
||||
Bevel1: TBevel;
|
||||
TimerCuentaAtrasCargar: TTimer;
|
||||
XPManifest1: TXPManifest;
|
||||
ImageList1: TImageList;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure TimerCuentaAtrasCerrarTimer(Sender: TObject);
|
||||
procedure TimerCuentaAtrasCargarTimer(Sender: TObject);
|
||||
private
|
||||
FNumCargasError : Integer;
|
||||
FNumCargasOK : Integer;
|
||||
FCuentaAtras : Integer;
|
||||
procedure OnLoadSuccess(Sender: TObject);
|
||||
procedure OnLoadError(Sender : TObject);
|
||||
procedure AnadirMensaje(const aMensaje : String; Icono : TIconoEstado = ieNada);
|
||||
procedure LanzarCargas;
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
fCargaEDI: TfCargaEDI;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uCargarFicheros, uDataModuleBase;
|
||||
|
||||
procedure TfCargaEDI.FormShow(Sender: TObject);
|
||||
begin
|
||||
FNumCargasOK := 0;
|
||||
FNumCargasError := 0;
|
||||
TimerCuentaAtrasCargar.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TfCargaEDI.OnLoadError(Sender: TObject);
|
||||
begin
|
||||
Beep;
|
||||
AnadirMensaje((Sender as TCargarFicherosThread).Nombre + ': ' + (Sender as TCargarFicherosThread).ErrorText, ieMAL);
|
||||
|
||||
FNumCargasError := FNumCargasError + 1;
|
||||
if (FNumCargasError = 2) or
|
||||
((FNumCargasError = 1) and (FNumCargasOK = 1)) then
|
||||
begin
|
||||
JvAnimate1.Visible := False;
|
||||
JvAnimate1.Active := False;
|
||||
TimerCuentaAtrasCerrar.Enabled := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfCargaEDI.OnLoadSuccess(Sender: TObject);
|
||||
begin
|
||||
Beep;
|
||||
AnadirMensaje((Sender as TCargarFicherosThread).Nombre + ': Ficheros cargados', ieOK);
|
||||
|
||||
FNumCargasOK := FNumCargasOK + 1;
|
||||
if (FNumCargasOK = 2) or
|
||||
((FNumCargasError = 1) and (FNumCargasOK = 1)) then
|
||||
begin
|
||||
JvAnimate1.Visible := False;
|
||||
JvAnimate1.Active := False;
|
||||
TimerCuentaAtrasCerrar.Enabled := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfCargaEDI.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfCargaEDI.FormCreate(Sender: TObject);
|
||||
begin
|
||||
FCuentaAtras := 5;
|
||||
FNumCargasError := 0;
|
||||
FNumCargasOK := 0;
|
||||
end;
|
||||
|
||||
procedure TfCargaEDI.Button1Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfCargaEDI.AnadirMensaje(const aMensaje: String;
|
||||
Icono : TIconoEstado = ieNada);
|
||||
var
|
||||
AItem : TListItem;
|
||||
begin
|
||||
AItem := ListView1.Items.Add;
|
||||
case Icono of
|
||||
ieOK : AItem.ImageIndex := 1;
|
||||
ieMAL : AItem.ImageIndex := 0;
|
||||
else
|
||||
AItem.ImageIndex := -1;
|
||||
end;
|
||||
AItem.Caption := TimeToStr(Now);
|
||||
AItem.SubItems.Add(aMensaje);
|
||||
end;
|
||||
|
||||
procedure TfCargaEDI.LanzarCargas;
|
||||
begin
|
||||
if not dmBase.HayConexion then
|
||||
begin
|
||||
JvAnimate1.Visible := False;
|
||||
JvAnimate1.Active := False;
|
||||
AnadirMensaje('No se encuentra el servidor', ieMAL);
|
||||
TimerCuentaAtrasCerrar.Enabled := True;
|
||||
end
|
||||
else begin
|
||||
JvAnimate1.Active := True;
|
||||
AnadirMensaje('Cargando ficheros de ventas');
|
||||
TCargarVentasThread.Create('CABVEN.TXT', 'LUGVEN.TXT',
|
||||
'ARTVEN.TXT', OnLoadSuccess, OnLoadError);
|
||||
|
||||
AnadirMensaje('Cargando ficheros de inventario');
|
||||
TCargarInventarioThread.Create('CABINV.TXT', 'LININV.TXT',
|
||||
'CANTINV.TXT', OnLoadSuccess, OnLoadError);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfCargaEDI.TimerCuentaAtrasCerrarTimer(Sender: TObject);
|
||||
begin
|
||||
Button1.Enabled := True;
|
||||
TimerCuentaAtrasCerrar.Enabled := False;
|
||||
if FCuentaAtras = 0 then
|
||||
Close;
|
||||
Button1.Caption := 'Cerrar (' + IntToStr(FCuentaAtras) + ')';
|
||||
Update;
|
||||
Application.ProcessMessages;
|
||||
FCuentaAtras := FCuentaAtras - 1;
|
||||
TimerCuentaAtrasCerrar.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TfCargaEDI.TimerCuentaAtrasCargarTimer(Sender: TObject);
|
||||
begin
|
||||
TimerCuentaAtrasCargar.Enabled := False;
|
||||
Update;
|
||||
LanzarCargas;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,47 +0,0 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-GD
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-E"..\..\Output\Cliente"
|
||||
-N".\"
|
||||
-LE"..\Lib"
|
||||
-LN"..\Lib"
|
||||
-U"..\Lib"
|
||||
-O"..\Lib"
|
||||
-I"..\Lib"
|
||||
-R"..\Lib"
|
||||
-DEUREKALOG;EUREKALOG_VER5
|
||||
-LUBaseD7;Configuracion;ControlesBaseD7;Usuarios;FicherosEDI;VentasProceso;VentasTerminadas;ReferenciaGenerica
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
@ -1,483 +0,0 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=3
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=..\..\Output\Cliente
|
||||
UnitOutputDir=.\
|
||||
PackageDLLOutputDir=..\Lib
|
||||
PackageDCPOutputDir=..\Lib
|
||||
SearchPath=..\Lib
|
||||
Packages=BaseD7;Configuracion;ControlesBaseD7;Usuarios;FicherosEDI;VentasProceso;VentasTerminadas;ReferenciaGenerica
|
||||
Conditionals=EUREKALOG;EUREKALOG_VER5
|
||||
DebugSourceDirs=
|
||||
UsePackages=1
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=1
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=3082
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=Rodax Software S.L.
|
||||
FileDescription=
|
||||
FileVersion=1.1.0.0
|
||||
InternalName=Administración de puntos de venta
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=Administración de puntos de venta
|
||||
ProductVersion=1.0.6
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview
|
||||
T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
|
||||
[HistoryLists\hlConditionals]
|
||||
Count=1
|
||||
Item0=EUREKALOG;EUREKALOG_VER5
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlSearchPath]
|
||||
Count=3
|
||||
Item0=..\Lib;..\Base
|
||||
Item1=..\Lib
|
||||
Item2=..\..\..\Lib
|
||||
[HistoryLists\hlUnitOutputDirectory]
|
||||
Count=1
|
||||
Item0=.\
|
||||
[HistoryLists\hlOutputDirectorry]
|
||||
Count=2
|
||||
Item0=..\..\Output\Servidor
|
||||
Item1=..\..\Output\Cliente
|
||||
[HistoryLists\hlBPLOutput]
|
||||
Count=3
|
||||
Item0=..\Lib
|
||||
Item1=..\..\..\..\Output\Cliente
|
||||
Item2=..\..\Output\Cliente
|
||||
[HistoryLists\hlDCPOutput]
|
||||
Count=2
|
||||
Item0=..\Lib
|
||||
Item1=..\..\..\Lib
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=0
|
||||
Freeze Message=The application seems to be frozen.
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
Show TerminateBtn=1
|
||||
TerminateBtn Operation=1
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=1
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesSection=1
|
||||
loSaveCPUSection=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModule=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpUser=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=0
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndCompressAllFiles=0
|
||||
edoShowExceptionDialog=1
|
||||
edoSendEmailChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=1
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoShowProcedureOffset=0
|
||||
boActivateCrashDetection=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error."
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_CustomDataCaption=1
|
||||
mtDialog_CustomDataCaption0="Other"
|
||||
Count mtDialog_CustomDataHeader=1
|
||||
mtDialog_CustomDataHeader0="Other Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModule=1
|
||||
mtLog_ExcModule0="Module"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpUser=1
|
||||
mtLog_CmpUser0="User"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
|
||||
|
||||
@ -1,25 +0,0 @@
|
||||
program AdminPV;
|
||||
|
||||
uses
|
||||
ExceptionLog,
|
||||
Forms,
|
||||
uLoginForm,
|
||||
uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal},
|
||||
uMenuUtils in 'uMenuUtils.pas',
|
||||
uSplash in 'uSplash.pas' {SplashScreen},
|
||||
uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
|
||||
uIntegerList in '..\Base\uIntegerList.pas',
|
||||
schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas',
|
||||
schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
|
||||
Application.Title := 'Administración de puntos de venta';
|
||||
Application.CreateForm(TfPantallaPrincipal, fPantallaPrincipal);
|
||||
Application.Run;
|
||||
Application.Terminate;
|
||||
end.
|
||||
|
||||
@ -1,14 +0,0 @@
|
||||
/* VER150
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
@ -1,263 +0,0 @@
|
||||
unit uMenuUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Forms, ImgList, ActnList, JvPageList, JvNavigationPane, Menus,
|
||||
Controls;
|
||||
|
||||
|
||||
procedure MergeMenus(Source, Dest: TMainMenu; ImageIndex : Integer = -1);
|
||||
procedure SortMenuByTag(Menu : TMainMenu);
|
||||
|
||||
function CreatePageNavPane(const APageList : TJvCustomPageList;
|
||||
ACaption : String; AAction : TAction; AImageIndex : Integer): Integer;
|
||||
|
||||
procedure PopulateNavPagePane(APanePage : TJvNavPanelPage;
|
||||
AMenuItem: TMenuItem; AImageList : TCustomImageList;
|
||||
AStyleManager : TJvNavPaneStyleManager); overload;
|
||||
|
||||
function getSubMenu(Const pMenu: TMainMenu; Const pCaption: String): TMenuItem;
|
||||
procedure copiarItemsMenu(MenuDestino: TMenuItem; pMenu: TMenuItem);
|
||||
|
||||
procedure PopulateNavPagePane(AParentControl : TWinControl;
|
||||
AMenuItem: TMenuItem; AImageList : TCustomImageList;
|
||||
AStyleManager : TJvNavPaneStyleManager); overload;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
ComCtrls, Classes, Math, TBXDkPanels, StrUtils, SysUtils,
|
||||
ExtCtrls, Graphics;
|
||||
|
||||
type
|
||||
TAssignCallback = procedure(Source, Dest: TMenuItem);
|
||||
|
||||
|
||||
procedure AssignMenus(Source, Dest: TMenuItem; AImageIndex : Integer;
|
||||
AssignProc: TAssignCallback);
|
||||
var
|
||||
I: Integer;
|
||||
Item: TMenuItem;
|
||||
begin
|
||||
for I := 0 to Source.Count - 1 do
|
||||
begin
|
||||
Item := Dest.Find(Source.Items[I].Caption);
|
||||
if Item = NIL then
|
||||
begin
|
||||
Item := TMenuItem.Create(Dest);
|
||||
Dest.Add(Item);
|
||||
if Assigned(AssignProc) then
|
||||
begin
|
||||
AssignProc(Source.Items[I], Item);
|
||||
if (Source.Items[I].ImageIndex >= 0) then
|
||||
Item.ImageIndex := Source.Items[I].ImageIndex + AImageIndex;
|
||||
end;
|
||||
end;
|
||||
AssignMenus(Source.Items[I], Item, AImageIndex, AssignProc);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure AssignMenuItem(Source, Dest: TMenuItem);
|
||||
begin
|
||||
Dest.Caption := Source.Caption;
|
||||
Dest.Hint := Source.Hint;
|
||||
Dest.Checked := Source.Checked;
|
||||
Dest.GroupIndex := Source.GroupIndex;
|
||||
Dest.Tag := Source.Tag;
|
||||
Dest.Action := Source.Action;
|
||||
Dest.ImageIndex := Source.ImageIndex;
|
||||
Dest.ShortCut := Source.ShortCut;
|
||||
Dest.RadioItem := Source.RadioItem;
|
||||
Dest.AutoCheck := Source.AutoCheck;
|
||||
Dest.AutoHotkeys := Source.AutoHotkeys;
|
||||
Dest.AutoLineReduction := Source.AutoLineReduction;
|
||||
Dest.Break := Source.Break;
|
||||
Dest.Default := Source.Default;
|
||||
Dest.Enabled := Source.Enabled;
|
||||
Dest.HelpContext := Source.HelpContext;
|
||||
Dest.Visible := Source.Visible;
|
||||
end;
|
||||
|
||||
procedure SortMenuItems(MenuItems : TMenuItem);
|
||||
|
||||
function CompareTags(Item1, Item2: Pointer): Integer;
|
||||
begin
|
||||
Result := CompareValue(TMenuItem(Item1).Tag, TMenuItem(Item2).Tag);
|
||||
end;
|
||||
|
||||
var
|
||||
I: Integer;
|
||||
AList : TList;
|
||||
begin
|
||||
AList := TList.Create;
|
||||
|
||||
try
|
||||
for I := 0 to MenuItems.Count - 1 do
|
||||
begin
|
||||
SortMenuItems(MenuItems.Items[i]);
|
||||
AList.Add(Pointer(MenuItems.Items[i]));
|
||||
end;
|
||||
|
||||
AList.Sort(@CompareTags);
|
||||
|
||||
for i := 0 to AList.Count - 1 do
|
||||
TMenuItem(AList.Items[i]).MenuIndex := i;
|
||||
|
||||
finally
|
||||
AList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure MergeMenus(Source, Dest: TMainMenu; ImageIndex : Integer = -1);
|
||||
begin
|
||||
AssignMenus(Source.Items, Dest.Items, ImageIndex, AssignMenuItem);
|
||||
end;
|
||||
|
||||
procedure SortMenuByTag(Menu : TMainMenu);
|
||||
begin
|
||||
SortMenuItems(Menu.Items);
|
||||
end;
|
||||
|
||||
function CreatePageNavPane(const APageList : TJvCustomPageList;
|
||||
ACaption : String; AAction : TAction; AImageIndex : Integer): Integer;
|
||||
var
|
||||
APanePage: TJvNavPanelPage;
|
||||
begin
|
||||
Result := 0;
|
||||
APanePage := TJvNavPanelPage.Create(Application);
|
||||
with APanePage do
|
||||
begin
|
||||
Caption := StringReplace(ACaption, '&', '', []);
|
||||
Action := AAction;
|
||||
PageList := APageList;
|
||||
Iconic := False;
|
||||
ImageIndex := AImageIndex;
|
||||
Result := PageIndex;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure PopulateNavPagePane(APanePage : TJvNavPanelPage;
|
||||
AMenuItem: TMenuItem; AImageList : TCustomImageList;
|
||||
AStyleManager : TJvNavPaneStyleManager);
|
||||
var
|
||||
APanel : TScrollBox;
|
||||
ItemIndex : Integer;
|
||||
begin
|
||||
with TJvNavPanelDivider.Create(APanePage) do
|
||||
begin
|
||||
Caption := AMenuItem.Caption;
|
||||
Parent := APanePage;
|
||||
Top := 100;
|
||||
Align := alTop;
|
||||
Enabled := false;
|
||||
Cursor := crDefault;
|
||||
end;
|
||||
|
||||
APanel := TScrollBox.Create(APanePage);
|
||||
with APanel do
|
||||
begin
|
||||
Top := 200;
|
||||
Align := alTop;
|
||||
Font.Style := [];
|
||||
BorderStyle := bsNone;
|
||||
Parent := APanePage;
|
||||
BevelEdges := [];
|
||||
BorderStyle := bsNone;
|
||||
//ParentColor := True;
|
||||
ParentFont := True;
|
||||
Color := clRed;
|
||||
end;
|
||||
|
||||
for ItemIndex := 0 to (AMenuItem.Count - 1) do
|
||||
begin
|
||||
if AMenuItem[ItemIndex].Caption <> '-' then
|
||||
with TTBXLink.Create(Application) do
|
||||
begin
|
||||
Parent := APanePage;
|
||||
Align := alTop;
|
||||
Tag := AMenuItem[ItemIndex].Tag;
|
||||
Caption := AMenuItem[ItemIndex].Caption;
|
||||
Action := AMenuItem[ItemIndex].Action;
|
||||
Images := AImageList;
|
||||
ImageIndex := AMenuItem[ItemIndex].ImageIndex;
|
||||
{if ItemIndex = 0 then
|
||||
Margins.Top := 20
|
||||
else
|
||||
Margins.Top := 14;
|
||||
Margins.Bottom := 14;
|
||||
Margins.Left := 10;
|
||||
Margins.Right := 10;}
|
||||
//Invalidate;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function getSubMenu(const pMenu: TMainMenu; const pCaption: String): TMenuItem;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
i:=0;
|
||||
while ((i < pMenu.Items.Count) and (StringReplace(pMenu.Items[i].Caption,'&','',[]) <> pCaption)) do
|
||||
inc(i);
|
||||
Result := pMenu.Items[i];
|
||||
end;
|
||||
|
||||
procedure copiarItemsMenu(MenuDestino, pMenu: TMenuItem);
|
||||
var
|
||||
i: Integer;
|
||||
Item: TMenuItem;
|
||||
begin
|
||||
for i := 0 to (pMenu.Count - 1) do
|
||||
begin
|
||||
Item := TMenuItem.Create(MenuDestino);
|
||||
Item.Caption := pMenu.Items[i].Caption;
|
||||
Item.Action := pMenu.Items[i].Action;
|
||||
MenuDestino.Add(Item);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure PopulateNavPagePane(AParentControl : TWinControl;
|
||||
AMenuItem: TMenuItem; AImageList : TCustomImageList;
|
||||
AStyleManager : TJvNavPaneStyleManager);
|
||||
var
|
||||
ItemIndex : Integer;
|
||||
AHeight : Integer;
|
||||
begin
|
||||
AHeight := 0;
|
||||
for ItemIndex := 0 to (AMenuItem.Count - 1) do
|
||||
begin
|
||||
if AMenuItem[ItemIndex].Caption <> '-' then
|
||||
with TTBXLink.Create(Application) do
|
||||
begin
|
||||
Parent := AParentControl;//APanel;
|
||||
Align := alTop;
|
||||
ParentFont := True;
|
||||
Tag := AMenuItem[ItemIndex].Tag;
|
||||
Caption := AMenuItem[ItemIndex].Caption;
|
||||
Action := AMenuItem[ItemIndex].Action;
|
||||
Images := AImageList;
|
||||
ImageIndex := AMenuItem[ItemIndex].ImageIndex;
|
||||
if ItemIndex = 0 then
|
||||
Margins.Top := 15
|
||||
else
|
||||
Margins.Top := 8;
|
||||
Margins.Bottom := 8;
|
||||
Margins.Left := 10;
|
||||
Margins.Right := 10;
|
||||
Height := 18;
|
||||
Invalidate;
|
||||
AHeight := AHeight + Margins.Top + Margins.Bottom + Height;
|
||||
end;
|
||||
end;
|
||||
AParentControl.Height := AHeight;
|
||||
AParentControl.Invalidate;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -1,56 +0,0 @@
|
||||
unit uSplash;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ExtCtrls, JvGIF, StdCtrls;
|
||||
|
||||
type
|
||||
TSplashScreen = class(TForm)
|
||||
Image1: TImage;
|
||||
Panel1: TPanel;
|
||||
lblTexto: TLabel;
|
||||
procedure Image1Click(Sender: TObject);
|
||||
private
|
||||
function GetTexto: String;
|
||||
procedure SetTexto(const Value: String);
|
||||
{ Private declarations }
|
||||
public
|
||||
property Texto : String read GetTexto write SetTexto;
|
||||
procedure ShowAsAbout;
|
||||
end;
|
||||
|
||||
var
|
||||
SplashScreen: TSplashScreen;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TSplashScreen }
|
||||
|
||||
procedure TSplashScreen.ShowAsAbout;
|
||||
begin
|
||||
Image1.OnClick := Image1Click;
|
||||
ShowModal;
|
||||
end;
|
||||
|
||||
procedure TSplashScreen.Image1Click(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
function TSplashScreen.GetTexto: String;
|
||||
begin
|
||||
Result := lblTexto.Caption;
|
||||
|
||||
end;
|
||||
|
||||
procedure TSplashScreen.SetTexto(const Value: String);
|
||||
begin
|
||||
lblTexto.Caption := Value;
|
||||
Self.Update;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,35 +0,0 @@
|
||||
package Configuracion;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
JvGlobusD7R,
|
||||
BaseD7,
|
||||
Usuarios;
|
||||
|
||||
contains
|
||||
uPanelControl in 'uPanelControl.pas' {fPanelControl};
|
||||
|
||||
end.
|
||||
@ -1,14 +0,0 @@
|
||||
/* VER150
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
Binary file not shown.
@ -1,50 +0,0 @@
|
||||
unit uPanelControl;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ComCtrls, JvExControls, JvComponent, JvgWizardHeader, StdCtrls,
|
||||
ExtCtrls, uDataModuleBase, JvNavigationPane, cxControls, cxContainer,
|
||||
cxEdit, cxLabel, Buttons, PngSpeedButton, pngimage;
|
||||
|
||||
type
|
||||
TfPanelControl = class(TForm)
|
||||
TabControl1: TTabControl;
|
||||
Button1: TButton;
|
||||
JvNavPanelHeader1: TJvNavPanelHeader;
|
||||
lblUsuarios: TcxLabel;
|
||||
Image1: TImage;
|
||||
procedure lblUsuariosClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
|
||||
procedure VerPanelControl;
|
||||
|
||||
implementation
|
||||
|
||||
uses uUsuarios;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
||||
procedure VerPanelControl;
|
||||
begin
|
||||
with TfPanelControl.Create(NIL) do
|
||||
try
|
||||
ShowModal;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfPanelControl.lblUsuariosClick(Sender: TObject);
|
||||
begin
|
||||
AdministrarUsuarios;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,369 +0,0 @@
|
||||
inherited frViewControlesBase: TfrViewControlesBase
|
||||
object cxTreeList: TcxDBTreeList
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 296
|
||||
Height = 216
|
||||
BorderStyle = cxcbsNone
|
||||
Align = alClient
|
||||
Bands = <
|
||||
item
|
||||
Options.Sizing = False
|
||||
end
|
||||
item
|
||||
end>
|
||||
BufferedPaint = True
|
||||
DataController.DataSource = dsDataTable
|
||||
DataController.ParentField = 'ID'
|
||||
DataController.KeyField = 'ID'
|
||||
DefaultRowHeight = 18
|
||||
OptionsCustomizing.BandCustomizing = False
|
||||
OptionsCustomizing.BandHorzSizing = False
|
||||
OptionsCustomizing.BandMoving = False
|
||||
OptionsCustomizing.BandVertSizing = False
|
||||
OptionsCustomizing.ColumnCustomizing = False
|
||||
OptionsCustomizing.ColumnHorzSizing = False
|
||||
OptionsCustomizing.ColumnMoving = False
|
||||
OptionsCustomizing.ColumnVertSizing = False
|
||||
OptionsCustomizing.DynamicSizing = True
|
||||
OptionsCustomizing.RowSizing = True
|
||||
OptionsData.Editing = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.CheckHasChildren = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsView.CellAutoHeight = True
|
||||
OptionsView.CellEndEllipsis = True
|
||||
OptionsView.ScrollBars = ssVertical
|
||||
OptionsView.Buttons = False
|
||||
OptionsView.ColumnAutoWidth = True
|
||||
OptionsView.Headers = False
|
||||
OptionsView.ShowRoot = False
|
||||
RootValue = -1
|
||||
TabOrder = 0
|
||||
object cxDBTreeListICONO: TcxDBTreeListColumn
|
||||
PropertiesClassName = 'TcxImageComboBoxProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
Properties.Images = ReportImages
|
||||
Properties.Items = <
|
||||
item
|
||||
ImageIndex = 0
|
||||
Value = 1
|
||||
end
|
||||
item
|
||||
ImageIndex = 1
|
||||
Value = 2
|
||||
end
|
||||
item
|
||||
ImageIndex = 2
|
||||
Value = 3
|
||||
end
|
||||
item
|
||||
Value = 0
|
||||
end
|
||||
item
|
||||
ImageIndex = 3
|
||||
Value = 4
|
||||
end
|
||||
item
|
||||
ImageIndex = 4
|
||||
Value = 5
|
||||
end
|
||||
item
|
||||
ImageIndex = 5
|
||||
Value = 6
|
||||
end
|
||||
item
|
||||
ImageIndex = 6
|
||||
Value = 7
|
||||
end
|
||||
item
|
||||
ImageIndex = 7
|
||||
Value = 8
|
||||
end>
|
||||
Properties.LargeImages = ReportImages
|
||||
Properties.MultiLineText = True
|
||||
Properties.ReadOnly = True
|
||||
DataBinding.FieldName = 'ICONO'
|
||||
Width = 45
|
||||
Position.ColIndex = 0
|
||||
Position.LineCount = 2
|
||||
Position.RowIndex = 0
|
||||
Position.BandIndex = 0
|
||||
end
|
||||
object cxDBTreeListORDEN: TcxDBTreeListColumn
|
||||
Visible = False
|
||||
DataBinding.FieldName = 'ORDEN'
|
||||
Options.Sizing = False
|
||||
Width = 45
|
||||
Position.ColIndex = 0
|
||||
Position.RowIndex = 1
|
||||
Position.BandIndex = 0
|
||||
end
|
||||
object cxDBTreeListNOMBRE: TcxDBTreeListColumn
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Vert = taBottomJustify
|
||||
DataBinding.FieldName = 'NOMBRE'
|
||||
Width = 588
|
||||
Position.ColIndex = 0
|
||||
Position.RowIndex = 0
|
||||
Position.BandIndex = 1
|
||||
end
|
||||
object cxDBTreeListDESCRIPCION: TcxDBTreeListColumn
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
DataBinding.FieldName = 'DESCRIPCION'
|
||||
Width = 588
|
||||
Position.ColIndex = 0
|
||||
Position.RowIndex = 1
|
||||
Position.BandIndex = 1
|
||||
end
|
||||
object cxDBTreeListDUMMY: TcxDBTreeListColumn
|
||||
Width = 588
|
||||
Position.ColIndex = 0
|
||||
Position.RowIndex = 2
|
||||
Position.BandIndex = 1
|
||||
end
|
||||
end
|
||||
object cxStyleRepository1: TcxStyleRepository
|
||||
Left = 80
|
||||
Top = 96
|
||||
object cxStyleTITULO: TcxStyle
|
||||
AssignedValues = [svFont, svTextColor]
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
TextColor = clActiveCaption
|
||||
end
|
||||
object cxStyleDESCRIPCION: TcxStyle
|
||||
end
|
||||
object cxStyle1: TcxStyle
|
||||
AssignedValues = [svColor, svTextColor]
|
||||
Color = clHighlight
|
||||
TextColor = clHighlightText
|
||||
end
|
||||
end
|
||||
object ReportImages: TPngImageList
|
||||
Height = 28
|
||||
Width = 28
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD252000002024944415478DA
|
||||
BDD5DB2E03411800E0E923B870E1CE9D085A940B823894D2489C4FAFE101BC80
|
||||
8444840B89B3D4A954292D8A2855DD5655EB14E205A4570E09BAFB9B5944C7A1
|
||||
B335F87727F3CFBF93F976B3995D1500A0FF0C553468D93A9107A4F6D6A8313E
|
||||
E4F33597AFCBE74BDED93384FCF67E5534F0F181287061F3186A4AD27E74E746
|
||||
AB80921213507B471785C604CD1B21A82D4DFF1138B1B48F325393D175F88642
|
||||
FF0494F01A46AB07156853D0EDFD0385C604E71D41A82BCB880B1325098922A0
|
||||
699B80CAF2D2D1E35384420F6C7DAA6FC1B9F523A8D7A9E3C6483F6BF7A2EEBE
|
||||
B14F736282A6F50034E834716392847B51425BDE2B74777F87C2E1B03C6770C2
|
||||
C200D73058CE06BFC23ED64C36171B9C5D3D84C68A4C6E8CD4CC6B6E363863F7
|
||||
43933E8B1B23F9A2C3C306A7ED07D0ACCFE6C6486EDD14D8E094CD072D955A0A
|
||||
227B8C0550B5D7F1AAD3A7005CC16095961B23BD63D7CF062757BCD05A95C38D
|
||||
C95BC41D6083C66501DA0CB9DC18694E21A800B40AD062C8E1C6445C77F9426C
|
||||
107FF1F13BCCE5C622B8F71C9E28031B2BB4DC18C97DC1333638BEE8863A5D36
|
||||
738F452FFC0ED278E0F4820D8E59F6A0A6348B1B237342E797CAC0EA620D3746
|
||||
421138BAE0024391861B530C8E9877A1B250CD8D290687E777405FA0E6C61483
|
||||
43734E28CFCF90FF65BF114C70D0B40DBD0393BF82BD454CF03FE219EFD39C05
|
||||
A47A98E90000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD252000002CB4944415478DA
|
||||
BDD36F4813711807F0EF4984F5A68108254249648689A961334B8C95342CAD4C
|
||||
222D5F66607F2C825E1426B504090A7B636446A00605A624A4258A664EF1DFA6
|
||||
0E97298D72AED3306FCB68A277D7EE3776E9727AB7AB1E381EF8DDFD9ECFEFB9
|
||||
E78EE2791EFF33286F90A228E0DA171EB737504AB37E3D48F1DD34A865415556
|
||||
13CF3CD5504AF2AB660D765D3E8F804F15E8A86644F40FF0597D2F59385B69C7
|
||||
8353EBFCCA8FD24611929F8B840C15A0676076AA60187720DBC1514B8227B471
|
||||
A0624AC01B2ECACA6CDF05D43C2FC39EE4740C6487E2C0B77982093134F51D21
|
||||
012C7C82728373D5F160344D639AF90A477E0A8269777D130D9C1126F6374096
|
||||
E3F0AE220FEF9D3BA056AB0926849DF901AAF028268C3CC17CCE500EE8C1E2F7
|
||||
6F4780B5074F8C6A6C8DD84C30A1539D4E07ABD5EAFB2B5D0816D78CAF08AA1D
|
||||
3A119B9C9B01373F8B86E15472CF1B53D4A177671E8C9918839331E2B82E14C1
|
||||
918761785DAA1C94825D2D2AC3E3AA97CA416F6C62D60E8E9D857DD226621DDD
|
||||
83A86DEC940F2E35C38533F3850987AA6BEAF2BF43E11FE3381EED95CB77D6DE
|
||||
35409E13C0FA961EFF407F3096E5F1A6AD573EE8C15896C3AD829398E3D39197
|
||||
FA62454CC84DED0679A080DDA9B591B54DB6EB181C9B41ECCC38FA5497901955
|
||||
2462E7EE772EDA9F16BD8A1CB0A5B35F3A98793056EC4C386D516136AE24AD86
|
||||
A5D90C8B3310D59FD7E0ADE1C3929D913DAEABCDF5F1480633526244ACAE3C17
|
||||
DDFA56E4C586C160F909FD340D666D1C0A6E3EF489B1AE757DAF493A7844132D
|
||||
163A9D93838F23666C0CE611141A066D7C10128EDD5D169B77E52EE39074F050
|
||||
7214D95CDA3885AA1B5A848547226B5F201233EE91E26ECC5DD8F326DCE06FBC
|
||||
CF342C1DD4EE8D5C74FA85F394820957BF79443A9892B84D11263C631A1E950E
|
||||
6AD4118A30216481C9F1E18A30D960D2CE2DA86ED0436948068B4BCA15639E58
|
||||
11FCD7F10B8E341130466CDCF80000000049454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD252000002B14944415478DA
|
||||
BDD5CB4F13411800F0AF897AF2A0311E8C07F5604C63E9839683040D42A1D098
|
||||
D42A8826DEFC070C4AF4E4C1981883C117C13755B02922A505ACB440855829B5
|
||||
DB07B5151589070831846C222A242ADD717760B14B6B676991AFBB99D9D96FF7
|
||||
37B3B3D3952084602D439208760E8CE003AE8DDF05C7EC0F6F8B757C1E6F0BF5
|
||||
DA9B2608BB6E4B1281E50312801DFDEF90E1E0DE8C7A6E7150B06DEB66A8BE50
|
||||
2740D382F6973174B8489611687EFE0694D29D304D7F17A0FF0564D87B581C7E
|
||||
2850EF811F733F05685AD0E68E2263710EAE5FB14D12A173C6ED10671888C711
|
||||
B43A2928DE27835FBFE70568C8D920F927D8DEF7161DD1CA458F8CC7B8B2CD15
|
||||
806B0DCD493969416B5F041DD52A568C310C5BC61918087C86D9B959A0691AE7
|
||||
349A3B09602F0B9690C154D8F236ABD34B06DB7A865145A952F41C26C6A9C24D
|
||||
820ED87B7D64F0992B8C2A75AAAC46C6B775B9FD64B0D51542C774B959635CDD
|
||||
D14F91C1A7CE20AA2A530B206E8D910041DBE2718F272802EC66C172754673C8
|
||||
8751B501A3EEC130196CE90EA0E3E59AAC46B650B24BC41721839617143AA1CF
|
||||
CB1AE3760F1515013A2854A5D7648DC5D9766F304606D97F7C760EF3F045D71D
|
||||
5329E7E864FE467CF31DF7C6539E0F566E8179F67AFFF08838B0A2542D6A64BB
|
||||
1E4C80A9F8EFB7939E61C07CEB34DCA93D8FF383D10F64F049970F19B5B9C435
|
||||
C63DB2DDA6C92590C3462718A0ECD5507FB906E746DE7F2283CD9D43C850A422
|
||||
62DC2393367DC1208F8D8E3330133A0B372E9DC139B18F63E2C043850A8C3D1C
|
||||
F89A728E0CCAF5B80332F3145CD5489730FA1B827563355077B11AE789029B3A
|
||||
BC487F409176647C9BC2320DAAA1BB491D5A11F8D83E88CAF6CB89D8C2EB9FBC
|
||||
14124314F8C8F61AE90AE45963A24153BB0795E4E7E06FD96A04116CB4BE42F5
|
||||
F75B5605E3232DB816F1079F420105E5B916660000000049454E44AE426082}
|
||||
Name = 'PngImage2'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD252000002E14944415478DA
|
||||
63FCFFFF3F033D0123B2859B0E5C03734062308CC207423082B2C1F260046177
|
||||
4F9ACF707EE77446640BD03D8462E1C6FD57FFFB3B6A93E5F2E55B4F33488A0A
|
||||
3214D5F5A1588AD7C20DFBAEFC0F70D221CBC2A55B4E3218682A30BC7EFB19C5
|
||||
52A22DEC5CFF142E5E1E284D504C86F509838DB13AC3976F3F512CC56BE1FABD
|
||||
97FF073AEB92E4B3BFFFFE31FCFDFB9F61D58ED30CCE963A0CBF7EFF41B1F4DC
|
||||
8E698C382D5CB7E7D2FF20173D922D03D16B769E61E89FB618430D5E0BD7EEB9
|
||||
F83FD8451F23F8B081127F49B865FFFE01E9BFFF180E9CB9C7F0F5DB5786B76F
|
||||
DF82D5CC5BBA898085BB8116BAEA93E4339865E8626B771C236CE19A5D17FE87
|
||||
B819506C19486CC3EE13842D5CBDF3FCFF5077439420454F8D20D5202D208341
|
||||
74B6BB10D8B2C93BDF81B300509821D5818761F3DE53842D5CB5F3DCFF307723
|
||||
8A7C06636FDD7F9AB0852B779CFD1FEE618CE2A3D20029B0013D9B9EA3F8ECDF
|
||||
7F089DEECC0FB674FADE8F50710686441B4E865D87CF1261E176A0859EC6703E
|
||||
C85042BE411143E2EF3D7A9EB0852BB69FF91FE16982E2C3026F71B0017D5B5E
|
||||
217CF60FE1C354475EB06533F77F81C7619C251BC3811317095BB87CDBE9FF91
|
||||
5EA614F90C2C0FC4874F5F26C2C2ADA7FF877B99800DE9DEF81CECE25C0F51B0
|
||||
4113B7BF41F1D93F48CDC4906CC705B66CF6C16F701FC698B3301C3B7B85B085
|
||||
C0121F1887A614F9EC2F50FC0F903E75E11A711686B819A3C459B69B10D82048
|
||||
3E43F80C9662136C38C0F2F38EFC848B459830329CBD7C83B0854B369FF81FE8
|
||||
6244308FC17C815087E9D38BD76F13B670F1A6E3FFFD9D0CC11A27ED780B8E33
|
||||
483EFB07CC679F507CF60FDAD48806C617C8B2C527FE80C5402058FF2FC3959B
|
||||
7788B3D0C7419F229FFD85DA4A94858B361EFBEF65A74FB165445BB870C3D1FF
|
||||
1EB67A6459B6EA3C13DC1CA28374C1FA23FFDD6DF428F219493E9CBFEEF07F57
|
||||
2B5D705D460D40D0C2796B0FFD9F327B05552C8301BC16D2030000BD734D0581
|
||||
7DF1720000000049454E44AE426082}
|
||||
Name = 'PngImage3'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD252000001C64944415478DA
|
||||
63FCFFFF3F033D01E38059B87CDB699ADB1CE965CA88622150806CC3FE01CDF9
|
||||
F7EF3FC3DFBFFF18FEFEFB87C4FECFB06CD32186794B37319CDB310DBF858C33
|
||||
1919823435197EFDFD0BC6BFA134980D34F4C79F3F0C3F81EC3F40F64F201BCC
|
||||
07E237515FE196FD03CAADD87284780BC9011FA2BEC12D03D1ABB71D25CE424A
|
||||
8211661988BF6EE771D22D644CC4EFDBCF537F30FCF903B1186C21D462107FD3
|
||||
9E9394F9106CE85F245F807CF7F73F56CB40BEDEB2EF146E0B09F9845470A7E9
|
||||
35C3F60367F05BF87F3E224B5E5C69C8A01F7E1E271F19A0CB81CCBA59FF8A61
|
||||
D7E1B3F82D4CC830806B2A78C0C030418101271F19A0CB2D987181E17AED0B86
|
||||
3D47CFD3CF8757AA9F33EC3F7E817E3EBC50FE84E1F0E9CBF4F3E1D9D2C70CC7
|
||||
CE5EA19F0F4F173F643871FE1AFD7C78A2F001C3E98BD7B15B18EE69C2C09CC4
|
||||
44551F1ECDBBC770EECA4DEC1686BA1B33B0A63053D5878773EE325CB8760BBB
|
||||
85412E860C1CE9AC54F5E1FECCDB0C576EDEC16EA1BF933E0377263B557D88D7
|
||||
426F7B5D06FE1C4E066A02BC167ADAE8E02CF149AD2190014E0BDDACB4A86E19
|
||||
5E0B9D2D3419566D3D42D5208501AC16764F9A4F13CB6000C5427A01BA5B0800
|
||||
BE8AE7E7F700C7D10000000049454E44AE426082}
|
||||
Name = 'PngImage4'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD2520000020E4944415478DA
|
||||
63FCFFFF3F033D0123C842464646086F06034D6CFF9FFE9F11C5C2695326FDEF
|
||||
9ED4CFF0A0F801C311EF7D641BFC0F08FFFCFFC5F0FBDF2F300DC2FE4D310CFF
|
||||
E7A359A8A8A6F8FFFEADFB0C8585850C1BB66E6058B26F1E752CDB15C3C07082
|
||||
01D342980F4100D9329BAD4E382D60636283606636067628FBE1D7470C5BDD57
|
||||
C12D0CDE9D84DD425C3E0459986060806A112307030FB310032F8B1098E666E6
|
||||
63E060E201E3A8B61C868D754B2016027D1ABE3783741F225B88CF324E661E86
|
||||
C0E60486B5B5F3C096FD065A1AB32F8F7C1F12B20C447B3686302CAB9E0AB610
|
||||
E4CBA403E5E4F99018CB40D8B1DE836151653F3C0ED30ED692EEC334430BA22C
|
||||
6305261A9B5A278679159D700BB30E3593914A4F90963D669537C32DCC3BDC49
|
||||
9A0F91C19FFFBFC1090196026186FE46E323F06F86A2237DA4F99012CB4072E5
|
||||
47A790EE434296FDFAFF1D21CEF01BA5B4A93D3E97781F622BAA6096FE46E363
|
||||
B30C841B4F2C26CE878BF6CDA1D832106E3DB992B00FA9651908779E5A4F9C0F
|
||||
67EE9E40B16520F57DA7B712F621B52C03D193CEEC26CE871377B6906DD9CF7F
|
||||
DFE1EC19E78E10F621BA65BF900C40CE637843018AE79C3F459C0FDBB695E2CD
|
||||
D0C45806C20B2E5C20EC43522D5B1E7E066B99EAB05800B785E83EACDB9C4991
|
||||
CF6080281F52CB32BC16A2FB10D45CA41AC06621A821ACA0AA006E043FB0A6A2
|
||||
65508061213D010026DA8D05688EA69C0000000049454E44AE426082}
|
||||
Name = 'PngImage5'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD252000003474944415478DA
|
||||
BD946B48536118C79F95140409E62DBB7C083F85084566372135D2F292B74AD3
|
||||
CCC44B492C32FC966D5AFA2D2A34E9A236733A9D695EA76B622A998917549CA9
|
||||
980895B75D6995A5DBD9DBD939DBAB23754B9D0FBC9CE7FF1ECEF37BFEEFCB79
|
||||
180821D8C860E8808CDB03CE649E4AAEAB16E214902B033D741D330039AE7B6D
|
||||
D604637AD8027F500D12A5CA28EF1E0F845EE526386A5F5040026329A055BC08
|
||||
1173EAE5AB21C672E78353768C37D48895D0DBD36B948B9D7221EFE721C89E3F
|
||||
029A3C1F06063A8C0D5AE834E99038BB2C007730BBD048FA7E8B029DEF0E812A
|
||||
E7300DB4BDD98DE4596EAB2EA6256B68B50808420B84965C04A29E863DBEA00D
|
||||
5822040AEE59D3C0FCFC853C2E6E657D296A1E4A8AB7601D10FC83825608DB81
|
||||
F5560B8A22BFB5395CCACD527B558D1D24902081FEC6C0FCC5EDAE43F8FA8751
|
||||
E0DAA64E600935A0280E589D43739D1972417317B01AD4A0E0051A03E3E37BA9
|
||||
82797907CDBAC388C87928E519DF595DD576ACBD7DE5241481B0B51BD80DF320
|
||||
E79DA38176CC4E24CB765F77673A985A4340D3077218D4CF81BC24480FBCF111
|
||||
C9728E9974187D85006EE166AC432FCCC29BD7DBB03EEDA784C67A1BAC8F7BCD
|
||||
500DB474F4035BF007E4A5C134D03EA90D499F7A98ED4CD7F5B20E1769EA3DB9
|
||||
DE770D00BBEE37C8F9217AE0B556247D7EF21F87BA1F9AF372618E5E8C9883B2
|
||||
D2AD58FB07A940506D8DB5A78F0C5A447658BB9D98A08EB5BD474C0267496028
|
||||
0D74486841925C4F2357A6A68739CE74300DF9ECECFB0469B5BF405616A607C6
|
||||
352149FE29ECF045EE015CB8886B859B08393F0B95E52BDF597BB323D6AEEE5F
|
||||
A81A3D03C3904E02A506A063AC08CD707CD6D599EE9E0DBA7F6814D2ABBE83B4
|
||||
225C0F8C11A29957675605536BB48BDE2D0D178F7C867BE552905447D3C09DD1
|
||||
023459E80789097D94CBAC272EF8C394E4617C446919FB202D751CEB943BBBE1
|
||||
41E604D6D76FD9C1B3C732AC2F27D2434007BCCF9F8299BA583D30AA067D2B0C
|
||||
C09D6A34A67F680D61DA992174C00CDE57986E48A081BB222BD11827C0ECE9F1
|
||||
3F300CE48EC3B4288906EE09E5A291E270E094BF3339DE561B9905A330D5C4A4
|
||||
814E5E8FD0B4B5DDDAABAE104E2A194C3627EB8F94045A94A60F0CDCC8D870E0
|
||||
5FA7D4B1F664B3FE1D0000000049454E44AE426082}
|
||||
Name = 'PngImage6'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||
940000000970485973000017120000171201679FD252000001084944415478DA
|
||||
63FCFFFF3F033D01E3A88534B19031F124ED6DBD7081E1FFF97446B885516106
|
||||
0CEF7E3130ECD870812134D480E1EB1F06862F50FCE937847E71807C390C0B3D
|
||||
0220169EDA7681C12BD00045D38B1F1036C3093C72474F31788598E1D4876121
|
||||
CD82F2FF3F60C431A15AB874CBC9FF6E969A0C5FBFFF64387AE11E43B48F3956
|
||||
BD407564C98180914716C3B91DD310161AA849812DBCFDF82DD52D9CB27807C3
|
||||
BCA59B502D549515663875E90E83A0A020568D7FFFFE6558B1FD0C5972D397ED
|
||||
C6B49016D1F7FBD72F0656363686F7EFDF635A48CB38C41AA4A3714809188DC3
|
||||
D1381C8D43E2E21014A42BB71DA3593C6258D83B6521CD2C8301B885F404C3DF
|
||||
42005A1A11E70A945A890000000049454E44AE426082}
|
||||
Name = 'PngImage7'
|
||||
Background = clWindow
|
||||
end>
|
||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||
Left = 115
|
||||
Top = 96
|
||||
Bitmap = {}
|
||||
end
|
||||
object dsDataTable: TDADataSource
|
||||
Left = 40
|
||||
Top = 96
|
||||
end
|
||||
end
|
||||
@ -1,108 +0,0 @@
|
||||
unit uViewControlesBase_TreeView;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, cxGraphics, cxCustomData, cxStyles, cxTL,
|
||||
cxImageComboBox, cxMaskEdit, cxTextEdit, cxInplaceContainer, cxDBTL,
|
||||
cxControls, cxTLData, Menus, uBizControlesBase, DB, uDADataTable,
|
||||
ImgList, PngImageList;
|
||||
|
||||
type
|
||||
IViewControlesBase = interface(IViewBase)
|
||||
['{D991FCEC-08DB-4F77-BD57-FA04B3C88788}']
|
||||
function GetDblClick: TNotifyEvent;
|
||||
procedure SetDblClick(const Value: TNotifyEvent);
|
||||
property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
|
||||
|
||||
function GetPopupMenu: TPopupMenu;
|
||||
procedure SetPopupMenu(const Value: TPopupMenu);
|
||||
property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
|
||||
|
||||
function GetControl: IBizControlBase;
|
||||
procedure SetControl(const Value: IBizControlBase);
|
||||
property Control: IBizControlBase read GetControl write SetControl;
|
||||
|
||||
procedure Refresh;
|
||||
end;
|
||||
|
||||
TfrViewControlesBase = class(TfrViewBase, IViewControlesBase)
|
||||
cxTreeList: TcxDBTreeList;
|
||||
cxDBTreeListICONO: TcxDBTreeListColumn;
|
||||
cxDBTreeListORDEN: TcxDBTreeListColumn;
|
||||
cxDBTreeListNOMBRE: TcxDBTreeListColumn;
|
||||
cxDBTreeListDESCRIPCION: TcxDBTreeListColumn;
|
||||
cxDBTreeListDUMMY: TcxDBTreeListColumn;
|
||||
cxStyleRepository1: TcxStyleRepository;
|
||||
cxStyleTITULO: TcxStyle;
|
||||
cxStyleDESCRIPCION: TcxStyle;
|
||||
cxStyle1: TcxStyle;
|
||||
ReportImages: TPngImageList;
|
||||
dsDataTable: TDADataSource;
|
||||
protected
|
||||
FControl : IBizControlBase;
|
||||
FOnDblClick: TNotifyEvent;
|
||||
FPopupMenu: TPopupMenu;
|
||||
|
||||
function GetDblClick: TNotifyEvent; virtual;
|
||||
procedure SetDblClick(const Value: TNotifyEvent); virtual;
|
||||
|
||||
function GetPopupMenu: TPopupMenu; virtual;
|
||||
procedure SetPopupMenu(const Value: TPopupMenu); virtual;
|
||||
|
||||
function GetControl: IBizControlBase; virtual;
|
||||
procedure SetControl(const Value: IBizControlBase); virtual;
|
||||
public
|
||||
procedure Refresh; override;
|
||||
property Control: IBizControlBase read GetControl write SetControl;
|
||||
property OnDblClick: TNotifyEvent read GetDblClick write SetDblClick;
|
||||
property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfrViewControlesBase }
|
||||
|
||||
function TfrViewControlesBase.GetControl: IBizControlBase;
|
||||
begin
|
||||
Result := FControl;
|
||||
end;
|
||||
|
||||
function TfrViewControlesBase.GetDblClick: TNotifyEvent;
|
||||
begin
|
||||
Result := FOnDblClick;
|
||||
end;
|
||||
|
||||
function TfrViewControlesBase.GetPopupMenu: TPopupMenu;
|
||||
begin
|
||||
Result := FPopupMenu;
|
||||
end;
|
||||
|
||||
procedure TfrViewControlesBase.Refresh;
|
||||
begin
|
||||
inherited;
|
||||
cxTreeList.Refresh;
|
||||
end;
|
||||
|
||||
procedure TfrViewControlesBase.SetControl(const Value: IBizControlBase);
|
||||
begin
|
||||
FControl := Value;
|
||||
dsDataTable.DataTable := Value.DataTable;
|
||||
end;
|
||||
|
||||
procedure TfrViewControlesBase.SetDblClick(const Value: TNotifyEvent);
|
||||
begin
|
||||
FOnDblClick := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewControlesBase.SetPopupMenu(const Value: TPopupMenu);
|
||||
begin
|
||||
FPopupMenu := Value;
|
||||
cxTreeList.PopupMenu := FPopupMenu;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Binary file not shown.
@ -1,222 +0,0 @@
|
||||
object dmControles: TdmControles
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
end>
|
||||
Left = 528
|
||||
Top = 297
|
||||
Height = 300
|
||||
Width = 300
|
||||
object RemoteService: TRORemoteService
|
||||
ServiceName = 'srvControles'
|
||||
Message = dmBase.ROMessage
|
||||
Channel = dmBase.ROChannel
|
||||
Left = 40
|
||||
Top = 16
|
||||
end
|
||||
object tbl_Controles: TDACDSDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
BlobType = dabtUnknown
|
||||
Required = True
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
InPrimaryKey = True
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'CATEGORIA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'MODIFICABLE'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
BlobType = dabtUnknown
|
||||
DefaultValue = 'S'
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ICONO'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 50
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ORDEN'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'VISTA'
|
||||
DataType = datMemo
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
Name = 'CATEGORIA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
SchemaCall.MethodName = 'GetDatasetSchema'
|
||||
SchemaCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'aDatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'ListaControlesPorCategoria'
|
||||
end>
|
||||
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||||
DataRequestCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'DatasetName'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'ListaControlesPorCategoria'
|
||||
end
|
||||
item
|
||||
Name = 'Params'
|
||||
ParamType = fIn
|
||||
DataType = rtUserDefined
|
||||
UserClassName = 'TDADatasetParamArray'
|
||||
end
|
||||
item
|
||||
Name = 'UserFilter'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'IncludeSchema'
|
||||
ParamType = fIn
|
||||
DataType = rtBoolean
|
||||
Value = False
|
||||
end
|
||||
item
|
||||
Name = 'MaxRecords'
|
||||
ParamType = fIn
|
||||
DataType = rtInteger
|
||||
Value = -1
|
||||
end>
|
||||
DataUpdateCall.MethodName = 'UpdateData'
|
||||
DataUpdateCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtBinary
|
||||
end
|
||||
item
|
||||
Name = 'Delta'
|
||||
ParamType = fIn
|
||||
DataType = rtBinary
|
||||
end>
|
||||
ScriptCall.MethodName = 'GetDatasetScripts'
|
||||
ScriptCall.Params = <
|
||||
item
|
||||
Name = 'Result'
|
||||
ParamType = fResult
|
||||
DataType = rtString
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'DatasetNames'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = 'ListaControlesPorCategoria'
|
||||
end>
|
||||
ReadOnly = False
|
||||
RemoteService = RemoteService
|
||||
Adapter = dmBase.DABINAdapter
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'ListaControlesPorCategoria'
|
||||
IndexDefs = <>
|
||||
Left = 176
|
||||
Top = 16
|
||||
end
|
||||
object ds_Controles: TDADataSource
|
||||
DataTable = tbl_Controles
|
||||
Left = 176
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
@ -1,70 +0,0 @@
|
||||
unit uDataModuleControles;
|
||||
|
||||
interface
|
||||
|
||||
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
||||
{RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider,
|
||||
uDACDSDataTable, uROClient, uROServiceComponent, uRORemoteService;
|
||||
|
||||
type
|
||||
TdmControles = class(TDAClientDataModule)
|
||||
RemoteService: TRORemoteService;
|
||||
tbl_Controles: TDACDSDataTable;
|
||||
ds_Controles: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
function GetItems (const ACategoria : String): TDACDSDataTable;
|
||||
end;
|
||||
|
||||
var
|
||||
dmControles: TdmControles;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
Forms, Controls,
|
||||
schControlesClient_Intf,
|
||||
uDataModuleBase, uDataTableUtils, DataAbstract_Intf, cxControls;
|
||||
|
||||
procedure TdmControles.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RemoteService.Channel := dmBase.Channel;
|
||||
RemoteService.Message := dmBase.Message;
|
||||
end;
|
||||
|
||||
function TdmControles.GetItems (const ACategoria : String): TDACDSDataTable;
|
||||
var
|
||||
dtControles: TDACDSDataTable;
|
||||
AParams : TDADatasetParamArray;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
dtControles := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(tbl_Controles, dtControles);
|
||||
|
||||
AParams := TDADatasetParamArray.Create;
|
||||
with AParams.Add do begin
|
||||
Name := fld_ListaControlesPorCategoriaCATEGORIA;
|
||||
Value := ACategoria;
|
||||
end;
|
||||
|
||||
dtControles.DataRequestCall.ParamByName(par_Params).AsComplexType := AParams;
|
||||
|
||||
Result := dtControles;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
dmControles := TdmControles.Create(nil);
|
||||
|
||||
finalization
|
||||
FreeAndNil(dmControles);
|
||||
|
||||
end.
|
||||
|
||||
@ -1,68 +0,0 @@
|
||||
{*******************************************************}
|
||||
{ }
|
||||
{ Administración de puntos de venta }
|
||||
{ }
|
||||
{ Copyright (C) 2006 Rodax Software S.L. }
|
||||
{ }
|
||||
{*******************************************************}
|
||||
|
||||
unit uDateUtils;
|
||||
|
||||
interface
|
||||
|
||||
function NumberDayOfTheWeek(const ADay : String) : Word;
|
||||
function NumberMonthOfTheYear(const AMonth : String) : Word;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
DateUtils;
|
||||
|
||||
function NumberDayOfTheWeek(const ADay : String) : Word;
|
||||
begin
|
||||
if (ADay = 'Monday') or (ADay = 'Lunes') then
|
||||
Result := DayMonday;
|
||||
if (ADay = 'Tuesday') or (ADay = 'Martes') then
|
||||
Result := DayTuesday;
|
||||
if (ADay = 'Wednesday') or (ADay = 'Miercoles') or (ADay = 'Miércoles') then
|
||||
Result := DayWednesday;
|
||||
if (ADay = 'Thursday') or (ADay = 'Jueves') then
|
||||
Result := DayThursday;
|
||||
if (ADay = 'Friday') or (ADay = 'Viernes') then
|
||||
Result := DayFriday;
|
||||
if (ADay = 'Saturday') or (ADay = 'Sabado') or (ADay = 'Sábado') then
|
||||
Result := DaySaturday;
|
||||
if (ADay = 'Sunday') or (ADay = 'Domingo') then
|
||||
Result := DaySunday;
|
||||
end;
|
||||
|
||||
function NumberMonthOfTheYear(const AMonth : String) : Word;
|
||||
begin
|
||||
if (AMonth = 'January') or (AMonth = 'Enero') then
|
||||
Result := 1;
|
||||
if (AMonth = 'February') or (AMonth = 'Febrero') then
|
||||
Result := 2;
|
||||
if (AMonth = 'March') or (AMonth = 'Marzo') then
|
||||
Result := 3;
|
||||
if (AMonth = 'April') or (AMonth = 'Abril') then
|
||||
Result := 4;
|
||||
if (AMonth = 'May') or (AMonth = 'Mayo') then
|
||||
Result := 5;
|
||||
if (AMonth = 'June') or (AMonth = 'Junio') then
|
||||
Result := 6;
|
||||
if (AMonth = 'July') or (AMonth = 'Julio') then
|
||||
Result := 7;
|
||||
if (AMonth = 'August') or (AMonth = 'Agosto') then
|
||||
Result := 8;
|
||||
if (AMonth = 'September') or (AMonth = 'Septiembre') or (AMonth = 'Setiembre') then
|
||||
Result := 9;
|
||||
if (AMonth = 'October') or (AMonth = 'Octubre') then
|
||||
Result := 10;
|
||||
if (AMonth = 'November') or (AMonth = 'Noviembre') then
|
||||
Result := 11;
|
||||
if (AMonth = 'December') or (AMonth = 'Diciembre') then
|
||||
Result := 12;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@ -1,133 +0,0 @@
|
||||
unit uEditorControlBase;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage,
|
||||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
||||
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
||||
TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
|
||||
uBizControlesBase, schControlesClient_Intf, uViewControlBase;
|
||||
|
||||
type
|
||||
IEditorControlBase = interface(IEditorDBItem)
|
||||
['{A9892225-82DB-41AF-B69D-821E0663B3EF}']
|
||||
function GetControl: IBizControlBase;
|
||||
procedure SetControl(const Value: IBizControlBase);
|
||||
property Control: IBizControlBase read GetControl write SetControl;
|
||||
end;
|
||||
|
||||
|
||||
TfEditorControlBase = class(TfEditorDBItem, IEditorControlBase)
|
||||
actPropiedades: TAction;
|
||||
TBXSeparatorItem14: TTBXSeparatorItem;
|
||||
tbxiPropiedades: TTBXItem;
|
||||
TBXSeparatorItem15: TTBXSeparatorItem;
|
||||
tbxiPropiedades2: TTBXItem;
|
||||
procedure actPropiedadesExecute(Sender: TObject);
|
||||
procedure actGuardarCerrarUpdate(Sender: TObject);
|
||||
procedure actGuardarUpdate(Sender: TObject);
|
||||
procedure actPrevisualizarExecute(Sender: TObject);
|
||||
procedure actImprimirExecute(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
protected
|
||||
FControl : IBizControlBase;
|
||||
FViewControl : IViewControlBase;
|
||||
function GetControl: IBizControlBase; virtual;
|
||||
procedure SetControl(const Value: IBizControlBase); virtual;
|
||||
procedure RefrescarTituloEditor; virtual;
|
||||
function GetModified: Boolean; override;
|
||||
procedure RellenarCabeceraInforme; virtual;
|
||||
public
|
||||
property Control: IBizControlBase read GetControl write SetControl;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses uEditorDBBase, uEditorBase;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{ TfEditorControlBase }
|
||||
|
||||
function TfEditorControlBase.GetControl: IBizControlBase;
|
||||
begin
|
||||
Result := FControl;
|
||||
end;
|
||||
|
||||
procedure TfEditorControlBase.SetControl(const Value: IBizControlBase);
|
||||
begin
|
||||
FControl := Value;
|
||||
dsDataTable.DataTable := FControl.DataTable;
|
||||
if Assigned(FViewControl) then
|
||||
FViewControl.Control := FControl;
|
||||
end;
|
||||
|
||||
procedure TfEditorControlBase.actPropiedadesExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
try
|
||||
FControl.VerPropiedades;
|
||||
finally
|
||||
RefrescarTituloEditor;
|
||||
FViewControl.Modificable := FControl.EsModificable;
|
||||
inherited actGuardarExecute(Sender);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorControlBase.RefrescarTituloEditor;
|
||||
begin
|
||||
if Assigned(FControl) and (Length(FControl.NOMBRE) > 0) then
|
||||
begin
|
||||
Caption := FControl.NOMBRE;
|
||||
JvNavPanelHeader.Caption := FControl.NOMBRE;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfEditorControlBase.GetModified: Boolean;
|
||||
begin
|
||||
Result := inherited GetModified and
|
||||
(Assigned(FControl) and FControl.EsModificable);
|
||||
end;
|
||||
|
||||
procedure TfEditorControlBase.actGuardarCerrarUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := Assigned(FControl) and (FControl.EsModificable);
|
||||
end;
|
||||
|
||||
procedure TfEditorControlBase.actGuardarUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := Assigned(FControl) and (FControl.EsModificable);
|
||||
end;
|
||||
|
||||
procedure TfEditorControlBase.actPrevisualizarExecute(Sender: TObject);
|
||||
begin
|
||||
RellenarCabeceraInforme;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorControlBase.RellenarCabeceraInforme;
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfEditorControlBase.actImprimirExecute(Sender: TObject);
|
||||
begin
|
||||
RellenarCabeceraInforme;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfEditorControlBase.actEliminarExecute(Sender: TObject);
|
||||
begin
|
||||
if not FControl.EsModificable then
|
||||
ShowMessage('Este control no se puede eliminar')
|
||||
else
|
||||
inherited
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -1,135 +0,0 @@
|
||||
inherited frViewAgrupaciones: TfrViewAgrupaciones
|
||||
Width = 228
|
||||
Height = 396
|
||||
object TBXLabel1: TTBXLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 228
|
||||
Height = 29
|
||||
Align = alTop
|
||||
Caption = 'Agrupaciones'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
Margins.Top = 5
|
||||
Margins.Bottom = 10
|
||||
ParentColor = True
|
||||
ParentFont = False
|
||||
Underline = True
|
||||
end
|
||||
object pnlAgrupaciones: TTBXAlignmentPanel
|
||||
Left = 0
|
||||
Top = 29
|
||||
Width = 228
|
||||
Height = 77
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
TabOrder = 1
|
||||
DesignSize = (
|
||||
228
|
||||
77)
|
||||
object Label3: TLabel
|
||||
Left = 7
|
||||
Top = 60
|
||||
Width = 74
|
||||
Height = 13
|
||||
Caption = 'y por '#250'ltimo por:'
|
||||
Transparent = True
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 7
|
||||
Top = 32
|
||||
Width = 61
|
||||
Height = 13
|
||||
Caption = 'despu'#233's por:'
|
||||
Transparent = True
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 7
|
||||
Top = 4
|
||||
Width = 95
|
||||
Height = 13
|
||||
Caption = 'Agrupar primero por:'
|
||||
Transparent = True
|
||||
end
|
||||
object TBXButton1: TTBXButton
|
||||
Tag = 1
|
||||
Left = 111
|
||||
Top = 0
|
||||
Width = 111
|
||||
Height = 21
|
||||
Action = actBoton1
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DropDownMenu = PopupMenu1
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ImageIndex = 0
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
Wrapping = twEndEllipsis
|
||||
end
|
||||
object TBXButton3: TTBXButton
|
||||
Tag = 3
|
||||
Left = 111
|
||||
Top = 56
|
||||
Width = 111
|
||||
Height = 21
|
||||
Action = actBoton3
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DropDownMenu = PopupMenu3
|
||||
ImageIndex = 0
|
||||
TabOrder = 1
|
||||
Wrapping = twEndEllipsis
|
||||
end
|
||||
object TBXButton2: TTBXButton
|
||||
Tag = 2
|
||||
Left = 111
|
||||
Top = 28
|
||||
Width = 111
|
||||
Height = 21
|
||||
Action = actBoton2
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DropDownMenu = PopupMenu2
|
||||
ImageIndex = 0
|
||||
TabOrder = 2
|
||||
Wrapping = twEndEllipsis
|
||||
end
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 32
|
||||
Top = 136
|
||||
end
|
||||
object PopupMenu2: TPopupMenu
|
||||
Left = 64
|
||||
Top = 136
|
||||
end
|
||||
object PopupMenu3: TPopupMenu
|
||||
Left = 96
|
||||
Top = 136
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Left = 32
|
||||
Top = 168
|
||||
object actBoton2: TAction
|
||||
OnExecute = actBoton2Execute
|
||||
OnUpdate = actBoton2Update
|
||||
end
|
||||
object actBoton3: TAction
|
||||
OnExecute = actBoton3Execute
|
||||
OnUpdate = actBoton3Update
|
||||
end
|
||||
object actBoton1: TAction
|
||||
OnExecute = actBoton1Execute
|
||||
end
|
||||
object actMenuClick: TAction
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -1,339 +0,0 @@
|
||||
unit uViewAgrupaciones;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ActnList, Menus, dxLayoutLookAndFeels, dxLayoutControl, uViewBase,
|
||||
TBXDkPanels, cxControls, StdCtrls, ImgList, uViewControlGrid,
|
||||
PngImageList, uViewParametrosControlGrid, JvExControls, JvComponent,
|
||||
JvArrowButton, cxLookAndFeelPainters, cxButtons;
|
||||
|
||||
type
|
||||
IViewAgrupaciones = interface(IViewParametrosControlGrid)
|
||||
['{42030B8F-B12D-43D2-AEB2-F642F11D78DA}']
|
||||
function GetAgrupaciones: TStringList;
|
||||
end;
|
||||
|
||||
TfrViewAgrupaciones = class(TfrViewParametrosControlGrid, IViewAgrupaciones)
|
||||
TBXButton1: TTBXButton;
|
||||
TBXButton2: TTBXButton;
|
||||
TBXButton3: TTBXButton;
|
||||
PopupMenu1: TPopupMenu;
|
||||
PopupMenu2: TPopupMenu;
|
||||
PopupMenu3: TPopupMenu;
|
||||
ActionList1: TActionList;
|
||||
actBoton2: TAction;
|
||||
actBoton3: TAction;
|
||||
actBoton1: TAction;
|
||||
actMenuClick: TAction;
|
||||
TBXLabel1: TTBXLabel;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
pnlAgrupaciones: TTBXAlignmentPanel;
|
||||
procedure actBoton2Update(Sender: TObject);
|
||||
procedure actBoton3Update(Sender: TObject);
|
||||
procedure actBoton2Execute(Sender: TObject);
|
||||
procedure actBoton3Execute(Sender: TObject);
|
||||
procedure actBoton1Execute(Sender: TObject);
|
||||
procedure AMenuItemClick(Sender: TObject);
|
||||
protected
|
||||
FColumns : TStringList;
|
||||
|
||||
FBotonPulsado : TTBXButton;
|
||||
procedure MarcarItem(AMenuItem : TMenuItem); overload;
|
||||
procedure MarcarItem(AMenu : TPopupMenu; const ACaption : String); overload;
|
||||
procedure DesmarcarItem(AMenu : TPopupMenu; const ACaption : String);
|
||||
procedure DesmarcarItems(AMenu : TPopupMenu);
|
||||
|
||||
procedure OnButtonPopup(Sender: TTBXCustomButton; var AllowDropDown: Boolean);
|
||||
procedure RellenarListaColumnas;
|
||||
procedure RellenarAgrupaciones;
|
||||
procedure SetModificable(const Value: Boolean); override;
|
||||
public
|
||||
function GetAgrupaciones: TStringList;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure Refresh; override;
|
||||
procedure Execute; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxGridDBTableView, JclStrings;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
const
|
||||
SIN_AGRUPACION = '(Quitar agrupación)';
|
||||
|
||||
{ TfrAgrupaciones }
|
||||
|
||||
procedure TfrViewAgrupaciones.MarcarItem(AMenuItem : TMenuItem);
|
||||
var
|
||||
AItem : TMenuItem;
|
||||
begin
|
||||
AMenuItem.Checked := True;
|
||||
|
||||
AItem := PopupMenu1.Items.Find(AMenuItem.Caption);
|
||||
if Assigned(AItem) then
|
||||
AItem.Enabled := False;
|
||||
|
||||
AItem := PopupMenu2.Items.Find(AMenuItem.Caption);
|
||||
if Assigned(AItem) then
|
||||
AItem.Enabled := False;
|
||||
|
||||
AItem := PopupMenu3.Items.Find(AMenuItem.Caption);
|
||||
if Assigned(AItem) then
|
||||
AItem.Enabled := False;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.MarcarItem(AMenu : TPopupMenu; const ACaption : String);
|
||||
var
|
||||
AItem : TMenuItem;
|
||||
begin
|
||||
AItem := AMenu.Items.Find(ACaption);
|
||||
if Assigned(AItem) then
|
||||
MarcarItem(AItem);
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.DesmarcarItem(AMenu : TPopupMenu; const ACaption : String);
|
||||
var
|
||||
AItem : TMenuItem;
|
||||
begin
|
||||
AItem := AMenu.Items.Find(ACaption);
|
||||
if Assigned(AItem) then
|
||||
begin
|
||||
AItem.Enabled := True;
|
||||
AItem.Checked := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.DesmarcarItems(AMenu : TPopupMenu);
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
for i := 0 to AMenu.Items.Count - 1 do
|
||||
begin
|
||||
AMenu.Items[i].Enabled := True;
|
||||
AMenu.Items[i].Checked := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function TfrViewAgrupaciones.GetAgrupaciones: TStringList;
|
||||
var
|
||||
aux : String;
|
||||
AIndex : Integer;
|
||||
begin
|
||||
Result := TStringList.Create;
|
||||
if actBoton1.Enabled then
|
||||
begin
|
||||
aux := TBXButton1.Caption;
|
||||
aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]);
|
||||
if Length(Trim(aux)) > 0 then
|
||||
Result.Add(aux);
|
||||
|
||||
if actBoton2.Enabled then
|
||||
begin
|
||||
aux := TBXButton2.Caption;
|
||||
aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]);
|
||||
if Length(Trim(aux)) > 0 then
|
||||
Result.Add(aux);
|
||||
|
||||
if actBoton3.Enabled then
|
||||
begin
|
||||
aux := TBXButton3.Caption;
|
||||
aux := StringReplace(aux, '&', '', [rfReplaceAll, rfIgnoreCase]);
|
||||
if Length(Trim(aux)) > 0 then
|
||||
Result.Add(aux);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.actBoton2Update(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := Length(TBXButton1.Caption) > 0;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.actBoton3Update(Sender: TObject);
|
||||
begin
|
||||
(Sender as TAction).Enabled := Length(TBXButton2.Caption) > 0;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.actBoton2Execute(Sender: TObject);
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.actBoton3Execute(Sender: TObject);
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.actBoton1Execute(Sender: TObject);
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.AMenuItemClick(Sender: TObject);
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
if (Sender as TMenuItem).MenuIndex > 0 then // El 0 es 'Sin agrupacion'
|
||||
begin
|
||||
DesmarcarItem(PopupMenu1, FBotonPulsado.Caption);
|
||||
DesmarcarItem(PopupMenu2, FBotonPulsado.Caption);
|
||||
DesmarcarItem(PopupMenu3, FBotonPulsado.Caption);
|
||||
FBotonPulsado.Caption := (Sender as TMenuItem).Caption;
|
||||
MarcarItem(Sender as TMenuItem);
|
||||
end
|
||||
else begin
|
||||
DesmarcarItems(PopupMenu1);
|
||||
DesmarcarItems(PopupMenu2);
|
||||
DesmarcarItems(PopupMenu3);
|
||||
// Anular los botones que estén por debajo del actual
|
||||
for i := 3 downto FBotonPulsado.Tag do
|
||||
TTBXButton(FindComponent('TBXButton' + IntToStr(i))).Caption := '';
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TfrViewAgrupaciones.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FColumns := TStringList.Create;
|
||||
|
||||
TBXButton1.OnDropDown := OnButtonPopup;
|
||||
TBXButton2.OnDropDown := OnButtonPopup;
|
||||
TBXButton3.OnDropDown := OnButtonPopup;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.OnButtonPopup(Sender: TTBXCustomButton;
|
||||
var AllowDropDown: Boolean);
|
||||
begin
|
||||
FBotonPulsado := (Sender as TTBXButton);
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.Execute;
|
||||
var
|
||||
AgrBotones : TStringList;
|
||||
i : Integer;
|
||||
begin
|
||||
AgrBotones := GetAgrupaciones;
|
||||
for i := 0 to FColumns.Count - 1 do
|
||||
(FColumns.Objects[i] as TcxGridDBColumn).GroupIndex := AgrBotones.IndexOf(FColumns.Strings[i]);
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.Refresh;
|
||||
begin
|
||||
RellenarListaColumnas;
|
||||
RellenarAgrupaciones;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.RellenarListaColumnas;
|
||||
var
|
||||
i : integer;
|
||||
|
||||
function DarItem (const ACaption : string):TMenuItem;
|
||||
begin
|
||||
Result := NewItem(ACaption, 0, false, true, AMenuItemClick, 0, '');
|
||||
end;
|
||||
|
||||
begin
|
||||
PopupMenu1.Items.Clear;
|
||||
PopupMenu2.Items.Clear;
|
||||
PopupMenu3.Items.Clear;
|
||||
|
||||
PopupMenu1.Items.Add(DarItem(SIN_AGRUPACION));
|
||||
PopupMenu2.Items.Add(DarItem(SIN_AGRUPACION));
|
||||
PopupMenu3.Items.Add(DarItem(SIN_AGRUPACION));
|
||||
|
||||
for i := 0 to ViewControlGrid.ColumnCount - 1 do
|
||||
begin
|
||||
FColumns.AddObject(ViewControlGrid.Columns[i].Caption, ViewControlGrid.Columns[i]);
|
||||
PopupMenu1.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption));
|
||||
PopupMenu2.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption));
|
||||
PopupMenu3.Items.Add(DarItem(ViewControlGrid.Columns[i].Caption));
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TfrViewAgrupaciones.Destroy;
|
||||
begin
|
||||
FreeAndNIL(FColumns);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.RellenarAgrupaciones;
|
||||
var
|
||||
i : integer;
|
||||
AList : TStringList;
|
||||
begin
|
||||
AList := TStringList.Create;
|
||||
|
||||
try
|
||||
// Recuperar las agrupaciones del grid
|
||||
for i := 0 to ViewControlGrid.GroupedColumnCount - 1 do
|
||||
begin
|
||||
if i = 3 then
|
||||
Break; // Sólo meter las 3 primera agrupaciones
|
||||
AList.Add(ViewControlGrid.GroupedColumns[i].Caption);
|
||||
end;
|
||||
|
||||
if AList.Count > 0 then
|
||||
begin
|
||||
DesmarcarItems(PopupMenu1);
|
||||
DesmarcarItems(PopupMenu2);
|
||||
DesmarcarItems(PopupMenu3);
|
||||
|
||||
// Anular los botones que estén por debajo del actual
|
||||
for i := 1 to 3 do
|
||||
TTBXButton(FindComponent('TBXButton' + IntToStr(i))).Caption := '';
|
||||
|
||||
TBXButton1.Caption := AList.Strings[0];
|
||||
MarcarItem(TBXButton1.DropDownMenu, AList.Strings[0]);
|
||||
|
||||
if AList.Count > 1 then
|
||||
begin
|
||||
TBXButton2.Caption := AList.Strings[1];
|
||||
MarcarItem(TBXButton2.DropDownMenu, AList.Strings[1]);
|
||||
|
||||
if AList.Count > 2 then
|
||||
begin
|
||||
TBXButton3.Caption := AList.Strings[2];
|
||||
MarcarItem(TBXButton3.DropDownMenu, AList.Strings[2]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
FreeAndNil(AList);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAgrupaciones.SetModificable(const Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
pnlAgrupaciones.Enabled := Value;
|
||||
|
||||
if pnlAgrupaciones.Enabled then
|
||||
begin
|
||||
Label1.Font.Color := clWindowText;
|
||||
Label2.Font.Color := clWindowText;
|
||||
Label3.Font.Color := clWindowText;
|
||||
TBXButton1.Font.Color := clWindowText;
|
||||
TBXButton2.Font.Color := clWindowText;
|
||||
TBXButton3.Font.Color := clWindowText;
|
||||
end
|
||||
else begin
|
||||
Label1.Font.Color := clBtnShadow;
|
||||
Label2.Font.Color := clBtnShadow;
|
||||
Label3.Font.Color := clBtnShadow;
|
||||
TBXButton1.Font.Color := clBtnShadow;
|
||||
TBXButton2.Font.Color := clBtnShadow;
|
||||
TBXButton3.Font.Color := clBtnShadow;
|
||||
end
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -1,42 +0,0 @@
|
||||
inherited frViewColumnas: TfrViewColumnas
|
||||
Width = 316
|
||||
Height = 350
|
||||
object TBXLabel1: TTBXLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 316
|
||||
Height = 29
|
||||
Align = alTop
|
||||
Caption = 'Columnas'
|
||||
FocusControl = lbColumnas
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
Margins.Top = 5
|
||||
Margins.Bottom = 10
|
||||
ParentColor = True
|
||||
ParentFont = False
|
||||
Underline = True
|
||||
end
|
||||
object lbColumnas: TcxCheckListBox
|
||||
Left = 0
|
||||
Top = 29
|
||||
Width = 316
|
||||
Height = 321
|
||||
Align = alClient
|
||||
Items = <>
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.Color = clWindow
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
OnClickCheck = lbColumnasClickCheck
|
||||
end
|
||||
end
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -1,115 +0,0 @@
|
||||
inherited frViewSumarios: TfrViewSumarios
|
||||
Width = 344
|
||||
Height = 472
|
||||
object TBXLabel1: TTBXLabel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 344
|
||||
Height = 29
|
||||
Align = alTop
|
||||
Caption = 'Res'#250'menes'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
Margins.Top = 5
|
||||
Margins.Bottom = 10
|
||||
ParentColor = True
|
||||
ParentFont = False
|
||||
Underline = True
|
||||
end
|
||||
object vgSumarios: TcxVerticalGrid
|
||||
Left = 0
|
||||
Top = 29
|
||||
Width = 344
|
||||
Height = 443
|
||||
Styles.Category = cxStyleCategoria
|
||||
Align = alClient
|
||||
Images = PngImageList1
|
||||
LookAndFeel.Kind = lfStandard
|
||||
LookAndFeel.NativeStyle = True
|
||||
OptionsView.CellAutoHeight = True
|
||||
OptionsView.CellEndEllipsis = True
|
||||
OptionsView.ScrollBars = ssVertical
|
||||
OptionsView.RowHeaderWidth = 133
|
||||
OptionsView.GridLines = vglVertical
|
||||
OptionsView.ValueMinWidth = 75
|
||||
TabOrder = 1
|
||||
end
|
||||
object PngImageList1: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
61000000097048597300000E9C00000E9C01079453DD000000534944415478DA
|
||||
63FCFFFF3F03258071F018C0C8C848944940F58CB80CB0075207A0E20E407C10
|
||||
BB7EDC0680288286A07B19DD0082861063005E43883500A72174710145614051
|
||||
2C509C0E284B89E4028A0D0000DBA366E1865C514F0000000049454E44AE4260
|
||||
82}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000000794944415478DA
|
||||
63FCFFFF3F0325809162030CDD338936E1FCCEE98C580DC8CF4C870BFCF9F397
|
||||
E1FBCF5F0CDF7E00F1F79F0C5FBEFF6078F6FA3DC38D8B27F01BB0F3D845BCB6
|
||||
E33580222F60530832149B62AC81884B825843F02A20C6108236103204671810
|
||||
E37FBC06109B36F01A404CDAA0DC0B039E1B0126BE69852B2E82B70000000049
|
||||
454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD2520000011E4944415478DA
|
||||
63FCFFFF3F0325801164C0D22D27C936056E40B48F39511AFEFCFDC7F0FBCF5F
|
||||
3076082E423540ADEA3C5CE165F924148DBA0FE7C1D967AA351916AD3BC0306F
|
||||
E9264C036EB5198215FD9C09A43DBE3030BC60605830E30E43FA7C882F416A8E
|
||||
96AA32ACDC728408030C80063CE06058B0E30A8A01070B9519D6EE3886DD006C
|
||||
5E5870E20243AFE439387F4FAE02C3A63D27C9F7C28E4C59866D07CE90EF85CD
|
||||
A9D20CBB8F9C23DF0BABE3C4180E9FBE4CBE17964589309C387F15D580704F53
|
||||
06ADDA8B447961619820C3D9CB37500D08723562D06FBC82E20590D36100D90B
|
||||
7382F8182E5DBF8D6A80AFA33EC39F3F88640A67FFFE0B1543C8FDFBF79FE1CA
|
||||
CD3BA80678DAEA322CDB7488A48C846240EF948564E54600564A377B046BCB77
|
||||
0000000049454E44AE426082}
|
||||
Name = 'PngImage2'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 88
|
||||
Top = 104
|
||||
Bitmap = {}
|
||||
end
|
||||
object cxStyleRepository1: TcxStyleRepository
|
||||
Left = 216
|
||||
Top = 104
|
||||
object cxStyleNombreColumna: TcxStyle
|
||||
AssignedValues = [svColor, svTextColor]
|
||||
Color = clWindow
|
||||
TextColor = clActiveCaption
|
||||
end
|
||||
object cxStyleCategoria: TcxStyle
|
||||
AssignedValues = [svColor, svTextColor]
|
||||
Color = 15329769
|
||||
TextColor = clHighlight
|
||||
end
|
||||
object cxStyleNombreColumnaInactivo: TcxStyle
|
||||
AssignedValues = [svColor, svTextColor]
|
||||
Color = clWindow
|
||||
TextColor = cl3DDkShadow
|
||||
end
|
||||
object cxStyleCategoriaInactivo: TcxStyle
|
||||
AssignedValues = [svColor, svTextColor]
|
||||
Color = 15329769
|
||||
TextColor = clBtnShadow
|
||||
end
|
||||
object cxStyleContentInactivo: TcxStyle
|
||||
AssignedValues = [svColor, svTextColor]
|
||||
Color = clWindow
|
||||
TextColor = clBtnShadow
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -1,325 +0,0 @@
|
||||
unit uViewSumarios;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, dxLayoutControl, cxControls, cxContainer, cxListBox,
|
||||
TBXDkPanels, ActnList, cxCustomData, cxGridDBTableView, cxGridTableView,
|
||||
cxGraphics, cxStyles, cxTL, cxTextEdit, cxDropDownEdit, ImgList,
|
||||
PngImageList, ComCtrls, JvExComCtrls, JvComCtrls, cxInplaceContainer,
|
||||
ExtCtrls, cxEdit, cxVGrid, TBXToolPals, uViewControlGrid,
|
||||
uViewParametrosControlGrid;
|
||||
|
||||
type
|
||||
IViewSumarios = interface(IViewParametrosControlGrid)
|
||||
['{4AEE3447-C6A4-491F-87E7-02CD255A7695}']
|
||||
end;
|
||||
|
||||
TfrViewSumarios = class(TfrViewParametrosControlGrid, IViewSumarios)
|
||||
PngImageList1: TPngImageList;
|
||||
vgSumarios: TcxVerticalGrid;
|
||||
TBXLabel1: TTBXLabel;
|
||||
cxStyleRepository1: TcxStyleRepository;
|
||||
cxStyleNombreColumna: TcxStyle;
|
||||
cxStyleCategoria: TcxStyle;
|
||||
cxStyleNombreColumnaInactivo: TcxStyle;
|
||||
cxStyleCategoriaInactivo: TcxStyle;
|
||||
cxStyleContentInactivo: TcxStyle;
|
||||
procedure vgSumariosEditorRowInitPopup(Sender: TObject);
|
||||
procedure vgSumariosEditorRowEditValueChanged(
|
||||
Sender: TObject);
|
||||
protected
|
||||
procedure RellenarArbolTotales;
|
||||
|
||||
function AnadirSumario(const ACaption : String;
|
||||
const AKind : TcxSummaryKind) : TcxEditorRow;
|
||||
|
||||
procedure RellenarTotalesPie;
|
||||
procedure RellenarTotalesGrupo(const AGroupName : String);
|
||||
procedure RellenarCategorias;
|
||||
procedure RellenarCategoria(const APosition : TcxSummaryPosition;
|
||||
const AGroupName : String = '');
|
||||
|
||||
procedure AplicarSumarioVista(const APosition : TcxSummaryPosition;
|
||||
const AColumnCaption : String; const AKind : TcxSummaryKind);
|
||||
procedure SetModificable(const Value: Boolean); override;
|
||||
public
|
||||
procedure Execute; override;
|
||||
procedure Refresh; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
DB, cxGridPopupMenuConsts;
|
||||
|
||||
var
|
||||
SumaryKindStrArray : array[skNone..skAverage] of String
|
||||
= ('', 'Sumar', 'Mínimo', 'Máximo', 'Contar', 'Promedio');
|
||||
|
||||
procedure TfrViewSumarios.Refresh;
|
||||
begin
|
||||
RellenarCategorias;
|
||||
end;
|
||||
|
||||
procedure TfrViewSumarios.RellenarArbolTotales;
|
||||
var
|
||||
i : Integer;
|
||||
begin
|
||||
// Recuperar las agrupaciones del grid
|
||||
for i := 0 to ViewControlGrid.GroupedColumnCount - 1 do
|
||||
begin
|
||||
if i = 3 then
|
||||
Break; // Sólo meter las 3 primera agrupaciones
|
||||
RellenarCategoria(spGroup, ViewControlGrid.GroupedColumns[i].Caption);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrViewSumarios.AnadirSumario(const ACaption : String;
|
||||
const AKind : TcxSummaryKind) : TcxEditorRow;
|
||||
begin
|
||||
Result := vgSumarios.Add(TcxEditorRow) as TcxEditorRow;
|
||||
with Result do
|
||||
begin
|
||||
Properties.Caption := ACaption;
|
||||
Properties.Value := SumaryKindStrArray[AKind];
|
||||
Properties.ImageIndex := 2;
|
||||
Properties.EditPropertiesClass := TcxComboBoxProperties;
|
||||
with TcxComboBoxProperties(Properties.EditProperties) do
|
||||
begin
|
||||
ImmediateDropDown := True;
|
||||
DropDownListStyle := lsFixedList;
|
||||
ImmediatePost := True;
|
||||
ImmediateUpdateText := True;
|
||||
PostPopupValueOnTab := True;
|
||||
OnInitPopup := vgSumariosEditorRowInitPopup;
|
||||
OnEditValueChanged := vgSumariosEditorRowEditValueChanged;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewSumarios.AplicarSumarioVista (
|
||||
const APosition: TcxSummaryPosition; const AColumnCaption: String;
|
||||
const AKind: TcxSummaryKind);
|
||||
const
|
||||
MASK_MONEDA = ',0.## €;-,0.## €';
|
||||
MASK_NUMERO = '#,##0';
|
||||
var
|
||||
AColumn : TcxGridDBColumn;
|
||||
begin
|
||||
AColumn := ViewControlGrid.GetColumnByCaption(AColumnCaption);
|
||||
if APosition = spFooter then
|
||||
begin
|
||||
AColumn.Summary.FooterKind := AKind;
|
||||
if (AKind in [skSum, skAverage]) and (AColumn.PropertiesClassName = 'TcxCurrencyEditProperties') then
|
||||
AColumn.Summary.FooterFormat := MASK_MONEDA
|
||||
else
|
||||
AColumn.Summary.FooterFormat := MASK_NUMERO;
|
||||
end
|
||||
else begin
|
||||
AColumn.Summary.GroupFooterKind := AKind;
|
||||
if (AKind in [skSum, skAverage]) and (AColumn.PropertiesClassName = 'TcxCurrencyEditProperties') then
|
||||
AColumn.Summary.GroupFooterFormat := MASK_MONEDA
|
||||
else
|
||||
AColumn.Summary.GroupFooterFormat := MASK_NUMERO;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewSumarios.RellenarTotalesPie;
|
||||
var
|
||||
i, j: Integer;
|
||||
ASummary: TcxDataFooterSummaryItems;
|
||||
AClase : TcxSummaryKind;
|
||||
ACaption : String;
|
||||
ACategory : TcxCategoryRow;
|
||||
ARow : TcxEditorRow;
|
||||
begin
|
||||
vgSumarios.BeginUpdate;
|
||||
try
|
||||
ACategory := (vgSumarios.AddChild(nil, TcxCategoryRow) as TcxCategoryRow);
|
||||
with ACategory.Properties do
|
||||
begin
|
||||
ASummary := ViewControlGrid.FocusedView.DataController.Summary.FooterSummaryItems;
|
||||
ImageIndex := 0;
|
||||
Caption := 'Resúmenes totales'
|
||||
end;
|
||||
|
||||
for i := 0 to ViewControlGrid.FocusedView.VisibleColumnCount - 1 do
|
||||
begin
|
||||
ACaption := ViewControlGrid.FocusedView.VisibleColumns[i].Caption;
|
||||
AClase := ViewControlGrid.FocusedView.VisibleColumns[i].Summary.FooterKind;
|
||||
ARow := AnadirSumario(ACaption, AClase);
|
||||
ARow.Parent := ACategory;
|
||||
end;
|
||||
finally
|
||||
vgSumarios.EndUpdate;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrViewSumarios.RellenarCategoria(
|
||||
const APosition: TcxSummaryPosition; const AGroupName: String);
|
||||
begin
|
||||
if APosition = spFooter then
|
||||
RellenarTotalesPie
|
||||
else
|
||||
RellenarTotalesGrupo(AGroupName);
|
||||
end;
|
||||
|
||||
procedure TfrViewSumarios.RellenarCategorias;
|
||||
var
|
||||
i : Integer;
|
||||
begin
|
||||
vgSumarios.ClearRows;
|
||||
RellenarCategoria(spFooter);
|
||||
|
||||
// Recuperar las agrupaciones del grid
|
||||
for i := 0 to ViewControlGrid.GroupedColumnCount - 1 do
|
||||
begin
|
||||
if i = 3 then
|
||||
Break; // Sólo meter las 3 primera agrupaciones
|
||||
RellenarCategoria(spGroup, ViewControlGrid.GroupedColumns[i].Caption);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewSumarios.vgSumariosEditorRowInitPopup(Sender: TObject);
|
||||
var
|
||||
AColumn: TcxGridDBColumn;
|
||||
ARow : TcxEditorRow;
|
||||
const
|
||||
NumberFieldTypes =
|
||||
[ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD, ftDate, ftTime,
|
||||
ftDateTime, ftAutoInc];
|
||||
TimeFieldTypes = [ftDate, ftTime, ftDateTime];
|
||||
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ARow := TcxEditorRow(vgSumarios.FocusedRow);
|
||||
AColumn := TcxGridDBColumn(ViewControlGrid.FocusedView.VisibleColumns[ARow.Index]);
|
||||
|
||||
if Assigned(AColumn.DataBinding.Field) then
|
||||
with TcxComboBoxProperties(TcxPopupEdit(Sender).Properties) do
|
||||
begin
|
||||
Items.Clear;
|
||||
BeginUpdate;
|
||||
try
|
||||
Items.Add(SumaryKindStrArray[skNone]);
|
||||
Items.Add(SumaryKindStrArray[skCount]);
|
||||
|
||||
if AColumn.DataBinding.Field.DataType in NumberFieldTypes then
|
||||
begin
|
||||
Items.Add(SumaryKindStrArray[skMax]);
|
||||
Items.Add(SumaryKindStrArray[skMin]);
|
||||
if not (AColumn.DataBinding.Field.DataType in TimeFieldTypes) then
|
||||
begin
|
||||
Items.Add(SumaryKindStrArray[skSum]);
|
||||
Items.Add(SumaryKindStrArray[skAverage]);
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
EndUpdate;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewSumarios.vgSumariosEditorRowEditValueChanged(
|
||||
Sender: TObject);
|
||||
var
|
||||
AColumn : String;
|
||||
ARow : TcxEditorRow;
|
||||
AKind : TcxSummaryKind;
|
||||
|
||||
function DarSummaryKind(AKind : String) : TcxSummaryKind;
|
||||
var
|
||||
i : TcxSummaryKind;
|
||||
begin
|
||||
if Length(AKind) = 0 then
|
||||
Result := skNone
|
||||
else
|
||||
for i := skSum to skAverage do
|
||||
if SumaryKindStrArray[i] = AKind then
|
||||
begin
|
||||
Result := i;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ARow := TcxEditorRow(vgSumarios.FocusedRow);
|
||||
AColumn := ARow.Properties.Caption;
|
||||
AKind := DarSummaryKind(VarToStr(ARow.Properties.Value));
|
||||
|
||||
if Assigned(ARow.Parent) then
|
||||
begin
|
||||
if(ARow.Parent.Index = 0) then
|
||||
AplicarSumarioVista(spFooter, AColumn, AKind)
|
||||
else
|
||||
AplicarSumarioVista(spGroup, AColumn, AKind)
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewSumarios.RellenarTotalesGrupo(const AGroupName: String);
|
||||
var
|
||||
i, j: Integer;
|
||||
ASummary: TcxDataSummaryGroup;
|
||||
AClase : TcxSummaryKind;
|
||||
ACaption : String;
|
||||
ACategory : TcxCategoryRow;
|
||||
ARow : TcxEditorRow;
|
||||
|
||||
begin
|
||||
ASummary := ViewControlGrid.FocusedView.DataController.Summary.SummaryGroups.FindByItemLink(ViewControlGrid.GetColumnByCaption(AGroupName));
|
||||
|
||||
vgSumarios.BeginUpdate;
|
||||
try
|
||||
ACategory := (vgSumarios.AddChild(nil, TcxCategoryRow) as TcxCategoryRow);
|
||||
with ACategory.Properties do
|
||||
begin
|
||||
ImageIndex := 1;
|
||||
Caption := 'Totales de ' + AGroupName;
|
||||
end;
|
||||
|
||||
for i := 0 to ViewControlGrid.FocusedView.VisibleColumnCount - 1 do
|
||||
begin
|
||||
ACaption := ViewControlGrid.FocusedView.VisibleColumns[i].Caption;
|
||||
AClase := ViewControlGrid.FocusedView.VisibleColumns[i].Summary.GroupFooterKind;
|
||||
ARow := AnadirSumario(ACaption, AClase);
|
||||
ARow.Parent := ACategory;
|
||||
end;
|
||||
finally
|
||||
vgSumarios.EndUpdate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewSumarios.Execute;
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TfrViewSumarios.SetModificable(const Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
vgSumarios.Enabled := Value;
|
||||
if Value then
|
||||
begin
|
||||
vgSumarios.Styles.Category := cxStyleCategoria;
|
||||
vgSumarios.Styles.Header := cxStyleNombreColumna;
|
||||
vgSumarios.Styles.Content := nil;
|
||||
end
|
||||
else begin
|
||||
vgSumarios.Styles.Category := cxStyleCategoriaInactivo;
|
||||
vgSumarios.Styles.Header := cxStyleNombreColumnaInactivo;
|
||||
vgSumarios.Styles.Content := cxStyleContentInactivo;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
@ -1,45 +0,0 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O-
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W+
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-GD
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-N".\"
|
||||
-LE"..\..\Output\Cliente"
|
||||
-LN"..\Lib"
|
||||
-U"..\Lib"
|
||||
-O"..\Lib"
|
||||
-I"..\Lib"
|
||||
-R"..\Lib"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
-w-UNSAFE_CAST
|
||||
@ -1,471 +0,0 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=0
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=1
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=3
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=.\
|
||||
PackageDLLOutputDir=..\..\Output\Cliente
|
||||
PackageDCPOutputDir=..\Lib
|
||||
SearchPath=..\Lib
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=3
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=3082
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.3.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview
|
||||
T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlSearchPath]
|
||||
Count=1
|
||||
Item0=..\Lib
|
||||
[HistoryLists\hlUnitOutputDirectory]
|
||||
Count=1
|
||||
Item0=.\
|
||||
[HistoryLists\hlBPLOutput]
|
||||
Count=1
|
||||
Item0=..\..\Output\Cliente
|
||||
[HistoryLists\hlDCPOutput]
|
||||
Count=1
|
||||
Item0=..\Lib
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=0
|
||||
Freeze Message=The application seems to be frozen.
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
Show TerminateBtn=1
|
||||
TerminateBtn Operation=1
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=1
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesSection=1
|
||||
loSaveCPUSection=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModule=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpUser=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=0
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndCompressAllFiles=0
|
||||
edoShowExceptionDialog=1
|
||||
edoSendEmailChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=1
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoShowProcedureOffset=0
|
||||
boActivateCrashDetection=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error."
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_CustomDataCaption=1
|
||||
mtDialog_CustomDataCaption0="Other"
|
||||
Count mtDialog_CustomDataHeader=1
|
||||
mtDialog_CustomDataHeader0="Other Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModule=1
|
||||
mtLog_ExcModule0="Module"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpUser=1
|
||||
mtLog_CmpUser0="User"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
|
||||
|
||||
@ -1,86 +0,0 @@
|
||||
package ControlesBaseD7;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$RUNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
PngComponentsD7,
|
||||
DataAbstract_D7,
|
||||
PNG_D7,
|
||||
BaseD7,
|
||||
dbrtl,
|
||||
dsnap,
|
||||
adortl,
|
||||
JvGlobusD7R,
|
||||
cxTreeListVCLD7,
|
||||
vclactnband,
|
||||
vclx,
|
||||
tb2k_d7,
|
||||
tbx_d7,
|
||||
JvCoreD7R,
|
||||
vcljpg,
|
||||
Jcl,
|
||||
JclVcl,
|
||||
JvSystemD7R,
|
||||
JvPageCompsD7R,
|
||||
JvStdCtrlsD7R,
|
||||
dxThemeD7,
|
||||
cxLibraryVCLD7,
|
||||
cxExportVCLD7,
|
||||
cxEditorsVCLD7,
|
||||
cxDataD7,
|
||||
vcldb,
|
||||
cxExtEditorsVCLD7,
|
||||
cxGridVCLD7,
|
||||
cxPageControlVCLD7,
|
||||
dxLayoutControlD7,
|
||||
dxComnD7,
|
||||
cxVerticalGridVCLD7,
|
||||
dxPSCoreD7,
|
||||
VclSmp,
|
||||
bdertl,
|
||||
EasyListviewD7;
|
||||
|
||||
contains
|
||||
uEditorControlesBase in 'Cliente\uEditorControlesBase.pas' {fEditorControlesBase: TCustomEditor},
|
||||
schControlesClient_Intf in 'Reglas\schControlesClient_Intf.pas',
|
||||
uBizControlesBase in 'Reglas\uBizControlesBase.pas',
|
||||
uDataModuleControles in 'Cliente\uDataModuleControles.pas' {dmControles: TDAClientDataModule},
|
||||
uEditorControlBase in 'Cliente\uEditorControlBase.pas' {fEditorControlBase: TCustomEditor},
|
||||
uViewAgrupaciones in 'Cliente\uViewAgrupaciones.pas' {frViewAgrupaciones: TCustomView},
|
||||
uViewColumnas in 'Cliente\uViewColumnas.pas' {frViewColumnas: TCustomView},
|
||||
uViewSumarios in 'Cliente\uViewSumarios.pas' {frViewSumarios: TCustomView},
|
||||
uViewControlGrid in 'Cliente\uViewControlGrid.pas' {frViewControlGrid: TCustomView},
|
||||
uViewControlBase in 'Cliente\uViewControlBase.pas' {frViewControlBase: TCustomView},
|
||||
uViewParametrosControlGrid in 'Cliente\uViewParametrosControlGrid.pas' {frViewParametrosControlGrid: TCustomView},
|
||||
uFormPropiedadesControl in 'Cliente\uFormPropiedadesControl.pas' {frPropiedadesControl},
|
||||
uViewFiltros in 'Cliente\uViewFiltros.pas' {frViewFiltros: TCustomView},
|
||||
uViewPeriodoFechas in 'Cliente\uViewPeriodoFechas.pas' {frViewPeriodoFechas: TCustomView},
|
||||
uViewControlesBase in 'Cliente\uViewControlesBase.pas' {frViewControlesBase: TCustomView},
|
||||
uDateUtils in 'Cliente\uDateUtils.pas';
|
||||
|
||||
end.
|
||||
@ -1,14 +0,0 @@
|
||||
/* VER150
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
Binary file not shown.
@ -1,80 +0,0 @@
|
||||
unit uBizControlesBase;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, schControlesClient_Intf;
|
||||
|
||||
type
|
||||
IBizControlBase = interface(IListaControlesPorCategoria)
|
||||
['{203A654A-16DF-404B-ACD4-CCCA796091C6}']
|
||||
procedure Show;
|
||||
procedure VerPropiedades;
|
||||
function EsModificable : Boolean;
|
||||
end;
|
||||
|
||||
TBizControlBaseDataTableRules = class(TListaControlesPorCategoriaDataTableRules, IBizControlBase)
|
||||
protected
|
||||
function GetVISTAValue: IROStrings; override;
|
||||
procedure BeforePost(Sender: TDADataTable); override;
|
||||
public
|
||||
procedure Show; virtual; abstract;
|
||||
procedure VerPropiedades;
|
||||
function EsModificable : Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Windows, Dialogs, uDACDSDataTable, uDataModuleBase,
|
||||
uEditorUtils, Variants, uFormPropiedadesControl, Forms, Controls;
|
||||
|
||||
{ TBizInformesVentasDataTableRules }
|
||||
|
||||
procedure TBizControlBaseDataTableRules.BeforePost(
|
||||
Sender: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
if Length(CATEGORIA) = 0 then
|
||||
raise Exception.Create('Categoría no asignada');
|
||||
|
||||
if Length(NOMBRE) = 0 then
|
||||
VerPropiedades;
|
||||
end;
|
||||
|
||||
function TBizControlBaseDataTableRules.EsModificable: Boolean;
|
||||
begin
|
||||
Result := (MODIFICABLE = 'S');
|
||||
end;
|
||||
|
||||
function TBizControlBaseDataTableRules.GetVISTAValue: IROStrings;
|
||||
begin
|
||||
Result := NewROStrings();
|
||||
Result.Add(DataTable.Fields[idx_ListaControlesPorCategoriaVISTA].AsString);
|
||||
end;
|
||||
|
||||
procedure TBizControlBaseDataTableRules.VerPropiedades;
|
||||
begin
|
||||
with TfrPropiedadesControl.Create(NIL) do
|
||||
try
|
||||
Nombre := Self.NOMBRE;
|
||||
Descripcion := Self.DESCRIPCION;
|
||||
Modificable := Self.EsModificable;
|
||||
Icono := Self.ICONO;
|
||||
if (ShowModal = mrOK) then
|
||||
begin
|
||||
DataTable.Edit;
|
||||
Self.NOMBRE := Nombre;
|
||||
Self.DESCRIPCION := Descripcion;
|
||||
Self.ICONO := Icono;
|
||||
if Modificable then
|
||||
Self.MODIFICABLE := 'S'
|
||||
else
|
||||
Self.MODIFICABLE := 'N';
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -1,48 +0,0 @@
|
||||
unit srvControles_Impl;
|
||||
|
||||
{----------------------------------------------------------------------------}
|
||||
{ This unit was automatically generated by the RemObjects SDK after reading }
|
||||
{ the RODL file associated with this project . }
|
||||
{ }
|
||||
{ This is where you are supposed to code the implementation of your objects. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DARemoteService_Impl,
|
||||
{Used RODLs:} DataAbstract_Intf,
|
||||
{Generated:} VARELA_Intf, uDAScriptingProvider, uDABusinessProcessor,
|
||||
uDAClasses, uDADataTable, uDABINAdapter;
|
||||
|
||||
type
|
||||
{ TsrvControles }
|
||||
TsrvControles = class(TDARemoteService, IsrvControles)
|
||||
bpControles: TDABusinessProcessor;
|
||||
schControles: TDASchema;
|
||||
DABINAdapter: TDABINAdapter;
|
||||
private
|
||||
protected
|
||||
{ IsrvControles methods }
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} VARELA_Invk, uDataModuleServer;
|
||||
|
||||
procedure Create_srvControles(out anInstance : IUnknown);
|
||||
begin
|
||||
anInstance := TsrvControles.Create(NIL);
|
||||
end;
|
||||
|
||||
{ srvControles }
|
||||
initialization
|
||||
TROClassFactory.Create('srvControles', Create_srvControles, TsrvControles_Invoker);
|
||||
|
||||
finalization
|
||||
|
||||
end.
|
||||
@ -1,38 +0,0 @@
|
||||
-$A8
|
||||
-$B-
|
||||
-$C+
|
||||
-$D+
|
||||
-$E-
|
||||
-$F-
|
||||
-$G+
|
||||
-$H+
|
||||
-$I+
|
||||
-$J-
|
||||
-$K-
|
||||
-$L+
|
||||
-$M-
|
||||
-$N+
|
||||
-$O+
|
||||
-$P+
|
||||
-$Q-
|
||||
-$R-
|
||||
-$S-
|
||||
-$T-
|
||||
-$U-
|
||||
-$V+
|
||||
-$W-
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-GD
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
-W+
|
||||
-M
|
||||
-$M16384,1048576
|
||||
-K$00400000
|
||||
-N".\"
|
||||
-LE"..\..\Output\Cliente"
|
||||
-LN"..\Lib"
|
||||
-Z
|
||||
@ -1,467 +0,0 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=1
|
||||
UnsafeCode=1
|
||||
UnsafeCast=1
|
||||
[Linker]
|
||||
MapFile=3
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=.\
|
||||
PackageDLLOutputDir=..\..\Output\Cliente
|
||||
PackageDCPOutputDir=..\Lib
|
||||
SearchPath=
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=3082
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
[Excluded Packages]
|
||||
c:\archivos de programa\borland\delphi7\Bin\designdgm70.bpl=Borland Module Diagram Editview
|
||||
T:\BPL_D7\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlUnitOutputDirectory]
|
||||
Count=1
|
||||
Item0=.\
|
||||
[HistoryLists\hlBPLOutput]
|
||||
Count=1
|
||||
Item0=..\..\Output\Cliente
|
||||
[HistoryLists\hlDCPOutput]
|
||||
Count=1
|
||||
Item0=..\Lib
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
Freeze Message=The application seems to be frozen.
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
Show TerminateBtn=1
|
||||
TerminateBtn Operation=1
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=1
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesSection=1
|
||||
loSaveCPUSection=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModule=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpUser=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndCompressAllFiles=0
|
||||
edoShowExceptionDialog=1
|
||||
edoSendEmailChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoShowProcedureOffset=0
|
||||
boActivateCrashDetection=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error."
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_CustomDataCaption=1
|
||||
mtDialog_CustomDataCaption0="Other"
|
||||
Count mtDialog_CustomDataHeader=1
|
||||
mtDialog_CustomDataHeader0="Other Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModule=1
|
||||
mtLog_ExcModule0="Module"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpUser=1
|
||||
mtLog_CmpUser0="User"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
|
||||
|
||||
@ -1,57 +0,0 @@
|
||||
package DataAbstract_D7;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$RUNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
vcl,
|
||||
rtl,
|
||||
dbrtl,
|
||||
dsnap;
|
||||
|
||||
contains
|
||||
uDADataTable,
|
||||
uDABINAdapter,
|
||||
uDAScriptingProvider,
|
||||
uDACDSDataTable,
|
||||
uDARegExpr,
|
||||
uDAInterfaces,
|
||||
uDARes,
|
||||
uDAClasses,
|
||||
uDAEngine,
|
||||
uDAHelpers,
|
||||
uDAInterfacesEx,
|
||||
uDAMacros,
|
||||
uDAUtils,
|
||||
uDADriverManager,
|
||||
uDASupportClasses,
|
||||
uDAXMLUtils,
|
||||
DataAbstract_Intf,
|
||||
uDAClientDataModule,
|
||||
uDABusinessProcessor,
|
||||
uDAOracleInterfaces,
|
||||
uDADesigntimeCall;
|
||||
|
||||
end.
|
||||
@ -1,400 +0,0 @@
|
||||
/* VER150
|
||||
Generated by the Borland Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
#define uDARes_err_ExecuteSQLCommandNotAllowed 65328
|
||||
#define uDARes_err_FieldIsNotBound 65344
|
||||
#define uDARes_err_CannotFindField 65345
|
||||
#define uDARes_err_LoadPackageFailed 65346
|
||||
#define uDARes_err_InvalidDriverReference 65347
|
||||
#define uDARes_err_CannotFindStatement 65348
|
||||
#define uDARes_err_CannotFindDefaultItem 65349
|
||||
#define uDARes_err_PoolIsNotEmpty 65350
|
||||
#define uDARes_err_MaxPoolSizeReached 65351
|
||||
#define uDARes_err_CannotAccessThisProperty 65352
|
||||
#define uDARes_err_LAMEDataset 65353
|
||||
#define uDARes_err_DARDMInvalidSchema 65354
|
||||
#define uDARes_err_DARDMMissingConnectionName 65355
|
||||
#define uDARes_err_DARDMUnassignedAdapter 65356
|
||||
#define uDARes_err_DARDMConnectionIsNotAssigned 65357
|
||||
#define uDARes_err_DARDMCannotFindProxessorForDelta 65358
|
||||
#define uDARes_err_NeedShareMem 65359
|
||||
#define uDARes_err_DriverManagerNotAssigned 65360
|
||||
#define uDARes_err_ConnectionManagerNotAssigned 65361
|
||||
#define uDARes_err_FieldTypeNotSupported 65362
|
||||
#define uDARes_err_NotSupported 65363
|
||||
#define uDARes_err_DataTypeNotSupportedByRemoteRequest 65364
|
||||
#define uDARes_err_InvalidDataset 65365
|
||||
#define uDARes_err_CannotMakeNILDefault 65366
|
||||
#define uDARes_err_DifferentOwnerCollection 65367
|
||||
#define uDARes_err_CannotFindItem 65368
|
||||
#define uDARes_err_InvalidCollectionType 65369
|
||||
#define uDARes_err_InvalidOwner 65370
|
||||
#define uDARes_err_DriverAlreadyLoaded 65371
|
||||
#define uDARes_err_DriverIsNotLoaded 65372
|
||||
#define uDARes_err_InvalidDLL 65373
|
||||
#define uDARes_err_UnknownDriver 65374
|
||||
#define uDARes_err_UnknownParameter 65375
|
||||
#define uRODECConst_sInvalidCalc 65376
|
||||
#define uRODECConst_sInvalidDictionary 65377
|
||||
#define uRODECConst_sOTPIdent 65378
|
||||
#define uRODECConst_sOTPExt 65379
|
||||
#define uRODECConst_sOTPWord 65380
|
||||
#define uRODECConst_sOTPHex 65381
|
||||
#define uRODECConst_sSKeyIdent 65382
|
||||
#define uDARes_err_ChangeLogAlreadyStarted 65383
|
||||
#define uDARes_err_NotAttachedToDataTable 65384
|
||||
#define uDARes_err_DeltaAttachedToDataTable 65385
|
||||
#define uDARes_err_DriverProcAlreadyRegistered 65386
|
||||
#define uDARes_err_DriverManagerNotCreated 65387
|
||||
#define uDARes_err_DriverManagerAlreadyCreated 65388
|
||||
#define uDARes_err_DatasetNotAssigned 65389
|
||||
#define uDARes_err_VariantNotSupported 65390
|
||||
#define uDARes_err_InvalidDestination 65391
|
||||
#define uRODECConst_sLoadFail 65392
|
||||
#define uRODECConst_sParams 65393
|
||||
#define uRODECConst_sJacobi 65394
|
||||
#define uRODECConst_sSPPrime 65395
|
||||
#define uRODECConst_sSetPrime 65396
|
||||
#define uRODECConst_sSetPrimeSize 65397
|
||||
#define uRODECConst_sSetPrimeParam 65398
|
||||
#define uRODECConst_sSqrt 65399
|
||||
#define uRODECConst_sExpMod 65400
|
||||
#define uRODECConst_sCalcName 65401
|
||||
#define uRODECConst_sInvalidState 65402
|
||||
#define uRODECConst_sIDOutOfRange 65403
|
||||
#define uRODECConst_sInvalidZIPData 65404
|
||||
#define uRODECConst_sInvalidChallenge 65405
|
||||
#define uRODECConst_sInvalidPassword 65406
|
||||
#define uRODECConst_sInvalidSeed 65407
|
||||
#define uRODECConst_sNotInitialized 65408
|
||||
#define uRODECConst_sInvalidMACMode 65409
|
||||
#define uRODECConst_sCantCalc 65410
|
||||
#define uRODECConst_sInvalidRandomStream 65411
|
||||
#define uRODECConst_sRandomDataProtected 65412
|
||||
#define uRODECConst_sBBSnotSeekable 65413
|
||||
#define uRODECConst_sBigNumDestroy 65414
|
||||
#define uRODECConst_sIndexOutOfRange 65415
|
||||
#define uRODECConst_sBigNumAborted 65416
|
||||
#define uRODECConst_sErrGeneric 65417
|
||||
#define uRODECConst_sErrAsInteger 65418
|
||||
#define uRODECConst_sErrAsComp 65419
|
||||
#define uRODECConst_sErrAsFloat 65420
|
||||
#define uRODECConst_sNumberFormat 65421
|
||||
#define uRODECConst_sDivByZero 65422
|
||||
#define uRODECConst_sStackIndex 65423
|
||||
#define uRORes_err_UnknownMessageType 65424
|
||||
#define uRORes_err_MasterServerNeedsChannel 65425
|
||||
#define uRORes_err_StreamIsReadOnly 65426
|
||||
#define uRODECConst_sProtectionCircular 65427
|
||||
#define uRODECConst_sStringFormatExists 65428
|
||||
#define uRODECConst_sInvalidStringFormat 65429
|
||||
#define uRODECConst_sInvalidFormatString 65430
|
||||
#define uRODECConst_sFMT_COPY 65431
|
||||
#define uRODECConst_sFMT_HEX 65432
|
||||
#define uRODECConst_sFMT_HEXL 65433
|
||||
#define uRODECConst_sFMT_MIME64 65434
|
||||
#define uRODECConst_sFMT_UU 65435
|
||||
#define uRODECConst_sFMT_XX 65436
|
||||
#define uRODECConst_sInvalidKey 65437
|
||||
#define uRODECConst_sInvalidCRC 65438
|
||||
#define uRODECConst_sInvalidKeySize 65439
|
||||
#define uRORes_err_CannotLoadXMLDocument 65440
|
||||
#define uRORes_err_ErrorCreatingMsXmlDoc 65441
|
||||
#define uRORes_err_NoXMLParsersAvailable 65442
|
||||
#define uRORes_err_IDispatchMarshalingNotSupported 65443
|
||||
#define uRORes_err_UnsupportedVariantType 65444
|
||||
#define uRORes_err_InvalidBinaryFormat 65445
|
||||
#define uRORes_err_VariantIsNotArray 65446
|
||||
#define uRORes_err_InvalidVarArrayDimCount 65447
|
||||
#define uRORes_err_CannotFindParameter 65448
|
||||
#define uRORes_err_CannotFindService 65449
|
||||
#define uRORes_err_RODLResourceNotLoaded 65450
|
||||
#define uRORes_err_MayNotAddResult 65451
|
||||
#define uRORes_err_OperationNameNeedsServiceName 65452
|
||||
#define uRORes_err_ServiceNameIsNotSet 65453
|
||||
#define uRORes_err_EventReceivedNotConnectedToMessage 65454
|
||||
#define uRORes_err_MessageNotAssigned 65455
|
||||
#define uRORes_err_MessagePropertyMustBeSet 65456
|
||||
#define uRORes_err_WinMessageFailed 65457
|
||||
#define uRORes_err_UnexpectedWinINetProblem 65458
|
||||
#define uRORes_err_CommunicationWithServerTimedOut 65459
|
||||
#define uRORes_err_CannotConnectToServer 65460
|
||||
#define uRORes_err_ConnectionError 65461
|
||||
#define uRORes_err_PoolSizeMustBe1orHigher 65462
|
||||
#define uRORes_err_NoFreeObjectsInPool 65463
|
||||
#define uRORes_msg_NoMultipleDispatchers 65464
|
||||
#define uRORes_err_InvalidStorage 65465
|
||||
#define uRORes_err_ErrorConvertingFloat 65466
|
||||
#define uRORes_err_SessionNotFound 65467
|
||||
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65468
|
||||
#define uRORes_err_TooManySessions 65469
|
||||
#define uRORes_err_DOMElementIsNIL 65470
|
||||
#define uRORes_err_IndexOutOfBounds 65471
|
||||
#define uRORes_err_CannotAssignClass 65472
|
||||
#define uRORes_err_ChannelBusy 65473
|
||||
#define uRORes_err_DesignTimeProperty 65474
|
||||
#define uRORes_err_ExpectedParameterNotFound 65475
|
||||
#define uRORes_err_AmbigousResponse 65476
|
||||
#define uRORes_err_InvalidEnvelope 65477
|
||||
#define uRORes_err_InvalidData 65478
|
||||
#define uRORes_inf_InvalidEnvelopeNode 65479
|
||||
#define uRORes_inf_AbsentBody 65480
|
||||
#define uRORes_inf_AbsentMessage 65481
|
||||
#define uRORes_err_ArrayIndexOutOfBounds 65482
|
||||
#define uRORes_err_InvalidHeader 65483
|
||||
#define uRORes_err_UnknownClassInStream 65484
|
||||
#define uRORes_err_UnexpectedClassInStream 65485
|
||||
#define uRORes_err_InvalidDateTimeReadFromStream 65486
|
||||
#define uRORes_err_CannotFindServer 65487
|
||||
#define uRORes_err_ParameterNotFound 65488
|
||||
#define uRORes_err_NotImplemented 65489
|
||||
#define uRORes_err_TypeNotSupported 65490
|
||||
#define uRORes_err_ClassFactoryNotFound 65491
|
||||
#define uRORes_err_UnspecifiedTargetURL 65492
|
||||
#define uRORes_err_IROMessageNotSupported 65493
|
||||
#define uRORes_err_ClassAlreadyRegistered 65494
|
||||
#define uRORes_err_UnknownClass 65495
|
||||
#define uRORes_err_UnknownProxyInterface 65496
|
||||
#define uRORes_err_UnknownTransportChannelClass 65497
|
||||
#define uRORes_err_UnknownMessageClass 65498
|
||||
#define uRORes_err_DispatcherAlreadyAssigned 65499
|
||||
#define uRORes_err_CannotFindMessageDispatcher 65500
|
||||
#define uRORes_err_ServerOnlySupportsOneDispatcher 65501
|
||||
#define uRORes_err_UnhandledException 65502
|
||||
#define uRORes_err_CannotReadRODLWithoutChannel 65503
|
||||
#define uRORes_err_RodlNoStructElementsDefined 65504
|
||||
#define uRORes_err_RodlNoOperationsDefined 65505
|
||||
#define uRORes_err_RodlUsedFileDoesNotExist 65506
|
||||
#define uRORes_err_RodlInvalidDataType 65507
|
||||
#define uRORes_err_RodlStructCannotBeNested 65508
|
||||
#define uRORes_err_RodlInvalidAncestorType 65509
|
||||
#define uRORes_err_UnspecifiedRODLLocation 65510
|
||||
#define uRORes_str_ExceptionOnServer 65511
|
||||
#define uRORes_str_ExceptionReraisedFromServer 65512
|
||||
#define uRORes_err_AssignError 65513
|
||||
#define uRORes_err_InvalidRequestStream 65514
|
||||
#define uRORes_err_NILMessage 65515
|
||||
#define uRORes_err_UnspecifiedInterface 65516
|
||||
#define uRORes_err_UnspecifiedMessage 65517
|
||||
#define uRORes_err_UnknownMethod 65518
|
||||
#define uRORes_err_ClassFactoryDidNotReturnInstance 65519
|
||||
#define uRORes_err_InvalidIndex 65520
|
||||
#define uRORes_err_InvalidType 65521
|
||||
#define uRORes_err_InvalidLibrary 65522
|
||||
#define uRORes_err_InvalidStream 65523
|
||||
#define uRORes_err_InvalidTargetEntity 65524
|
||||
#define uRORes_err_InvalidParamFlag 65525
|
||||
#define uRORes_err_InvalidStringLength 65526
|
||||
#define uRORes_err_InvalidBinaryLength 65527
|
||||
#define uRORes_str_InvalidClassTypeInStream 65528
|
||||
#define uRORes_err_ObjectExpectedInStream 65529
|
||||
#define uRORes_err_UnexpectedEndOfStream 65530
|
||||
#define uRORes_err_MessageClassMustImplementAssign 65531
|
||||
#define uRORes_err_InvalidInfo 65532
|
||||
#define uRORes_err_RodlDuplicateName 65533
|
||||
#define uRORes_err_RodlNoDataTypeSpecified 65534
|
||||
#define uRORes_err_RodlNoEnumValues 65535
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
uDARes_err_ExecuteSQLCommandNotAllowed, "ExecuteSQLCommand is not enabled for this server."
|
||||
uDARes_err_FieldIsNotBound, "Field is not bound"
|
||||
uDARes_err_CannotFindField, "Cannot find field %s"
|
||||
uDARes_err_LoadPackageFailed, "LoadPackage failed for file %s"
|
||||
uDARes_err_InvalidDriverReference, "The driver in %s could not be loaded"
|
||||
uDARes_err_CannotFindStatement, "Cannot find statement %s for connection %s"
|
||||
uDARes_err_CannotFindDefaultItem, "Cannot find default %s"
|
||||
uDARes_err_PoolIsNotEmpty, "Cannot perform this operation when connections are pooled"
|
||||
uDARes_err_MaxPoolSizeReached, "Maximum pool size reached. Cannot create a new connection"
|
||||
uDARes_err_CannotAccessThisProperty, "Cannot access this property with the current DataType value"
|
||||
uDARes_err_LAMEDataset, "%s does not implement IProviderSupport or implements it incorrectly"
|
||||
uDARes_err_DARDMInvalidSchema, "Schema must be assigned and must point to a ConnectionManager"
|
||||
uDARes_err_DARDMMissingConnectionName, "Cannot acquire a connection without a ConnectionName or a OnBeforeAcquireConnection event handler"
|
||||
uDARes_err_DARDMUnassignedAdapter, "DataAdapter is not assigned"
|
||||
uDARes_err_DARDMConnectionIsNotAssigned, "Connection is not assigned"
|
||||
uDARes_err_DARDMCannotFindProxessorForDelta, "Cannot find a business processor for delta \"%s\""
|
||||
uDARes_err_NeedShareMem, "To use dynamically loaded drivers, you must build your application with ShareMem."
|
||||
uDARes_err_DriverManagerNotAssigned, "Driver Manager is not assigned"
|
||||
uDARes_err_ConnectionManagerNotAssigned, "Connection Manager is not assigned"
|
||||
uDARes_err_FieldTypeNotSupported, "FieldType %s (%d) is not supported"
|
||||
uDARes_err_NotSupported, "Not supported"
|
||||
uDARes_err_DataTypeNotSupportedByRemoteRequest, "DataType is not supported by RemoteRequest"
|
||||
uDARes_err_InvalidDataset, "Invalid or NIL dataset"
|
||||
uDARes_err_CannotMakeNILDefault, "Cannot set NIL"
|
||||
uDARes_err_DifferentOwnerCollection, "The connection definition is not owned by this collection"
|
||||
uDARes_err_CannotFindItem, "Cannot find %s \"%s\" in collection of type %s"
|
||||
uDARes_err_InvalidCollectionType, "Invalid collection type"
|
||||
uDARes_err_InvalidOwner, "Invalid owner"
|
||||
uDARes_err_DriverAlreadyLoaded, "Driver %s is already loaded"
|
||||
uDARes_err_DriverIsNotLoaded, "Driver %s was not loaded"
|
||||
uDARes_err_InvalidDLL, "%s is not a valid Data Abstract driver"
|
||||
uDARes_err_UnknownDriver, "Unknown driver %s"
|
||||
uDARes_err_UnknownParameter, "Unknown parameter %s"
|
||||
uRODECConst_sInvalidCalc, "Invalid Parameters in OTPCalc."
|
||||
uRODECConst_sInvalidDictionary, "Used Dictionary in %s is invalid."
|
||||
uRODECConst_sOTPIdent, "otp-"
|
||||
uRODECConst_sOTPExt, "ext"
|
||||
uRODECConst_sOTPWord, "word:"
|
||||
uRODECConst_sOTPHex, "hex:"
|
||||
uRODECConst_sSKeyIdent, "s/key"
|
||||
uDARes_err_ChangeLogAlreadyStarted, "StartChange has already been called; cannot log more than one change at a time."
|
||||
uDARes_err_NotAttachedToDataTable, "Delta is not attached to a DataTable"
|
||||
uDARes_err_DeltaAttachedToDataTable, "Cannot perform this operation on a delta that is attached to a DataTable"
|
||||
uDARes_err_DriverProcAlreadyRegistered, "DriverProc 0x%0.8x is already registered"
|
||||
uDARes_err_DriverManagerNotCreated, "A Data Abstract DriverManager is not currently instantiated"
|
||||
uDARes_err_DriverManagerAlreadyCreated, "An instance of a TDADriverManager was already initialized. Only one driver manager per module is allowed"
|
||||
uDARes_err_DatasetNotAssigned, "Dataset is not assigned"
|
||||
uDARes_err_VariantNotSupported, "Variant type %d is not supported"
|
||||
uDARes_err_InvalidDestination, "Invalid destination"
|
||||
uRODECConst_sLoadFail, "BigNum invalid data format."
|
||||
uRODECConst_sParams, "BigNum parameter error.\r\n%s."
|
||||
uRODECConst_sJacobi, "BigNum Jacobi(A, B), B must be >= 3, Odd and B < A"
|
||||
uRODECConst_sSPPrime, "BigNum IsSPPrime(A, Base), |Base| must be > 1, |A| > |Base| and |A| >= 3"
|
||||
uRODECConst_sSetPrime, "BigNum SetPrime(Base, Residue, Modulus), Invalid Parameter.\r\n%s."
|
||||
uRODECConst_sSetPrimeSize, "Value must be greater 32767"
|
||||
uRODECConst_sSetPrimeParam, "GCD(Residue, Modulus) must be 1 and Residue < Modulus"
|
||||
uRODECConst_sSqrt, "BigNum Sqrt(A) A must be position"
|
||||
uRODECConst_sExpMod, "BigNum ExpMod(E, M) M must be positive"
|
||||
uRODECConst_sCalcName, "Calculation No %d"
|
||||
uRODECConst_sInvalidState, "Invalid Protector State detected."
|
||||
uRODECConst_sIDOutOfRange, "Protector Error: ID is out of Range."
|
||||
uRODECConst_sInvalidZIPData, "Invalid compressed Data detected."
|
||||
uRODECConst_sInvalidChallenge, "Challenge is not an RO_RFC2289 Format."
|
||||
uRODECConst_sInvalidPassword, "Invalid Passphraselength, must be more than 9 Chars."
|
||||
uRODECConst_sInvalidSeed, "Invalid Seed Value in OTPCalc."
|
||||
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
|
||||
uRODECConst_sInvalidMACMode, "Invalid Ciphermode selected to produce a MAC.\r\nPlease use Modes cmCBC, cmCTS, cmCFB, cmCBCMAC, cmCFBMAC or cmCTSMAC for CalcMAC."
|
||||
uRODECConst_sCantCalc, "Invalid Ciphermode selected."
|
||||
uRODECConst_sInvalidRandomStream, "Invalid Random Data detected."
|
||||
uRODECConst_sRandomDataProtected, "Random Data are protected."
|
||||
uRODECConst_sBBSnotSeekable, "BBS Generator is not seekable."
|
||||
uRODECConst_sBigNumDestroy, "Used Bignums in a BBS Generator can be not destroy."
|
||||
uRODECConst_sIndexOutOfRange, "BBS Error: Index out of Range."
|
||||
uRODECConst_sBigNumAborted, "BigNum aborted by User."
|
||||
uRODECConst_sErrGeneric, "Bignum Generic Error."
|
||||
uRODECConst_sErrAsInteger, "BigNum overflow in AsInteger."
|
||||
uRODECConst_sErrAsComp, "BigNum overflow in AsComp."
|
||||
uRODECConst_sErrAsFloat, "BigNum overflow in AsFloat."
|
||||
uRODECConst_sNumberFormat, "BigNum invalid Numberformat for Base %d.\r\nValue: %s"
|
||||
uRODECConst_sDivByZero, "BigNum division by Zero."
|
||||
uRODECConst_sStackIndex, "BigNum Stackindex out of range."
|
||||
uRORes_err_UnknownMessageType, "Unknown message type \"%s\""
|
||||
uRORes_err_MasterServerNeedsChannel, "No Channel assigned to %s."
|
||||
uRORes_err_StreamIsReadOnly, "Stream is read-only."
|
||||
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
|
||||
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
|
||||
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
|
||||
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
|
||||
uRODECConst_sFMT_COPY, "copy Input to Output"
|
||||
uRODECConst_sFMT_HEX, "Hexadecimal"
|
||||
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
|
||||
uRODECConst_sFMT_MIME64, "MIME Base 64"
|
||||
uRODECConst_sFMT_UU, "UU Coding"
|
||||
uRODECConst_sFMT_XX, "XX Coding"
|
||||
uRODECConst_sInvalidKey, "Encryptionkey is invalid"
|
||||
uRODECConst_sInvalidCRC, "Encrypted Data is corrupt, invalid Checksum"
|
||||
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
|
||||
uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d"
|
||||
uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s"
|
||||
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
|
||||
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
|
||||
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
|
||||
uRORes_err_InvalidBinaryFormat, "Invalid binary format for a variant"
|
||||
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
|
||||
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
|
||||
uRORes_err_CannotFindParameter, "Cannot find parameter %s"
|
||||
uRORes_err_CannotFindService, "Cannot find service %s"
|
||||
uRORes_err_RODLResourceNotLoaded, "RODL resource has not been loaded"
|
||||
uRORes_err_MayNotAddResult, "Cannot add Result parameter to collection. Use AddResult instead"
|
||||
uRORes_err_OperationNameNeedsServiceName, "Cannot set the OperationName without a ServiceName"
|
||||
uRORes_err_ServiceNameIsNotSet, "ServiceName is not set"
|
||||
uRORes_err_EventReceivedNotConnectedToMessage, "The event receiver must be connected to a message component first"
|
||||
uRORes_err_MessageNotAssigned, "Message is NIL"
|
||||
uRORes_err_MessagePropertyMustBeSet, "Message property must be assigned for the server to be active"
|
||||
uRORes_err_WinMessageFailed, "Communication with the WinMessage Server failed or timed out (Error Code %d)"
|
||||
uRORes_err_UnexpectedWinINetProblem, "Unexpected error in WinInet HTTP Channel (%d)"
|
||||
uRORes_err_CommunicationWithServerTimedOut, "Communication with the server timed out (after %sms)"
|
||||
uRORes_err_CannotConnectToServer, "Cannot connect to server \"%s\""
|
||||
uRORes_err_ConnectionError, "Connection error"
|
||||
uRORes_err_PoolSizeMustBe1orHigher, "Pool Size must be 1 or higher"
|
||||
uRORes_err_NoFreeObjectsInPool, "There are no Free Objects in the Pool. Try again later."
|
||||
uRORes_msg_NoMultipleDispatchers, "Multiple message dispatchers not supported"
|
||||
uRORes_err_InvalidStorage, "Invalid storage"
|
||||
uRORes_err_ErrorConvertingFloat, "Error converting float \"%s\" at byte %d"
|
||||
uRORes_err_SessionNotFound, "Session %s could not be found"
|
||||
uRORes_err_ChannelDoesntSupportIROMetadataReader, "Channel does not support IROMetadataReader"
|
||||
uRORes_err_TooManySessions, "Too many sessions. Try again in %d minute(s)"
|
||||
uRORes_err_DOMElementIsNIL, "DOMElement is NIL"
|
||||
uRORes_err_IndexOutOfBounds, "Index out of bounds"
|
||||
uRORes_err_CannotAssignClass, "Cannot Assign a \"%s\" to a \"%s\"."
|
||||
uRORes_err_ChannelBusy, "Channel is busy. Try again later."
|
||||
uRORes_err_DesignTimeProperty, "%s is a designtime-only property"
|
||||
uRORes_err_ExpectedParameterNotFound, "Expected parameter \"%s\" was not found."
|
||||
uRORes_err_AmbigousResponse, "Ambigous response. Expected one \"%s\" but %d were received"
|
||||
uRORes_err_InvalidEnvelope, "Invalid SOAP Envelope. %s"
|
||||
uRORes_err_InvalidData, "Cannot convert data for parameter \"%s\"\rException was \"%s\"\rData was \"%s\"."
|
||||
uRORes_inf_InvalidEnvelopeNode, "SOAP Envelope node missing or not root."
|
||||
uRORes_inf_AbsentBody, "SOAP envelope does not contain a Body."
|
||||
uRORes_inf_AbsentMessage, "SOAP Body does not contain a message nor a fault"
|
||||
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
|
||||
uRORes_err_InvalidHeader, "Invalid binary header. Either incompatible or not a binary message."
|
||||
uRORes_err_UnknownClassInStream, "Unknown class \"%s\" found in stream."
|
||||
uRORes_err_UnexpectedClassInStream, "Unexpected class found in stream; class \"%s\" does not descend from \"%s\"."
|
||||
uRORes_err_InvalidDateTimeReadFromStream, "Invalid DateTime read from Stream."
|
||||
uRORes_err_CannotFindServer, "Cannot find server \"%s\""
|
||||
uRORes_err_ParameterNotFound, "Parameter \"%s\" was not found"
|
||||
uRORes_err_NotImplemented, "Not implemented"
|
||||
uRORes_err_TypeNotSupported, "Type \"%s\" not supported"
|
||||
uRORes_err_ClassFactoryNotFound, "Class factory for interface %s not found"
|
||||
uRORes_err_UnspecifiedTargetURL, "Unspecified TargetURL"
|
||||
uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage"
|
||||
uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered"
|
||||
uRORes_err_UnknownClass, "Unknown class \"%s\""
|
||||
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
|
||||
uRORes_err_UnknownTransportChannelClass, "Unknown transport channel class \"%s\""
|
||||
uRORes_err_UnknownMessageClass, "Unknown message class \"%s\""
|
||||
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
|
||||
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
|
||||
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
|
||||
uRORes_err_UnhandledException, "Unhandled exception"
|
||||
uRORes_err_CannotReadRODLWithoutChannel, "Cannot read RODL information without a channel"
|
||||
uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements."
|
||||
uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements."
|
||||
uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found."
|
||||
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
|
||||
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
|
||||
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
|
||||
uRORes_err_UnspecifiedRODLLocation, "Unspecified RODL location"
|
||||
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
|
||||
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
|
||||
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
|
||||
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)"
|
||||
uRORes_err_NILMessage, "Message is NIL"
|
||||
uRORes_err_UnspecifiedInterface, "The message does not have an interface name"
|
||||
uRORes_err_UnspecifiedMessage, "The message does not have a name"
|
||||
uRORes_err_UnknownMethod, "Unknown method %s for interface %s"
|
||||
uRORes_err_ClassFactoryDidNotReturnInstance, "Class factory did not return an instance of \"%s\""
|
||||
uRORes_err_InvalidIndex, "Invalid index %d"
|
||||
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
|
||||
uRORes_err_InvalidLibrary, "Invalid library"
|
||||
uRORes_err_InvalidStream, "Invalid stream"
|
||||
uRORes_err_InvalidTargetEntity, "Invalid TargetEntity \"%s\""
|
||||
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
|
||||
uRORes_err_InvalidStringLength, "Stream read error: Invalid string length \"%d\""
|
||||
uRORes_err_InvalidBinaryLength, "Stream read error: Invalid binary length \"%d\""
|
||||
uRORes_str_InvalidClassTypeInStream, "Stream read error: Invalid class type encountered: \"%s\""
|
||||
uRORes_err_ObjectExpectedInStream, "Stream read error: Object expected, but nil found."
|
||||
uRORes_err_UnexpectedEndOfStream, "Unexpected end of stream."
|
||||
uRORes_err_MessageClassMustImplementAssign, "Please implement Assign() for your custom message class."
|
||||
uRORes_err_InvalidInfo, "Invalid or incomplete info."
|
||||
uRORes_err_RodlDuplicateName, "Duplicate name."
|
||||
uRORes_err_RodlNoDataTypeSpecified, "No data type specified."
|
||||
uRORes_err_RodlNoEnumValues, "Enum does not contain any values."
|
||||
END
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
Before Width: | Height: | Size: 167 KiB |
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user